📄 mainsrc.pas

📁 该程序可作为386的接警程序使用
💻 PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
//查询历史报警信息
procedure TFormMain.MenuSearchInfoClick(Sender: TObject);
begin
        FormSearchBJData.Edit1.Text := '';
        FormSearchBJData.DBGrid1.ReadOnly := true;
        FormSearchBJInfo.ShowModal();
end;

//1－5
procedure TFormMain.Look1to5Click(Sender: TObject);
var
        strSQL:string;
begin
        strSQL := 'select * from 报警器档案 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 报警器档案 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 报警器档案 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 报警器档案 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 报警器档案 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 报警器档案 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;
        FormBJData.ADOQuery1.SQL.Clear;
        FormBJData.ADOQuery1.SQL.Text := strSQL;
        FormBJData.ADOQuery1.Open;
        FormBJData.ShowModal();

end;

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

end;

procedure TFormMain.MenuHardwareInterfaceClick(Sender: TObject);
begin
        FormHardwareInterface.ShowModal();
end;

procedure TFormMain.MenuDataRestoreClick(Sender: TObject);
var
        strFile:string;
        strOrigin:string;
        ret:Boolean;

        Dir:String;
begin
        BJDataSrc.FormBJData.ADOConnection1.Connected := false;
        FormLogon.ADOConnection1.Connected := false;
        GetDir(0, Dir);
        strOrigin := 'bj.mdb';
        OpenDialogStore.Execute;

        strFile := OpenDialogStore.FileName;
        if strFile = '' then
        begin
                BJDataSrc.FormBJData.ADOConnection1.Connected := TRUE;

                BJDataSrc.FormBJData.ADOQuery1.Active := TRUE;
                BJInfoSrc.FormBJInfo.ADOQuery1.Active := TRUE;

                FormLogon.ADOConnection1.Connected := TRUE;
                FormLogon.ADOQuery1.Active := TRUE;
                Exit;

        end;
        ChDir(Dir);
        ret := DeleteFile(strOrigin);
        if ret = FALSE then
        begin
                ShowMessage('删除bj.mdb失败');
                BJDataSrc.FormBJData.ADOConnection1.Connected := TRUE;

                BJDataSrc.FormBJData.ADOQuery1.Active := TRUE;
                BJInfoSrc.FormBJInfo.ADOQuery1.Active := TRUE;

                FormLogon.ADOConnection1.Connected := TRUE;
                FormLogon.ADOQuery1.Active := TRUE;
                Exit;
        end;


        ret := CopyFileTo(strFile, strOrigin);
        if ret = TRUE then
        begin
                MessageBox(Application.Handle, '数据恢复成功！', '联网报警中心--数据导入', MB_OK);
        end
        else
        begin
                MessageBox(Application.Handle, '数据恢复失败，请再尝试！', '联网报警中心--数据导入', MB_OK);
        end;





        BJDataSrc.FormBJData.ADOConnection1.Connected := TRUE;

        BJDataSrc.FormBJData.ADOQuery1.Active := TRUE;
        BJInfoSrc.FormBJInfo.ADOQuery1.Active := TRUE;

        FormLogon.ADOConnection1.Connected := TRUE;
        FormLogon.ADOQuery1.Active := TRUE;
end;

procedure TFormMain.N11Click(Sender: TObject);
begin
        QuickReportSrc.DataReport.Preview;
end;

procedure TFormMain.N12Click(Sender: TObject);
begin
        InfoReportSrc.InfoReport.Preview;
end;

procedure TFormMain.N5Click(Sender: TObject);
begin
        AutoSaveSrc.FormAutoSave.ShowModal;
end;

procedure TFormMain.TimerAutoSaveTimer(Sender: TObject);
var
        strSource:string;
        strDest:string; 
        i, len:Integer;
begin
        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';

end;

procedure TFormMain.MenuAboutClick(Sender: TObject);
begin
//        MessageBox(Application.Handle, '四川省得安科技有限公司制作 电话：（028）86261878 86261861 传真：86261878 邮编：610031', '联网报警中心--关于', MB_OK);
        FormAbout.ShowModal();
end;

procedure TFormMain.MenuConnectClick(Sender: TObject);
begin
   FormConnectCenter.ShowModal();
end;

procedure TFormMain.FormActivate(Sender: TObject);
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:='联网报警中心';
        end;
          Shell_NotifyIcon(NIM_ADD,@NotifyIcon);
end;

procedure TFormMain.MenuHelpClick(Sender: TObject);
begin
        ShellExecute(Handle, 'open', 'help.hlp', nil, nil, SW_SHOW);
end;

procedure TFormMain.FormShow(Sender: TObject);
begin
        Application.Restore;
end;

procedure TFormMain.FormDestroy(Sender: TObject);
begin
        Shell_NotifyIcon(NIM_DELETE,@NotifyIcon);
end;

procedure TFormMain.Button2Click(Sender: TObject);
begin
    TimerFlashJin.Enabled := true;
    TimerFlashJu.Enabled := true;

end;

procedure TFormMain.light1to5Click(Sender: TObject);
begin
        TimerFlashJu.Enabled := false;
        FormMain.light1to5.Visible := false;

        FormMap1.ShowModal();
end;

procedure TFormMain.light6to10Click(Sender: TObject);
begin
        TimerFlashJin.Enabled := false;

        FormMain.light6to10.Visible := false;
        FormMap2.ShowModal();
end;


procedure TFormMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
          Shell_NotifyIcon(NIM_DELETE,@NotifyIcon);
end;

procedure TFormMain.MenuDeleteInfoClick(Sender: TObject);
var
        nTemp:Integer;
        strStore:string;
        textid:textfile;
begin
        assignfile(textid, 'DB\N.DAT');
        reset(textid);

        readln(textid, strStore);
        CloseFile(textid);

        nTemp := strcomp(pChar('Admin'), pChar(strStore) );

        if nTemp <> 0 then
        begin
                Messagebox(Application.Handle, '只有管理员才能删除，请以管理员帐号重新登陆','联网报警中心--清除历史报警信息',MB_OK);
                Exit;
        end;

    FormDeleteInfo.ShowModal();
end;

procedure TFormMain.gray6to10Click(Sender: TObject);
begin
    TimerFlashJin.Enabled := false;

    FormMain.light6to10.Enabled := false;
    FormMap2.ShowModal();
end;

procedure TFormMain.gray1to5Click(Sender: TObject);
begin
    TimerFlashJu.Enabled := false;

    FormMain.light1to5.Enabled := false;
    FormMap1.ShowModal();
end;

procedure TFormMain.TimerFlashJuTimer(Sender: TObject);
begin

      Light1to5.Visible := not Light1to5.Visible;

end;

procedure TFormMain.TimerFlashJinTimer(Sender: TObject);
begin

      Light6to10.Visible := not Light6to10.Visible;

end;

end.
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -