unitcustomermanagerquery.pas

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

unit unitcustomermanagerquery;

interface

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

type
  TFormcustomermanagerquery = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Panel4: TPanel;
    GroupBox1: TGroupBox;
    ed_redebtusername: TEdit;
    StaticText4: TStaticText;
    StaticText1: TStaticText;
    but_roomfeerequery: TButton;
    TabSheet2: TTabSheet;
    Panel3: TPanel;
    DBGrid2: TDBGrid;
    GroupBox2: TGroupBox;
    ed_debtusername: TEdit;
    Button1: TButton;
    StaticText6: TStaticText;
    ed_totalredebt: TEdit;
    dtp_redebttimeBegin: TDateTimePicker;
    dtp_redebttimeEnd: TDateTimePicker;
    StaticText7: TStaticText;
    StaticText8: TStaticText;
    DataSource1: TDataSource;
    ed_totaldebt: TEdit;
    StaticText5: TStaticText;
    dtp_debttimeEnd: TDateTimePicker;
    DTP_debttimebegin: TDateTimePicker;
    StaticText9: TStaticText;
    StaticText10: TStaticText;
    cb_redebtcheck: TCheckBox;
    DataSource2: TDataSource;
    cb_debtcheck: TCheckBox;
    StaticText2: TStaticText;
    procedure cb_redebtcheckClick(Sender: TObject);
    procedure but_roomfeerequeryClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure cb_debtcheckClick(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formcustomermanagerquery: TFormcustomermanagerquery;

implementation
     uses unitDMHotel;
{$R *.dfm}

procedure TFormcustomermanagerquery.cb_redebtcheckClick(Sender: TObject);
begin
if ed_redebtusername.Enabled=false  then
        begin
                ed_redebtusername.Enabled:=true;
                ed_redebtusername.SetFocus;
        end
else
        begin
                ed_redebtusername.Enabled:=false;
                ed_redebtusername.Clear;
        end;
end;

procedure TFormcustomermanagerquery.but_roomfeerequeryClick(Sender: TObject);
var
totalmoney:extended;
begin
        DMHotel.ManagerCustomerReDebtQuery(ed_redebtusername.Text,dtp_redebttimeBegin.Date,dtp_redebttimeEnd.Date,cb_redebtcheck.Checked,'帐务已还清',totalmoney);
        ed_totalredebt.Text:=floattostr(totalmoney);
end;

procedure TFormcustomermanagerquery.Button1Click(Sender: TObject);
var
totalmoney:extended;
begin
        DMHotel.ManagerCustomerDebtQuery(ed_debtusername.Text,DTP_debttimebegin.Date,dtp_debttimeEnd.Date,cb_debtcheck.Checked,'欠账',totalmoney);
        ed_totaldebt.Text:=floattostr(totalmoney);
end;

procedure TFormcustomermanagerquery.cb_debtcheckClick(Sender: TObject);
begin
if ed_debtusername.Enabled=false  then
        begin
                ed_debtusername.Enabled:=true;
                ed_debtusername.SetFocus;
        end
else
        begin
                ed_debtusername.Enabled:=false;
                ed_debtusername.Clear;
        end;
end;

procedure TFormcustomermanagerquery.TabSheet1Show(Sender: TObject);
begin
dtp_redebttimeBegin.Date:=date;
dtp_redebttimeEnd.Date:=date;
end;

procedure TFormcustomermanagerquery.TabSheet2Show(Sender: TObject);
begin
DTP_debttimebegin.Date:=date;
DTP_debttimeEnd.Date:=date;
end;

end.