unitdebtroomrequery.pas

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

unit unitdebtroomrequery;

interface

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

type
  Tformdebtroomrequery = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Panel4: TPanel;
    GroupBox1: TGroupBox;
    ed_feeusername: TEdit;
    ed_feeroomid: TEdit;
    dtp_feeintime: TDateTimePicker;
    cb_feeusername: TCheckBox;
    cb_feeroomid: TCheckBox;
    cb_feeintime: TCheckBox;
    StaticText4: TStaticText;
    but_roomfeerequery: TButton;
    DataSource1: TDataSource;
    ed_totaldebt: TEdit;
    procedure cb_feeusernameClick(Sender: TObject);
    procedure cb_feeroomidClick(Sender: TObject);
    procedure cb_feeintimeClick(Sender: TObject);
    procedure but_roomfeerequeryClick(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formdebtroomrequery: Tformdebtroomrequery;

implementation
       uses unitDMHotel;
{$R *.dfm}

procedure Tformdebtroomrequery.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 Tformdebtroomrequery.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 Tformdebtroomrequery.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 Tformdebtroomrequery.but_roomfeerequeryClick(Sender: TObject);
var
totalmoney:extended;
begin
DMHotel.RoomDebtQuery('欠账',ed_feeusername.Text,ed_feeroomid.Text,dtp_feeintime.Date,cb_feeusername.Checked,cb_feeroomid.Checked,cb_feeintime.Checked,totalmoney);
ed_totaldebt.Text:=floattostr(totalmoney);
end;

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

end.