frmdbset.frm

由VB编写的一个实用短信计费系统。主要模块包括（1）计费管理子系统：用户入费；错单处理；用户费率管理；费率管理；用户分析（2）系统维护子系统：管理员登录、管理员管理、数据库设置等（3）计费引擎子系统

VERSION 5.00
Begin VB.Form frmDBset 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "服务器设置"
   ClientHeight    =   3135
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3810
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   9
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmDBset.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3135
   ScaleWidth      =   3810
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.TextBox txtDatabase 
      Appearance      =   0  'Flat
      Height          =   330
      Left            =   1035
      TabIndex        =   1
      Top             =   840
      Width           =   2490
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消"
      Height          =   330
      Left            =   2700
      TabIndex        =   5
      Top             =   2565
      Width           =   960
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定"
      Height          =   330
      Left            =   1620
      TabIndex        =   4
      Top             =   2565
      Width           =   960
   End
   Begin VB.TextBox txtPassword 
      Appearance      =   0  'Flat
      Height          =   330
      Left            =   1035
      TabIndex        =   3
      Top             =   1980
      Width           =   2490
   End
   Begin VB.TextBox txtUser 
      Appearance      =   0  'Flat
      Height          =   330
      Left            =   1035
      TabIndex        =   2
      Top             =   1410
      Width           =   2490
   End
   Begin VB.TextBox txtServer 
      Appearance      =   0  'Flat
      Height          =   330
      Left            =   1035
      TabIndex        =   0
      Top             =   270
      Width           =   2490
   End
   Begin VB.Label Label4 
      Caption         =   "数据库："
      Height          =   240
      Left            =   225
      TabIndex        =   9
      Top             =   855
      Width           =   825
   End
   Begin VB.Label Label3 
      Caption         =   "密码："
      Height          =   240
      Left            =   225
      TabIndex        =   8
      Top             =   2025
      Width           =   825
   End
   Begin VB.Label Label2 
      Caption         =   "用户名："
      Height          =   240
      Left            =   225
      TabIndex        =   7
      Top             =   1485
      Width           =   780
   End
   Begin VB.Label Label1 
      Caption         =   "服务器："
      Height          =   240
      Left            =   225
      TabIndex        =   6
      Top             =   360
      Width           =   735
   End
End
Attribute VB_Name = "frmDBset"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*******************************************************
'*    模 块 名 称 :数据库服务器设置
'*    功 能 描 述 :
'*    程序员姓名  :谭怀志
'*    最后修改人  :谭怀志
'*    最后修改时间:2003/6/26
'*    备        注:
'*******************************************************

Option Explicit

Private Sub cmdOK_Click()
    
    On Error GoTo VBError
    
    If Trim(txtServer.Text) = "" Then
        MsgBox "服务器设置必须填写！", vbCritical, ERRCAPTION
        txtServer.SetFocus
        Exit Sub
    End If
    
    If Trim(txtDatabase.Text) = "" Then
        MsgBox "数数据库必须填写！", vbCritical, ERRCAPTION
    End If
    
    If Trim(txtUser.Text) = "" Then
        MsgBox "用户名必须填写！", vbCritical, ERRCAPTION
        txtUser.SetFocus
        Exit Sub
    End If
    
    On Error GoTo ADOError
    
    strConnection = "Provider=SQLOLEDB.1;Password=" & Trim(txtPassword.Text) & ";Persist Security Info=True;User ID=" & Trim(txtUser.Text) & ";Initial Catalog=" & Trim(txtDatabase.Text) & ";Data Source=" & Trim(txtServer.Text)
    
    Set cnnConnection = New Connection
    With cnnConnection
        .ConnectionString = strConnection
        .CursorLocation = adUseClient
        .CommandTimeout = 10
        .Open
    End With
    
    
    '将新的数据设置写入INI文件
    WriteIni "Sys", "Server", Trim(txtServer.Text), strPath
    WriteIni "Sys", "Database", Trim(txtDatabase.Text), strPath
    WriteIni "Sys", "User", Trim(txtUser.Text), strPath
    WriteIni "Sys", "Pass", Cipher(Trim(txtPassword.Text), CODEPASSWORD), strPath
    
    Unload Me
    
    Exit Sub
    
VBError:
    DisplayVBError
    Exit Sub
ADOError:
    DisplayADOError cnnConnection
        
End Sub

Private Sub cmdCancel_Click()

    If Me.Tag = "Modify" Then
    
        '修改数据库设置时，按“取消”，卸载设置窗体，返回主界面
        Unload Me
    Else
    
        '启动系统第一次设置数据库时，按“取消”，退出系统
        End
    End If
    
End Sub

Private Sub Form_Resize()
    
    Select Case Me.Tag
    Case "Modify"
    
        '修入数据库设置时,显示原来的设置
        txtServer.Text = serverName
        txtDatabase.Text = serverData
        txtUser.Text = serverUser
        txtPassword.Text = serverPass
        
    End Select
        
End Sub