frmshixian.frm

OA编程 源代码

VERSION 5.00
Begin VB.Form FrmShixian 
   BackColor       =   &H00E0E0E0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "信息收集"
   ClientHeight    =   4425
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5805
   Icon            =   "Frmshixian.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4425
   ScaleWidth      =   5805
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame Frame1 
      BackColor       =   &H00E0E0E0&
      Height          =   3885
      Left            =   2460
      TabIndex        =   7
      Top             =   -30
      Width           =   3315
      Begin VB.TextBox TxtDb 
         Appearance      =   0  'Flat
         Height          =   315
         Left            =   195
         TabIndex        =   2
         Top             =   3255
         Width           =   2955
      End
      Begin VB.CommandButton Command2 
         Caption         =   "浏 览"
         Height          =   315
         Left            =   2250
         TabIndex        =   1
         Top             =   1650
         Width           =   945
      End
      Begin VB.TextBox Txtpath 
         Appearance      =   0  'Flat
         Enabled         =   0   'False
         Height          =   315
         Left            =   180
         TabIndex        =   10
         Top             =   1200
         Width           =   2985
      End
      Begin VB.TextBox TxtServer 
         Appearance      =   0  'Flat
         Height          =   315
         Left            =   150
         TabIndex        =   0
         Top             =   450
         Width           =   3045
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "请输入您要创建的数据库名称"
         Height          =   180
         Left            =   180
         TabIndex        =   11
         Top             =   2970
         Width           =   2340
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "请输入您的Web站点的存放路径"
         Height          =   195
         Left            =   180
         TabIndex        =   9
         Top             =   930
         Width           =   2505
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "请输入您要创建的Web站点名称"
         Height          =   195
         Left            =   120
         TabIndex        =   8
         Top             =   210
         Width           =   2505
      End
   End
   Begin VB.CommandButton Command1 
      Caption         =   "上一步"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   345
      Index           =   2
      Left            =   2430
      TabIndex        =   4
      Top             =   3990
      Width           =   1515
   End
   Begin VB.CommandButton Command1 
      Caption         =   "完 成"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   345
      Index           =   0
      Left            =   4230
      TabIndex        =   3
      Top             =   3990
      Width           =   1515
   End
   Begin VB.CommandButton Command1 
      Caption         =   "退出安装程序"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   345
      Index           =   1
      Left            =   120
      TabIndex        =   5
      Top             =   3990
      Width           =   1425
   End
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3765
      Left            =   30
      MultiLine       =   -1  'True
      TabIndex        =   6
      Top             =   60
      Width           =   2355
   End
End
Attribute VB_Name = "FrmShixian"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click(Index As Integer)
Dim Connstring As String
Dim Conn As ADODB.Connection
Select Case Index
        Case 0
            '设置变量
            If TxtServer.Text = "" Then
               MsgBox "请您输入Web站点名称！", 64
               Exit Sub
            End If
            
            If Txtpath.Text = "" Then
               MsgBox "请您输入Web站点路径！", 64
               Exit Sub
            End If
            
            If Trim(TxtDb) = "" Then
                MsgBox "数据库名不能为空！", 64, "提示"
                TxtDb.SetFocus
                Screen.MousePointer = vbDefault
                Exit Sub
            End If
            
            j = Asc(Left(Trim(TxtDb), 1))
            If Not ((j >= 65 And j <= 90) Or (j >= 97 And j <= 122)) Then
                MsgBox "数据库名必须是英文字母或数字，并以英文字母开始。", vbDefaultButton1 + vbInformation
                TxtDb.SetFocus
                Screen.MousePointer = vbDefault
                Exit Sub
            End If

            dbName = TxtDb.Text
            Curdb = dbName
            WebName = TxtServer.Text
            Aimpath = Txtpath.Text
            Me.Hide
            FrmCreate.Show 1
               
        Case 1
            Unload Me
        Case 2
            Me.Hide
            FrmInfoCol.Show 1
            
End Select
End Sub

Private Sub Command2_Click()
    Aimpath = "c:"
    frmPath.Show 1
    If Aimpath <> "" Then
       Txtpath.Text = Aimpath
    End If
End Sub

Private Sub Form_Load()
    '提示信息
    Text1.Text = "    Sql Server数据库实例名称一般就是您的计算机名称，如果您的Sql Server版本是2000以上，并且安装了多个实例，请自行选择。" & vbCrLf & "    在输入必要的信息后，请点击下一步，程序将根据您的输入信息和数据库进行通信。"
    '窗体居中
    Me.Move Screen.Width / 2 - Me.Width / 2, Screen.Height / 2 - Me.Height / 2 - 600
    '换皮肤
    Call LoadSkin(Me)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload FrmConfigMain
Unload FrmInfoCol
End
End Sub