dinnerinput.~pas

完成酒店管理系统

unit DinnerInput;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids,DinnerQuery,DinnerChart,
  DiscountSet, ComCtrls,TaxSet;

type
  TDinnerInputFrm = class(TForm)
    GroupBox1: TGroupBox;
    label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ComboBox1: TComboBox;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    DateTimePicker1: TDateTimePicker;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure RadioButton6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DinnerInputFrm: TDinnerInputFrm;

implementation

uses MainDinner, RoomChart, RoomQuery, MainSail;

{$R *.dfm}

procedure TDinnerInputFrm.Button3Click(Sender: TObject);
begin

Close;
MainSailFrm.Show;
end;

procedure TDinnerInputFrm.Button2Click(Sender: TObject);
begin
Edit2.Text:= '';
Edit3.Text:= '';
Edit4.Text:= '';
Edit5.Text:= '';
Edit6.Text:= '';
Edit7.Text:= '';
ComboBox1.Text:= '';
Edit4.SetFocus;
end;

procedure TDinnerInputFrm.Button1Click(Sender: TObject);
var
IntBudget,IntIncome,IntTax,IntDeduct,IntCost,IntProfit: Integer;
StrType: String;

begin
IntBudget:= 0;
IntIncome:= 0;
if   (Edit4.Text = '') or  (Edit5.Text = '') or
  (ComboBox1.Text = '') then
  begin
  ShowMessage('数据不能为空，请重新输入！');

  Edit4.Text:= '';
  Edit5.Text:= '';
  ComboBox1.Text:= '';
  Edit4.SetFocus;
  end
else
begin
ADOQuery2.First;
while not ADOQuery2.Eof do
begin

if DateToStr(ADOQuery2.FieldValues['日期']) = DateToStr(DateTimePicker1.Date) then
begin

    IntBudget :=  IntBudget + ADOQuery2.FieldValues['应收金额'];
    IntIncome :=  IntIncome + ADOQuery2.FieldValues['实收金额'];

end;
 ADOQuery2.Next;
end;

  Edit2.Text:= IntToStr(IntBudget);
  Edit3.Text:= IntToStr(IntIncome);
  IntCost:= StrToInt(Edit5.Text);
  IntDeduct:= StrToInt(Edit4.Text);
  IntTax:= Round(IntIncome * MakeTax);
  Edit6.Text:=IntToStr(IntTax);
  IntProfit:= Round(IntIncome-Intcost-IntDeduct-IntTax);
  Edit7.Text:= IntToStr(IntProfit);
  StrType:= ComboBox1.Text;
  ADOQuery1.Append;
  ADOQuery1.FieldValues['应收金额']:= IntBudget;
  ADOQuery1.FieldValues['实收金额']:= IntIncome;
  ADOQuery1.FieldValues['税收金额']:= IntTax;
  ADOQuery1.FieldValues['提成金额']:= IntDeduct;
  ADOQuery1.FieldValues['成本金额']:= IntCost;
  ADOQuery1.FieldValues['毛利']:= IntProfit;
  ADOQuery1.FieldValues['付款方式']:= StrType;
  ADOQuery1.FieldValues['日期']:= DateTimePicker1.Date;
  ADOQuery1.Post;
  
  DBGrid1.Refresh;
  RoomChartFrm.ADOQuery1.Refresh;
  RoomChartFrm.DBChart1.Refresh;
  RoomQueryFrm.ADOQuery1.Refresh;
  RoomQueryFrm.DBGrid1.Refresh;
end;
   end;

procedure TDinnerInputFrm.RadioButton1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From DinnerInput Order by 应收金额');
ADOQuery1.Open;
end;

procedure TDinnerInputFrm.RadioButton2Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From DinnerInput Order by 实收金额');
ADOQuery1.Open;
end;

procedure TDinnerInputFrm.RadioButton3Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From DinnerInput Order by 税收金额');
ADOQuery1.Open;
end;

procedure TDinnerInputFrm.FormShow(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From DinnerInput Order by 实收金额');
ADOQuery1.Open;

end;

procedure TDinnerInputFrm.RadioButton4Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From DinnerInput Order by 提成金额');
ADOQuery1.Open;
end;

procedure TDinnerInputFrm.RadioButton5Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From DinnerInput Order by 成本金额');
ADOQuery1.Open;
end;

procedure TDinnerInputFrm.RadioButton6Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From DinnerInput Order by 毛利');
ADOQuery1.Open;
end;

end.