機(jī)動(dòng)車(chē)駕駛員管理系統(tǒng)本科畢業(yè)論文(存儲(chǔ)版)
【正文】 ESSAGEBOX(保存成功!,48,信息窗口) = = = = = .t. =.t. =.t. =.f. =.f. = .F. () ENDIFyn = MESSAGEBOX(是否放棄編輯?,4+32,信息窗口)IF yn = 6 =TABLEREVERT(.F.) =.T. GO = .F. =.t. = = = = * = .t. =.f. =.f. =.t. =.t. = 268yn = MESSAGEBOX(是否確定離開(kāi)?,4+32,信息窗口)IF yn = 6 () CLEAR EVENTS ENDIFIF = .T. = .F. = .F. ELSE = .T. = .T. ENDIFIF = .T. = .F. = .F. ELSE = .T. = .T. ENDIFGO TOP = .T. = .F. () SKIP 1IF BOF() =MESSAGEBOX(已到第一條記錄!,48,信息窗口) = .T. GO TOPENDIF = .F. () SKIP IF EOF() =MESSAGEBOX(已到最后一條記錄!,48,信息窗口) = .T. GO BOTTOMENDIF = .F. () GO BOTTOM = .F. = .T. () local d1,d2,d3,d4d1=alltrim()d2=alltrim()d3=alltrim()d4=alltrim()=d1+d2+d3+d4local d1,d2,d3,d4d1=alltrim()d2=alltrim()d3=alltrim()d4=alltrim()=d1+d2+d3+d4local d1,d2,d3,d4d1=alltrim()d2=alltrim()d3=alltrim()d4=alltrim()=d1+d2+d3+d4local d1,d2,d3,d4d1=alltrim()d2=alltrim()d3=alltrim()d4=alltrim()=d1+d2+d3+d4 GetZP = GETFILE(39。 39。 FROM sj!jsy INNER JOIN sj!sg 。 INTO CURSOR SG2Name = Form1PROCEDURE Initpublic dwcxdwcx=Name = CMDOKPROCEDURE Clickdwcx=alltrim()do casecase =單位編號(hào)=case =駕駛證號(hào)=case =駕駛員姓名=endcaseENDPROCName = CMDALLPROCEDURE Click=ENDPROCSELECT , , ,。 WHERE = dwcx。 FROM sj!dw INNER JOIN sj!jsy 。driver:\*.fpt /s() ACTIVATE WINDOWS mainfrm=MESSAGEBOX(數(shù)據(jù)備份成功!, 4 +32,信息窗口)=.t.【End】51。 INTO CURSOR Jsy1SELECT , , , ,。 FROM sj!dw INNER JOIN sj!jsy 。 ON = 。INTO CURSOR sg4 = else =endifENDPROCSELECT , , , ,。)IF !EMPTY(GetZP) APPEND GENERAL ZP FROM (GetZP)ENDIF=.f.public xm1,xb1,lxdh1,jszh1xm1=xb1=jszh1=do form rh=.t.=reo() APPEND BLANK=.f.=.f.=.f.=.t.=.t.=.t.() () select select select select 編輯代碼: do case case =1 =60 =120 =120 =60 =60 =60 case =2 =60 =60 =60 =60 =60 case =3 =60 =60 =60 =60 =60 case =4 =60 =60 =60 =60 endcaselocal ndo case case =1 n= case =2 n= case =3 n= case =4 n=endcaseyn = = .F. ENDIF () BOX(是否確定刪除 39。 KEY CTRL+X, Ctrl+X 。 KEY CTRL+R, Ctrl+R 。 KEY ALT+J, ALT+J 。PRG ,WHERE is MAINMENU?)DEFINE POPUP (a_menupops[1]) MARGIN RELATIVE SHADOW COLOR SCHEME 4DEFINE BAR 1 OF (a_menupops[1]) PROMPT 新增數(shù)據(jù)(\A)... 。 KEY ALT+F, ALT+F 。 2 MESSAGEBOX([只能從頂層表單調(diào)用該菜單。 .ToolBars[10,1] = 39。 .ToolBars[6,1] = 39。 .ToolBars[2,1] = 39。在此對(duì)各位指導(dǎo)老師與同學(xué)表示感謝！！在本系統(tǒng)中，我力求使自己的程序功能更加強(qiáng)大和更便于操作。4．?dāng)?shù)據(jù)備份： 數(shù)據(jù)備份是數(shù)據(jù)維護(hù)的重要工作，備案的數(shù)據(jù)一般需要上報(bào)實(shí)現(xiàn)數(shù)據(jù)共享。這些固定的數(shù)據(jù)也是相對(duì)而言的，一但實(shí)際操作中這些數(shù)據(jù)的定義有所改變，這些預(yù)定的數(shù)據(jù)就要隨之改變來(lái)保持一致。2. 駕駛員查詢(xún)：在這個(gè)表單里設(shè)置了兩個(gè)查詢(xún)條件：按單位名稱(chēng)查詢(xún)?cè)搯挝坏鸟{駛員的基本情況，并顯示駕駛員總數(shù)；第二種條件是根據(jù)駕駛員的駕駛證號(hào)進(jìn)行查詢(xún)。 39。為了保證原始數(shù)據(jù)的安全，設(shè)置了“超級(jí)“操作權(quán)限，操作員應(yīng)具有其操作權(quán)限才可進(jìn)入修改。由于會(huì)員信息的部分字段與駕駛員信息相同，故將其父表單的如“姓名、性別”、“聯(lián)系電話”等信息直接繼承，并將這些字段設(shè)為只讀。2． 屬性和事件 新增屬性isadd屬性，用來(lái)判斷企事業(yè)數(shù)據(jù)表目前是否在新增關(guān)態(tài)，.,表明目前不在新增狀態(tài). oldrecord屬性,用來(lái)儲(chǔ)存新增記錄前，當(dāng)前的記錄編號(hào)，等放棄新增后，還返回到原來(lái)記錄位置。 在輸入界面設(shè)置了一組快捷菜單“復(fù)制、剪切、復(fù)制”，這樣在輸入重復(fù)的信息時(shí)直接復(fù)制即可。第三部分 功能模塊詳細(xì)設(shè)計(jì)一、 主界面設(shè)計(jì): 為了使應(yīng)用程序的主要功能得以體現(xiàn)，方便用戶(hù)使用應(yīng)用程序中的命令和工具，我根據(jù)用戶(hù)所要執(zhí)行的任務(wù)為系統(tǒng)設(shè)計(jì)了菜單，給用戶(hù)提供了一個(gè)結(jié)構(gòu)化的、可訪問(wèn)的途徑。（2）具有超級(jí)權(quán)限的操作員可對(duì)已經(jīng)正式備案的上述信息進(jìn)行修改、刪除。 2． 選擇開(kāi)發(fā)工具VISUAL FOXPRO是美國(guó)MICROSOFT公司于推出的新一代高級(jí)程序設(shè)計(jì)語(yǔ)言。運(yùn)行環(huán)境：Microsoft Windows95/98/NT操作系統(tǒng)，586及以上主頻，8M及以上內(nèi)存，運(yùn)行本系統(tǒng)需要8M剩余硬盤(pán)空間。 第二部分 總體設(shè)計(jì)一、系統(tǒng)結(jié)構(gòu)總圖： 啟動(dòng)主界面 數(shù)據(jù)處理查詢(xún)數(shù)據(jù)統(tǒng)計(jì)報(bào)表 系統(tǒng)設(shè)置數(shù)據(jù)處理 退出數(shù)據(jù)處理數(shù)據(jù)輸入處理數(shù)據(jù)編輯輸入處理企事業(yè)單位駕駛員數(shù)據(jù)機(jī)動(dòng)車(chē)數(shù)據(jù)單位事故記錄 會(huì)員數(shù)據(jù)處理事故月報(bào)駕駛員分類(lèi)統(tǒng)計(jì)企事業(yè)單位設(shè)置密碼數(shù)據(jù)編輯輸入處理窗體背景數(shù)據(jù)備份 登錄 打印會(huì)員卡
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1