主窗体.frm

一个用VB开发的非常不错的企业ERP管理源码,值得一看.

            Caption         =   "-"
         End
         Begin VB.Menu 设备文件 
            Caption         =   "设备文件"
            Begin VB.Menu 设备操作书 
               Caption         =   "设备操作书"
            End
            Begin VB.Menu 说明书管理 
               Caption         =   "说明书管理"
            End
         End
      End
   End
   Begin VB.Menu 人事管理 
      Caption         =   "人事管理(&R)"
      Begin VB.Menu 员工档案 
         Caption         =   "员工档案"
      End
      Begin VB.Menu r 
         Caption         =   "-"
      End
      Begin VB.Menu 培训记录 
         Caption         =   "培训记录"
      End
      Begin VB.Menu 奖惩记录 
         Caption         =   "奖惩记录"
      End
      Begin VB.Menu 就餐记录 
         Caption         =   "就餐记录"
      End
      Begin VB.Menu 职称评定 
         Caption         =   "职称评定"
      End
      Begin VB.Menu 人员调动 
         Caption         =   "人员调动"
      End
      Begin VB.Menu 员工进辞 
         Caption         =   "员工进辞"
      End
      Begin VB.Menu l 
         Caption         =   "-"
      End
      Begin VB.Menu 工资计算 
         Caption         =   "工资计算(&G)"
         Begin VB.Menu 品质奖惩 
            Caption         =   "品质奖惩"
         End
         Begin VB.Menu 各项补贴 
            Caption         =   "各项补贴"
         End
         Begin VB.Menu 计算公式 
            Caption         =   "计算公式"
         End
         Begin VB.Menu 工资表 
            Caption         =   "工资表"
         End
      End
      Begin VB.Menu e 
         Caption         =   "-"
      End
      Begin VB.Menu 行政管理 
         Caption         =   "行政管理"
      End
   End
   Begin VB.Menu 品质管理 
      Caption         =   "品质管理(&P)"
      Begin VB.Menu 品质奖 
         Caption         =   "品质奖惩"
      End
   End
   Begin VB.Menu 业务销售 
      Caption         =   "业务销售(&Y)"
      Begin VB.Menu 每周计划 
         Caption         =   "每周计划"
      End
      Begin VB.Menu 客户资料 
         Caption         =   "客户资料"
      End
      Begin VB.Menu 新产品开发 
         Caption         =   "新产品开发"
      End
      Begin VB.Menu 出货计划 
         Caption         =   "出货计划"
      End
      Begin VB.Menu 开票计划 
         Caption         =   "开票计划"
      End
      Begin VB.Menu 回款情况 
         Caption         =   "回款情况"
      End
      Begin VB.Menu 每月计划 
         Caption         =   "每月计划"
      End
   End
   Begin VB.Menu 技术开发 
      Caption         =   "技术开发(&J)"
      Begin VB.Menu 文件管理 
         Caption         =   "文件管理"
         Begin VB.Menu 文件更改记录 
            Caption         =   "文件更改记录"
         End
         Begin VB.Menu 外来文件 
            Caption         =   "外来文件"
         End
         Begin VB.Menu 图纸文件 
            Caption         =   "图纸文件"
         End
         Begin VB.Menu 作业指导书 
            Caption         =   "作业指导书"
         End
         Begin VB.Menu 规格书 
            Caption         =   "规格书"
         End
         Begin VB.Menu 试验报告 
            Caption         =   "试验报告"
         End
         Begin VB.Menu 检验文件 
            Caption         =   "检验文件"
         End
      End
      Begin VB.Menu 样品管理 
         Caption         =   "样品管理"
      End
      Begin VB.Menu h 
         Caption         =   "-"
      End
      Begin VB.Menu 新品开发 
         Caption         =   "新品开发"
         Begin VB.Menu 材料开发 
            Caption         =   "材料开发"
            Begin VB.Menu 新材料开发 
               Caption         =   "新材料开发"
            End
            Begin VB.Menu 新厂家资料 
               Caption         =   "新厂家资料"
            End
            Begin VB.Menu 材料试样 
               Caption         =   "材料试样"
            End
            Begin VB.Menu 承认情况 
               Caption         =   "承认情况"
            End
         End
         Begin VB.Menu 产品开发 
            Caption         =   "产品开发"
         End
         Begin VB.Menu 样品试制 
            Caption         =   "样品试制"
         End
      End
      Begin VB.Menu p 
         Caption         =   "-"
      End
      Begin VB.Menu 产品承认 
         Caption         =   "产品承认"
      End
      Begin VB.Menu 顾客资料 
         Caption         =   "顾客资料"
      End
      Begin VB.Menu o 
         Caption         =   "-"
      End
      Begin VB.Menu 原材料方面 
         Caption         =   "原材料方面"
         Begin VB.Menu 原材料检验规程 
            Caption         =   "原材料检验规程"
         End
         Begin VB.Menu 原材料厂家资料 
            Caption         =   "原材料厂家资料"
         End
         Begin VB.Menu 供方成绩 
            Caption         =   "供方成绩"
         End
         Begin VB.Menu 工厂审查 
            Caption         =   "工厂审查"
         End
      End
      Begin VB.Menu 试验品试制 
         Caption         =   "试验品试制"
      End
      Begin VB.Menu 材料情况 
         Caption         =   "材料情况"
         Begin VB.Menu 材料消耗 
            Caption         =   "材料消耗"
         End
         Begin VB.Menu 材料清单 
            Caption         =   "材料清单"
         End
      End
      Begin VB.Menu hhh 
         Caption         =   "-"
      End
      Begin VB.Menu 品质信息 
         Caption         =   "品质信息"
         Begin VB.Menu 内部品质 
            Caption         =   "内部品质"
         End
         Begin VB.Menu 外部品质 
            Caption         =   "外部品质"
         End
         Begin VB.Menu 新品品质 
            Caption         =   "新品品质"
         End
         Begin VB.Menu 新材料品质 
            Caption         =   "新材料品质"
         End
      End
   End
   Begin VB.Menu 关于 
      Caption         =   "关于(&D)"
      Begin VB.Menu 作者 
         Caption         =   "作者"
      End
   End
End
Attribute VB_Name = "主窗体"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub IP地址设置_Click()
当前位置.Panels(2).Text = "系统维护－IP地址设置"
IP设置.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "退出系统"
Unload 主窗体
End Select
End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

End Sub

Private Sub 部门_Click()
Form7.Show
End Sub

Private Sub 材料清单_Click()

当前位置.Panels(2).Text = "技术开发－材料情况－材料清单"
End Sub

Private Sub 材料消耗_Click()
当前位置.Panels(2).Text = "技术开发－材料情况－材料消耗"
'材料消耗.Show
End Sub

Private Sub 二级部门_Click()
Form8.Show
End Sub

Private Sub 工资类型_Click()
Form6.Show
End Sub

Private Sub 计算公式_Click()
工资公式.Show
End Sub

Private Sub 民族_Click()
Form2.Show
End Sub

Private Sub 退出_Click()
Unload 主窗体
End Sub

Private Sub 文化程度_Click()
Form3.Show
End Sub

Private Sub 用户密码_Click()
当前位置.Panels(2).Text = "系统维护－用户密码"
End Sub

Private Sub 用户权限_Click()
当前位置.Panels(2).Text = "系统维护－用户权限"
End Sub

Private Sub 员工档案_Click()
Form1.Show
End Sub

Private Sub 职称_Click()
Form9.Show
End Sub

Private Sub 职工类型_Click()
Form5.Show
End Sub

Private Sub 职务_Click()
当前位置.Panels(2).Text = "数据初始化－职务"
Form10.Show
End Sub

Private Sub 作者_Click()
Dim i As String
i = Space(2) & "兆基企业管理1.0版" & vbCrLf & Space(3) & "作者：窦晓平" & "  南京兆基电器有限公司"
MsgBox i, vbOKOnly + vbInformation, "兆基企业管理"
End Sub