alarmrec.frm

实现图像控制,云台解码器控制,站点选择(配有Access数据库).

VERSION 5.00
Begin VB.Form AlarmRec 
   Caption         =   "告警记录"
   ClientHeight    =   3495
   ClientLeft      =   1845
   ClientTop       =   3345
   ClientWidth     =   7905
   Icon            =   "AlarmRec.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   3495
   ScaleWidth      =   7905
   Begin VB.Data Data1 
      Caption         =   "告警记录"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   372
      Left            =   120
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   3840
      Visible         =   0   'False
      Width           =   6135
   End
   Begin VB.PictureBox DBGrid1 
      Height          =   3735
      Left            =   120
      ScaleHeight     =   3675
      ScaleWidth      =   6075
      TabIndex        =   0
      Top             =   120
      Width           =   6135
   End
End
Attribute VB_Name = "AlarmRec"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Activate()
    Data1.DatabaseName = App.Path & "\rtc.mdb"
    Data1.RecordSource = "select * from alarmjilu  order by startdatetime DESC" ' & Str(startdatetime)
    Data1.Refresh
    DBGrid1.ForeColor = &H80000008
    Data1.Refresh

End Sub

Private Sub Form_Deactivate()
    DBGrid1.ForeColor = &H80000011
    Data1.Recordset.Close
End Sub


Private Sub Form_Resize()
    DBGrid1.Left = 0
    DBGrid1.Top = 0

    DBGrid1.Height = ScaleHeight '- Data1.Height
    DBGrid1.Width = ScaleWidth
    'Data1.Top = DBGrid1.Height
    'Data1.Width = ScaleWidth
End Sub