【正文】 功能模塊詳細(xì)設(shè)計(jì) 一 、 主界面設(shè)計(jì) : 為了使應(yīng)用程序的主要功能得以體現(xiàn)，方便用戶使用應(yīng)用程序中的命令和工具，我根據(jù)用戶所要執(zhí)行的任務(wù)為系統(tǒng)設(shè)計(jì)了菜單，給用戶提供了一個(gè)結(jié)構(gòu)化的、可訪問(wèn)的途徑。另外有些字段的信息由系統(tǒng)自動(dòng)產(chǎn)生，則該字段輸入框的背景顏色為“淡藍(lán)色”。如果不想保留本次操作，還可單擊“取消”鈕撤消本次操作，并返回到增加之前的狀態(tài)。 機(jī)動(dòng)車駕駛員管理系統(tǒng) 13 會(huì)員卡信息輸入完畢后，可直接打印會(huì)員卡。回 答“否“則撤消刪除。事故編號(hào)查詢是為了查看 某項(xiàng)事故所涉及的人員。 機(jī)動(dòng)車駕駛員管理系統(tǒng) 19 五、 統(tǒng)計(jì)報(bào)表 在經(jīng)過(guò)以上收集和組織數(shù)據(jù)后 ,要將數(shù)據(jù)進(jìn)行打印或顯示在屏幕。 設(shè)置背景是指操作員可根據(jù)個(gè)人的喜好隨時(shí)更改窗體背景以增加操作的趣味性。 機(jī)動(dòng)車駕駛員管理系統(tǒng) 21 七、 關(guān)于本軟件 界面如下圖所示 (略 )。然而由于我的水平有 限和時(shí)間倉(cāng)促，程序中肯定還存在不少的問(wèn)題，有些問(wèn)題我現(xiàn)在也沒(méi)有解決，如沒(méi)有實(shí)現(xiàn)查找后數(shù)據(jù)的修改、系統(tǒng)提示用戶不夠完善，程序代碼不夠精煉等，是我在下一步設(shè)計(jì)中應(yīng)該解決的問(wèn)題，也希望能得到各位老師和同學(xué)的更多指點(diǎn)。查詢?cè)O(shè)計(jì)工具 39。數(shù)據(jù)庫(kù)設(shè)計(jì)工具 39。調(diào)色板 39。 ]) 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ù)維護(hù) e a_menupops[2]=查詢數(shù)據(jù) v 機(jī)動(dòng)車駕駛員管理系統(tǒng) 27 a_menupops[3]=打印報(bào)表 t a_menupops[4]=設(shè)置 s ENDIF DEFINE MENU () IN () BAR DEFINE PAD _04n0zaqhm OF () PROMPT 數(shù)據(jù)維護(hù) (\E) COLOR SCHEME 3 。 KEY ALT+H, DEFINE PAD _04n0zaqib OF () PROMPT 退出 (\X) COLOR SCHEME 3 。 KEY ALT+E, ALT+E 。 MESSAGE 查詢機(jī)動(dòng)車備案信息 DEFINE BAR 4 OF (a_menupops[2]) PROMPT 事故信息 (\S)... 。 MESSAGE 撤消上一次命令或操作 DEFINE BAR 3 OF 快捷菜單 PROMPT \ DEFINE BAR _med_paste OF 快捷菜單 PROMPT 粘貼 (\P) 。BMP39。 的信息 ?,4+32,信息窗口 ) IF yn = 6 delete pack do case case =1 =企事業(yè)單位 case =2 =駕駛員信息 case =3 =機(jī)動(dòng)車信息 case =4 =事故記錄 endcase result = TABLEUPDATE(.F.) IF result = .T. =MESSAGEBOX(刪除成功 ! ,48,信息窗口 ) ELSE =MESSAGEBOX(刪除不成功 !! , 48,信息窗口 ) 機(jī)動(dòng)車駕駛員管理系統(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 機(jī)動(dòng)車駕駛員管理系統(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.) 機(jī)動(dòng)車駕駛員管理系統(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.) 機(jī)動(dòng)車駕駛員管理系統(tǒng) 42 () =.t. =.f. Name = txtXm PROCEDURE WHEN MESTATUS(1) ENDPROC PROCEDURE Valid IMESTATUS(0) ENDPROC Name = Command1 機(jī)動(dòng)車表單代碼 : Name = Command1 PROCEDURE Click go top =.f. =.t. =.t. ENDPROC Name = Command2 PROCEDURE Click skip 1 if reo()1=0 =.f. =.f. endif 機(jī)動(dòng)車駕駛員管理系統(tǒng) 43 =駕駛員信息 .name =駕駛員信息 .birthday =駕駛員信息 .adress =駕駛員信息 .date1 =駕駛員信息 .date2 準(zhǔn)駕車型 .value=駕駛員信息 .準(zhǔn)駕車型 證號(hào) .value=駕駛員信息 .證號(hào) =.t. =.t. ENDPROC Name = Command3 PROCEDURE Click skip if eof() =.f. =.f. endif =駕駛員信息 .name =駕駛員信息 .birthday =駕駛員信息 .adress =駕駛員信息 .date1 =駕駛員信息 .date2 準(zhǔn)駕車型 .value=駕駛員信息 .準(zhǔn)駕車型 證號(hào) .value=駕駛員信息 .證號(hào) =.t. =.t. ENDPROC 機(jī)動(dòng)車駕駛員管理系統(tǒng) 44 Name = Command4 PROCEDURE Click go bottom =.f. =.f. =駕駛員信息 .name =駕駛員信息 .birthday =駕駛員信息 .adress =駕 駛員信息 .date1 =駕駛員信息 .date2 準(zhǔn)駕車型 .value=駕駛員信息 .準(zhǔn)駕車型 證號(hào) .value=駕駛員信息 .證號(hào) =.t. =.t. ENDPROC Name = cmdadd PROCEDURE Click APPEND BLANK () () ENDPROC 查詢 : 事故查詢 : Name = cmdok Name = cmdok PROCEDURE Click sgcx= 機(jī)動(dòng)車駕駛員管理系統(tǒng) 45 do case case =駕駛證號(hào) = case =事故編號(hào) = case =車牌號(hào)碼 = endcase Name = Command5 ROCEDURE Click if =1 sj= SELECT , , , ,。 ON = 。 , 。 INTO CURSOR dw2 JSY. FORM Name = Form1 PROCEDURE Init 機(jī)動(dòng)車駕駛員管理系統(tǒng) 48 public jsycx jsycx= ENDPROC Name = cmdok PROCEDURE Click jsycx=alltrim() do case case =單位編號(hào) = case =駕駛證號(hào) = case =駕駛員姓名 = endcase Name = cmdall PROCEDURE Click = ENDPROC SELECT , , , ,。 ON = 。 INTO CURSOR Jsy2 系統(tǒng)維護(hù) : 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。 FROM sj!dw INNER JOIN sj!jsy 。 WHERE = dwcx。 INTO CURSOR SG2 SELECT , , , ,。 FROM sj!jsy INNER JOIN sj!sg 。輸入文件名 : 39。 MESSAGE 粘貼剪貼板上的內(nèi)容 DEFINE BAR _med_copy OF 快捷菜單 PROMPT 復(fù)制 (\C) 。 機(jī)動(dòng)車駕駛員管理系統(tǒng) 29 MESSAGE 查詢事故記錄 ON SELECTION BAR 1 OF (a_menupops[2]) do form dwcx ON SELECTION BAR 2 OF (