登录界面:
2、登录后的界面:
3、班主任名册管理:
4、班主任劳务费和管理:
以上就是本系统的各个界面图。
还有一些按钮的功能为介绍,在后面的内容中在进行介绍。
5、图中的:各个按钮的功能是返回上一级、第一个、下一个、上一个、最后一个、添加、修改、删除、打印、统计和退出的功能。
七、本系统的源代码主要有
1、返回上一级按钮()的代码是:
doformmain
thisform.release
2、下一个、上一个这四个按钮()的代码是:
storerecno()tox
i=0
locateforalltrim(thisform.text1.value)=班主任编号
iffound()
i=i+1
continue
iffound()
i=i+1
endif
endif
gox
docase
casei>1
=messagebox("记录重复了,请更改后重试!",0+64+0,"数据录入错误!")
thisform.text1.value=""
thisform.text1.setfocus
caselen(alltrim(thisform.text1.value))=0
=messagebox("漏填了,请补添后重试!",0+64+0,"数据录入错误!")
thisform.text1.setfocus
caselen(alltrim(thisform.text2.value))=0
=messagebox("漏填了,请补添后重试!",0+64+0,"数据录入错误!")
thisform.text2.setfocus
caselen(alltrim(thisform.text5.value))=0
=messagebox("漏填了,请补添后重试!",0+64+0,"数据录入错误!")
thisform.text5.setfocus
caselen(alltrim(thisform.text6.value))=0
=messagebox("漏填了,请补添后重试!",0+64+0,"数据录入错误!")
thisform.text6.setfocus
otherwise
skip-2
ifbof()=.t.
thisform.command1.enabled=.f.
thisform.command2.enabled=.f.
endif
gox-1
ifeof()=.f.
thisform.command3.enabled=.t.
thisform.command4.enabled=.t.
endif
thisform.text1.enabled=.f.
thisform.text2.enabled=.f.
thisform.text3.enabled=.f.
thisform.text4.enabled=.f.
thisform.text5.enabled=.f.
thisform.text6.enabled=.f.
endcase
thisform.refresh
3、添加按扭()的源代码是:
doformmain
thisform.release
4、修改按钮的原代码()是:
yn=messagebox("真的要修改吗?请单击确定。",1+64+0,"修改")
ifyn=1
thisform.text1.enabled=.t.
thisform.text2.enabled=.t.
thisform.text3.enabled=.t.
thisform.text4.enabled=.t.
thisform.text5.enabled=.t.
thisform.text6.enabled=.t.
thisform.text1.setfocus
replace班主任编号withalltrim(thisform.text1.value)
replace姓名withalltrim(thisform.text2.value)
replace电话withalltrim(thisform.text3.value)
replace手机withalltrim(thisform.text4.value)
replace住址withalltrim(thisform.text5.value)
replace班级withalltrim(thisform.text6.value)
endif
thisform.refresh
5、删除按钮()的源代码是:
yn=messagebox("真的要删除吗?请单击确定。",1+64+0,"删除")
ifyn=1
a=recno()
b=reccount()
delete
pack
ifreccount()<>0
ifa=b
ifa=2
thisform.command1.enabled=.f.
thisform.command2.enabled=.f.
endif
gobottom
else
ifa=b-1
thisform.command3.enabled=.f.
thisform.command4.enabled=.f.
endif
goa
endif
endif
ifb=1
gotop
thisform.command1.enabled=.f.
thisform.command2.enabled=.f.
thisform.command3.enabled=.f.
thisform.command4.enabled=.f.
thisform.command6.enabled=.f.
thisform.command7.enabled=.f.
thisform.command8.enabled=.f.
thisform.command9.enabled=.f.
endif
endif
thisform.refresh
6、查询按钮()的源代码是:
use
select2
usebzrmc.dbf
doformseek1
thisform.release
7、打印按钮()的源代码是:
reportformbzrmc.frxtoprinternowaitnoconsole
8、退出按钮()的源代码是:
msv=messagebox("是否真的要退出表单?",4+64,"注意!")
ifmsv=6
thisform.release
clearevents
endif
9、统计汇总按钮()的源代码是:
doformcalc
thisform.release
10、班主任名册管理按钮()代码是:
doformbzrmc
thisform.release
11、劳务费用管理按钮()代码是:
doformFY
thisform.release
12、退出按钮()代码是:
thisform.release
clearevents
13、其中主程序的源代码是:
lcsys16=sys(16)
lcprogram=substr(lcsys16,at(":",lcsys16)-1)
cdleft(lcprogram,rat("\",lcprogram))
setpathtoprogs,forms,libs,menus,data,reports,include,help,bitmaps
settalkoff
clear
closedatabaseall
closetableall
setdatetoYMD
doformfirst
readevents&&等待clearevents
clearwindow
clear
popmenu_msysmenu
clearall
closeall
??
??
??
??
13
上一篇:
VFP工资管理系统(论文代码)(论文和程序)
下一篇:
Java课程设计-课程管理系统|课程管理系统