frmconfigmain.frm

OA编程 源代码

VERSION 5.00
Begin VB.Form FrmConfigMain 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00E0E0E0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Web控制台配置"
   ClientHeight    =   4605
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5805
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   9
      Charset         =   134
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H8000000D&
   Icon            =   "FrmConfigMain.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4605
   ScaleWidth      =   5805
   StartUpPosition =   3  'Windows Default
   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
      ForeColor       =   &H80000007&
      Height          =   3735
      Left            =   30
      MultiLine       =   -1  'True
      TabIndex        =   2
      Top             =   30
      Width           =   5715
   End
   Begin VB.CommandButton Command1 
      Caption         =   "退出安装程序"
      Height          =   345
      Index           =   1
      Left            =   2400
      TabIndex        =   1
      Top             =   3990
      Width           =   1425
   End
   Begin VB.CommandButton Command1 
      Caption         =   "下一步"
      Height          =   345
      Index           =   0
      Left            =   4230
      TabIndex        =   0
      Top             =   3990
      Width           =   1515
   End
End
Attribute VB_Name = "FrmConfigMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click(Index As Integer)

    Select Case Index
        Case 0
            Me.Hide
            FrmInfoCol.Show 1
        Case 1
            Unload Me
            
    End Select

End Sub

Private Sub Form_Load()
    '窗体居中
    Me.Move Screen.Width / 2 - Me.Width / 2, Screen.Height / 2 - Me.Height / 2 - 600
    '初始化信息
    Text1.Text = "    欢迎使用Web控制台配置向导，本向导将指导您配置Web服务器,数据库初始化等各个方面，在您运行此向导之前，请再次检查您的系统基本配置。运行本向导之前，您的系统需要配置：" & vbCrLf & vbCrLf
    Text1.Text = Text1.Text & "1.Window2000 Professional或者Window2000 Server" & vbCrLf
    Text1.Text = Text1.Text & "2.Service Pack 2" & vbCrLf
    Text1.Text = Text1.Text & "3.SQL Server 2000" & vbCrLf
    Text1.Text = Text1.Text & vbCrLf & vbCrLf & vbCrLf
    Text1.Text = Text1.Text & "    如果您的配置已经满足以上要求，请点击下一步开始配置服务。"
    Text1.FontBold = True
    '换皮肤
    Call LoadSkin(Me)
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   ' SkinObj.ExitNow
   ' Set SkinObj = Nothing
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub