unitmanagerroomquery.pas

自己做过的工程

unit unitmanagerroomquery;

interface

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

type
  Tformmanagerroomquery = class(TForm)
    formmanagerroomquery: TPageControl;
    TabSheet1: TTabSheet;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Panel4: TPanel;
    GroupBox1: TGroupBox;
    ed_feeusername: TEdit;
    dtp_feetimeEnd: TDateTimePicker;
    cb_feeusername: TCheckBox;
    StaticText8: TStaticText;
    StaticText9: TStaticText;
    dtp_feetimeBegin: TDateTimePicker;
    StaticText4: TStaticText;
    but_roomfeerequery: TButton;
    StaticText2: TStaticText;
    ed_totalfee: TEdit;
    TabSheet2: TTabSheet;
    Panel3: TPanel;
    DBGrid2: TDBGrid;
    Panel5: TPanel;
    but_roomdebtrequery: TButton;
    StaticText5: TStaticText;
    GroupBox2: TGroupBox;
    StaticText6: TStaticText;
    StaticText3: TStaticText;
    StaticText7: TStaticText;
    StaticText1: TStaticText;
    ed_totalredebt: TEdit;
    DBGrid3: TDBGrid;
    TabSheet3: TTabSheet;
    DBGrid4: TDBGrid;
    GroupBox3: TGroupBox;
    StaticText10: TStaticText;
    StaticText11: TStaticText;
    ed_totaldebt: TEdit;
    StaticText12: TStaticText;
    Button1: TButton;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    dtp_redebttimeEnd: TDateTimePicker;
    dtp_redebttimeBegin: TDateTimePicker;
    ed_redebtusername: TEdit;
    cb_redebtusername: TCheckBox;
    dtp_debttimeEnd: TDateTimePicker;
    dtp_debttimeBegin: TDateTimePicker;
    ed_debtusername: TEdit;
    cb_debtusername: TCheckBox;
    procedure but_roomfeerequeryClick(Sender: TObject);
    procedure cb_feeusernameClick(Sender: TObject);
    procedure cb_debtusernameClick(Sender: TObject);
    procedure but_roomdebtrequeryClick(Sender: TObject);
    procedure cb_redebtusernameClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formmanagerroomquery: Tformmanagerroomquery;

implementation
    uses unitDMhotel;
{$R *.dfm}

procedure Tformmanagerroomquery.but_roomfeerequeryClick(Sender: TObject);
var
totalmoney:extended;
begin
        DMHotel.ManagerRoomFeeQuery(ed_feeusername.Text,dtp_feetimebegin.Date,dtp_feetimeend.Date,cb_feeusername.Checked,totalmoney);
        ed_totalfee.Text:=floattostr(totalmoney);
end;

procedure Tformmanagerroomquery.cb_feeusernameClick(Sender: TObject);
begin
if ed_feeusername.Enabled=false then
        ed_feeusername.Enabled:=true
else
        begin
                ed_feeusername.Enabled:=false;
                ed_feeusername.Clear;
        end;
end;

procedure Tformmanagerroomquery.cb_debtusernameClick(Sender: TObject);
begin
if ed_debtusername.Enabled=false then
        ed_debtusername.Enabled:=true
else
        begin
                ed_debtusername.Enabled:=false;
                ed_debtusername.Clear;
        end;
end;

procedure Tformmanagerroomquery.but_roomdebtrequeryClick(Sender: TObject);
var
totalmoney:extended;
begin
        DMHotel.ManagerRoomReDebtQuery(ed_redebtusername.Text,dtp_redebttimebegin.Date,dtp_redebttimeend.Date,cb_redebtusername.Checked,'帐务已还清',totalmoney);
       // DMHotel.ManagerRoomDebtQuery(ed_debtusername.Text,dtp_debttimebegin.Date,dtp_debttimeend.Date,cb_debtusername.Checked,'帐务已还清',totalmoney);
        ed_totalredebt.Text:=floattostr(totalmoney);
end;

procedure Tformmanagerroomquery.cb_redebtusernameClick(Sender: TObject);
begin
        if ed_redebtusername.Enabled=false then
        ed_redebtusername.Enabled:=true
else
        begin
                ed_redebtusername.Enabled:=false;
                ed_redebtusername.Clear;
        end;
end;

procedure Tformmanagerroomquery.Button1Click(Sender: TObject);
var
totalmoney:extended;
begin
        DMHotel.ManagerRoomDebtQuery(ed_debtusername.Text,dtp_debttimebegin.Date,dtp_debttimeend.Date,cb_debtusername.Checked,'欠账',totalmoney);
    //    DMHotel.ManagerRoomReDebtQuery(ed_redebtusername.Text,dtp_redebttimebegin.Date,dtp_redebttimeend.Date,cb_redebtusername.Checked,'欠帐',totalmoney);
        ed_totaldebt.Text:=floattostr(totalmoney);
end;

procedure Tformmanagerroomquery.TabSheet1Show(Sender: TObject);
begin
dtp_feetimeBegin.Date:=date;
dtp_feetimeEnd.Date:=date;
end;

procedure Tformmanagerroomquery.TabSheet2Show(Sender: TObject);
begin
dtp_redebttimeBegin.Date:=date;
dtp_redebttimeEnd.Date:=date;
end;

procedure Tformmanagerroomquery.TabSheet3Show(Sender: TObject);
begin
dtp_debttimeBegin.Date:=date;
dtp_debttimeEnd.Date:=date;
end;

end.