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