www.pudn.com > vb-sql-server.rar > frmMain.frm, change:2003-12-16,size:11524b


VERSION 5.00 
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx" 
Begin VB.MDIForm frmMain  
   BackColor       =   &H8000000C& 
   Caption         =   "中天通信设备公司进销存管理系统" 
   ClientHeight    =   5124 
   ClientLeft      =   132 
   ClientTop       =   720 
   ClientWidth     =   7176 
   LinkTopic       =   "MDIForm1" 
   StartUpPosition =   3  'Windows Default 
   Begin MSComctlLib.StatusBar sbStatusBar  
      Align           =   2  'Align Bottom 
      Height          =   264 
      Left            =   0 
      TabIndex        =   0 
      Top             =   4860 
      Width           =   7176 
      _ExtentX        =   12658 
      _ExtentY        =   466 
      _Version        =   393216 
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}  
         NumPanels       =   3 
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}  
            AutoSize        =   1 
            Object.Width           =   6985 
            Text            =   "Status" 
            TextSave        =   "Status" 
         EndProperty 
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}  
            Style           =   6 
            AutoSize        =   2 
            TextSave        =   "2003-12-16" 
         EndProperty 
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}  
            Style           =   5 
            AutoSize        =   2 
            TextSave        =   "21:45" 
         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 menuServicesetup  
         Caption         =   "服务类型设置" 
      End 
      Begin VB.Menu menuSSetup  
         Caption         =   "服务设置" 
      End 
      Begin VB.Menu menuGFSetup  
         Caption         =   "供应商设置" 
      End 
      Begin VB.Menu menuKHSetup  
         Caption         =   "客户设置" 
      End 
      Begin VB.Menu menuYWYLB  
         Caption         =   "员工岗位设置" 
      End 
      Begin VB.Menu menuYWYSetup  
         Caption         =   "员工信息" 
      End 
      Begin VB.Menu menuCKSetup  
         Caption         =   "仓库设置" 
      End 
   End 
   Begin VB.Menu menuCustomerinfo  
      Caption         =   "进货信息管理" 
      Begin VB.Menu menuCustomer  
         Caption         =   "入库单录入修改" 
      End 
      Begin VB.Menu menuInquire  
         Caption         =   "信息查询" 
         Begin VB.Menu menuInquireGF  
            Caption         =   "查供方进货" 
         End 
         Begin VB.Menu menuInqireWZCK  
            Caption         =   "查物资、仓库进货" 
         End 
         Begin VB.Menu menuInquireYWY  
            Caption         =   "查业务员进货" 
         End 
      End 
   End 
   Begin VB.Menu menuMticket  
      Caption         =   "销售信息管理" 
      Begin VB.Menu menuWX  
         Caption         =   "销售单录入修改" 
      End 
      Begin VB.Menu menuInquireO  
         Caption         =   "信息查询" 
         Begin VB.Menu menuInquireOKH  
            Caption         =   "查客户" 
         End 
         Begin VB.Menu menuOWZCK  
            Caption         =   "查商品、仓库" 
         End 
         Begin VB.Menu menuInquireOYWY  
            Caption         =   "查业务员" 
         End 
      End 
   End 
   Begin VB.Menu menuKucun  
      Caption         =   "库存信息管理" 
      Begin VB.Menu menuZhuanCang  
         Caption         =   "转仓单录入修改" 
      End 
      Begin VB.Menu menuInquireKUCUN  
         Caption         =   "信息查询" 
         Begin VB.Menu menuInquireOKUCUN  
            Caption         =   "查转出" 
         End 
         Begin VB.Menu menuInquireIKUCUN  
            Caption         =   "查转入" 
         End 
         Begin VB.Menu menuInquireIOKUCUN  
            Caption         =   "查转入转出" 
         End 
      End 
      Begin VB.Menu menuPANDIAN  
         Caption         =   "商品盘点" 
      End 
   End 
   Begin VB.Menu menuCAIWU  
      Caption         =   "财务" 
      Begin VB.Menu menuGet  
         Caption         =   "应收" 
      End 
      Begin VB.Menu menuOffer  
         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 menuAdduser_Click() 
    frmAdduser.Show 1 
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 menuCustomer_Click() 
    frmINH.txtSQL = "select inh_no,in_date,ywman,gfdm,ckdm,wzdm,sl,in_danj,i_zk,i_zke,jsfk,jz,yf,bz,s_w 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.khmc,dm_kh.mc,outh.wzdm,dm_wz.mc,outh.s_w,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.khmc = dm_kh.mc inner join dm_wz on outh.wzdm = dm_wz.dm where outh.jsfk <> 'Y'  and outh.s_w = '0'  union select outh.outh_no,outh.out_date,outh.khmc,dm_kh.mc,outh.wzdm,dm_service.mc,outh.s_w,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.khmc = dm_kh.mc inner join dm_service on outh.wzdm = dm_service.dm where outh.jsfk <> 'Y'  and outh.s_w = '1'" 
    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 menuModifypwd_Click() 
    frmModifyuserinfo.Show 1 
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.s_w,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' and inh.s_w = '0' union select inh.inh_no,inh.in_date,inh.gfdm,dm_gf.mc,inh.wzdm,dm_service.mc,inh.s_w,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_service on inh.wzdm = dm_service.dm where inh.jsfk <> 'Y' and inh.s_w = '1'" 
     
    'select outh.outh_no,outh.out_date,outh.khmc,dm_kh.mc,outh.wzdm,dm_wz.mc,outh.s_w,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.khmc = dm_kh.mc inner join dm_wz on outh.wzdm = dm_wz.dm where outh.jsfk <> 'Y'  and outh.s_w = '0'  union select outh.outh_no,outh.out_date,outh.khmc,dm_kh.mc,outh.wzdm,dm_service.mc,outh.s_w,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.khmc = dm_kh.mc inner join dm_service on outh.wzdm = dm_service.dm where outh.jsfk <> 'Y'  and outh.s_w = '1' 
    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 menuTest_Click() 
    Form1.Show 
End Sub 
 
Private Sub menuServicesetup_Click() 
    frmSLBS.cmdEnter.Enabled = False 
    frmSLBS.cmdCANCEL.Caption = "退出" 
     
    frmSLBS.Show 1 
     
End Sub 
 
Private Sub menuSSetup_Click() 
    frmSSetup.txtSQL = "select * from dm_service" 
    frmSSetup.Show 0 
End Sub 
 
Private Sub menuWX_Click() 
    gintPLLISTmode = 1 
    frmWX.Show 0 
End Sub 
 
Private Sub menuWZLB_Click() 
    frmWZLBS.cmdEnter.Enabled = False 
    frmWZLBS.cmdCANCEL.Caption = "退出" 
     
    frmWZLBS.Show 1 
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