guest_query.pas

我自己写的一个有关酒店管理系统的代码 大家

unit guest_query;

interface

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

type
  TguestqueryForm = class(TForm)
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOConnection1: TADOConnection;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  guestqueryForm: TguestqueryForm;
  datasource1:TDataSource;
  adodataset1:TAdoDataSet;
implementation
   uses guestqueryrpt,main;
{$R *.dfm}

procedure TguestqueryForm.BitBtn2Click(Sender: TObject);
begin
    adodataset1.Close;
    close;
end;

procedure TguestqueryForm.FormActivate(Sender: TObject);
begin
    datasource1:=TDataSource.Create(self);
    dbgrid1.DataSource:=datasource1;
    dbgrid1.ReadOnly:=true;
    adodataset1:=TAdoDataSet.Create(self);
    adodataset1.Connection:=adoconnection1;
    datasource1.DataSet:=adodataset1;
    adodataset1.CommandText:='select * from 订房数据表';
    adodataset1.open;
end;

procedure TguestqueryForm.BitBtn1Click(Sender: TObject);
begin
    guestrptform.qrlabel5.Caption:=datetostr(date);
    guestrptform.qrlabel3.Caption:=username;
    guestrptform.QuickRep1.Print;
end;

end.