chu_huo_query.~pas

来自「产品标签管理系统：delphi+sql实现了产品标签、包装箱麦的自动生成等功能」· ~PAS 代码 · 共 78 行

unit chu_huo_query;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, Mask;

type
  Tchu_huo_quer = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    Button1: TButton;
    Button2: TButton;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    procedure MaskEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure MaskEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  chu_huo_quer: Tchu_huo_quer;

implementation

{$R *.dfm}

procedure Tchu_huo_quer.MaskEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
maskedit2.SetFocus;
end;

procedure Tchu_huo_quer.MaskEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
button1.SetFocus;
end;

procedure Tchu_huo_quer.Button1Click(Sender: TObject);
begin
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select * from E where (Cdr>=:mm) and (Cdr<=:nn)');
query1.ParamByName('mm').AsDateTime:=strtodate(maskedit1.Text);
query1.ParamByName('nn').AsDateTime:=strtodate(maskedit2.Text);
query1.Prepare;
query1.Active:=true;

end;

procedure Tchu_huo_quer.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tchu_huo_quer.Button2Click(Sender: TObject);
begin
close;
end;

end.