frconnect..frm

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

VERSION 5.00
Begin VB.Form frConn 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Enter Server and Database"
   ClientHeight    =   4200
   ClientLeft      =   30
   ClientTop       =   330
   ClientWidth     =   3495
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4200
   ScaleWidth      =   3495
   ShowInTaskbar   =   0   'False
   Begin VB.Frame Frame2 
      Caption         =   "Connect to the database"
      Height          =   2130
      Left            =   135
      TabIndex        =   5
      Top             =   1335
      Width           =   3195
      Begin VB.OptionButton opDB 
         Caption         =   "Database name:"
         Height          =   252
         Index           =   2
         Left            =   135
         TabIndex        =   9
         Tag             =   "0"
         Top             =   360
         Width           =   2595
      End
      Begin VB.OptionButton opDB 
         Caption         =   "Search for backup database"
         Height          =   252
         Index           =   0
         Left            =   135
         TabIndex        =   8
         Tag             =   "1"
         Top             =   1140
         Width           =   2505
      End
      Begin VB.OptionButton opDB 
         Caption         =   "Search for WinCC runtime database"
         Height          =   252
         Index           =   1
         Left            =   135
         TabIndex        =   7
         Tag             =   "0"
         Top             =   1515
         Width           =   2985
      End
      Begin VB.TextBox edDSN 
         Height          =   315
         Left            =   420
         TabIndex        =   6
         Top             =   660
         Width           =   2190
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Server local or remote"
      Height          =   1092
      Left            =   135
      TabIndex        =   1
      Top             =   45
      Width           =   3210
      Begin VB.OptionButton opSer 
         Caption         =   "Remote:"
         Height          =   345
         Index           =   1
         Left            =   105
         TabIndex        =   4
         Top             =   645
         Width           =   1065
      End
      Begin VB.TextBox edServer 
         Height          =   315
         Left            =   1275
         TabIndex        =   3
         Text            =   "."
         Top             =   645
         Visible         =   0   'False
         Width           =   1815
      End
      Begin VB.OptionButton opSer 
         Caption         =   "Localhost"
         Height          =   315
         Index           =   0
         Left            =   105
         TabIndex        =   2
         Top             =   270
         Value           =   -1  'True
         Width           =   1572
      End
   End
   Begin VB.CommandButton cmdSel 
      Height          =   372
      Left            =   510
      TabIndex        =   0
      Top             =   3630
      Width           =   2172
   End
End
Attribute VB_Name = "frConn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdSel_Click()

  g_SER = edServer.Text
   
  If opDB(2).Value = True Then   ' database selected
    Unload frSelectDB
    Dim s As String
    s = edDSN.Text
    If Len(s) > 0 Then frMDIWinCCDB.CallBack (s)

  Else                           ' search for the database
    If opDB(0).Value = True Then
      g_DBType = DBTYPE_ARCHIVE
    Else
      g_DBType = DBTYPE_RT
    End If
    Unload frSelectDB
    frSelectDB.Show
  End If
  
  Unload Me
End Sub

Private Sub cmdServer_Click()
 edServer.Visible = True
End Sub

Private Sub edDSN_GotFocus()
  opDB(2).Value = True
End Sub

Private Sub Form_Load()
  opDB(0).Value = True
  g_DBType = DBTYPE_ARCHIVE
End Sub

Private Sub opDB_Click(Index As Integer)
If opDB(2).Value Then
  cmdSel.Caption = "Connect"
Else
  cmdSel.Caption = "Search >"
End If
End Sub

Private Sub opSer_Click(Index As Integer)
If opSer(1).Value Then
  edServer.Visible = True
  edServer.Text = ""
Else
  edServer.Visible = False
  edServer.Text = "."
End If
End Sub