frmserver.frm

短信平台管理系统是一个短信收发的平台,用户可以找一些代理的短信平台(IP),在系统里修改一些设置就可以进行短信的收发,有短信服务器的IP,服务器端口.系统还有一些常用用户的设置,包括客户资料,客户分类

VERSION 5.00
Begin VB.Form frmserver 
   Caption         =   "SQLSERVER名称："
   ClientHeight    =   2190
   ClientLeft      =   2745
   ClientTop       =   3165
   ClientWidth     =   4950
   LinkTopic       =   "Form1"
   ScaleHeight     =   2190
   ScaleWidth      =   4950
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdOK 
      Caption         =   "确认"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2040
      TabIndex        =   3
      Top             =   1560
      Width           =   1215
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3360
      TabIndex        =   2
      Top             =   1560
      Width           =   1215
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2160
      TabIndex        =   1
      Text            =   "sserver"
      Top             =   720
      Width           =   2295
   End
   Begin VB.Label Label1 
      Caption         =   "SQLSERVER名称："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   360
      TabIndex        =   0
      Top             =   720
      Width           =   1935
   End
End
Attribute VB_Name = "frmserver"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public ok As Boolean
Dim cnnString As String

Private Sub Cmdcancel_Click()
    ok = False
    Me.Hide
End Sub

Private Sub CmdOk_Click()
    On Error GoTo errh
    Dim cnnx As New Connection
    cnnString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=led;Data Source=" & Me.Text1.Text
    cnnx.ConnectionString = cnnString
    cnnx.Open
    SaveSetting App.Title, "Settings", "connection", Me.Text1.Text
    ok = True
    releObject cnnx
    Unload Me
    Exit Sub
errh:
    releObject cnnx
    MsgBox "服务器连接不成功，请查看服务器名是否输入错误！", vbInformation, "系统提示"
End Sub

Private Sub Form_Load()
    Me.Text1 = GetSetting(App.Title, "Settings", "connection", "")
    ok = False
    
End Sub