map1src.pas

报警地图电子显示源代码

unit Map1Src;

interface

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

type
  TFormMap1 = class(TForm)
    Image1: TImage;
    active: TBitBtn;
    procedure FormActivate(Sender: TObject);
    procedure activeClick(Sender: TObject);
    
  private
    { Private declarations }
  public
    Title:Integer;
  end;

var
  FormMap1: TFormMap1;

implementation

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

procedure TFormMap1.FormActivate(Sender: TObject);
var
    strSubAddr:string;
    strSQL:string;
begin
         //下面提示报警信息
         strSQL := 'Select * from bjjlb where 对应硬件节点='+'"'+inttostr(Title)+'"'+' order by ID号 desc';
         FormBJInfo.ADOQuery1.Close;
         FormBJInfo.ADOQuery1.SQL.Clear;
         FormBJInfo.ADOQuery1.SQL.Text := strSQL;
         FormBJInfo.ADOQuery1.Open;
         FormPopUp.Label3.Caption:=FormBJInfo.adoquery1.fieldbyname('报警器编号').AsString;
         FormPopUp.Label5.Caption:=FormBJInfo.adoquery1.fieldbyname('所在地址').AsString;
         FormPopUp.Label7.Caption:=FormBJInfo.adoquery1.fieldbyname('报警器日期').AsString;
         FormPopUp.Label9.Caption:=FormBJInfo.adoquery1.fieldbyname('报警器时间').AsString;
        //弹出报警窗体
        if Title=1 then FormPopUp.Label1.Caption:='地点一';   //增加报警点需修改
        if Title=2 then FormPopUp.Label1.Caption:='地点二';
        if Title=3 then FormPopUp.Label1.Caption:='地点三';
        if Title=4 then FormPopUp.Label1.Caption:='地点四';
        if Title=5 then FormPopUp.Label1.Caption:='地点五';
        if Title=6 then FormPopUp.Label1.Caption:='地点六';
        if Title=7 then FormPopUp.Label1.Caption:='地点七';
        if Title=8 then FormPopUp.Label1.Caption:='地点八';
        if Title=9 then FormPopUp.Label1.Caption:='地点九';
        if Title=10 then FormPopUp.Label1.Caption:='地点十';
        if Title=11 then FormPopUp.Label1.Caption:='地点十一';
        if Title=12 then FormPopUp.Label1.Caption:='地点十二';
        if Title=13 then FormPopUp.Label1.Caption:='地点十三';
        if Title=14 then FormPopUp.Label1.Caption:='地点十四';
        if Title=15 then FormPopUp.Label1.Caption:='地点十五';
        if Title=16 then FormPopUp.Label1.Caption:='地点十六';
        FormPopUp.ShowModal();
end;

procedure TFormMap1.activeClick(Sender: TObject);
var
        strSubAddr:string;
        strSQL:string;
begin
        //下面提示报警信息
        FormPopUp.ShowModal();
end;
end.