form_start.frm

开发环境：VB6.0 数据库：SQLServer2000 说明：这是一个图库管理系统

VERSION 5.00
Begin VB.Form Form_start 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   8535
   ClientLeft      =   255
   ClientTop       =   1410
   ClientWidth     =   10845
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Icon            =   "Form_start.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "Form_start.frx":030A
   ScaleHeight     =   8535
   ScaleWidth      =   10845
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton Com_quit 
      Caption         =   "系统退出...."
      Height          =   375
      Left            =   5880
      TabIndex        =   2
      Top             =   4680
      Width           =   1335
   End
   Begin VB.CommandButton Com_ok 
      Caption         =   "系统进入...."
      Height          =   375
      Left            =   5880
      TabIndex        =   1
      Top             =   4200
      Width           =   1335
   End
   Begin VB.Label Label1 
      BackColor       =   &H00808080&
      Caption         =   "图库管理系统"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   39
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Index           =   0
      Left            =   4080
      TabIndex        =   0
      Top             =   2760
      Width           =   4815
   End
End
Attribute VB_Name = "Form_start"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Private Sub Com_Ok_Click()
  Dim strType As String
  '从数据库中提取服务器地址和服务器安装目录
  If CModule.GetSys(CModule.objIp, CModule.objPath) = False Then
    MsgBox CModule.objIp
    Exit Sub
  End If
  Form_Manage.Show

  '是否显示打通文件服务器路径
  If CModule.GetConfig("Connect", "Type", strType) = False Then
    MsgBox strType
    Exit Sub
  End If
  If CInt(strType) = 0 Then
    Form_Main.Show
  End If
  
  Unload Me
End Sub

Private Sub Com_quit_Click()
    Unload Me
End Sub