print_tj.~pas

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

unit Print_tj;

interface

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

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

var
  Form35: TForm35;

implementation

uses Date_Room, Date_DinList, Date_Jiezhang, main;

{$R *.dfm}

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

procedure TForm35.Button1Click(Sender: TObject);
  var aaa,bbb:string;
begin
  aaa:=DateTimeToStr(rqq.DateTime);
  bbb:=DateTimeToStr(rqh.DateTime);
  form32.QR15.Caption:='从'''+aaa+'''至'''+bbb+'''';
  form32.qq.Caption:='统计';
  form32.Q_date.SQL.Clear;
  form32.Q_date.SQL.Add('select * from H_RoomIn where cstr(EndTime) between '''+aaa+''' and '''+bbb+'''');
  form32.Q_date.Open;
  form32.bbr.Caption:=form1.operator.Caption;
  form32.QuickRep1.Preview;

end;

procedure TForm35.Button2Click(Sender: TObject);
  var aaa,bbb:string;
begin
  aaa:=DateTimeToStr(rqq.DateTime);
  bbb:=DateTimeToStr(rqh.DateTime);
  form33.QR15.Caption:='从'''+aaa+'''至'''+bbb+'''';
  form33.qq.Caption:='统计';
  form33.Q_DinList.SQL.Clear;
  form33.Q_DinList.SQL.Add('select * from H_Dinlist where cstr(EndTime) between '''+aaa+''' and '''+bbb+'''');
  form33.Q_DinList.Open;
    form33.bbr.Caption:=form1.operator.Caption;
  form33.QuickRep1.Preview;

end;

procedure TForm35.Button3Click(Sender: TObject);
  var aaa,bbb:string;
begin
  aaa:=DateTimeToStr(rqq.DateTime);
  bbb:=DateTimeToStr(rqh.DateTime);
  form34.QR15.Caption:='从'''+aaa+'''至'''+bbb+'''';
  form34.qq.Caption:='统计';
  form34.Q_jiezhang.SQL.Clear;
  form34.Q_jiezhang.SQL.Add('select * from H_Account where cstr(EndTime) between '''+aaa+''' and '''+bbb+'''');
  form34.Q_jiezhang.Open;
    form34.bbr.Caption:=form1.operator.Caption;
  form34.QuickRep1.Preview;
end;

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

end.