第1个回答 2012-03-01
包括动态创建数据库,测试无误
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.如果真 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “”)
加空记录 ()
写 (“账号”, 编辑框1.内容)
写 (“密码”, 编辑框2.内容)
.如果真结束
.子程序 __启动窗口_创建完毕
.局部变量 数据库, 文本型
.局部变量 数据字段, 字段信息, , "2"
数据库 = 取运行目录 () + “\数据库.edb”
.如果真 (文件是否存在 (数据库) = 假)
数据字段 [1].名称 = “账号”
数据字段 [1].类型 = #文本型
数据字段 [1].最大文本长度 = 24
数据字段 [2].名称 = “密码”
数据字段 [2].类型 = #文本型
数据字段 [2].最大文本长度 = 50
创建 (数据库, 数据字段)
.如果真结束
.如果真 (打开 (数据库, , , , , , ) = 假)
信息框 (“打开数据失败!”, 0, )
返回 ()
.如果真结束