機(jī)動(dòng)車駕駛員管理系統(tǒng)本科畢業(yè)論文-文庫吧資料
2025-07-02 06:01本頁面
【正文】 ops[1])ON PAD _04n0zaqhn OF () ACTIVATE POPUP (a_menupops[2])ON PAD _04n0zaqho OF () ACTIVATE POPUP (a_menupops[3])ON PAD _04n0zaqhp OF () ACTIVATE POPUP (a_menupops[4])ON SELECTION PAD _04n0zaqib OF () 。 KEY ALT+S, DEFINE PAD _04n0zaqia OF () PROMPT 幫助(\H) COLOR SCHEME 3 。 KEY ALT+F, ALT+F 。 KEY ALT+V, ALT+V 。 KEY CTRL+E, CTRL+E 。閱讀此菜單 MPR 文件的頭部分，可以獲得詳細(xì)信息。 2 MESSAGEBOX([只能從頂層表單調(diào)用該菜單。form39。ENDWITHFOR i = 1 TO 11 [i,2] = WVISIBLE([i,1]) IF [i,2] HIDE WINDOW ([i,1]) ENDIFENDFORENDPROCPROCEDURE DestroySET SYSMENU TO DEFAULT SET SYSMENU ON SET TALK ONSET CONFIRM ONSET SAFETY ON SET STATUS BAR ON MODIFY WINDOWS SCREEN ENDPROCPROCEDURE Unloadlocal ifor i=1 to 11 if [i,2] show window ([i,1]) endifendforENDPROC口令表單:Name = cmdokPROCEDURE Clickpublic i, ctlmenu,lognameI=I+1select 密碼表p=alltrim()locate for mm=alltrim()if found() ctlmenu=qx isuser=.t. logname= () set default to c:\bs do form else =DKLDSA IF I3 MessageBOX(密碼錯(cuò)誤!+CHR(13)+請重新輸入!,48,信息窗口) () ELSE MessageBOX(密碼錯(cuò)誤三此!+CHR(13)+系統(tǒng)無法啟動(dòng)!,48,信息窗口) () ENDIFENDIFENDPROCName = cmdcancelPROCEDURE ClickCLEAR EVENTSCLOSE ALLENDPROC主菜單:LPARAMETERS oFormRef, getMenuName, lUniquePopups, parm4, parm5, parm6, parm7, parm8, parm9LOCAL cMenuName, nTotPops, a_menupops, cTypeParm2, cSaveFormNameIF TYPE() O OR 。 .ToolBars[11,1] = 39。 .ToolBars[10,1] = 39。 .ToolBars[9,1] = 39。 .ToolBars[8,1] = 39。 .ToolBars[7,1] = 39。 .ToolBars[6,1] = 39。 .ToolBars[5,1] = 39。 .ToolBars[4,1] = 39。 .ToolBars[3,1] = 39。 .ToolBars[2,1] = 39。二、 參考文獻(xiàn)：《》 清華大學(xué)出版社 李加福、邸學(xué)峰著《》 北京希望電腦公司 Microsoft Corporation《》 清華大學(xué)出版社 吳迪、曲蒙著《》 北京航空航天大學(xué)出版社 徐培忠著三、 附錄（原程序）主表單:Name = Form1PROCEDURE InitSET SYSMENU OFF SET SYSMENU TO SET TALK OFFSET DELETE OFFSET EXACT OFFSET CONFIRM OFFSET SAFETY OFF SET STATUS BAR OFF SET MULTILOCK ON SET DEFA TO C:\BSDO WITH THIS, .T.ENDPROCPROCEDURE LoadLOCAL iWITH THIS .ToolBars[1,1] = 39。通過本系統(tǒng)的設(shè)計(jì)，我學(xué)到了不少Visual Foxpro編程的技巧，更增加了我的Windows下應(yīng)用程序的編程信心，尤其在數(shù)據(jù)庫編程方面有了很大的進(jìn)步。本程序也經(jīng)過了我較為大量的測試，每次發(fā)現(xiàn)問題后我都耐心的尋找問題所在，然后予以一一解決。在此對各位指導(dǎo)老師與同學(xué)表示感謝??！在本系統(tǒng)中，我力求使自己的程序功能更加強(qiáng)大和更便于操作。代碼如下：=if +0 =+5endif本界面中單擊作者的Email地址，即可調(diào)用用戶機(jī)上缺省的郵件處理程序來給作者發(fā)送郵件。本界面用來顯示版本版權(quán)及其它信息。功能實(shí)現(xiàn)：在這一功能模塊中要備份的數(shù)據(jù)包括數(shù)據(jù)表文件和報(bào)表文件等，并分別設(shè)置了備份到不同的位置，Ａ:盤、Ｃ:盤、Ｄ:盤共三個(gè)出口，主要操作命令是在程序中運(yùn)行操作系統(tǒng)”Copy”命令 ，復(fù)制結(jié)束后通過Ａctive windows 命令再返回到本系統(tǒng)的主窗體，這樣操作員就很方便的將數(shù)據(jù)備份了，即方便了數(shù)據(jù)流通又保證了數(shù)據(jù)安全。4．?dāng)?shù)據(jù)備份： 數(shù)據(jù)備份是數(shù)據(jù)維護(hù)的重要工作，備案的數(shù)據(jù)一般需要上報(bào)實(shí)現(xiàn)數(shù)據(jù)共享。那么，其它窗體是怎樣傳遞這一信息的呢？我在每一個(gè)可設(shè)置背景的窗體的Ａctive事件中判別這上公共變量是否為空，如果不為空則通過命令設(shè)置窗體的Ｐicture屬性，這樣窗體的背景顏色就改變了。功能實(shí)現(xiàn)：這一功能是通過GET FILE 命令調(diào)出打開圖形文件對話框, 用戶選擇文件時(shí)并可預(yù)覽要選擇的文件。具體到數(shù)據(jù)表數(shù)據(jù)的增加、修改和刪除與其它數(shù)據(jù)表是一樣的。這些固定的數(shù)據(jù)也是相對而言的，一但實(shí)際操作中這些數(shù)據(jù)的定義有所改變，這些預(yù)定的數(shù)據(jù)就要隨之改變來保持一致。事故月報(bào)表是將事故記錄根據(jù)月份進(jìn)行分組輸出。在本系統(tǒng)可將企事業(yè)單位的基本情況表；駕駛員基本情況表，各個(gè)單位的駕駛員統(tǒng)計(jì)，事故月報(bào)表等輸出。其設(shè)計(jì)思想與事故查詢基本相同。2. 駕駛員查詢：在這個(gè)表單里設(shè)置了兩個(gè)查詢條件：按單位名稱查詢該單位的駕駛員的基本情況，并顯示駕駛員總數(shù)；第二種條件是根據(jù)駕駛員的駕駛證號進(jìn)行查詢。在這個(gè)表單中的數(shù)據(jù)環(huán)境是“事故記錄”表和“駕駛員情況”表通過駕駛證號關(guān)聯(lián)。車牌號碼查詢是查某輛車的事故記錄。駕駛證號查詢是為了查找某個(gè)駕駛的事故記錄。 39。主要代碼：刪除操作local ndo case case =1 n= case =2 n= case =3 n= case =4 n=endcaseyn = messagebox(是否確定刪除 39。修改操作：先在表格控件中指定該條記錄，然后單擊“修改“按鈕，系統(tǒng)彈出修改子表單，顯示指定的當(dāng)前記錄信息，修改數(shù)據(jù)后點(diǎn)擊“確定“返回；單擊“取消“撤消剛才的修改，恢愎成原來數(shù)據(jù)。操作方法如下：以駕駛員數(shù)據(jù)修改為例（二）刪除數(shù)據(jù)：要?jiǎng)h除某個(gè)駕駛員的數(shù)據(jù)應(yīng)先在表格空件中指定，即在該記錄上單擊，然后點(diǎn)“刪除“按鈕，系統(tǒng)此時(shí)提示是否真的刪除這個(gè)人的信息，回答“是“則該信息從原始數(shù)據(jù)表中刪除。為了保證原始數(shù)據(jù)的安全，設(shè)置了“超級“操作權(quán)限，操作員應(yīng)具有其操作權(quán)限才可進(jìn)入修改。（四）事故記錄信息：事故信息的輸入與單位信息的輸入的設(shè)計(jì)思想與操作方法基本相同。然后再返回其父菜單。會員信息輸入完畢后，返回其父表單。由于會員信息的部分字段與駕駛員信息相同，故將其父表單的如“姓名、性別”、“聯(lián)系電話”等信息直接繼承，并將這些字段設(shè)為只讀。其次，增加了會員輸入。=.t.=reo() append blank=.f.=.f.=.t.=.t.()() （二）駕駛員信息：駕駛員信息的輸入與單位信息的輸入的設(shè)計(jì)思想與操作方法基本相同。字段輸入后單擊“保存”鈕結(jié)束本次新增操作。2． 屬性和事件 新增屬性isadd屬性，用來判斷企事業(yè)數(shù)據(jù)表目前是否在新增關(guān)態(tài)，.,表明目前不在新增狀態(tài). oldrecord屬性,用來儲存新增記錄前，當(dāng)前的記錄編號，等放棄新增后，還返回到原來記錄位置。所以我將單位代碼的輸入變?yōu)椤皡^(qū)縣號”、“地區(qū)號”、“分組號”和“單位號”四
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1