车辆管理系统毕业论文正稿

.. .. .. ..

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 参考.资料