unitbiantaiseek.pas

远程抄表系统的客户端程序 安徽六安项目-客户端程序 0 开发环境 Delphi 7.0 所需控件 mxOutlookBar 数 据 库 Sybase 11.5 1 04-12-

unit UnitBianTaiSeek;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons;

type
  TFormBianTaiSeek = class(TForm)
    GroupBox: TGroupBox;
    PanelBianTaiID: TPanel;
    EditBianTaiID: TEdit;
    PanelBianTaiName: TPanel;
    EditBianTaiName: TEdit;
    PanelGsm: TPanel;
    EditGsm: TEdit;
    PanelOnlyCard: TPanel;
    EditOnlyCard: TEdit;
    BtnOK: TSpeedButton;
    BtnCancel: TSpeedButton;
    procedure btnOKClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);

    procedure CheckEditPressIsInteger(Sender: TObject; var Key: Char);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
    iBtnClick : Integer;
  end;

var
  FormBianTaiSeek: TFormBianTaiSeek;

implementation

{$R *.dfm}

procedure TFormBianTaiSeek.btnOKClick(Sender: TObject);
begin
  iBtnClick := 1;
  self.Close();
end;

procedure TFormBianTaiSeek.BtnCancelClick(Sender: TObject);
begin
  iBtnClick := 0;
  self.Close();
end;

procedure TFormBianTaiSeek.CheckEditPressIsInteger(Sender: TObject; var Key: Char);
begin
  case Key of
    '1':;
    '2':;
    '3':;
    '4':;
    '5':;
    '6':;
    '7':;
    '8':;
    '9':;
    '0':;
    else Key := #0;
  end;
end;

procedure TFormBianTaiSeek.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then
    BtnOKClick(Sender);

  if Key = #27 then
    BtnCancelClick(Sender);
end;

end.