|
20精币
.版本 2
.支持库 iext
.支持库 spec
.子程序 _窗口6_创建完毕
.局部变量 字段信息, 字段信息, , "38"
.如果真 (文件是否存在 (取运行目录 () + “\deng.edb”) = 假)
字段信息 [1].名称 = “编号”
字段信息 [1].类型 = #文本型
字段信息 [2].名称 = “姓名”
字段信息 [2].类型 = #文本型
字段信息 [2].最大文本长度 = 20
字段信息 [3].名称 = “照片”
字段信息 [3].类型 = #字节集型
字段信息 [4].名称 = “联系人”
字段信息 [4].类型 = #文本型
字段信息 [4].最大文本长度 = 10
字段信息 [5].名称 = “性别”
字段信息 [5].类型 = #文本型
字段信息 [5].最大文本长度 = 200
字段信息 [6].名称 = “类型”
字段信息 [6].类型 = #文本型
字段信息 [6].最大文本长度 = 100
字段信息 [7].名称 = “身份证”
字段信息 [7].类型 = #文本型
字段信息 [7].最大文本长度 = 200
字段信息 [8].名称 = “出生日期”
字段信息 [8].类型 = #文本型
字段信息 [8].最大文本长度 = 200
字段信息 [9].名称 = “联系电话”
字段信息 [9].类型 = #文本型
字段信息 [9].最大文本长度 = 100
字段信息 [10].名称 = “座机”
字段信息 [10].类型 = #文本型
字段信息 [10].最大文本长度 = 100
字段信息 [11].名称 = “公司名称”
字段信息 [11].类型 = #文本型
字段信息 [11].最大文本长度 = 100
字段信息 [12].名称 = “传真”
字段信息 [12].类型 = #文本型
字段信息 [12].最大文本长度 = 100
字段信息 [13].名称 = “区域”
字段信息 [13].类型 = #文本型
字段信息 [13].最大文本长度 = 200
字段信息 [14].名称 = “行业”
字段信息 [14].类型 = #文本型
字段信息 [14].最大文本长度 = 200
字段信息 [15].名称 = “营业执照”
字段信息 [15].类型 = #文本型
字段信息 [15].最大文本长度 = 200
字段信息 [16].名称 = “组织机构代码”
字段信息 [16].类型 = #文本型
字段信息 [16].最大文本长度 = 200
字段信息 [17].名称 = “开户银行”
字段信息 [17].类型 = #文本型
字段信息 [17].最大文本长度 = 200
字段信息 [18].名称 = “邮箱/QQ”
字段信息 [18].类型 = #文本型
字段信息 [18].最大文本长度 = 200
字段信息 [19].名称 = “所属户口”
字段信息 [19].类型 = #文本型
字段信息 [19].最大文本长度 = 200
字段信息 [20].名称 = “邮编”
字段信息 [20].类型 = #文本型
字段信息 [20].最大文本长度 = 200
字段信息 [21].名称 = “地址”
字段信息 [21].类型 = #文本型
字段信息 [21].最大文本长度 = 512
字段信息 [22].名称 = “亲属1”
字段信息 [22].类型 = #文本型
字段信息 [22].最大文本长度 = 200
字段信息 [23].名称 = “关系1”
字段信息 [23].类型 = #文本型
字段信息 [23].最大文本长度 = 200
字段信息 [24].名称 = “联系电话1”
字段信息 [24].类型 = #文本型
字段信息 [24].最大文本长度 = 200
字段信息 [25].名称 = “单位1”
字段信息 [25].类型 = #文本型
字段信息 [25].最大文本长度 = 512
字段信息 [26].名称 = “亲属2”
字段信息 [26].类型 = #文本型
字段信息 [26].最大文本长度 = 200
字段信息 [27].名称 = “关系2”
字段信息 [27].类型 = #文本型
字段信息 [27].最大文本长度 = 200
字段信息 [28].名称 = “联系电话2”
字段信息 [28].类型 = #文本型
字段信息 [28].最大文本长度 = 200
字段信息 [29].名称 = “单位2”
字段信息 [29].类型 = #文本型
字段信息 [29].最大文本长度 = 512
字段信息 [30].名称 = “朋友3”
字段信息 [30].类型 = #文本型
字段信息 [30].最大文本长度 = 200
字段信息 [31].名称 = “关系3”
字段信息 [31].类型 = #文本型
字段信息 [31].最大文本长度 = 200
字段信息 [32].名称 = “联系电话3”
字段信息 [32].类型 = #文本型
字段信息 [32].最大文本长度 = 200
字段信息 [33].名称 = “单位3”
字段信息 [33].类型 = #文本型
字段信息 [33].最大文本长度 = 512
字段信息 [34].名称 = “朋友4”
字段信息 [34].类型 = #文本型
字段信息 [34].最大文本长度 = 200
字段信息 [35].名称 = “关系4”
字段信息 [35].类型 = #文本型
字段信息 [35].最大文本长度 = 200
字段信息 [36].名称 = “联系电话4”
字段信息 [36].类型 = #文本型
字段信息 [36].最大文本长度 = 200
字段信息 [37].名称 = “单位4”
字段信息 [37].类型 = #文本型
字段信息 [37].最大文本长度 = 512
字段信息 [38].名称 = “备注”
字段信息 [38].类型 = #备注型
字段信息 [38].最大文本长度 = 512
创建 (取运行目录 () + “\deng.edb”, 字段信息)
.如果真结束
.如果真 (打开 (取运行目录 () + “\deng.edb”, “水库”, , , , , ) = 假)
信息框 (“数据库打开失败”, 0, , )
结束 ()
.如果真结束
刷新 ()
返回 ()
.如果真 (文件是否存在 (取运行目录 () + “\deng.edb”) = 假)
写到文件 (取运行目录 () + “\deng.edb”, #数据库)
写到文件 (取运行目录 () + “\deng.edt”, #数据库附件)
.如果真结束
.子程序 刷新
.局部变量 表项索引, 整数型
.局部变量 I, 整数型
.局部变量 行, 整数型
.局部变量 列, 整数型
.局部变量 内容, 文本型
超级列表框1.全部删除 ()
打开数据库 ()
调试输出 (“记录数”, 取记录数 ())
到首记录 ()
.计次循环首 (取记录数 (), I)
跳到 (I)
表项索引 = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (表项索引, 0, 到文本 (I))
超级列表框1.置标题 (表项索引, 1, 读 (“姓名”))
超级列表框1.置标题 (表项索引, 2, 读 (“联系人”))
超级列表框1.置标题 (表项索引, 3, 读 (“性别”))
超级列表框1.置标题 (表项索引, 4, 读 (“类型”))
超级列表框1.置标题 (表项索引, 5, 读 (“身份证”))
超级列表框1.置标题 (表项索引, 6, 读 (“出生日期”))
超级列表框1.置标题 (表项索引, 7, 读 (“联系电话”))
超级列表框1.置标题 (表项索引, 8, 读 (“座机”))
超级列表框1.置标题 (表项索引, 9, 读 (“公司名称”))
超级列表框1.置标题 (表项索引, 10, 读 (“传真”))
超级列表框1.置标题 (表项索引, 11, 读 (“区域”))
超级列表框1.置标题 (表项索引, 12, 读 (“行业”))
超级列表框1.置标题 (表项索引, 13, 读 (“营业执照”))
超级列表框1.置标题 (表项索引, 14, 读 (“身组织机构代码”))
超级列表框1.置标题 (表项索引, 15, 读 (“开户银行”))
超级列表框1.置标题 (表项索引, 16, 读 (“银行卡号”))
超级列表框1.置标题 (表项索引, 17, 读 (“邮箱/QQ”))
超级列表框1.置标题 (表项索引, 18, 读 (“所属户口”))
超级列表框1.置标题 (表项索引, 19, 读 (“邮编”))
超级列表框1.置标题 (表项索引, 20, 读 (“地址”))
超级列表框1.置标题 (表项索引, 21, 读 (“亲属1”))
超级列表框1.置标题 (表项索引, 22, 读 (“关系1”))
超级列表框1.置标题 (表项索引, 23, 读 (“联系电话1”))
超级列表框1.置标题 (表项索引, 24, 读 (“单位1”))
超级列表框1.置标题 (表项索引, 25, 读 (“亲属2”))
超级列表框1.置标题 (表项索引, 26, 读 (“关系2”))
超级列表框1.置标题 (表项索引, 27, 读 (“联系电话2”))
超级列表框1.置标题 (表项索引, 28, 读 (“单位2”))
超级列表框1.置标题 (表项索引, 29, 读 (“朋友3”))
超级列表框1.置标题 (表项索引, 30, 读 (“关系3”))
超级列表框1.置标题 (表项索引, 31, 读 (“联系电话3”))
超级列表框1.置标题 (表项索引, 12, 读 (“单位3”))
超级列表框1.置标题 (表项索引, 33, 读 (“朋友4”))
超级列表框1.置标题 (表项索引, 34, 读 (“关系4”))
超级列表框1.置标题 (表项索引, 35, 读 (“联系电话4”))
超级列表框1.置标题 (表项索引, 36, 读 (“单位4”))
超级列表框1.置标题 (表项索引, 37, 读 (“备注”))
.计次循环尾 ()
按钮_刷新.禁止 = 假
关闭数据库 ()
.子程序 打开数据库
置当前库 (“水库”)
到首记录 ()
.子程序 关闭数据库
' 关闭 (“水库”)
帮我看看什么问题
|
|