frmmain.frm

商品进销存商品进销存商品进销存商品进销存商品进销存商品进销存

         End
         Begin VB.Menu menuOWZCK 
            Caption         =   "按仓库查询"
            Shortcut        =   {F5}
         End
         Begin VB.Menu menuInquireOYWY 
            Caption         =   "按业务员查询"
            Shortcut        =   {F6}
         End
      End
   End
   Begin VB.Menu menuKucun 
      Caption         =   "库存信息管理(&E)"
      Begin VB.Menu menuZhuanCang 
         Caption         =   "转仓单录入与修改"
         Shortcut        =   ^Q
      End
      Begin VB.Menu l 
         Caption         =   "-"
      End
      Begin VB.Menu menuInquireKUCUN 
         Caption         =   "库存信息查询"
         Begin VB.Menu menuInquireOKUCUN 
            Caption         =   "按转入查询"
            Shortcut        =   {F7}
         End
         Begin VB.Menu menuInquireIKUCUN 
            Caption         =   "按转出查询"
            Shortcut        =   {F8}
         End
         Begin VB.Menu menuInquireIOKUCUN 
            Caption         =   "按转入转出查询"
            Shortcut        =   {F9}
         End
      End
      Begin VB.Menu m 
         Caption         =   "-"
      End
      Begin VB.Menu menuPANDIAN 
         Caption         =   "库存商品盘点"
         Shortcut        =   ^R
      End
   End
   Begin VB.Menu hygl 
      Caption         =   "会员管理(&H)"
      Begin VB.Menu menuKHSetup 
         Caption         =   "会员信息"
         Shortcut        =   ^K
      End
      Begin VB.Menu yhsz 
         Caption         =   "优惠设置"
         Shortcut        =   ^V
      End
   End
   Begin VB.Menu print 
      Caption         =   "打印(&G)"
      Begin VB.Menu rkdy 
         Caption         =   "入库单打印"
         Shortcut        =   ^U
      End
      Begin VB.Menu xsdy 
         Caption         =   "销售单打印"
         Shortcut        =   ^T
      End
      Begin VB.Menu kcdy 
         Caption         =   "库存单打印"
         Shortcut        =   ^W
      End
   End
   Begin VB.Menu menuHelp 
      Caption         =   "帮助(&F)"
      Begin VB.Menu menuAbout 
         Caption         =   "关于系统"
         Shortcut        =   ^S
      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 kcdy_Click()
frm_Print3.Show
End Sub

Private Sub MDIForm_Load()
    Me.sbStatusBar.Panels(3).Text = Trim("操作员：") & frmLogin.txtUserName.Text
    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 menuAbout_Click()
about.Show
End Sub

Private Sub menuAdduser_Click()
    frmAdduser.Show
    sbStatusBar.Panels(1).Text = "添加用户"
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()
    frmDHD.txtSQL = "select dh_no,in_date,ywman,gfdm,wzdm,sl,in_danj,i_zk,i_zke,bz from dh"
    frmDHD.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 where bz1 is null"
    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.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 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 menuOffer_Click()
    frmOFFER.txtSQL = "select inh.inh_no,inh.in_date,inh.gfdm,dm_gf.mc,inh.wzdm,dm_wz.mc,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 menuModifypwd_Click()
frmModifyuserinfo.Show
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 distinct mate.m_no,mate.m_date,mate.wzdm1,mate.wzmc1,mate.jldw1,dm_ywy.mc,mate.bz from mate inner join dm_ywy on mate.ywdm = dm_ywy.dm"
    frmMATELIST.Show 0
End Sub

Private Sub menuPlan_Click()
    frmPLANGLIST.txtSQL = "select * from plang"
    frmPLANGLIST.Show 0
End Sub

Private Sub menuWZLB_Click()
    frmWZLB.txtSQL = "select * from dm_wzlb"
    frmWZLB.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

Private Sub qxgl_Click()
quanxian.Show

End Sub

Private Sub rkdy_Click()
frm_Print2.Show
End Sub

Private Sub sjbf_Click()
restore.Show

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.key
    Case "a1"
        menuAdduser_Click
    Case "a2"
        menuCustomer_Click
    Case "a3"
        menuXSD_Click
    Case "a4"
        menuZhuanCang_Click
    Case "a5"
        menuPANDIAN_Click
    Case "a6"
        menuKHSetup_Click
    Case "a7"
        sjbf_Click
    Case "a8"
        menuExit_Click
End Select
    
        
End Sub

Private Sub xsdy_Click()
frm_Print.Show

End Sub

Private Sub yhsz_Click()
frmKHLB.txtSQL = "select * from dm_khlb"
            frmKHLB.Show
End Sub