协和学院管理信息系统期末考机考步骤.docx

教务管理系统可以模仿人事管理系统这块来做，很多相似的（里面有登录界面、输入界面、查询界面、打印界面、帮助界面）Form1 intthisform.label3.visible=.f.thisform.label4.visible=.f.Label2 click(学生宿舍)thisform.Label3.visible=.t.thisform.Label2.visible=.f.Label3 click(学生食堂)thisform.label3.visible=.f.thisform.label4.visible=.t.Label4 click(学生教室)thisform.label2.visible=.t.thisform.label4.visible=.f.Form1 intPUBLIC nCount,flagnCount=0flag=.f.Command1（登录）select passwordedscanif alltrim(thisform.text2.value)=alltrim(密码) wait 密码正确,正在加载系统,请等侯! windows timeout 2 flag=.t. * do form main thisform.releaseendifENDSCANif eof() and not flagmessageBOX(密码输入错误+alltrim(str(nCount+1))+次！,64,密码信息框)nCount=nCount+1if nCount=3 thisform.setall(enabled,.f.,commandbutton) wait 由于错误次数太多，系统即将于3秒后退出，再见! windows timeout 3 thisform.releaseendifTHISFORM.TEXT1.VALUE=THISFORM.TEXT1.SETFOCUSendifCommand2 (取消)Thisform.release或者cmessagetitle=系统登录cmessagetext=真的想要退出吗？nDialogtype=4+32nanswer=messagebox(cMessagetext,nDialogtype,cMessagetitle)do case case nanswer=6 选择是时的操作 thisform.release 释放表单 case nanswer=7 选择否时不做任何操作endcase这一部分老师没给代码添加保存取消那有一块还没做好Form1 intpublic cxcx=0thisform.pageframe1.page1.text1.value=tabgys.供应商编号thisform.pageframe1.page1.text2.value=tabgys.简称thisform.pageframe1.page1.text3.value=tabgys.供应商全称thisform.pageframe1.page1.text4.value=tabgys.所属地区thisform.pageframe1.page1.text5.value=tabgys.地址thisform.pageframe1.page1.text6.value=tabgys.邮政编码thisform.pageframe1.page1.text7.value=tabgys.电话thisform.pageframe1.page1.text8.value=tabgys.传真thisform.pageframe1.page1.text9.value=tabgys.联系人thisform.pageframe1.page1.text10.value=tabgys.联系人电话thisform.pageframe1.page1.text11.value=tabgys.开户银行thisform.pageframe1.page1.text12.value=tabgys.银行帐号thisform.pageframe1.page1.text13.value=tabgys.纳税人登记thisform.pageframe1.page1.text14.value=tabgys.邮箱网址查询cx=0set exact offcif=alltrim(bo1.displayvalue)ccif=alltrim(bo2.displayvalue)ctext=alltrim(thisform.text1.value)if empty(ccif) messagebox(请输入查询条件！,48,操作失败！