【正文】 hen begin MessageBox(handle,39。輸入所刪用戶名39。,MB_OK+MB_ICONWARNING)。 。王子芹：高校學生宿舍管理系統(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。輸入所刪用戶權限!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。該用戶信息不存在,請確認后再輸入!39。,39。警告39。,MB_OK+MB_ICONWARNING)。 。 :=39。39。 :=39。39。 exit。 end。deleteName:= 。deletePass:= 。deletePower:= 。With do王子芹：高校學生宿舍管理系統(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。請輸入用戶名 39。,mtwarning,[mbok],0)。 。 exit。 end。 if =39。39。 then begin messagedlg(39。請輸入原始密碼 39。,mtwarning,[mbok],0)。 。王子芹：高校學生宿舍管理系統(tǒng)44 exit。 end。 if =39。39。 then begin messagedlg(39。請輸入新密碼 39。,mtwarning,[mbok],0)。 。 exit。 end。 if =39。39。 then begin messagedlg(39。請輸入確認密碼 39。,mtwarning,[mbok],0)。 。 exit。 end。//判斷兩次輸入的新密碼是否相同if trim()trim() thenbeginmessagedlg(39。請重新輸入 ,新密碼與確認密碼不一致!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 //當沒有查詢到該記錄時 ,就說明當前為空王子芹：高校學生宿舍管理系統(tǒng)45 begin showmessage(39。對不起,您所輸入的用戶名或密碼錯誤,請重新輸39。)。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 end else begin edit。 fieldbyname(39。UserId39。).AsString:=。 post。 showmessage(39。新密碼修改成功,請記牢!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。樓房編號不能為空 ！39。,39。警告39。,MB_OK+MB_ICONWARNING)。王子芹：高校學生宿舍管理系統(tǒng)46 。 exit。end。//檢查系統(tǒng)中是否存在該學號的學生 。 。 :=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。請確認輸入的數(shù)據(jù)無誤！39。,mtconfirmation,[mbYes,mbNO],1)王子芹：高校學生宿舍管理系統(tǒng)47=mryes then begin 。 ShowMessage(39。樓房信息登記完畢！39。)。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 end else begin showmessage(39。操作已取消，請重新輸入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。請輸入寢室號！ 39。,mtinformation,[mbok],0)。 exit。 end。王子芹：高校學生宿舍管理系統(tǒng)48if =39。39。 then begin messagedlg(39。請輸入寢室應住人數(shù)！ 39。,mtinformation,[mbok],0)。 exit。 end。 if =39。39。 then begin messagedlg(39。請為該寢室確定住宿費用！ 39。,mtinformation,[mbok],0)。 exit。 end。 if =39。39。 then begin messagedlg(39。請選擇居住性別！ 39。,mtinformation,[mbok],0)。 exit。 end。 //檢查系統(tǒng)中是否存在該寢室號 。 。 :=39。select Dor_Id from Dorm where Dor_Id=39。39。39。++39。39。39。39。 。 。 if not then begin MessageBox(handle,39。該寢室號已錄入!39。,39。警告39。,MB_OK+MB_ICONWARNING)。 。 exit。 end。//寢室信息錄入 。 。 (39。select * from dorm39。)。 。王子芹：高校學生宿舍管理系統(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.//通過查詢自動獲得相應的公寓樓房數(shù)procedure (Sender: TObject)。varI:integer。begin王子芹：高校學生宿舍管理系統(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。沒有記錄，請管理員錄入數(shù)據(jù)信息39。)。end。end。 procedure (Sender: TObject)。 begin if =39。39。 then begin messagedlg(39。員工號不能為空，請輸入！ 39。,mtinformation,[mbok],0)。 。 exit。 end。 if =39。39。 then begin messagedlg(39。員工姓名不能為空，請輸入！39。,mtinformation,[mbok],0)。 。 exit。 end。王子芹：高校學生宿舍管理系統(tǒng)51 if =39。39。 then begin messagedlg(39。請為員工選擇所管理的樓房，請輸入！39。,mtinformation,[mbok],0)。 。