【正文】 hen begin MessageBox(handle,39。輸入所刪用戶名39。,MB_OK+MB_ICONWARNING)。 。王子芹：高校學(xué)生宿舍管理系統(tǒng)42 exit。 end。if =39。39。 then begin MessageBox(handle,39。輸入所刪用戶密碼39。,MB_OK+MB_ICONWARNING)。 。 exit。 end。if =39。39。 then beginMessageBox(handle,39。輸入所刪用戶權(quán)限!39。,MB_OK+MB_ICONWARNING)。 。 exit。 end。 。 。(39。 select * from LoginIn where username = 39。39。39。+ +39。39。39。and39。)。(39。userId=39。39。39。++39。39。39。39。)。 。 。if then begin MessageBox(handle,39。該用戶信息不存在,請(qǐng)確認(rèn)后再輸入!39。,39。警告39。,MB_OK+MB_ICONWARNING)。 。 :=39。39。 :=39。39。 exit。 end。deleteName:= 。deletePass:= 。deletePower:= 。With do王子芹：高校學(xué)生宿舍管理系統(tǒng)43If MessageDlg(39。確定刪除？!39。,mtconfirmation,[mbYes,mbNo],0)=mryes thenbegin:=39。delete from loginIn where (username=39。39。39。+deleteName+39。39。39。)and(useriD=39。39。39。+deletepass+39。39。39。)and(userpower=39。39。39。+deletepower+39。39。39。)39。 。:=39。39。:=39。39。MessageBox(handle,39。用戶信息已刪除!39。,39。!39。,MB_OK+MB_ICONWARNING)。endelse begin cancel。 :=39。39。 :=39。39。 end 。end。procedure (Sender: TObject)。beginclose。end。密碼修改源代碼procedure (Sender: TObject)。beginif =39。39。 then begin messagedlg(39。請(qǐng)輸入用戶名 39。,mtwarning,[mbok],0)。 。 exit。 end。 if =39。39。 then begin messagedlg(39。請(qǐng)輸入原始密碼 39。,mtwarning,[mbok],0)。 。王子芹：高校學(xué)生宿舍管理系統(tǒng)44 exit。 end。 if =39。39。 then begin messagedlg(39。請(qǐng)輸入新密碼 39。,mtwarning,[mbok],0)。 。 exit。 end。 if =39。39。 then begin messagedlg(39。請(qǐng)輸入確認(rèn)密碼 39。,mtwarning,[mbok],0)。 。 exit。 end。//判斷兩次輸入的新密碼是否相同if trim()trim() thenbeginmessagedlg(39。請(qǐng)重新輸入 ,新密碼與確認(rèn)密碼不一致!39。,mtinformation,[mbok],0)。 :=39。39。 :=39。39。 。endelsebeginwith do begin close。 。 (39。select * from LoginIn where sername=39。39。39。++39。39。39。39。+39。anduserId=39。39。39。+xt+39。39。39。39。)。 open。 if eof then //當(dāng)沒有查詢到該記錄時(shí) ,就說明當(dāng)前為空王子芹：高校學(xué)生宿舍管理系統(tǒng)45 begin showmessage(39。對(duì)不起,您所輸入的用戶名或密碼錯(cuò)誤,請(qǐng)重新輸39。)。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 end else begin edit。 fieldbyname(39。UserId39。).AsString:=。 post。 showmessage(39。新密碼修改成功,請(qǐng)記牢!39。)。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 end。 end。end。end。procedure (Sender: TObject)。beginclose。end。end。公寓管理模塊源代碼procedure (Sender: TObject)。beginif =39。39。 then beginMessageBox(handle,39。樓房編號(hào)不能為空 ！39。,39。警告39。,MB_OK+MB_ICONWARNING)。王子芹：高校學(xué)生宿舍管理系統(tǒng)46 。 exit。end。//檢查系統(tǒng)中是否存在該學(xué)號(hào)的學(xué)生 。 。 :=39。select hou_Id from house where hou_Id=39。39。39。++39。39。39。39。 。 。 if not then begin MessageBox(handle,39。該樓房信息已經(jīng)存入數(shù)據(jù)庫!39。,39。警告39。,MB _OK+MB_ICONWARNING)。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 。 exit。 end。 。 。 :=39。select* from house 39。 。 。 。 (39。hou_id39。).AsString:=trim()。 (39。hou_Num39。).AsString:=trim()。 (39。hou_Rom39。).AsString:=trim()。 (39。hou_Peo39。).AsString:=trim()。 (39。hou_Des39。).AsString:=trim()。 if messagedlg(39。請(qǐng)確認(rèn)輸入的數(shù)據(jù)無誤！39。,mtconfirmation,[mbYes,mbNO],1)王子芹：高校學(xué)生宿舍管理系統(tǒng)47=mryes then begin 。 ShowMessage(39。樓房信息登記完畢！39。)。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 end else begin showmessage(39。操作已取消，請(qǐng)重新輸入39。)。 。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 end。 end。procedure (Sender: TObject)。beginclose。end。end.procedure (Sender: TObject)。beginif =39。39。 then begin messagedlg(39。請(qǐng)輸入寢室號(hào)！ 39。,mtinformation,[mbok],0)。 exit。 end。王子芹：高校學(xué)生宿舍管理系統(tǒng)48if =39。39。 then begin messagedlg(39。請(qǐng)輸入寢室應(yīng)住人數(shù)！ 39。,mtinformation,[mbok],0)。 exit。 end。 if =39。39。 then begin messagedlg(39。請(qǐng)為該寢室確定住宿費(fèi)用！ 39。,mtinformation,[mbok],0)。 exit。 end。 if =39。39。 then begin messagedlg(39。請(qǐng)選擇居住性別！ 39。,mtinformation,[mbok],0)。 exit。 end。 //檢查系統(tǒng)中是否存在該寢室號(hào) 。 。 :=39。select Dor_Id from Dorm where Dor_Id=39。39。39。++39。39。39。39。 。 。 if not then begin MessageBox(handle,39。該寢室號(hào)已錄入!39。,39。警告39。,MB_OK+MB_ICONWARNING)。 。 exit。 end。//寢室信息錄入 。 。 (39。select * from dorm39。)。 。王子芹：高校學(xué)生宿舍管理系統(tǒng)49 。 (39。Dor_Id39。).AsString:=trim()。 (39。Dor_Num39。).AsString:=trim()。 (39。Dor_Price39。).AsString:=trim()。 (39。Dor_sex39。).AsString:=trim(xt)。 (39。Dor_Tel39。).AsString:=trim()。 (39。Dor_Des39。).AsString:=trim()。 。 ShowMessage(39。宿舍信息插入完畢！39。)。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。end。procedure (Sender: TObject)。beginclose。end。procedure (Sender: TObject)。begin 。 。 (39。select * from dorm order by dor_id asc39。 )。 。end。end.//通過查詢自動(dòng)獲得相應(yīng)的公寓樓房數(shù)procedure (Sender: TObject)。varI:integer。begin王子芹：高校學(xué)生宿舍管理系統(tǒng)50with dobeginclose。(39。select * from House 39。)。open。if RecordCount0 then begin first。 for i:=0 to RecordCount1 do begin (fieldbyname(39。Hou_Id39。).AsString)。 next。 end。 endelseshowmessage(39。沒有記錄，請(qǐng)管理員錄入數(shù)據(jù)信息39。)。end。end。 procedure (Sender: TObject)。 begin if =39。39。 then begin messagedlg(39。員工號(hào)不能為空，請(qǐng)輸入！ 39。,mtinformation,[mbok],0)。 。 exit。 end。 if =39。39。 then begin messagedlg(39。員工姓名不能為空，請(qǐng)輸入！39。,mtinformation,[mbok],0)。 。 exit。 end。王子芹：高校學(xué)生宿舍管理系統(tǒng)51 if =39。39。 then begin messagedlg(39。請(qǐng)為員工選擇所管理的樓房，請(qǐng)輸入！39。,mtinformation,[mbok],0)。 。