VisualFoxpro编程实例

实验五VisualFoxpro编程实践实验目的与要求掌握利用VisualFoxpro编制开发自己的应用程序的实践知识，并学会在程序调试中自行发现问题和修改程序代码，最终完成应用程序的无错运行。相关知识利用VisualFoxpro自行开发编制应用程序的步骤：设置好系统的工作环境(尤其注意工作 目录 工贸企业有限空间作业目录特种设备作业人员作业种类与目录特种设备作业人员目录1类医疗器械目录高值医用耗材参考目录 的默认设置)。如果是初次进行，应当先建立一个项目，为该项目命名，激活项目管理器。如果是接着上次的工作进行，则打开上次工作的本项目，同样也激活项目管理器。在项目管理器的“数据”9“数据库”下面创建一个数据库，并命名(如已创建，则跳过本步骤)。在项目管理器的“数据”9“数据库”9“ 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf ”下面进行数据表的创建或修改工作，并输入少量的正确数据以便将来的运行调试(如果已经创建了数据表，则跳过本步骤)。在项目管理器的“文档”下面创建该应用程序所用到的所有表单， 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 好各表单的界面并为表单里的控件填写程序代码.(注意为表单添加各自的数据环境，否则会出错!)试运行各表单，发现问题后重新修改有问题的表单的代码，反复调试和修改直至最后能无错运行。将应用程序打包发布或制作成安装文件。实验容与步骤本次实验以一个简单的学生成绩管理系统为例。首先，对该系统作一个简单的介绍：该应用系统为完成学生信息和成绩的管理系统，主要有以下几个应用模块：用户登录管理：系统具有管理员功能，只有取得管理员权限的人才能使用本系统。数据添加功能：对学生基本信息、教师基本信息、班级信息、课程信息、学生成绩信息进行添加录入。数据查询功能：对上述信息的基本查询。数据修改功能：对上述信息可进行修改工作。统计操作：可分别按个人成绩、单科成绩统计出最高成绩、最低成绩和平均成绩等。打印功能：对上述信息可进行打印。实验步骤如下：数据库设计：首先设置好系统的运行环境和工作目录，然后建立项目，为项目命名为“学生成绩管理系统”，激活项目管理器，并在在项目管理器的“数据”9“数据库”下面创建一个数据库，命名为“学生成绩管理”，在“数据库”的“表”下面创建以下各数据表：(1)用户信息表user(表名命名为user即可，不要加汉字。以下同。)字段名称类型宽度用户名字符型10密码字符型10(2)学生信息表student字段名称类型宽度学号字符型8字符型10性别字符型2班级编号字符型6出生日期日期型8⑶教师信息表teacher字段名称类型宽度教师代码字符型4字符型10性别字符型2职称字符型10部门字符型10出生日期日期型8⑷班级信息表classes字段名称类型宽度班级编号字符型6年级字符型4专业字符型10系代码字符型2学制字符型2类型字符型4⑸课程信息表course字段名称类型宽度课程代码字符型6课程名称字符型16类别字符型4教师代码字符型4(6)分数信息表score字段名称类型宽度学号字符型8课程代码字符型6成绩数值型4创建好以上数据表以后，应该向每个表中添加适量合法数据以便后面的测试。表单设计2.1登录模块功能描述：实现只有指定的用户才能访问系统的功能。并且，只有身份为“管理员”的用户才可以调用修改模块修改数据。界面设计：表单名称：login文件名：login.scx数据环境：user.dbf对象设置：对象属性值说明Form1Caption欢迎使用学生成绩管理系统Lable1Caption学生成绩管理系统Lable2Caption请输入用户名：Lable3Caption请输入密码：Combo1RowSourceType6-字段指定数据值来源类型RowSourceUser.用户名指定数据值来源Cammand1Caption登录Cammand2Caption退出函数与方法声明：Commandl中的Click事件功能：完成在登录时对输入的用户名和密码的检验，如果数据表user中存在输入的用户名和密码信息，则调用主窗口(如果是管理员则不但调用主窗口，还允许执行主窗口的修改功能)，否则提示输入错误。程序 清单 安全隐患排查清单下载最新工程量清单计量规则下载程序清单下载家私清单下载送货清单下载 ：privatekl，yh，stst='密码不正确，请重新输入!’useuserkl=alltrim(thisform.text1.value)yh=alltrim(thisform.combo1.value)*将用户输入的用户名和密码的值分别保存在yh和kl变量中locateforalltrim(thisform.combo1.value)==alltrim(user.用户名)*在user表中查找是否有与yh和kl匹配的记录iffound()andalltrim(user.密码)==kl*正确的用户名和密码thisform.visible=.f.closetablesalldoformmain.scxifyh=='admin'*如果是超级用户管理员，则允许他使用main表单中的第三组按钮(即修改模块)main.optiongroup1.option3.enabled=.t.endifthis.parent.text1.value="else*错误的用户名和密码，系统给出提示，延迟2秒waitwindowsttimeout2thisform.text1.value="thisform.text1.setfocusendifCommand2中的Click事件功能：退出学生成绩管理系统程序清单：cleareventsquit⑶Forml的Destroy事件功能：意外关闭程序窗口时的处理程序清单：clearevents2.2主界面模块功能描述：主要是提供本系统各功能模块的入口.界面设计：垩擘生成或管理在地口欢迎使用孕生成婿管理系统”,:;;…奇里择要操::;;i■h■11iiia11i■«11iaa11i■i11i::;;ii■i■11■Ba11■ii■11mani11ian11i■Ii■111■i11iia11■in11■in11iii■11ihn11i■ii11iia11i■□11i■iiiii11■■■1■■1■1■■1■U■■11■■■11■H■11■II■11fj:npi壹诲逸勰；；；；■■■■■ii■■■ii■■■■ii■a■iini■ii::.a11■inmniiiuaii11■11im11i:::111111j11hiii■iii11■iia11im11iin11mil11111i11ramil11■aa...J.,^Uxr.-Hr*i■riii11<■11iiii■ii■111i■111i：；：：：：：：iii■iiI11■FR■1IFl■11F9111■V111R■!111J\-1■F«111"6&思由亲晚Ml；ll-<ii■iIII*1!!■：“二…L…L表单名称：main文件名：main.scx数据环境：无对象设置:对象属性值Form1Caption学生成绩管理系统Lable1Caption欢迎使用学生成绩管理系统Lable2Caption请选择要操作的容：Optiongroup1ButtonCount6Optiongroup1.Option1Caption添加记录Optiongroup1.Option2Caption查询记录Optiongroup1.Option3Caption修改记录Optiongroup1.Option3Enabled.F.Optiongroup1.Option4Caption统计数据Optiongroup1.Option5Caption打印报表Optiongroup1.Option6Caption退出系统函数与方法声明：Optiongroupl中的IntelactiveChange事件：功能：根据Optiongroupl中的选择单击按钮，调用各重要功能模块.程序清单：docasecasethis.value=1doform添加casethis.value=2doform查询casethis.value=3doform修改casethis.value=4doform统计casethis.value=5doform打印casethis.value=6thisform.releasequitendcaseOptiongroupl中的每一个Option的Click事件：功能：与(1)中不同，(1)是指在Optiongroup中的各个Option切换时才触发的程序，仅这样还不够，还要编写每个Option被单击时触发的程序才完整。程序清单：对应Optiongroup1.Option1的Click事件：doform添加.(其余类推)2.3数据添加模块功能描述：用户通过5个不同的页面来完成对学生信息表、教师信息表、班级表、课程表和成绩表的数据添加操作。界面设计：表单名称：添加文件名：添加.scx数据环境：student.dbf,class.dbf,score.dbf,teacher.dbf,course.dbf对象设置:对象属性值说明Form1Caption添加PageFrame1PageCount5Command1Caption返回主菜单主表单中的Command1Page1Caption学生表Page2Caption教师表Page3Caption班级表Page4Caption课程表Page5Caption成绩表Command1Caption添加与上面的Command1不同，这是在各个页面中的Command1Command2Caption清空函数与方法声明：因为添加表单中对于5个表的操作方法类似，所以这里只给出学生表的添加部分，其余4个页面的程序请同学们自己对照思考和编制。Forml中的Active事件功能：设置焦点位置程序清单：this.pageframel.pagel.textl.setfocusForml中的Commandl的Click事件功能：释放当前窗口程序清单：thisform.releasePagel中Commandl的Click事件功能：将输入的新记录信息添加到学生表中，完成新记录的添加工作程序清单：&&并非是num1=alltrim(thisform.pageframe1.page1.text1.value)num2=alltrim(thisform.pageframe1.page1.text2.value)num3=alltrim(thisform.pageframe1.page1.text3.value)num4=alltrim(thisform.pageframe1.page1.text4.value)num5=alltrim(dtoc(thisform.pageframe1.page1.text5.value))alltrim(thisform.pageframe1.page1.text5.value)setexactondocasecasenum1=''messagebox('学号不能为空!'，0+48,'系统提示!')thisform.pageframe1.page1.text1.setfocuscasenum2=''messagebox('不能为空!'，0+48,'系统提示!')thisform.pageframe1.page1.text2.setfocuscasenum3=''messagebox('性别不能为空!'，0+48,'系统提示!')thisform.pageframe1.page1.text3.setfocuscasenum4=''messagebox('班级编号不能为空!'，0+48，'系统提示!')thisform.pageframe1.page1.text4.setfocuscasenum5=''messagebox('出生日期不能为空!'，0+48，'系统提示!')thisform.pageframe1.page1.text5.setfocusotherwisea=messagebox('确认添加么？'，1+64+0，'系统提示!')ifa=1selectstudentgobottominsertintostudent(学号，，性别，班级编号，出生日期)values(num1，num2,num3,num4，ctod(num5))messagebox('添加成功!')elsethisform.pageframe1.page1.text1.setfocusendifendcase(4)Pagel中的Command2的Click事件：功能：清空当前页面上输入的数据程序清单：this.parent.text1.value="this.parent.text2.value="this.parent.text3.value="this.parent.text4.value="this.parent.text5.value="由于其它各个页面上的添加数据的操作小异，这里不再赘述。比如：num1=alltrim(thisform.pageframe1.page2.text1.value)num2=alltrim(thisform.pageframe1.page2.text2.value)num3=alltrim(thisform.pageframe1.page2.text3.value)num4=alltrim(thisform.pageframe1.page2.text4.value)num5=alltrim(thisform.pageframe1.page2.text5.value)num6=alltrim(dtoc(thisform.pageframe1.page2.text6.value))&&并非是alltrim(thisform.pageframe1.page2.text6.value)setexactondocasecasenum1=''messagebox('教师代码不能为空!',0+48,'系统提示!')thisform.pageframe1.page2.text1.setfocuscasenum2=''messagebox('不能为空!',0+48,'系统提示!')thisform.pageframe1.page2.text2.setfocuscasenum3=''messagebox('性别不能为空!',0+48,'系统提示!')thisform.pageframe1.page2.text3.setfocuscasenum4=''messagebox('职称不能为空!',0+48,'系统提示!')thisform.pageframe1.page2.text4.setfocuscasenum5=''messagebox('部门不能为空!',0+48,'系统提示!')thisform.pageframe1.page2.text5.setfocuscasenum6=''messagebox('出生日期不能为空!',0+48,'系统提示!')thisform.pageframe1.page2.text6.setfocusotherwisea=messagebox('确认添加么？',1+64+0,'系统提示!')ifa=1selectstudentgobottominsertintostudent(教师代码，，性别，职称，部门，出生日期)values(num1,num2,num3,num4,num5,ctod(num6))messagebox('添加成功!')elsethisform.pageframe1.page2.text1.setfocusendifendcase2.4数据查询模块功能描述：用户可以通过不同的页面完成对5个不同表中的数据的查询操作界面设计：表单名称：查询文件名：查询.scx数据环境：student.dbf,class.dbf,score.dbf,teacher.dbf,course.dbf对象设置：查询主表单中的对象设置：对象属性值说明Form1Caption查询PageFrame1PageCount3Command1Caption返回主菜单主表单中的Command1PageFramel.Pagel中的对象设置:对象属性值Combo1RowSourceType6-字段RowSourceClassese.班级编号Combo2RowSourceType6-字段RowSourceStudent.Label1Caption请选择班级代码和Label2Caption班级代码Label3CaptionLabel4Caption学号Label5CaptionLabel6Caption性别Label7Caption出生日期PageFrame1.Page2用来对数据表进行浏览，其界面为:其中的对象设置:对象属性值CombolRowSourceType1-值RowSource学生表，教师表，班级表，课程表，成绩表Style2-下拉列表框Value1LabellCaption请选择要浏览的表GridlRecordSourceType0-表PageFrame1.Page3用来进行课程浏览.其界面为:其中的对象设置:对象属性值CommandGroup1ButtonCount5Label1Caption课程代码Label2Caption课程名称Label3Caption类别Label4Caption教师代码函数与方法声明：Thisform.PageFrame1.Page1中的Deactive事件：功能：当前学生情况查询页面被释放时，使数据查询设置过滤条件为空.程序清单：setfiltertoThisform.PageFrame1.Page1.Combo1中的InteractiveChange事件：功能：根据下拉列表框的选择，设置班级信息的过滤条件，同时清空文本框信息.程序清单：publicmm=thisform.pageframe1.page1.combo1.valueselectstudentsetfilterto班级编号=mthisform.pageframe1.page1.text1.value="thisform.pageframe1.page1.text2.value="thisform.pageframe1.page1.text3.value="thisform.pageframe1.page1.text4.value="Thisform.PageFrame1.page1.Combo2中的InteractiveChange事件：功能：根据前面设置的班级过滤条件对学生信息进行查询，并将结果在当前页面显示程序清单：locatefor=this.value*用组合框中的值进行查找iffound()thisform.pageframe1.page1.text1.value=学号thisform.pageframe1.page1.text2.value=thisform.pageframe1.page1.text3.value=性另ijthisform.pageframe1.page1.text4.value=出生日期thisform.pageframe1.page1.combo2.value="endifThisform.PageFrame1.page2中的Init事件：功能：在“数据表浏览”页显示时进行相关的初始化工作.程序清单：withthis.grid1.recordsourcetype=6.recordsource='student'.refresh.columncount=5.column1.width=60.column2.width=65.column3.width=40.column4.width=70.column5.width=60.column1.header1.caption='学号’.column2.header1.caption=".column3.header1.caption='性别’.column4.header1.caption='出生日期'.column5.header1.caption='班级编号’.readonly=.t..deletemark=.f.endwithThisform.PageFrame1.Page2.Combo1中的IntelactiveChange事件功能：在“数据表浏览”页中根据下拉组合框中的选择对不同的表进行数据容显示程序清单：&&加入如下代码，可防止由字段少的表往字段多的表切换时造成数据字段丢失无法显示的问题withthis.parent.grid1.columncount=6.column1.width=60.column2.width=65.column3.width=50.column4.width=66.column5.width=70.column6.width=70endwith&&即每次都事先把grid先刷新成行数教多的表.docasecasethis.value=1withthis.parent.grid1.recordsourcetype=6.recordsource='student'.columncount=5.column1.width=60.column2.width=65.column3.width=40.column4.width=70.column5.width=60.column1.header1.caption='学号’.column2.header1.caption=".column3.header1.caption='性别’.column4.header1.caption='出生日期'.column5.header1.caption='班级编号’.refresh.readonly=.t..deletemark=.f.endwithcasethis.value=2withthis.parent.gridl.columncount=6.recordsource='teacher'.column1.header1.caption='教师代码.column2.header1.caption=".column3.header1.caption='性别’.column4.header1.caption='出生日期.column5.header1.caption='部门'.column6.header1.caption='技术职务.column1.width=60.column2.width=65.column3.width=50.column4.width=66.column5.width=70.column6.width=70.refresh.readonly=.t..deletemark=.f.endwithcasethis.value=3withthis.parent.grid1.recordsourcetype=6.recordsource='classes'.columncount=6.column1.width=60.column2.width=65.column3.width=50.column4.width=70.column5.width=60.column6.width=60.column1.header1.caption='班级编号.column2.header1.caption='年级’.column3.header1.caption='专业'.column4.header1.caption='系代码'.column5.header1.caption='学制’.column6.header1.caption='类别’.refresh.readonly=.t..deletemark=.f.endwithcasethis.value=4withthis.parent.grid1.recordsourcetype=6.recordsource='course'.columncount=4.column1.width=60.column2.width=100.column3.width=50.column4.width=50.column1.header1.caption='课程代码’.column2.header1.caption='课程名称’.column3.header1.caption='类别’.column4.header1.caption='教师代码'.refresh.readonly=.t..deletemark=.f.endwithcasethis.value=5withthis.parent.grid1.recordsourcetype=6.recordsource='score'.columncount=3.column1.width=60.column2.width=100.column3.width=50.column1.header1.caption='学号’.column2.header1.caption='课程代码'.column3.header1.caption='成绩’.refresh.readonly=.t..deletemark=.f.endwithendcaseThisform.PageFrame1.Page3中的Init事件功能：当“课程浏览”页面被显示出来时，进行相关的初始化工作.程序清单：selectcoursethis.text1.value=课程代码this.text2.value=课程名称this.text3.value=类别this.text4.value=教师代码Thisform.PageFrame1.Page3中的Refresh事件功能：在“课程浏览”页面中刷新当前的数据显示程序清单：selectcoursethis.text1.value=课程代码this.text2.value=课程名称this.text3.value=类别this.text4.value=教师代码Thisform.PageFrame1.Page3中的CommandGroupl的Click事件功能：利用按钮组完成对数据库中的记录浏览程序清单：selectcoursedocasecasethis.value=1gotopcasethis.value=2skip-1ifbof()messagebox('已到首部!'，0+48，'系统提示')gotopendifcasethis.value=3skipifeof()messagebox('已到末尾!'，0+48，'系统提示')gobottomendifcasethis.value=4gobottomcasethis.value=5thisform.releaseendcasethisform.refresh2.5数据修改模块功能描述：用户可以通过不同的页面完成对5个不同表中的数据的修改操作界面设计：由于修改表单中对于5个表的操作方法类似，这里只给出第一个页面即“学生表”的设计部分。其余4个页面的设计及相关的程序代码请同学们自己思考并完成。表单名称：修改文件名：修改.scx数据环境：student.dbf，class.dbf，score.dbf，teacher.dbf，course.dbf对象设置：对象属性值FormlCaption修改PageFramelPageCount5Command1Caption返回：Page1.Combo1RowSourceType6-字段RowSourceStudent.学号Page2.Combo1RowSourceType6-字段RowSourceTeacher.教师代码Page3.Combo1RowSourceType6-字段RowSourceClassess.班级编号Page4.Combo1RowSourceType6-字段RowSourceCourse.课程代码Page5.Combo1RowSourceType6-字段RowSourceScore.学号Page1.Command1Caption确定Page1.Command2Caption退出函数与方法声明：(1)Thisform.PageFrame1.Page1中的Activate事件:功能：在学生信息修改页面显示时进行初始化操作程序清单：selectstudentgotopthis.text1.value=学号this.text2.value=this.text3.value=性别this.text4.value=出生日期this.text5.value=班级编号Thisform.PageFrame1.Page1.Combo1中的IntelactiveChange事件：功能：根据学号，查找对应的学生信息程序清单：selectstudentlocatefor学号=this.valueiffound()thisform.pageframe1.page1.text1.value=学号thisform.pageframe1.page1.text2.value=thisform.pageframe1.page1.text3.value=性另ijthisform.pageframe1.page1.text4.value=出生日期thisform.pageframe1.page1.text1.value=班级编号endifThisform.PageFrame1.Page1.Command1中的Click事件：功能：当用户单击“确定”按钮后，将当前修改的数据保存到数据库中.程序清单：selectstudenta=alltrim(thisform.pageframe1.page1.text1.value)b=alltrim(thisform.pageframe1.page1.text2.value)c=alltrim(thisform.pageframe1.page1.text3.value)d=alltrim(dtoc(thisform.pageframe1.page1.text4.value))e=alltrim(thisform.pageframe1.page1.text5.value)setexactondocasecasea=’’messagebox(‘学生学号不能为空’，0+48,’系统提示’)thisform.pageframe1.page1.text1.setfocuscaseb=，’messagebox(‘学生不能为空’，0+48,’系统提示’)thisform.pageframe1.page1.text2.setfocuscasec=’’messagebox(‘学生性别不能为空’，0+48,’系统提示’)thisform.pageframe1.page1.text3.setfocuscased=，’messagebox(‘学生出生日期不能为空’，0+48,’系统提示’)thisform.pageframe1.page1.text4.setfocuscasee=’’messagebox(‘学生班级编号不能为空’，0+48，’系统提示’)thisform.pageframe1.page1.text5.setfocusotherwisem=messagebox（‘确定要修改学生记录吗?’，0+48,’系统提示’）ifm=1selectstudentreplace学号withareplacewithbreplace性别withcreplace出生日期withctod（d）replace班级编号withemessagebox（‘修改成功!’）endifendcase（4）Thisform.PageFrame1.Page1.command2中的Click事件：功能：释放当前窗口程序清单：thisform.release2.6数据统计模块功能描述：用户可以通过不同的页面完成对5个不同表中的数据的修改操作界面设计：表单名称：统计文件名：统计.scx数据环境：student.dbf，score.dbf，course.dbf对象设置：对象属性值Form1Caption统计OptionGroup1ButtonCount2Label1Caption最高成绩Label2Caption最低成绩Label3Caption平均成绩List1RowSourceType6-字段Label4~Label6（空白标签用于显示运算结果）Command1Caption返回函数与方法声明：Forml中的Init事件功能：在窗体被调用时，进行显示的初始化工作程序清单：this.label5.caption="this.label6.caption=''this.label7.caption="Thisform.OptionGroupl中的IntelactiveChange事件功能：根据单选框的选择情况，进行数据源的设置程序清单：docasecasethis.value=0thisform.list1.rowsource="*无选项时不设置数据源thisform.listl.refreshcasethis.value=1thisform.list1.rowsource='student.'thisform.list1.refreshcasethis.value=2thisform.list1.rowsource='course.课程名称'thisform.list1.refreshendcaseThisform.List1中的IntelactiveChange事件功能：如果选项被改变，则根据用户指定的新选项重新统计并显示结果程序清单：docasecasethisform.optiongroup1.value=1xm=alltrim(this.value)selectstudentlocatefor=xmxh=学号selectscorecalculatemax(成绩)，min(成绩)，avg(成绩)for学号=xhton1，n2，n3thisform.label5.caption=alltrim(str(n1，4，1))thisform.label6.caption=alltrim(str(n2，4，1))thisform.label7.caption=alltrim(str(n3，4，1))casethisform.optiongroup1.value=2ch=alltrim(this.value)selectcourselocatefor课程名称=chkcdm=课程代码selectscorecalculatemax(成绩)，min(成绩)，avg(成绩)for课程代码=kcdmtom1，m2，m3thisform.label5.caption=alltrim(str(m1))thisform.label6.caption=alltrim(str(m2))thisform.label7.caption=alltrim(str(m3))endcaseThisform.Commandl中的Click事件功能：释放当前窗口程序清单：thisform.release2.6数据打印模块功能描述：完成相应的打印操作界面设计:青选择要打印白■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■伊学生表r教师表c班缎表r课程表厂成娥表*…•一,■■■1-!：!：■■■■■■■■■■■■■■■■■■■■■■■■■■■■■显示结果添回表单名称：打印文件名：打印.scx数据环境：user.dbf，class.dbf，score.dbf，teacher.dbf，course.dbf对象设置：对象属性值OptionGroup1ButtonCount5Option1Caption学生表Option2Caption教师表Option3Caption班级表Option4Caption课程表Option5Caption成绩表Command1Caption显示结果Command2Caption返回函数与方法声明：(1)Thisform.Command1中的Click事件功能：根据选择的具体表，将其中的数据记录进行显示程序清单：docasecasethisform.optiongroup1.value=1selectstudentgotopdoform打印结果显示listresttoprintercasethisform.optiongroup1.value=2selectteachergotopdoform打印结果显示listresttoprintercasethisform.optiongroup1.value=3selectclassesgotopdoform打印结果显示listresttoprintercasethisform.optiongroup1.value=4selectcoursegotopdoform打印结果显示listresttoprintercasethisform.optiongroup1.value=5selectscoregotopdoform打印结果显示listresttoprinterendcase(2)Thisform.Command2中的Click事件功能：释放本窗口.程序清单：thisform.release2.9主程序注意：在项目管理器里的“代码”9“程序”下面建立本系统的主程序文件名：main.prg程序清单：settalkoffclearall_screen.visible=.f.publicmypathmypath=left(sys(16)，rat('\'，sys(16)))setdefato&mypathdoformlogin.scxreadevents说明：每一个项目都应该有主程序，又叫入口程序，即整个项目是从哪里开始执行的。设置主程序的方法是在项目管理器中选中它，然后按鼠标右键将其设置为主程序。设置为主程序的程序会以黑体字显示，以后应用系统的执行将首先从该程序开始执行，由该程序来调用其它的程序或模块。我们经常把系统的环境设置，公共变量设置等放在主程序之中。