【正文】 dh字符2區(qū)縣代號（二）數(shù)據(jù)庫說明 本數(shù)據(jù)庫共包括：企業(yè)事業(yè)單位、駕駛員信息、機動信息、事故記錄、會員信息、等數(shù)據(jù)表，其間存在著多個關(guān)聯(lián)?；谝陨系奶攸c，本人應用中文版的Visual Fro 。該系統(tǒng)不僅可以簡化數(shù)據(jù)管理，而且使應用程序的開始流程更為合理。二、 系統(tǒng)環(huán)境與開發(fā)工具選擇1． 系統(tǒng)環(huán)境開發(fā)環(huán)境：Microsoft Windows95操作系統(tǒng)，Intel Petium處理器133Mhz，32M內(nèi)存，PHILIPS顯示器640480顯示分辨率。通過對實際情況的調(diào)查，本系統(tǒng)發(fā)揮了計算機系統(tǒng)的數(shù)據(jù)處理能力，在對所需備案基本數(shù)據(jù)進行存貯的基礎(chǔ)上，通過數(shù)據(jù)統(tǒng)計、分析，幫助有關(guān)部門更好的進行管理。它具有良好圖形用戶界面（GUI），同時又是一種完全支持面向?qū)ο蟪绦蛟O(shè)計（OOP）的語言。Visual FoxPro還提供了一個集成化的開發(fā)環(huán)境，不僅擁有功能強大的面向?qū)ο蟪绦蛟O(shè)計工具以及客戶/服務器能力，而且還支持ActiveX，這些特點都為快速開發(fā)功能全面的應用程序創(chuàng)造了良好的條件。（3）按駕駛證號等條件查詢事故記錄；查詢統(tǒng)計月事故記錄以及年事故記錄；按單位名稱等條件查詢駕馭員基本情況或會員情況；按單位名稱等件查詢機動車的基本情況；按所在區(qū)縣、地區(qū)等條件查詢已備案的單位情況（4）統(tǒng)計報表的預覽及打?。?）具有超級權(quán)限的操作員可對本系統(tǒng)密碼及準駕證號等靜態(tài)數(shù)據(jù)庫進行維護此外，為了保證系統(tǒng)的安全，在進入本系統(tǒng)前必須輸入有效的密碼，并根據(jù)用戶的不同級別為其設(shè)置相應的系統(tǒng)菜單，以防止非法用戶進入系統(tǒng)和用戶越權(quán)操作損害數(shù)據(jù)的安全。這樣便可找到事故所涉及機駕駛員的詳細情況和機動車的詳細資料等。在設(shè)計中并指定了訪問鍵。 象通常一樣設(shè)計表單,在所有頁面上包含所有控件.178。3．為了確保輸入數(shù)據(jù)的有效性，對于有固定信息的字段，通過下拉列表框等控制件為用戶預先設(shè)定選項供用戶選擇，這樣即保證了數(shù)據(jù)庫中不存儲無效數(shù)據(jù)。（一）企事業(yè)單位信息：1． 版面設(shè)計：增加單位代碼：根據(jù)調(diào)研發(fā)現(xiàn)，實際運作情況的單位編號是根據(jù)單位所在的區(qū)縣、分組、分片產(chǎn)生的。目前設(shè)置為03． 操作： 本表單主要設(shè)置了四個按鈕：若要增加記錄，單擊“新增”按鈕；此時，全部指令按鈕都停用了，只有“保存”、“取消”兩個按鈕是啟用的；另外，所有字段也全部清空等待用戶輸入。不同之處是：首先，為了使駕駛員的信息更加充分，增加了駕駛員照片字段，當用戶單擊鼠標右鍵后彈出打開文件對話框，選則照片。該表單的關(guān)鍵性字段是“會員證號”，會員號由系統(tǒng)自動產(chǎn)生。（三）機動車信息：機動車信息的輸入與單位信息的輸入的設(shè)計思想與操作方法基本相同。數(shù)據(jù)編輯界面由頁框組成，共四個頁面，分別以企事業(yè)單位、駕駛員信息、機動車信息、和事故記錄進行修改，每一頁由表格控件顯示其所對應的數(shù)據(jù)。為了方便操作，在此設(shè)置了查詢功能，以便快速定位到要操作的記錄。 的信息?,4+32,信息窗口)if yn = 6 deletepackdo case case =1 =企事業(yè)單位 case =2 =駕駛員信息 case =3 =機動車信息 case =4 =事故記錄endcase result = tableupdate(.f.) if result = .t. =messagebox(刪除成功 ! ,48,信息窗口) else =messagebox(刪除不成功 !! , 48,信息窗口) =tablerevert(.f.) endifendif() 修改操作： public curentcurent=reo()do case case =1 do form dw case =2 do form jsy case =3 do form jdc case =4 do form sgendcase() 四、 查詢數(shù)據(jù)1. 事故記錄的查詢：根據(jù)查詢情況的不同，設(shè)置了通過駕駛證號、事故編號、車牌號碼三種條件進行查詢。每次查詢結(jié)束后系統(tǒng)會自重置查詢條件，以備下一個查詢。在這個表單中的數(shù)據(jù)環(huán)境是“駕駛員情況”表和“企事業(yè)單位”表關(guān)聯(lián)。 其中單位駕駛員統(tǒng)計是建立了一個一對多的分組報表，這樣就可根據(jù)實際需要，分別將各個單位的駕駛員情況查詢，輸出。功能實現(xiàn)：為了保證原始數(shù)據(jù)的安全，設(shè)置了“超級“操作權(quán)限，操作員應具有其操作權(quán)限才可進入修改。背景文件被選定將其全文件名作為一字符串，保存在公共變量中，以備使用。另外在實際中隨時都有可能遭到意外的甚至是人為的破壞，為了保證數(shù)據(jù)的安全，一般應定期對數(shù)據(jù)進行備份以防不測。另外上移的說明文字是利用Timer控件控制Label控件在容器類控件內(nèi)移動實現(xiàn)的。如有時通過工具欄、菜單、鼠標右鍵、等都可以實現(xiàn)相同的功能，相應的按鈕和菜單的Enabled屬性也控制得非常到位，以免用戶的錯誤操作。在今后的工作學習中，我要更加努力的學習編程知識，使自己的編程能力更上一層樓。表單設(shè)計工具39。配置方式39。報表設(shè)計工具39。數(shù)據(jù)表設(shè)計工具39。常用39。 LOWER() 39。請確認您表單的 ShowWindow 屬性已設(shè)為 2。 MESSAGE 輸入、修改、刪除企事業(yè)單位、機動車、駕駛員備案信息DEFINE PAD _04n0zaqhn OF () PROMPT 查詢數(shù)據(jù)(\V) COLOR SCHEME 3 。 MESSAGE 瀏覽打印報表DEFINE PAD _04n0zaqhp OF () PROMPT 設(shè)置 (\S) COLOR SCHEME 3 。 DO _04n0zaqie 。 KEY ALT+A, ALT+A 。 MESSAGE 修改、刪除企事業(yè)單位、機動車、駕駛員備案信息ON SELECTION BAR 1 OF (a_menupops[1]) do form 新增ON SELECTION BAR 2 OF (a_menupops[1]) do form 編輯DEFINE POPUP (a_menupops[2]) MARGIN RELATIVE SHADOW COLOR SCHEME 4DEFINE BAR 1 OF (a_menupops[2]) PROMPT 企事業(yè)單位信息(\Q)... 。 MESSAGE 查詢駕駛員備案信息DEFINE BAR 3 OF (a_menupops[2]) PROMPT 機動車信息(\C)... 。 MESSAGE 查詢事故記錄ON SELECTION BAR 1 OF (a_menupops[2]) do form dwcxON SELECTION BAR 2 OF (a_menupops[2]) do form jsycxON SELECTION BAR 3 OF (a_menupops[2]) do form jdccxON SELECTION BAR 4 OF (a_menupops[2]) do form sgcxDEFINE POPUP (a_menupops[3]) MARGIN RELATIVE SHADOW COLOR SCHEME 4DEFINE BAR 1 OF (a_menupops[3]) PROMPT 企事業(yè)單位清單(\Q)... 。 MESSAGE 重復上一次命令或操作DEFINE BAR _med_undo OF 快捷菜單 PROMPT 撤消(\U) 。 MESSAGE 粘貼剪貼板上的內(nèi)容DEFINE BAR _med_copy OF 快捷菜單 PROMPT 復制(\C) 。 MESSAGE 移去選定內(nèi)容并將其放入剪貼板ACTIVATE POPUP 快捷菜單 新增代碼:=.t.=reo() APPEND BLANK=.f.=.f.=.f.=.t.=.t.=.t.() () result = TABLEUPDATE(.f.) IF result = .F. =MESSAGEBOX(保存不成功!+CHR(13)+請注意代號是否輸入(重復)？。輸入文件名 : 39。+ ALLTRIM(n)+。 FROM sj!jsy INNER JOIN sj!sg 。 , 。 INTO CURSOR SG2SELECT , , , ,。 WHERE = sgcx。 WHERE = dwcx。 ON = 。 FROM sj!dw INNER JOIN sj!jsy 。 , , , 。 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