frmrightlevel.frm

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

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

Dim InputStr As String
Dim InputVar As Boolean
Dim SaveOrNo As Boolean

Sub LockedOrNo(InputVar)
  Text1.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
  
  Frame4.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 cmdAdd_Click()
On Error GoTo ErrorHandle
  InputVar = False
  LockedOrNo (InputVar)
  
  With Adodc1.Recordset
    .AddNew
  End With
  Call Initialize
  
ErrorHandle:
  Exit Sub
End Sub

Private Sub cmdCancel_Click()
  Adodc1.Refresh
    
  With Adodc1.Recordset
    .CancelUpdate
    .MoveFirst
    
    InputStr = !等级管理内容
    CheckValue (InputStr)
  End With
  
  InputVar = True
  LockedOrNo (InputVar)
End Sub

Private Sub cmdClose_Click()
  If SaveOrNo = True Then
     frmRightSetting.cboRight.Clear
     With Adodc1.Recordset
       .MoveFirst
       Do While Not .EOF
          frmRightSetting.cboRight.AddItem !权限等级名称
          .MoveNext
       Loop
     End With
     Adodc1.RecordSource = "select * from 权限设置 where 登录名= '" & Trim(frmRightSetting.txtLoginName.Text) & "'"
     Adodc1.Refresh
     frmRightSetting.cboRight.Text = Adodc1.Recordset("权限等级名称")
  End If
  
  Unload Me
End Sub

Private Sub cmdDelete_Click()
On Error GoTo ErrorHandle
  If MsgBox("确认是否真的删除记录？", vbYesNo, "删除记录") = vbYes Then
     With Adodc1.Recordset
       .Delete
       DoEvents
       If .RecordCount = 0 Then
          Text1.Text = ""
          cmdFirst.Enabled = False
          cmdNext.Enabled = False
          cmdPrevious.Enabled = False
          cmdLast.Enabled = False
       
          cmdModify.Enabled = False
          cmdDelete.Enabled = False
          cmdCancel.Enabled = False
          cmdSave.Enabled = False
       
          Call Initialize
       
          Exit Sub
       Else
          .MoveFirst
       
          InputStr = !等级管理内容
          CheckValue (InputStr)
       End If
     End With
  Else
     Exit Sub
  End If
ErrorHandle:
  Exit Sub
End Sub

Private Sub cmdFirst_Click()
On Error GoTo ErrorHandle
  With Adodc1.Recordset
    .MoveFirst
    InputStr = !等级管理内容
    CheckValue (InputStr)
  End With
ErrorHandle:
  Exit Sub
End Sub

Private Sub cmdLast_Click()
On Error GoTo ErrorHandle
  With Adodc1.Recordset
    .MoveLast
    InputStr = !等级管理内容
    CheckValue (InputStr)
  End With
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 = True Then
       .MovePrevious
    End If
    
    InputStr = !等级管理内容
    CheckValue (InputStr)
  End With
ErrorHandle:
  Exit Sub
End Sub

Private Sub cmdPrevious_Click()
On Error GoTo ErrorHandle
  With Adodc1.Recordset
    .MovePrevious
    If .BOF Then
       .MoveNext
    End If
    InputStr = !等级管理内容
    CheckValue (InputStr)
  End With
ErrorHandle:
  Exit Sub
End Sub

Private Sub cmdSave_Click()
  With Adodc1.Recordset
    !等级管理内容 = Check1.Value & Check2.Value & Check3.Value & Check4.Value & _
                    Check5.Value & Check6.Value & Check7.Value & Check8.Value & _
                    Check9.Value & Check10.Value & Check11.Value & Check12.Value & _
                    Check13.Value & Check14.Value & Check15.Value & Check16.Value & _
                    Check17.Value
    .Update
  End With
  
  SaveOrNo = True
  InputVar = True
  LockedOrNo (InputVar)
End Sub

Private Sub Form_Load()
  InputVar = True
  SaveOrNo = False
  
  LockedOrNo (InputVar)
  
  DataGrid1.Enabled = False
  
  With Adodc1.Recordset
    If Adodc1.Recordset.RecordCount = 0 Then
       Text1.Text = ""
       cmdFirst.Enabled = False
       cmdNext.Enabled = False
       cmdPrevious.Enabled = False
       cmdLast.Enabled = False
       
       cmdModify.Enabled = False
       cmdDelete.Enabled = False
       cmdCancel.Enabled = False
       cmdSave.Enabled = False
       
       Call Initialize
    Else
       .MoveFirst
       InputStr = !等级管理内容
       CheckValue (InputStr)
    End If
  End With
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