【文章內(nèi)容簡介】 el文本NoNo婚否Married文本NoNo入單位時間InDate文本NoNo健康情況Body文本NoNo合同開始 BarStart文本NoNo（表33續(xù)）名稱字段名稱類型主鍵非空合同期限 Bar year文本NoNo合同結(jié)束BarEnd文本NoNo家庭住址Address文本NoNo圖片地址Image文本NoNo為了提高系統(tǒng)的安全性，設計并實現(xiàn)了基于射頻識別的智能計件軟件系統(tǒng)的登陸窗體。用戶在使用軟件時，雙擊軟件圖標，彈出密碼登陸窗體，用戶必須輸入正確的密碼，才能進入主窗體并進行相關操作。 登陸模塊的界面設計新建一個窗體，將窗體名稱改為“frmLogin”，captain屬性設置為“用戶登錄”。在此窗體上放置如下控件，并設置它們各自的屬性，主要控件的功能屬性見表34。此處TMaskEdit的password屬性一定要設置為*，這樣在輸入密碼時才會顯示為*。表34 登陸窗體控件的功能屬性 控件名稱功能屬性描述TLable使用了3個該控件，Caption屬性分別為“基于射頻識別智能計件系統(tǒng)”、“用戶名：”、“密碼：”TComboBoxName屬性為cmbUserName,Item屬性為空TMaskEditPassWord屬性為“*”TBitBtnCaption屬性設為“LOGIN”，ModalResult屬性設為“mrNone”TBitBtnCaption屬性設為“CANCEL”，ModalResult屬性設為“mrNone”設置好各個控件的屬性以后，再調(diào)整窗口大小以及空間的位置，盡量做到實用美觀。設計好的界面效果圖如圖31所示。圖31 用戶登陸模塊窗體效果圖 登陸模塊的程序設計否是讀操作員信息等待用戶輸入密碼正確？ 進入主界面結(jié)束提示錯誤開 始圖32 登陸窗體的程序流程圖本程序的用戶身份驗證采用了數(shù)據(jù)庫信息核對的方式。程序啟動時，首先彈出用戶登錄模塊的窗體，同時程序利用公共數(shù)據(jù)庫連接對象連接上數(shù)據(jù)庫。數(shù)據(jù)庫中已經(jīng)保存了操作人員的名稱、密碼、權(quán)限等相關信息，后臺程序從操作人員表中讀取操作人員的名稱信息，并寫入用戶名下拉框中，然后等待用戶輸入密碼。用戶可以從下拉框中選擇用戶名并輸入密碼，用戶敲擊回車鍵或鼠標點擊“確定”按鈕后，程序從操作人員表中檢查是否有相應的用戶名和人密碼。如果用戶名或者密碼錯誤，會彈出窗口提示出錯；如果輸入的用戶名和密碼正確，則根據(jù)該用戶的權(quán)限類別程序進行權(quán)限設置，然后進入主窗口。程序的主要流程圖如圖32所示。 主窗體模塊主窗體是程序的主界面，也是該軟件系統(tǒng)中最重要的一個模塊，下面將詳細講述主窗體模塊的設計與實現(xiàn)。 主窗體模塊的界面設計主窗體主要實現(xiàn)對其它模塊的調(diào)用，為此，設計了菜單和工具欄按鈕兩種方式，菜單和按鈕實現(xiàn)對模塊的調(diào)用。為了顯示數(shù)據(jù)庫和串口接收到的數(shù)據(jù)，主窗體還設計了數(shù)據(jù)表格，主窗體界面效果圖如圖33所示。主窗體設計過程調(diào)用了大量的控件，關于它們的功能和屬性如表34所示。圖33主窗體模塊的效果圖表34 主窗體模塊的控件功能屬性控件名稱功能屬性描述TForm用來創(chuàng)建窗口界面TImageList系統(tǒng)圖標管理，主菜單、工具欄和其它模塊都可以調(diào)用此處圖標TTimer用作與計算機時間保持同步，同時可用作定時TSavedialog保存指定文件TToolBar用于創(chuàng)建工具欄，分別建立了“串口設置”、“計劃設置”和“部門設置”等快捷按鍵TPageControl可將窗口劃分為不同頁，分別顯示不同的狀態(tài)信息TADOQueryName屬性為cj,connection屬性為通過SQL語句對數(shù)據(jù)庫的操作TDatasourceDataset屬性為cj,用于連接數(shù)據(jù)控制控件和數(shù)據(jù)集控件TDBGrid使用了2個此控件，以表格形式顯示分別顯示員工工作量和員工資料信息SPComm此控件的作用是實現(xiàn)與下位機的串口通信；TExcelApplication這三個控件件主要是用來實現(xiàn)對Excel的操作的。TExcelWorkBookTExcelWorkSheetTSkinDataTSkinCaption這兩個控件是皮膚控件，是安裝的第三方控件，作用是美化窗體；TMainMenu用來創(chuàng)建主菜單 串口通信的設計串口通信的目的是接收從下位機發(fā)送過來的數(shù)據(jù)，并將這些數(shù)據(jù)經(jīng)過一定的處理,轉(zhuǎn)換成員工ID和計件信息。主窗體創(chuàng)建時對SPComm控件完成初始化設置并打開串口進行通信。TTimer控件每隔一段時間自動調(diào)用該對象的OnTimer事件，事件不停的循環(huán)發(fā)送下位機地址，下位機收到地址如果有信息要發(fā)生則發(fā)送應答信號，此時PC機與下位機建立連接，之間相互傳遞數(shù)據(jù)。若下位機是首次登錄網(wǎng)絡，軟件會給其發(fā)送當天目標數(shù)，日期時間等信息。軟件接收到下位機數(shù)據(jù)后經(jīng)過處理得到計件數(shù)值，根據(jù)數(shù)值實時的更新數(shù)據(jù)庫和顯示。利用SPComm控件編程實現(xiàn)串口通信，要先了解它的屬性、方法和事件。下面分別介紹：(1) 屬性CommName：表示COMCOM2等串口的名字.BaudRate：根據(jù)實際需要設定波特率，在串口打開后也可以更改此值，實際波特率則隨之更改。ParityCheck：表示是否需要奇偶校驗。ByteSize：根據(jù)實際情況設定字節(jié)長度。Parity：奇偶校驗位。StopBits：停止位。SendDataEmpty：這是一個布爾型屬性，為True時，表示發(fā)送緩存為空，或者發(fā)送隊列里沒有信息；為false時，表示發(fā)送緩存不為空，或者發(fā)送隊列里有信息。(2) 方法StartComm方法用于打開串口，當打開失敗時通常會報錯。錯誤主要有如下7種：串口已經(jīng)打開；打開串口錯誤；文件句柄不是通信句柄；不能夠安裝通信緩存；不能產(chǎn)生事件；不能產(chǎn)生讀進程；不能產(chǎn)生寫進程。StopComm方法用于關閉串口，沒有返回值；WriteCommData（pDataToWrite：PChar；dwSizeofDataToWrite：Word）方法是一個帶有布爾型返回值的函數(shù)，用于將一個字符串發(fā)送到寫進程，發(fā)送成功則返回true，發(fā)送失敗則返回false。執(zhí)行此函數(shù)將立即得到返回值，發(fā)送操作隨后執(zhí)行。該函數(shù)有兩個參數(shù)，其中pDataToWrite是要發(fā)送的字符串，dwSizeofDataToWrite是要發(fā)送字符串的長度。(3) 事件OnReceiveData：procedure（Sender：TObject；Buffer：Pointer；BufferLength：Word）of object。 當有數(shù)據(jù)輸入緩存時將觸發(fā)該事件，在這里可以對從串口收到的數(shù)據(jù)進行處理。Buffer中是收到的數(shù)據(jù)，BufferLength是收到的數(shù)據(jù)長度。OnReceiveError：procedure（Sender：TObject；EventMask：DWORD）。當接收數(shù)據(jù)出現(xiàn)錯誤時,將觸發(fā)該事件。 數(shù)據(jù)顯示的設計數(shù)據(jù)的實時顯示是程序一個不可或缺的功能，顯示的數(shù)據(jù)包括員工工作量和員工資料兩個部分。這部分使用了DataSource、TADOQuery、TDBGrid、Pagecontrol控件。TADOQuery控件利用SQL語言的強大功能訪問多個數(shù)據(jù)表，可實現(xiàn)數(shù)據(jù)瀏覽、修改和刪除等操作。，詳細代碼見附錄。TADOQuery控件其它重要屬性設置如下：SQL 屬性 ：“select * from stainfo Order By stano asc”Active屬性 ：tureName 屬性 ：cj程序中TDataSource控件用于連接TADOQuery控件，主要屬性有：Name 屬性：DataSource1Dataset 屬性：cj（即本程序中的TADOQuery控件）AutoEdit屬性：True在Pagecontrol控件上新建兩個Newpage分別放置了兩個TBGrid控件，用于顯示不同的表格。TBGrid控件要顯示數(shù)據(jù)來源由Datasource屬性決定，此處都設置為DataSource1。Columns（列）屬性用來讀取和設置表格中列的特性，所有列對象都存儲在Columns屬性中。程序中DBGrid1控件用于顯示員工工作量，設計時新建了7個Columns它們FiedName屬性分別設置為數(shù)據(jù)表中對應的各列。DBGrid2用于顯示員工資料，它也有7列屬性設置與DBGrid1相似。兩個表公有的其它重要屬性有：colour屬性用于設置背景顏色；titlefont包括子屬性colour、Name、Size用于設置表頭字體；readonly屬性用于設置表格數(shù)據(jù)是否只讀。 主菜單的設計菜單是Windows應用程序設計中的重要組成部分，大部分應用程序的功能都靠菜單來實現(xiàn)。Delphi 7 應用程序開發(fā)中用戶可以使用組件面板Standard選項卡中的MainMeum組件來創(chuàng)建用戶程序的主菜單。為了實現(xiàn)調(diào)用各個模塊本程序設計的主菜單如下。(1) “系統(tǒng)”菜單的實現(xiàn)“系統(tǒng)”菜單下包括三個子菜單項：“重新登錄”、“權(quán)限設置”、“退出系統(tǒng)”?！爸匦碌卿洝辈藛慰梢哉{(diào)用登錄窗口，以實現(xiàn)用戶的切換?！皺?quán)限設置”菜單只有高級用戶可以使用，可以添加、刪除用戶?！巴顺鱿到y(tǒng)”菜單項的實現(xiàn)最為簡單，只要調(diào)用Close過程即可關閉所有窗體，退出系統(tǒng)。(2) “人事管理”菜單的實現(xiàn)“人事管理”菜單下包含兩個子菜單項：“部門設置”和“檔案設置”。選擇“部門設置”菜單項將調(diào)用部門設置窗口，可以設置相關部門的信息，此處還可以設置員工薪酬單價。選擇“檔案設置”可以查看、添加、修改、刪除員工的檔案資料。(3) “工具”菜單的實現(xiàn)“工具”菜單下包含兩個子菜單項：“串口設置”和“修改密碼”。 這兩個子菜單項的程序設計主要是分別顯示串口設置窗體和密碼設置窗體。(4)“生產(chǎn)管理”菜單的實現(xiàn)“生產(chǎn)管理”菜單下包括兩個子菜單：“導出Excel”和“設置計劃數(shù)”?！皩С鯡xcel”菜單用于導出工作量表?！霸O置計劃數(shù)”菜單調(diào)用計劃模塊來設置當日計劃數(shù)。(5)“幫助”菜單的實現(xiàn)“幫助”菜單下只有一個菜單項：“系統(tǒng)信息”。 工具欄的設計ToolBar控件是標準的工具欄控件，它提供了一個標準的工具欄面板，該控件位于Delphi控件面板上的Win32頁中。工具欄控件被添加進窗體后，會自動位于菜單欄的下面?？梢栽诠ぞ邫诳丶现苯訂螕羰髽擞益I，選擇“New Button”菜單命令，為工具欄創(chuàng)建一個新的按鈕。在工具欄中添加圖標的方法可以調(diào)用TImageList控件?？梢酝ㄟ^設置工具欄按鈕的Style屬性來定制工具欄按鈕的風格。該屬性可以被設置為以下值。(1) tbsButton：按鈕的顯示樣式和工作方式與一個普通的SpeedButton按鈕完全一樣，屬于標準的工具欄按鈕。(2) tbsCheck：具有類似復選框按鈕的開/關工作方式，當按鈕被單擊后，它會一直保持被按下的狀態(tài)直到對它的下一次單擊。當按鈕處于被按下的狀態(tài)時，其Down屬性自動被設置為True。(3) tbsDropDown：在按鈕的右邊顯示一個向下的箭頭，單擊該箭頭會打開一個下拉菜單。(4) tbsSeparator：工具欄上的按鈕形形色色，為了便于區(qū)分，多半會按照其邏輯功能將同一類別的按鈕放在一起，可以設置某個工具欄按鈕的Style屬性為tbsSeparator。(5) tbsDivider：與設置為tbsSeparator時類似，顯示一條垂直分割線，僅僅作為視覺用途。工具欄控件還有一個比較重要的屬性是ShowCaptions，設置為True時，工具欄按鈕上將會顯示圖標和文字。 Excel操作的設計Delphi要實現(xiàn)Excel的操作，需要使用TExcelApplication、TExcelWorkBook、TExcelWorkSheet三類控件。主要有以下幾類操作：(1) Excel文件的創(chuàng)建 要在Delphi中控制Excel, 就必須使用 OLE方法來操作 Excel，可以使用ComObj中提供的接口來創(chuàng)建一個OLE對象。創(chuàng)建Excel文件,應首先創(chuàng)建一個 OLE對象，然后在工作簿中建立工作表worksheet ,實現(xiàn)Excel文件的創(chuàng)建。代碼如下：ExcelApplication1 := (Application)。ExcelWorksheet1 := (Application)。ExcelWorkbook1 := (Application)。(2) 添加新工作簿(emptyparam,0)。 寫Excel表格例如以下是寫表頭部分代碼：[1, 2] := 39。 姓 名39。[1, 3] := 39。目標數(shù)39。[1, 4] := 39。本次完成數(shù)39。[1, 5] := 39。累計完成數(shù)39。[1, 6] := 39。薪 酬（元）39。(4) 顯示當前窗口：:=True。(5) 退出Excel：。 串口設置模塊串口通訊是本系統(tǒng)的一個很重要的部分，串口的設置則是串口通訊中的重要內(nèi)容，將串口設置的選項集合到一個窗體中，并在主窗體中添加一個菜單項：串口設置，用戶在主窗體中單擊此菜單項，可調(diào)用此窗體，對串口進行設置。 串口設置模塊的界面設計選擇“File”菜單下的“New”選項下的“Form”選項，新建一個窗體，將窗體名稱改為“CommEdit”，并將它的“Caption”屬性改為“串口設置”。在此窗體上放置如下控件，并設置它們各自的屬性，控件功能屬性如表35所示。表35 串口設置模塊控件功能屬性 控件名稱功能屬性描述TComboBox在Ite