groupcheck.~pas

完成酒店管理系统

unit GroupCheck;

interface

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

type
  TGroupCheckFrm = 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;
    ADOQuery2: TADOQuery;
    Label2: TLabel;
    Edit3: TEdit;
    DBGrid2: TDBGrid;
    DataSource2: TDataSource;
    Button5: TButton;
    ADOQuery3: TADOQuery;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  var
  TotalGroupBudget,TotalGroupIncome: Integer;
var
  GroupCheckFrm: TGroupCheckFrm;

implementation

{$R *.dfm}

procedure TGroupCheckFrm.Button2Click(Sender: TObject);
begin
if Edit1.Text = '' then
begin
ShowMessage('接待对象不能为空，请重新输入！');
Edit1.SetFocus;
end
else
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From GroupTourist Where 接待对象 = "'+Edit1.Text
  +'"');
ADOQuery1.Open;
end;

Edit1.SetFocus;
end;
procedure TGroupCheckFrm.Button3Click(Sender: TObject);
begin
ADOQuery2.First;
While not ADOQuery2.Eof do
ADOQuery2.Delete;
Edit1.Text:= '';
Edit2.Text:= IntToStr(0);
Edit4.Text:= IntToStr(0);
Edit5.Text:= '';
Edit6.Text:= '';
Edit7.Text:= '';
Edit1.SetFocus;
end;

procedure TGroupCheckFrm.Button1Click(Sender: TObject);
var
sum,RoomNum: Integer;
begin
Sum:= 0;
ADOQuery2.First;
While not ADOQuery2.Eof do
begin
sum := sum + Round(ADOQuery2.FieldValues['房价'] * Round(DateTimePicker1.Date-
  ADOQuery2.FieldValues['登记时间']));
ADOQuery2.Next;
end;
Edit2.Text:= IntToStr(sum);
Edit4.Text:= IntToStr(Round(Sum * discount / 10));
Edit5.Text:= IntToStr(discount);
end;

procedure TGroupCheckFrm.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 TGroupCheckFrm.Button6Click(Sender: TObject);
begin
ADOTable1.Append;
ADOTable1.FieldValues['日期']:= DateTimePicker1.DateTime;
ADOTable1.FieldValues['应收金额']:= TotalGroupBudget;
ADOTable1.FieldValues['实收金额']:= TotalGroupIncome;
ADOTable1.FieldValues['折扣']:= discount;
ADOTable1.FieldValues['用户名']:= UserName;
ADOTable1.Post;
Edit8.Text:= '';
TotalGroupBudget:= 0;
TotalGroupIncome:= 0;
Close;
end;

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

procedure TGroupCheckFrm.Edit4Change(Sender: TObject);
begin
TotalGroupIncome:= TotalGroupIncome + StrToInt(Edit4.Text);
Edit8.Text:= IntToStr(TotalGroupInCome);
end;

procedure TGroupCheckFrm.Button5Click(Sender: TObject);
begin
if Edit3.Text = '' then
begin
ShowMessage('房间号不能为空，请重新输入！');
Edit3.SetFocus;
end
else
begin
ADOQuery3.Locate('房间号',Edit3.Text,[locaseInsensitive]);
ADOQuery2.Append;
ADOQuery2.FieldValues['房间号']:= ADOQuery3.FieldValues['房间号'];
ADOQuery2.FieldValues['房价']:= ADOQuery3.FieldValues['房价'];
ADOQuery2.FieldValues['登记时间']:= ADOQuery3.FieldValues['登记时间'];
ADOQuery2.Post;
end;
Edit3.SetFocus;
end;

end.