车辆管理系统+vb_论文天下网

p;       MsgBox "没有符合您查询车辆的条件！", , "系统提示"
    Else
       Adodc1.RecordSource = sql
       Adodc1.Refresh
    End If
    adors.Close
    ckcp.Value = 0
    cklx.Value = 0
    ckdw.Value = 0
    ckbx.Value = 0
    ckyd.Value = 0
    ckbf.Value = 0
End Sub
Private Sub Form_Load()
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb;Persist Security Info=False"
    Call Rebind
    cmdAll.Visible = False
    cmdCha.Visible = True
    cmdOk.Enabled = False
    frmcardacha.Height = 5070
    frmcardacha.Width = 7935
   '将表里存在的所有车牌加到控件combo1里
   On Error Resume Next
   Adodc1.RecordSource = "select distinct 车牌号码 from 车辆档案"
    Do
        Combo1.AddItem Adodc1.Recordset.Fields(0)
        Adodc1.Recordset.MoveNext
    Loop Until Adodc1.Recordset.EOF
    Adodc1.Refresh
    Adodc2.RecordSource = "select distinct 车辆类型 from 车辆档案"
    Adodc2.Refresh
    Do
        Combo2.AddItem Adodc2.Recordset.Fields(0)
        Adodc2.Recordset.MoveNext
    Loop Until Adodc2.Recordset.EOF
    Adodc3.RecordSource = "select distinct 车辆所在单位 from 车辆档案"
    Adodc3.Refresh
    Do
        Combo3.AddItem Adodc3.Recordset.Fields(0)
        Adodc3.Recordset.MoveNext
    Loop Until Adodc3.Recordset.EOF
       Adodc1.RecordSource = "select * from 车辆档案"
       Adodc1.Refresh
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

        Exit Sub
    End If

    Set adors = adoCon.Execute(sql)

    If adors.EOF Then
        Call QingKong
        MsgBox "对不起，没有符合您查询条件的车辆维修记录！", , "系统提示"
    Else
       Adodc1.RecordSource = sql
       Adodc1.Refresh
    End If

    adors.Close

    ckcp.Value = 0
    cktime.Value = 0
    ckfy.Value = 0
End Sub

Private Sub cmdExit_Click()
MDIForm1.StatusBar1.Panels(1).Text = ""
Unload Me
End Sub

Private Sub Form_Load()
frmcarWXcha.Width = 6345
frmcarWXcha.Height

首页上一页 2 3 4 5 6 下一页尾页 5/6/6

车辆管理系统+vb(五)