frmmain.frm

餐饮管理系统 包括29个功能模板 内容丰富

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmmain 
   BorderStyle     =   0  'None
   Caption         =   "餐饮管理系统"
   ClientHeight    =   6300
   ClientLeft      =   45
   ClientTop       =   1320
   ClientWidth     =   11865
   Icon            =   "frmmain.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   Picture         =   "frmmain.frx":7D42
   ScaleHeight     =   6300
   ScaleWidth      =   11865
   StartUpPosition =   1  '所有者中心
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   2040
      Top             =   2520
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   300
      Left            =   0
      TabIndex        =   0
      Top             =   6000
      Width           =   11865
      _ExtentX        =   20929
      _ExtentY        =   529
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Text            =   "餐饮管理系统"
            TextSave        =   "餐饮管理系统"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   360
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   11865
      _ExtentX        =   20929
      _ExtentY        =   635
      ButtonWidth     =   609
      ButtonHeight    =   582
      Appearance      =   1
      Style           =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   13
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "kt"
            Object.ToolTipText     =   "开台"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "jz"
            Object.ToolTipText     =   "餐台结帐"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "rjz"
            Object.ToolTipText     =   "日结帐"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "ctyd"
            Object.ToolTipText     =   "餐台预定"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "kccz"
            Object.ToolTipText     =   "库存查找"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "help2"
            Object.ToolTipText     =   "帮助"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "out"
            Object.ToolTipText     =   "退出"
            ImageIndex      =   7
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   1920
      Top             =   1920
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   7
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmmain.frx":11001
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmmain.frx":11B4B
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmmain.frx":11EE5
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmmain.frx":1227F
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmmain.frx":19FD1
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmmain.frx":1A56B
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmmain.frx":1AB05
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Menu qtfw 
      Caption         =   "【前台服务(&T)】"
      Begin VB.Menu ktgl 
         Caption         =   "开台管理(&K)"
      End
      Begin VB.Menu jzgl 
         Caption         =   "结账管理(&O)"
      End
      Begin VB.Menu ctyd 
         Caption         =   "餐台预定(&C)"
      End
   End
   Begin VB.Menu cwgl 
      Caption         =   "【财务管理(&M)】"
      Begin VB.Menu drjz 
         Caption         =   "当日结账(&D)"
      End
      Begin VB.Menu dyjz 
         Caption         =   "当月结账(&Y)"
      End
      Begin VB.Menu qqqqqqq 
         Caption         =   "-"
      End
      Begin VB.Menu yfgl 
         Caption         =   "应付账管理(&F)"
      End
      Begin VB.Menu ysgl 
         Caption         =   "应收账管理(&N)"
      End
      Begin VB.Menu dddd 
         Caption         =   "-"
      End
      Begin VB.Menu yycx 
         Caption         =   "营业额详情查询I(&E)"
      End
   End
   Begin VB.Menu fygl 
      Caption         =   "【费用管理(&F)】"
      Begin VB.Menu fycx 
         Caption         =   "费用查询(&U)"
      End
      Begin VB.Menu fydj 
         Caption         =   "费用登记(&I)"
      End
      Begin VB.Menu kkkkkkkkk 
         Caption         =   "-"
      End
      Begin VB.Menu gzcx 
         Caption         =   "工资查询(&G)"
      End
      Begin VB.Menu gzdj 
         Caption         =   "工资登记(&K)"
      End
   End
   Begin VB.Menu kcgl 
      Caption         =   "【库存管理(&K)】"
      Begin VB.Menu cgdj 
         Caption         =   "采购登记(&R)"
      End
      Begin VB.Menu cgcx 
         Caption         =   "采购查询(&F)"
      End
      Begin VB.Menu iiii 
         Caption         =   "-"
      End
      Begin VB.Menu lldj 
         Caption         =   "领料登记(&L)"
      End
      Begin VB.Menu llcx 
         Caption         =   "领料查询(&M)"
      End
      Begin VB.Menu mmmm 
         Caption         =   "-"
      End
      Begin VB.Menu kccx 
         Caption         =   "库存查询(&C)"
      End
   End
   Begin VB.Menu xtgl 
      Caption         =   "【系统初始管理(&X)】"
      Begin VB.Menu ctgl 
         Caption         =   "餐台管理(&C)"
      End
      Begin VB.Menu spxx 
         Caption         =   "商品信息(&I)"
      End
      Begin VB.Menu ylxx 
         Caption         =   "原料信息(&N)"
      End
      Begin VB.Menu fyxm 
         Caption         =   "费用项目(&F)"
      End
      Begin VB.Menu bbbbbbbbb 
         Caption         =   "-"
      End
      Begin VB.Menu bmgl 
         Caption         =   "部门管理(&B)"
      End
      Begin VB.Menu yggl 
         Caption         =   "员工管理(&Y)"
      End
      Begin VB.Menu lll 
         Caption         =   "-"
      End
      Begin VB.Menu glgl 
         Caption         =   "管理员管理(&M)"
      End
      Begin VB.Menu jdxx 
         Caption         =   "酒店信息(&J)"
      End
   End
   Begin VB.Menu glyxx 
      Caption         =   "【管理员信息(&X)】"
   End
   Begin VB.Menu help1 
      Caption         =   "【帮助(&H)】"
      Begin VB.Menu help2 
         Caption         =   "帮助(&L)"
      End
      Begin VB.Menu about 
         Caption         =   "关于(&A)"
      End
   End
   Begin VB.Menu bc 
      Caption         =   "【退出(&Q)】"
      Begin VB.Menu tj 
         Caption         =   "添加用户"
      End
      Begin VB.Menu scyh 
         Caption         =   "删除用户"
      End
   End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim h, w
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Sub about_Click()
frmabout.Show 1
End Sub

Private Sub bc_Click()
a = MsgBox("确定要退出吗？", vbYesNo + vbInformation + vbDefaultButton2, "提示")
If a = vbYes Then End
End Sub


Private Sub cgcx_Click()
frmcgcx.Show 1
End Sub

Private Sub cgdj_Click()
frmcgdj.Show 1
End Sub


Private Sub ctyd_Click()
frmctyd.Show 1
End Sub

Private Sub fycx_Click()
frmfycx.Show 1
End Sub

Private Sub fydj_Click()
frmfydj.Show 1
End Sub

Private Sub gzcx_Click()
frmgzcx.Show 1
End Sub

Private Sub gzdj_Click()
frmgzdj.Show 1
End Sub

Private Sub help2_Click()
SendKeys "{F1}"
End Sub

Private Sub jzgl_Click()
Dim rs As New ADODB.Recordset
rs.Open "select * from 餐台 where 餐台状态='营业'", conn
If Not rs.EOF And Not rs.BOF Then
   frmjzgl.Show
Else
   a = MsgBox("没有营业中的房间！", vbOKOnly + 48, "提示")
End If
rs.Close
End Sub

Private Sub kccx_Click()
frmkccx.Show 1
End Sub

Private Sub ktgl_Click()
frmktgl.Show
End Sub

Private Sub llcx_Click()
frmllcx.Show 1
End Sub

Private Sub lldj_Click()
frmlldj.Show 1
End Sub

Private Sub Form_Load()
StatusBar1.Panels(1).AutoSize = 2
StatusBar1.Panels(2).AutoSize = 1
StatusBar1.Panels(3).AutoSize = 2
StatusBar1.Panels(3).Alignment = sbrRight
SetWindowLong frmjzgl.hwnd, -8, frmmain.hwnd
SetWindowLong frmktgl.hwnd, -8, frmmain.hwnd
   Dim rs1 As New ADODB.Recordset
    If rs1.State Then rs1.Close
    rs1.Open "select * from 酒店信息", conn
    If rs1.BOF And rs1.EOF Then
       frmmain.Caption = "(请初始酒店名)- 餐饮管理系统"
       Else
       frmmain.Caption = Trim(rs1.Fields("酒店名")) & " - 餐饮管理系统"
    End If
 w = frmmain.Width
h = frmmain.Height
App.HelpFile = App.Path & "\help.chm"
End Sub

Private Sub Form_Unload(Cancel As Integer)
a = MsgBox("确定要退出吗？", vbYesNo + vbInformation + vbDefaultButton2, "提示")
If a = vbYes Then
  End
  Else
    Cancel = 1
    End If
End Sub

Private Sub Timer1_Timer()
StatusBar1.Panels(3).Text = Now
End Sub
Private Sub bmgl_Click()
   frmbmgl.Show 1
End Sub

Private Sub ctgl_Click()
   frmctgl.Show 1
End Sub

Private Sub drjz_Click()
   Frmdrjz.Show 1
End Sub

Private Sub dyjz_Click()
   Frmdyjz.Show 1
End Sub

Private Sub fyxm_Click()
   Frmfyxm.Show 1
End Sub


Private Sub glgl_Click()
  frmglgl.Show 1
End Sub

Private Sub glyxx_Click()
   Frmglyxx.Show 1
End Sub
Private Sub jdxx_Click()
   Frmjdxx.Show 1
End Sub


Private Sub spxx_Click()
  frmspxx.Show 1
End Sub


Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  If Button.Key = "kt" Then Call ktgl_Click
  If Button.Key = "jz" Then Call jzgl_Click
  If Button.Key = "rjz" Then Call drjz_Click
  If Button.Key = "ctyd" Then Call ctyd_Click
  If Button.Key = "kccz" Then Call kccx_Click
  If Button.Key = "help2" Then Call help2_Click
  If Button.Key = "out" Then Call bc_Click
End Sub

Private Sub yfgl_Click()
  frmyfzgl.Show 1
End Sub

Private Sub yggl_Click()
  frmyggl.Show 1
End Sub

Private Sub ylxx_Click()
  frmylxx.Show 1
End Sub

Private Sub ysgl_Click()
  frmyszgl.Show 1
End Sub

Private Sub yycx_Click()
   frmyyecx.Show 1
End Sub