計(jì)量器具管理系統(tǒng)

1、計(jì)量器具管理系統(tǒng)專業(yè)：計(jì)算機(jī)應(yīng)用 姓名：羅維海 指導(dǎo)教師：朱程榮【摘要】計(jì)量器具的管理水平，直接影響到企業(yè)產(chǎn)品質(zhì)量符合性的要求，為確保計(jì) 量器具能夠及時(shí)準(zhǔn)確量傳和溯源；通過本管理系統(tǒng)建立在用計(jì)量器具管理臺(tái)帳，掌握 計(jì)量器具檢修檢定信息、部門使用狀態(tài)信息和封存計(jì)量器具管理臺(tái)帳，使我廠的計(jì)量 器具管理工作系統(tǒng)化、規(guī)范化、自動(dòng)化，從而達(dá)到提高企業(yè)計(jì)量器具管理效率與水平 的目的?！娟P(guān)鍵詞】計(jì)量器具管理系統(tǒng)分析、設(shè)計(jì)、開發(fā)與實(shí)施【外文摘要】（略）|0 /新?lián)綦厴I(yè)設(shè)計(jì)（論文）報(bào)告紙 TOC o 1-5 h z 目錄1弓1言3 HYPERLINK l bookmark10 o Current Docume

2、nt 2計(jì)量器具管理系統(tǒng)設(shè)計(jì)4 HYPERLINK l bookmark13 o Current Document 2.1系統(tǒng)目標(biāo)設(shè)計(jì)4 HYPERLINK l bookmark16 o Current Document 2.2開發(fā)設(shè)計(jì)思想4 HYPERLINK l bookmark19 o Current Document 2.3開發(fā)和運(yùn)行環(huán)境4 HYPERLINK l bookmark22 o Current Document 2.4系統(tǒng)功能分析42.4.1主控模塊42.4.2初始化模塊42.4.3數(shù)據(jù)輸入模塊42.4.4數(shù)據(jù)更新模塊42.4.5器具查詢模塊42.4.6數(shù)據(jù)拷貝模塊52.4

3、.7打印報(bào)表模塊52.4.8退出模塊5 HYPERLINK l bookmark25 o Current Document 3數(shù)據(jù)庫設(shè)計(jì)6 HYPERLINK l bookmark28 o Current Document 3.1需求分析6 HYPERLINK l bookmark31 o Current Document 3.2數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì)7 HYPERLINK l bookmark34 o Current Document 3.3數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)7 HYPERLINK l bookmark37 o Current Document 4數(shù)據(jù)庫結(jié)構(gòu)實(shí)現(xiàn)9 HYPERLINK l boo

4、kmark40 o Current Document 4.1使用項(xiàng)目管理器實(shí)現(xiàn)數(shù)據(jù)庫結(jié)構(gòu)9 HYPERLINK l bookmark43 o Current Document 5各功能模塊的建立10 HYPERLINK l bookmark46 o Current Document 5.1開始界面的設(shè)計(jì)10 HYPERLINK l bookmark49 o Current Document 5.2退出界面的設(shè)計(jì)11 HYPERLINK l bookmark52 o Current Document 5.3查詢界面的設(shè)計(jì)12 HYPERLINK l bookmark55 o Current Do

5、cument 5.4數(shù)據(jù)查詢模塊設(shè)計(jì)135.4.1原始臺(tái)帳數(shù)據(jù)查詢模塊設(shè)計(jì)13 HYPERLINK l bookmark58 o Current Document 5.5初始化模塊設(shè)計(jì)17 HYPERLINK l bookmark61 o Current Document 5.6數(shù)據(jù)錄入模塊設(shè)計(jì)18 HYPERLINK l bookmark64 o Current Document 5.7數(shù)據(jù)修改模塊設(shè)計(jì)19 HYPERLINK l bookmark73 o Current Document 5.8數(shù)據(jù)備份模塊設(shè)計(jì)21 HYPERLINK l bookmark76 o Current Docu

6、ment 5.9打印模塊設(shè)計(jì)22 HYPERLINK l bookmark83 o Current Document 5.10代碼設(shè)計(jì)24 HYPERLINK l bookmark96 o Current Document 6開發(fā)中的難點(diǎn)和解決技巧28 HYPERLINK l bookmark105 o Current Document 7運(yùn)行結(jié)果298軟件的安裝與使用30小結(jié)31 HYPERLINK l bookmark116 o Current Document 謝辭32 HYPERLINK l bookmark119 o Current Document 主要參考文獻(xiàn)331引言我廠福州鐵

7、路分局直屬的二等基層站段，是從事鐵路貨物裝卸機(jī)械化的專業(yè)工 廠，下設(shè)八個(gè)班組六個(gè)職能科室；其主要產(chǎn)品是0.5t-65t門、橋式起重機(jī)。在制造、 維修產(chǎn)品過程中，各零部件的形狀、位置尺寸直接影響到本企業(yè)的產(chǎn)品質(zhì)量的穩(wěn)定與 提高。目前計(jì)量器具的管理工作由質(zhì)管科負(fù)責(zé)，采用手工校對(duì)計(jì)量器具臺(tái)帳信息、使 用信息、檢修檢定信息和日常管理工作；由于本企業(yè)的計(jì)量器具品種較全且數(shù)量較多、 達(dá)三百多件套，目前沒有一套計(jì)算機(jī)系統(tǒng)軟件進(jìn)行管理，一方面要掌握本企業(yè)器具管 理臺(tái)帳信息、及使用信息，另一方面要掌握本企業(yè)器具檢修檢定信息，同時(shí)又必須確 保在用器具是合法、有效的；工作量很大，而且會(huì)出現(xiàn)超過檢定時(shí)效的器具在生產(chǎn)過

8、 程中量傳，進(jìn)而影響產(chǎn)品質(zhì)量的符合性要求。因此要加強(qiáng)企業(yè)計(jì)量器具的基礎(chǔ)管理工作。急需一套計(jì)量器具的管理系統(tǒng)，對(duì)計(jì)量器 具進(jìn)行有效管理，準(zhǔn)確掌握計(jì)量器具的量傳和溯源，提高企業(yè)的產(chǎn)品質(zhì)量；本系統(tǒng)將 較全面對(duì)計(jì)量器的管理進(jìn)行研究。2計(jì)量器具管理系統(tǒng)設(shè)計(jì)2.1系統(tǒng)目標(biāo)設(shè)計(jì)：系統(tǒng)應(yīng)具有良好的人機(jī)界面，靈活的窗口風(fēng)格，友好的幫助使用說明以及較完 整的器具管理流程，讓使用該系統(tǒng)的工作人員無須擁有專業(yè)的電腦知識(shí)，輕松完成日 常工作。整個(gè)系統(tǒng)應(yīng)直觀統(tǒng)一化，能夠方便的進(jìn)行各種信息查詢，各項(xiàng)查詢工作輕松 點(diǎn)擊即可完成。報(bào)表打印格式統(tǒng)一，操作快捷，數(shù)據(jù)修改簡潔明了。新系統(tǒng)應(yīng)利于維 護(hù)，整個(gè)系統(tǒng)應(yīng)使原先手工管理模式下的

9、工作效率低，工作量大，出錯(cuò)率高的狀況完 全得以轉(zhuǎn)變，使我廠計(jì)量器具管理工作系統(tǒng)化、規(guī)范化、自動(dòng)化，從而達(dá)到提高企業(yè) 計(jì)量器具管理效率與水平的目的。2.2開發(fā)設(shè)計(jì)思想：2.2.1由于本企業(yè)尚無計(jì)量器具管理系統(tǒng)，因此開發(fā)盡可能采用現(xiàn)有本企業(yè)的計(jì)算機(jī) 軟硬件環(huán)境。2.2.2系統(tǒng)符合本企業(yè)監(jiān)視與測量裝置控制程序之規(guī)定，滿足計(jì)量器具日常管理 工作的需要并達(dá)到操作過程的直觀、方便、實(shí)用、安全等要求。2.2.3系統(tǒng)采用模塊化程序設(shè)計(jì)方法，既便于系統(tǒng)功能模塊的組合，又便于未參與開 發(fā)的技術(shù)維護(hù)人員補(bǔ)充、維護(hù)。2.2.4系統(tǒng)具備數(shù)據(jù)庫維護(hù)功能，能及時(shí)根據(jù)企業(yè)器具情況進(jìn)行數(shù)據(jù)的初始化、添加、 刪除、修改、備份操作

10、。2.3開發(fā)和運(yùn)行環(huán)境：開發(fā)工具：Visual Foxpro 6.0運(yùn)行環(huán)境：Windows 9x Windows NT 或 Windows 2000.2.4系統(tǒng)功能分析：計(jì)量器具管理系統(tǒng)需要完成功能主要有：2.4.1主控模塊：該模塊是整個(gè)系統(tǒng)的控制中心，包含數(shù)據(jù)初始化、數(shù)據(jù)輸入、數(shù)據(jù) 更新、查詢、是系統(tǒng)進(jìn)入各級(jí)子模塊的入口。2.4.2初始化模塊：初始化是系統(tǒng)工作的準(zhǔn)備工作，系統(tǒng)每次工作前必須刪掉上一次 操作保留的部分?jǐn)?shù)據(jù)，然后才能進(jìn)行新數(shù)據(jù)的錄入，初始化的功能是清除以前的數(shù)據(jù)， 以防舊數(shù)據(jù)對(duì)新數(shù)據(jù)產(chǎn)生不必要的影響。2.4.3數(shù)據(jù)輸入模塊：系統(tǒng)基礎(chǔ)是輸入數(shù)據(jù)，只有將數(shù)據(jù)寫入到相應(yīng)的數(shù)據(jù)庫后，才

11、 能對(duì)它們進(jìn)行查詢、修改、打印。2.4.4數(shù)據(jù)更新模塊：數(shù)據(jù)更新模塊的主要功能是對(duì)已輸入數(shù)據(jù)進(jìn)行修改。2.4.5器具查詢模塊：該模塊的主要功能是顯示某一器具的所有信息。2.4.6數(shù)據(jù)拷貝模塊：該模塊是數(shù)據(jù)庫中的記錄拷貝到備份數(shù)據(jù)庫中，以防止數(shù)據(jù)庫 的丟失。同時(shí)把數(shù)據(jù)庫里不需要的東西刪除，以節(jié)省磁盤空間。2.4.7打印報(bào)表模塊：該模塊是將所需要的數(shù)據(jù)以表格形式從打印機(jī)打印出來，它是 由臺(tái)帳、檢修檢定表、部門器具表和封存臺(tái)帳表組成。2.4.8退出模塊：當(dāng)退出系統(tǒng)時(shí)，給出歡迎使用等信息。主控模器具查詢數(shù)據(jù)備份部門數(shù)據(jù)錄入原始數(shù)據(jù)錄入原始臺(tái)帳報(bào)表部門器具報(bào)表檢修計(jì)劃報(bào)表封存器具報(bào)表系統(tǒng)功能模塊圖2.1

12、3數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫的結(jié)構(gòu)設(shè)計(jì)是一個(gè)非常重要的問題，數(shù)據(jù)庫設(shè)計(jì)的好壞，直接對(duì)本系統(tǒng)的 效率以及實(shí)現(xiàn)效果產(chǎn)生影響。同時(shí)減少數(shù)據(jù)庫的存儲(chǔ)量，做到數(shù)據(jù)的完整性和一致性 比較高，使系統(tǒng)有較快的響應(yīng)速度。在數(shù)據(jù)庫系統(tǒng)設(shè)計(jì)的時(shí)候盡量考慮全面，尤其要仔細(xì)考慮計(jì)量器具管理過程中的 各種管理過程的要求，避免在設(shè)計(jì)過程中浪費(fèi)不必要的人力和物力。3.1需求分析：數(shù)據(jù)庫的需求分析是數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)的第一階段，主要是收集基本數(shù)據(jù)、數(shù)據(jù)結(jié) 構(gòu)以及確定數(shù)據(jù)處理流程，為下一步設(shè)計(jì)打基礎(chǔ)。在仔細(xì)調(diào)查計(jì)量器具管理過程的基礎(chǔ)上，得到系統(tǒng)所要處理的流程如圖3.1返回?cái)?shù)據(jù)查詢結(jié)果數(shù)據(jù)流程圖3.1通過對(duì)計(jì)量器具管理系統(tǒng)的內(nèi)容和數(shù)據(jù)流程分析，

13、設(shè)計(jì)的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)如下：3.1.1部門分類數(shù)據(jù)表（部門號(hào)，使用部門，使用人）3.1.2原始臺(tái)帳數(shù)據(jù)表（部門號(hào)，器具編號(hào)，器具名稱，規(guī)格型號(hào)，原值，數(shù)量，產(chǎn) 地，使用狀態(tài)，檢定周期，檢定費(fèi)用，使用部門，使用人，次檢時(shí)間，續(xù)檢時(shí)間，檢 定機(jī)構(gòu)，檢定證號(hào)、備注）3.2數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì)：在以上需求分析的的基礎(chǔ)上，設(shè)計(jì)出能夠滿足本廠需求的各種實(shí)體，以及確定它 們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ)。根據(jù)上面設(shè)計(jì)，規(guī)劃出的實(shí)體有：器具原始數(shù)據(jù)實(shí)體和部門數(shù)據(jù)實(shí)體。如圖3.2 所示。使用部門圖3-2實(shí)體間的E-R圖3.3數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)：將上面的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為Uisual Foxpro 6.

14、0數(shù)據(jù)庫系統(tǒng)所友持的實(shí)際數(shù) 據(jù)模型，也就是數(shù)據(jù)庫的邏輯結(jié)構(gòu)。在掌握了上面的實(shí)體以及實(shí)體之間關(guān)系的基礎(chǔ)上， 確定數(shù)據(jù)庫中的表格以及表格之間的關(guān)系。計(jì)量器具管理系統(tǒng)數(shù)據(jù)庫中各表格的設(shè)計(jì)結(jié)果如表3-1至3-2所示。每個(gè)表格表示在數(shù)據(jù)庫中的一個(gè)表。表3-1原始臺(tái)帳數(shù)據(jù)表表 3-1ystzsj 表列名數(shù)據(jù)類型可否為空說明bmhN(4)NULL部門號(hào)qjbhN(12)NULL器具編號(hào)qjmcC(12)NULL器具名稱glxhN(16)NULL規(guī)格型號(hào)slN(6)NULL數(shù)量yzN(12)NULL原值cdC(16)NULL產(chǎn)地sysjD(8)NULL始用時(shí)間syztC(4)NULL使用狀態(tài)jdzqC(8)N

15、ULL檢定周期jdhyN(8)NULL檢定費(fèi)用sybmC (10)NULL使用部門syrC(10)NULL使用人cjsjD(8)NULL次檢時(shí)間xjsjD(8)NULL續(xù)檢時(shí)間jdzqN(2)NULL檢定周期jdjgC(12)NULL檢定機(jī)構(gòu)bzM(4)NULL備注表3-2部門分類數(shù)據(jù)表表 3-2bmhlsj 表列名數(shù)據(jù)類型可否為空說明BmhN(4)NULL部門號(hào)sybmC(10)NULL使用部門syrC(10)NULL使用人據(jù)庫結(jié)構(gòu)實(shí)現(xiàn)根據(jù)需求分析、概念結(jié)構(gòu)設(shè)計(jì)的基礎(chǔ)上得到數(shù)據(jù)庫的邏輯結(jié)構(gòu)后，在VisualFoxPro 6.0數(shù)據(jù)庫中實(shí)現(xiàn)該邏輯結(jié)構(gòu)。實(shí)現(xiàn)數(shù)據(jù)結(jié)構(gòu)的邏輯結(jié)構(gòu)的主要方式使用Vis

16、ual FoxPro的項(xiàng)目管理器。以下將 原始臺(tái)帳數(shù)據(jù)庫、部門分類數(shù)據(jù)庫，創(chuàng)建這些表單的過程。首先，先建一個(gè)名為“jlqjgl （計(jì)量器具管理）”的項(xiàng)目，保存在磁盤中。4.1使用項(xiàng)目管理器實(shí)現(xiàn)數(shù)據(jù)庫結(jié)構(gòu)打開，如圖4-1所示的“jlqjgl（計(jì)量器具管理）”項(xiàng)目后，在項(xiàng)目管理器中展開 數(shù)據(jù)文件夾，用鼠標(biāo)選中數(shù)據(jù)庫，單擊右側(cè)“NewTable（新建表）”，為數(shù)據(jù)庫添加數(shù) 據(jù)表（表的內(nèi)容見表3-1至表3-2）。5各功能模塊的建立5.1開始界面的設(shè)計(jì)該模塊的主要功能是當(dāng)用戶啟動(dòng)使用“計(jì)量器具管理系統(tǒng)”時(shí)，顯示歡迎界面， 開始界面的歡迎詞每個(gè)1秒鐘閃爍一次。當(dāng)用戶按下鍵盤上任一鍵時(shí)，系統(tǒng)自動(dòng)進(jìn)入 下一級(jí)

17、表單，即“mainmenu”表單。本模塊利用一個(gè)表單就可以實(shí)現(xiàn)其功能。以下是這一模塊的設(shè)計(jì)步驟。首先新建一個(gè)表單，保存為“welcome”。將表單的“Caption”屬性設(shè)定為“歡 迎界面”，“Desktop”屬性設(shè)置為“.T.-True”。為了給該表單添加一張圖片背景， 設(shè)其“ Picture ”屬性為所要添加圖片的地址，本系統(tǒng)中為c:my documentsLWHFj056。然后為該表單添加1個(gè)“Timer1”控件和1個(gè)“Label1”控 件。修改“Time1”控件的“Interval”的屬性為“1000”，這樣當(dāng)每間隔一秒鐘觸發(fā) 一次“ Timer Event” 事件。“Label1”控

18、件的相關(guān)屬性的內(nèi)容如表5-1所示。表5-1“Label1”控件中主要屬性屬性名稱屬性值Caption歡迎使用計(jì)量器具管理系統(tǒng)BackStyle0-TransparentFontBold.T.FontName隸書FontSize36ForeColor16711935“ Caption ”的屬性為所要顯示的歡迎詞，“ BackStyle ”屬性修改的目的是使“Label1 ”控件的背底透明。修改其“ FontBold”、“FontName ”、“FontSize”和 “ForeColor”屬性是為了調(diào)整字體形式，以顯得美觀。其中“ForeColor”為“字體 顏色設(shè)置” “洋紅色”。并為各個(gè)事件添

19、加代碼。在“welcome”表單的“init”事件中添加代碼如下：public nTimenTime=1這段代碼的目的是通過設(shè)立1個(gè)“nTime”全局變量（并設(shè)其初始值為“1”）來 控制“Lablel”控件，以達(dá)到控制歡迎詞的閃爍。在“welcome”表單的“KeyPress”事件添加代碼如下：thisform.release*釋放本表單release nTime*釋放變量“ nTime”do form mainmenu*運(yùn)行表單“ mainmenu”這段代碼的目的是當(dāng)按下任意鍵時(shí)，釋放該表單和全局變量“nTime”同時(shí)進(jìn)入 舊一級(jí)表單“ mainmenu”。在“Timer”控件的“Timer

20、 Event”事件中添加如下代碼：if i=0thisform.Label1.visible二.f.i=1elsethisform.Label1.visible二.t.i=0endif這段代碼的內(nèi)容是通過判斷全局變量“ nTime”的值來控制歡迎詞的閃爍。當(dāng) “nTime”的值為“0”，令“Label1”控件“不可見”，同時(shí)置“nTime”為“1”以備 下次觸發(fā)“Timer Event”事件時(shí)使用。同樣，當(dāng)“iTime”的值為“1”，令“Label1” 控件“可見”，同時(shí)置“nTime”為“0”以備下次觸發(fā)“Timer Event”事件時(shí)使用。 通過每隔1秒觸發(fā)一次“Timer Event”事

21、件，可以使“Label1”控件時(shí)隱時(shí)現(xiàn)，以 達(dá)到令歡迎閃爍的目的。5.2退出界面的設(shè)計(jì)：該模塊設(shè)計(jì)目的是當(dāng)用戶退出系統(tǒng)時(shí)顯示感謝詞，畫面停留兩秒鐘后自動(dòng)退出， 這一模塊利用一個(gè)表單可實(shí)現(xiàn)其功能。首先新建一個(gè)表單，保存為“End”，在其上添加1個(gè)“Timer1”控件和3個(gè)“Label” 控件。各控件屬性表略。在“Time1”控件的“Timer Event ”中添加代碼如下：thisform.release*釋放表單并停止由READ EVENT開始的事件處理，CLEAR EVENT*令程序從READ EVENT的下一條程序行繼續(xù)執(zhí)行。將該表單保存后，退出界面這一模塊就建立好了。5.3查詢界面的設(shè)計(jì)

22、：這一模塊的主要功能是為選擇原始臺(tái)帳數(shù)據(jù)庫提供一個(gè)接口。由于本模塊只是一 個(gè)接口界面，可利用一個(gè)表單即解決。該模塊的設(shè)計(jì)步驟如下。先新建一個(gè)表單Form，保存為“cxjm”。在表單上添加1個(gè)“Image1”控件，1個(gè)控件Label1”控件，1個(gè)“ Timer1 ”控件，1個(gè)“ Container ”控件和1個(gè)“ Command ”控件。在 “Container”控件上再添加1個(gè)“Command”控件。各控件中主要屬性表略。修改完各控件的相關(guān)屬性后，我們?yōu)楦魇录砑哟a。在“Form1”的“Init”事件中添加代碼如下：public nTimenTime=1*設(shè)一個(gè)全局變量“nTime”，并設(shè)其

23、初始值為“1”在“ Form1”的“ destory”事件中添加代碼職下：release nTime*當(dāng)該表單釋放時(shí)，同時(shí)釋放全局變量“ nTime”在“Time1”控件的“Timer Event ”事件中添加代碼如下：if i=0thisform.Label1.visible二.t.i=1elsethisform.Label1.visible=.f.i=0endif*通過全局變量nTime1控制“Label1”，使其時(shí)隱時(shí)現(xiàn)。在“commend1 ”控件的“Click”事件中添加代碼如下：do jlqjglformystzcx*進(jìn)入下級(jí)表單，保留本表單在“commend5”控件的“Click

24、”事件中添加代碼如下：thisform.release*釋放表單將該表單保存后，查詢界面設(shè)計(jì)模塊就建立好了。5.4數(shù)據(jù)查詢模塊設(shè)計(jì)5.4.1原始臺(tái)帳數(shù)據(jù)查詢模塊設(shè)計(jì)這一模塊實(shí)現(xiàn)了最基本而又很重要的功能，它讓用戶方便快捷、多角度地得知想 要查詢的情況。該模塊提供“原始臺(tái)帳數(shù)據(jù)庫”表的查找、數(shù)據(jù)的添加、刪除和修改 功能。同時(shí)還提供“原始臺(tái)帳數(shù)據(jù)庫”的逐條查詢和全庫瀏覽。本模塊利用在一個(gè)表 單中設(shè)置兩個(gè)不同標(biāo)簽頁來實(shí)現(xiàn)其功能，創(chuàng)建過程如下：首先建立1個(gè)表單Form1，然后保存為“ystzcx”。為該表單添加1 4“Pageframe1” 控件和7個(gè)“Commend”控件。各控件的主要屬性如下所示表5

25、.4.1-13至表5.4.1-15。表5-13“Form1”表單中主要屬性屬性名稱屬性值Caption原始臺(tái)帳數(shù)據(jù)查詢Desktop.T.-True表5-14Pageframe1 ”表單中主要屬性屬性名稱屬性值Pagecount2Page1.Caption原始數(shù)據(jù)逐條查詢Page2.Caption原始數(shù)據(jù)全庫查詢表5-15各“Command”控件中Caption屬性“Command ”名稱“Caption ”屬性值Command1編輯Command2查找添加刪除修改提交退出Command3Command4Command5Command6Command?接著為表添加數(shù)據(jù)表。右鍵單擊表單，在彈出的

26、對(duì)話框中選擇“Date Environment”。之后會(huì)繼續(xù)彈出一添加表單對(duì)話框，為該表單添加“ystzsj”表。下 面詳細(xì)介紹這一添加數(shù)據(jù)表的過程。在表單“Forml”的控件“Pageframel”上單擊鼠標(biāo)右鍵，在彈出的對(duì)話框中選 擇“Edit（編輯）”，然后激活“Pageframel”控件中的“Pagel”控件。單擊鼠標(biāo)右鍵 打開數(shù)據(jù)環(huán)境窗口，用鼠標(biāo)左鍵點(diǎn)中“ystzsj”中的“Fields（字段）”不放，將其拖 到控件“Pagel”控件上。然后調(diào)整“Pagel”上的各控件的相對(duì)位置。同樣激活“ Page2”控件，并為其添加l個(gè)“Gridl”控件。設(shè)“ Gridl”控件 “Recordc

27、ontrols ”屬性為表ystzsj”，“Readonly”屬性為.T.-Ture” Page2” 頁面的設(shè)計(jì)結(jié)果。下面為各事件添加代碼。在“Forml”的“init”事件中添加代碼如下：mand6.enabled=.f.*置“ command6”（“提交”按鈕）為不可用public flagflag=0*設(shè)全局變量“flag”并設(shè)其初值為“0”在“ Forml”的“ Destory”事件中添加代碼如下:release flag*從內(nèi)存中釋放全局變量“ flag”在“Commandl”的“Click”事件中添加代碼如下:for i=2 to 38 step 2thisform.Pagefra

28、mel. Pagel.controls(i-1).controlsource= thisform.Pageframel. Pagel.controls(i-l).enabled二.T.endfor*通過循環(huán)語句繼開“ Pagel”中各“Text ”控件的“controlsource”屬性，同時(shí)將其置為可用*以便在其中添加數(shù)據(jù)thisform.Pageframel.Pagel.txtbmh.value=thisform.Pageframel.Pagel.txtQjbh.value=thisform.Pageframel.Pagel.txtQjmc.value=thisform.Pageframe

29、l.Pagel.txtGlxh.value= thisform.Pageframel.Pagel.txtsl.value= thisform.Pageframel.Pagel.txtyz.value=thisform.Pageframel.Pagel.txtCd.value=thisform.Pageframel.Pagel.txtsyzt.value=thisform.Pageframel.Pagel.txtjdzq.value=thisform.Pageframel.Pagel.txtSysj.value=thisform.Pageframel.Pagel.txtjdhy.value=th

30、isform.Pageframel.Pagel.txtSybm.value= thisform.Pageframel.Pagel.txtSyr.value= thisform.Pageframel.Pagel.txtcjsj.value=thisform.Pageframel.Pagel.txtxjsj.value=thisform.Pageframel.Pagel.txtJdjg.value=thisform.Pageframel.Pagel.txtJdzh.value= thisform.Pageframel.Pagel.txtBz.value=*通過以上語句清空“Pagel”上所有“Te

31、xt”控件的值在“Command2”的“Click”事件中添加代碼如下：local condition*定義局部變量“condition”condition=*為局部變量“condition”賦初值，令“condition”為一空字符串 for i=2 to 38 step 2if len(thisform.Pageframe1.Page1.controls(i-1).value)0strl二alltrim(thisform.Pageframe1.Page1.controls(i).name) str2=substr(str1,4)condition=condition+str2+=+;“+a

32、lltrim(thisform.Pageframe1.Page1.controls(i-1).value) +”+andendifendfor*這一段“forendfor”語句的功能是通過if語句判繼將*所有查詢條件不為空的字段名內(nèi)容用“二”連接，*各查詢條件之間用“and”連接組成一個(gè)新字符串存在局部變量“condition” 中condition二 left(condition,len(condition)-5)condition=alltrim(condition)*通過兩個(gè)函數(shù)“l(fā)eft ()和alltrim() ”去掉“Condition”字符串中尾部多余的字節(jié)和前后的*空格sele

33、ct * form ystzsj where condition*利用宏功能，將局部變量“condition中存的字符串為查詢條件，查找符合的 記錄for i=2 to 38 step 2str1=alltrim(thisform.Pageframe1.Page1.controls(i-1).name)str2=substr(str1,4)thisform.Pageframe1.Page1.controls(i-1).controlsource=ystzsj.+str2 thisform.Pageframe1.Page1.controls(i-1).enabled=.f.endfor*將Pag

34、e1上各“Text”控件的“controlsource”屬性與“ystzsj”表中的相應(yīng) 字段建立聯(lián)系在“Command3”的“Click”事件中添加代碼如下：SET MULTILOCKS ONcursorsetprop(buffering，3)for i=2 to 38 step 2thisform.Pageframe1.Page1.controls(i-1).controlsource=thisform.Pageframe1.Page1.controls(i-1).enabled二.T.endfor*通過循環(huán)語句繼開“ Pagel”中各“Text ”控件的“controlsource”屬性

35、，同 時(shí)將其置為可用ed=.f.*置與數(shù)據(jù)庫有關(guān)的按鈕為不可用，以防誤操作。將表單保存后整個(gè)原始臺(tái)帳數(shù)據(jù)查詢模塊就建立起來了。5.5初始化模塊設(shè)計(jì)該模塊的主要功能是使用可以定期清空數(shù)據(jù)庫表內(nèi)容，同時(shí)也能保存表結(jié)構(gòu)。以 便新數(shù)據(jù)的輸入，防止舊數(shù)據(jù)對(duì)新數(shù)據(jù)產(chǎn)生不必要的影響，為用戶節(jié)省更多的磁盤空 間，本模塊可利用一個(gè)表單實(shí)現(xiàn)其功能。該模塊的設(shè)計(jì)如下。首先新建一表單Form1，保存為“czh”。修改其“Caption”屬性為“初始化數(shù) 據(jù)表單”，“Desktop”屬性設(shè)置為“.T.-True”。為該表單添加1個(gè)“Container】” 控件、1個(gè)“Imagel”控件，2個(gè)“Command”控件和2個(gè)

36、“Label”控件。在“Containerl”控件上添加2個(gè)“Check”控件。各控件的主要屬性表略。下面為各事件添加代碼。在“Commandl”控件的“Check”事件中添加代碼如下：if thisform.containerl.checkl.value=luse jlqjgldatabaseystzsj exclusivedelete allpackuseendifif thisform.containerl.check2.value=luse jlqjgldatabase bmhlsjdelete allpackuseendif*將選定的數(shù)據(jù)表格清空。在在“Command2”控件的“Ch

37、eck”事件中添加代碼如下：thisform.release將該表單保存后這一模塊就建立好了。5.6數(shù)據(jù)錄入模塊設(shè)計(jì)該模塊的功能是初始化后進(jìn)行新數(shù)據(jù)的輸入，只有將數(shù)據(jù)寫入到相應(yīng)的數(shù)據(jù)表中 才能對(duì)它們進(jìn)行查詢、修改、打印等操作。本模塊利用在一個(gè)表單中設(shè)置3個(gè)不同標(biāo) 簽頁來實(shí)現(xiàn)其功能。該模塊的設(shè)計(jì)步驟如下：首先新建一個(gè)表單Forml,保存為“sjlr”。修改該表單的“Caption”的屬性為 “數(shù)據(jù)輸入界面”，“Desktop”屬性設(shè)置為“ .T.-True”。為該表單添加1個(gè) “Pageframel ”控件。在“Pageframe1 ”控件上添加3個(gè)“Command”控件。參考原始數(shù)據(jù)查詢模塊中

38、數(shù)據(jù)表的添加方法，為該表單添加“ystzsj”數(shù)據(jù)表。在“Pageframe1”控件上單擊鼠標(biāo)右鍵選擇“Edit（編輯）”，激活“Page1”控件。 將“Data Enviroment（數(shù)據(jù)環(huán)境）”中表“sytzsj”中各字段用鼠標(biāo)拖放至“Page1” 上，并調(diào)整各控件相對(duì)位置使頁面美觀。修改Pageframe1” 控件中 “Pagecount”屬性為 “1”?！癈ommand”控件和“Page”控件的“Caption”屬性如表略。thisform.release“Pageframe1”控件中其它“Page”頁各事件中代碼與“Page1”中類似，本設(shè) 計(jì)不再一一列出。然后將表單ystzk”、“

39、jxjdk”和“bmsyk”保存后，這一模塊就 建立好了。5.7數(shù)據(jù)修改模塊設(shè)計(jì)數(shù)據(jù)更新模塊的主要功能是為用戶提供一個(gè)修改已錄入數(shù)據(jù)的窗口。這一模塊的 界面設(shè)計(jì)如下。5.7.1首先創(chuàng)建一個(gè)“Fy.vcx”導(dǎo)航條的子類設(shè)計(jì)如下：在項(xiàng)目管理器中選擇“Classes（類）”選項(xiàng)卡，選擇新建“New（新建）”，出現(xiàn)一個(gè)類對(duì)話框，在“Class Name（類名）”框中鍵入fy,“Based On（派生于）”框中選擇“Command Group（按鈕組）”，存儲(chǔ)框中填入要存的路徑。單擊“OK（確定）” 按鈕進(jìn)入設(shè)計(jì)窗口。在屬性窗口中修改Buttoncount（按鈕數(shù)目）屬性，使其值為4,這時(shí)出現(xiàn)了 4 個(gè)

40、按鈕，將按鈕拖動(dòng)到適當(dāng)?shù)奈恢茫⒏鶕?jù)需要修改每個(gè)按鈕的Caption屬性， 使其為“上一個(gè)”、“第一個(gè)”、“下一個(gè)”、“最后一個(gè)”。畢業(yè)設(shè)計(jì)（論文）報(bào)告紙?jiān)诎粹o“上一個(gè)”的Click事件中輸入如下代碼：skip-1*記錄后退一個(gè)if bof（）*如已為第一個(gè)記錄messagebox（ “已是第一個(gè)記錄”，48,“信息窗口”）*當(dāng)已為第一個(gè)記錄時(shí)，顯示提示信息mendl.enabled二.f.mend2.enabled=.f.skip*記錄前進(jìn)一個(gè)，使之仍顯示第一個(gè)記錄elsemend1.enabled二.t.mend2.enabled二.t.endifmend3.enabled二.f.mend

41、4.enabled二.f.*根據(jù)狀況設(shè)置各按鈕的可用狀態(tài)thisform.refresh功能：向前翻頁在按鈕“第一個(gè)”的Click事件中輸入如下代碼：goto top*到第一個(gè)記錄mend1.enabled二.f.mend3.enabled二.t.mend4.enabled二.t.*根據(jù)狀況設(shè)置各按鈕的可用狀態(tài)thisform.refresh功能：翻頁至第一個(gè)記錄。在按鈕“下一個(gè)”的Click事件中輸入如下代碼：skip*記錄前進(jìn)一個(gè)if eof（）*如已為最后一個(gè)記錄messagebox（ “已是最后一條記錄”，48, ”信息窗口”）skip-1*記錄后退一個(gè)，使之仍為顯示最后一個(gè)記錄d=.

42、t.*根據(jù)狀況設(shè)置各按鈕的可用狀態(tài)thisform.refresh功能：向后翻頁在按鈕“最后一個(gè)”的Click事件中輸入如下代碼：goto bottom*到最后一個(gè)記錄mend3.enabled二.f.mend1.enabled二.t.mend2.enabled二.t.*根據(jù)狀況設(shè)置各按鈕的可用狀態(tài)thisform.refresh功能：翻頁至最后一個(gè)記錄以上就是一個(gè)具有翻頁功能的fy子類就創(chuàng)建出來了。其次新建一個(gè)表單Form1,保存為“sjxg”。修改該表單的“Caption”的屬性為 “數(shù)據(jù)輸入界面”，“Desktop”屬性設(shè)置為“ .T.-True”。為該表單添加1個(gè) “Pageframe

43、1 ”控件。在“Pageframe1 ”控件上添加3個(gè)“Command”控件。參考原始數(shù)據(jù)查詢模塊中數(shù)據(jù)表的添加方法，為該表單添加“ ystzsj” 1個(gè)數(shù)據(jù) 表。在“Pageframe1”控件上單擊鼠標(biāo)右鍵選擇“Edit（編輯）”，激活“Page1”控件。 將“Data Enviroment（數(shù)據(jù)環(huán)境）”中表“sytzsj”中各字段用鼠標(biāo)拖放至“Page1” 上，并調(diào)整各控件相對(duì)位置使頁面美觀。然后單擊“ Form Controls”窗口中的“ View Classes ”按鈕，在彈出的菜單 中選擇“Add（添加）”，在彈出的對(duì)話框中創(chuàng)建類“Fy.vcx”。這時(shí)“Form Controis”

44、 中的控件修改“Pageframe1”控件中“Pagecount”屬性為“1”。的樣子，單擊“Fy”，為表單添加該控件。“Command”控件和“Page”控件的“Caption”屬性表略。5.8數(shù)據(jù)備份模塊設(shè)計(jì)這一模塊的主要功能是將數(shù)據(jù)庫中的表備份到指定的路徑中，以防止數(shù)據(jù)的丟 失，同時(shí)可在數(shù)據(jù)庫中的表損壞時(shí)恢復(fù)表，避免更大的損失。這一模塊也是通過設(shè)計(jì) 一個(gè)表單來實(shí)現(xiàn)的。為了實(shí)現(xiàn)該模塊的設(shè)計(jì)，需要首先自建一個(gè)繼承于OutLine類的“ActiveX”控 件，名稱為 “OleOutLine”。首先單擊菜單條中的“New（新建）”按鈕，在彈出的對(duì)話框中選擇類“class”）， 單擊“New（新建

45、）”按鈕，創(chuàng)建一個(gè)新類，創(chuàng)建過程如下：在彈出的對(duì)話框中的“Class Neme（類名）”中填寫“outline”；在“Basedon（派 生于）”中單擊右側(cè)按鈕選擇“OleControl”；在“Store in（存儲(chǔ)于）”中填寫存儲(chǔ)路 徑名，本系統(tǒng)為“ c:program filesmicrosoft visualvfp98jlqjgl ”。單擊“ OK （確定）”在彈出的對(duì)話框中的左側(cè)單選框中選擇“Insert Control_Type”框中選擇 “OutLine Control然后單擊“OK （確定）”按鈕。這樣就完成了一個(gè)新控件的建立過程，該控件將保存在選定的路徑中。下面為該控件添加一些

46、事件。為該控件新建事件的步驟為：首先單擊菜單中的“Class（類）”，在彈出的菜單中 選擇“NEW Method（新建方法程序）”，在彈出的對(duì)話框中“Name（名稱）”框中填寫 所要添加的事件名即可。*置“備份文件”按鈕為可用release path2release m.cDir在“Command2”的“Click”事件中添加代碼如下：close all*關(guān)閉所有工作區(qū)中已被打開的數(shù)據(jù)庫、表和索引文件local pathl*定義局部變量“ pathl”pathl二alltrim（thisform.textl.value）*為局部變量“pathl”賦值if len（pathl）=2path1二p

47、ath1+ endif*如果路徑名為盤符根目錄，則應(yīng)在文件名后加“”否則備份文件時(shí)會(huì)出錯(cuò)if thisform.container1.check1.value=1*如果用戶選擇了“ check1”copy file jlqjglystzsj.dbf to &path1*將相應(yīng)文件備份至選定目錄mand2.enabled=.f.*置“備份文件”按鈕為不可用release path1open database jlqjgjlqjgl.dbc exclusive*以獨(dú)占方式打開數(shù)據(jù)庫 jlqjgl.dbc”在“Commands”的“Click”事件中添加代碼如下:thisform.release*將

48、該表單保存后這一模塊就建立好了，數(shù)據(jù)備份模塊設(shè)計(jì)完成。5.9打印模塊設(shè)計(jì)該模塊的主要功能是打印數(shù)據(jù)報(bào)表的界面并提供打印預(yù)覽功能。界面都包括了需 要打印的報(bào)表，下面介紹打印界面中“原始臺(tái)帳數(shù)據(jù)表、“檢修檢定數(shù)據(jù)表”、“部門 使用數(shù)據(jù)表”和“封存器具數(shù)據(jù)表”報(bào)表的設(shè)計(jì)方法。首先設(shè)計(jì)打印界面的設(shè)計(jì)，這一界面通過一個(gè)表單的設(shè)計(jì)實(shí)現(xiàn)。打印界面的基本 設(shè)計(jì)方法與控件的使用與前面的表單設(shè)計(jì)大同小異，其設(shè)計(jì)結(jié)果和控件中相應(yīng)的代 碼。在“打印”按鈕的“Click”事件中添加代碼如下：do form jlqjgsjby*打開下級(jí)表單在“返回”按鈕的“Click”事件中添加代碼如下：thisform.release

49、“打印”按鈕打開的是“打印界面”，該打印也是通過一個(gè)表單設(shè)計(jì)實(shí)現(xiàn)的，該 界面的設(shè)計(jì)結(jié)果如下：在“預(yù)覽”按鈕的“Click”事件中添加代碼如。*釋放該表單至此打印模塊各界面設(shè)計(jì)結(jié)果，下面介紹“原始臺(tái)帳數(shù)據(jù)”、“檢修檢定數(shù)據(jù)”、“部門使用數(shù)據(jù)”和“封存臺(tái)帳數(shù)據(jù)”報(bào)表的設(shè)計(jì)。首先在“Project Manager（項(xiàng)目管理器）”中選擇“Documents（文檔）”頁，在其 中選擇“reports（報(bào)表）”，單擊右側(cè)“New（新建）”按鈕新建一報(bào)表，保存為“tz”。然后單擊菜單的“ report（報(bào)表）”按鈕，在彈出的下拉菜單中選擇第一項(xiàng) “Title/Summary”，在彈出的對(duì)話框中選擇“Titl

50、e band”并按下“OK（確定）”。這時(shí)出在新建的報(bào)表上方多出了一欄“Title”。目前報(bào)表設(shè)計(jì)器中共分標(biāo)題帶區(qū)“ Title （標(biāo)題帶區(qū)）”、“Page header（頁標(biāo)頭 帶區(qū)）”、“Detail（細(xì)節(jié)帶區(qū)）”和“Page footer（頁注腳帶區(qū)）”共4個(gè)帶區(qū)，每個(gè)帶 區(qū)在設(shè)計(jì)時(shí)的主要功能如下：“Title （標(biāo)題帶區(qū)）”：放置標(biāo)題、日期等圍繞標(biāo)題內(nèi)容的矩形框，每個(gè)報(bào)表 打印一次。“Page header（頁標(biāo)頭帶區(qū)）”：放置列標(biāo)題，每頁打印一次?！癉etail（細(xì)節(jié)帶區(qū)）”：放置數(shù)據(jù)和描述性文本。每個(gè)分組打印一次?！癙age footer（頁注腳帶區(qū)）”：放置日期、頁號(hào)等。每頁打印

51、一次。在菜單欄中選擇“View（視圖）”，在下拉菜單中選中“ GridLines（網(wǎng)格線）”打 開網(wǎng)格。利用報(bào)表工具欄中的控件在報(bào)表設(shè)計(jì)器中設(shè)計(jì)報(bào)表。設(shè)計(jì)步驟如下：在標(biāo)題帶區(qū)添加1個(gè)“Labe1”控件，內(nèi)容添加為“原始臺(tái)帳數(shù)據(jù)報(bào)表”；添加1 個(gè)“Field”控件，在彈出的對(duì)話框中單擊表達(dá)式右側(cè)按鈕，在彈出的對(duì)話框中選擇 函數(shù)“ Date（）”。用同樣的方法為頁注腳帶區(qū)也添加1個(gè)“ Field ”控件，表達(dá)式為” 第” +alltrim（str（_pageno）+ ”頁”返回當(dāng)前頁的數(shù)值，str （）函數(shù)將數(shù)值表達(dá)式值 轉(zhuǎn)換為字符串，alltrim（）函數(shù)則去掉字符串首尾的空格?！癙age he

52、ader（頁標(biāo)頭帶區(qū)）”和“Detail（細(xì)節(jié)帶區(qū)）”的設(shè)計(jì)參見報(bào)表設(shè)計(jì)結(jié) 果。與表單的數(shù)據(jù)環(huán)境設(shè)置一樣，將表“tz”添加到該表中。將報(bào)表中對(duì)應(yīng)的字段利 用“Field”控件添加到報(bào)表的細(xì)節(jié)區(qū)中，保存文件后，“原始臺(tái)帳數(shù)據(jù)報(bào)表”的報(bào)表 就建立好了。將“檢修檢定數(shù)據(jù)”、“部門使用數(shù)據(jù)”和“封存器具數(shù)據(jù)”報(bào)表一一設(shè) 計(jì)并保存文件后，打印模塊的全部功能就設(shè)計(jì)完畢了。5.10代碼設(shè)計(jì)本系統(tǒng)代碼設(shè)計(jì)包括啟動(dòng)的主程序、設(shè)置系統(tǒng)執(zhí)行的配置環(huán)境程序和恢復(fù)環(huán)境配 置的程序。主程序主程序是應(yīng)用程序的主文件，即應(yīng)用系統(tǒng)的第一個(gè)執(zhí)行程序。該程序的功能包括（1）確認(rèn)安裝目錄并設(shè)定其為默認(rèn)目錄。這樣在執(zhí)行所有的表單、報(bào)表

53、、程序、 菜單時(shí)就不用在加絕對(duì)路徑。（2）聲明應(yīng)用系統(tǒng)執(zhí)行的配置環(huán)境。（3）執(zhí)行第一個(gè)用戶界面。（4）設(shè)置Visual Foxpro 6.0的桌面環(huán)境。（5）設(shè)置讀取程序的開始點(diǎn)。（6）執(zhí)行應(yīng)用程序結(jié)束時(shí)系統(tǒng)環(huán)境還原程序。建立方法為：在項(xiàng)目管理器的代碼頁中選擇“Program（程序）”，在單擊“New（新建）”按鈕，在彈出的程序框中編寫代碼主程序中代碼如下：*應(yīng)用系統(tǒng)主程序*程序名稱：MATN.PRG*LOCAL,lcProgramLcSys16=SYS（16）LcProgram二SUBSTR（lcSys16,AT（“：”，lcSys16）-1）CD LEFT（lcProgram,RAT（“”

54、，lcProgram）DEACTIVATE WINDOW “PROJECT MANAGER”Do jlqjglsettingDo form jlqjglwelcome_screen.caption=”_screen.left=-10000read eventsDO jlqjglreset代碼設(shè)計(jì)說明。使用“LOCAL”定義2個(gè)局部變量。使用系統(tǒng)參數(shù)“SYS（16）”返回當(dāng)前正在運(yùn)行的程序名，包括路徑。使用AT（）函數(shù)返回第一個(gè)字符串在第二個(gè)字符串中首次出現(xiàn)的數(shù)字位置。本 系統(tǒng)地“.”在程序名中的位置。SUBSTR()函數(shù)返回在另一個(gè)字符串。其中逗號(hào)后的數(shù)字表明在指定字符串中 的開始位置。RAT

55、()函數(shù)返回在另一個(gè)字符中最后出現(xiàn)第一個(gè)字符串的位置。LEFT()函數(shù)從一個(gè)字符串中的最左端返回指定數(shù)目的字符。DEACTIVATE WINDOW “PROJECT MANAGER”語句可以把項(xiàng)目管理器關(guān)閉。使用DO命令執(zhí)行程序setting.prg，設(shè)置執(zhí)行期間的配置程序。使用DO FORM執(zhí)行系統(tǒng)的第一個(gè)界面程序。執(zhí)行READ EVENTS指令開始讀取事件程序，讓程序開始運(yùn)行起來。當(dāng)執(zhí)行了 CLEAR EVENTS事件程序后。通過DO命令執(zhí)行一個(gè)配置還原程序 reset,還原系統(tǒng)配置。程序Setting.prg是用來設(shè)置環(huán)境配置的，它包括關(guān)掉系統(tǒng)菜單，允許顯示 運(yùn)行結(jié)果，隱藏狀態(tài)欄等一系列

56、有利于程序運(yùn)行的設(shè)置。Setting.prg程序的代碼如下：*環(huán)境配置程序*程序名稱：SETTING.PRG*set sysmenu offset sysmenu toset status bar offset notify offset clock statusset palette offset escape onset keycomp to windowsset carry onset confirm onset exact onset near onset ansi offset lock onset exclusive offset multilocks onset deleted onset optimixe onset refresh to 0,5set collate to strokeset default to sys(5)+curdir()set path to sys(5)+curdir()set sysformates offset seconds on