frmdiwinccdb.frm

使用 VB 编写访问 WinCC 软件的 SQL server 数据库的代码。

VERSION 5.00
Begin VB.MDIForm frMDIWinCCDB 
   BackColor       =   &H8000000C&
   Caption         =   "WinCC Database Example"
   ClientHeight    =   5340
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   7980
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu MNU_DB 
      Caption         =   "Database"
      Begin VB.Menu MNU_CON 
         Caption         =   "1. Connect"
      End
      Begin VB.Menu MNU_TAG 
         Caption         =   "2. TagLogging"
         Enabled         =   0   'False
      End
      Begin VB.Menu MNU_ALA 
         Caption         =   "3. Alarms"
         Enabled         =   0   'False
      End
      Begin VB.Menu MNU_UA 
         Caption         =   "4. User Archive"
         Enabled         =   0   'False
      End
      Begin VB.Menu MNU_STA 
         Caption         =   "5. Statistics/Csv"
      End
   End
   Begin VB.Menu MNU_H 
      Caption         =   "Help"
      Begin VB.Menu MNU_HLP 
         Caption         =   "About"
      End
   End
End
Attribute VB_Name = "frMDIWinCCDB"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
' GLOBAL Variables
Public Sub CallBack(sz As String)
  g_DSN = sz
  Debug.Print g_DSN
  If Len(g_DSN) < 3 Then Exit Sub
   MNU_CON.Caption = g_DSN
   MNU_CON.Enabled = False
   MNU_TAG.Enabled = True
   MNU_ALA.Enabled = True
   If (Left(sz, 2) = "CC") And (Right(sz, 1) = "R") Then
    MNU_UA.Enabled = True
   End If
   MNU_CON.Checked = True
End Sub
Private Sub MDIForm_Load()
  Init
End Sub
Private Sub MNU_SEL_Click()
  frSelectDB.Show
  Debug.Print "G_DSN"
End Sub
Private Sub MNU_CON_Click()
  frConn.Show
End Sub

Private Sub MNU_HLP_Click()
  frHelp.Show
End Sub

Private Sub MNU_STA_Click()
  g_Mod = ALALOGG
  frStatistics.Show
End Sub

Private Sub MNU_TAG_Click()
  g_Mod = TAGLOGG
  frWinCCAdoDC.Show
End Sub

Private Sub MNU_ALA_Click()
  g_Mod = ALALOGG
  frWinCCAdoDC.Show
End Sub

Private Sub MNU_UA_Click()
    g_Mod = UA
    frWinCCAdoDC.Show
End Sub