frmuserset.frm

VB税控的源代码 主要用于地方税务局的税控引用 有完整的控件和代码

VERSION 5.00
Begin VB.Form frmUserSet 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "用户设置"
   ClientHeight    =   2640
   ClientLeft      =   45
   ClientTop       =   270
   ClientWidth     =   5715
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   9
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2640
   ScaleWidth      =   5715
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame2 
      Caption         =   "权限设置"
      Height          =   1785
      Left            =   3960
      TabIndex        =   12
      Top             =   120
      Width           =   1545
      Begin VB.CheckBox chkPower 
         Caption         =   "浏览发票"
         Height          =   315
         Index           =   3
         Left            =   210
         TabIndex        =   16
         Top             =   1230
         Width           =   1245
      End
      Begin VB.CheckBox chkPower 
         Caption         =   "开发票"
         Height          =   315
         Index           =   2
         Left            =   210
         TabIndex        =   15
         Top             =   900
         Width           =   1245
      End
      Begin VB.CheckBox chkPower 
         Caption         =   "删除数据"
         Height          =   315
         Index           =   1
         Left            =   210
         TabIndex        =   14
         Top             =   570
         Width           =   1245
      End
      Begin VB.CheckBox chkPower 
         Caption         =   "数据上报"
         Height          =   315
         Index           =   0
         Left            =   210
         TabIndex        =   13
         Top             =   240
         Width           =   1245
      End
   End
   Begin VB.CommandButton cmdDelete 
      Caption         =   "删除(&D)"
      Height          =   375
      Left            =   1800
      TabIndex        =   11
      Top             =   2100
      Visible         =   0   'False
      Width           =   1065
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "确定(&O)"
      Default         =   -1  'True
      Height          =   375
      Left            =   3030
      TabIndex        =   4
      Top             =   2100
      Width           =   1155
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "退出(&C)"
      Height          =   375
      Left            =   4350
      TabIndex        =   5
      Top             =   2100
      Width           =   1155
   End
   Begin VB.Frame Frame1 
      Caption         =   "用户信息"
      Height          =   1785
      Left            =   150
      TabIndex        =   1
      Top             =   90
      Width           =   3645
      Begin VB.ComboBox cboUserID 
         Height          =   300
         Left            =   1110
         TabIndex        =   0
         Top             =   210
         Width           =   2325
      End
      Begin VB.TextBox txtPwd 
         Height          =   280
         IMEMode         =   3  'DISABLE
         Left            =   1125
         MaxLength       =   20
         PasswordChar    =   "*"
         TabIndex        =   6
         Top             =   915
         Width           =   2295
      End
      Begin VB.TextBox txtNextPwd 
         Height          =   280
         IMEMode         =   3  'DISABLE
         Left            =   1125
         MaxLength       =   20
         PasswordChar    =   "*"
         TabIndex        =   3
         Top             =   1260
         Width           =   2295
      End
      Begin VB.TextBox txtUserName 
         Height          =   280
         Left            =   1125
         MaxLength       =   50
         TabIndex        =   2
         Top             =   570
         Width           =   2295
      End
      Begin VB.Label lblU_Name 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "名    称："
         Height          =   180
         Left            =   180
         TabIndex        =   10
         Top             =   630
         Width           =   900
      End
      Begin VB.Label lblPrePwd 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "密    码："
         Height          =   180
         Left            =   180
         TabIndex        =   9
         Top             =   960
         Width           =   900
      End
      Begin VB.Label lblNextPwd 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "确认密码："
         Height          =   180
         Left            =   180
         TabIndex        =   8
         Top             =   1290
         Width           =   900
      End
      Begin VB.Label lblU_ID 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "用户代号："
         Height          =   180
         Left            =   180
         TabIndex        =   7
         Top             =   300
         Width           =   900
      End
   End
End
Attribute VB_Name = "frmUserSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cboUserID_Click()
    
    If bGetUserInfo(cboUserID.Text) = False Then Exit Sub
    If gsUserID = "isa" And cboUserID.Text <> "isa" Then
        cmdDelete.Enabled = True
        txtUserName.Enabled = False
        txtPwd.Enabled = False
        txtPwd.Enabled = False
        Frame2.Enabled = True
    Else
        cmdDelete.Enabled = False
        txtUserName.Enabled = True
        txtPwd.Enabled = True
        txtPwd.Enabled = True
        Frame2.Enabled = False
    End If
    
    
    cboUserID.Tag = cboUserID.Text
End Sub

Private Sub chkPower_Click(Index As Integer)
   DealPower Index
End Sub

Private Sub DealPower(ByVal vIndex As Integer)
     If vIndex = 0 Then
        If chkPower(0).Value = 1 Then
            chkPower(1).Value = 1
            chkPower(1).Enabled = False
            chkPower(2).Value = 1
            chkPower(2).Enabled = False
            chkPower(3).Value = 1
            chkPower(3).Enabled = False
        Else
            chkPower(1).Value = 0
            chkPower(1).Enabled = True
            chkPower(2).Value = 0
            chkPower(2).Enabled = True
            chkPower(3).Value = 0
            chkPower(3).Enabled = True
        End If
        
    ElseIf vIndex = 1 Then
        If chkPower(1).Value = 1 Then
            
            chkPower(2).Value = 1
            chkPower(2).Enabled = False
            chkPower(3).Value = 1
            chkPower(3).Enabled = False
        Else
            chkPower(2).Value = 0
            chkPower(2).Enabled = True
            chkPower(3).Value = 0
            chkPower(3).Enabled = True
        End If
    ElseIf vIndex = 2 Then
        If chkPower(2).Value = 1 Then
            chkPower(3).Value = 1
            chkPower(3).Enabled = False
        Else
            chkPower(3).Value = 0
            chkPower(3).Enabled = True
        End If
    Else
    
    End If
End Sub

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdDelete_Click()
    DeleteUser (Trim(cboUserID.Text))                           '''删除用户
    
    If bGetUserInfo(gsUserID) = False Then Exit Sub             '''加载用户信息
    MsgBox "已经删除了用户'" + cboUserID.Text + "',请确认!", _
                       vbOKOnly + vbInformation, "提示信息"
    
    If cboUserID.ListIndex <> -1 Then
        cboUserID.RemoveItem cboUserID.ListIndex
    End If
    cboUserID.Text = "isa"
    txtUserName.Enabled = True
    txtPwd.Enabled = True
    txtPwd.Enabled = True
    
    SaveFileInfo                               '''保存日期
End Sub

'删除用户
Private Sub DeleteUser(vsUserid As String)
    Dim StrSQL As String
    
    StrSQL = "delete from is_user where userid ='" + vsUserid + "'"
    gConn.Execute (StrSQL)
    
End Sub

'操作用户
Private Sub cmdOK_Click()