公務(wù)車(chē)查詢系統(tǒng)源代碼

主文件main.prg:

set talk off
_screen.caption="公務(wù)車(chē)查詢系統(tǒng)"
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
————————————————————————
車(chē)號(hào)查詢表單CHCX.form的LOAD代碼：
set exact on
use ch
——————————————————————————
查詢按紐的CHICK代碼：

locate for 車(chē)號(hào)數(shù)字=thisform.text1.value
if found()
wait window"有此車(chē)號(hào)，請(qǐng)放行" timeout 2
?""
?"? 車(chē)輛信息:"
display
continue
display
continue
display
else
messagebox("無(wú)此車(chē)號(hào)"
thisform.release
return
endif

————————————————————————
系統(tǒng)維護(hù)登陸界面表單XITONGLOGIN.scx的確定按紐代碼：
i=i+1
if thisform.text1.value="******（為了安全隱藏）"
?thisform.release
?do form xitong
else
if i<3
?messagebox("密碼錯(cuò)，請(qǐng)重新輸入"
?thisform.text1.value=""
?thisform.text1.setfocus
else
?messagebox("密碼錯(cuò)，禁止進(jìn)入系統(tǒng)"
?thisform.release
endif
endif
———————————————————————
站級(jí)管理登陸界面表單ZHANJILOGIN.scx的確定按紐代碼：
k=k+1
locate for 用戶名=thisform.text1.value
if found()
locate for 密碼=thisform.text2.value
if found()
? wait window"將進(jìn)入系統(tǒng)" timeout 2
? thisform.release
? do form zhanji
else
? if k=3
??? messagebox("禁止進(jìn)入系統(tǒng)"
??? thisform.release
??? return
? endif
? messagebox("密碼錯(cuò)，請(qǐng)重新輸入密碼！"
? thisform.text2.value=""
? thisform.text2.setfocus
?endif
else
? if k=3
? messagebox("禁止進(jìn)入系統(tǒng)"
? thisform.release