frmash.frm

煤炭销售管理系统.完成煤炭销售的日常管理工作,和重车计量系统空车计量系统配合使用.

   VERSION 5.00
   Begin VB.Form welcoming
      BackColor       =   &H00C0E0FF&
      BorderStyle     =   3  'Fixed Dialog
      ClientHeight    =   5880
      ClientLeft      =   255
      ClientTop       =   1410
      ClientWidth     =   9030
      ClipControls    =   0   'False
      ControlBox      =   0   'False
      Icon            =   "frmash.frx":0000
      KeyPreview      =   -1  'True
      LinkTopic       =   "Form2"
      MaxButton       =   0   'False
      MinButton       =   0   'False
      ScaleHeight     =   5880
      ScaleWidth      =   9030
      ShowInTaskbar   =   0   'False
      StartUpPosition =   2  '屏幕中心
      Begin VB.Frame Frame1
         BackColor       =   &H00808000&
         Height          =   5370
         Left            =   120
         TabIndex        =   0
         Top             =   240
         Width           =   8760
         Begin VB.Timer Timer1
            Interval        =   100
            Left            =   1800
            Top             =   360
         End
         Begin VB.Image Image2
            Height          =   705
            Left            =   240
            Picture         =   "frmash.frx":000C
            Stretch         =   -1  'True
            Top             =   240
            Width           =   855
         End
         Begin VB.Label Label3
            BackStyle       =   0  'Transparent
            Caption         =   $"frmash.frx":0C96
            ForeColor       =   &H00000000&
            Height          =   375
            Left            =   960
            TabIndex        =   3
            Top             =   4920
            Width           =   3255
         End
         Begin VB.Label Label2
            BackStyle       =   0  'Transparent
            Caption         =   $"frmash.frx":0CB9
            ForeColor       =   &H00000000&
            Height          =   255
            Left            =   960
            TabIndex        =   2
            Top             =   4800
            Width           =   4455
         End
         Begin VB.Label Label1
            Alignment       =   2  'Center
            BackStyle       =   0  'Transparent
            Caption         =   "发运管理分系统"
            BeginProperty Font
               Name            =   "华文行楷"
               Size            =   21.75
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FF0000&
            Height          =   495
            Left            =   2280
            TabIndex        =   1
            Top             =   3600
            Width           =   3735
         End
         Begin VB.Image Image1
            Height          =   2055
            Left            =   360
            Picture         =   "frmash.frx":0CDA
            Stretch         =   -1  'True
            Top             =   1200
            Width           =   7935
         End
         Begin VB.Image imgLogo
            Appearance      =   0  'Flat
            Height          =   705
            Left            =   240
            Picture         =   "frmash.frx":3A66
            Stretch         =   -1  'True
            Top             =   240
            Width           =   855
         End
      End
   End
   Attribute VB_Name = "welcoming"
   Attribute VB_GlobalNameSpace = False
   Attribute VB_Creatable = False
   Attribute VB_PredeclaredId = True
   Attribute VB_Exposed = False
'CODE Manger By BcodeXRose
Dim ii As Integer
Dim returnstr As String * 128
Dim str1 As String * 128
Option Explicit



'##################################################################
'## 过程名称：Form_KeyPress
'## 参数：KeyAscii 为Integer型
'##################################################################
Private Sub Form_KeyPress(KeyAscii As Integer)
    frmLogin.Show
    Unload Me
End Sub
    
'##################################################################
'## 过程名称：Form_Load
'## 参数： 无
'##################################################################
Private Sub Form_Load()
    str1 = mciSendString("open " & App.Path & "\yls.rmi alias midi", returnstr, 128, 0)
    'mciExecute "open midi"
    mciExecute "play midi "
    
End Sub
    
'##################################################################
'## 过程名称：Form_Unload
'## 参数：Cancel 为Integer型
'##################################################################
Private Sub Form_Unload(Cancel As Integer)
    mciExecute "close  midi "
    frmLogin.Show
    
    'Form1.Show
End Sub
    
'##################################################################
'## 过程名称：Frame1_Click
'## 参数： 无
'##################################################################
Private Sub Frame1_Click()
    Unload Me
End Sub
    
'##################################################################
'## 过程名称：Image1_Click
'## 参数： 无
'##################################################################
Private Sub Image1_Click()
    Unload Me
End Sub
    
'##################################################################
'## 过程名称：Label1_Click
'## 参数： 无
'##################################################################
Private Sub Label1_Click()
    Unload Me
End Sub
    
'##################################################################
'## 过程名称：Timer1_Timer
'## 参数： 无
'##################################################################
Private Sub Timer1_Timer()
    Image2.Left = Image2.Left + 40
    imgLogo.Left = imgLogo.Left + 40
    If imgLogo.Left >= 7200 Then
        Image2.Left = -800
        imgLogo.Left = -800
    End If
    Select Case ii
        Case 0
            Image2.Visible = True
            imgLogo.Visible = False
            
            
            ii = 1
        Case 1
            Image2.Visible = False
            imgLogo.Visible = True
            
            ii = 0
    End Select
    
    
End Sub