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

KD飞飞

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

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
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.获取焦点 ()

熊不熊

感谢分享，很给力！~

唐山祥子

        支持开源~！感谢分享

396384183

支持开源~！感谢分享

396384183

支持开源~！感谢分享

豆豆灰常开心

下个学习一下

查过

感谢楼主分享！

夏亿

支持开源~！感谢分享

kyo9766

可以学习一下 SQLserver数据库 ，感谢分享

xiaojiancccc

感谢分享！！！！