frmmainmain.frm

一套比较全面的茶馆控制系统软件源代码

  
End Sub

Private Sub mnuExit_Click()

  Unload Me
  
End Sub

Private Sub mnuHelp_Click()

   On Error Resume Next
   Dim retVal As Long
       retVal = ShellExecute(Me.hwnd, "Open", App.Path & "\Readme.txt", 0, 0, 1)
  
End Sub

Private Sub mnuHZ_Click()

   If frmHZ.Visible Then
      frmHZ.SetFocus
    Else
      frmHZ.Show
   End If
  
End Sub

Private Sub mnuKuCunStore_Click()

 If frmMainStore.Visible Then
    frmMainStore.SetFocus
  Else
    frmMainStore.Show
 End If
  
End Sub

Private Sub mnuMember_Click()

 If frmMember.Visible Then
    frmMember.SetFocus
    Exit Sub
 End If
   frmMember.Show
   
End Sub

Private Sub mnuMenuCatalog_Click()

 If CunstomType.Visible Then
    CunstomType.SetFocus
    Exit Sub
 End If
  CunstomType.Show
  
End Sub

Private Sub mnuMenuManager_Click()

If frmOption.Visible Then
    frmOption.SetFocus
    Exit Sub
 End If
  frmOption.Show
  
End Sub

Private Sub mnuPayType_Click()

 If frmPaymethodX.Visible Then
    frmPaymethodX.SetFocus
  Else
    frmPaymethodX.Show
 End If

End Sub

Private Sub mnuProccess_Click()
 
 If frmOperator.Visible Then
    frmOperator.SetFocus
  Else
    frmOperator.Show
 End If
 
End Sub

Private Sub mnuQueryCustomer_Click()

 If frmQuerySell.Visible Then
    frmQuerySell.SetFocus
  Else
    frmQuerySell.Show
 End If
  
End Sub

Private Sub mnuQueryEnter_Click()

If frmQueryEnter.Visible Then
   frmQueryEnter.SetFocus
 Else
   frmQueryEnter.Show
End If

End Sub

Private Sub mnuQuerySystem_Click()
  
  If frmCustomerOrder.Visible Then
     frmCustomerOrder.SetFocus
    Else
     frmCustomerOrder.Show
  End If
 
End Sub

Private Sub mnuSite_Click()
  
  If SiteType.Visible Then
    SiteType.SetFocus
    Exit Sub
 End If
  SiteType.Show
  
End Sub

Private Sub mnuSort_Click()

  If frmSellList.Visible Then
     frmSellList.SetFocus
    Else
     frmSellList.Show
  End If
  
End Sub

Private Sub mnuStart_Click()

 If frmCustomerForm.Visible Then
    frmCustomerForm.SetFocus
  Else
    frmCustomerForm.Show
  End If
  
End Sub

Private Sub mnuSystemClear_Click()

   frmClean.Show 1

End Sub

Private Sub mnuUnitType_Click()

If frmUnitType.Visible Then
    frmUnitType.SetFocus
    Exit Sub
 End If
  frmUnitType.Show
  
End Sub

Private Sub Author()

 ' 座位
  If Authority(1) = True Then
     frmMain.mnuSite.Enabled = True
    ' MainTool.Buttons(1).Enabled = True
   Else
     frmMain.mnuSite.Enabled = False
    ' MainTool.Buttons(1).Enabled = False
 End If
 
 '单位
  If Authority(2) = True Then
     frmMain.mnuUnitType.Enabled = True
   Else
     frmMain.mnuUnitType.Enabled = False
 End If
 
 '菜单分类
  If Authority(3) = True Then
     frmMain.mnuMenuCatalog.Enabled = True
    ' MainTool.Buttons(3).Enabled = True
   Else
     frmMain.mnuMenuCatalog.Enabled = False
     'MainTool.Buttons(3).Enabled = False
 End If
 
 '菜单管理
  If Authority(4) = True Then
     frmMain.mnuMenuManager.Enabled = True
   '  MainTool.Buttons(4).Enabled = True
   Else
     frmMain.mnuMenuManager.Enabled = False
    ' MainTool.Buttons(4).Enabled = False
 End If
 
 '会员管理
  If Authority(5) = True Then
     frmMain.mnuMember.Enabled = True
     Toolbar1.Buttons(7).Enabled = True
   Else
     frmMain.mnuMember.Enabled = False
     Toolbar1.Buttons(7).Enabled = False
 End If
 
 '购进物品
  If Authority(6) = True Then
     frmMain.mnuEnterStore.Enabled = True
    ' MainTool.Buttons(7).Enabled = True
   Else
     frmMain.mnuEnterStore.Enabled = False
    ' MainTool.Buttons(7).Enabled = False
 End If
 
 '购进明细表
  If Authority(7) = True Then
     frmMain.mnuQueryEnter.Enabled = True
    ' MainTool.Buttons().Enabled = True
   Else
     frmMain.mnuQueryEnter.Enabled = False
    ' MainTool.Buttons().Enabled = False
 End If
 

 '库存查询
  If Authority(8) = True Then
     frmMain.mnuKuCunStore.Enabled = True
    ' MainTool.Buttons().Enabled = True
   Else
     frmMain.mnuKuCunStore.Enabled = False
    ' MainTool.Buttons().Enabled = False
 End If
 
 
 '客人上台
  If Authority(9) = True Then
     frmMain.mnuStart.Enabled = True
     Toolbar1.Buttons(1).Enabled = True
   Else
     frmMain.mnuStart.Enabled = False
     Toolbar1.Buttons(1).Enabled = False
 End If
 
 
 '营业单据
  If Authority(10) = True Then
     frmMain.mnuQuerySystem.Enabled = True
     Toolbar1.Buttons(3).Enabled = True
   Else
     frmMain.mnuQuerySystem.Enabled = False
     Toolbar1.Buttons(3).Enabled = False
 End If
 
 
 '营业汇总
  If Authority(11) = True Then
    frmMain.mnuHZ.Enabled = True
    Toolbar1.Buttons(4).Enabled = True
   Else
    frmMain.mnuHZ.Enabled = False
    Toolbar1.Buttons(4).Enabled = False
 End If
 
 
 '营业明细表
  If Authority(12) = True Then
     frmMain.mnuQueryCustomer.Enabled = True
    ' MainTool.Buttons().Enabled = True
   Else
     frmMain.mnuQueryCustomer.Enabled = False
    ' MainTool.Buttons().Enabled = False
 End If
  
 '畅销物品
  If Authority(13) = True Then
     frmMain.mnuSort.Enabled = True
     Toolbar1.Buttons(5).Enabled = True
   Else
     frmMain.mnuSort.Enabled = False
     Toolbar1.Buttons(5).Enabled = False
 End If
  
 '操作管理
  If Authority(14) = True Then
     frmMain.mnuProccess.Enabled = True
     Toolbar1.Buttons(8).Enabled = True
   Else
     frmMain.mnuProccess.Enabled = False
     Toolbar1.Buttons(8).Enabled = False
 End If
 
 '购进物品
  If Authority(15) = True Then
     frmMain.mnuSystemClear.Enabled = True
    ' MainTool.Buttons().Enabled = True
   Else
     frmMain.mnuSystemClear.Enabled = False
    ' MainTool.Buttons().Enabled = False
 End If
 
 If Authority(16) = True Then
    mnuPayType.Enabled = True
  Else
    mnuPayType.Enabled = False
 End If
 
End Sub

 Private Sub AuthorityE()

  If UserText = "超级用户" Then
     '超级用户没有权限
     Exit Sub
  End If
  
  Dim EF As Recordset, DB As Database, TmpStr As String
  Dim Us As String
  
  Set DB = OpenDatabase(ConData, False, False, Constr)
  Set EF = DB.OpenRecordset("Authority", dbOpenDynaset)
      TmpStr = "UserName='" & UserText & "'"
      EF.FindFirst TmpStr
    Dim X As Integer
    For X = 1 To 16
     If EF.Fields(X).Value = True Then
        Authority(X) = True
      Else
        Authority(X) = False
     End If
    Next
  
  EF.Close
  DB.Close
  
  Author
  
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)

  Select Case Button.Key
  
  Case "Customer"
      Call mnuStart_Click
  Case "SellOrder"
      Call mnuQuerySystem_Click
  Case "SellDetail"
      Call mnuHZ_Click
  Case "SellTop"
      Call mnuSort_Click
  Case "Member"
      Call mnuMember_Click
  Case "Operator"
      Call mnuProccess_Click
  Case "Help"
      Call mnuHelp_Click
  Case "About"
      Call mnuAbout_Click
  End Select
  
End Sub