frmrightsetting.frm

传销工资管理 请验证一下哈

         EndProperty
         BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmRightSetting.frx":032F
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmRightSetting.frx":0649
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmRightSetting.frx":0963
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmRightSetting.frx":0C7D
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmRightSetting.frx":0F97
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmRightSetting.frx":12B1
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmRightSetting.frx":15CB
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmRightSetting.frx":18E5
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmRightSetting.frx":1BFF
            Key             =   ""
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "frmRightSetting"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim Sql As String

Dim InputVar As Boolean
Dim InputStr As String

Sub LockedOrNo(InputVar)
  txtLoginName.Locked = InputVar
  txtPassword.Locked = InputVar
  cboRight.Locked = InputVar
  
  cmdFirst.Enabled = InputVar
  cmdNext.Enabled = InputVar
  cmdPrevious.Enabled = InputVar
  cmdLast.Enabled = InputVar
  
  cmdAdd.Enabled = InputVar
  cmdModify.Enabled = InputVar
  cmdDelete.Enabled = InputVar
  cmdCancel.Enabled = Not InputVar
  cmdSave.Enabled = Not InputVar
End Sub

Sub CheckValue(InputStr As String)
    Check1.Value = Mid(InputStr, 1, 1)
    Check2.Value = Mid(InputStr, 2, 1)
    Check3.Value = Mid(InputStr, 3, 1)
    Check4.Value = Mid(InputStr, 4, 1)
    Check5.Value = Mid(InputStr, 5, 1)
    Check6.Value = Mid(InputStr, 6, 1)
    Check7.Value = Mid(InputStr, 7, 1)
    Check8.Value = Mid(InputStr, 8, 1)
    Check9.Value = Mid(InputStr, 9, 1)
    Check10.Value = Mid(InputStr, 10, 1)
    Check11.Value = Mid(InputStr, 11, 1)
    Check12.Value = Mid(InputStr, 12, 1)
    Check13.Value = Mid(InputStr, 13, 1)
    Check14.Value = Mid(InputStr, 14, 1)
    Check15.Value = Mid(InputStr, 15, 1)
    Check16.Value = Mid(InputStr, 16, 1)
    Check17.Value = Mid(InputStr, 17, 1)
End Sub

Sub Initialize()
    Check1.Value = 0
    Check2.Value = 0
    Check3.Value = 0
    Check4.Value = 0
    Check5.Value = 0
    Check6.Value = 0
    Check7.Value = 0
    Check8.Value = 0
    Check9.Value = 0
    Check10.Value = 0
    Check11.Value = 0
    Check12.Value = 0
    Check13.Value = 0
    Check14.Value = 0
    Check15.Value = 0
    Check16.Value = 0
    Check17.Value = 0
End Sub

Private Sub cboRight_Click()
  If cboRight.Text <> "" Then
     Adodc2.RecordSource = "select * from 权限等级设置 where 权限等级名称= '" & cboRight.Text & "'"
     Adodc2.Refresh
     
     With Adodc2.Recordset
       InputStr = !等级管理内容
       CheckValue (InputStr)
     End With
     DataGrid1.Columns(2).Text = cboRight.Text
  Else
     Call Initialize
  End If
End Sub

Private Sub cmdAdd_Click()
On Error GoTo ErrorHandle
  InputVar = False
  LockedOrNo (InputVar)
  
  With Adodc1.Recordset
    .AddNew
    cboRight.Text = ""
  End With
  
  Call Initialize
ErrorHandle:
  Exit Sub
End Sub

Private Sub cmdCancel_Click()
  Adodc1.Refresh
  With Adodc1.Recordset
    .CancelUpdate
    .MoveFirst
    cboRight.Text = !权限等级名称
  End With
  
  Sql = "select * from 权限等级设置 where 权限等级名称 = '" & Adodc1.Recordset("权限等级名称") & "'"
  Adodc2.CommandType = adCmdText
  Adodc2.RecordSource = Sql
  Adodc2.Refresh
  
  With Adodc2.Recordset
    
    InputStr = !等级管理内容
    CheckValue (InputStr)
  End With
  
  InputVar = True
  LockedOrNo (InputVar)
End Sub

Private Sub cmdClose_Click()
  Unload Me
End Sub

Private Sub cmdDelete_Click()
On Error GoTo ErrorHandle
  If MsgBox("确认是否真的删除记录？", vbYesNo, "删除记录") = vbYes Then   ' 用户按下“是”。
     With Adodc1.Recordset
       .Delete
       DoEvents
       .MoveFirst
       Sql = "select * from 权限等级设置 where 权限等级名称 = '" & Adodc1.Recordset("权限等级名称") & "'"
       Adodc2.CommandType = adCmdText
       Adodc2.RecordSource = Sql
       Adodc2.Refresh
       cboRight.Text = !权限等级名称
     End With
     
     With Adodc2.Recordset
       InputStr = !等级管理内容
       CheckValue (InputStr)
     End With
     
     Exit Sub
  Else
     Exit Sub
  End If
ErrorHandle:
  Exit Sub
End Sub

Private Sub cmdFirst_Click()
On Error GoTo ErrorHandle
  With Adodc1.Recordset
    .MoveFirst
    cboRight.Text = !权限等级名称
  End With
  
  Sql = "select * from 权限等级设置 where 权限等级名称 = '" & Adodc1.Recordset("权限等级名称") & "'"
  Adodc2.CommandType = adCmdText
  Adodc2.RecordSource = Sql
  Adodc2.Refresh
  
  With Adodc2.Recordset
    InputStr = !等级管理内容
    CheckValue (InputStr)
  End With
  Exit Sub
ErrorHandle:
  Exit Sub
End Sub

Private Sub cmdLast_Click()
On Error GoTo ErrorHandle
  With Adodc1.Recordset
    .MoveLast
    cboRight.Text = !权限等级名称
  End With
  
  Sql = "select * from 权限等级设置 where 权限等级名称 = '" & Adodc1.Recordset("权限等级名称") & "'"
  Adodc2.CommandType = adCmdText
  Adodc2.RecordSource = Sql
  Adodc2.Refresh
  If Adodc2.Recordset.RecordCount = 0 Then
     Call Initialize
     cboRight.Text = ""
     Exit Sub
  End If
  'adodc2.Refresh
  
  With Adodc2.Recordset
    InputStr = !等级管理内容
    CheckValue (InputStr)
  End With
  Exit Sub
ErrorHandle:
  Exit Sub
End Sub

Private Sub cmdModify_Click()
  InputVar = False
  LockedOrNo (InputVar)
End Sub

Private Sub cmdNext_Click()
On Error GoTo ErrorHandle
  With Adodc1.Recordset
    .MoveNext
    If .EOF Then
       .MovePrevious
    End If
    cboRight.Text = !权限等级名称
  End With
  
  Sql = "select * from 权限等级设置 where 权限等级名称 = '" & Adodc1.Recordset("权限等级名称") & "'"
  Adodc2.RecordSource = Sql
  Adodc2.Refresh
  
  With Adodc2.Recordset
    InputStr = !等级管理内容
    CheckValue (InputStr)
  End With
  Exit Sub
ErrorHandle:
  Exit Sub
End Sub

Private Sub cmdPrevious_Click()
On Error GoTo ErrorHandle
  With Adodc1.Recordset
    .MovePrevious
    If .BOF Then
       .MoveNext
    End If
    cboRight.Text = !权限等级名称
  End With
  
  Sql = "select * from 权限等级设置 where 权限等级名称 = '" & Adodc1.Recordset("权限等级名称") & "'"
  Adodc2.CommandType = adCmdText
  Adodc2.RecordSource = Sql
  Adodc2.Refresh
  
  With Adodc2.Recordset
    InputStr = !等级管理内容
    CheckValue (InputStr)
  End With
  Exit Sub
ErrorHandle:
  Exit Sub
End Sub

Private Sub cmdRightLevel_Click()
  frmRightLevel.Show 1
End Sub

Private Sub cmdSave_Click()
On Error GoTo ErrorHandle
  If cboRight.Text = "" Then
     MsgBox "请选择权限等级名称！"
     Exit Sub
  End If
  
  With Adodc1.Recordset
    !登录名 = txtLoginName.Text
    !密码 = txtPassword.Text
    !权限等级名称 = cboRight.Text
    .Update
    
    .MoveFirst
    Sql = "select * from 权限等级设置 where 权限等级名称 = '" & Adodc1.Recordset("权限等级名称") & "'"
    Adodc2.CommandType = adCmdText
    Adodc2.RecordSource = Sql
    Adodc2.Refresh
    cboRight.Text = !权限等级名称
  End With
  
  InputVar = True
  LockedOrNo (InputVar)
  Exit Sub
ErrorHandle:
  Exit Sub
End Sub

Private Sub Form_Load()
  With Adodc2.Recordset
    cboRight.Clear
    .MoveFirst
    Do While Not .EOF
       cboRight.AddItem !权限等级名称
       .MoveNext
    Loop
  End With
      
  Adodc1.Recordset.MoveFirst
  cboRight.Text = Adodc1.Recordset("权限等级名称")
  
  Sql = "select * from 权限等级设置 where 权限等级名称 = '" & Adodc1.Recordset("权限等级名称") & "'"
  Adodc2.CommandType = adCmdText
  Adodc2.RecordSource = Sql
  Adodc2.Refresh
  
  With Adodc2.Recordset
    InputStr = !等级管理内容
    CheckValue (InputStr)
  End With
  
  InputVar = True
  LockedOrNo (InputVar)
  DataGrid1.Enabled = False
  Frame4.Enabled = Not InputVar
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
  Select Case Button.Key
  Case "AddNew"
    cmdAdd_Click
  Case "Modify"
    cmdModify_Click
  Case "Save"
    cmdSave_Click
  Case "Delete"
    cmdDelete_Click
  Case "Cancel"
    cmdCancel_Click
  Case "First"
    cmdFirst_Click
  Case "Next"
    cmdNext_Click
  Case "Previous"
    cmdPrevious_Click
  Case "Last"
    cmdLast_Click
  Case "Close"
    cmdClose_Click
  End Select
End Sub