unt_viewmoney.pas

本软件为宾馆管理系统软件

unit unt_ViewMoney;

interface

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

type
  TViewMoneyForm = class(TForm)
    ADOTable1: TADOTable;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ViewMoneyForm: TViewMoneyForm;

implementation
uses Main, unt_CheckUser, unt_ViewMoneyRep;
{$R *.dfm}

procedure TViewMoneyForm.BitBtn2Click(Sender: TObject);
begin
  ViewMoneyForm.Close;
end;

procedure TViewMoneyForm.BitBtn1Click(Sender: TObject);
begin
  ViewMoneyRep.QuickRep1.DataSet := ADOTable1;
  ViewMoneyRep.QRDBText1.DataSet := ADOTable1;
  ViewMoneyRep.QRDBText2.DataSet := ADOTable1;
  ViewMoneyRep.QRDBText3.DataSet := ADOTable1;
  ViewMoneyRep.QRDBText4.DataSet := ADOTable1;
  ViewMoneyRep.QRDBText5.DataSet := ADOTable1;
  ViewMoneyRep.QRDBText6.DataSet := ADOTable1;
  ViewMoneyRep.QRDBText7.DataSet := ADOTable1;
  ViewMoneyRep.QRDBText1.DataField := 'bookno';
  ViewMoneyRep.QRDBText1.DataField := 'roomno';
  ViewMoneyRep.QRDBText1.DataField := 'name';
  ViewMoneyRep.QRDBText1.DataField := 'factfee';
  ViewMoneyRep.QRDBText1.DataField := 'note1';
  ViewMoneyRep.QRDBText1.DataField := 'operator';
  ViewMoneyRep.QRDBText1.DataField := 'oper_date';
  ViewMoneyRep.QuickRep1.Preview;
end;

procedure TViewMoneyForm.FormShow(Sender: TObject);
begin
  ADOTable1.Active := True;
end;

end.