【正文】 INTO CURSOR Jsy1 機動車駕駛員管理系統(tǒng) 49 SELECT , , , ,。 ON = 。) IF !EMPTY(GetZP) APPEND GENERAL ZP FROM (GetZP) ENDIF =.f. public xm1,xb1,lxdh1,jszh1 xm1= xb1= jszh1= do form rh 機動車駕駛員管理系統(tǒng) 36 =.t. =reo() APPEND BLANK =.f. =.f. =.f. =.t. =.t. =.t. () () select select select select 編輯代碼 : do case case =1 =60 =120 機動車駕駛員管理系統(tǒng) 37 =120 =60 =60 =60 case =2 =60 =60 =60 =60 =60 case =3 =60 =60 =60 =60 =60 case =4 =60 =60 =60 =60 endcase local n do case case =1 n= case =2 n= 機動車駕駛員管理系統(tǒng) 38 case =3 n= case =4 n= endcase yn = = .F. ENDIF () BOX(是否確定刪除 39。 KEY CTRL+R, Ctrl+R 。PRG ,WHERE is MAINMENU?) DEFINE POPUP (a_menupops[1]) MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF (a_menupops[1]) PROMPT 新增數(shù)據(jù) (\A)... 。 2 MESSAGEBOX([只能從頂層表單調(diào)用該菜單。 .ToolBars[6,1] = 39。在此對各位指導(dǎo)老師與同學(xué)表示感謝?。≡诒鞠到y(tǒng)中，我力求使自己的程序功能更加強大和更便于操作。這些固定的數(shù)據(jù)也是相對而言的，一但實際操作中這些數(shù)據(jù)的定義有所改變，這些預(yù)定的數(shù)據(jù)就要隨之改變來保持一致。 39。由于會員信息的部分字段與駕駛員信息相同，故將其父表單的如“姓名、性別”、“聯(lián)系電話”等信息直接繼承，并將這些字段設(shè)為只讀。 在輸入界面設(shè)置了一組快捷菜單“復(fù)制、剪切、復(fù)制”，這樣在輸入重復(fù)的信息時直接復(fù)制即可。 Visual FoxPro 還提供了一個集成化的開發(fā)環(huán)境，不僅擁有功能強大的面向?qū)ο蟪绦蛟O(shè)計工具以及客戶 /服務(wù)器能力，而且還支持 ActiveX，這些特點都為快速開發(fā)功能全面的應(yīng)用程序創(chuàng)造了良好的條件。 該系統(tǒng)不僅可以簡化數(shù)據(jù)管理，而且使應(yīng)用程序的開始流程更為合理。另外，權(quán)限低的操作員對于系統(tǒng)設(shè)置等部分操作無操作權(quán)，則通過廢止相應(yīng)的菜單項來進行控制。不同之處是： 首先，為了使駕駛員的信息更加充分，增加了駕駛員照片字段，當(dāng)用戶單擊鼠標(biāo)右鍵后彈出打開文件對話框，選則照片。為了方便操作，在此設(shè)置了查詢功能，以便快速定位到要操作的記錄。 其中單位駕駛員統(tǒng)計是建立了一個一對多的分組報表，這樣就可根據(jù)實際需要，分別將各個單位的駕駛員情況查詢，輸出。另外上移的說明文字是利用 Timer 控件控制 Label控件在容器類控件內(nèi)移動實現(xiàn)的。配置方式 39。 LOWER() 39。 DO _04n0zaqie 。 機動車駕駛員管理系統(tǒng) 29 MESSAGE 查詢事故記錄 ON SELECTION BAR 1 OF (a_menupops[2]) do form dwcx ON SELECTION BAR 2 OF (a_menupops[2]) do form jsycx ON SELECTION BAR 3 OF (a_menupops[2]) do form jdccx ON SELECTION BAR 4 OF (a_menupops[2]) do form sgcx DEFINE POPUP (a_menupops[3]) MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF (a_menupops[3]) PROMPT 企事業(yè)單位清單 (\Q)... 。輸入文件名 : 39。 INTO CURSOR SG2 SELECT , , , ,。 FROM sj!dw INNER JOIN sj!jsy 。 ON = 。 , 。 的信息 ?,4+32,信息窗口 ) IF yn = 6 delete pack do case case =1 =企事業(yè)單位 case =2 =駕駛員信息 case =3 =機動車信息 case =4 =事故記錄 endcase result = TABLEUPDATE(.F.) IF result = .T. =MESSAGEBOX(刪除成功 ! ,48,信息窗口 ) ELSE =MESSAGEBOX(刪除不成功 !! , 48,信息窗口 ) 機動車駕駛員管理系統(tǒng) 39 =TABLEREVERT(.F.) ENDIF ENDIF () public curent curent=reo() do case case =1 do form dw case =2 do form jsy case =3 do form jdc case =4 do form sg endcase () yn = MESSAGEBOX(是否確定離開 ?,4+32,信息窗口 ) IF yn = 6 () CLEAR EVENTS ENDIF 單位表單代碼 Name = Form1 機動車駕駛員管理系統(tǒng) 40 PROCEDURE Activate go curent =substr(,1,2) =substr(,3,2) =substr(,5,2) =substr(,7,2) ENDPROC Name = Text3 PROCEDURE VALID local d1,d2,d3,d4 d1=alltrim() d2=alltrim() d3=alltrim() d4=alltrim() =d1+d2+d3+d4 ENDPROC Name = cmdexit yn = MESSAGEBOX(是否確定離開 ?,4+32,信息窗口 ) IF yn = 6 CLEAR MEMORY () CLEAR EVENTS ENDIF Name = cmdcancel =TABLEREVERT(.F.) 機動車駕駛員管理系統(tǒng) 41 () =.t. =.f. ENDPROC Name = Cbo1.valid local d1 d1=alltrim() =d1+substr(,3) local d2 d2=alltrim() =substr(,1,2)+d2+substr(t,5) local d3 d3=alltrim() =substr(,1,4)+d3+substr(t,6) local d4 d4=alltrim() =substr(,1,6)+d4 TABLEREVERT(.F.) 機動車駕駛員管理系統(tǒng) 42 () =.t. =.f. Name = txtXm PROCEDURE WHEN MESTATUS(1) ENDPROC PROCEDURE Valid IMESTATUS(0) ENDPROC Name = Command1 機動車表單代碼 : Name = Command1 PROCEDURE Click go top =.f. =.t. =.t. ENDPROC Name = Command2 PROCEDURE Click skip 1 if reo()1=0 =.f. =.f. endif 機動車駕駛員管理系統(tǒng) 43 =駕駛員信息 .name =駕駛員信息 .birthday =駕駛員信息 .adress =駕駛員信息 .date1 =駕駛員信息 .date2 準(zhǔn)駕車型 .value=駕駛員信息 .準(zhǔn)駕車型 證號 .value=駕駛員信息 .證號 =.t. =.t. ENDPROC Name = Command3 PROCEDURE Click skip if eof() =.f. =.f. endif =駕駛員信息 .name =駕駛員信息 .birthday =駕駛員信息 .adress =駕駛員信息 .date1 =駕駛員信息 .date2 準(zhǔn)駕車型 .value=駕駛員信息 .準(zhǔn)駕車型 證號 .value=駕駛員信息 .證號 =.t. =.t. ENDPROC 機動車駕駛員管理系統(tǒng) 44 Name = Command4 PROCEDURE Click go bottom =.f. =.f. =駕駛員信息 .name =駕駛員信息 .birthday =駕駛員信息 .adress =駕 駛員信息 .date1 =駕駛員信息 .date2 準(zhǔn)駕車型 .value=駕駛員信息 .準(zhǔn)駕車型 證號 .value=駕駛員信息 .證號 =.t. =.t. ENDPROC Name = cmdadd PROCEDURE Click APPEND BLANK () () ENDPROC 查詢 : 事故查詢 : Name = cmdok Name = cmdok PROCEDURE Click sgcx= 機動車駕駛員管理系統(tǒng) 45 do case case =駕駛證號 = case =事故編號 = case =車牌號碼 =