guest_query.pas

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

unit guest_query;

interface

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

type
  TguestqueryForm = class(TForm)
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Query1: TQuery;
    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
    query1.Close;
    close;
end;

procedure TguestqueryForm.FormActivate(Sender: TObject);
begin
    datasource1:=TDataSource.Create(self);
    dbgrid1.DataSource:=datasource1;
    dbgrid1.ReadOnly:=true;
    datasource1.DataSet:=query1;
    query1.SQL.Clear;
    query1.SQL.Add('select * from bookroom');
    query1.open;
    dbgrid1.Fields[0].DisplayLabel:='订房序号';
    dbgrid1.Fields[1].DisplayLabel:='客户名称';
    dbgrid1.Fields[2].DisplayLabel:='证件名称';
    dbgrid1.Fields[3].DisplayLabel:='证件号码';
    dbgrid1.Fields[4].DisplayLabel:='性别';
    dbgrid1.Fields[5].DisplayLabel:='籍贯';
    dbgrid1.Fields[6].DisplayLabel:='出生年月';
    dbgrid1.Fields[7].DisplayLabel:='工作单位';
    dbgrid1.Fields[8].DisplayLabel:='通信地址';
    dbgrid1.Fields[9].DisplayLabel:='钟点房';
    dbgrid1.Fields[10].DisplayLabel:='联系方式';
    dbgrid1.Fields[11].DisplayLabel:='源地';
    dbgrid1.Fields[12].DisplayLabel:='目的地';
    dbgrid1.Fields[13].DisplayLabel:='登记日期';
    dbgrid1.Fields[14].DisplayLabel:='预计天数';
    dbgrid1.Fields[15].DisplayLabel:='房间编号';
    dbgrid1.Fields[16].DisplayLabel:='其他费用';
    dbgrid1.Fields[17].DisplayLabel:='住房单价';
    dbgrid1.Fields[18].DisplayLabel:='折扣率';
    dbgrid1.Fields[19].DisplayLabel:='押金数';
    dbgrid1.Fields[20].DisplayLabel:='结账日期';
    dbgrid1.Fields[21].DisplayLabel:='操作员';
    dbgrid1.Fields[22].DisplayLabel:='操作时间';
    dbgrid1.Fields[23].DisplayLabel:='说明';                                                                            
end;

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

end.