自学考试管理信息系统中计算机应用(样板)_图文

《自学考试管理信息系统中计算机应用(样板)_图文》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、辽宁省高等教育自学考试专业实验报告书课程名称助学单位姓名准考证号成绩实验报告课程名称：创建简单应用程序系统年月曰助学单位专业姓名班级考号实验名称创建简单应用程序系统实验目的仪器设备CPU：Intel®Pentium®DualE2200@2.20GHz内存：1G操作系统：MicrosoftWindowsXPProfessional版本2002ServicePack2软件平台：VisualFoxPro6.0中文版注意事项•实验原理（实验步骤及现象）1、学牛学籍管理系统主程序源代码（可定义程序名为main

2、.prg）_SCREEN.WINDOWSTATE=2&&设宜窗口规格为第2种系统窗口_SCREEN.CAPTION=n学生学籍管理系统“&&设置窗口标题为“学生学籍管理系统”_SCREEN.CLOSABLE二.T.&&去掉关闭按钮_SCREEN.CONTROLBOX=.F.&&去掉控制按钮_SCREEN.MAXBUTTON=.F.&&去掉最大化按钮_SCREEN.MINBUTTON=.F.&&去掉最小化按钮_SCREEN.BACKCOLOR=RGB（50,IOO,128）&&设置窗口的背景色CLOS

3、EALLCLEARALLCLEARSETSYSMENUOFFSETSYSMENUTOSETTALKOFFSETSAFETYOFFSETSTATUSBAROFF&&关闭VisualFoxpro的状态栏DOFORMA:封面.SCX&&调用系统登录“封面”表单READEVENT&&响应用户输入DOA:菜单.MPX&&运行系统菜单READEVENTSETSYSMENUTODEFAULT&&恢复VisualFoxpro的系统菜单的默认值SETSYSMENUON&&显示VisualFoxpro的系统菜单SE

4、TSTATUSBARON&&显示VisualFoxpro的状态栏CLOSEALL&&关闭所冇文件CLEARALLRETURN&&返冋2、封面表单源代码（A:封面.set）PROCEDUREClick&&确定按钮的单击事件过程SETEXACTON&&设宜精确比较命令IFTHISFORM.textl.VALUE=n8888u&&如果文木框的值是8888THISFORM.RELEASE&&那么释放封面表单DOA:菜单.MPX&&运行菜单程序ELSE&&否则THISFORM.NOTHISFORM.NO+

5、1&&将自定义属性NO的值山0加1IFTHISFORM.NO>=3&&如果自定义属性NO的值为3二MESSAGEBOX（”密码三次输错，您不能使用本系统！“,0+16+0,“学生学籍管理系统“）&&那么弹出内容为“密码三次输错，您不能使用本系统！”的对话框QUIT&&结束程序的运行ELSE&&否则二MESSAGEBOX（”密码错误!”,48+0+0,”警告“）&&弹出内容为“密码错误!”的对话框THISFORM.tex】VALUED”&&设置文本框的内容为空THISFORM.textl.SETFOC

6、US&&并将光标定位至U文本框中THISFORM.REFRESH&&刷新封面表单ENDIFENDIFSETEXACTOFF&&设置关闭精确比较命令ENDPROCPROCEDUREClick&&取消按钮的单击事件过程THISFORM.RELEASE&&释放封面表单CLOSEALL&&关闭所有文件CLEAREVENTquitENDPROC3、录入数据表单源代码（A:录入.set,如图2所示）PROCEDUREInit&&录入数据表单的初始化事件过程SETTALKOFFTHISFORM.commandg

7、ro叩l.command4.ENABLED二.f.&&设置第四个按钮为不可用状态THISFORM.commandgro叩l.command5.ENABLED二.f.&&设置第五个按钮为不可用状态THISFORM.txt学号.ENABLED二£&&设査学号文本框为不可用状态THISFORM.txt姓名.ENABLED".&&设置姓名文本框为不可用状态THISFORM.combo1.ENABLED二.f.THISFORM.combo2.ENABLED=.f.THISFORM.combo3.ENABLED

8、=.f.THISFORM.combo4.ENABLED=.f.&&设迸组合框&&设置组合框&&设置组合框&&设置组合框1为不可川状态2为不可用状态3为不可用状态4为不nJ*用状态THISFORM.txt邮编.ENABLED二.f.THISFORM.txt高数.ENABLED二.f.THISFORM.txt英语.ENABLED二.f.&&设置邮编文本框为不可用状态&&设置高数文本框为不可用状态&&设置英语文木框为不可用状态THISFORM.txtVfp.ENABLED=