unitroomfeerequery.pas

来自「自己做过的工程」· PAS 代码 · 共 189 行

unit unitroomfeerequery;

interface

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

type
  Tformroomfeerequery = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    GroupBox1: TGroupBox;
    ed_feeusername: TEdit;
    ed_feeroomid: TEdit;
    StaticText4: TStaticText;
    but_roomfeerequery: TButton;
    but_roomdebtrequery: TButton;
    StaticText5: TStaticText;
    GroupBox2: TGroupBox;
    ed_debtusername: TEdit;
    ed_debtroomid: TEdit;
    StaticText6: TStaticText;
    dtp_debtintime: TDateTimePicker;
    dtp_feeintime: TDateTimePicker;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    cb_debtusername: TCheckBox;
    cb_debtroomid: TCheckBox;
    cb_debtintime: TCheckBox;
    cb_feeusername: TCheckBox;
    cb_feeroomid: TCheckBox;
    cb_feeintime: TCheckBox;
    StaticText1: TStaticText;
    ed_totalRedebt: TEdit;
    StaticText2: TStaticText;
    ed_totalfee: TEdit;
    procedure cb_feeusernameClick(Sender: TObject);
    procedure cb_feeroomidClick(Sender: TObject);
    procedure cb_feeintimeClick(Sender: TObject);
    procedure but_roomfeerequeryClick(Sender: TObject);
    procedure but_roomdebtrequeryClick(Sender: TObject);
    procedure cb_debtusernameClick(Sender: TObject);
    procedure cb_debtroomidClick(Sender: TObject);
    procedure cb_debtintimeClick(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formroomfeerequery: Tformroomfeerequery;

implementation
     uses unitDMHotel;
{$R *.dfm}

procedure Tformroomfeerequery.cb_feeusernameClick(Sender: TObject);
begin
    if cb_feeusername.Checked=true then
       begin
           ed_feeusername.Enabled:=true;
           ed_feeusername.SetFocus;
       end
    else
       begin
           ed_feeusername.Enabled:=false;
           ed_feeusername.Text:='';
       end;
end;

procedure Tformroomfeerequery.cb_feeroomidClick(Sender: TObject);
begin
    if cb_feeroomid.Checked=true then
       begin
           ed_feeroomid.Enabled:=true;
           ed_feeroomid.SetFocus;
       end
    else
       begin
           ed_feeroomid.Enabled:=false;
           ed_feeroomid.Text:='';
       end;
end;

procedure Tformroomfeerequery.cb_feeintimeClick(Sender: TObject);
begin
     dtp_feeintime.Date:=date;

    if cb_feeintime.Checked=true then
       begin
           dtp_feeintime.Enabled:=true;
           dtp_feeintime.SetFocus;
       end
    else
       begin
           dtp_feeintime.Enabled:=false;

       end;
end;

procedure Tformroomfeerequery.but_roomfeerequeryClick(Sender: TObject);
var
  feetime:TDateTime;
  totalmoney:extended;
begin

           feetime:= dtp_feeintime.Date;
        //showmessage(datetostr(dtp_feeintime.Date));
    DMHotel.RoomFeeQuery(ed_feeusername.Text,ed_feeroomid.Text,feetime,cb_feeusername.Checked,cb_feeroomid.Checked,cb_feeintime.Checked,totalmoney);
    ed_totalfee.Text:=floattostr(totalmoney);
end;

procedure Tformroomfeerequery.but_roomdebtrequeryClick(Sender: TObject);
 var
 totalmoney:extended;
begin
        DMHotel.RoomreDebtQuery('帐务已还清',ed_debtusername.Text,ed_debtroomid.Text,dtp_debtintime.Date,cb_debtusername.Checked,cb_debtroomid.Checked,cb_debtintime.Checked,totalmoney);
        ed_totalRedebt.Text:=floattostr(totalmoney);
end;

procedure Tformroomfeerequery.cb_debtusernameClick(Sender: TObject);
begin
    if cb_debtusername.Checked=true then
       begin
           ed_debtusername.Enabled:=true;
           ed_debtusername.SetFocus;
       end
    else
       begin
           ed_debtusername.Enabled:=false;
           ed_debtusername.Text:='';
       end;
end;

procedure Tformroomfeerequery.cb_debtroomidClick(Sender: TObject);
begin
    if cb_debtroomid.Checked=true then
       begin
           ed_debtroomid.Enabled:=true;
           ed_debtroomid.SetFocus;
       end
    else
       begin
           ed_debtroomid.Enabled:=false;
           ed_debtroomid.Text:='';
       end;
end;

procedure Tformroomfeerequery.cb_debtintimeClick(Sender: TObject);
begin

    dtp_debtintime.Date:=date;

    if cb_debtintime.Checked=true then
       begin
           dtp_debtintime.Enabled:=true;
           dtp_debtintime.SetFocus;
       end
    else
       begin
           dtp_debtintime.Enabled:=false;

       end;
end;

procedure Tformroomfeerequery.TabSheet1Show(Sender: TObject);
begin
dtp_feeintime.Date:=date;
end;

procedure Tformroomfeerequery.TabSheet2Show(Sender: TObject);
begin
dtp_debtintime.Date:=date;
end;

end.