【導(dǎo)讀】原來有的是靠手工完成，有的簡單報表是靠Word或Execl完成。經(jīng)是信息時代，僅靠傳統(tǒng)的辦法已不能適應(yīng)這個時代的要求?；詈凸ぷ髦刑幚泶罅啃畔⒉豢扇鄙俚氖侄?。面對大量的學(xué)生數(shù)據(jù)、報表，手工處理方式已經(jīng)很難跟上現(xiàn)代。因此為提高學(xué)校管理工作的現(xiàn)代化、性高、存儲量大、保密性好、壽命長、成本低等。舍管理的效率，也是高等院校的科學(xué)化、正規(guī)化管理，與世界接軌的重要條件。同時，也為領(lǐng)導(dǎo)能及時了解學(xué)生的動態(tài)信息提供了更為方便、快捷的途徑。專業(yè)人員來說減少了很多不必要麻煩。宿舍管理系統(tǒng)采用了窗體、菜單、按鈕等設(shè)計方式，進(jìn)一步完善了該系。統(tǒng)的功能，更大程度上滿足了學(xué)校的要求。來訪人員及宿舍管理員的需要。理員和學(xué)生之間信息的溝通和聯(lián)系，加強(qiáng)宿舍樓的管理。在SQLServer中，使用的是T-SQL語言，T-SQL是ANSISQL的加強(qiáng)版語言，年的發(fā)展，SQL語言已成為關(guān)系數(shù)據(jù)庫的標(biāo)準(zhǔn)語言。

　　

【正文】 showmessage(39。39。你還沒輸入用戶名，請先輸入登錄名！ 39。39。)。 。 exit。 end。 if =39。39。39。39。 then begin messagebeep(0)。 showmessage(39。39。對不起登錄 系統(tǒng) 不能用空密碼，請輸入密碼 39。39。)。 。 exit。 end。 if (39。39。yonghuming39。39。,[locaseinsensitive]) then begin if = then begin 。 。 PfmMain:=(self)。 try 。 finally 。 end。 exit。 end else begin messagebeep(0)。 showmessage(39。39。密碼錯誤！請重新輸入！ 39。39。)。 :=39。39。39。39。 。 exit。 end。 end else begin messagebeep(0)。 showmessage(39。39。對不起！不存在此用戶，請重新輸入！ 39。39。)。 。 end。 end。 end。 procedure (Sender: TObject)。 begin fmyonghu:=(self)。 try 。 finally 。 end。 end。 procedure (Sender: TObject。 var Action: TCloseAction)。 begin 。 。 end。 end. 住宿錄入界面代碼： unit Pzhusuluru。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, Buttons, StdCtrls, ComCtrls。 type Tfmluru = class(TForm) StatusBar1: TStatusBar。 GroupBox1: TGroupBox。 GroupBox2: TGroupBox。 Edit1: TEdit。 Label1: TLabel。 Label2: TLabel。 Label3: TLabel。 Label4: TLabel。 Label5: TLabel。 Label6: TLabel。 Edit2: TEdit。 Edit3: TEdit。 ComboBox1: TComboBox。 ComboBox2: TComboBox。 Edit4: TEdit。 GroupBox4: TGroupBox。 SpeedButton2: TSpeedButton。 SpeedButton1: TSpeedButton。 DBNavigator1: TDBNavigator。 GroupBox3: TGroupBox。 DBGrid1: TDBGrid。 Label7: TLabel。 SpeedButton3: TSpeedButton。 procedure SpeedButton1Click(Sender: TObject)。 procedure qingkong。 procedure SpeedButton2Click(Sender: TObject)。 procedure SpeedButton3Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 var fmluru: Tfmluru。 implementation uses Pmain。 {$R *.dfm} procedure 。 begin :=39。39。39。39。 :=39。39。39。39。 :=39。39。39。39。 :=39。39。39。39。 :=39。39。39。39。 :=39。39。39。39。 。 end。 procedure (Sender: TObject)。 begin if =39。39。39。39。 then begin showmessage(39。39。你還沒輸入姓名，請確認(rèn)！ 39。39。)。 。 exit。 end。 if =39。39。39。39。 then begin [10] ... Delphi 學(xué)生宿舍管理 系統(tǒng) 的設(shè)計與實(shí)現(xiàn) showmessage(39。39。你還沒輸入系名，請確認(rèn)！ 39。39。)。 。 exit。 end。 if =39。39。39。39。 then begin showmessage(39。39。你還沒輸入班級，請確認(rèn)！ 39。39。)。 。 exit。 end。 if =39。39。39。39。 then begin showmessage(39。39。你 還沒輸入住樓名，請確認(rèn)！ 39。39。)。 。 exit。 end。 if =39。39。39。39。 then begin showmessage(39。39。你還沒輸入住幾樓，請確認(rèn)！ 39。39。)。 。 exit。 end。 if =39。39。39。39。 then begin showmessage(39。39。你還沒輸入住哪間，請確認(rèn)！ 39。39。)。 。 exit。 end。 ([,bobo,])。 qingkong。 end。 procedure (Sender: TObject)。 begin qingkong。 end。 procedure (Sender: TObject)。 begin close。 end。 end. 查詢 界面代碼： unit Pchaxunbiaodan。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, ComCtrls。 type Tfmchaxun = class(TForm) GroupBox1: TGroupBox。 GroupBox2: TGroupBox。 GroupBox3: TGroupBox。 StatusBar1: TStatusBar。 DBGrid1: TDBGrid。 DBNavigator1: TDBNavigator。 Label1: TLabel。 Label2: TLabel。 ComboBox1: TComboBox。 Edit1: TEdit。 GroupBox4: TGroupBox。 SpeedButton1: TSpeedButton。 SpeedButton2: TSpeedButton。 SpeedButton3: TSpeedButton。 SpeedButton4: TSpeedButton。 SpeedButton5: TSpeedButton。 ComboBox2: TComboBox。 Label3: TLabel。 procedure SpeedButton5Click(Sender: TObject)。 procedure SpeedButton2Click(Sender: TObject)。 procedure ComboBox1Change(Sender: TObject)。 procedure SpeedButton1Click(Sender: TObject)。 procedure FormClose(Sender: TObject。 var Action: TCloseAction)。 function fanhui():boolean。 procedure SpeedButton4Click(Sender: TObject)。 procedure SpeedButton3Click(Sender: TObject)。 private { Private declarations } public chaxunziduan:string。 { Public declarations } end。 var fmchaxun: Tfmchaxun。 implementation uses Pmain, Pxueshengbaobiao。 [11] [12]