【正文】 理時(shí)，有一個(gè)非常重要的工作是對(duì)窗體中的部門數(shù)結(jié)構(gòu)進(jìn)行構(gòu)造，同時(shí)需要和相關(guān)的員工信息進(jìn)行關(guān)聯(lián)，為此，我們建立了一個(gè)以員工為樹葉的部門結(jié)構(gòu)，其流程如下：(1) 從部門中讀取部門信息，從員工信息表中讀取員工信息，根據(jù)表中的部門字段來(lái)判斷，建立一個(gè)以員工為葉節(jié)點(diǎn)的樹結(jié)構(gòu)。(2) 自定義結(jié)構(gòu)(3) 生成或釋放樹結(jié)構(gòu)此模塊五項(xiàng)功能中添加新員工、編輯員工檔案、刪除員工信息三項(xiàng)涉及到對(duì)數(shù)據(jù)庫(kù)的修改，一下對(duì)它們處理的流程稍作簡(jiǎn)介：增加新的員工檔案信息處理過(guò)程：(1) 設(shè)置當(dāng)前控件的狀態(tài)，使該狀態(tài)下只能進(jìn)行添加或取消兩種操作。(2) 如果用戶在添加信息后選擇保存，那么先檢查添加到信息是否有誤，工號(hào)是否重復(fù)等。(3) 如果填寫正確，則保存新員工信息，同時(shí)提示用戶。編輯員工檔案信息時(shí)程序流程：(1) 程序首先對(duì)用戶輸入的信息進(jìn)行判斷是否有錯(cuò)誤或重復(fù)。(2) 如果正確則運(yùn)用相應(yīng)的數(shù)據(jù)庫(kù)綁定控件編輯并提交。若要?jiǎng)h除員工檔案信息，則流程相對(duì)簡(jiǎn)單。(1) 用戶選擇員工信息并執(zhí)行刪除操作后，程序提示用戶確認(rèn)操作。(2) 如果用戶確認(rèn)則關(guān)聯(lián)數(shù)據(jù)庫(kù)刪除對(duì)應(yīng)員工信息。相關(guān)程序源碼請(qǐng)查閱附錄。 系統(tǒng)信息模塊為了讓用戶更加清楚的了解軟件的相關(guān)信息，創(chuàng)建一個(gè)關(guān)于窗體來(lái)顯示此軟件的信息，方便用戶查看，此窗體只有界面設(shè)計(jì)。選擇“File/New/Other”，在彈出的界面中選擇“Forms”選項(xiàng)，可以看到“About Box”選擇項(xiàng)，選中它并單擊“OK”按鈕，創(chuàng)建一個(gè)“About Box”窗體，修改窗體中各控件的“Caption”屬性如表311所示。 表311關(guān)于窗體中控件的屬性控件名稱“Caption”屬性ProductName產(chǎn)品名稱：基于射頻識(shí)別的智能計(jì)件系統(tǒng)軟件Version版本號(hào)： Copyright版權(quán)所有：中南大學(xué)物理學(xué)院通信原理實(shí)驗(yàn)室Comments聯(lián)系我們：Email: Kehui@ : 342840533 設(shè)置ProgramIcon控件的“Picture”屬性，導(dǎo)入作為產(chǎn)品標(biāo)志的圖片，信息系統(tǒng)窗體的制作就完成了。窗體效果圖如圖311所示。圖311系統(tǒng)信息模塊窗體效果圖第4章 系統(tǒng)調(diào)試與性能分析調(diào)試是軟件開(kāi)發(fā)中不可缺少的環(huán)節(jié)，也是最關(guān)鍵的步驟之一。基于射頻識(shí)別的智能計(jì)件系統(tǒng)在開(kāi)發(fā)調(diào)試過(guò)程中也遇到了相當(dāng)多的困難，雖然過(guò)程比較艱辛，但是正是通過(guò)這樣的過(guò)程，使作者對(duì)軟件開(kāi)發(fā)過(guò)程特別是Delphi平臺(tái)下的軟件開(kāi)發(fā)過(guò)程有了更深刻的理解。調(diào)試過(guò)程中的主要問(wèn)題有以下幾個(gè)方面：(1) 調(diào)試過(guò)程中遇到的第一比較棘手的問(wèn)題是登錄模塊的調(diào)試。軟件運(yùn)行之初，不論輸入的密碼對(duì)錯(cuò)與否，軟件都只會(huì)彈出一個(gè)對(duì)話框，顯示一串字符。經(jīng)過(guò)對(duì)提示信息的認(rèn)真研究，我認(rèn)定這是因?yàn)閿?shù)據(jù)庫(kù)在連接過(guò)程中出錯(cuò)。通過(guò)查閱大量的相關(guān)資料，我發(fā)現(xiàn)原來(lái)是我在設(shè)置數(shù)據(jù)庫(kù)時(shí)選擇了錯(cuò)誤的驅(qū)動(dòng)程序。軟件使用的是Access數(shù)據(jù)庫(kù)，而我卻選擇使用SQL數(shù)據(jù)庫(kù)驅(qū)動(dòng)程序。錯(cuò)誤糾正后登錄模塊很快便調(diào)試成功了。(2) 基于射頻識(shí)別的智能計(jì)件系統(tǒng)軟件的核心部分之一：串行通信模塊，在調(diào)試過(guò)程中也遇到了一些問(wèn)題。系統(tǒng)的主要功能是計(jì)件，數(shù)據(jù)需要從下位機(jī)獲得，而下位機(jī)則是通過(guò)串口傳送數(shù)據(jù)。調(diào)試過(guò)程中串口通信模塊也出現(xiàn)了問(wèn)題，主要癥狀為不能正確接收數(shù)據(jù)，導(dǎo)致程序不能完成后續(xù)操作。系統(tǒng)設(shè)計(jì)通信過(guò)程中傳輸員工工號(hào)、數(shù)量等數(shù)字信息，而軟件顯示接收到的卻是?\!等字符串。通過(guò)對(duì)下位機(jī)和軟件的認(rèn)真分析，未發(fā)現(xiàn)錯(cuò)誤，則可以斷定是硬件傳輸誤碼的問(wèn)題。于是把軟件查詢下位機(jī)的時(shí)間由50毫秒調(diào)整為150毫秒，問(wèn)題便迎刃而解了。 (3) 顯示模塊也出現(xiàn)了問(wèn)題，在主窗體有一個(gè)表格用于顯示員工當(dāng)日工作量，它通過(guò)控件連接到數(shù)據(jù)庫(kù)從中讀取數(shù)據(jù)。當(dāng)程序從串口接收到數(shù)據(jù)并通過(guò)處理更新數(shù)據(jù)庫(kù)后，發(fā)現(xiàn)顯示模塊并不及時(shí)的顯示更新后的數(shù)據(jù)。仔細(xì)的又查看了一遍SQL數(shù)據(jù)庫(kù)語(yǔ)言，沒(méi)有發(fā)現(xiàn)任何錯(cuò)誤。于是直接查看數(shù)據(jù)庫(kù)，發(fā)現(xiàn)數(shù)據(jù)表中的數(shù)據(jù)已經(jīng)更新，判斷是顯示部分而非數(shù)據(jù)庫(kù)問(wèn)題。最后在SQL語(yǔ)句末尾處設(shè)置數(shù)據(jù)庫(kù)Active屬性false，然后再次設(shè)置為true，再次激活數(shù)據(jù)庫(kù)。然后連接下位機(jī)再次調(diào)試，一切立刻正常了。(4) 在設(shè)置員工薪酬單價(jià)是同樣出現(xiàn)了錯(cuò)誤，顯示為字符類型不匹配，我在程序中修改了單價(jià)這次我沒(méi)有設(shè)置小數(shù)，這次竟然沒(méi)有報(bào)錯(cuò)。但是問(wèn)題并沒(méi)有解決，我將數(shù)據(jù)庫(kù)中此列的數(shù)據(jù)類型設(shè)置為文本（原本是數(shù)據(jù)類型）后，還是出現(xiàn)同樣的錯(cuò)誤。于是想到程序源碼中有關(guān)于數(shù)據(jù)類型轉(zhuǎn)換的語(yǔ)句，找到此語(yǔ)句發(fā)現(xiàn)使用了函數(shù)StrtoInt( ),顯然數(shù)據(jù)類型錯(cuò)誤，改為strtofloat( )后，問(wèn)題則解決了。 (5) 軟件使用時(shí)的實(shí)用性，也是調(diào)試過(guò)程中遇到的較多的問(wèn)題之一。如檔案設(shè)置模塊曾出現(xiàn)添加用戶時(shí)不能連續(xù)添加，同時(shí)也不能執(zhí)行其他操作的情況，需要退出窗口再次進(jìn)入才能實(shí)現(xiàn)，這顯然已經(jīng)影響到系統(tǒng)的實(shí)用性。在及時(shí)的修正了源碼并添加了“取消”Button和事件程序后，大大的增強(qiáng)了系統(tǒng)的實(shí)用性。 應(yīng)用程序經(jīng)過(guò)與下位機(jī)聯(lián)合調(diào)試后，程序完全可以與下位機(jī)網(wǎng)絡(luò)實(shí)現(xiàn)通信，下位機(jī)可以正常接收應(yīng)用程序時(shí)間、計(jì)劃數(shù)等數(shù)據(jù)。應(yīng)用程序采集的計(jì)件數(shù)據(jù)可以及時(shí)的顯示和存儲(chǔ)，同時(shí)可以對(duì)員工信息和薪酬進(jìn)行管理。通過(guò)一段時(shí)間的調(diào)試，該程序具有以下幾個(gè)方面的功能特點(diǎn)：(1) 可移植性，可擴(kuò)展性好，程序模塊化的設(shè)計(jì)方法，使開(kāi)發(fā)人員可以對(duì)各個(gè)模塊進(jìn)行任意移植，方便后續(xù)應(yīng)用程序的擴(kuò)展和調(diào)整。(2) 應(yīng)用程序?qū)τ布筝^低，使用硬件資源少，運(yùn)行速度快。(3) 安全性好，程序?qū)Σ煌牡燃?jí)管理員賦予不同的權(quán)限，同時(shí)數(shù)據(jù)庫(kù)系統(tǒng)也設(shè)置密碼，有效的防范非法用戶更改或破壞。(4) 穩(wěn)定性好，應(yīng)用程序?qū)Ξ惓＿M(jìn)行了很好的處理，在某些異常發(fā)生時(shí)程序中的異常處理代碼可以有效的保護(hù)用戶數(shù)據(jù)，防止丟失或損壞。第5章 結(jié) 論面向?qū)ο蟮某绦蛟O(shè)計(jì)（OOP）在開(kāi)發(fā)復(fù)雜的、基于圖形用戶界面的軟件方面已成為一種必然的選擇。面向?qū)ο蟮募夹g(shù)是一些功能強(qiáng)大的工具，能開(kāi)發(fā)復(fù)雜、高級(jí)的系統(tǒng)，這些系統(tǒng)是完整健全的，但又是可以擴(kuò)充的。OOP是建立在把對(duì)象作為基本實(shí)體看待的面向?qū)ο蟮哪Ｐ蜕系?，這種模型可以實(shí)現(xiàn)對(duì)象之間能相互交互作用?；谏漕l的智能計(jì)件系統(tǒng)上位機(jī)部分通過(guò)工業(yè)485總線連接下位機(jī)網(wǎng)絡(luò)，使用串口通信控件SPComm實(shí)現(xiàn)了對(duì)下位機(jī)網(wǎng)絡(luò)的數(shù)據(jù)采集和管理，同時(shí)可完成了對(duì)數(shù)據(jù)的統(tǒng)計(jì)分析以及員工檔案管理等功能。軟件具有實(shí)用性強(qiáng)、可擴(kuò)展性、可維護(hù)性、易用等特點(diǎn)?；谏漕l的智能計(jì)件系統(tǒng)通過(guò)不斷的調(diào)試，應(yīng)用程序性能穩(wěn)定，可擴(kuò)展性強(qiáng)，方便二次開(kāi)發(fā)，界面簡(jiǎn)單友好，操作人員可以快速掌握并熟練使用本系統(tǒng)，實(shí)用性較強(qiáng)?；贏ccess數(shù)據(jù)庫(kù)開(kāi)發(fā)的應(yīng)用程序還具有安全性好、使用成本低等特點(diǎn)。通過(guò)這段時(shí)間的學(xué)習(xí)我學(xué)會(huì)了許多軟件設(shè)計(jì)方面的知識(shí)，學(xué)會(huì)使用Delphi編寫程序，對(duì)各種數(shù)據(jù)庫(kù)有了基本的了解，并學(xué)會(huì)熟練的使用Access數(shù)據(jù)庫(kù)。就整個(gè)系統(tǒng)而言，由于開(kāi)發(fā)周期較短，還有許多需要不足之處。系統(tǒng)未在真實(shí)的生產(chǎn)環(huán)境下進(jìn)行使用過(guò)，因此實(shí)際應(yīng)用中的穩(wěn)定性尚需進(jìn)一步論證。另一方面，由于現(xiàn)在PC機(jī)的更新速度很快，串口已經(jīng)是面臨淘汰的標(biāo)準(zhǔn)，許多PC主機(jī)板并不標(biāo)配串口，給實(shí)際應(yīng)用帶來(lái)不便。所以考慮使用其它通用接口如USB口，會(huì)使系統(tǒng)更具有實(shí)用性。同樣軟件的數(shù)據(jù)庫(kù)在大規(guī)模的生產(chǎn)中，可能需要使用SQL Server一類的大型數(shù)據(jù)庫(kù)，同時(shí)使用專用的數(shù)據(jù)庫(kù)服務(wù)器，這樣還可以極大的提高安全性。該系統(tǒng)實(shí)現(xiàn)了計(jì)件工資這種原始的計(jì)算報(bào)酬方式的現(xiàn)代化改造，適應(yīng)了傳統(tǒng)產(chǎn)業(yè)升級(jí)換代的需求，具有很好的市場(chǎng)前景。參考文獻(xiàn)[1] 6 M]，第1版，北京：清華大學(xué)出版社，2002[2][M],北京:機(jī)械工業(yè)出版社,2003[3][M],北京:人民郵電出版社,2005[4] [M],第1版, 北京:電子工業(yè)出版社，2002[5]李文池、王佳祥等．Delphi程序設(shè)計(jì)基礎(chǔ)[M],北京:中國(guó)水利水電出版社,2006[6] [M],第1版，北京：科學(xué)出版社，2004[7] 7 信息系統(tǒng)設(shè)計(jì)與開(kāi)發(fā)[M],第2版,北京:機(jī)械工業(yè)出版社,2005[8] 數(shù)據(jù)庫(kù)程序設(shè)計(jì)[M],北京:中國(guó)鐵道出版社,2002[9],北京:清華大學(xué)出版社[M],2001[10][J].蘭州大學(xué)學(xué)報(bào), 2004, 40(4): 41～ 44[11][J].機(jī)電工程，2003，20(5):64～67；[12][J].遼寧高職學(xué)報(bào), 2000, 2(5):61～63[13][J].山東電子, 2000, :30～31附錄 附錄一 程序部分源碼（1）用戶登錄模塊的主要源碼：//在確認(rèn)按鈕被點(diǎn)擊后，檢查操作者表中是否相應(yīng)的操作人員和口令procedure (Sender: TObject)。var Query : TADOQuery。begin //如果驗(yàn)證輸入的口令正確，則進(jìn)入主操作界面 try //檢查操作人員表中是否有匹配記錄 Query := (nil)。 := 。 (39。select*fromOperator where UserName=:UserName and userpwd=:userpwd39。)。 (39。UserName39。).Value:= 。 (39。userpwd39。).Value:= 。 。 if = 0 then begin MessageDlg(39。請(qǐng)輸入正確的用戶名和密碼39。,mtError,[mbok],0)。 Exit。 end。 //根據(jù)不同的操作員級(jí)別，允許進(jìn)行不同的功能操作 if (39。class39。).AsInteger =0 then begin //超級(jí)用戶擁有全部權(quán)限 :=true。 :=true。 := true。 := true。 end。//窗體創(chuàng)建時(shí)，讀取操作員表中的操作者名稱procedure (Sender: TObject)。var Query : TADOQuery。begin 。 try Query := (nil)。 := 。 (39。select username from Operator 39。)。 。 if = 0 then begin MessageDlg(39。沒(méi)有可以登陸的用戶名39。,mtError,[mbok],0)。 Exit。 end else begin 。 while =false do begin ((39。Username39。).asstring )。 。 end end。 。 。 :=0 。 except MessageDlg(39。連接數(shù)據(jù)庫(kù)出錯(cuò)!39。,mtError,[mbok],0)。 end。end。procedure (Sender: TObject。 var Key: Word。 Shift: TShiftState)。begin if Key = 13 then btnOKClick(Sender)。end。（2）主窗口模塊的主要源碼：//登陸主操作界面procedure (Sender: TObject)。begin if then menuSLoginClick(Sender) 。end。procedure (Sender: TObject)。begin if frmLogin = nil then frmLogin := (nil)。 。end。//計(jì)算員工薪酬procedure (sender:TObject)。var sum:TADOQuery。 begin sum:=(nil)。 :=。 。 (39。SELECT sum(do) from stainfo39。)。 。 :=(39。expr100039。).asstring。 。 (39。SELECT sum(doall) from stainfo39。)。 。 :=(39。expr100039。).asstring。 end。//串口接收和數(shù)據(jù)處理procedure (Sender: TObject。 Buffer: Pointer。 BufferLength: Word)。var xg:TADOQuery。 dep,md,rmb:string。 p,q:real。begin setlength(rcv,bufferlength)。 move (Buffer^,pchar(rcv)^,bufferlength)。