map2src.~pas

报警地图电子显示源代码

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 FormActivate(Sender: TObject);
    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.FormActivate(Sender: TObject);
var
   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 bjqwhb 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.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.