mainform.frm

即时通讯

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MainForm 
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   5115
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   8070
   Icon            =   "MainForm.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   315
      Left            =   0
      TabIndex        =   0
      Top             =   4800
      Width           =   8070
      _ExtentX        =   14235
      _ExtentY        =   556
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   1
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
      EndProperty
   End
   Begin VB.Menu BaseMessage 
      Caption         =   "基本资料"
      Begin VB.Menu m_GoodsManager 
         Caption         =   "商品管理"
      End
      Begin VB.Menu ljgl 
         Caption         =   "零件管理"
      End
      Begin VB.Menu cpgl 
         Caption         =   "产品管理"
      End
      Begin VB.Menu m_supplier 
         Caption         =   "供应商管理"
      End
      Begin VB.Menu m_customerList 
         Caption         =   "客户  管理"
      End
      Begin VB.Menu sz 
         Caption         =   "设置"
         Begin VB.Menu gyslbsz 
            Caption         =   "供应商类别设置"
         End
         Begin VB.Menu khdjsz 
            Caption         =   "客户等级设置"
         End
         Begin VB.Menu khlysz 
            Caption         =   "客户来源设置"
         End
         Begin VB.Menu cplbsz 
            Caption         =   "产品类别设置"
         End
         Begin VB.Menu gxsz 
            Caption         =   "工序设置"
         End
         Begin VB.Menu lxmdsz 
            Caption         =   "联系目的设置"
         End
         Begin VB.Menu bmsz 
            Caption         =   "部门设置"
         End
         Begin VB.Menu lxfssz 
            Caption         =   "联系方式设置"
         End
         Begin VB.Menu ljjyfs 
            Caption         =   "零件检验方式"
         End
         Begin VB.Menu mycompanyinfo 
            Caption         =   "我的公司信息"
         End
      End
   End
   Begin VB.Menu BuyManage 
      Caption         =   "采购管理"
      Visible         =   0   'False
      Begin VB.Menu m_stockOrder 
         Caption         =   "采购定单"
         Visible         =   0   'False
      End
      Begin VB.Menu m_stockOrderList 
         Caption         =   "采购定单"
      End
      Begin VB.Menu m_stockStorec 
         Caption         =   "采购入库"
      End
      Begin VB.Menu m_stockBackgoodsList 
         Caption         =   "采购退货"
      End
   End
   Begin VB.Menu ProductManage 
      Caption         =   "生产管理"
      Begin VB.Menu bomDesign 
         Caption         =   "BOM设计"
      End
      Begin VB.Menu m_productScheme 
         Caption         =   "生产计划单"
      End
      Begin VB.Menu m_produceList 
         Caption         =   "生产单列表"
      End
      Begin VB.Menu scll 
         Caption         =   "生 产  领 料"
      End
      Begin VB.Menu m_produceFinishList 
         Caption         =   "生产入库单"
      End
   End
   Begin VB.Menu EmployeeManage 
      Caption         =   "员工管理"
      Begin VB.Menu Employee 
         Caption         =   "员工管理"
      End
   End
   Begin VB.Menu CollaborationManage 
      Caption         =   "外协管理"
      Begin VB.Menu m_cooperateList 
         Caption         =   "外协列表"
      End
      Begin VB.Menu llqd 
         Caption         =   "外协发料"
      End
      Begin VB.Menu m_cooperateFinish 
         Caption         =   "外协收工"
      End
      Begin VB.Menu m_cooperateRedo 
         Caption         =   "外协返工"
      End
      Begin VB.Menu wxsp 
         Caption         =   "外协索赔"
      End
      Begin VB.Menu wxbs 
         Caption         =   "外协报损"
      End
      Begin VB.Menu ckll 
         Caption         =   "仓库领料"
         Visible         =   0   'False
      End
      Begin VB.Menu m_cooperateStat 
         Caption         =   "外协统计"
      End
   End
   Begin VB.Menu QualityManage 
      Caption         =   "质检管理"
      Begin VB.Menu zljy 
         Caption         =   "质量检验"
      End
      Begin VB.Menu jylxgl 
         Caption         =   "产品检验依据"
      End
      Begin VB.Menu m_checkOption 
         Caption         =   "检验项管理"
      End
      Begin VB.Menu m_checkValue 
         Caption         =   "检验值管理"
      End
      Begin VB.Menu m_checkGroup 
         Caption         =   "检验组管理"
         Begin VB.Menu m_checkOptionGroup 
            Caption         =   "检验项组"
         End
         Begin VB.Menu m_checkValueGroup 
            Caption         =   "检验值组"
         End
      End
   End
   Begin VB.Menu WarehouseManage 
      Caption         =   "仓库管理"
      Begin VB.Menu WarehouseData 
         Caption         =   "仓库资料"
         Visible         =   0   'False
      End
      Begin VB.Menu WarehouseList 
         Caption         =   "仓库资料"
      End
      Begin VB.Menu kwqd 
         Caption         =   "库存清单"
      End
   End
   Begin VB.Menu m_sellManager 
      Caption         =   "销售管理"
      Visible         =   0   'False
   End
   Begin VB.Menu System 
      Caption         =   "系统操作"
      NegotiatePosition=   2  'Middle
      Begin VB.Menu ReConnect 
         Caption         =   "重新连接"
      End
      Begin VB.Menu xgmm 
         Caption         =   "修改密码"
      End
      Begin VB.Menu m_navigation 
         Caption         =   "导航窗体"
      End
      Begin VB.Menu test 
         Caption         =   "test"
         Visible         =   0   'False
      End
   End
End
Attribute VB_Name = "MainForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**************************************
'*    模 块 名 称 :应用程序启动窗体
'*    功 能 描 述 :应用程序启动窗体
'*    程序员姓名  : 陈齐国
'*    最后修改人  : 陈齐国
'*    最后修改时间:2005/08/17
'**************************************
Option Explicit
Public g_msgText As String
Public g_application As HApplication    ' 自定义的应用程序对象


Private Sub bmsz_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, DEPARTMENT_LIST)
    
    If ret Then
        CallModule DEPARTMENT_LIST
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub bomDesign_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, BOMTABLE_DESIGN)
    
    If ret Then
        CallModule BOMTABLE_DESIGN
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub ckll_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, COOPERATEDROWMATERIAL)
    
    If ret Then
    CallModule COOPERATEDROWMATERIAL
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub cpgl_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, PRODUCTION)
    
    If ret Then
    CallModule PRODUCTION
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub cplbsz_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, PRODUCTYPE)
    
    If ret Then
    CallModule PRODUCTYPE
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub Employee_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, EMPLOYEE_SINGLE)
    
    If ret Then
        CallModule EMPLOYEE_SINGLE
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
    
End Sub

Private Sub gxsz_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, CHECKSTANDARD)
    
    If ret Then
        CallModule BOMPROCESS_LIST
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub gyslbsz_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, GYSLB_LIST)
    
    If ret Then
    CallModule GYSLB_LIST
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub jylxgl_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, CHECKSTANDARD)
    
    If ret Then
    CallModule CHECKSTANDARD
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub khdjsz_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, KHDJ_LIST)
    
    If ret Then
    CallModule KHDJ_LIST
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If

End Sub

Private Sub khlysz_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, KHLY_LIST)
    
    If ret Then
    CallModule KHLY_LIST
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If

End Sub

Private Sub kwqd_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, POSITIONQD)
    
    If ret Then
    CallModule POSITIONQD
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub ljgl_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, Part)
    
    If ret Then
    CallModule Part
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub ljjyfs_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, PARTCHECKMETHOD_p)
    If ret Then
    CallModule PARTCHECKMETHOD_p
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub llqd_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, COOPERATEDROWMATERIALQD)
    
    If ret Then
    CallModule COOPERATEDROWMATERIALQD
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub lxfssz_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, LXFS_LIST)
    
    If ret Then
    CallModule LXFS_LIST
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If

End Sub

Private Sub lxmdsz_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, LXMD_LIST)
    
    If ret Then
    CallModule LXMD_LIST
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If

End Sub

Private Sub m_checkOption_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, CHECK_OPTION)
    
    If ret Then
    CallModule CHECK_OPTION
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub m_checkOptionGroup_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, CHECKOPTIONGROUP1)
    
    If ret Then
    CallModule CHECKOPTIONGROUP1
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub m_checkValue_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, checkvalue)
    
    If ret Then
    CallModule checkvalue
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub

Private Sub m_checkValueGroup_Click()
    Dim ret As Boolean
    ret = yhqxpd(g_application.m_userId, CHECKVALUEGROUP)
    
    If ret Then
    CallModule CHECKVALUEGROUP
    Else
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1