map1src.~pas

该程序可作为386的接警程序使用

unit Map1Src;

interface

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

type
  TFormMap1 = class(TForm)
    Image1: TImage;
    active: TBitBtn;
    gray: TBitBtn;
    LabelInfo: TLabel;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure activeClick(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMap1: TFormMap1;

implementation

{$R *.dfm}
uses
   MainSrc, BJInfoSrc, PopUpSrc, BJDataSrc,HardwareInterfaceSrc;
procedure TFormMap1.FormCreate(Sender: TObject);
begin
        Image1.Picture.LoadFromFile('picture\map1.jpg');
end;

procedure TFormMap1.FormActivate(Sender: TObject);
var
    //strPopUp:string;
    strSubAddr:string;
    strSQL:string;
begin
        labelinfo.Visible := true;
        active.Visible := true;
        gray.Visible := false;
         //下面提示报警信息
        FormBJInfo.ADOQuery1.Last;
         while (strtoint(FormPopUp.DBEditLouhao.Text) > 50)
                or( FormPopUp.DBEdit5.Text<>FormHardwareInterface.EditLevel1.Text )
             do
             FormBJInfo.ADOQuery1.Prior;
        //FormBJInfo.ADOQuery1.Last;
         //修改报警窗体信息
         FormPopUp.EditAddr.Text := '聚星城';
         strSubAddr := FormPopUp.DBEditLouhao.Text + '号楼' + FormPopUp.DBEditDanyuanhao.Text +  '单元'
                        + FormPopUp.DBEditFanghao.Text + '号房';
         strSQL := 'Select * from 报警器档案 where 报警器位置 = ' + '"' + strSubAddr + '"';
         FormBJData.ADOQuery1.Close;
         FormBJData.ADOQuery1.SQL.Clear;
         FormBJData.ADOQuery1.SQL.Text := strSQL;
         FormBJData.ADOQuery1.Open;
        //弹出报警窗体
        FormPopUp.ShowModal();

        FormMain.light1to5.Visible := false;

end;

procedure TFormMap1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
          active.Visible := false;
          gray.Visible := true;
          labelinfo.Visible := true;
end;

procedure TFormMap1.activeClick(Sender: TObject);
var
        //strPopup:string;
        strSubAddr:string;
        strSQL:string;
begin
         FormBJInfo.ADOQuery1.Last;
         while (strtoint(FormPopUp.DBEditLouhao.Text) > 50)
                or( FormPopUp.DBEdit5.Text<>FormHardwareInterface.EditLevel1.Text )
          do
               FormBJInfo.ADOQuery1.Prior;

         //修改报警窗体信息
         FormPopUp.EditAddr.Text := '聚星城';
         strSubAddr := FormPopUp.DBEditLouhao.Text + '号楼' + FormPopUp.DBEditDanyuanhao.Text +  '单元'
                        + FormPopUp.DBEditFanghao.Text + '号房';
         strSQL := 'Select * from 报警器档案 where 报警器位置 = ' + '"' + strSubAddr + '"';
         FormBJData.ADOQuery1.Close;
         FormBJData.ADOQuery1.SQL.Clear;
         FormBJData.ADOQuery1.SQL.Text := strSQL;
         FormBJData.ADOQuery1.Open;
        //弹出报警窗体
        FormPopUp.ShowModal();

        FormMain.light1to5.Visible := false;
end;
end.