roomcheck.~pas

完成酒店管理系统

unit RoomCheck;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ADODB, DB, ComCtrls, StdCtrls, Grids, DBGrids,TodayDis,Login;

type
  TRoomCheckFrm = class(TForm)
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    Edit2: TEdit;
    Button2: TButton;
    Button3: TButton;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Button4: TButton;
    Edit7: TEdit;
    Button1: TButton;
    Edit8: TEdit;
    Button6: TButton;
    DateTimePicker1: TDateTimePicker;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  var
  TotalRoomBudget,TotalRoomInCome:Integer;
var
  RoomCheckFrm: TRoomCheckFrm;

implementation

{$R *.dfm}

procedure TRoomCheckFrm.Button2Click(Sender: TObject);
var
loc : Boolean;
begin
if Edit1.Text = '' then
begin
ShowMessage('房间号不能为空，请重新输入！');
Edit1.SetFocus;
end
else
begin
loc:= ADOQuery1.Locate('房间号',Edit1.Text,[locaseInsensitive]);
if loc = True then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From Room Where 房间号 = ' + Edit1.Text);
ADOQuery1.Open;
end
else
begin
ShowMessage('此房间号不存在！请重新输入！');
Edit1.Text:= '';
Edit1.SetFocus
end;
end;
end;

procedure TRoomCheckFrm.Button3Click(Sender: TObject);
begin
ADOQuery1.First;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From Room ');
ADOQuery1.Open;
Edit1.Text:= '';
Edit2.Text:= IntToStr(0);
Edit4.Text:= IntToStr(0);
Edit5.Text:= '';
Edit6.Text:= '';
Edit7.Text:= '';
Edit1.SetFocus;
end;

procedure TRoomCheckFrm.Button1Click(Sender: TObject);
var
sum: Integer;
begin
Sum:= 0;
ADOQuery1.Locate('房间号',Edit1.Text,[locaseInsensitive]);
sum :=  Round(ADOQuery1.FieldValues['房价']* Round(DateTimePicker1.Date-
  ADOQuery1.FieldValues['登记时间']));


Edit2.Text:= IntToStr(sum);
Edit4.Text:= IntToStr(Round(Sum * discount / 10));
Edit5.Text:= IntToStr(discount);
end;

procedure TRoomCheckFrm.Button6Click(Sender: TObject);
begin
ADOTable1.Append;
ADOTable1.FieldValues['日期']:= DateTimePicker1.DateTime;
ADOTable1.FieldValues['应收金额']:= TotalRoomBudget;
ADOTable1.FieldValues['实收金额']:= TotalRoomIncome;
ADOTable1.FieldValues['折扣']:= discount;
ADOTable1.FieldValues['用户名']:= UserName;
ADOTable1.Post;
Edit8.Text:= '';
TotalRoomIncome:= 0;
TotalRoomBudget:= 0;
Close;
end;

procedure TRoomCheckFrm.Button4Click(Sender: TObject);
var
pay,cost: Integer;
begin
pay:= StrToInt(Edit6.Text);
cost:= StrToInt(Edit4.Text);
if pay < cost then
begin
ShowMessage('付款金额小于实收金额,请重新输入!');
Edit6.Text:= '';
Edit6.SetFocus;
end
else
begin
Edit7.Text:= IntToStr(pay-cost);
end;

end;

procedure TRoomCheckFrm.Edit2Change(Sender: TObject);
begin
TotalRoomBudget:= TotalRoomBudget + StrToInt(Edit2.Text);
end;

procedure TRoomCheckFrm.Edit4Change(Sender: TObject);
begin
TotalRoomIncome:= TotalRoomIncome + StrToInt(Edit4.Text);
Edit8.Text:= IntToStr(TotalRoomInCome);
end;

end.