Private Sub cmdExit_Click()

    MDIForm1.StatusBar1.Panels(1).Text = ""

    Unload Me

End Sub

 

Private Sub Form_Load()

    frmcarWXcha.Width = 6345

    frmcarWXcha.Height = 4395

    Call Rebind

   'add all cp in the table carWX

    Set adors = adoCon.Execute("select distinct 车牌号码 from 车辆维修表")

    On Error Resume Next

    Do

        cmcp.AddItem adors.Fields(0)

        adors.MoveNext

    Loop Until adors.EOF

    adors.Close

End Sub

 

Private Sub Rebind()

    Frame2.Caption = "车辆维修列表"

    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb;Persist Security Info=False"

    Adodc1.RecordSource = "select * from 车辆维修表"

    Adodc1.Refresh

End Sub

 

Private Sub QingKong()

    Frame2.Caption = "您所要查询的车辆维修记录如下："

    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb;Persist Security Info=False"

    Adodc1.RecordSource = "select * from 车辆维修表 where 1=0"

    Adodc1.Refresh

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

    cmdExit_Click

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

结束语

 

本软件的设计目的是为车管人员方便管理机动车与驾驶员信息提供方便。通过这几个月的毕业设计，我学到很多以前没有学到的visual basic开发技术，在软件工程学上更是取得了很大的进步。经过大量的测试和试用，作者深信本软件达到了方便和实用的设计目的，并在软件界面和易用实用等方面有着独到之处。

虽然软件基本达到设计要求并且达到同行的先进水平，但由于作者水平有限，软件存在bug也是在所难免的 ，您的意见和建议将极大的帮助我改进并完善软件。真诚的希望你的参与。