loading.. .. .. ..
Public Property Let loginID(ByVal vNewValue As String) loginID1 = vNewValue End Property
Public Property Get loginPWD() As String loginPWD = loginPWD1 End Property
Public Property Let loginPWD(ByVal vNewValue As String) loginPWD1 = vNewValue End Property
Public Property Get userName() As String userName = userName1 End Property
Public Property Let userName(ByVal vNewValue As String) userName1 = vNewValue End Property
Public Property Get sex() As String sex = sex1 End Property
Public Property Let sex(ByVal vNewValue As String) sex1 = vNewValue End Property
Public Property Get age() As String age = age1 End Property 参考.资料
.. .. .. ..
Public Property Let age(ByVal vNewValue As String) age1 = vNewValue End Property
Public Property Get idCard() As String idCard = idCard1 End Property
Public Property Let idCard(ByVal vNewValue As String) idCard1 = vNewValue End Property
1.3附录C：
Public cmd As String Public logId As String Public authId As Integer
Private Sub Command1_Click() Dim uv As New vo.userVO uv.userName = Me.Text1 uv.loginId = Me.Text2 uv.loginPWD = Me.Text3 uv.sex = Me.Combo1.Text uv.age = Me.Text4 uv.idCard = Me.Text5
uv.authId = Me.Combo2.ListIndex If uv.authId < 1 Then uv.authId = Me.authId End If
参考.资料
.. .. .. ..
If Me.cmd = \ Call add(uv)
ElseIf Me.cmd = \ Call update(uv) End If
Unload userInfo End Sub
Private Sub add(uv As userVO) '调用添加 Dim man As New bll.manager Dim flag As Integer flag = man.addUser(uv) If flag = 1 Then MsgBox \添加成功\ ElseIf flag = 0 Then MsgBox \用户已存在\ Else
MsgBox \添加失败\ End If End Sub
Private Sub update(uv As userVO) '调用修改 Dim man As New bll.manager If man.updateUser(uv) Then MsgBox \修改成功\ Else
MsgBox \修改失败\ End If End Sub
Private Sub Command2_Click() 参考.资料
.. .. .. ..
Unload userInfo End Sub
Private Sub Form_Load() '窗体启动加载菜单 Dim rs As New ADODB.Recordset Dim man As New bll.manager Dim log As New bll.login Dim uv As New vo.userVO Dim i As Integer i = 0
Set rs = man.getAuth While rs.EOF = False Me.Combo2.AddItem rs(1), i i = i + 1
Me.Combo2.Text = rs(1) rs.MoveNext Wend
If Me.cmd = \判断是否是修改窗口 Set uv = log.getUser(Me.logId) Me.Text1 = uv.userName Me.Text2 = uv.loginId Me.Text3 = uv.loginPWD Me.Text4 = uv.age Me.Text5 = uv.idCard Me.Combo1.Text = uv.sex
Me.Combo2.Text = man.getOneAuth(uv.authId).authType Me.authId = uv.authId Me.Text2.Enabled = False End If 参考.资料