delphi學生公寓管理信息系統(doc畢業設計論文)(編輯修改稿)

　

【文章內容簡介】 ource=(local)39。在Data模塊中，將程序中所有對數據的操作進行了有效的封裝，設計出了2個函數：//執行沒有返回值的sql語句,如果正確執行則返回true,否則返回falsefunction ExeSqlNoQuery(sql:string):boolean。// 執行有返回值的sql語句,返回得到的ADOQuery。function ExeSqlQuery(sql:string):TADOQuery。 Common 類模塊在程序中，為每一張表定義了一個類。存放在Common目錄下，類的成員變量與對應表中的字段名相同，并在后面加了注釋。例如Tstudent 類的定義：//學生信息type TStudent=class id:integer。 stdNo:string。//學號 stdName:string。//姓名 sex:string。//性別 birthday:string。//出生日期 subject:string。//專業 classes:string。//班級 HouseNo:string。//公寓號 roomNo:string。//寢室號 end。登錄窗體命名為 frm_login。（如圖51）圖51 登錄窗體登錄窗體的主要功能是驗證用戶是否合法，其驗證用戶的主要流程如圖52：開始是否輸入用戶名和密碼把用戶名和密碼賦值給變量用戶名是否存在用戶名與密碼是否匹配登錄成功是否失敗3次否退出程序是否否否是是是圖52 登錄窗體流程圖登錄窗體進行身份驗證，在用戶輸入完用戶名和密碼之后,程序會將用戶名和密碼與數據庫中的數據進行比對，用戶登錄的機會為3次，如果連續3次密碼錯誤，系統會自動關閉，變量inputNum來記錄輸入錯誤密碼的次數，其初始值為零。登錄窗體在主窗體之前彈出，以確保程序安全性，代碼如下：procedure (Sender: TObject)。var frm_login:Tfrm_login。beginfrm_login:=(self)。 //創建登錄窗體。end。主窗體命名為Frm_main。主窗體由主菜單和工具按鈕組成。（如圖53）圖53系統主界面主窗體畫面簡潔明了,外觀大方,體現出了程序的易操作性.用戶可以根據自己的需求，通過菜單來使用程序的各項功能，工具欄按鈕則提供了用戶一些常用的功能，讓用戶可以更加快速，簡單地進行操作,為了使程序更加美觀，本系統使用了vclskin。Vclskin是Delphi的控件，可以對Delphi程序進行換膚功能。特點：操作簡單，不需修改源代碼，可以直接美化程序。擁有大量高質量的皮膚。通過vclskin這個控件，對程序的所有窗體的外觀以及按鈕進行了美化。l 添加公寓樓房記錄。l 編輯公寓樓房信息。l 刪除公寓樓房記錄。l 查詢公寓樓房信息。由于本系統中，樓房管理、寢室管理、學生基本信息管理、交費管理和來訪人員登記管理等在功能和界面上都十分相似，所以對上述功能模塊的界面進行泛化，得到一個父窗體類，以便以后各功能模塊的繼承。在父窗體中，主要設計了添加、刪除、修改等按鈕的基本功能，該父窗體名稱為frm_info。添加按鈕當用戶單擊窗體中的“添加”按鈕時，程序會進入添加狀態，令原“刪除”按鈕顯示為“確定”，“修改”按鈕顯示為“取消”，“添加”按鈕不顯示。對應代碼如下：procedure (Sender: TObject)。beginif =39。添加39。 then begin :=39。確定39。 :=39。取消39。 :=false。 end。end。修改按鈕當用戶單擊窗體中的“修改”按鈕時，當程序處于修改狀態，即“修改”按鈕顯示為“修改”，原“刪除”按鈕顯示為“保存”，“修改”顯示為“取消”，“添加”按鈕不顯示；當程序處于保存狀態時，即修改按鈕顯示為“取消”時，要取消操作恢復按鈕原有顯示。對應代碼如下：procedure (Sender: TObject)。beginif =39。修改39。 then begin :=39。保存39。 :=39。取消39。 :=false。 endelse begin if =39。取消39。 then begin :=true。 :=39。刪除39。 :=39。修改39。 end。 end。end。刪除按鈕當用戶單擊窗體中的“刪除”按鈕時，當程序處于添加或修改的狀態，即“刪除按鈕”顯示為“確定”或“保存”時，需要恢復按鈕原有顯示。對應的代碼如下： procedure (Sender: TObject)。beginif( =39。確定39。) or ( =39。保存39。)then begin :=true。 :=39。刪除39。 :=39。修改39。 end。end。父窗體里的按鈕沒有實際功能，只是對一些數據的基本的操作（添加、修改、刪除）的按鈕相互之間的作用、關系做了編寫。父窗體的設計主要是給其他窗體繼承用的，因此里面編寫了最基本的按鈕的代碼，這樣在建立其他窗體的時候，可以不用編寫同樣的代碼，而且風格也得到了統一。樓房管理窗體命名為frm_house，繼承了父窗體frm_info（如圖54）圖54樓房管理窗體添加按鈕當用戶單擊“添加”按鈕時，程序會將公寓樓號等文本框清空，以便用戶可以輸入新的信息，對應代碼如下： procedure (Sender: TObject)。begin inherited。 //繼承父窗體 :=0。 :=39。39。 :=39。39。 :=strtodate(39。19801139。)。 :=39。39。 :=39。39。 。end。修改按鈕當用戶單擊“修改”按鈕時，“公寓樓號”不能為空，否則將彈出提示框提示“沒有可以修改的數據！”，對應的代碼如下：procedure (Sender: TObject)。begin if =39。修改39。 then begin if =39。39。 then begin MessageBox(Handle, 39。沒有可以修改的數據！39。, 39。信息39。, MB_ICONEXCLAMATION)。 exit。 end else begin 。//公寓樓號文本框獲得焦點 end。 end。 inherited。end。刪除按鈕當用戶點擊“刪除”按鈕并且顯示為“刪除”時，程序將刪除選中的公寓信息；當顯示為“保存”時，程序將修改的公寓信息保存到數據庫中；當顯示為“確定”時，程序將新添加的信息保存到數據庫中。在“刪除”按鈕顯示為“保存”和“確定”，即要把數據寫入到數據庫時，為了保證數據的完整性，程序會檢測公寓樓號，樓層數，房間數是否填寫，如果用戶遺忘了上面任何一一項，程序都會自動彈出信息框，表示填寫信息不正確：if((=39。39。) or (=39。39。) or (=39。39。)) then begin MessageBox(Handle, 39。內容填寫不正確！39。, 39。信息39。, MB_ICONEXCLAMATION)。 exit。 end。在把數據寫入到數據庫的時候，程序還會檢查公寓樓號是否重復，如果重復，則操作不成功，會彈出信息框提醒用戶：House:=。 House:=GetHouseByHouseNo(trim())。 if(Housenil) then begin if() then begin MessageBox(Handle, 39。公寓號已經存在,請重新設置！39。, 39。信息39。, MB_ICONEXCLAMATION)。 exit。 end。 end。檢查是否重復SQL代碼如下：ADOQuery:=(nil)。 sql:=39。select id,公寓號,樓層數,房間數,啟用時間,備注 from 公寓信息 where 公寓號=39。+ 39。39。39。39。+HouseNo+39。39。39。39。 ADOQuery:=(sql)。 if(1) then begin result:=nil。 end在窗體被創建的時候，程序會自動調用函數填充數據，函數名為Filldata，函數會調用sql語句來顯示數據。l 添加寢室記錄。l 編輯寢室信息。l 刪除寢室記錄。l 查找寢室信息。l 統計各寢室空床數。寢室管理窗體命名為frm_room（如圖55）圖55寢室管理窗體本窗體也繼承了父窗體frm_info。寢室管理窗體可以根據公寓號和寢室號來查詢相關寢室的信息。在“刪除”按鈕顯示為“確定”或“保存”時，程序會檢測公寓號，寢室號，可住人數和住宿費用四個項目是否填寫完整，如果有其中一項用戶忘記填寫，程序會彈出信息對話框，提醒用戶，對應代碼如下：if((=39。39。) or (=39。39。) or (=39。39。) or (=39。39。)) then begin MessageBox(Handle, 39。內容填寫不正確！39。, 39。信息39。, MB_ICONEXCLAMATION)。 exit。 end。在把寢室號填入到數據庫中去，程序會通過寢室信息表查找相同公寓內的寢室號是否存在相同，如果相同則會提醒用戶，因為不允許在同一幢公寓里有2個寢室的寢室號是相同的。本窗體有公寓號下拉框bobox，此下拉框中的數據是用公寓信息表中的數據進行填充的，代碼如下：procedure 。var ADOQuery:TADOQuery。begin ADOQuery:=(nil)。 //創建空數據集 ADOQuery:=。 //得到公寓信息數據集 //判斷數據集是否為空，若空則退出 if 1 then begin ADOQuery:=nil。 exit。 end。 。 //將數據集中的內容循環寫入ComboBox while(not ) do begin ([39。公寓號39。])。 。 end。 :=0。 ADOQuery:=nil。end。在輸入條件時，在“公寓號”下拉框中選擇公寓樓號或者“全部”，寢室管理窗體內將顯示相應所有寢室的信息；每次在“公寓號”下拉框中選擇，程序都會調用顯示寢室信息的函數，用來顯示相應的信息?！安檎摇庇脕聿檎姨囟▽嬍倚畔?，所以在單擊“查找”按鈕時，程序上方的寢室號文本框中必須填入要查找的寢室號，否則程序會彈出信息“請輸入相應的寢室號”，在“寢室號”中輸入寢室號，單擊“查找”，就可以顯示該寢室信息。根據不同的需要，定義了不動的函數來顯示數據//填充所有數據：獲得所有數據并填充到窗體中的數據顯示控件中 procedure FillData。//根據公寓號填充數據：根據選定的公寓樓號顯示寢室信息。procedure FillDataByHouseID(houseID:string)。 //填充公寓號：在“公寓樓”下拉框中顯示公寓樓信息procedure FillHouseID。//填充查找用公寓號：在“公寓樓號”下拉框中顯示公寓號數據procedure FillHouseIDForSearch?？沾步y計窗體命名為frm_room_nouse（如圖56）圖56空床統計窗體空床統計是為了讓用戶更加直觀地看到所有公寓里寢室的空床數量，這樣可以方便用戶進行學生入住安排，如果學生要求換寢室，或者學生在上學期走讀，這學期需要住宿的時候，這個空床統計可以幫助用戶快速找到