协和学院管理信息系统期末考机考步骤.docx
- 文档编号:30647241
- 上传时间:2023-08-18
- 格式:DOCX
- 页数:31
- 大小:334.27KB
协和学院管理信息系统期末考机考步骤.docx
《协和学院管理信息系统期末考机考步骤.docx》由会员分享,可在线阅读,更多相关《协和学院管理信息系统期末考机考步骤.docx(31页珍藏版)》请在冰豆网上搜索。
协和学院管理信息系统期末考机考步骤
教务管理系统可以模仿人事管理系统这块来做,很多相似的(里面有登录界面、输入界面、查询界面、打印界面、帮助界面)
Form1int
thisform.label3.visible=.f.
thisform.label4.visible=.f.
Label2click(学生宿舍)
thisform.Label3.visible=.t.
thisform.Label2.visible=.f.
Label3click(学生食堂)
thisform.label3.visible=.f.
thisform.label4.visible=.t.
Label4click(学生教室)
thisform.label2.visible=.t.
thisform.label4.visible=.f.
Form1int
PUBLICnCount,flag
nCount=0
flag=.f.
Command1(登录)
selectpassworded
scan
ifalltrim(thisform.text2.value)=alltrim(密码)
wait"密码正确,正在加载系统,请等侯!
"windowstimeout2
flag=.t.
*doformmain
thisform.release
endif
ENDSCAN
ifeof()andnotflag
messageBOX("密码输入错误"+alltrim(str(nCount+1))+"次!
",64,"密码信息框")
nCount=nCount+1
ifnCount>=3
thisform.setall("enabled",.f.,"commandbutton")
wait"由于错误次数太多,系统即将于3秒后退出,再见!
"windowstimeout3
thisform.release
endif
THISFORM.TEXT1.VALUE=""
THISFORM.TEXT1.SETFOCUS
endif
Command2(取消)
Thisform.release
或者
cmessagetitle='系统登录'
cmessagetext='真的想要退出吗?
'
nDialogtype=4+32
nanswer=messagebox(cMessagetext,nDialogtype,cMessagetitle)
docase
casenanswer=6&&选择"是"时的操作
thisform.release&&释放表单
casenanswer=7&&选择"否"时不做任何操作
endcase
这一部分老师没给代码添加保存取消那有一块还没做好
Form1int
publiccx
cx=0
thisform.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=0
setexactoff
cif=alltrim(bo1.displayvalue)
ccif=alltrim(bo2.displayvalue)
ctext=alltrim(thisform.text1.value)
ifempty(ccif)
messagebox('请输入查询条件!
',48,'操作失败!
')
bo2.setfocus
else
ifempty(ctext)
messagebox('请输入查询条件!
',48,'操作失败!
')
thisform.text1.setfocus
else
setexacton
ifccif='='
select*;
fromtabgys;
where&cif.==alltrim(thisform.text1.value);
orderbytabgys.供应商编号;
intocursorlindeping
endif
setexactoff
ifccif='<'
select*;
fromtabgys;
where&cif. orderbytabgys.供应商编号; intocursorlindeping endif setexactoff ifccif='>' select*; fromtabgys; where&cif.>alltrim(thisform.text1.value)+"*"; orderbytabgys.供应商编号; intocursorlindeping endif ifccif='like' select*; fromtabgys; wherealltrim(thisform.text1.value)$&cif.; orderbytabgys.供应商编号; intocursorlindeping endif gotop ifeof() gobottom messagebox('供应商不存在',48,'信息窗口') thisform.pageframe1.page2.grid1.recordsource='lindeping' mand1.enabled=.f. mand2.enabled=.f. mand3.enabled=.f. mand4.enabled=.f. mandgroup1.cmodify.enabled=.f. mandgroup1.cdel.enabled=.f. cx=1 else thisform.pageframe1.page2.grid1.recordsource='lindeping' lgysnumber=lindeping.供应商编号 selecttabgys setorderto供应商编号 seeklgysnumber thisform.init&&调用表单的INIT事件 l=.f. thisform.resize&&调用表单的Resize事件 thisform.refresh endif endif endif 第一条 ifcx=1 gotop mand1.enabled=.f. mand2.enabled=.f. mand3.enabled=.f. mand4.enabled=.f. mandgroup1.cmodify.enabled=.f. mandgroup1.cdel.enabled=.f. else gotop mand1.enabled=.f. mand2.enabled=.f. mand3.enabled=.t. mand4.enabled=.t. endif thisform.init thisform.refresh 上一条 ifcx=1 messagebox('已是第一个记录',48,'信息窗口') mand1.enabled=.f. mand2.enabled=.f. mand3.enabled=.f. mand4.enabled=.f. mandgroup1.cmodify.enabled=.f. mandgroup1.cdel.enabled=.f. thisform.init else skip-1 thisform.init ifbof() messagebox('已是第一个记录',48,'信息窗口') mand1.enabled=.f. mand2.enabled=.f. thisform.init else mand1.enabled=.t. mand2.enabled=.t. endif mand3.enabled=.t. mand4.enabled=.t. endif thisform.refresh 下一条 ifeof() messagebox('已经是最后一条记录',48,'管理窗口') skip-1 thisform.init mand3.enabled=.f. mand4.enabled=.f. mand1.enabled=.f. mand2.enabled=.f. mandgroup1.cmodify.enabled=.f. mandgroup1.cdel.enabled=.f. else skip thisform.init ifeof() messagebox('已经是最后一条记录',48,'管理窗口') skip-1 thisform.init mand3.enabled=.f. mand4.enabled=.f. else mand3.enabled=.t. mand4.enabled=.t. endif mand1.enabled=.t. mand2.enabled=.t. endif thisform.refresh 最后一条 ifcx=1 gobottom mand3.enabled=.f. mand4.enabled=.f. mand1.enabled=.f. mand2.enabled=.f. mandgroup1.cmodify.enabled=.f. mandgroup1.cdel.enabled=.f. else gobottom mand3.enabled=.f. mand4.enabled=.f. mand1.enabled=.t. mand2.enabled=.t. endif thisform.init thisform.refresh 添加 thisform.pageframe1.page1.text1.enabled=.f. l=.t. thisform.resize *自动编号 selecttabgys ifempty(供应商编号) thisform.pageframe1.page1.text1.value=alltrim('GYS00001') else selectmax(供应商编号)fromtabgysintoarraya&&查找数据表最大的供应商编号存入数组 cend=val(substr(a (1),4))+1 thisform.pageframe1.page1.text1.value=alltrim('GYS'+padl(alltrim(str(cend,5)),5,'0')) endif store''tothisform.pageframe1.page1.text2.value,thisform.pageframe1.page1.text3.value,thisform.pageframe1.page1.text4.value,; thisform.pageframe1.page1.text5.value,thisform.pageframe1.page1.text6.value,thisform.pageframe1.page1.text7.value,; thisform.pageframe1.page1.text8.value,thisform.pageframe1.page1.text9.value,thisform.pageframe1.page1.text10.value,; thisform.pageframe1.page1.text11.value,thisform.pageframe1.page1.text12.value,thisform.pageframe1.page1.text13.value,; thisform.pageframe1.page1.text14.value thisform.pageframe1.page1.text2.setfocus mandgroup1.cmodify.enabled=.f. mandgroup1.cdel.enabled=.f. mandgroup1.cexit.enabled=.t. mandgroup1.ccancel.enabled=.t. mandgroup1.csave.enabled=.t. mandgroup1.cadd.enabled=.f. thisform.pageframe1.page2.enabled=.f. mand1.enabled=.f. mand2.enabled=.f. mand3.enabled=.f. mand4.enabled=.f. mand1.enabled=.f. 保存 gysnumber=alltrim(thisform.pageframe1.page1.text1.value) jiancheng=alltrim(thisform.pageframe1.page1.text2.value) gysname=alltrim(thisform.pageframe1.page1.text3.value) area=alltrim(thisform.pageframe1.page1.text4.value) dizhi=alltrim(thisform.pageframe1.page1.text5.value) yzbm=alltrim(thisform.pageframe1.page1.text6.value) tel=alltrim(thisform.pageframe1.page1.text7.value) fax=alltrim(thisform.pageframe1.page1.text8.value) people=alltrim(thisform.pageframe1.page1.text9.value) mantel=alltrim(thisform.pageframe1.page1.text10.value) gysbank=alltrim(thisform.pageframe1.page1.text11.value) bankno=alltrim(thisform.pageframe1.page1.text12.value) nsrdj=alltrim(thisform.pageframe1.page1.text13.value) email=alltrim(thisform.pageframe1.page1.text14.value) cmessagetitle='供应商管理系统' cmessagetext='确定要保存吗? ' ndialogtype=4+32 nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle) docase casenAnswer=6 ifempty(gysnumber)=.t. messagebox('供应商编号不能为空',48,'操作失败! ') thisform.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.邮箱网址 thisform.refresh else setorderto供应商编号 seekgysnumber if! found() insertintotabgysvalues(gysnumber,gysname,jiancheng,dizhi,area,yzbm,tel,fax,people,mantel,gysbank,bankno,nsrdj,email) messagebox('数据保存完毕',48,'操作成功! ') thisform.refresh else cmessagetitle='供应商管理系统' cmessagetext='供应商已经存在,要修改吗? ' ndialogtype=4+32 nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle) docase casenAnswer=6 updatetabgysset供应商全称=gysname,简称=jiancheng,地址=dizhi,所属地区=area,邮政编码=yzbm,电话=tel,传真=fax,联系人=people,联系人电话=mantel,开户银行=gysbank,银行帐号=bankno,纳税人登记=nsrdj,邮箱网址=emailwhere供应商编号=gysnumber messagebox('数据修改完毕',48,'操作成功! ') thisform.refresh casenanswer=7 thisform.init thisform.refresh endcase endif endif l=.f. thisform.resize thisform.pageframe1.page1.text1.setfocus endcase mandgroup1.cmodify.enabled=.t. mandgroup1.cdel.enabled=.t. mandgroup1.cexit.enabled=.t. mandgroup1.ccancel.enabled=.f. thi
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 协和 学院 管理信息系统 期末 考机考 步骤
![提示](https://static.bdocx.com/images/bang_tan.gif)