个人博客 用于记载日常收集的一些技术文章 ...

K3 BOS : VB 换行符 K3 BOS : VB 换行符 & vbCrLf 或 vbCr 或 vbLf
& Chr(10) & Chr(13) 或 Chr(10) 或 Chr(13)

MsgBox "表头:" & vbCrLf & "FSupplyID: " & var(aFSupplyID).InterID & vbCr & "FSupplyNumber: " & var(aFSupplyID).Number & vbLf & "FSupplyName: " & var(aFSupplyID).Name

MsgBox "分录:1" & Chr(10) & "FItemID: " & var(aFItemID).DInterID(1) & Chr(13) & "FItemNumber: " & var(aFItemID).DNumber(1) & Chr(10) & Chr(13) & "FItemName: " & var(aFItemID).DName(1) & vbCrLf & "FAuxPrice: " & m_BillTransfer.GetGridText(1, aFAuxPrice)
郭少锋 创建 2023-02-25 17:16:12 K3 BOS K3 BOS : VB Select Case K3 BOS : VB Select Case Private Sub Main()
Select Case InputBox("请输入你希望的天气，从晴天、多云、阴天、阵雨、小雨、小雪、冰雹中选一个填入。", "请输入你希望的天气", "晴天")
Case "晴天"
MsgBox "哇哦！你喜欢的是晴天啊，祝你天天好心“晴”~！"
Case "多云"
MsgBox "喜欢多云的天气，是因为比较怕紫外线吗？"
Case "阴天"
MsgBox "为什么喜欢阴天呢？真令人好奇啊~！"
Case "阵雨"
MsgBox "为什么喜欢阵雨天呢？真令人好奇啊~！"
Case "小雨"
MsgBox "为什么喜欢小雨天呢？真令人好奇啊~！"
Case "小雪"
MsgBox "为什么喜欢小雪天呢？真令人好奇啊~！"
Case "冰雹"
MsgBox "为什么喜欢冰雹天呢？真令人好奇啊~！"
Case Else
MsgBox "不可以酱紫！只能从我给出的几种中挑选一个填入！"
End Select
End Sub

-----------------------------------------------------------------
Private Sub Main()
Select Case Day(Date)
Case Is <= 10
MsgBox "目前是本月上旬！"
Case Is > 20
MsgBox "目前是本月下旬！"
Case Else
MsgBox "目前是本月中旬！"
End Select
End Sub

-----------------------------------------------------------------
Private Sub Main()
Select Case Weekday(Date)
Case 1, 7 '星期日、星期六
MsgBox "今天是周末！"
Case 2 To 6 '星期一到星期五
MsgBox "今天不是周末！"
End Select
End Sub

-----------------------------------------------------------------
Private Sub Main()

On Error GoTo ErrHdling
Dim Num As Single
Num = InputBox("请输入！")

Select Case Num

Case Is <= 1
MsgBox "这个数不大于1"

Case Is < 3
MsgBox "这个数在1和3之间的开区间内"

Case Is < 5
MsgBox "这个数在3和5之间的半闭半开区间内"

Case Is <= 7
MsgBox "这个数在5和7之间的闭区间内"

Case 8 To 10
MsgBox "这个数 在 8 至 10 之间"

Case Is > 20
MsgBox "这个数大于7"

Case Else
MsgBox "这个数 不在比较范围"

End Select

Exit Sub

ErrHdling:
MsgBox "这个不是可比较的数字"

End Sub

-----------------------------------------------------------------
Private Sub Main()
On Error GoTo ErrHdling
Dim Num As Single
Num = InputBox("请输入！")

Select Case True
Case Num >= 5 And Num <= 7
MsgBox "这个数在5和7之间的闭区间内"
Case Num < 3 And Num > 1
MsgBox "这个数在1和3之间的开区间内"
Case Num > 7
MsgBox "这个数大于7"
Case Num < 5 And Num >= 3
MsgBox "这个数在3和5之间的半闭半开区间内"
End Select

Exit Sub

ErrHdling:
MsgBox "这个不是可比较的数字"
End Sub
郭少锋 创建 2023-02-25 10:26:27 K3 BOS K3 BOS : 打开VB6.0后，没有“金蝶 K/3-BOS”菜单 K3 BOS : 打开VB6.0后，没有“金蝶 K/3-BOS”菜单 找到K3安装目录下的ADDIN文件夹，将此文件夹下的两个DLL文件（K3BOSPLUGINSADDIN.dll和K3GLParaConsolePlugin.dll），在CMD命令行中用RegSvr32命令进行注册。
例如：K3安装目录为【C:\Program Files (x86)\Kingdee\K3ERP】那么在cmd中输入命令就为：

regsvr32 "C:\Program Files (x86)\Kingdee\K3ERP\ADDIN\K3BOSPLUGINSADDIN.dll"
regsvr32 "C:\Program Files (x86)\Kingdee\K3ERP\ADDIN\K3GLParaConsolePlugin.dll"

回车提示注册成功之后，再重新打开VB就会出现“金蝶 k/3-BOS”菜单，
如果还没出现需要再重启下电脑解决。

如果是WIN7环境，运行cmd.exe需要以管理员身份运行，方可成功注册组件。 郭少锋 创建 2023-02-23 22:41:35 K3 BOS K3 BOS : VMware 完全安装 K3 15.1，刚开机时，网络连接缓慢 K3 BOS : VMware 完全安装 K3 15.1，刚开机时，网络连接缓慢 Services.msc 以下服务【启动类型】改为【自动(延迟启动)】，连接正常

　K3MMainSuspendService
　Kingdee.K3.AutoUpdatePatchService
　Kingdee.K3.CRM.Mail.Service
　Lonntec Suf 7.0 Application Service
郭少锋 编辑 2023-02-23 21:40:38 创建 2023-02-23 21:39:00 K3 BOS K3 BOS : KIS 账套列表 K3 BOS : KIS 账套列表 KIS 专业版 账套列表

select * from AcctCtl..t_ad_kdAccount_gl


重装后，更新一下【FPID】以前的账套才会显示

update AcctCtl..t_ad_kdAccount_gl SET FPID = -2
郭少锋 创建 2023-02-21 21:58:36 K3 BOS HTML : input 的边框 HTML : input 的边框 box-sizing: border-box; 【设置】【总大小】

这时，width: 80px; 为 input 边框的总宽度

【没有这个设置】width 为文本宽度，总宽度 = width + pading + border + margin 郭少锋 编辑 2023-02-17 13:43:26 创建 2022-11-14 18:02:27 HTML PHP : PHP 禁用 文本内容的 代码 PHP : PHP 禁用 文本内容的 代码 <content_1>
<?php echo str_replace(array("\r\n", "\r", "\n"),'<br>', str_replace("<","& lt;",$row['content'] ) ); ?>
</content_1>

在输出时：
把【换行符】替换成【<br>】
把【<】替换成【& lt;】用了这个，代码不就起作用了 郭少锋 编辑 2023-02-17 13:06:28 创建 2023-02-17 13:02:44 PHP PHP : PHP 配置 session PHP : PHP 配置 session php.ini

session.auto_start = 0【要使用$_SESSION['xx'] 就必须先使用 session_start();】
session.auto_start = 1【省去 session_start();】
-----------------------------------------------------------------------------
<?php
session_start(); // 【开启】$_SESSION
if(isset($_SESSION['userId'])) {
$userId = $_SESSION['userId'];
$name = $_SESSION['name'].' ';
$userWhere = $_SESSION['userWhere'];
}else{
echo "<script>window.location.href='../user/login.php';</script>"; // 用户未登录，转到【登录页面】
return;
}
郭少锋 编辑 2023-02-17 01:59:35 创建 2023-02-16 14:44:39 PHP HTML : 网站域名 更换IP后，无法访问 HTML : 网站域名 更换IP后，无法访问 网站域名 更换IP后，无法访问，需要清理本地【DNS缓存】

cmd
ipconfig /flushdns 按回车

执行后，就能正常访问了。 郭少锋 创建 2023-02-16 11:58:09 HTML SQL : SQL 批量生成 UniCode 对应字符 SQL : SQL 批量生成 UniCode 对应字符
-- 批量生成 UniCode 对应字符

DECLARE @Int int SET @Int = 1
DECLARE @Int2 int SET @Int2 = @Int + 5000

WHILE @Int < @Int2
BEGIN
PRINT CONVERT( varchar(100),@Int ) + char(9) + ISNULL( nchar(@Int),'')

SET @Int += 1
END 郭少锋 创建 2023-02-13 22:02:04 SQL