VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm frmMain
BackColor = &H8000000C&
Caption = "餐饮行业管理系统"
ClientHeight = 4635
ClientLeft = 165
ClientTop = 855
ClientWidth = 7230
LinkTopic = "MDIForm1"
StartUpPosition = 3 '窗口缺省
Begin MSComctlLib.StatusBar sbStatusBar
Align = 2 'Align Bottom
Height = 270
Left = 0
TabIndex = 0
Top = 4365
Width = 7230
_ExtentX = 12753
_ExtentY = 476
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 7091
Text = "Status"
TextSave = "Status"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
AutoSize = 2
TextSave = "2006-5-23"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
AutoSize = 2
TextSave = "8:41"
EndProperty
EndProperty
End
Begin VB.Menu menuSystem
Caption = "系统"
Begin VB.Menu menuModifypwd
Caption = "修改密码"
End
Begin VB.Menu menuAdduser
Caption = "添加用户"
End
Begin VB.Menu menuExit
Caption = "退出"
End
End
Begin VB.Menu menuSetup
Caption = "营业设置"
Begin VB.Menu menuWZSetup
Caption = "酒菜设置"
End
Begin VB.Menu menuWZLB
Caption = "房台设置"
End
Begin VB.Menu menuGFSetup
Caption = "供应商设置"
End
Begin VB.Menu menuYWYLB
Caption = "业务员类别设置"
End
Begin VB.Menu menuYWYSetup
Caption = "业务员设置"
End
End
Begin VB.Menu menuCustomerinfo
Caption = "前台营业"
Begin VB.Menu menuBOOK
Caption = "接待预定"
End
Begin VB.Menu menuGETMONEY
Caption = "点菜收银"
End
Begin VB.Menu menuCustomer
Caption = "进货入库"
End
End
Begin VB.Menu menuMticket
Caption = "营业信息分析"
Begin VB.Menu menuInquireOKH
Caption = "查客户"
End
Begin VB.Menu menuOWZCK
Caption = "查物资、仓库"
End
Begin VB.Menu menuInquireOYWY
Caption = "查业务员"
End
End
Begin VB.Menu menuKucun
Caption = "库存信息管理"
Begin VB.Menu menuPANDIAN
Caption = "商品盘点"
End
End
Begin VB.Menu menuHelp
Caption = "帮助"
Begin VB.Menu menuAbout
Caption = "About"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
If Me.WindowState vbMinimized Then
SaveSetting App.Title, "Settings", "MainLeft", Me.Left
SaveSetting App.Title, "Settings", "MainTop", Me.Top
SaveSetting App.Title, "Settings", "MainWidth", Me.Width
SaveSetting App.Title, "Settings", "MainHeight", Me.Height
End If
End Sub
Private Sub menuBookticket_Click()
frmXSDH.txtSQL = "select xsdh_no,out_date,ywman,khdm,wzdm,sl,out_danj,o_zk,o_zke,bz from xsdh"
frmXSDH.Show 0
End Sub
Private Sub menuCKSetup_Click()
frmCKSetup.txtSQL = "select * from dm_ck"
frmCKSetup.Show 0
End Sub
Private Sub menuCtype_Click()
frmdh.txtSQL = "select dh_no,in_date,ywman,gfdm,wzdm,sl,in_danj,i_zk,i_zke,bz from dh"
frmdh.Show 0
End Sub
Private Sub menuAdduser_Click()
frmAdduser.Show
sbStatusBar.Panels(1).Text = "添加用户"
End Sub
Private Sub menuBOOK_Click()
frmBOOK.txtSQL = "select dm_room.dm,dm_room.mc,dm_room.bmmc,dm_room.lbmc,dm_room.r_sl,book.khmc,book.lxdh from dm_room left join book on dm_room.dm =book.roomdm where dm_room.dm 'b' and dm_room.dm 'l'"
frmBOOK.Show 0
End Sub
Private Sub menuCustomer_Click()
frmINH.txtSQL = "select inh_no,in_date,ywman,gfdm,ckdm,wzdm,sl,in_danj,i_zk,i_zke,jsfk,jz,yf,bz from inh"
frmINH.Show 0
End Sub
Private Sub menuExit_Click()
Unload Me
End Sub
Private Sub menuFENLEI_Click()
frmInquireMINGXI2.Show 1
End Sub
Private Sub menuGet_Click()
frmGET.txtSQL = "select outh.outh_no,outh.out_date,outh.khdm,dm_kh.mc,outh.wzdm,dm_wz.mc,outh.qihao,outh.sl,outh.out_danj,outh.o_zk,outh.o_zke,outh.jz,outh.yf,outh.bz from outh inner join dm_kh on outh.khdm = dm_kh.dm inner join dm_wz on outh.wzdm = dm_wz.dm where outh.jsfk 'Y'"
frmGET.Show 0
End Sub
Private Sub menuGETMONEY_Click()
Dim txtSQL As String
Dim MsgText As String
Dim mrc As ADODB.Recordset
txtSQL = "select * into newouth1 from outh where outh.bz1 is null or outh.bz1 = 'N'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
frmDCAI.txtSQL = "select distinct dm_room.dm,dm_room.mc,dm_room.bmmc,dm_room.lbmc,dm_room.r_sl,newouth1.khmc,newouth1.lxdh from dm_room left join newouth1 on dm_room.dm = newouth1.roomdm where dm_room.dm 'b' and dm_room.dm 'l'"
'frmDCAI.txtSQL = "select distinct dm_room.dm,dm_room.mc,dm_room.bmmc,dm_room.lbmc,dm_room.r_sl,outh.khmc,outh.lxdh from dm_room left join outh on dm_room.dm = outh.roomdm where dm_room.dm 'b' and dm_room.dm 'l'"
frmDCAI.Show 0
End Sub
Private Sub menuGFSetup_Click()
frmGF.txtSQL = "select * from dm_gf"
frmGF.Show 0
End Sub
Private Sub menuInqireWZCK_Click()
frmInquireCK2.Show 1
End Sub
Private Sub menuInquireGF_Click()
frmInquireGF2.Show 1
End Sub
Private Sub menuInquireIKUCUN_Click()
frmInquireIZC2.Show 1
End Sub
Private Sub menuInquireIOKUCUN_Click()
frmInquireIOZC2.Show 1
End Sub
Private Sub menuInquireOKH_Click()
frmInquireOKH2.Show 1
End Sub
Private Sub menuInquireOKUCUN_Click()
frmInquireOZC2.Show 1
End Sub
Private Sub menuInquireOYWY_Click()
frmInquireOYWY2.Show 1
End Sub
Private Sub menuInquireProduct_Click()
frmInquireZZ2.Show 1
End Sub
Private Sub menuInquireYWY_Click()
frmInquireYWY2.Show 1
End Sub
Private Sub menuKHSetup_Click()
frmKHSetup.txtSQL = "select * from dm_kh"
frmKHSetup.Show 0
End Sub
Private Sub menuModifypwd_Click()
frmModifyuserinfo.Show
End Sub
Private Sub menuOffer_Click()
frmOFFER.txtSQL = "select inh.inh_no,inh.in_date,inh.gfdm,dm_gf.mc,inh.wzdm,dm_wz.mc,inh.qihao,inh.sl,inh.in_danj,inh.i_zk,inh.i_zke,inh.jz,inh.yf,inh.bz from inh inner join dm_gf on inh.gfdm = dm_gf.dm inner join dm_wz on inh.wzdm = dm_wz.dm where inh.jsfk 'Y'"
frmOFFER.Show 0
End Sub
Private Sub menuOWZCK_Click()
frmInquireOCK2.Show 1
End Sub
Private Sub menuPANDIAN_Click()
frmInquireMINGXI2.Show 1
End Sub
Private Sub menuPl_Click()
frmMATELIST.txtSQL = "select * from mate"
frmMATELIST.Show 0
End Sub
Private Sub menuPlan_Click()
frmPLANGLIST.txtSQL = "select * from plang"
frmPLANGLIST.Show 0
End Sub
Private Sub menuWX_Click()
gintPLLISTmode = 1
frmWX.Show 0
End Sub
Private Sub menuWZLB_Click()
frmROOMSetup.txtSQL = "select dm,mc,bmmc,lbmc,r_sl from dm_room where dm 'b' and dm 'l'"
frmROOMSetup.Show 0
End Sub
Private Sub menuWZSetup_Click()
frmWZSetup.txtSQL = "select * from dm_wz"
frmWZSetup.Show 0
End Sub
Private Sub menuXSD_Click()
frmOUTH.txtSQL = "select outh_no,out_date,ywman,khdm,ckdm,wzdm,sl,out_danj,o_zk,o_zke,jsfk,jz,yf,bz from outh where bz1 is null"
frmOUTH.Show 0
End Sub
Private Sub menuYSMINGXI_Click()
frmGET.txtSQL = "select outh.outh_no,outh.out_date,outh.khdm,dm_kh.mc,outh.wzdm,dm_wz.mc,outh.color,outh.sl,outh.out_danj,outh.o_zk,outh.o_zke,outh.jz,outh.yf,outh.bz from outh inner join dm_kh on outh.khdm = dm_kh.dm inner join dm_wz on outh.wzdm = dm_wz.dm where outh.jsfk 'Y'"
frmGET.Show 0
End Sub
Private Sub menuYSSetup_Click()
frmYSSetup.txtSQL = "select * from dm_yanse"
frmYSSetup.Show 0
End Sub
Private Sub menuYWYLB_Click()
frmYWYLB.txtSQL = "select * from dm_ywylb"
frmYWYLB.Show 0
End Sub
Private Sub menuYWYSetup_Click()
frmYWYSetup.txtSQL = "select * from dm_ywy"
frmYWYSetup.Show 0
End Sub
Private Sub menuZhuanCang_Click()
frmZC.txtSQL = "select * from zc"
frmZC.Show 0
End Sub
Private Sub menuZZ_Click()
frmZZ.Show
End Sub
