【正文】 總之這次的課程設(shè)計我收獲很大，讓我對數(shù)據(jù)庫又有了更進一步的了解。我們逐一完成了這幾個模塊。因為以前并沒有接觸過 DELPHI 7，所以剛開始的時候還是有些難度 ，但我們找到以前學(xué)過 DELPHI 7 的同學(xué)幫助，我們才漸漸的找到了做這次課程設(shè)計方向。以前不懂的知識點又得以重新學(xué)習(xí)。 課程設(shè)計心得體會 經(jīng)過這兩個星期的奮戰(zhàn)，我們終于完成了這次的課程設(shè)計。 end。 。 execsql。name39。)。 (39。,mb_okcancel+mb_iconquestion)=id_ok then begin with adoquery1 do begin close。,39。 begin if messagebox(,39。 end。 end?？腿速Y料修改成功 39。 execsql。money39。).Value:=。 (39。city39。).Value:=。 (39。sex39。).Value:=。 (39。update 客人 set 性別 =:sex,年齡 =:age,所在城市 =:city,聯(lián)系電話 =:tel,預(yù)繳費用=:money where 客人 _房主 =:name39。 。 procedure (Sender: TObject)。 end。)。 (39。 begin with adoquery1 do begin close。 end。 end?？腿速Y料添加成功 39。 execsql。money39。).Value:=。 (39。city39。).Value:=。 (39。sex39。).Value:=。 (39。insert into 客人 ( 客人 _ 房主 , 性別 , 年齡 , 所在城市 , 聯(lián)系電話 , 預(yù)繳 費用 )values(:name,:sex,:age,:city,:tel,:money)39。 。 implementation {$R *.dfm} procedure (Sender: TObject)。 private { Private declarations } public { Public declarations } end。 procedure Button2Click(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 Button3: TButton。 Button1: TButton。 Edit5: TEdit。 Edit3: TEdit。 Edit1: TEdit。 Label5: TLabel。 Label3: TLabel。 Label1: TLabel。 DataSource1: TDataSource。 type TForm5 = class(TForm) ADOConnection1: TADOConnection。 相關(guān)代碼： unit Unit5。刪除則是在任何一欄中輸入相關(guān)的信息就能刪除你要刪除的信息。 圖 74 客房查詢界面 客人信息登記界面的描述 輸入 你要添加的客人信息然后按添加按鈕即可，在數(shù)據(jù)庫中也同步添加了。 end。,mb_ok+mb_iconerror)。,39。 except messagebox(,39。 open。mph39。)。 then (39。 if sqlstr=39。select * from 住房 where 客人 _房主 =:mph39?？腿?_房主 39。 。select 客人 _房主 ,客房 _房間號 ,身份證號 ,費用 ,入住時間 ,退房時間 ,經(jīng)辦員工號 39。 end。 1 :sqlstr:=39。 begin case of 0 :sqlstr:=39。 implementation {$R *.dfm} procedure (Sender: TObject)。 private { Private declarations } public { Public declarations } end。 Edit1: TEdit。 ADOConnection1: TADOConnection。 DBGrid1: TDBGrid。 Label2: TLabel。 type TForm4 = class(TForm) Panel1: TPanel。 相關(guān)代碼： unit Unit4。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin [2].Text:=datetimetostr(date()+time())。 end。 procedure (Sender: TObject)。 begin 。 implementation uses Unit3, Unit4,unit5。 private { Private declarations } public { Public declarations } end。 procedure ToolButton8Click(Sender: TObject)。 procedure Timer1Timer(Sender: TObject)。 procedure N15Click(Sender: TObject)。 ToolButton10: TToolButton。 ToolButton8: TToolButton。 ToolButton6: TToolButton。 ToolButton5: TToolButton。 ToolButton3: TToolButton。 ToolBar1: TToolBar。 N14: TMenuItem。 N13: TMenuItem。 N11: TMenuItem。 N9: TMenuItem。 N7: TMenuItem。 N5: TMenuItem。 N3: TMenuItem。 N1: TMenuItem。 type TForm2 = class(TForm) Image1: TImage。 相關(guān)代 碼： unit Unit2。 end. 圖 71 登陸界面 主界面的描述 主界面上的某些功能由于時間關(guān)系還沒有做全。 begin 。 end。)。 end else showmessage(39。,[]) then begin 。,[]) then begin if (39。 begin if (39。 implementation uses unit2。 private { Private declarations } public { Public declarations } end。 procedure Button1Click(Sender: TObject)。 ADOTable1: TADOTable。 Button1: TButton。 MaskEdit1: TMaskEdit。 type TForm1 = class(TForm) Label1: TLabel。 相關(guān)代碼： unit Unit1。 應(yīng)用程序設(shè)計（前臺） 登陸窗口的描述 登陸窗口連接了數(shù)據(jù)庫的員工信息，當(dāng)輸入的用戶名或密碼與數(shù)據(jù)庫中員工表中的員工號或密碼不符時將會彈出報錯窗口。 /*==============================================================*/ /* Index: 結(jié)帳 _PK */ /*==============================================================*/ create unique index 結(jié)帳 _PK on 結(jié)帳 ( 帳單號 ASC )。 /*==============================================================*/ /* Index: 客房維護 2_FK */ /*==============================================================*/ create index 客房維護 2_FK on 客房維護 ( 客房 _房間號 ASC )。 /*==============================================================*/ /* Index: 客房維護 _PK */ /*==============================================================*/ create unique clustered index 客房維護 _PK on 客房維護 ( 員工號 ASC, 客房 _房間號 ASC )。 /*==============================================================*/ /* Index: 客房 _PK */ /*==============================================================*/ create unique index 客房 _PK on 客房 ( 客房 房間號 ASC )。 /*==============================================================*/ /* Index: 客人 _