dateprint.~pas

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

unit DatePrint;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, QuickRpt, ExtCtrls, QRCtrls, StdCtrls, Buttons;

type
  TForm31 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    SpeedButton1: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form31: TForm31;

implementation

uses Date_Room, Date_DinList, Date_Jiezhang, main;

{$R *.dfm}

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

procedure TForm31.Button1Click(Sender: TObject);
var aaa,bbb:tdatetime;
begin
   aaa:=strtodatetime(datetimetostr(date-1)+' '+'8:30:00');
   bbb:=strtodatetime(datetimetostr(date)+' '+'8:30:00');
  form32.Qr15.Caption:=DateTimeToStr(date);
  form32.qq.Caption:='日';
  form32.Q_date.Active:=False;
  form32.Q_date.Params.ParamValues['aaa']:=aaa;
  form32.Q_date.params.paramvalues['bbb']:=bbb;
//  form32.Q_date.SQL.Clear;
//  form32.Q_date.SQL.Add('select * from H_RoomIn where cstr(EndTime) between '''+aaa+''' and '''+bbb+'''');
  form32.Q_date.Active:=true;
  form32.bbr.Caption:=form1.operator.Caption;
  form32.QuickRep1.Preview;
end;

procedure TForm31.Button2Click(Sender: TObject);
var aaa,bbb:tdatetime;
begin
   aaa:=strtodatetime(datetimetostr(date-1)+' '+'8:30:00');
   bbb:=strtodatetime(datetimetostr(date)+' '+'8:30:00');
  form33.Qr15.Caption:=DateTimeToStr(date);
  form33.qq.Caption:='日';
  form33.Q_DinList.Active:=False;
  form33.Q_date.Params.ParamValues['aaa']:=aaa;
  form33.Q_date.params.paramvalues['bbb']:=bbb;
  //  form33.Q_DinList.SQL.Clear;
//  form33.Q_DinList.SQL.Add('select * from H_Dinlist where cstr(EndTime) between '''+aaa+''' and '''+bbb+'''');
  form33.Q_DinList.Active:=true;
  form33.bbr.Caption:=form1.operator.Caption;
  form33.QuickRep1.Preview;
end;

procedure TForm31.Button3Click(Sender: TObject);
var aaa,bbb:tdatetime;
begin
   aaa:=strtodatetime(datetimetostr(date-1)+' '+'8:30:00');
   bbb:=strtodatetime(datetimetostr(date)+' '+'8:30:00');
  form34.Qr15.Caption:=DateTimeToStr(date);
  form34.qq.Caption:='日';
    form34.Q_date.Params.ParamValues['aaa']:=aaa;
  form34.Q_date.params.paramvalues['bbb']:=bbb;
//  form34.Q_jiezhang.SQL.Clear;
//  form34.Q_jiezhang.SQL.Add('select * from H_Account where cstr(EndTime) between '''+aaa+''' and '''+bbb+'''');
  form34.Q_jiezhang.Active:=true;
  form34.bbr.Caption:=form1.operator.Caption;
  form34.QuickRep1.Preview;
end;

end.