.版本 2
.程序集 窗口程序集_启动窗口
.子程序 _连接按钮1_被单击
.局部变量 IP地址, 文本型
.局部变量 连接服务器, 逻辑型
连接服务器 = 外部数据库1.打开SQL数据库 (IP地址, “sa”, “123456”, “ceshi”, , )
IP地址 = 到文本 (读入文件 (取运行目录 () + “\IP地址.txt”))
.判断开始 (IP地址 ≠ “”)
.如果 (连接服务器 = 真)
连接标签1.标题 = “连接服务器成功”
.否则
连接标签1.标题 = “连接服务器失败”
.如果结束
.默认
信息框 (“请设置IP”, 0, , )
.判断结束
.子程序 _连接标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.子程序 __启动窗口_创建完毕
.局部变量 组合框文本, 文本型
.局部变量 文本, 文本型, , "0"
.局部变量 循环变量, 整数型
登录名组合框1.获取焦点 ()
组合框文本 = 到文本 (读入文件 (取运行目录 () + “\登录用户名.txt”))
文本 = 分割文本 (组合框文本, “@”, )
.计次循环首 (取数组成员数 (文本), 循环变量)
登录名组合框1.加入项目 (文本 [循环变量], 循环变量)
.计次循环尾 ()
.子程序 _IP设置_被选择
载入 (IP设置窗口, , 真)
.子程序 _关闭按钮1_被单击
销毁 ()
.子程序 _登录按钮_被单击
.局部变量 登录名, 字节集
.局部变量 sql语句, 整数型
登录名 = 读入文件 (取运行目录 () + “\登录用户名.txt”)
写到文件 (取运行目录 () + “\登录用户名.txt”, 登录名 + 到字节集 (登录名组合框1.内容 + “@”))
.判断开始 (sql语句 = 外部数据库1.查询 (“select * from dbo.Table_1 where 用户名 ='” + 登录名组合框1.内容 + “'”) = 真)
编辑框2.内容 = 外部数据库1.读 (sql语句, “密码”)
.默认
信息框 (2, 0, , )
.判断结束
.子程序 _清空常用按钮1_被单击
写到文件 (取运行目录 () + “\登录用户名.txt”, 到字节集 (“”))
登录名组合框1.内容 = “”
刷新显示 ()
.子程序 _登录名组合框1_列表项被选择
.子程序 _编辑框2_内容被改变
服务器连接成功了