unt_viewcustome.pas

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

unit unt_ViewCustome;

interface

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

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

var
  ViewCustomeForm: TViewCustomeForm;

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

procedure TViewCustomeForm.BitBtn2Click(Sender: TObject);
begin
 ViewCustomeForm.Close;
end;

procedure TViewCustomeForm.BitBtn1Click(Sender: TObject);
begin
  ViewCustomeRep.QuickRep1.DataSet := ADOTable1;
  ViewCustomeRep.QRDBText1.DataSet := ADOTable1;
  ViewCustomeRep.QRDBText2.DataSet := ADOTable1;
  ViewCustomeRep.QRDBText3.DataSet := ADOTable1;
  ViewCustomeRep.QRDBText4.DataSet := ADOTable1;
  ViewCustomeRep.QRDBText5.DataSet := ADOTable1;
  ViewCustomeRep.QRDBText6.DataSet := ADOTable1;
  ViewCustomeRep.QRDBText7.DataSet := ADOTable1;
  ViewCustomeRep.QRDBText8.DataSet := ADOTable1;
  ViewCustomeRep.QRDBText1.DataField := 'bookno';
  ViewCustomeRep.QRDBText2.DataField := 'name';
  ViewCustomeRep.QRDBText3.DataField := 'sex';
  ViewCustomeRep.QRDBText4.DataField := 'Certi';
  ViewCustomeRep.QRDBText5.DataField := 'Certi_no';
  ViewCustomeRep.QRDBText6.DataField := 'birthplace';
  ViewCustomeRep.QRDBText7.DataField := 'birthday';
  ViewCustomeRep.QRDBText8.DataField := 'Unit';
  ViewCustomeRep.QRLabel12.Caption := Main.username;
  ViewCustomeRep.QRLabel13.Caption := FormatDateTime('yyyy-mm-dd',Now);
  ViewCustomeRep.QuickRep1.Preview;
end;

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

end.