?? frmmain.frm
字號:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form frmMain
Caption = "智能安防報警系統"
ClientHeight = 4485
ClientLeft = 165
ClientTop = 735
ClientWidth = 5280
BeginProperty Font
Name = "宋體"
Size = 8.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 4485
ScaleWidth = 5280
StartUpPosition = 3 'Windows Default
Begin MSCommLib.MSComm MSComm2
Left = 2520
Top = 3480
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
End
Begin MSCommLib.MSComm MSComm1
Left = 360
Top = 3120
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
End
Begin VB.Timer Timer1
Left = 1680
Top = 3840
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 660
Left = 0
TabIndex = 2
Top = 0
Width = 5280
_ExtentX = 9313
_ExtentY = 1164
ButtonWidth = 1032
ButtonHeight = 1005
AllowCustomize = 0 'False
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 7
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "state"
Object.ToolTipText = "啟動"
ImageIndex = 1
Style = 1
Value = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
Object.Width = 100
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "set"
Object.ToolTipText = "參數設置"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
Object.Width = 100
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "log"
Object.ToolTipText = "日志管理"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
Object.Width = 100
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "exit"
Object.ToolTipText = "退出系統"
ImageIndex = 4
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 3840
Top = 2880
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 5
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0000
Key = "start"
Object.Tag = "啟動"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0452
Key = "stop"
Object.Tag = "暫停"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":08A4
Key = "set"
Object.Tag = "設置"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0CF6
Key = "exit"
Object.Tag = "退出"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1148
Key = "log"
Object.Tag = "管理日志"
EndProperty
EndProperty
End
Begin MSComctlLib.ListView lvwLog
Height = 1095
Left = 120
TabIndex = 0
Top = 1320
Width = 2655
_ExtentX = 4683
_ExtentY = 1931
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "當日報警記錄："
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 120
TabIndex = 1
Top = 720
Width = 1260
End
Begin VB.Menu mnuOperate
Caption = "系統操作"
Begin VB.Menu mnuOperateAct
Caption = "啟動安防檢測"
Checked = -1 'True
Shortcut = ^A
End
Begin VB.Menu mnuSpace1
Caption = "-"
End
Begin VB.Menu mnuOperateSetting
Caption = "參數設置..."
Shortcut = ^B
End
Begin VB.Menu mnuOperateMaglog
Caption = "日志管理..."
Shortcut = ^M
End
End
Begin VB.Menu mnuExit
Caption = "退出程序"
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private mDbalert As Database ' 模塊級數據庫變量
Private rslog As ADODB.Recordset ' 記錄集變量，打開記錄集
Private mLogItem As ListItem ' 模塊級列表項變量
Private sysdate As Date ' 記錄系統時間，和now時間比較，顯示當天日志
Private cntLog As Integer ' 日志表記錄總數
Private comInbf As Boolean ' 布防設置里面是否使用串口
Private lptInbf As Boolean ' 布防設置里面是否使用并口
Private strcj(100) As String ' 記錄函數分析出的多個字符串
Private lptPort() As String ' 記錄布防設置里面的并口號
Private Sub Form_Load()
Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
Me.WindowState = 2 '窗口最大化
Call Init '系統初始化
End Sub
Private Sub Form_Resize()
If Me.WindowState <> vbMinimized Then
lvwLog.Width = Me.ScaleWidth * 0.98
lvwLog.Height = Me.ScaleHeight - Label1.Top - Label1.Height * 2
lvwLog.Left = (Me.Width - lvwLog.Width) \ 2.6
lvwLog.Top = Label1.Top + Label1.Height * 1.5
Label1.Left = lvwLog.Left
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
'close all sub forms
Unload frmMain
Unload frmSetpara
Unload frmSetpara2
Unload frmSetpara3
If Me.WindowState <> vbMinimized Then
SaveSetting App.Title, "Settings", "MainLeft", Me.Left
SaveSetting App.Title, "Settings", "MainTop", Me.Top
SaveSetting App.Title, "Settings", "MainWidth", Me.Width
SaveSetting App.Title, "Settings", "MainHeight", Me.Height
End If
End Sub
Private Sub mnuExit_Click()
Unload frmSetpara
Unload Me
End Sub
Private Sub mnuOperateMaglog_Click()
frmLog.Show vbModal
End Sub
Private Sub mnuOperateAct_Click()
mAction = Not mAction '切換操作狀態
mnuOperateAct.Checked = mAction '使菜單上體現操作狀態的轉換
If mAction Then
Toolbar1.Buttons(1).Image = 1
Toolbar1.Buttons(1).ToolTipText = "啟動"
Toolbar1.Buttons(1).Value = tbrPressed
Else
Toolbar1.Buttons(1).Image = 2
Toolbar1.Buttons(1).ToolTipText = "暫停"
Toolbar1.Buttons(1).Value = tbrUnpressed
End If
End Sub
Private Sub mnuOperateSetting_Click()
mAction = False
mnuOperateAct.Checked = mAction '使菜單上體現操作狀態的轉換
frmSetpara.Show vbModal, Me
End Sub
'建表頭
Private Sub makecolumns()
lvwLog.View = lvwReport
lvwLog.ColumnHeaders.Clear
lvwLog.ColumnHeaders.Add , , "布控名稱", lvwLog.Width / 5
lvwLog.ColumnHeaders.Add , , "時間", lvwLog.Width / 5
lvwLog.ColumnHeaders.Add , , "動作", lvwLog.Width * 2.9 / 5
End Sub
'系統初始化子程序：
'設置timer控件的interval屬性
'設置系統狀態
'初始化數據庫
'初始化通信端口
Private Sub Init()
Timer1.Interval = 5000 '1秒鐘檢查一次timer事件
mAction = True '啟動系統
sysdate = Date '記錄系統啟動日期
Call makecolumns '添加日志表表頭
'從數據庫里面添加日志表內容
Set cn = New ADODB.Connection '打開和數據庫alertinfo的連接
With cn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & _
App.Path & "\db1.mdb;"
.Open
End With
Set rslog = New ADODB.Recordset '打開alertinfo數據庫里面的log表
Dim str As String
str = "select * from Log where date >= #" & sysdate & "#;"
rslog.Open str, cn, adOpenStatic, adLockOptimistic
' 日志表記錄總數，用它來進行和變化后的日志總數做比較，以此判斷是否該對lvwlog進行更新。 cntLog = rslog.RecordCount '紀錄下初始化時候日志紀錄的數目
lvwLog.ListItems.Clear
Call showLog(rslog) '顯示日志表中今日的記錄
rslog.Close
'初始化端口
Call initcpara
End Sub
'初始化端口
Private Sub initcpara()
'初始化串口
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -