、通用性要求:要求系统能够不受费用管理的影响,仍能照常使用。通用性方面,要求系统不仅能够处理高邮政的速度,而且而且能很好的管理。
(二)对系统的安全性要求,要求进入系统必须进行口令校验。
六、主要功能简介:
1、用户登录界面:
2、登录后的界面:
3、关于界面:
4、查询界面:
5、变新界面:
以上就是本系统的各个界面图。
还有一些按钮的功能为介绍,在后面的内容中在进行介绍。
6、图中的:各个按钮的功能上面都有相应的介绍。
七、本系统的源代码主要有:
1、帮助内容的代码是:
docase
caseallt(thisform.combo1.displayvalue)="关于"
thisform.label2.caption="本软件由:重庆永川广播电视大学--周黔设计版本(C)1.0"
caseallt(thisform.combo1.displayvalue)="最新下载"
thisform.label2.caption="本人网站正在建设中!!!"
endcase
2、变更中新增按扭的代码是:
gobott
appenblan
thisform.command8.enabled=.T.
thisform.command1.enabled=.f.
thisform.refresh
3、变更中保存按扭的代码是:
goTOP
thisform.command8.enabled=.f.
thisform.command1.enabled=.t.
thisform.refresh
4、变更中删除按扭的代码是:
setdeleon
sch=recno()
gosch
ifmessagebox("是否退出",4+32,"警告")=6then
dele
endif
thisform.refresh
5、变更中上移按扭的代码是:
ifnotbof()
skip-1
else
this.enabled=.f.
thisform.command5.enabled=.f.
thisform.command4.enabled=.t.
endif
thisform.refresh
6、变更中下翻按扭的代码是:
ifnoteof()
skip1
thisform.command3.enabled=.t.
thisform.command5.enabled=.t.
else
this.enabled=.f.
thisform.command4.enabled=.f.
thisform.command6.enabled=.f.
endif
thisform.refresh
7、变更中第一页按扭的代码是:
gotop
thisform.command5.enabled=.f.
thisform.command3.enabled=.f.
thisform.command4.enabled=.t.
thisform.refresh
8、变更中最后按扭的代码是:
gobott
this.enabled=.f.
thisform.command4.enabled=.f.
thisform.command6.enabled=.t.
thisform.command3.enabled=.t.
thisform.refresh
9、变更中退出按扭的代码是:
ifmessagebox("是否退出",4+32,"警告")=6then
relethisform
endif
10、登陆按扭的代码是:
codemailpath=sys(5)+sys(2003)
*setdefaulttocodemailpath
use"&codemailpath\password.dbf"
i=i+1
ifalltrim(thisform.text1管理员.value)=alltrim(password.username).AND.alltrim(thisform.text1密码.value)=alltrim(password.password)
messagebox("正在登陆系统!",0+48+0,"登陆!")
use
thisform.release
do"&codemailpath\mmenu.mpr"
else
ifi>=3
messagebox("你不是合法用户!你不能使用本系统!",0+48+0,"登陆错误")
thisform.release
cleaevent
quit
else
thisform.text1管理员.value=""
thisform.text1密码.value=""
thisform.text1管理员.setfocus()
messagebox("信息错误,请重新输入!",0+48+0,"登陆错误")
endif
endif
11、退出按扭的代码是:
thisform.release
Cleaevent
QUIT
12、任意中表格的代码是:
this.top=0
this.left=0
this.width=thisform.width
13、任意中Combo1中上午代码是:
aa=allt(thisform.combo1.displayvalue)
docase
caseaa="省或直辖市"
thisform.combo2.rowsource="sheng.省市"
caseaa="地区或市"
thisform.combo2.rowsource="shi.地市"
caseaa="县城或县级市"
thisform.combo2.rowsource="xian.县市或区"
caseaa="乡镇"
thisform.combo2.rowsource="xiang.乡镇或街道"
endcase
thisform.refresh
14、任意中Combo2中的代码是:
LPARAMETERScItem
15、任意中查询按扭的代码是:
ifallt(thisform.combo1.displayvalue)==""orallt(thisform.combo2.displayvalue)==""
messagebox("请选择地区","警告")
endif
aa=allt(thisform.combo1.displayvalue)
docase
caseaa="省或直辖市"
thisform.combo2.rowsource="sheng.省市"
sele*fromcodemailwherecodemail.省市=allt(thisform.combo2.displayvalue)intocursorll
thisform.grid1.recordsource="ll"
caseaa="地区或市"
sele*fromcodemailwherecodemail.地市=allt(thisform.combo2.displayvalue)intocursorll
thisform.grid1.recordsource="ll"
caseaa="县城或县级市"
sele*fromcodemailwherecodemail.县市或区=allt(thisform.combo2.displayvalue)intocursorll
thisform.grid1.recordsource="ll"
caseaa="乡镇"
sele*fromcodemailwherecodemail.乡镇或街道=allt(thisform.combo2.displayvalue)intocursorll
thisform.grid1.recordsource="ll"
endcase
thisform.combo2.displayvalue=""
thisform.refresh
16、任意中按扭的代码是:
ifthisform.label1.visible=.t.then
thisform.label1.visible=.f.
else
thisform.label1.visible=.t.
endif
17、主程序的代码是:
gcdir=sys(5)+sys(2003)
setdefato(gcdir)
_screen.caption="邮政编码系统"
_screen.icon="graph.ico"
setdebugoff
closeall
setsafetyon
setdeleon
setexclon
setescapeon
settalkoff
setcenturyon
onshutdownquit
_screen.caption="邮政编码系统"
_screen.icon="graph.ico"
_screen.windowstate=2
relewindo系统菜单
relewindow常用
_screen.picture="as.bmp"
_screen.caption="邮政编码系统"
_screen.icon="graph.ico"
dommenu.mpr
doform登录.scx
readevents
_screen.caption="邮政编码系统"
_screen.icon="graph.ico"
??
??
??
??
第1页共13页
上一篇:
VFP超市售货管理系统VF(论文和程序)
下一篇:
不放弃终有希望