frm_private.frm

一个公司的客户财产管理系统vb源码

VERSION 5.00
Begin VB.Form Frm_Private 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "权限级别设置"
   ClientHeight    =   3420
   ClientLeft      =   4260
   ClientTop       =   4470
   ClientWidth     =   7080
   Icon            =   "Frm_Private.frx":0000
   LinkTopic       =   "Form2"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3420
   ScaleWidth      =   7080
   Begin VB.CommandButton Cmd_Close 
      Caption         =   "关闭(&O)"
      Height          =   375
      Left            =   5160
      TabIndex        =   9
      Top             =   2880
      Width           =   1095
   End
   Begin VB.CommandButton Cmd_OK 
      Caption         =   "确认(&K)"
      Height          =   375
      Left            =   3720
      TabIndex        =   8
      Top             =   2880
      Width           =   1215
   End
   Begin VB.ComboBox Cob_Private_Level 
      Height          =   300
      ItemData        =   "Frm_Private.frx":0CCA
      Left            =   1815
      List            =   "Frm_Private.frx":0CCC
      Style           =   2  'Dropdown List
      TabIndex        =   7
      Top             =   1680
      Width           =   4815
   End
   Begin VB.TextBox Txt_fields 
      Height          =   300
      Index           =   0
      Left            =   1830
      TabIndex        =   2
      Text            =   "Text1"
      Top             =   240
      Width           =   4815
   End
   Begin VB.TextBox Txt_fields 
      Height          =   300
      Index           =   1
      Left            =   1830
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   660
      Width           =   4815
   End
   Begin VB.TextBox Txt_fields 
      Height          =   300
      Index           =   2
      Left            =   1830
      TabIndex        =   0
      Text            =   "Text1"
      Top             =   1140
      Width           =   4815
   End
   Begin VB.Label Label5 
      Caption         =   "1、具有最高权限（能够进行任何操作）  2、部长级权限  3、主管级权限4、班长级权限   5、操作员级权限      0、超级权限"
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   480
      TabIndex        =   10
      Top             =   2160
      Width           =   5895
   End
   Begin VB.Line Line2 
      BorderColor     =   &H00FFFFFF&
      X1              =   120
      X2              =   6960
      Y1              =   2640
      Y2              =   2640
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "权限级别(&L)："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   180
      Left            =   450
      TabIndex        =   6
      Top             =   1680
      Width           =   1290
   End
   Begin VB.Line Line1 
      BorderColor     =   &H000000FF&
      X1              =   120
      X2              =   6960
      Y1              =   1560
      Y2              =   1560
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "描述(&D)："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   180
      Left            =   435
      TabIndex        =   5
      Top             =   1200
      Width           =   900
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "全名(&F)："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   180
      Left            =   435
      TabIndex        =   4
      Top             =   720
      Width           =   900
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "用户名(&U)："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   180
      Left            =   435
      TabIndex        =   3
      Top             =   300
      Width           =   1095
   End
End
Attribute VB_Name = "Frm_Private"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Cmd_Close_Click()
    Unload Me
End Sub

Private Sub cmd_OK_Click()
On Error GoTo err

    Rs_Common!权限级别 = Me.Cob_Private_Level.text
    Rs_Common.Update
    MsgBox "设置成功!"
    Unload Me
 
Exit Sub
err:
  MsgBox err.Description, vbCritical
End Sub

Private Sub Form_Load()
On Error GoTo err
    For i = 0 To 2
      Me.txt_Fields(i).Enabled = False
    Next i
    For i = Val(OperatorLevel) + 1 To 5
      Me.Cob_Private_Level.AddItem i
    Next
    Me.Cob_Private_Level.text = "5"
'
    If IsNull(Rs_Common!用户名) = False Then Me.txt_Fields(0).text = Rs_Common!用户名 Else Me.txt_Fields(0).text = ""
    If IsNull(Rs_Common!全名) = False Then Me.txt_Fields(1).text = Rs_Common!全名 Else Me.txt_Fields(1).text = ""
    If IsNull(Rs_Common!描述) = False Then Me.txt_Fields(2).text = Rs_Common!描述 Else Me.txt_Fields(2).text = ""
    If IsNull(Rs_Common!权限级别) = False Then Me.Cob_Private_Level.text = Rs_Common!权限级别 Else Me.Cob_Private_Level.text = ""

Exit Sub
err:
  MsgBox err.Description, vbCritical
End Sub