公务车查询系统源代码

公务车查询系统源代码

主文件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