addbjdatasrc.~pas

报警地图电子显示源代码

unit AddBJDataSrc;

interface

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

type
  TFormAddBJData = class(TForm)
    GroupBoxAddBJData: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    ButtonOK: TButton;
    ButtonClose: TButton;
    EditNum: TEdit;
    EditName: TEdit;
    EditPos: TEdit;
    EditAddr: TEdit;
    EditTele: TEdit;
    Label9: TLabel;
    EditMap: TEdit;
    OpenPictureDialog1: TOpenPictureDialog;
    Button1: TButton;
    procedure ButtonOKClick(Sender: TObject);
    procedure ButtonCloseClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure EditNumKeyPress(Sender: TObject; var Key: Char);
    procedure EditAddrKeyPress(Sender: TObject; var Key: Char);
  private
    iTemp:Integer;
  public
    { Public declarations }
  end;

var
  FormAddBJData: TFormAddBJData;

implementation

{$R *.dfm}
uses
        JieDianWeiHuScr;

procedure TFormAddBJData.ButtonOKClick(Sender: TObject);
var     strSQL:string;
begin
  ModalResult := mrOK;
end;

procedure TFormAddBJData.ButtonCloseClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

procedure TFormAddBJData.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
  begin
    EditMap.Text := OpenPictureDialog1.FileName;
  end;
end;

procedure TFormAddBJData.EditNumKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9',char(VK_BACK),char(VK_DELETE)]) then Key:=#0;
end;

procedure TFormAddBJData.EditAddrKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9',char(VK_BACK),char(VK_DELETE)]) then Key:=#0;
end;

end.