frmwelcome.frm

适合乡镇供电所使用电费处理系统v3 软件

VERSION 5.00
Begin VB.Form FrmWelcome 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "欢迎使用ND20000数据向导"
   ClientHeight    =   5370
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8130
   Icon            =   "FrmWelcome.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5370
   ScaleWidth      =   8130
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.OptionButton Option3 
      Caption         =   "导入MND3.X(Dos版)系统数据"
      Height          =   225
      Left            =   3705
      TabIndex        =   8
      Top             =   3795
      Width           =   2820
   End
   Begin VB.OptionButton Option2 
      Caption         =   "使用系统自带演示程序"
      Height          =   315
      Left            =   3705
      TabIndex        =   6
      Top             =   3135
      Width           =   2220
   End
   Begin VB.OptionButton Option1 
      Caption         =   "使用向导建立数据"
      Height          =   420
      Left            =   3705
      TabIndex        =   5
      Top             =   2490
      Width           =   1920
   End
   Begin VB.CommandButton Command3 
      Caption         =   "帮助(&H)"
      Height          =   330
      Left            =   6585
      TabIndex        =   4
      Top             =   4740
      Width           =   1395
   End
   Begin VB.CommandButton Command2 
      Caption         =   "取消(&Q)"
      Height          =   360
      Left            =   2865
      TabIndex        =   1
      Top             =   4725
      Width           =   1470
   End
   Begin VB.CommandButton Command1 
      Caption         =   "下一步(&N)"
      Height          =   360
      Left            =   4815
      TabIndex        =   0
      Top             =   4725
      Width           =   1320
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "注：MND3.X(Dos版)为Dos版老用户"
      ForeColor       =   &H000000FF&
      Height          =   195
      Left            =   5280
      TabIndex        =   9
      Top             =   4185
      Width           =   2955
   End
   Begin VB.Shape Shape2 
      BorderColor     =   &H80000003&
      Height          =   1995
      Left            =   2580
      Top             =   210
      Width           =   5325
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00FFFFFF&
      Height          =   1995
      Left            =   2595
      Top             =   225
      Width           =   5325
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0C000&
      BorderStyle     =   1  'Fixed Single
      Caption         =   $"FrmWelcome.frx":1272
      ForeColor       =   &H00000000&
      Height          =   1455
      Left            =   2955
      TabIndex        =   7
      Top             =   480
      Width           =   4575
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "ND2000"
      BeginProperty Font 
         Name            =   "Comic Sans MS"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00E0E0E0&
      Height          =   330
      Left            =   810
      TabIndex        =   3
      Top             =   4575
      Width           =   1065
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "ND2000"
      BeginProperty Font 
         Name            =   "Comic Sans MS"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   330
      Left            =   780
      TabIndex        =   2
      Top             =   4590
      Width           =   1065
   End
   Begin VB.Image Image2 
      Height          =   480
      Left            =   240
      Picture         =   "FrmWelcome.frx":13C6
      Top             =   4545
      Width           =   480
   End
   Begin VB.Line Line2 
      BorderColor     =   &H80000005&
      X1              =   375
      X2              =   7965
      Y1              =   4485
      Y2              =   4485
   End
   Begin VB.Line Line1 
      BorderColor     =   &H80000003&
      X1              =   390
      X2              =   7995
      Y1              =   4470
      Y2              =   4470
   End
   Begin VB.Image Image1 
      BorderStyle     =   1  'Fixed Single
      Height          =   4095
      Left            =   225
      Picture         =   "FrmWelcome.frx":16C1
      Top             =   195
      Width           =   2235
   End
End
Attribute VB_Name = "FrmWelcome"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
  Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
  Command1.Enabled = False
End Sub

Private Sub Command1_Click()
   If Option1 Then    '新用户
        Me.Hide
        FrmWizardStepOne.Show vbModal
   Else               '自带demo
      If Option3 Then
         Unload Me
         InputOldData.Show vbModal
      Else            '
         Me.Hide
         FrmDataDemo.Show vbModal
      End If
   End If
End Sub

Private Sub Command2_Click()
   Unload Me
End Sub

Private Sub Option1_Click()
   If Option1 Then
      Command1.Enabled = True
   End If
End Sub

Private Sub Option2_Click()
   If Option2 Then
      Command1.Enabled = True
   End If
End Sub

Private Sub Option3_Click()
   If Option3 Then
      Command1.Enabled = True
   End If
End Sub