|
发表于 2010-8-27 00:44:43
|
显示全部楼层
海南省海口市
[e].版本 2
.支持库 iext
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
超级列表框1.类型 = 3
超级列表框1.显示表格线 = 真
超级列表框1.整行选择 = 真
超级列表框1.插入列 (0, “帐号”, 150, , , )
超级列表框1.插入列 (1, “密码”, 150, , , )
.子程序 _按钮1_被单击
.如果真 (编辑框_ID.内容 = “” 且 编辑框_PA.内容 = “”)
信息框 (“请认真填写”, 0, )
返回 ()
.如果真结束
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (超级列表框1.取表项数 () - 1, 0, 编辑框_ID.内容)
超级列表框1.置标题 (超级列表框1.取表项数 () - 1, 1, 编辑框_PA.内容)
.子程序 _超级列表框1_左键单击表项
.如果真 (超级列表框1.取表项数 () = 0)
返回 ()
.如果真结束
编辑框_ID.内容 = 超级列表框1.取标题 (超级列表框1.现行选中项, 0)
编辑框_PA.内容 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1)
[/e] |
|