评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

车辆管理系统+vb(一)毕业论文网(6)

2013-05-10 01:02 = 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