unitcustomer.pas

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

unit unitcustomer;

interface

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

type
  Tformcustomerrequery = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Panel4: TPanel;
    GroupBox1: TGroupBox;
    ed_debtusername: TEdit;
    StaticText4: TStaticText;
    DataSource1: TDataSource;
    TabSheet2: TTabSheet;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    Panel3: TPanel;
    DBGrid2: TDBGrid;
    DataSource2: TDataSource;
    GroupBox2: TGroupBox;
    ed_redebtcustomername: TEdit;
    StaticText3: TStaticText;
    Button1: TButton;
    StaticText5: TStaticText;
    ed_totaldebt: TEdit;
    but_roomfeerequery: TButton;
    StaticText6: TStaticText;
    ed_totalredebt: TEdit;
    StaticText7: TStaticText;
    StaticText8: TStaticText;
    procedure but_roomfeerequeryClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formcustomerrequery: Tformcustomerrequery;

implementation
        uses unitDMhotel;
{$R *.dfm}

procedure Tformcustomerrequery.but_roomfeerequeryClick(Sender: TObject);
var
totalredebt:extended;
begin
        DMHotel.CustomerreDebtQuery('帐务已还清',ed_debtusername.Text,totalredebt);
        ed_totalredebt.Text:=floattostr(totalredebt);
end;

procedure Tformcustomerrequery.Button1Click(Sender: TObject);
var
totaldebt:extended;
begin
DMHotel.CustomerDebtQuery('欠账',ed_redebtcustomername.Text,totaldebt);
ed_totaldebt.Text:=floattostr(totaldebt);
end;



end.