tj_report.~pas

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

unit TJ_report;

interface

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

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

var
  Form21: TForm21;

implementation

uses data_accountprn, data_dinlistprn;

{$R *.dfm}

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

procedure TForm21.Button3Click(Sender: TObject);
  var aaa,bbb:string;
begin
  aaa:=DateTimeToStr(rqq.DateTime);
  bbb:=DateTimeToStr(rqh.DateTime);
  form19.QR_date.Caption:='从'''+aaa+'''至'''+bbb+'''';
  form19.QR_xm.Caption:='统计';
  form19.Q_accountprn.Active:=False;
  form19.Q_accountprn.SQL.Clear;
  form19.Q_accountprn.SQL.Add('select * from H_Sn_Account where cstr(EndTime) between '''+aaa+''' and '''+bbb+'''');
  form19.Q_accountprn.Active:=True;
  form19.QuickRep1.Preview;


end;

procedure TForm21.Button2Click(Sender: TObject);
 var ccc,ddd:string;
begin
  ccc:=DateTimeToStr(rqq.DateTime);
  ddd:=DateTimeToStr(rqh.DateTime);
  form20.QR_date.Caption:='从'''+ccc+'''至'''+ddd+'''';
  form20.QR_xm.Caption:='统计';
  form20.Q_h_sn_DinList.Active:=False;
  form20.Q_h_sn_DinList.SQL.Clear;
  form20.Q_h_sn_DinList.SQL.Add('select * from H_Sn_DinList where cstr(EndTime) between '''+ccc+''' and '''+ddd+'''');
  form20.Q_h_sn_DinList.Active:=True;
  form20.QuickRep1.Preview;


end;

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

end.