【正文】 endcase Name = Command5 ROCEDURE Click if =1 sj= SELECT , , , ,。 MESSAGE 撤消上一次命令或操作 DEFINE BAR 3 OF 快捷菜單 PROMPT \ DEFINE BAR _med_paste OF 快捷菜單 PROMPT 粘貼 (\P) 。 KEY ALT+E, ALT+E 。 ]) 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]=設(shè)置 s ENDIF DEFINE MENU () IN () BAR DEFINE PAD _04n0zaqhm OF () PROMPT 數(shù)據(jù)維護 (\E) COLOR SCHEME 3 。數(shù)據(jù)庫設(shè)計工具 39。然而由于我的水平有 限和時間倉促，程序中肯定還存在不少的問題，有些問題我現(xiàn)在也沒有解決，如沒有實現(xiàn)查找后數(shù)據(jù)的修改、系統(tǒng)提示用戶不夠完善，程序代碼不夠精煉等，是我在下一步設(shè)計中應(yīng)該解決的問題，也希望能得到各位老師和同學(xué)的更多指點。 設(shè)置背景是指操作員可根據(jù)個人的喜好隨時更改窗體背景以增加操作的趣味性。事故編號查詢是為了查看 某項事故所涉及的人員。 機動車駕駛員管理系統(tǒng) 13 會員卡信息輸入完畢后，可直接打印會員卡。另外有些字段的信息由系統(tǒng)自動產(chǎn)生，則該字段輸入框的背景顏色為“淡藍(lán)色”。 啟動主界面 數(shù)據(jù)處理 查詢數(shù)據(jù) 統(tǒng)計報表 系 統(tǒng)設(shè) 置數(shù)據(jù)處理 退 出數(shù) 據(jù)處理 數(shù)據(jù)輸入處理 數(shù)據(jù)編輯數(shù)據(jù)輸入處輸入處理 企事業(yè)單 位 駕駛員 數(shù)據(jù) 機動車數(shù)據(jù)單 位 事故 記錄 會員數(shù)據(jù)處理 事故月 報 駕駛員分類統(tǒng)計 企 事業(yè) 單 位 設(shè)置密碼數(shù)據(jù)編輯數(shù)據(jù)輸入處數(shù)據(jù)編輯數(shù)據(jù)輸入處輸入處理 窗體 背景 數(shù)據(jù)備份 登錄 打印會員卡 機動車駕駛員管理系統(tǒng) 5 （ 2）具有超級權(quán)限的操作員可對已經(jīng)正式備案的上述信息進行修改、刪除。 運行環(huán)境： Microsoft Windows95/98/NT 操作系統(tǒng)， 586 及以上主頻， 8M 及以上內(nèi)存，運行本系統(tǒng)需要 8M 剩余硬盤空間。 另外數(shù)據(jù)庫中還設(shè)置了三個靜態(tài)數(shù)據(jù)表，用于維護系統(tǒng)，方便使用。字段輸入后單擊“保存”鈕結(jié)束本次新增操作。 操作方法如下：以駕駛員數(shù)據(jù)修改為例 （二）刪除數(shù)據(jù)： 要刪除某個駕駛員的數(shù)據(jù)應(yīng)先在表格空件中指定，即在該記錄上單擊，然后點“刪除“按鈕，系統(tǒng)此時提示是否真的刪除這個人的信息，回答“是“則該信息從原始數(shù)據(jù)表中刪除。其設(shè)計思想與事故查詢基本相同。 功能實現(xiàn)：在這一功能模塊中要備份的數(shù)據(jù)包括數(shù)據(jù)表文件和報表文件等，并分別設(shè)置了備份到不同的位置，Ａ :盤、Ｃ :盤、Ｄ :盤共三個出口，主要操作命令是在程序中運行操作系統(tǒng) ”Copy” 命令 ，復(fù)制結(jié)束后通過Ａ ctive windows 命令再返回到本系統(tǒng)的主窗體，這樣操作員就很方便的將數(shù)據(jù)備份了，即方便了數(shù)據(jù)流通又保證了數(shù)據(jù)安全。 .ToolBars[3,1] = 39。 .ToolBars[11,1] = 39。 KEY ALT+S, DEFINE PAD _04n0zaqia OF () PROMPT 幫助 (\H) COLOR SCHEME 3 。 KEY ALT+C, ALT+C 。 ,48,信息窗口 ) () ELSE =MESSAGEBOX(保存成功 !,48,信息窗口 ) = = = = = .t. =.t. =.t. =.f. =.f. = .F. () ENDIF 機動車駕駛員管理系統(tǒng) 32 yn = MESSAGEBOX(是否放棄編輯 ?,4+32,信息窗口 ) IF yn = 6 =TABLEREVERT(.F.) =.T. GO = .F. =.t. = = = = * = .t. =.f. =.f. =.t. =.t. = 268 yn = MESSAGEBOX(是否確定離開 ?,4+32,信息窗口 ) IF yn = 6 () CLEAR EVENTS ENDIF IF = .T. 機動車駕駛員管理系統(tǒng) 33 = .F. = .F. ELSE = .T. = .T. ENDIF IF = .T. = .F. = .F. ELSE = .T. = .T. ENDIF GO TOP = .T. = .F. () SKIP 1 IF BOF() =MESSAGEBOX(已到第一條記錄 !,48,信息窗口 ) = .T. GO TOP ENDIF = .F. () 機動車駕駛員管理系統(tǒng) 34 SKIP IF EOF() =MESSAGEBOX(已到最后一條記錄 !,48,信息窗口 ) = .T. GO BOTTOM ENDIF = .F. () GO BOTTOM = .F. = .T. () local d1,d2,d3,d4 d1=alltrim() d2=alltrim() d3=alltrim() d4=alltrim() =d1+d2+d3+d4 local d1,d2,d3,d4 d1=alltrim() d2=alltrim() d3=alltrim() d4=alltrim() 機動車駕駛員管理系統(tǒng) 35 =d1+d2+d3+d4 local d1,d2,d3,d4 d1=alltrim() d2=alltrim() d3=alltrim() d4=alltrim() =d1+d2+d3+d4 local d1,d2,d3,d4 d1=alltrim() d2=alltrim() d3=alltrim() d4=alltrim() =d1+d2+d3+d4 GetZP = GETFILE(39。 FROM sj!jsy INNER JOIN sj!sg 。 WHERE = dwcx。driver:\*.d* /s RUN XCOPY \bs\*.cdx amp。 INTO CURSOR Dw1 SELECT , , ,。 ON = 。 KEY CTRL+C, Ctrl+C 。 KEY ALT+Q, ALT+Q 。 KEY ALT+V, ALT+V 。 .ToolBars[9,1] = 39。 二、 參考文獻(xiàn)： 《 中文版入門與提高》 清華大學(xué)出版 社 李加福、邸學(xué)峰著 《 中文版程序員指南》 北京希望電腦公司 Microsoft Corporation 《 程序設(shè)計指南》 清華大學(xué)出版社 吳迪、曲蒙著 《 函數(shù)大全》 北京航空航天大學(xué)出版社 徐培忠著 三、 附錄（原程序） 主表單 : Name = Form1 PROCEDURE Init SET SYSMENU OFF SET SYSMENU TO SET TALK OFF 機動車駕駛員管理系統(tǒng) 23 SET DELETE OFF SET EXACT OFF SET CONFIRM OFF SET SAFETY OFF SET STATUS BAR OFF SET MULTILOCK ON SET DEFA TO C:\BS DO WITH THIS, .T. ENDPROC PROCEDURE Load LOCAL i WITH THIS .ToolBars[1,1] = 39。那么，其它窗體是怎樣傳遞這一信息的呢？我在每一個可設(shè)置背景的窗體的Ａ ctive 事件中判別這上公共變量是否為空，如果不為空則通過命令設(shè)置窗體的Ｐ icture 屬性，這樣窗體的背景顏色就改變了。 在這個表單中的數(shù)據(jù)環(huán)境是“事故記錄”表和“駕駛員情況”表通過駕駛證號關(guān)聯(lián)。 （四）事故記錄信息： 事故信息的輸入與單位信息的輸入的設(shè)計思想與操作方法基本相同。所以我將單位代碼的輸入變?yōu)椤皡^(qū)縣號”、“地區(qū)號”、“分組號”和“單位號”四項 分別輸入，其中區(qū)縣號由下拉列表框選則輸入，系統(tǒng)可根據(jù)選則自動形成代碼，四個代碼輸入后單位代碼自動產(chǎn)生，這樣即方便操作又不易出錯。 【駕駛員】表與【企事業(yè)單位】表的單位編號使這兩個表存在關(guān)聯(lián)，這樣可知駕駛員所在單位詳細(xì)情況，或查看某個單位的駕駛情況等。機動車駕駛員管理系統(tǒng) 1 北京工業(yè)大學(xué)計算機學(xué)院 畢業(yè)論文 課題 ： 機動車駕駛員管理系統(tǒng) 機動車駕駛員管理系統(tǒng) 2 目 錄 第一部分 系統(tǒng)概述 ...................................................................................................... 3 一、 前言： ........................................................................................................... 3 二、 系統(tǒng)環(huán)境與開發(fā)工具選擇 ....................