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

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

2013-05-10 01:02 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 车辆档案"

（转载自中国科教评价网http://www.nseac.com）

    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