新手向-SQLserver数据库连接和执行

KD飞飞 · 发表于 2024-11-14 22:54:00

看的懂看源码
看不懂下源码
啥也不需要，原生连接
业务已采用，嘎嘎板正

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
sql语句	整数型

子程序名	返回值类型	公开	备注
_按钮1_被单击

如果 (外部数据库1.打开SQL数据库 (“127.0.0.1”, “sa”, “你的数据库密码”, “你的数据库账套名数据库名”, , ) ＝真)

处理事件 ()

' select * from da_spda where barcode =

处理事件 ()

按钮3.可视＝真

信息框 (“连接失败”, 0, , )

返回 ()

子程序名	返回值类型	公开	备注
_按钮2_被单击

外部数据库1.关闭 ()
信息框 (“关闭完成”, 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_被单击

变量名	类型	静态	数组	备注
读入的内容	文本型

sql语句＝外部数据库1.cha询 (“select * from PURTB where TB001='3101' and TB002='241108005' and TB025='N';”)
读入的内容＝外部数据库1.读 (sql语句, “TB002”)
调试输出 (读入的内容)

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

_按钮1_被单击 ()
编辑框3.获取焦点 ()
华侨_加载皮肤_炫彩蓝色 ()

子程序名	返回值类型	公开	备注
__启动窗口_将被销毁

外部数据库1.关闭 ()
华侨_卸载皮肤_默认控件 ()
华侨_卸载皮肤_默认窗口 ()

子程序名	返回值类型	公开	备注
_按钮6_被单击

编辑框3.内容＝ “”
编辑框3.获取焦点 ()

子程序名	返回值类型	公开	备注
_按钮5_被单击

编辑框3.内容＝取剪辑板文本 ()
编辑框3.起始选择位置＝ -1
编辑框3.获取焦点 ()

子程序名	返回值类型	公开	备注
_按钮7_被单击

编辑框4.内容＝到文本 (到数值 (编辑框4.内容) ＋ 1)
编辑框3.获取焦点 ()

子程序名	返回值类型	公开	备注
_按钮8_被单击

编辑框4.内容＝到文本 (到数值 (编辑框4.内容) － 1)
编辑框3.获取焦点 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br />
.支持库 spec<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 sql语句, 整数型<br />
<br />
.子程序 _按钮1_被单击<br />
<br />
.如果 (外部数据库1.打开SQL数据库 (“127.0.0.1”, “sa”, “你的数据库密码”, “你的数据库账套名 数据库名”, , ) ＝ 真)<br />
    处理事件 ()<br />
<br />
    ' select * from da_spda where barcode =<br />
    处理事件 ()<br />
    按钮3.可视 ＝ 真<br />
<br />
.否则<br />
<br />
    信息框 (“连接失败”, 0, , )<br />
    返回 ()<br />
<br />
.如果结束<br />
<br />
<br />
.子程序 _按钮2_被单击<br />
<br />
外部数据库1.关闭 ()<br />
信息框 (“关闭完成”, 0, , )<br />
<br />
.子程序 _按钮3_被单击<br />
.局部变量 执行结果, 逻辑型<br />
.局部变量 读入的内容1, 文本型<br />
<br />
.如果真 (编辑框1.内容 ＝ “”)<br />
    编辑框5.加入文本 (“没有输入单别无法cha询” ＋ #换行符)<br />
    编辑框5.文本颜色 ＝ #红色<br />
    编辑框3.获取焦点 ()<br />
    返回 ()<br />
.如果真结束<br />
.如果真 (编辑框3.内容 ＝ “”)<br />
    编辑框5.加入文本 (“没有输入单号无法cha询” ＋ #换行符)<br />
    编辑框5.文本颜色 ＝ #红色<br />
    编辑框3.获取焦点 ()<br />
    返回 ()<br />
<br />
.如果真结束<br />
.如果真 (编辑框4.内容 ＝ “”)<br />
    编辑框5.加入文本 (“没有输入增加的天数无法cha询” ＋ #换行符)<br />
    编辑框5.文本颜色 ＝ #红色<br />
    编辑框3.获取焦点 ()<br />
    返回 ()<br />
<br />
.如果真结束<br />
<br />
sql语句 ＝ 外部数据库1.cha询 (“select * from PURTB where TB001='” ＋ 编辑框1.内容 ＋ “' and TB002='” ＋ 编辑框3.内容 ＋ “' and TB025='N';”)<br />
读入的内容1 ＝ 外部数据库1.读 (sql语句, “TB002”)<br />
<br />
<br />
.如果 (读入的内容1 ＝ “”)<br />
    编辑框5.加入文本 (“本次执行结果：” ＋ 到文本 (执行结果) ＋ “ 执行失败” ＋ #换行符)<br />
    编辑框5.文本颜色 ＝ #红色<br />
    编辑框3.获取焦点 ()<br />
<br />
.否则<br />
<br />
    执行结果 ＝ 外部数据库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';”, )<br />
    编辑框5.加入文本 (“本次执行结果：” ＋ 到文本 (执行结果) ＋ “ 执行成功” ＋ #换行符)<br />
    编辑框5.文本颜色 ＝ #墨绿<br />
    编辑框6.加入文本 (编辑框3.内容 ＋ #换行符)<br />
<br />
    编辑框3.获取焦点 ()<br />
<br />
<br />
<br />
.如果结束<br />
编辑框3.获取焦点 ()<br />
<br />
<br />
.子程序 _按钮4_被单击<br />
.局部变量 读入的内容, 文本型<br />
<br />
sql语句 ＝ 外部数据库1.cha询 (“select * from PURTB where TB001='3101' and TB002='241108005' and TB025='N';”)<br />
读入的内容 ＝ 外部数据库1.读 (sql语句, “TB002”)<br />
调试输出 (读入的内容)<br />
<br />
<br />
<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
_按钮1_被单击 ()<br />
编辑框3.获取焦点 ()<br />
华侨_加载皮肤_炫彩蓝色 ()<br />
<br />
.子程序 __启动窗口_将被销毁<br />
<br />
外部数据库1.关闭 ()<br />
华侨_卸载皮肤_默认控件 ()<br />
华侨_卸载皮肤_默认窗口 ()<br />
<br />
<br />
.子程序 _按钮6_被单击<br />
<br />
编辑框3.内容 ＝ “”<br />
编辑框3.获取焦点 ()<br />
<br />
<br />
.子程序 _按钮5_被单击<br />
<br />
编辑框3.内容 ＝ 取剪辑板文本 ()<br />
编辑框3.起始选择位置 ＝ -1<br />
编辑框3.获取焦点 ()<br />
<br />
<br />
.子程序 _按钮7_被单击<br />
<br />
编辑框4.内容 ＝ 到文本 (到数值 (编辑框4.内容) ＋ 1)<br />
编辑框3.获取焦点 ()<br />
<br />
.子程序 _按钮8_被单击<br />
<br />
编辑框4.内容 ＝ 到文本 (到数值 (编辑框4.内容) － 1)<br />
编辑框3.获取焦点 ()