| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | |||
| 变量名 | 类 型 | 数组 | 备 注 |
| sql语句 | 整数型 |
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮1_被单击 | |||||
如果 (外部数据库1.打开SQL数据库 (“127.0.0.1”, “sa”, “你的数据库密码”, “你的数据库账套名 数据库名”, , ) ＝ 真)
处理事件 () ' select * from da_spda where barcode =处理事件 ()按钮3.可视 ＝ 真
信息框 (“连接失败”, 0, , )
返回 ()
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮2_被单击 | |||||
信息框 (“关闭完成”, 0, , )
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮3_被单击 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 执行结果 | 逻辑型 | |||||
| 读入的内容1 | 文本型 | |||||
如果真 (编辑框1.内容 ＝ “”)编辑框5.加入文本 (“没有输入单别无法cha询” ＋ #换行符 )编辑框5.文本颜色 ＝ #红色 编辑框3.获取焦点 ()返回 ()
如果真 (编辑框3.内容 ＝ “”)编辑框5.加入文本 (“没有输入单号无法cha询” ＋ #换行符 )编辑框5.文本颜色 ＝ #红色 编辑框3.获取焦点 ()返回 ()如果真 (编辑框4.内容 ＝ “”)编辑框5.加入文本 (“没有输入增加的天数无法cha询” ＋ #换行符 )编辑框5.文本颜色 ＝ #红色 编辑框3.获取焦点 ()返回 ()
sql语句 ＝ 外部数据库1.cha询 (“select * from PURTB where TB001='” ＋ 编辑框1.内容 ＋ “' and TB002='” ＋ 编辑框3.内容 ＋ “' and TB025='N';”)
读入的内容1 ＝ 外部数据库1.读 (sql语句, “TB002”)
如果 (读入的内容1 ＝ “”)编辑框5.加入文本 (“本次执行结果：” ＋ 到文本 (执行结果) ＋ “ 执行失败” ＋ #换行符 )编辑框5.文本颜色 ＝ #红色 编辑框3.获取焦点 ()执行结果 ＝ 外部数据库1.执行 (“update PURTB set TB011=CONVERT(VARCHAR(8), DATEADD(day, ” ＋ 编辑框4.内容 ＋ “, CAST(FORMAT(GETDATE(), 'yyyyMMdd') AS CHAR(8))), 112) where TB001='” ＋ 编辑框1.内容 ＋ “' and TB002='” ＋ 编辑框3.内容 ＋ “' and TB025='N';”, )
编辑框5.加入文本 (“本次执行结果：” ＋ 到文本 (执行结果) ＋ “ 执行成功” ＋ #换行符 )编辑框5.文本颜色 ＝ #墨绿 编辑框6.加入文本 (编辑框3.内容 ＋ #换行符 )编辑框3.获取焦点 ()编辑框3.获取焦点 ()
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮4_被单击 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 读入的内容 | 文本型 | |||||
读入的内容 ＝ 外部数据库1.读 (sql语句, “TB002”)
调试输出 (读入的内容)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| __启动窗口_创建完毕 | |||||
编辑框3.获取焦点 ()
华侨_加载皮肤_炫彩蓝色 ()
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| __启动窗口_将被销毁 | |||||
华侨_卸载皮肤_默认控件 ()
华侨_卸载皮肤_默认窗口 ()
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮6_被单击 | |||||
编辑框3.获取焦点 ()
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮5_被单击 | |||||
编辑框3.起始选择位置 ＝ -1
编辑框3.获取焦点 ()
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮7_被单击 | |||||
编辑框3.获取焦点 ()
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮8_被单击 | |||||
编辑框3.获取焦点 ()
| i支持库列表 | 支持库注释 |
| spec | 特殊功能支持库 |
