cw_kfbb.pas

结于初学者来说这对数据库是一个很好的例子

unit cw_kfbb;

interface

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

type
  TForm52 = class(TForm)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Button3: TButton;
    rqq: TDateTimePicker;
    rqh: TDateTimePicker;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    Q_Room: TQuery;
    Q_sn: TQuery;
    Q_ckxf: TQuery;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form52: TForm52;

implementation

uses cw_bbdykf, cw_main;

{$R *.dfm}

procedure TForm52.SpeedButton1Click(Sender: TObject);
begin
close;
end;

procedure TForm52.FormShow(Sender: TObject);
begin
  rqq.Date:=date-1;
  rqh.Date:=date;
end;



procedure TForm52.Button3Click(Sender: TObject);
  var
     aaa,bbb:string;
     ckxf:integer;
begin
  aaa:=DateTimeToStr(rqq.DateTime);
  bbb:=DateTimeToStr(rqh.DateTime);
  Q_ckxf.Active:=false;
  Q_ckxf.Params.ParamValues['aaaa']:=aaa;
  Q_ckxf.Params.ParamValues['bbbb']:=bbb;
  Q_ckxf.Active:=true;
  ckxf:=Q_ckxf.RecordCount;
  form53.X2.Caption:=Inttostr(ckxf);
  form53.tjsj.Caption:='从'+aaa+'至'+bbb;
  form53.BBR.Caption:=form1.operator.Caption;
  form53.BBSJ.Caption:=datetimetostr(now);
  Q_Room.Active:=false;
  Q_room.Params.ParamValues['aaa']:=aaa;
  Q_room.Params.ParamValues['bbb']:=bbb;
  Q_room.Active:=true;
  form53.L1.Caption:=Q_room.fieldbyname('L1').asstring;
  form53.L2.Caption:=Q_room.fieldbyname('L2').asstring;
  form53.L3.Caption:=Q_room.fieldbyname('L3').asstring;
  form53.L4.Caption:=Q_room.fieldbyname('L4').asstring;
  form53.L5.Caption:=Q_room.fieldbyname('L5').asstring;
  form53.L6.Caption:=Q_room.fieldbyname('L6').asstring;
  form53.L7.Caption:=Q_room.fieldbyname('L7').asstring;
  form53.L8.Caption:=Q_room.fieldbyname('L8').asstring;
  form53.L9.Caption:=Q_room.fieldbyname('L9').asstring;
  form53.L10.Caption:=Q_room.fieldbyname('L10').asstring;
  form53.L11.Caption:=Q_room.fieldbyname('L11').asstring;
  form53.L12.Caption:=Q_room.fieldbyname('L12').asstring;
  form53.L13.Caption:=Q_room.fieldbyname('L13').asstring;
  form53.L14.Caption:=Q_room.fieldbyname('L14').asstring;
  form53.L15.Caption:=Q_room.fieldbyname('L15').asstring;
  form53.L16.Caption:=Q_room.fieldbyname('L16').asstring;
  form53.L17.Caption:=Q_room.fieldbyname('L17').asstring;
  form53.L18.Caption:=Q_room.fieldbyname('L18').asstring;
  Q_SN.Active:=false;
  Q_SN.Params.ParamValues['aa']:=aaa;
  Q_SN.Params.ParamValues['bb']:=bbb;
  Q_SN.Active:=true;
  form53.X1.Caption:=Q_sn.fieldbyname('X1').AsString;
// form53.X2.Caption:=Q_sn.fieldbyname('X2').AsString;
  form53.X3.Caption:=Q_sn.fieldbyname('X3').AsString;
  form53.X4.Caption:=Q_sn.fieldbyname('X4').AsString;
  form53.X5.Caption:=Q_sn.fieldbyname('X5').AsString;
  form53.X6.Caption:=Q_sn.fieldbyname('X6').AsString;
  form53.X7.Caption:=Q_sn.fieldbyname('X7').AsString;
  form53.X8.Caption:=Q_sn.fieldbyname('X8').AsString;
  form53.X9.Caption:=Q_sn.fieldbyname('X9').AsString;
  form53.X10.Caption:=Q_sn.fieldbyname('X10').AsString;
  form53.X11.Caption:=Q_sn.fieldbyname('X11').AsString;
  form53.X12.Caption:=Q_sn.fieldbyname('X12').AsString;
  form53.X13.Caption:=Q_sn.fieldbyname('X13').AsString;
  form53.X14.Caption:=Q_sn.fieldbyname('X14').AsString;
  form53.X15.Caption:=Q_sn.fieldbyname('X15').AsString;
  form53.X16.Caption:=Q_sn.fieldbyname('X16').AsString;
  form53.X17.Caption:=Q_sn.fieldbyname('X17').AsString;
  form53.X18.Caption:=Q_sn.fieldbyname('X18').AsString;
  form53.X19.Caption:=Q_sn.fieldbyname('X19').AsString;
  form53.X20.Caption:=Q_sn.fieldbyname('X20').AsString;
  form53.X21.Caption:=Q_sn.fieldbyname('X21').AsString;
  form53.X22.Caption:=Q_sn.fieldbyname('X22').AsString;
 form53.print;
end;

end.