form5.frm

简单的商场优惠摊派金额,能显示具体到每个柜台的应该返还给消费者的金额.

VERSION 5.00
Begin VB.Form Form5 
   BorderStyle     =   0  'None
   Caption         =   "Form5"
   ClientHeight    =   4200
   ClientLeft      =   4140
   ClientTop       =   3510
   ClientWidth     =   6000
   LinkTopic       =   "Form5"
   ScaleHeight     =   4200
   ScaleWidth      =   6000
   ShowInTaskbar   =   0   'False
   Begin VB.Frame Frame1 
      Height          =   4095
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   5775
      Begin VB.Label Label3 
         Caption         =   "数据环境：Access"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   960
         TabIndex        =   3
         Top             =   2520
         Width           =   2295
      End
      Begin VB.Label Label2 
         Caption         =   "开发环境：Visual basic 6.0"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   960
         TabIndex        =   2
         Top             =   1920
         Width           =   3855
      End
      Begin VB.Label Label1 
         Caption         =   "商场财务管理系统"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   26.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   600
         TabIndex        =   1
         Top             =   840
         Width           =   4455
      End
   End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Click()
Load Form2
Form2.Show
Unload Me
End Sub


Private Sub Frame1_Click()
Load Form2
Form2.Show
Unload Me
End Sub

Private Sub Label1_Click()
Load Form2
Form2.Show
Unload Me

End Sub

Private Sub Label2_Click()
Load Form2
Form2.Show
Unload Me
End Sub

Private Sub Label3_Click()
Load Form2
Form2.Show
Unload Me
End Sub