urkdataquery.pas

我的毕业设计

unit Urkdataquery;

interface

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

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

var
  frmrkdataquery: Tfrmrkdataquery;

implementation

uses Uquery, Ukcquery;

{$R *.dfm}

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

end;

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

end.