cw_sntj.~pas

来自「结于初学者来说这对数据库是一个很好的例子」· ~PAS 代码 · 共 90 行

unit cw_sntj;

interface

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

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

var
  Form32: TForm32;

implementation

uses cw_sntjdin, cw_main, cw_sndyacc;

{$R *.dfm}

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

procedure TForm32.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['aa']:=aaa;
  Q_ckxf.Params.ParamValues['bb']:=bbb;
  Q_ckxf.Active:=true;
  ckxf:=Q_ckxf.RecordCount;
  form35.ckxf.Caption:=inttostr(ckxf);
  form35.bbr.Caption:=form1.operator.Caption;
  form35.QR_date.Caption:='从'''+aaa+'''至'''+bbb+'''';
  form35.Q_accountprn.Active:=False;
  form35.Q_accountprn.SQL.Clear;
  form35.Q_accountprn.SQL.Add('select * from H_Sn_Account where (endtime is not null) and cstr(EndTime) between '''+aaa+''' and '''+bbb+''' order by accountno');
  form35.Q_accountprn.Active:=True;
  form35.QuickRep1.Preview;

end;

procedure TForm32.Button2Click(Sender: TObject);
 var ccc,ddd:string;
begin
  ccc:=DateTimeToStr(rqq.DateTime);
  ddd:=DateTimeToStr(rqh.DateTime);
  form33.bbr.Caption:=form1.operator.Caption;
  form33.QR_date.Caption:='从'''+ccc+'''至'''+ddd+'''';
  form33.Q_h_sn_DinList.Active:=False;
  form33.Q_h_sn_DinList.SQL.Clear;
  form33.Q_h_sn_DinList.SQL.Add('select * from H_Sn_DinList where (endtime is not null) and cstr(EndTime) between '''+ccc+''' and '''+ddd+''' order by accountno');
  form33.Q_h_sn_DinList.Active:=True;
  form33.QuickRep1.Preview;

end;

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

end.