设计学生信息查询功能和学生成绩统计程序。
清楚的
设置安全关闭
使用txl
文本
※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
※ 1.输入2。修改3。插入4。删除。
※ 5.按姓名升序显示6。按邮政编码升序显示。
※ 7.按姓名查询8。退出。
※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
结束文本
请按数字键选择“至aa”。
做案例
案例aa=1
去底部
接受“请输入您的姓名:”到xm
接受“请输入性别:”到xb。
请输入电话号码“to dhhm”
请输入您的家庭地址:“致jtzz”
接受“请输入工作单位:”到gzdw。
接受“请输入邮政编码:”到yzbm。
Repl姓名用xm，性别用xb，电话号码用dhhm，家庭住址用jtzz，工作单位用gzdw，邮政编码用yzbm。
案例aa=2
输入“请输入您要修改的记录的编号:”到c。
转到c
"请修改"+str(c，1)+"个人资料！"
分配
接受“请输入您的姓名:”到xm
接受“请输入性别:”到xb。
请输入电话号码“to dhhm”
请输入您的家庭地址:“致jtzz”
接受“请输入工作单位:”到gzdw。
接受“请输入邮政编码:”到yzbm。
Repl姓名用xm，性别用xb，电话号码用dhhm，家庭住址用jtzz，工作单位用gzdw，邮政编码用yzbm。
案例aa=3
追加空白
接受“请输入您的姓名:”到xm
接受“请输入性别:”到xb。
请输入电话号码“to dhhm”
请输入您的家庭地址:“致jtzz”
接受“请输入工作单位:”到gzdw。
接受“请输入邮政编码:”到yzbm。
Repl姓名用xm，性别用xb，电话号码用dhhm，家庭住址用jtzz，工作单位用gzdw，邮政编码用yzbm。
案例aa=4
输入"请输入记录号"到d "你想删除。
去d
删除
接受“请按小写字母Y确认删除，或取消删除)”到e。
如果e="y "
包装
其他
召回
endif
案例aa=5
名称索引到xm
目录
案例aa=6
yzbm的邮政编码索引
目录
案例aa=7
请输入您要查询的姓名“至f”
名称列表=f
案例aa=8
等待“系统即将关闭”窗口超时3
出口
其他
Messagebox("请重新选择"，0+64，"错误")
endc
打开保险箱
*这个程序可以完成任务，但是界面不好。它可以修改如下:
*新建一个窗体(主窗体，form 1)，添加8个按钮，每个按钮的名称标题与上述程序中的菜单相同；添加另一个标题为“Exit”的按钮，并保存表单1。
*新建一个数据处理表单(Form 2)，给表单添加标签，标题为" name "，并添加一个文本控件text1来处理" name "数据；继续给表单添加标签，标题为“性别”，并添加一个文本控件text2来处理“性别”数据；............向表单添加一个标签，标题为“邮政编码”，并添加一个文本控件text6来处理“邮政编码”数据。正确排列标签和文本控件。添加一个标题为“保存”的按钮和另一个标题为“退出”的按钮。
双击表单的空白处，就会出现load事件。进入
thisform.text1.value=xm
thisform.text2.value=xb
thisform.text3.value=dhhm
thisform.text4.value=jtzz
thisform.text5.value=gzdw
thisform.text6.value=yzbm
输入后，关闭load事件，该事件将初始值分配给Form 2中的几个控件。
双击“退出”按钮并进入。
此表单.释放
要关闭活动，请双击“保存”按钮并输入。
用thisform.text1.value复制名称。
性别与thisform.text2.value，；
带有thisform.text2.value的电话号码；
包含thisform.text2.value的家庭地址；
具有thisform.text2.value的工作单元；
thisform.text2.value的邮政编码
保存表格2。
打开表单1，双击表单空白处，会出现load事件。输入:
设置安全关闭
使用txl
公立xm、xb、dhhm、jtzz、gzdw、yzbm
双击“输入”按钮并输入。
去底部
*下面给出了Form 2的初始值。
Xm=名称
Xb=性别
Dhhm=电话号码
Jtzz=家庭地址
Gzdw=工作单位
Yzdm=邮政编码
请填写表格2
双击修改按钮并输入
输入“请输入您要修改的记录的编号:”到c。
转到c
*下面给出了Form 2的初始值。
Xm=名称
Xb=性别
Dhhm=电话号码
Jtzz=家庭地址
Gzdw=工作单位
Yzdm=邮政编码
请填写表格2
双击插入按钮并输入。
appe空白
*下面给出了Form 2的初始值。
Xm=名称
Xb=性别
Dhhm=电话号码
Jtzz=家庭地址
Gzdw=工作单位
Yzdm=邮政编码
请填写表格2
双击删除按钮并输入
输入"请输入记录号"到d "你想删除。
去d
删除
接受“请按小写字母Y确认删除，或取消删除)”到e。
如果e="y "
包装
其他
召回
endif
双击“按姓名升序显示”按钮并输入
名称索引到xm
表情
双击“按邮政编码升序显示”按钮，输入。
yzbm的邮政编码索引
表情
双击“按名称查询”按钮并输入
请输入您要查询的姓名“至f”
浏览名称=f
双击“退出”按钮并进入。
关闭数据
打开保险箱
此表单.释放