map2src.pas

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

unit Map2Src;

interface

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

type
  TFormMap2 = class(TForm)
    Image1: TImage;
    active: TBitBtn;
    gray: TBitBtn;
    LabelInfo: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: 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
  FormMap2: TFormMap2;

implementation
uses
   MainSrc, BJInfoSrc, PopUpSrc, BJDataSrc, HardwareInterfaceSrc;
{$R *.dfm}

procedure TFormMap2.FormCreate(Sender: TObject);
begin
        Image1.Picture.LoadFromFile('picture\map2.jpg');
end;

procedure TFormMap2.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) < 51)
                or (FormPopUp.DBEdit5.Text <> FormHardwareInterface.EditLevel2.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.light6to10.Visible := false;

end;

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

procedure TFormMap2.activeClick(Sender: TObject);
var
        //strPopup:string;
    strSubAddr:string;
    strSQL:string;
begin
         //下面提示报警信息
        FormBJInfo.ADOQuery1.Last;
         while (strtoint(FormPopUp.DBEditLouhao.Text) < 51)
                or (FormPopUp.DBEdit5.Text <> FormHardwareInterface.EditLevel2.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;
        FormMain.light6to10.Visible := false;
end;

end.