uckdataquery.pas

来自「我的毕业设计」· PAS 代码 · 共 59 行

unit Uckdataquery;

interface

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

type
  Tfrmckdataquery = class(TForm)
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    DataSource1: TDataSource;
    Table1: TTable;
    Query1: TQuery;
    Label2: TLabel;
    Label3: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmckdataquery: Tfrmckdataquery;

implementation

uses Uquery, Ukcquery, Urkdataquery;

{$R *.dfm}

procedure Tfrmckdataquery.SpeedButton1Click(Sender: TObject);
  begin
  frmrkdataquery.query1.close;
  frmrkdataquery.query1.SQL.Clear;
  frmrkdataquery.query1.SQL.Add('select * from crkb where 出入标志='+ #39+inttostr(0)+#39+'and 日期>=:data1 and 日期<=:data2');
  frmrkdataquery.query1.ParamByName('data1').AsDateTime:=DatetimePicker1.DateTime;
  frmrkdataquery.query1.ParamByName('data2').AsDateTime:=DatetimePicker2.DateTime;
  frmrkdataquery.query1.Open;
  if frmrkdataquery.query1.RecordCount=0 then
    messagebox(getforegroundwindow, '没有符合要求的记录！','系统提示', mb_ok + mb_iconinformation);
  frmkcquery.dbgrid1.Refresh;
  frmkcquery.showmodal;

end;

procedure Tfrmckdataquery.SpeedButton2Click(Sender: TObject);
begin
close
end;

end.