frm_main.frm

钢材综合管理系统 钢材综合管理系统

VERSION 5.00
Begin VB.Form frm_main 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "钢材综合管理系统-前台销售管理"
   ClientHeight    =   5115
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7290
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "frm_main.frx":0000
   ScaleHeight     =   5115
   ScaleWidth      =   7290
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.TextBox czy 
      Height          =   225
      Left            =   -15
      TabIndex        =   5
      Top             =   2835
      Visible         =   0   'False
      Width           =   615
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FF8080&
      BackStyle       =   0  'Transparent
      Height          =   570
      Index           =   4
      Left            =   1515
      TabIndex        =   4
      Top             =   4185
      Width           =   4320
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FF8080&
      BackStyle       =   0  'Transparent
      Height          =   585
      Index           =   3
      Left            =   1530
      TabIndex        =   3
      Top             =   3225
      Width           =   4320
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FF8080&
      BackStyle       =   0  'Transparent
      Height          =   570
      Index           =   2
      Left            =   1530
      TabIndex        =   2
      Top             =   2325
      Width           =   4305
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FF8080&
      BackStyle       =   0  'Transparent
      Height          =   540
      Index           =   1
      Left            =   1545
      TabIndex        =   1
      Top             =   1365
      Width           =   4290
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H00FF8080&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   570
      Index           =   0
      Left            =   1530
      TabIndex        =   0
      Top             =   360
      Width           =   4290
   End
End
Attribute VB_Name = "frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
 Select Case Index
 '菜单显示样式
  Case Is = 0
     Label1(0).BorderStyle = 1
     Label1(1).BorderStyle = 0
     Label1(2).BorderStyle = 0
     Label1(3).BorderStyle = 0
     Label1(4).BorderStyle = 0
  Case Is = 1
     Label1(1).BorderStyle = 1
     Label1(0).BorderStyle = 0
     Label1(2).BorderStyle = 0
     Label1(3).BorderStyle = 0
     Label1(4).BorderStyle = 0
  Case Is = 2
     Label1(2).BorderStyle = 1
     Label1(0).BorderStyle = 0
     Label1(1).BorderStyle = 0
     Label1(3).BorderStyle = 0
     Label1(4).BorderStyle = 0
  Case Is = 3
     Label1(3).BorderStyle = 1
     Label1(0).BorderStyle = 0
     Label1(1).BorderStyle = 0
     Label1(2).BorderStyle = 0
     Label1(4).BorderStyle = 0
  Case Is = 4
     Label1(4).BorderStyle = 1
     Label1(0).BorderStyle = 0
     Label1(1).BorderStyle = 0
     Label1(2).BorderStyle = 0
     Label1(3).BorderStyle = 0
 End Select
End Sub
Private Sub Label1_Click(Index As Integer)
  Select Case Index
  Case Is = 0     '调入商品销售窗体
    Load main_qtgl_xs
    main_qtgl_xs.Show
    frm_main.Enabled = False
 Case Is = 1     '调入客户结款窗体
    Load main_qtgl_khjk
    main_qtgl_khjk.Show
    frm_main.Enabled = False
 Case Is = 2     '调入商品查询窗体
    Load main_qtgl_spcx
    main_qtgl_spcx.Show
    frm_main.Enabled = False
 Case Is = 3     '调入客户查询窗体
    Load main_qtgl_khcx
    main_qtgl_khcx.Show
    frm_main.Enabled = False
 Case Is = 4
    End
 End Select
End Sub