clsusermanage.cls

来自「基于vbasic开发」· CLS 代码 · 共 88 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ClsUserManage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True


Public Sub yngc_mnuAddUser()
   
   yngc_frmAddUser.Show vbModal
   yngc_frmAddUser.Caption = "新添用户"
   yngc_frmAddUser.Frame2.Caption = "新添用户"
    yngc_frmAddUser.Label5.Caption = "输入用户ID："
   yngc_frmAddUser.Label1.Caption = "输入用户名："
   yngc_frmAddUser.Label2.Caption = "输入密码："
   '记录用户的操作
   'Call clsConnect.yngc_fnGetOperation(yngc_mnuAddUser.Caption)
   'MsgBox g_strUserOperation
   '***********************************************************
    '调节按钮位置，可见与否
'   yngc_frmAddUser.yngc_btnCreateUser.Left = 480
'   yngc_frmAddUser.yngc_btnCreateUser.Top = 360
'   yngc_frmAddUser.yngc_btnCancal.Left = 2520
'   yngc_frmAddUser.yngc_btnCancal.Top = 360
'   yngc_frmAddUser.Height = 7728
'   yngc_frmAddUser.Width = 4884
'   yngc_frmAddUser.Frame3.Top = 6240
'   yngc_frmAddUser.yngc_btnConfirm.Visible = False
'   yngc_frmAddUser.yngc_btnDelUser.Visible = False
'   yngc_frmAddUser.yngc_txtUserName.Visible = True
'   yngc_frmAddUser.yngc_txtFirstPwd.Visible = False
'   yngc_frmAddUser.Frame2.Visible = True
'   yngc_frmAddUser.yngc_txtUserId.Visible = True
'   yngc_frmAddUser.yngc_txtUserPwd.Top = 1437
'   yngc_frmAddUser.yngc_txtConfirmPwd.Top = 2037
'   yngc_frmAddUser.yngc_btnCreateUser.Visible = True
'   yngc_frmAddUser.Frame2.Height = 3252
'   yngc_frmAddUser.Frame2.Top = 2760
'   yngc_frmAddUser.Frame3.Top = 6120
'   yngc_frmAddUser.Frame1.Visible = True
   '***********************************************************
   
   
End Sub
'用户更改口令
Public Sub yngc_mnuChangePwd()
   
   frmChangePwd.Show vbModal
   
End Sub

'删除用户
Public Sub yngc_mnuDelUser()
   
   yngc_frmAddUser.Frame1.Visible = True
   yngc_frmAddUser.Caption = "删除用户"
   yngc_frmAddUser.Height = 4300
   yngc_frmAddUser.Width = 4884
   yngc_frmAddUser.yngc_btnDelUser.Left = 480
   yngc_frmAddUser.yngc_btnDelUser.Top = 260
   yngc_frmAddUser.yngc_btnCancal.Left = 2520
   yngc_frmAddUser.yngc_btnCancal.Top = 260
   yngc_frmAddUser.yngc_btnConfirm.Visible = False
   yngc_frmAddUser.yngc_btnCreateUser.Visible = False
   yngc_frmAddUser.yngc_btnDelUser.Visible = True
   yngc_frmAddUser.Frame2.Visible = False
   yngc_frmAddUser.Frame3.Top = 2660
   
   yngc_frmAddUser.Show vbModal
   
   '***********************************************************
End Sub
Public Sub yngc_subShowForm()
    yngc_frmAddUser.Show vbModal
End Sub

Public Property Set Connect(pConn As connectDataBase.connectdata)
    Set g_clsConnect = pConn
End Property