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

.. .. .. ..

致 谢

近半年的时间我度过了繁忙的实习时间，本次的毕业设计在利用工作的课外时间也接近完成。正在这段时间的首要感谢导师对我的督促与教导以及同学的支持和帮助，使得我能较为顺利的完成这次毕业设计。由于对课题认识的经验不足，在设计中在所难免都会有缺陷的方面，希望老师能谅解，并且督导我予以改正。

在这里首先要感谢我的导师程登良老师。程老师由于教学工作的问题，日程繁忙，工作繁琐，但在我做设计的每个阶段，程老师都会耐心的辅导我，并指出我设计的问题，帮助我开拓进取，明晰课题，极大的提升了我的完成效率。程老师一丝不苟的作风，严谨的科学观，积极的治学精神，激励着我的日常学习与工作。在此谨向程老师致以诚挚的谢意和崇高的敬意。

回首四年，取得的一些成绩，生活中有快乐也有艰辛。在此，我还要感谢学校教导过我的每一位老师，是你们为我打下了牢固的知识基础。同时同学们的关心、支持，也是我是我在克服难关的道路上的支撑杆，正因为有你们的帮助，才会有让我能顺利的完成每一项任务。最后由衷的感谢湖北汽车工业学院科技学院对我四年来的培养。

即将结束在此学习的生活，相信等待我的是一片充满机遇、风险与快乐的土地；也相信我和同仁们的事业必将如涅磐之凤、浴火之凰；更加相信，不朽的民族精神终将引领我们创造新的奇迹！

参考.资料

.. .. .. ..

附 录

1.1附录A：

Private Sub MDIForm_Load()

Me.StatusBar1.Panels(1).Text = \操作员：\ If Me.uv.authId = 1 Then Me.reqInfo.Enabled = True Me.addrequest.Enabled = True

ElseIf Me.uv.authId = 2 Then Me.reqInfo.Enabled = True Me.addrequest.Enabled = False

ElseIf Me.uv.authId = 3 Then Me.addrequest.Enabled = True Me.reqInfo.Enabled = False Else

Me.reqInfo.Enabled = False Me.addrequest.Enabled = False End If End Sub

参考.资料

.. .. .. ..

Private Sub MDIForm_Resize() main.Width = 10005 main.Height = 6630 End Sub

Private Sub Timer1_Timer()

Me.StatusBar1.Panels(3).Text = Now End Sub

Private Sub quit_Click() login.Show Unload main End Sub

Private Sub exit_Click() Unload Me End Sub

Private Sub help_Click() MsgBox \请直接问本人\End Sub

1.2附录B：

Private userId1 As Integer Private authId1 As Integer Private authType1 As String Private loginID1 As String Private loginPWD1 As String Private userName1 As String Private sex1 As String Private age1 As String

参考.资料

.. .. .. ..

Private idCard1 As String

Public Property Get userId() As Integer '获取一个属性的值 userId = userId1 End Property

Public Property Let userId(ByVal vNewValue As Integer) '给一个属性赋值 userId1 = vNewValue End Property

Public Property Get authId() As Integer authId = authId1 End Property

Public Property Let authId(ByVal vNewValue As Integer) authId1 = vNewValue End Property

Public Property Get authType() As String authType = authType1 End Property

Public Property Let authType(ByVal vNewValue As String) authType1 = vNewValue End Property

Public Property Get loginID() As String loginID = loginID1 End Property

参考.资料