frmmain.frm

超市的管理与及时的维护

      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:[e-mail]
'  编写日期：2005年08月14日
' **********************************************************************

'程序开发：lc_mtt
'CSDN博客：http://blog.csdn.net/lc_mtt/
'个人主页：http://www.3lsoft.com
'邮箱：[e-mail]
'注：此代码禁止用于商业用途。有修改者发我一份，谢谢！
'---------------- 开源世界，你我更进步 ----------------


'拖动窗体的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