n_main.frm

杭州舟远信息技术连锁有限公司的棋牌管理系统源代码

VERSION 5.00
Object = "{9A226D6F-2658-4445-8D35-5C19D42676FE}#1.0#0"; "BSE.ocx"
Begin VB.Form N_main 
   BackColor       =   &H80000001&
   Caption         =   "餐饮管理系统"
   ClientHeight    =   5415
   ClientLeft      =   3435
   ClientTop       =   2310
   ClientWidth     =   7080
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   5415
   ScaleWidth      =   7080
   Begin VB.CommandButton Command9 
      Caption         =   "酒店餐桌设置"
      Height          =   855
      Left            =   4560
      TabIndex        =   10
      Top             =   3000
      Width           =   1575
   End
   Begin BSE_Engine.BSE BSE1 
      Left            =   6720
      Top             =   2400
      _ExtentX        =   6588
      _ExtentY        =   1085
   End
   Begin VB.CommandButton Command12 
      Caption         =   "退出(&E)"
      Height          =   855
      Left            =   5040
      TabIndex        =   8
      Top             =   4320
      Width           =   1600
   End
   Begin VB.CommandButton Command8 
      Caption         =   "酒店消费记录"
      Height          =   855
      Left            =   360
      TabIndex        =   7
      Top             =   3000
      Width           =   1600
   End
   Begin VB.CommandButton Command7 
      Caption         =   "前台交接金额"
      Height          =   855
      Left            =   4560
      TabIndex        =   6
      Top             =   1680
      Width           =   1600
   End
   Begin VB.CommandButton Command6 
      Caption         =   "预定单查询"
      Height          =   855
      Left            =   2400
      TabIndex        =   5
      Top             =   360
      Width           =   1600
   End
   Begin VB.CommandButton Command5 
      Caption         =   "酒店基本设置"
      Height          =   855
      Left            =   2400
      TabIndex        =   4
      Top             =   3000
      Width           =   1600
   End
   Begin VB.CommandButton Command4 
      Caption         =   "挂帐单查询"
      Height          =   855
      Left            =   4560
      TabIndex        =   3
      Top             =   360
      Width           =   1600
   End
   Begin VB.CommandButton Command3 
      Caption         =   "在店客人查询"
      Height          =   855
      Left            =   360
      TabIndex        =   2
      Top             =   1680
      Width           =   1600
   End
   Begin VB.CommandButton Command2 
      Caption         =   "来店客人查询"
      Height          =   855
      Left            =   2400
      TabIndex        =   1
      Top             =   1680
      Width           =   1600
   End
   Begin VB.CommandButton Command1 
      Caption         =   "预定登记"
      Height          =   855
      Left            =   360
      TabIndex        =   0
      Top             =   360
      Width           =   1600
   End
   Begin VB.Label Label1 
      BackColor       =   &H80000001&
      Height          =   375
      Left            =   480
      TabIndex        =   9
      Top             =   4680
      Width           =   2175
   End
   Begin VB.Menu FILE1 
      Caption         =   "&系统管理"
      NegotiatePosition=   2  'Middle
      Begin VB.Menu FILE11 
         Caption         =   "1.操作员管理"
      End
      Begin VB.Menu FIFLE12 
         Caption         =   "2.退出控制面板"
      End
   End
End
Attribute VB_Name = "N_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
 Call N_YDD.init(0, 0)
 N_YDD.Show (1)
End Sub

Private Sub Command12_Click()
Call FIFLE12_Click
End Sub

Private Sub command2_Click()
Call N_KRXX.init_MAIN(3, " ", " ")
N_KRXX.Show (1)
End Sub

Private Sub Command3_Click()
Call N_KRXX.init_MAIN(0, " ", " ")
N_KRXX.Show (1)
End Sub

Private Sub Command4_Click()
Call N_KRXX.init_MAIN(2, " ", " ")
N_KRXX.Show (1)
End Sub

Private Sub Command5_Click()
N_WP.Show (1)
End Sub

Private Sub command6_Click()
 N_YDXX.Show (1)
End Sub

Private Sub Command7_Click()
N_CJ.Show (1)
End Sub

Private Sub Command8_Click()
N_SYCX.Show (1)
End Sub

Private Sub Command9_Click()
N_CZSZ.Show (1)
End Sub

Private Sub FIFLE12_Click()
 
Unload Me
End Sub

Private Sub FILE11_Click()
N_USER.Show (1)
End Sub

Private Sub Form_Load()
Label1.Caption = "操作员：" & SYS_USER
BSE1.SchemeStyle = 6
 
 
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

End Sub