公务车查询系统源代码
公务车查询系统源代码
主文件main.prg:
set talk off
_screen.caption="公务车查询系统"
modify windows screen fill file "\001.bmp"
set status off
set sysmenu off
set sysmenu to
set sysformats off
set exclusive on
_screen.width=750
_screen.height=350
do mail.mpr
read events
————————————————————————
车号查询表单CHCX.form的LOAD代码:
set exact on
use ch
——————————————————————————
查询按纽的CHICK代码:
locate for 车号数字=thisform.text1.value
if found()
wait window"有此车号,请放行" timeout 2
?""
?" 车辆信息:"
display
continue
display
continue
display
else
messagebox("无此车号"
thisform.release
return
endif
————————————————————————
系统维护登陆界面表单XITONGLOGIN.scx的确定按纽代码:
i=i+1
if thisform.text1.value="******(为了安全隐藏)"
thisform.release
do form xitong
else
if i<3
messagebox("密码错,请重新输入"
thisform.text1.value=""
thisform.text1.setfocus
else
messagebox("密码错,禁止进入系统"
thisform.release
endif
endif
———————————————————————
站级管理登陆界面表单ZHANJILOGIN.scx的确定按纽代码:
k=k+1
locate for 用户名=thisform.text1.value
if found()
locate for 密码=thisform.text2.value
if found()
wait window"将进入系统" timeout 2
thisform.release
do form zhanji
else
if k=3
messagebox("禁止进入系统"
thisform.release
return
endif
messagebox("密码错,请重新输入密码!"
thisform.text2.value=""
thisform.text2.setfocus
endif
else
if k=3
messagebox("禁止进入系统"
thisform.release
非常好我支持^.^
(7) 100%
不好我反对
(0) 0%