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

主文件main.prg:

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

locate for 車號(hào)數(shù)字=thisform.text1.value
if found()
wait window"有此車號(hào)，請(qǐng)放行" timeout 2
?""
?"? 車輛信息:"
display
continue
display
continue
display
else
messagebox("無(wú)此車號(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

相關(guān)電子資料下載

• Makefile簡(jiǎn)介和使用方法 530
• 當(dāng)一名高職生成為開(kāi)源代碼頂級(jí)貢獻(xiàn)者 111
• git命令的基本使用 357
• 分享一套生產(chǎn)管理MES系統(tǒng)源碼，可以直接拿來(lái)搞錢的好項(xiàng)目 140
• C/c++源代碼qt軟件 svn版本管理開(kāi)發(fā)如何防泄密？ 48
• 為什么安秉信息的源代碼防泄密軟件這么穩(wěn)定？ 76
• C語(yǔ)言必備知識(shí)編譯預(yù)處理 419
• 非?？煽康腸#+svn或git服務(wù)器源代碼防泄密方案 全解析 82
• 極狐GitLab—新一代源代碼管理倉(cāng)庫(kù) 152
• 能夠生成java文檔注釋的命令 140