unit22.pas

一个用DELPHI编的酒店管理系统。 其中数据库：SQL Server2000, 只需恢复 My database文件夹中 My database_Data.MDF和 My database_Log.

unit Unit22;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables;

type
  TForm22 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    btnok: TButton;
    item: TComboBox;
    money: TEdit;
    other: TEdit;
    Label3: TLabel;
    btncancel: TButton;
    Label4: TLabel;
    Query1: TQuery;
    addcustom: TTable;
    DataSource1: TDataSource;
    roomid: TEdit;
    checkin: TTable;
    procedure btnokClick(Sender: TObject);
    procedure btncancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form22: TForm22;

implementation

{$R *.dfm}

procedure TForm22.btnokClick(Sender: TObject);
var s,t,u:string;
begin
   try
      {检查"房号"}
      if roomid.Text='' then
      begin
         messageDlg('"房号"输入错误，请重新输入！',mtWarning,[mbOk],0);
         activeControl:=roomid;
         abort;
      end;
      {检查"消费项目"}
      if item.text='' then
      begin
         messageDlg('"消费项目"输入错误，请重新输入！',mtWarning,[mbOk],0);
         activeControl:=item;
         abort;
      end;
      {检查"金额"}
      if money.text='' then
      begin
         messageDlg('"金额"输入有误，请重新输入！',mtWarning,[mbOk],0);
         activeControl:=money;
         abort;
      end;
      if item.ItemIndex=7 then
       begin
        if other.text='' then
         begin
         messageDlg('"消费项目"输入错误，请重新输入！',mtWarning,[mbOk],0);
         activeControl:=other;
         abort;
         end;
         t:=other.text;
        end
       else t:=item.text;
      s:=roomid.text;
      u:=money.Text;
      {将客户数据填入<消费表>}
      with addcustom do
      begin
         open;
         append;
         fieldByName('房号').AsInteger:=strToInt(roomid.Text);
         fieldByName('消费项目').AsString:=t;
         fieldByName('金额').AsString:=money.Text;
         post;
         close;
      end;

   except
      on ex:EConvertError do
      begin
         messageDlg('输入有误，请重试！',mtWarning,[mbOk],0);
      end;
   end; {end of try}
   //使checkin表中结账金额累加
   with checkin do
    begin
     query1.Close;
     query1.SQL.Clear;
     query1.SQL.Add('update checkin set 结账金额=结账金额+'+u+' where 房号='+s);
     try
       query1.Open;
     except
       query1.ExecSQL;
    end;
   end; 
   {清屏准备输入下一位新会员}
   roomid.Text:='';
   item.ItemIndex:=0;
   other.Text:='';
   money.Text:='';
   messageDlg('添加成功！',mtWarning,[mbOk],0);
   activeControl:=roomid;
end;
procedure TForm22.btncancelClick(Sender: TObject);
begin
   roomid.Text:='';
   item.ItemIndex:=0;
   other.Text:='';
   money.Text:='';
   activeControl:=roomid;
end;

end.