frmphmainmenu.frm

这是用Visual Basic6开发的大型喷绘业务管理系统,数据库采用Access数据库

VERSION 5.00
Begin VB.Form frmPHmainmenu 
   BorderStyle     =   0  'None
   Caption         =   "喷绘业务生产流程管理系统"
   ClientHeight    =   9000
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   12000
   DrawStyle       =   5  'Transparent
   LinkTopic       =   "Form1"
   Picture         =   "frmPHmainmenu.frx":0000
   ScaleHeight     =   9000
   ScaleWidth      =   12000
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Picture1 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   660
      Left            =   390
      Picture         =   "frmPHmainmenu.frx":15F942
      ScaleHeight     =   660
      ScaleWidth      =   915
      TabIndex        =   11
      Top             =   840
      Width           =   915
   End
   Begin VB.PictureBox Picture2 
      BorderStyle     =   0  'None
      Height          =   660
      Left            =   1710
      Picture         =   "frmPHmainmenu.frx":161924
      ScaleHeight     =   660
      ScaleWidth      =   885
      TabIndex        =   10
      Top             =   840
      Width           =   885
   End
   Begin VB.PictureBox Picture3 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   660
      Left            =   2910
      Picture         =   "frmPHmainmenu.frx":163906
      ScaleHeight     =   660
      ScaleWidth      =   915
      TabIndex        =   9
      Top             =   840
      Width           =   915
   End
   Begin VB.PictureBox Picture4 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   660
      Left            =   4230
      Picture         =   "frmPHmainmenu.frx":1658E8
      ScaleHeight     =   660
      ScaleWidth      =   915
      TabIndex        =   8
      Top             =   840
      Width           =   915
   End
   Begin VB.PictureBox Picture5 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   660
      Left            =   5430
      Picture         =   "frmPHmainmenu.frx":1678CA
      ScaleHeight     =   660
      ScaleWidth      =   915
      TabIndex        =   7
      Top             =   840
      Width           =   915
   End
   Begin VB.PictureBox Picture6 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   660
      Left            =   6600
      Picture         =   "frmPHmainmenu.frx":1698AC
      ScaleHeight     =   660
      ScaleWidth      =   915
      TabIndex        =   6
      Top             =   840
      Width           =   915
   End
   Begin VB.PictureBox Picture7 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   660
      Left            =   7830
      Picture         =   "frmPHmainmenu.frx":16B88E
      ScaleHeight     =   660
      ScaleWidth      =   915
      TabIndex        =   5
      Top             =   840
      Width           =   915
   End
   Begin VB.Line Lines 
      BorderColor     =   &H00C0C0C0&
      Index           =   0
      Visible         =   0   'False
      X1              =   6570
      X2              =   7530
      Y1              =   2250
      Y2              =   2250
   End
   Begin VB.Line Lines 
      BorderColor     =   &H00C0C0C0&
      Index           =   2
      Visible         =   0   'False
      X1              =   6540
      X2              =   7740
      Y1              =   2070
      Y2              =   2070
   End
   Begin VB.Line Lines 
      BorderColor     =   &H00636363&
      Index           =   3
      Visible         =   0   'False
      X1              =   8190
      X2              =   9030
      Y1              =   2490
      Y2              =   2490
   End
   Begin VB.Line Lines 
      BorderColor     =   &H00636363&
      Index           =   1
      Visible         =   0   'False
      X1              =   7890
      X2              =   8970
      Y1              =   2340
      Y2              =   2340
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "退出系统(&S)"
      Height          =   195
      Index           =   3
      Left            =   4860
      TabIndex        =   4
      Top             =   480
      Width           =   1065
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "资料录入(&I)"
      Height          =   195
      Index           =   2
      Left            =   3300
      TabIndex        =   3
      Top             =   480
      Width           =   1065
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "查询统计(&C)"
      Height          =   195
      Index           =   1
      Left            =   1830
      TabIndex        =   2
      Top             =   480
      Width           =   1065
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "系统维护(&S)"
      Height          =   195
      Index           =   0
      Left            =   390
      TabIndex        =   1
      Top             =   480
      Width           =   1065
   End
   Begin VB.Image Image1 
      Height          =   330
      Left            =   11610
      Picture         =   "frmPHmainmenu.frx":16D870
      Top             =   30
      Width           =   330
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "喷绘业务生产流程管理系统"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   540
      TabIndex        =   0
      Top             =   120
      Width           =   2805
   End
End
Attribute VB_Name = "frmPHmainmenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim jframe As New dframe
Dim Shown As Boolean
Dim ctr As Integer
Dim Autohide, Border As Boolean
Dim i As Integer
' Constants used for line colors
Private Const LC1 = &HC0C0C0
Private Const LC2 = &H636363
Sub ShowBorder(Ctrl As Control, Optional Reverse As Boolean = False)
    Dim Corner1, Corner2, Corner3, Corner4 As Long

    ' If mnu is "pressed down" then reverse colors
    If Reverse Then
        Lines(0).BorderColor = LC2
        Lines(1).BorderColor = LC1
        Lines(2).BorderColor = LC2
        Lines(3).BorderColor = LC1
    Else
    ' Otherwise change them back to normal
        Lines(0).BorderColor = LC1
        Lines(1).BorderColor = LC2
        Lines(2).BorderColor = LC1
        Lines(3).BorderColor = LC2
    End If

    ' Set variables for positioning the lines around control
    Corner1 = Ctrl.Left - 10
    Corner2 = Ctrl.Left + Ctrl.width + 10
    Corner3 = Ctrl.Top - 10
    Corner4 = Ctrl.Top + Ctrl.height + 10

    ' Adding 15 to the width/height makes the lines meet _
        the second one needs 20 for some reason though

    ' Position Top line
    Lines(0).X1 = Corner1
    Lines(0).X2 = Corner2 + 15
    Lines(0).Y1 = Corner3
    Lines(0).Y2 = Corner3

    ' Position Bottom line
    Lines(1).X1 = Corner1
    Lines(1).X2 = Corner2 + 20
    Lines(1).Y1 = Corner4
    Lines(1).Y2 = Corner4

    ' Position Left line
    Lines(2).X1 = Corner1
    Lines(2).X2 = Corner1
    Lines(2).Y1 = Corner3
    Lines(2).Y2 = Corner4 + 15

    ' Position Right line
    Lines(3).X1 = Corner2
    Lines(3).X2 = Corner2
    Lines(3).Y1 = Corner3
    Lines(3).Y2 = Corner4 + 15

    ' Show the border(lines)
    For ctr = 0 To 3
        Lines(ctr).Visible = True
    Next ctr
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
     For i = 0 To 3
        Lines(i).Visible = False
    Next i
    Picture2.Cls
    Picture3.Cls
    Picture4.Cls
    Picture5.Cls
    Picture6.Cls
    Picture1.Cls
    Picture7.Cls
End Sub

Private Sub Image1_Click()
    Unload Me
    End
End Sub

Private Sub Label2_Click(Index As Integer)
     If Not Shown And Autohide Then Exit Sub
    
    ' Make the menu appear to be "pressed down"
    ShowBorder Label2(Index), True
    
    ' Show the proper menu. It was easier to have menus _
        with corresponding indexes than to do a _
        "Select Case Index" etc. etc...
    ' Make sure the submenu appears under the menu
    Select Case Index
    Case 0
        PopupMenu frmPHmain.mnusys, , 360, 750
    Case 1
        PopupMenu frmPHmain.mnuCX, , 1800, 750
    Case 2
        PopupMenu frmPHmain.mnuin, , 3280, 750
    Case 3
        PopupMenu frmPHmain.mnuQuit, , 4830, 750
   
    End Select
End Sub

Private Sub Label2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
      If Not Shown And Autohide Then Exit Sub
    
    ' If the border is already on the right control _
        don't let it flash
    If Lines(0).X1 + 10 = Label2(Index).Left _
        And Lines(0).Visible Then Exit Sub
    
    ' Otherwise show the border
    ShowBorder Label2(Index)
End Sub

Private Sub Picture1_Click()
    
    frmPHYeWu.Show
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture2.Cls
    Picture3.Cls
    Picture4.Cls
    Picture5.Cls
    Picture6.Cls
    Picture7.Cls
    jframe.danum = 6
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 58
    jframe.rbottom = 42
    jframe.ddrawc Picture1
End Sub

Private Sub Picture2_Click()
    frmPHJiTai.Show
End Sub

Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture1.Cls
    Picture3.Cls
    Picture4.Cls
    Picture5.Cls
    Picture6.Cls
    Picture7.Cls
    jframe.danum = 6
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 58
    jframe.rbottom = 42
    jframe.ddrawc Picture2
End Sub

Private Sub Picture3_Click()
    frmPHCustomMX.Show
End Sub

Private Sub Picture3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture2.Cls
    Picture1.Cls
    Picture4.Cls
    Picture5.Cls
    Picture6.Cls
    Picture7.Cls
    jframe.danum = 6
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 58
    jframe.rbottom = 42
    jframe.ddrawc Picture3
End Sub

Private Sub Picture4_Click()
    frmPHClothMX.Show
End Sub

Private Sub Picture4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
     Picture2.Cls
    Picture3.Cls
    Picture1.Cls
    Picture5.Cls
    Picture6.Cls
    Picture7.Cls
    jframe.danum = 6
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 58
    jframe.rbottom = 42
    jframe.ddrawc Picture4
End Sub

Private Sub Picture5_Click()
    frmPHDateMX.Show
End Sub

Private Sub Picture5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture2.Cls
    Picture3.Cls
    Picture4.Cls
    Picture1.Cls
    Picture6.Cls
    Picture7.Cls
    jframe.danum = 6
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 58
    jframe.rbottom = 42
    jframe.ddrawc Picture5
End Sub

Private Sub Picture6_Click()
    frmPHHTongMX.Show
End Sub

Private Sub Picture6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture2.Cls
    Picture3.Cls
    Picture4.Cls
    Picture5.Cls
    Picture1.Cls
    Picture7.Cls
    jframe.danum = 6
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 58
    jframe.rbottom = 42
    jframe.ddrawc Picture6
End Sub

Private Sub Picture7_Click()
    Unload Me
    End
End Sub

Private Sub Picture7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Picture2.Cls
    Picture3.Cls
    Picture4.Cls
    Picture5.Cls
    Picture6.Cls
    Picture1.Cls
    jframe.danum = 6
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 58
    jframe.rbottom = 42
    jframe.ddrawc Picture7
End Sub