【正文】 使我完成了本系統(tǒng)的設計。然而由于我的水平有 限和時間倉促，程序中肯定還存在不少的問題，有些問題我現(xiàn)在也沒有解決，如沒有實現(xiàn)查找后數(shù)據(jù)的修改、系統(tǒng)提示用戶不夠完善，程序代碼不夠精煉等，是我在下一步設計中應該解決的問題，也希望能得到各位老師和同學的更多指點。表單控制項 39。查詢設計工具 39。報表控制項 39。數(shù)據(jù)庫設計工具 39。預覽打印 39。調(diào)色板 39。 OR 。 ]) RETURN ENDIF = TYPE() = SYS(20xx) = IF = C OR ( = L AND ) = ENDIF IF = C AND !EMPTY() = ENDIF DIMENSION a_menupops[4] IF TYPE()=L AND FOR nTotPops = 1 TO ALEN(a_menupops) a_menupops[]= SYS(20xx) ENDFOR ELSE a_menupops[1]=數(shù)據(jù)維護 e a_menupops[2]=查詢數(shù)據(jù) v 機動車駕駛員管理系統(tǒng) 27 a_menupops[3]=打印報表 t a_menupops[4]=設置 s ENDIF DEFINE MENU () IN () BAR DEFINE PAD _04n0zaqhm OF () PROMPT 數(shù)據(jù)維護 (\E) COLOR SCHEME 3 。 MESSAGE 查詢輸入企事業(yè)單位、機動車、駕駛員備案信息 DEFINE PAD _04n0zaqho OF () PROMPT 打印報表 (\T) COLOR SCHEME 3 。 KEY ALT+H, DEFINE PAD _04n0zaqib OF () PROMPT 退出 (\X) COLOR SCHEME 3 。MPR|FXP。 KEY ALT+E, ALT+E 。 MESSAGE 查詢企事業(yè)單位備案信息 DEFINE BAR 2 OF (a_menupops[2]) PROMPT 駕駛員信息 (\J)... 。 MESSAGE 查詢機動車備案信息 DEFINE BAR 4 OF (a_menupops[2]) PROMPT 事故信息 (\S)... 。 SKIP FOR ctlmenu=0 DEFINE BAR 2 OF (a_menupops[4]) PROMPT 窗體 背景 (\B)... ON SELECTION BAR 1 OF (a_menupops[4]) do form 設置 ON SELECTION BAR 2 OF (a_menupops[4]) do form 設置 ACTIVATE MENU () NOWAIT IF = C = = ENDIF 機動車駕駛員管理系統(tǒng) 30 PROCEDURE _04n0zaqie SET SYSMENU TO DEFAULT SET SYSMENU ON DEFINE POPUP 快捷菜單 SHORTCUT RELATIVE FROM MROW(),MCOL() DEFINE BAR _med_redo OF 快捷菜單 PROMPT 重做 (\D) 。 MESSAGE 撤消上一次命令或操作 DEFINE BAR 3 OF 快捷菜單 PROMPT \ DEFINE BAR _med_paste OF 快捷菜單 PROMPT 粘貼 (\P) 。 MESSAGE 將 選定內(nèi)容復制到剪貼板上 DEFINE BAR _med_cut OF 快捷菜單 PROMPT 剪切 (\T) 。BMP39。確定 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 , , , ,。 WHERE month() 0。 ON = 。 FROM sj!jsy INNER JOIN sj!sg 。 , 。 , 。 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 , , , ,。 WHERE = jsycx。 ON = 。driver:\*.cdx /s RUN XCOPY \bs\*.fpt amp。 INTO CURSOR Jsy2 系統(tǒng)維護 : DO CASE CASE = 1 driver = c CASE = 2 driver = d CASE =