mainsrc.pas

报警地图电子显示源代码

unit MainSrc;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ExtCtrls, StdCtrls, Buttons,
  idGlobal,ShellApi, jpeg, Mask, DBCtrls;
const WM_NID=WM_USER+2000;
type
  TFormMain = class(TForm)
    MainMenu1: TMainMenu;
    w1: TMenuItem;
    MenuDataBakup: TMenuItem;
    MenuDataRestore: TMenuItem;
    N2: TMenuItem;
    N1: TMenuItem;
    MenuExit: TMenuItem;
    N3: TMenuItem;
    MenuHardwareInterface: TMenuItem;
    MenuUserPassword: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N10: TMenuItem;
    MenuAbout: TMenuItem;
    ImageMap: TImage;
    Look5to10: TBitBtn;
    EditDataAndTime: TEdit;
    Timer1: TTimer;
    OpenDialogStore: TOpenDialog;
    N21: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    TimerAutoSave: TTimer;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    EditNowUser: TEdit;
    Look36to50: TBitBtn;
    Timer2: TTimer;
    N7: TMenuItem;
    Timer3: TTimer;
    N9: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    procedure MenuExitClick(Sender: TObject);
    procedure MenuUserPasswordClick(Sender: TObject);
    procedure MenuDataBakupClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure MenuModifyItemClick(Sender: TObject);

    procedure MenuSearchInfoClick(Sender: TObject);
    procedure Look1to5Click(Sender: TObject);
    procedure Look6to10Click(Sender: TObject);
    procedure Look11to15Click(Sender: TObject);
    procedure Look21to25Click(Sender: TObject);
    procedure Look26to35Click(Sender: TObject);
    procedure Look36to50Click(Sender: TObject);
    procedure Look50to70Click(Sender: TObject);
    procedure LookAbove70Click(Sender: TObject);
    procedure Look16to20Click(Sender: TObject);
    procedure MenuHardwareInterfaceClick(Sender: TObject);
    procedure MenuDataRestoreClick(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure TimerAutoSaveTimer(Sender: TObject);
    procedure MenuAboutClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure MenuHelpClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure MenuDeleteInfoClick(Sender: TObject);
    procedure MenuSeachItemClick(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
  private
    procedure WMNID(var msg:TMessage);message WM_NID; //........
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;
  NotifyIcon:TNotifyIconData;
implementation

uses
ChangePassSrc, AddBJDataSrc, DelBJDataSrc, ModifyBJDataSrc, BJInfoSrc,QuickReportSrc,
SearchBJDataSrc, SearchBJInfoSrc, BJDataSrc,HardwareInterfaceSrc,InfoReportSrc,
AutoSaveSrc, ConnectCenterSrc, Map1Src, Map2Src, DeleteInfoSrc, PopUpSrc, LogonSrc,AboutSrc,
monitorCotrol, Unit1, JieDianWeiHuScr;

{$R *.dfm}
//////////////////////////// ?????
//////////////////////////?????????
procedure TFormMain.WMNID(var msg:TMessage);
        begin
                if not IsWindowEnabled(Handle) then
                        Exit;
                case msg.LParam of

                        WM_RBUTTONUP: ShowMessage('16路报警');

                        WM_LBUTTONDBLCLK:
                        begin
                          FormMain.Visible:=not FormMain.Visible;
                        end;

        End;
End;
procedure TFormMain.FormActivate(Sender: TObject);
var i,j:Integer;
begin
        with NotifyIcon do
        begin
                cbSize:=SizeOf(TNotifyIconData);
                Wnd:=Handle;   //指向当前窗体Form1的句柄
                uID:=1;
                uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
                uCallBackMessage:=WM_NID;
                hIcon:=Application.Icon.Handle;
                szTip:='16路报警';
        end;
        Shell_NotifyIcon(NIM_ADD,@NotifyIcon);

        Timer2.Enabled:=true;
        {j:=FormLogon.ADOConnection1.DataSetCount;
        for i:=0 to j-1 do
        begin
           //Memo1.Lines.Add(FormLogon.ADOConnection1.DataSets[i].FieldList.Text)
        end;
        FormLogon.ADOConnection1.GetTableNames(Memo1.Lines,false); }
        
end;
procedure TFormMain.FormDestroy(Sender: TObject);
begin
        Shell_NotifyIcon(NIM_DELETE,@NotifyIcon);
end;
////////////////////////////
//////////////////////////


procedure TFormMain.MenuExitClick(Sender: TObject);
begin
        Close;
end;

procedure TFormMain.MenuUserPasswordClick(Sender: TObject);
var     nTemp:Integer;
begin
        nTemp := strcomp(pChar('Admin'), pChar(strStore1) );
        if nTemp <> 0 then
        begin
                Messagebox(Application.Handle, '只有管理员才能进行用户管理，请以管理员帐号重新登陆','16路报警--用户管理',MB_OK);
                Exit;
        end;
        FormChangePass.AddPass.Text := '';
        FormChangePass.AddPassCon.Text := '';
        FormChangePass.EditNewPass.Text := '';
        FormChangePass.EditPassConfirm.Text := '';
        FormChangePass.EditUserAdd.Text := '';
        ChangePassSrc.FormChangePass.ShowModal();
end;

procedure TFormMain.MenuDataBakupClick(Sender: TObject);
var
        strSource:string;
        strDest:string;
        ret:Boolean;
        i, len:Integer;
begin
        i := strcomp(pChar('Admin'), pChar(strStore1));
        if i <> 0 then
        begin
                Messagebox(Application.Handle, '只有管理员才能进行数据备份，请以管理员帐号重新登陆','16路报警--数据管理',MB_OK);
                Exit;
        end;
        strSource := 'bj.mdb';
        strDest := TimeToStr(time);
        len := strLen( PChar(strDest) );
        for i:=1 to len  do
                if strDest[i] = ':' then
                begin
                        strDest[i] := '-';
                end;

        strDest := 'BackUp\' + DateToStr(date)+'-'+strDest + '.mdb';


        ret := CopyFileTo(strSource, strDest);
        if ret = TRUE then
        begin
                MessageBox(Application.Handle, '备份成功！','16路报警--数据备份', MB_OK);
        end
        else
        begin
                MessageBox(Application.Handle, '备份失败，请再尝试。！','16路报警--数据备份', MB_OK);
        end;

end;

//下面是数据维护代码

//修改报警器
procedure TFormMain.MenuModifyItemClick(Sender: TObject);
var
        nTemp:Integer;
begin
        nTemp := strcomp(pChar('Admin'), pChar(strStore1) );
        if nTemp <> 0 then
        begin
                Messagebox(Application.Handle, '只有管理员才能修改，请以管理员帐号重新登陆','16路报警--修改报警器档案',MB_OK);
                Exit;
        end;

        FormModifyBJData.ShowModal();
end;

//查询历史报警信息
procedure TFormMain.MenuSearchInfoClick(Sender: TObject);
begin
        FormSearchBJInfo.ShowModal();
end;

///////////////////////////////////////////////////
////////////////////////////////////////////////////
////////////////////////////////////////////////////
//1－5
procedure TFormMain.Look1to5Click(Sender: TObject);
var
        strSQL:string;
begin
        strSQL := 'select * from BJQWHB where 楼号 >= 1 and 楼号 <= 5';
        FormBJData.ADOQuery1.Close;
        FormBJData.ADOQuery1.SQL.Clear;
        FormBJData.ADOQuery1.SQL.Text := strSQL;
        FormBJData.ADOQuery1.Open;
        FormBJData.ShowModal();

end;

procedure TFormMain.Look6to10Click(Sender: TObject);
var
        strSQL:string;
begin
        strSQL := 'select * from BJQWHB where 楼号 >= 6 and 楼号 <= 10';
        FormBJData.ADOQuery1.Close;
        FormBJData.ADOQuery1.SQL.Clear;
        FormBJData.ADOQuery1.SQL.Text := strSQL;
        FormBJData.ADOQuery1.Open;
        FormBJData.ShowModal();

end;

procedure TFormMain.Look11to15Click(Sender: TObject);
var
        strSQL:string;
begin
        strSQL := 'select * from BJQWHB where 楼号 >= 11 and 楼号 <= 15';
        FormBJData.ADOQuery1.Close;
        FormBJData.ADOQuery1.SQL.Clear;
        FormBJData.ADOQuery1.SQL.Text := strSQL;
        FormBJData.ADOQuery1.Open;
        FormBJData.ShowModal();

end;

procedure TFormMain.Look21to25Click(Sender: TObject);
var
        strSQL:string;
begin
        strSQL := 'select * from BJQWHB where 楼号 >= 21 and 楼号 <= 25';
        FormBJData.ADOQuery1.Close;
        FormBJData.ADOQuery1.SQL.Clear;
        FormBJData.ADOQuery1.SQL.Text := strSQL;
        FormBJData.ADOQuery1.Open;
        FormBJData.ShowModal();

end;

procedure TFormMain.Look26to35Click(Sender: TObject);
var
        strSQL:string;
begin
        strSQL := 'select * from BJQWHB where 楼号 >= 26 and 楼号 <= 35';
        FormBJData.ADOQuery1.Close;
        FormBJData.ADOQuery1.SQL.Clear;
        FormBJData.ADOQuery1.SQL.Text := strSQL;
        FormBJData.ADOQuery1.Open;
        FormBJData.ShowModal();

end;

procedure TFormMain.Look36to50Click(Sender: TObject);
var
        strSQL:string;
begin
        strSQL := 'select * from BJQWHB where 楼号 >= 36 and 楼号 <= 50';
        FormBJData.ADOQuery1.Close;
        FormBJData.ADOQuery1.SQL.Clear;
        FormBJData.ADOQuery1.SQL.Text := strSQL;
        FormBJData.ADOQuery1.Open;
        FormBJData.ShowModal();

end;

procedure TFormMain.Look50to70Click(Sender: TObject);
var
        strSQL:string;
begin
        strSQL := 'select * from 报警器档案 where 楼号 >= 50 and 楼号 <= 70';
        FormBJData.ADOQuery1.Close;
        FormBJData.ADOQuery1.SQL.Clear;
        FormBJData.ADOQuery1.SQL.Text := strSQL;
        FormBJData.ADOQuery1.Open;
        FormBJData.ShowModal();

end;

procedure TFormMain.LookAbove70Click(Sender: TObject);
var
        strSQL:string;
begin
        strSQL := 'select * from 报警器档案 where 楼号 >= 70';
        FormBJData.ADOQuery1.Close;