employeepermissionform.frm

即时通讯

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form employeepermissionform 
   Caption         =   "权限设置"
   ClientHeight    =   5940
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5460
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   5940
   ScaleWidth      =   5460
   Begin VB.Frame Frame2 
      Height          =   5895
      Left            =   4440
      TabIndex        =   1
      Top             =   0
      Width           =   975
      Begin VB.CommandButton c_cancel 
         Caption         =   "退出"
         Height          =   375
         Left            =   120
         TabIndex        =   4
         Top             =   1920
         Width           =   735
      End
      Begin VB.CommandButton c_save 
         Caption         =   "保存"
         Height          =   375
         Left            =   120
         TabIndex        =   3
         Top             =   1200
         Width           =   735
      End
      Begin VB.CommandButton c_new 
         Caption         =   "重设"
         Height          =   375
         Left            =   120
         TabIndex        =   2
         Top             =   480
         Width           =   735
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "权限选择"
      Height          =   5895
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   4335
      Begin MSComctlLib.TreeView TreeView1 
         Height          =   5535
         Left            =   120
         TabIndex        =   5
         Top             =   240
         Width           =   4095
         _ExtentX        =   7223
         _ExtentY        =   9763
         _Version        =   393217
         LabelEdit       =   1
         LineStyle       =   1
         Style           =   7
         Checkboxes      =   -1  'True
         BorderStyle     =   1
         Appearance      =   1
      End
   End
End
Attribute VB_Name = "employeepermissionform"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**************************************
'*    模 块 名 称 :员工权限管理用户操作界面
'*    功 能 描 述 :员工权限管理用户操作界面
'*    程序员姓名  : 石春晓
'*    最后修改人  : 石春晓
'*    最后修改时间:2005/09/08
'**************************************
Option Explicit
Public m_employeeId  As String        ' 修改时其它窗体传递过来的参数
Public m_employeename As String         '员工姓名
Public permissionId As String         ' 存放权限ID
Public i As Integer                   ' 循环变量
Private m_EmployeeDAO As employeeDAO ' 数据库操作类
Private m_recordset As ADODB.Recordset ' 数据操作数据集对象
Private m_permissionSet As ADODB.Recordset  ' 操作权权限数据集，存放系统中所的操作权限
Public f As String


Private Sub c_cancel_Click()
    Unload Me
End Sub

Private Sub c_new_Click()
    Call clear
End Sub

Private Sub c_save_Click()
    Call delete
    Call NewEmployee
    Unload Me
End Sub

Private Sub Form_Load()
    Set m_EmployeeDAO = New employeeDAO
    Set m_recordset = New ADODB.Recordset
    Set m_permissionSet = New ADODB.Recordset
    
    Me.Height = 6450
    Me.Width = 5580
    SetToCenter Me
    Me.caption = m_employeename & "--" & "权限修改"
    ReadPermission
    
    ModifyCheckState
    
'    TreeView1.Nodes.Add , tvwLast, "1_", "基本资料 "
'    TreeView1.Nodes.Add 1, tvwChild, "2_", "商品管理 "
'    TreeView1.Nodes.Add 1, tvwChild, "3_", "零件管理 "
'    TreeView1.Nodes.Add 1, tvwChild, "4_", "产品管理 "
'    TreeView1.Nodes.Add 1, tvwChild, "5_", "供应商管理 "
'    TreeView1.Nodes.Add 1, tvwChild, "6_", "客户管理 "
'    TreeView1.Nodes.Add 1, tvwChild, "7_", "设置 "
'
'    TreeView1.Nodes.Add 7, tvwChild, "8_", "供应商类别设置 "
'    TreeView1.Nodes.Add 7, tvwChild, "9_", "客户等级设置 "
'    TreeView1.Nodes.Add 7, tvwChild, "10_", "客户来源设置 "
'    TreeView1.Nodes.Add 7, tvwChild, "11_", "产品类别设置 "
'    TreeView1.Nodes.Add 7, tvwChild, "12_", "工序设置 "
'    TreeView1.Nodes.Add 7, tvwChild, "13_", "联系目的设置 "
'    TreeView1.Nodes.Add 7, tvwChild, "14_", "联系方式设置 "
'
'    TreeView1.Nodes.Add , tvwLast, "15_", "采购管理 "
'    TreeView1.Nodes.Add 15, tvwChild, "16_", "采购订单 "
'    TreeView1.Nodes.Add 15, tvwChild, "17_", "采购入库 "
'    TreeView1.Nodes.Add 15, tvwChild, "18_", "采购退货 "
'
'    TreeView1.Nodes.Add , tvwLast, "19_", "生产管理 "
'    TreeView1.Nodes.Add 19, tvwChild, "20_", "BOM设计 "
'    TreeView1.Nodes.Add 19, tvwChild, "21_", "生产计划单 "
'    TreeView1.Nodes.Add 19, tvwChild, "22_", "生产单列表 "
'    TreeView1.Nodes.Add 19, tvwChild, "23_", "生产领料 "
'    TreeView1.Nodes.Add 19, tvwChild, "24_", "生产完工单 "
'
'    TreeView1.Nodes.Add , tvwLast, "25_", "员工管理 "
'    TreeView1.Nodes.Add 25, tvwChild, "26_", "权限设置 "
'
'    TreeView1.Nodes.Add , tvwLast, "27_", "外协管理 "
'    TreeView1.Nodes.Add 27, tvwChild, "28_", "外协列表 "
'    TreeView1.Nodes.Add 27, tvwChild, "29_", "外协发料 "
'    TreeView1.Nodes.Add 27, tvwChild, "30_", "外协收工 "
'    TreeView1.Nodes.Add 27, tvwChild, "31_", "外协返工 "
'    TreeView1.Nodes.Add 27, tvwChild, "32_", "外协索赔 "
'    TreeView1.Nodes.Add 27, tvwChild, "33_", "外协统计 "
'
'    TreeView1.Nodes.Add , tvwLast, "34_", "质检管理 "
'    TreeView1.Nodes.Add 34, tvwChild, "35_", "质量检验 "
'    TreeView1.Nodes.Add 34, tvwChild, "36_", "检验类型管理 "
'    TreeView1.Nodes.Add 34, tvwChild, "37_", "检验项管理 "
'    TreeView1.Nodes.Add 34, tvwChild, "38_", "检验值管理 "
'    TreeView1.Nodes.Add 34, tvwChild, "39_", "检验组管理 "
'
'        TreeView1.Nodes.Add 39, tvwChild, "40_", "检验项组 "
'        TreeView1.Nodes.Add 39, tvwChild, "41_", "检验值组 "
'
'
'    TreeView1.Nodes.Add , tvwLast, "42_", "仓库管理 "
'    TreeView1.Nodes.Add 42, tvwChild, "43_", "仓库资料 "
'    TreeView1.Nodes.Add 42, tvwChild, "44_", "仓库列表 "
'    TreeView1.Nodes.Add 42, tvwChild, "45_", "库位清单 "
'
'    '**********************************************************
'    TreeView1.Nodes.Add 35, tvwChild, "46_", "检验 "
'    TreeView1.Nodes.Add 35, tvwChild, "47_", "核检 "
'
'    TreeView1.Nodes.Add 19, tvwChild, "48_", "生产单修改 "
'    TreeView1.Nodes.Add 27, tvwChild, "49_", "外协单修改 "
'
'    TreeView1.Nodes.Add 4, tvwChild, "50_", "产品新增 "
'    TreeView1.Nodes.Add 4, tvwChild, "51_", "产品修改 "
'    TreeView1.Nodes.Add 4, tvwChild, "52_", "产品查询 "
'
'    TreeView1.Nodes.Add 3, tvwChild, "53_", "零件新增 "
'    TreeView1.Nodes.Add 3, tvwChild, "54_", "零件修改 "
'    TreeView1.Nodes.Add 3, tvwChild, "55_", "零件查询 "
'
'    TreeView1.Nodes.Add 2, tvwChild, "56_", "商品新增 "
'    TreeView1.Nodes.Add 2, tvwChild, "57_", "商品修改 "
'    TreeView1.Nodes.Add 2, tvwChild, "58_", "商品查询 "
'
'    TreeView1.Nodes.Add 5, tvwChild, "59_", "供应商新增 "
'    TreeView1.Nodes.Add 5, tvwChild, "60_", "供应商修改 "
'    TreeView1.Nodes.Add 5, tvwChild, "61_", "供应商查询 "
'    TreeView1.Nodes.Add 5, tvwChild, "75_", "供应商删除 "
'    TreeView1.Nodes.Add 5, tvwChild, "76_", "供应商联系人 "
'    TreeView1.Nodes.Add 5, tvwChild, "77_", "供应商跟踪 "
'
'    TreeView1.Nodes.Add 6, tvwChild, "62_", "客户新增 "
'    TreeView1.Nodes.Add 6, tvwChild, "63_", "客户修改 "
'    TreeView1.Nodes.Add 6, tvwChild, "64_", "客户查询 "
'    '***********************************************************
'    TreeView1.Nodes.Add 7, tvwChild, "65_", "零件检验方式 "
'    TreeView1.Nodes.Add 65, tvwChild, "66_", "零件检验"
'    TreeView1.Nodes.Add 65, tvwChild, "67_", "零件核检"
'    TreeView1.Nodes.Add 65, tvwChild, "68_", "零件入库"
'    TreeView1.Nodes.Add 27, tvwChild, "69_", "外协报损 "
'

End Sub
'**************************************
'*    功 能 描 述 :读出系统中的所有权限，并显示在权限树中
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Function ReadPermission()
    Dim ret As Boolean           ' 返回值
    Dim mNode As Node
    

    ReadSubPermission "", mNode
End Function
'**************************************
'*    功 能 描 述 :读出一个节点的所有子节点