pickxmpy.pas

来自「用Delphi编写的户籍管理系统」· PAS 代码 · 共 57 行

unit PickXMPY;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, Grids, DBGrids;

type
  TFrmPY = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    ButtonOK: TButton;
    ButtonCANCLE: TButton;
    DBGrid1: TDBGrid;
    procedure Edit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmPY: TFrmPY;

implementation
Uses MainData;
{$R *.dfm}

procedure TFrmPY.Edit1KeyUp(Sender: TObject; var Key: Word;//在KEYPRESS中达不到效果
  Shift: TShiftState);
var
cPY:string;
cSQL:string;

begin
  cPY:=edit1.Text;
  cSQL:='select bh,xm,py from XMPY where py like "' + cPY +'%"';//完成一键一提示
  with DataHJZL.AdoQueryTMP do
   BEGIN
    Close;
    SQL.Clear;
    SQL.Add(cSQL);
    Open ;
   end;
end;


procedure TFrmPY.DBGrid1DblClick(Sender: TObject);
begin
   buttonOk.Click;
end;

end.