收藏
下载资源下载资源 加入VIP,免费下载

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

上传人：b****8 文档编号：30647241 上传时间：2023-08-18 格式：DOCX 页数：31 大小：334.27KB
下载 相关 举报
协和学院管理信息系统期末考机考步骤.docx_第1页
第1页 / 共31页
协和学院管理信息系统期末考机考步骤.docx_第2页
第2页 / 共31页
协和学院管理信息系统期末考机考步骤.docx_第3页
第3页 / 共31页
协和学院管理信息系统期末考机考步骤.docx_第4页
第4页 / 共31页
协和学院管理信息系统期末考机考步骤.docx_第5页
第5页 / 共31页
点击查看更多>>
下载资源
资源描述

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

《协和学院管理信息系统期末考机考步骤.docx》由会员分享，可在线阅读，更多相关《协和学院管理信息系统期末考机考步骤.docx（31页珍藏版）》请在冰豆网上搜索。

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

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

 

教务管理系统可以模仿人事管理系统这块来做，很多相似的（里面有登录界面、输入界面、查询界面、打印界面、帮助界面）

 

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

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置：首页 > 经管营销 > 销售营销

copyright@ 2008-2022 冰豆网网站版权所有

经营许可证编号:鄂ICP备2022015515号-1