cw_tongji.pas

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

unit cw_tongji;

interface

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

type
  TForm28 = 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
  Form28: TForm28;

implementation

uses cw_tjdyfj, cw_main, cw_tjdydin, cw_tjdyacc;

{$R *.dfm}

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

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

end;

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

end;

procedure TForm28.Button3Click(Sender: TObject);
  var aaa,bbb:string;
begin
  aaa:=DateTimeToStr(rqq.DateTime);
  bbb:=DateTimeToStr(rqh.DateTime);
  form31.QR15.Caption:='从'''+aaa+'''至'''+bbb+'''';
  form31.Q_jiezhang.SQL.Clear;
  form31.Q_jiezhang.SQL.Add('select * from H_Account where  (endtime is not null) and cstr(EndTime) between '''+aaa+''' and '''+bbb+''' order by accountno');
  form31.Q_jiezhang.Open;
    form31.bbr.Caption:=form1.operator.Caption;
  form31.QuickRep1.Preview;

end;

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

end.