【正文】 a_menupops[2]) do form jsycx ON SELECTION BAR 3 OF (a_menupops[2]) do form jdccx ON SELECTION BAR 4 OF (a_menupops[2]) do form sgcx DEFINE POPUP (a_menupops[3]) MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF (a_menupops[3]) PROMPT 企事業(yè)單位清單 (\Q)... 。 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 4 DEFINE BAR 1 OF (a_menupops[2]) PROMPT 企事業(yè)單位信息 (\Q)... 。 DO _04n0zaqie 。 MESSAGE 輸入、修改、刪除企事業(yè)單位、機(jī)動(dòng)車、駕駛員備案信息 DEFINE PAD _04n0zaqhn OF () PROMPT 查詢數(shù)據(jù) (\V) COLOR SCHEME 3 。 LOWER() 39。數(shù)據(jù)表設(shè)計(jì)工具 39。配置方式 39。在今后的工作學(xué)習(xí)中，我要更加努力的學(xué)習(xí)編程知識(shí)，使自己的編程能力更上一層樓。另外上移的說明文字是利用 Timer 控件控制 Label控件在容器類控件內(nèi)移動(dòng)實(shí)現(xiàn)的。背景文件 被選定將其全文件名作為一字符串，保存在公共變量中，以備使用。 其中單位駕駛員統(tǒng)計(jì)是建立了一個(gè)一對(duì)多的分組報(bào)表，這樣就可根據(jù)實(shí)際需要，分別將各個(gè)單位的駕駛員情況查詢，輸出。每次查詢結(jié)束后系統(tǒng)會(huì)自重置查詢條件，以備下一個(gè)查詢。為了方便操作，在此設(shè)置了查詢功能，以便快速定位到要操作的記錄。 （三）機(jī)動(dòng)車信息： 機(jī)動(dòng)車信息的輸入與單位信息的輸入的設(shè)計(jì)思想與操作方法基本相同。不同之處是： 首先，為了使駕駛員的信息更加充分，增加了駕駛員照片字段，當(dāng)用戶單擊鼠標(biāo)右鍵后彈出打開文件對(duì)話框，選則照片。 （一）企事業(yè)單位信息： 1． 版面設(shè)計(jì)： 增加單位代碼：根據(jù)調(diào)研發(fā)現(xiàn)，實(shí)際運(yùn)作情況的單位編號(hào)是根據(jù)單位所在的機(jī)動(dòng)車駕駛員管理系統(tǒng) 11 區(qū)縣、分組、分片產(chǎn)生的。另外，權(quán)限低的操作員對(duì)于系統(tǒng)設(shè)置等部分操作無操作權(quán)，則通過廢止相應(yīng)的菜單項(xiàng)來進(jìn)行控制。 三、 數(shù)據(jù)庫設(shè)計(jì)： （一）創(chuàng)建表結(jié)構(gòu) [企業(yè)事業(yè)單位 ] 數(shù)據(jù)表字段結(jié)構(gòu) 此數(shù)據(jù)表主要用來存貯備案的企事業(yè)單位的基本數(shù)據(jù) 名稱 類型 長度 標(biāo)題 dwbh 字符 8 單位編號(hào) dwmc 字符 30 單位名稱 dwdz 字符 30 單位地址 zgld 字符 8 主管領(lǐng)導(dǎo) lxdh 字符 15 聯(lián)系電話 gczs 整數(shù) 3 公車總數(shù) sczs 整數(shù) 3 私車總數(shù) [駕駛員信息 ] 數(shù)據(jù)表字段結(jié)構(gòu) 此數(shù)據(jù)表主要用來存貯機(jī)動(dòng)車駕駛員的基本數(shù)據(jù) 機(jī)動(dòng)車駕駛員管理系統(tǒng) 6 名稱 類型 長度 標(biāo)題 xm 字符 8 姓名 xb 字符 2 性別 csrq 日期 8 出生日期 xzdz 字符 30 現(xiàn)住地址 dwbh 字符 8 單位編號(hào) lxdh 字符 15 聯(lián)系電話 sfzh 字符 18 身份證號(hào) qzrq 日期 8 取證日期 yxrq 日期 8 有效日期 zjcx 字符 8 準(zhǔn)駕車型 jszh 字符 15 駕駛證 號(hào) zp 通用 4 駕駛員照片 [會(huì)員信息 ] 數(shù)據(jù)表字段結(jié)構(gòu) 此數(shù)據(jù)表主要用來存貯駕駛員會(huì)員的基本數(shù)據(jù) ,僅有除駕駛員數(shù)據(jù)表之外的會(huì)員信息字段 名稱 類型 長度 標(biāo)題 hyzh 字符 8 會(huì)員證號(hào) jszh 字符 15 駕駛證號(hào) mz 字符 4 民族 whcd 字符 4 文化程度 fhmc 字符 8 分會(huì)名稱 hyje 整數(shù) 4 會(huì)員金額 [機(jī)動(dòng)車信息 ] 數(shù)據(jù)表字段結(jié)構(gòu) 此數(shù)據(jù)表主要用來存貯備案的公有企事業(yè)單位的基本數(shù)據(jù) 機(jī)動(dòng)車駕駛員管理系統(tǒng) 7 名稱 類型 長度 標(biāo)題 cphm 字符 8 車牌號(hào)碼 cpxh 字符 10 廠牌型號(hào) cllx 字符 8 車輛類型 clys 字符 4 車輛顏色 syq 字符 2 所有權(quán) cz 字符 30 車主 czdz 字符 30 車主地址 fzrq 日期 8 發(fā)證日期 bsrq 日期 8 報(bào)損日期 [事故記錄 ] 數(shù)據(jù)表字段結(jié)構(gòu) 此表用來存放駕駛員的事故記錄 名稱 類型 長度 標(biāo)題 jszh 字符 15 駕駛證號(hào) cphm 字符 10 車牌號(hào)碼 sgbh 字符 6 事故編號(hào) sgsj 日期 8 事故時(shí)間 sgdj 字符 2 事故等級(jí) sgjs 備注 4 事故簡述 [密碼表 ] 數(shù)據(jù)表字段結(jié)構(gòu) 此數(shù)據(jù)表存貯密碼數(shù)據(jù)主要用來設(shè)置可以操作本系統(tǒng)的人員及權(quán)限 名稱 類型 長度 標(biāo)題 mm 字符 6 密碼 qx 字符 1 權(quán)限 機(jī)動(dòng)車駕駛員管理系統(tǒng) 8 [區(qū)縣代號(hào) ] 數(shù)據(jù)表字段結(jié)構(gòu) 此數(shù)據(jù)表用來存貯各個(gè)區(qū)縣的代號(hào)，是個(gè)靜態(tài)數(shù)據(jù)表，主要用來方便用戶輸入企事業(yè)單位的基本數(shù)據(jù) 名稱 類型 長度 標(biāo)題 qxmc 字符 6 區(qū)縣名稱 qxdh 字符 2 區(qū)縣代號(hào) （二）數(shù)據(jù)庫說明 本數(shù)據(jù)庫共包括：企業(yè)事業(yè)單位 、駕駛員信息、機(jī)動(dòng)信息、事故記錄、會(huì)員信息、等數(shù)據(jù)表，其間存在著多個(gè)關(guān)聯(lián)。 該系統(tǒng)不僅可以簡化數(shù)據(jù)管理，而且使應(yīng)用程序的開始流程更為合理。通過對(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)行管理。 Visual FoxPro 還提供了一個(gè)集成化的開發(fā)環(huán)境，不僅擁有功能強(qiáng)大的面向?qū)ο蟪绦蛟O(shè)計(jì)工具以及客戶 /服務(wù)器能力，而且還支持 ActiveX，這些特點(diǎn)都為快速開發(fā)功能全面的應(yīng)用程序創(chuàng)造了良好的條件。這樣便可找到事故所涉及機(jī)駕駛員的詳細(xì)情況和機(jī)動(dòng)車的詳細(xì)資料等。 在輸入界面設(shè)置了一組快捷菜單“復(fù)制、剪切、復(fù)制”，這樣在輸入重復(fù)的信息時(shí)直接復(fù)制即可。 2． 屬性和事件 新增屬性 isadd 屬性，用來判斷企事業(yè)數(shù)據(jù)表目前是否在新增關(guān)態(tài)，目前設(shè)置為 .F.,表明目前不在新增狀態(tài) . oldrecord 屬性 ,用來儲(chǔ)存新增記錄前，當(dāng)前的記錄編號(hào) ， 等放棄新增后，還返回到原來記錄位置。由于會(huì)員信息的部分字段與駕駛員信息相同，故將其父表單的如“姓名、性別”、“聯(lián)系電話”等信息直接繼承，并將這些字段設(shè)為只讀。為了保證原始數(shù)據(jù)的安全，設(shè)置了“超級(jí)“操作權(quán)限，操作員應(yīng)具有其操作權(quán)限才可進(jìn)入修改。 39。 機(jī)動(dòng)車駕駛員管理系統(tǒng) 18 2. 駕駛員查詢： 在這個(gè)表單里設(shè)置了兩個(gè)查詢條件：按單位名稱查詢?cè)搯挝坏鸟{駛員的基本情況，并顯示駕駛員總數(shù)；第二種條件是根據(jù)駕駛員的駕駛證號(hào)進(jìn)行查詢。這些固定的數(shù)據(jù)也是相對(duì)而言的，一但實(shí)際操作中這些數(shù)據(jù)的定義有所改變，這些預(yù)定的數(shù)據(jù)就要隨之改變來保持一致。 4．?dāng)?shù)據(jù)備份： 數(shù)據(jù)備份是數(shù)據(jù)維護(hù)的重要工作，備案的數(shù)據(jù)一般需要上報(bào)實(shí)現(xiàn)數(shù) 據(jù)共享。在此對(duì)各位指導(dǎo)老師與同學(xué)表示感謝！！在本系統(tǒng)中，我力求使自己的程序功能更加強(qiáng)大和更便于操作。 .ToolBars[2,1] = 39。 .ToolBars[6,1] = 39。 .ToolBars[10,1] = 39。 2 MESSAGEBOX([只能從頂層表單調(diào)用該菜單。 KEY ALT+F, ALT+F 。PRG ,WHERE is MAINMENU?) DEFINE POPUP (a_menupops[1]) MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF (a_menupops[1]) PROMPT 新增數(shù)據(jù) (\A)... 。 KEY ALT+J, ALT+J 。 KEY CTRL+R, Ctrl+R 。 KEY CTRL+X, Ctrl+X 。) IF !EMPTY(GetZP) APPEND GENERAL ZP FROM (GetZP) ENDIF =.f. public xm1,xb1,lxdh1,jszh1 xm1= xb1= jszh1= do form rh 機(jī)動(dòng)車駕駛員管理系統(tǒng) 36 =.t. =reo() APPEND BLANK =.f. =.f. =.f. =.t. =.t. =.t. () () select select select select 編輯代碼 : do case case =1 =60 =120 機(jī)動(dòng)車駕駛員管理系統(tǒng) 37 =120 =60 =60 =60 case =2 =60 =60 =60 =60 =60 case =3 =60 =60 =60 =60 =60 case =4 =60 =60 =60 =60 endcase local n do case case =1 n= case =2 n= 機(jī)動(dòng)車駕駛員管理系統(tǒng) 38 case =3 n= case =4 n= endcase yn = = .F. ENDIF () BOX(是否確定刪除 39。 INTO CURSOR sg4 = else = endif ENDPROC 機(jī)動(dòng)車駕駛員管理系統(tǒng) 46 SELECT , , , ,。 ON = 。 FROM sj!dw INNER JOIN sj!jsy 。 INTO CURSOR Jsy1 機(jī)動(dòng)車駕駛員管理系統(tǒng) 49 SELECT , , , ,。driver:\*.fpt /s () ACTIVATE WINDOWS mainfrm =MESSAGEBOX(數(shù)據(jù)備份成功 !, 4 +32,信息窗口 ) =.t. 【 End】