frmsplash.frm

电子皮带秤计量管理系统.完成电子皮带秤的自动计量工作,和销售管理系统配合使用更佳.

   VERSION 5.00
   Begin VB.Form frmSplash
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ClientHeight    =   2685
      ClientLeft      =   41010
      ClientTop       =   41010
      ClientWidth     =   5865
      ControlBox      =   0   'False
      LinkTopic       =   "Form1"
      MaxButton       =   0   'False
      MinButton       =   0   'False
      ScaleHeight     =   2685
      ScaleMode       =   0  'User
      ScaleTop        =   2341
      ScaleWidth      =   5865
      ShowInTaskbar   =   0   'False
      StartUpPosition =   2  '屏幕中心
      Visible         =   0   'False
      Begin VB.Timer Timer1
         Interval        =   4000
         Left            =   720
         Top             =   1920
      End
      Begin VB.Label Label1
         BackColor       =   &H00404080&
         BackStyle       =   0  'Transparent
         Caption         =   "华衡科技"
         BeginProperty Font
            Name            =   "华文彩云"
            Size            =   24
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   555
         Index           =   1
         Left            =   1920
         TabIndex        =   3
         Top             =   1185
         Width           =   2265
      End
      Begin VB.Label Label2
         BackColor       =   &H00C0E0FF&
         Caption         =   "追求卓越  崇尚经典"
         BeginProperty Font
            Name            =   "华文中宋"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   0
         TabIndex        =   2
         Top             =   0
         Width           =   2535
      End
      Begin VB.Label Label3
         Caption         =   "电话:[phone]   传真:3759976"
         Height          =   255
         Left            =   2760
         TabIndex        =   1
         Top             =   2520
         Width           =   3105
      End
      Begin VB.Label Label1
         BackColor       =   &H00404080&
         BackStyle       =   0  'Transparent
         Caption         =   "华衡科技"
         BeginProperty Font
            Name            =   "华文彩云"
            Size            =   24
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H8000000E&
         Height          =   675
         Index           =   0
         Left            =   1920
         TabIndex        =   0
         Top             =   1200
         Width           =   2265
      End
      Begin VB.Image Image1
         Height          =   2895
         Left            =   -480
         Picture         =   "frmSplash.frx":0000
         Top             =   -120
         Width           =   6900
      End
   End
   Attribute VB_Name = "frmSplash"
   Attribute VB_GlobalNameSpace = False
   Attribute VB_Creatable = False
   Attribute VB_PredeclaredId = True
   Attribute VB_Exposed = False
'CODE Manger By BcodeXRose
Option Explicit


'##################################################################
'## 过程名称：Image1_Click
'## 参数： 无
'##################################################################
Private Sub Image1_Click()
    Dim t As Boolean
    Me.Hide
    Timer1.Enabled = False
    frmMain.Show
    ReadINI "系统参数", "提示", "\监控系统.INI"
    t = Trim(Result)
    If t Then
        frmTip.Show
    End If
End Sub
    
'##################################################################
'## 过程名称：Timer1_Timer
'## 参数： 无
'##################################################################
Private Sub Timer1_Timer()
    Dim t As Boolean
    Me.Hide
    Timer1.Enabled = False
    frmMain.Show
    ReadINI "系统参数", "提示", "\监控系统.INI"
    t = Trim(Result)
    If t Then
        frmTip.Show
    End If
End Sub