【導讀】是交通管理部門的重要任務，手工操作則要求投入大量的人力物力。進行存貯的基礎上，通過數(shù)據(jù)統(tǒng)計、分析，幫助有關(guān)部門更好的進行管理。開發(fā)環(huán)境：MicrosoftWindows95操作系統(tǒng)，IntelPetium處理器133Mhz，32M內(nèi)存，PHILIPS顯示器640×480顯示分辨率。以上內(nèi)存，運行本系統(tǒng)需要8M剩余硬盤空間。

　　

【正文】 =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。+ ALLTRIM(n)+。 39。 的信息 ?,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 準駕車型 .value=駕駛員信息 .準駕車型 證號 .value=駕駛員信息 .證號 =.t. =.t. ENDPROC Name = Command3 PROCEDURE Click skip if eof() =.f. =.f. endif =駕駛員信息 .name =駕駛員信息 .birthday =駕駛員信息 .adress =駕駛員信息 .date1 =駕駛員信息 .date2 準駕車型 .value=駕駛員信息 .準駕車型 證號 .value=駕駛員信息 .證號 =.t. =.t. ENDPROC 機動車駕駛員管理系統(tǒng) 44 Name = Command4 PROCEDURE Click go bottom =.f. =.f. =駕駛員信息 .name =駕駛員信息 .birthday =駕駛員信息 .adress =駕 駛員信息 .date1 =駕駛員信息 .date2 準駕車型 .value=駕駛員信息 .準駕車型 證號 .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 =車牌號碼 = endcase Name = Command5 ROCEDURE Click if =1 sj= SELECT , , , ,。 , 。 FROM sj!jsy INNER JOIN sj!sg 。 ON = 。 WHERE month() 0。 INTO CURSOR sg4 = else = endif ENDPROC 機動車駕駛員管理系統(tǒng) 46 SELECT , , , ,。 , 。 FROM sj!jsy INNER JOIN sj!sg 。 ON = 。 WHERE = sgcx。 INTO CURSOR SG2 SELECT , , , ,。 , 。 FROM sj!jsy INNER JOIN sj!sg 。 ON = 。 WHERE = sgcx。 INTO CURSOR SG2 Name = Form1 PROCEDURE Init public dwcx dwcx= Name = CMDOK PROCEDURE Click dwcx=alltrim() do case case =單位編號 = case =駕駛證號 = 機動車駕駛員管理系統(tǒng) 47 case =駕駛員姓名 = endcase ENDPROC Name = CMDALL PROCEDURE Click = ENDPROC SELECT , , ,。 , 。 FROM sj!dw。 WHERE = dwcx。 INTO CURSOR Dw1 SELECT , , ,。 , 。 FROM sj!dw INNER JOIN sj!jsy 。 ON = 。 WHERE = dwcx。 INTO CURSOR dw2 JSY. FORM Name = Form1 PROCEDURE Init 機動車駕駛員管理系統(tǒng) 48 public jsycx jsycx= ENDPROC Name = cmdok PROCEDURE Click jsycx=alltrim() do case case =單位編號 = case =駕駛證號 = case =駕駛員姓名 = endcase Name = cmdall PROCEDURE Click = ENDPROC SELECT , , , ,。 , , , 。 FROM sj!dw INNER JOIN sj!jsy 。 ON = 。 WHERE = jsycx。 INTO CURSOR Jsy1 機動車駕駛員管理系統(tǒng) 49 SELECT , , , ,。 , , , 。 FROM sj!dw INNER JOIN sj!jsy 。 ON = 。 WHERE = jsycx。 INTO CURSOR Jsy2 系統(tǒng)維護 : DO CASE CASE = 1 driver = c CASE = 2 driver = d CASE = 3 driver = a =MESSAGEBOX(將磁盤放入 A 驅(qū) !, 4+32,信息窗口 ) ENDCASE () RUN XCOPY \bs\*.d* amp。driver:\*.d* /s RUN XCOPY \bs\*.cdx amp。driver:\*.cdx /s RUN XCOPY \bs\*.fpt amp。driver:\*.fpt /s () ACTIVATE WINDOWS mainfrm =MESSAGEBOX(數(shù)據(jù)備份成功 !, 4 +32,信息窗口 ) =.t. 【 End】