| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | | | |
如果 (信息框 (“你确认需要创建新的表单吗？原来数据会清空！”, 4 ＋ 32 ＋ 256,
“提示按钮”,
) ＝ 5
)
局部_字段表
[1
].名称 ＝
“姓名”局部_字段表
[1
].类型 ＝
#文本型 局部_字段表
[1
].最大文本长度 ＝ 10
局部_字段表
[2
].名称 ＝
“学号”局部_字段表
[3
].名称 ＝
“班级”局部_字段表
[3
].类型 ＝
#文本型 局部_字段表
[3
].最大文本长度 ＝ 16
局部_字段表
[4
].名称 ＝
“电话”连续赋值 ( #文本型, 局部_字段表
[4
].类型, 局部_字段表
[2
].类型
)连续赋值 (11, 局部_字段表
[4
].最大文本长度, 局部_字段表
[2
].最大文本长度
)如果 (创建 (“创建命令创建的”, 局部_字段表
))
信息框 (“创建成功！”, 0, ,
)
信息框 (“创建失败!”, 0, ,
)
返回 ()运行 (“DBManager.exe”, 假,
)如果真 (打开 (“创建命令创建的.edb”, , , , , , ,
))
如果真 (加记录 (编辑框_姓名.内容, 编辑框_班级.内容,
到文本 (编辑框_学号.内容
),
到文本 (编辑框_电话.内容
))
)信息框 (“添加成功”, 0, ,
)全部关闭 ()刷新列表 ()
列表框1.
清空 ()如果真 (打开 (“创建命令创建的”,
“创建”, , , , ,
))
计次循环首 (取记录数 (), i
)列表框1.
加入项目 (“姓名：” ＋
读字段 (“姓名”,
) ＋
“ ” ＋
“学号:” ＋
读字段 (“学号”,
) ＋
“ ” ＋
“班级：” ＋
读字段 (“班级”,
) ＋
“ ” ＋
“电话:” ＋
读字段 (“电话”,
),
)
计次循环尾 ()全部关闭 ()运行 (“DBManager.exe /结构管理器”, 真,
)刷新列表 ()如果真 (打开 (“创建命令创建的”,
“创建”, , , , ,
))
跳到 (列表框1.现行选中项 ＋ 1
)如果真 (修改 (编辑框_姓名.内容, 编辑框_学号.内容, 编辑框_班级.内容, 编辑框_电话.内容
))
信息框 (“修改成功！”, 0, ,
)全部关闭 ()刷新列表 ()全部关闭 ()如果真 (打开 (“创建命令创建的”,
“创建”, , , , ,
))
跳到 (列表框1.现行选中项 ＋ 1
)删除 ()彻底删除 ()关闭 (“创建”)刷新列表 ()