Begin VB.Line Line1 
         BorderColor     =   &H00A6A6A6&
         X1              =   42
         X2              =   42
         Y1              =   3
         Y2              =   23
      End
   End
   Begin VB.Menu mnuFile 
      Caption         =   "文件(&F)"
      Begin VB.Menu mnuLogin 
         Caption         =   "返回登陸界面(&R)"
         Shortcut        =   ^R
      End
      Begin VB.Menu mnuFileSP1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuDBBackUp 
         Caption         =   "備份數據庫"
      End
      Begin VB.Menu mnuDBResume 
         Caption         =   "恢復數據庫"
      End
      Begin VB.Menu mnuFileSP2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "退出(&X)"
      End
   End
   Begin VB.Menu mnuView 
      Caption         =   "視圖(&V)"
      Begin VB.Menu mnuLeft 
         Caption         =   "商品管理(&M)"
         Index           =   1
         Shortcut        =   ^M
      End
      Begin VB.Menu mnuLeft 
         Caption         =   "進貨管理(&P)"
         Index           =   2
         Shortcut        =   ^P
      End
      Begin VB.Menu mnuLeft 
         Caption         =   "銷售管理(&S)"
         Index           =   3
         Shortcut        =   ^S
      End
      Begin VB.Menu mnuLeft 
         Caption         =   "廠商/供貨商(&F)"
         Index           =   4
         Shortcut        =   ^F
      End
      Begin VB.Menu mnuLeft 
         Caption         =   "會員管理(&E)"
         Index           =   5
         Shortcut        =   ^E
      End
      Begin VB.Menu mnuLeft 
         Caption         =   "用戶管理(&U)"
         Index           =   6
         Shortcut        =   ^U
      End
      Begin VB.Menu mnuViewSP1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuGuide 
         Caption         =   "導航欄(&G)"
         Checked         =   -1  'True
         Shortcut        =   ^G
      End
      Begin VB.Menu mnuTB 
         Caption         =   "工具條(&T)"
         Checked         =   -1  'True
         Shortcut        =   ^T
      End
      Begin VB.Menu mnuSB 
         Caption         =   "狀態欄(&B)"
         Checked         =   -1  'True
         Shortcut        =   ^B
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "幫助(&H)"
      Begin VB.Menu mnuContent 
         Caption         =   "內容(&C)"
         Shortcut        =   {F1}
      End
      Begin VB.Menu mnuSupply 
         Caption         =   "技術支持(&S)"
      End
      Begin VB.Menu mnuHelpSP1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAbout 
         Caption         =   "關于本軟件(&A)"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

' **********************************************************************
'  描  述：超市銷售系統源代碼
'  Play78.com : 網站導航，源碼之家，絕對開源
'  海闊天空收集整理
'  主站地址：http://www.play78.com/
'  源碼下載地址：http://www.play78.com/blog
'  圖片下在地址：http://www.play78.com/pic
'  QQ：13355575
'  e-mail:hglai@eyou.com
'  編寫日期：2005年08月14日
' **********************************************************************

'程序開發：lc_mtt
'CSDN博客：http://blog.csdn.net/lc_mtt/
'個人主頁：http://www.3lsoft.com
'郵箱：3lsoft@163.com
'注：此代碼禁止用于商業用途。有修改者發我一份，謝謝！
'---------------- 開源世界，你我更進步 ----------------


'拖動窗體的API
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Dim CanResize As Boolean
Dim LastFrm As Long

Private Sub cmdAbout_Click()
    mnuAbout_Click
End Sub

Private Sub cmdClose_Click()
    picLeft.Visible = False
    mnuGuide.Checked = False
    SaveINI "Main", "Guide", "n"
End Sub

Public Sub cmdLeft_Click(Index As Integer)
    If LastFrm = Index Then Exit Sub
    If LastFrm > 0 Then
        cmdLeft(LastFrm).IfDraw = False
        tbLeft(LastFrm).IfDraw = False
        mnuLeft(LastFrm).Checked = False
        cmdLeft(LastFrm).BackColor = picLeft.BackColor
        tbLeft(LastFrm).BackColor = picTB.BackColor
    Else
        Unload frmWelcome
    End If
    Select Case LastFrm
    Case 1: Unload frmMerch
    Case 2: Unload frmStock
    Case 3: Unload frmSale
    Case 4: Unload frmFP
    Case 5: Unload frmMember
    Case 6: Unload frmUser
    End Select

    LastFrm = Index
    cmdLeft(Index).IfDraw = True
    tbLeft(Index).IfDraw = True
    mnuLeft(Index).Checked = True
    cmdLeft(Index).BackColor = 14210516
    tbLeft(Index).BackColor = 14210516
    SetSB 1, "現在位置：" & cmdLeft(Index).caption
    Select Case Index
    Case 1: frmMerch.Show
    Case 2: frmStock.Show
    Case 3: frmSale.Show
    Case 4: frmFP.Show
    Case 5: frmMember.Show
    Case 6: frmUser.Show
    End Select
End Sub

Private Sub imgLB_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = 1 Then
        Call ReleaseCapture
        Call SendMessage(hwnd, &HA1, 17, 0)
    End If
End Sub

Private Sub imgLogin_Click()

End Sub

Private Sub MDIForm_Load()
    '讀取窗體位置,視圖信息
    If GetINI("Main", "Left") = "" Then
        Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
    Else
        Move GetLongINI("Main", "Left"), GetLongINI("Main", "Top"), GetLongINI("Main", "Width"), GetLongINI("Main", "Height")
        Dim j As Long
        j = GetLongINI("Main", "WindowState")
        If j = 2 Then Me.WindowState = 2
    End If
    CanResize = True
    If GetINI("Main", "Guide") = "n" Then
        picLeft.Visible = False
        mnuGuide.Checked = False
    End If
    If GetINI("Main", "ToolBar") = "n" Then
        picTB.Visible = False
        mnuTB.Checked = False
    End If
    If GetINI("Main", "StateBar") = "n" Then
        picSB.Visible = False
        mnuSB.Checked = False
    End If
    '判斷用戶類型
    cmdLeft(6).Enabled = (curUserStyle >= 3)
    tbLeft(6).Enabled = (curUserStyle >= 3)
    mnuLeft(6).Enabled = (curUserStyle >= 3)
    frmWelcome.Show
End Sub

Private Sub MDIForm_Resize()
On Error Resume Next
    If CanResize = False Then Exit Sub
    If Me.Width < 9900 Then Me.Width = 9900
    If Me.Height < 8370 Then Me.Height = 8370
    SaveINI "Main", "WindowState", CStr(WindowState)
    If Me.WindowState = 0 Then
        SaveINI "Main", "Width", CStr(Width)
        SaveINI "Main", "Height", CStr(Height)
    End If
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
On Error Resume Next
    If Left >= 0 Then SaveINI "Main", "Left", CStr(Left)
    If Top >= 0 Then SaveINI "Main", "Top", CStr(Top)
    cnMain.Close
    Set frmMain = Nothing
End Sub

Private Sub mnuAbout_Click()
    MsgBox "02計本(2) 獨立開發完成。", vbInformation
End Sub

Private Sub mnuContent_Click()
    MsgBox "暫無幫助！", vbInformation
End Sub

Private Sub mnuExit_Click()
    Unload Me
End Sub

Private Sub mnuGuide_Click()
    mnuGuide.Checked = Not mnuGuide.Checked
    picLeft.Visible = mnuGuide.Checked
    SaveINI "Main", "Guide", IIf(mnuGuide.Checked = True, "", "n")
End Sub

Private Sub mnuLeft_Click(Index As Integer)
    cmdLeft_Click Index
End Sub

Private Sub mnuLogin_Click()
On Error Resume Next
    Unload Me
    frmLogin.Show
End Sub

Private Sub picSB_Resize()
On Error Resume Next
    Shb2.Width = Me.Width / 15 - IIf(Me.WindowState = 2, 210, 230)
    imgLB.Visible = (Me.WindowState <> 2)
    imgLB.Left = Me.Width / 15 - 20
End Sub

Private Sub mnuSB_Click()
    mnuSB.Checked = Not mnuSB.Checked
    picSB.Visible = mnuSB.Checked
    SaveINI "Main", "StateBar", IIf(mnuSB.Checked = True, "", "n")
End Sub

Private Sub mnuTB_Click()
    mnuTB.Checked = Not mnuTB.Checked
    picTB.Visible = mnuTB.Checked
    SaveINI "Main", "ToolBar", IIf(mnuTB.Checked = True, "", "n")
End Sub

Private Sub picLeft_Resize()
On Error Resume Next
    ShLeft.Height = picLeft.Height / 15 - 23
End Sub

Private Sub tbExit_Click()
    mnuExit_Click
End Sub

Private Sub tbLeft_Click(Index As Integer)
    cmdLeft_Click Index
End Sub

Private Sub tbLogin_Click()
    mnuLogin_Click
End Sub