VB侯奕樂車輛管理系統(tǒng)

1、課程設(shè)計(jì)課題 車輛管理系統(tǒng) 班級(jí) 信管0802 學(xué)號(hào) 08300530230 姓名 侯奕樂 時(shí)間 2010.12.06 目錄摘要1Abstract2 第一章引言411課題背景412系統(tǒng)簡介5第2章 系統(tǒng)的分析621系統(tǒng)開發(fā)的目標(biāo)和思想622系統(tǒng)的可行性分析8第3章 系統(tǒng)的設(shè)計(jì)1331系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì)1532系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì)1833界面設(shè)計(jì)與代碼設(shè)計(jì)19結(jié)束語23致謝23參考文獻(xiàn)摘要 車輛管理系統(tǒng)用計(jì)算機(jī)管理機(jī)動(dòng)車輛的檔案,運(yùn)營管理以及駕駛員信息的一 種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新,在計(jì)算機(jī)還未普及之前車輛管理都是由工作人員手工 抄寫的方式來操作的.現(xiàn)在一般的車輛管理都是采用計(jì)算機(jī)作為工具的實(shí)用的計(jì)

2、算機(jī)智能化車輛管理程序來幫助工作人員進(jìn)行更有效的機(jī)動(dòng)車輛管理。車輛管理 系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以 及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、 數(shù)據(jù)安全性好的庫。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。經(jīng)過分析,我們使用 MICROSOFT 公司的 VISUAL BASIC 開發(fā)工具,利用其提供 的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智 能化對(duì)象,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對(duì)初始原型系統(tǒng)進(jìn)行需求迭 代,不斷修正和改進(jìn),直到形成用戶滿意的可行系統(tǒng)。 關(guān)鍵字:評(píng)語管理,MI

3、S,visual basic ,數(shù)據(jù)庫AbstractVehicle Management System Computer used motor vehicles archives management, operation and management of a driver information computer applications innovation, Management h before the vehicles are from the staff manual transcription to operate.Now the general management of

4、the vehicles are used as a tool for computer computer intelligent vehicle management procedures to help staff more effective management of motor vehicles. Vehicle management system is a typical management information system (MIS), including its main development background to the establishment and ma

5、intenance of the database and front-end application development 2. The request for the establishment of strong data consistency and integrity, good for the security of the data. For the latter request applications functions, such as easy to use features.After analysis, we use Microsoft visual basic

6、development tool companies, the use of its various object-oriented development tools, especially data that can be easily accessible and concise window manipulation database intelligent objects, the first prototype application system in a short time and then, computation of the initial prototype syst

7、em needs to constantly revise and improve until the formation of a viable system of user satisfaction.keyword : comments management MIS,visual basic database as not yet popular in the computer第一章 引言1.1 課題背景 車輛管理系統(tǒng)用計(jì)算機(jī)管理機(jī)動(dòng)車輛的檔案,運(yùn)營管理以及駕駛員信息的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新,在計(jì)算機(jī)還未普及之前車輛管 理都是由工作人員手工抄寫的方式來操作的.現(xiàn)在一般的車輛管理都是采用計(jì)

8、算機(jī)作為工具的實(shí)用的計(jì)算機(jī)智能化車輛管理程序來幫助工作人員進(jìn)行更有效的機(jī)動(dòng)車輛管理。車輛管理系統(tǒng)是典型的信息管 理系統(tǒng)(MIS),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng) 用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性 強(qiáng)、數(shù)據(jù)安全性好的庫。而對(duì)于后者則要求應(yīng)用程序功能完備,易使 用等特點(diǎn)。1.2 系統(tǒng)簡介 本系統(tǒng)主要服務(wù)于車管所工作人員管理轄區(qū)機(jī)動(dòng)車輛,以及駕駛員相關(guān)信息,本系統(tǒng)由以下幾大功能模塊構(gòu)成. 一:車輛檔案管理(車輛檔案建立,車輛檔案查詢,車輛檔案刪 除,車輛檔案變更查詢等.) 二:車輛運(yùn)營管理(車輛運(yùn)營表,車輛運(yùn)營查詢,清空車輛運(yùn)營 表)三:車輛管理(車輛維修管

9、理,車輛報(bào)廢管理等) 四:駕駛員管理(駕駛員檔案管理,駕駛員檔案查詢等) 五:系統(tǒng)維護(hù)(系統(tǒng)備份,系統(tǒng)還原,系統(tǒng)檢查)第二章 系統(tǒng)的分析2.1 系統(tǒng)開發(fā)的目標(biāo)和思想 本系統(tǒng)主要服務(wù)于機(jī)動(dòng)車管理人員的日常工作.利用本系統(tǒng)可以 方便的監(jiān)控管理本區(qū)域的駕駛員信息.在此基礎(chǔ)上力求軟件界面人性 化以及操作簡單,程序具有健壯性等。2.2系統(tǒng)的可行性析 技術(shù)上:本系統(tǒng)采用 visual basic 6.0 與微軟的 access 作為數(shù) 據(jù)庫,技術(shù)上開發(fā)難度一般. 經(jīng)濟(jì)上:本系統(tǒng)服務(wù)于車輛管理人員,提高了車管工作者辦事效率,節(jié)省了開支.所以具有經(jīng)濟(jì)上的可行性.社會(huì)上:本系統(tǒng)同時(shí)也方便了廣大駕駛員，所以具有社

10、會(huì)可行性.第三章 系統(tǒng)的設(shè)計(jì)31系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì)車輛管理系統(tǒng)車輛調(diào)度管理車輛費(fèi)用管理駕駛員檔案管理車輛檔案管理駕駛員信息錄入駕駛員信息查詢車輛信息查詢車輛信息錄入車輛費(fèi)用錄入車輛費(fèi)用查詢車輛出車回車車輛狀態(tài)查詢32系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì)1.車輛報(bào)廢表：2. 車輛檔案表:3.車輛事故表:4.車輛違規(guī)表:5.車輛維修表:6.車輛變更表:7.車輛運(yùn)營表:8.駕駛員檔案9.獎(jiǎng)懲表:10.零件表:11.用戶表:33界面設(shè)計(jì)與代碼設(shè)計(jì)1.登陸界面設(shè)計(jì)：登陸界面代碼設(shè)計(jì):Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then

11、Command1.SetFocus End IfEnd SubPrivate Sub Command1_Click() Set adors = adoCon.Execute("select * from 用戶表 where 用戶姓 名=ltrim('" & Text1 & "') and 密碼=ltrim('" & Text2 & "') and 用戶類 型=ltrim('" & Combo1.Text & "')")I

12、f adors.EOF ThenMsgBox "您輸入的信息有誤，請(qǐng)重新輸入！", , "系統(tǒng)提示" Text1 = ""Text2 = "" Text1.SetFocusi = i + 1 If i = 3 Then MsgBox "對(duì)不起，您已無權(quán)使用本系統(tǒng)！", , "系統(tǒng)提示 Unload Me End If Else Select Case adors!用戶類型 Case "管理員" Case "普通用戶" MDIForm1.mnuyy

13、delete.Enabled = FalseMDIForm1.mnusyscsh.Enabled = False MDIForm1.mnuglyset.Enabled = False End Select MDIForm1. Show adors.Close Unload MeEnd If End SubPrivate Sub Command2_Click()Unload Me'adoRs.CloseEnd SubPrivate Sub Form_Load() Combo1.ListIndex = 0End SubPrivate Sub Text1_KeyPress(KeyAscii

14、As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Combo1.SetFocusEnd If End Sub2 . 車輛報(bào)廢查詢:代碼分析:Private Sub ckcp_Click() If ckcp.Value Then cmcp.Enabled = True Elsecmcp.Enabled = Fals End If End SubPrivate Sub cktime_

15、Click() If cktime.Value ThendtStart.Enabled = True dtEnd.Enabled = TrueElsedtStart.Enabled = False dtEnd.Enabled = FalseEnd IfEnd SubPrivate Sub ckyy_Click() If ckyy.Value Thencmyy.Enabled = TrueElsecmyy.Enabled = FalseEnd IfEnd SubPrivate Sub cmdCha_Click()'點(diǎn)擊查詢按紐后首先清空車輛報(bào)廢列表 Call QingKon'定義

16、查詢條件的字符串Dim sql As String Dim scp As String If ckcp.Value Thenscp = "車牌號(hào)碼 like '%" & cmcp.Text & "%'"Elsescp = "車牌號(hào)碼 like '%'"End IfDim stime As StringIf cktime.Value Thenstime = " 報(bào) 廢 日 期between #" & dtStart.Month & "/&quo

17、t; &dtStart.Day & "/" & dtStart.Year & "# and #" & dtEnd.Month & "/" &dtEnd.Day & "/" & dtEnd.Year & "#" Elsestime = "報(bào)廢日期 like '%'"End IfDim sdd As StringIf ckyy.Value Thensyy = "報(bào)廢原因 li

18、ke'%" & cmyy.Text & "%'" Else syy = "報(bào)廢原因 like '%'"End Ifsql = "select * from 車輛報(bào)廢表 where " & scp & "and " & syy & "and " & stime'如果沒有選擇查詢條件，那么清空上一次查詢結(jié)果并給出對(duì)話框提示，退出查詢過程If sql = "select * from 車

19、輛報(bào)廢表 where 車牌號(hào)碼 like '%'and 報(bào) 廢原因 like '%'and 報(bào)廢日期 like '%'" ThenCall QingKongMsgBox "請(qǐng)選擇查詢條件", , "系統(tǒng)提示"Exit SubEnd If'返回符合查詢條件的記錄集Set adors = adoCon.Execute(sql)'如果記錄集為空，說明沒有符合條件的記錄存在，清空上一次查 詢結(jié)果集并提示， '退出此次查詢過程，否則在 datagrid1 控件里顯示記錄集If ado

20、rs.EOF Then Call QingKongMsgBox "對(duì)不起，沒有符合您查詢條件的車輛！", , "系統(tǒng)提示" ElseAdodc1.RecordSource = sqlAdodc1.RefreshEnd If adors.Close ckcp.Value = 0 cktime.Value = 0 ckyy.Value = 0End SubPrivate Sub cmdExit_Click()MDIForm1.StatusBar1.Panels(1).Text = "" Unload MeEnd SubPrivate Su

21、b Form_Load() frmcarBFcha.Height = 4155 frmcarBFcha.Width = 5730Label1.Caption = "車輛報(bào)廢列表"Call Rebind'將車輛報(bào)廢表里的車牌號(hào)碼加到 cmcp 控件里Set adors = adoCon.Execute("select distinct 車牌號(hào)碼, 報(bào)廢原因from 車輛報(bào)廢表")On Error Resume NextDocmcp.AddItem adors.Fields(0) cmyy.AddItem adors.Fields(1) adors.

22、MoveNextLoop Until adors.EOF End SubPrivate Sub Rebind()Label1.Caption = "車輛報(bào)廢列表"'進(jìn)行與數(shù)據(jù)庫的綁定及選擇作為記錄源的表Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=" & App.Path & "clgl.mdb " & "Persist Security Info=False" Adodc1.Record

23、Source = "select * from 車輛報(bào)廢表" Adodc1.RefreshEnd SubPrivate Sub QingKong()Label1.Caption = "您所要查詢的報(bào)廢車輛記錄如下：" Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path& "clgl.mdb " & "Persist Security Info=False"Adodc

24、1.RecordSource = "select * from 車輛報(bào)廢表 where 0=1"Adodc1.RefreshEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode AsInteger)cmdExit_ClickEnd Sub3.車輛檔案查詢:代碼分析:Private Sub ckbf_Click()If ckbf.Value ThenCombo6.Enabled = True ElseCombo6.Enabled = FalseEnd IfEnd SubPrivate Sub ckb

25、x_Click() If ckbx.Value ThenCombo4.Enabled = TrueElseCombo4.Enabled = FalseEnd IfEnd SubPrivate Sub ckcp_Click() If ckcp.Value ThenCombo1.Enabled = True ElseCombo1.Enabled = False End IfEnd SubPrivate Sub ckdw_Click() If ckdw.Value ThenCombo3.Enabled = True Else Combo3.Enabled = False End IfEnd SubP

26、rivate Sub cklx_Click() If cklx.Value ThenCombo2.Enabled = TrueElseCombo2.Enabled = FalseEnd IfEnd SubPrivate Sub ckyd_Click() If ckyd.Value ThenCombo5.Enabled = TrueElseCombo5.Enabled = FalseEnd IfEnd SubPrivate Sub cmdAll_Click() Frame1.Enabled = False ckcp.Value = 0cklx.Value = 0 ckdw.Value = 0 c

27、kbx.Value = 0 ckyd.Value = 0 ckbf.Value = 0Call Rebind cmdCha.Visible = True cmdAll.Visible = False cmdOk.Enabled = FalseEnd SubPrivate Sub cmdExit_Click() MDIForm1.StatusBar1.Panels(1).Text = "" Unload MeEnd SubPrivate Sub cmdCha_Click()'點(diǎn)擊查詢按紐后首先清空車輛檔案列表Call QingKong cmdCha.Visible =

28、 False cmdAll.Visible = True Frame1.Enabled = True cmdOk.Enabled = TrueEnd SubPrivate Sub cmdOk_Click() Dim sql As StringDim scp As StringIf ckcp.Value Thenscp = "車牌號(hào)碼 like '" & Combo1.Text & "%'" Elsescp = "車牌號(hào)碼 like '%'"End IfDim slx As StringI

29、f cklx.Value Thenslx = "車輛類型 like'%" & Combo2.Text & "%'" Elseslx = "車輛類型 like '%'"End IfDim sdw As StringIf ckdw.Value Thensdw = "車輛所在單位 like'%" & Combo3.Text & "%'" Elsesdw = "車輛所在單位 like '%'&quo

30、t;End IfDim sbx As StringIf ckbx.Value Thensbx = "保險(xiǎn)否='" & Combo4.Text & "'"Elsesbx = "保險(xiǎn)否 like '%'" End IfDim syd As StringIf ckyd.Value Thensyd = "異動(dòng)否='" & Combo5.Text & "'" Elsesyd = "異動(dòng)否 like '%

31、9;"End IfDim sbf As StringIf ckbf.Value Thensbf = " 報(bào)廢否='" & Combo6.Text & "'" Elsesbf = "報(bào)廢否 like '%'"End Ifsql = "select * from 車輛檔案 where " & scp & "and " & slx & "and " & sdw & "

32、and " & sbx & "and " & syd & "and " & sbf'MsgBox sqlIf sql = "select * from 車輛檔案 where 車牌號(hào)碼 like '%'and 車輛類型 like '%'and 車輛所在單位 like '%'and 保險(xiǎn)否 like '%'and 異 動(dòng)否 like '%'and 報(bào)廢否 like '%'" ThenMs

33、gBox "請(qǐng)選擇查詢條件", , "系統(tǒng)提示"'清空上一次的查詢記錄Call QingKongExit SubEnd IfSet adors = adoCon.Execute(sql) If adors.EOF Then'清空上一次的查詢記錄Call QingKong'給出文本框提示MsgBox "沒有符合您查詢車輛的條件！", , "系統(tǒng)提示" ElseAdodc1.RecordSource = sqlAdodc1.RefreshEnd If adors.Close ckcp.Value

34、 = 0cklx.Value = 0 ckdw.Value = 0 ckbx.Value = 0 ckyd.Value = 0 ckbf.Value = 0End SubPrivate Sub Form_Load()Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path& "clgl.mdb;Persist Security Info=False"Call Rebind cmdAll.Visible = False cmdCha.V

35、isible = True cmdOk.Enabled = False frmcardacha.Height = 5070 frmcardacha.Width = 7935'將表里存在的所有車牌加到控件 combo1 里On Error Resume NextAdodc1.RecordSource = "select distinct 車牌號(hào)碼 from 車輛檔案" DoCombo1.AddItem Adodc1.Recordset.Fields(0) Adodc1.Recordset.MoveNextLoop Until Adodc1.Recordset.EOF

36、Adodc1.RefreshAdodc2.RecordSource = "select distinct 車輛類型 from 車輛檔案"Adodc2.RefreshDoCombo2.AddItem Adodc2.Recordset.Fields(0) Adodc2.Recordset.MoveNextLoop Until Adodc2.Recordset.EOFAdodc3.RecordSource = "select distinct 車輛所在單位 from 車輛 檔案"Adodc3.RefreshDoCombo3.AddItem Adodc3.Rec

37、ordset.Fields(0) Adodc3.Recordset.MoveNextLoop Until Adodc3.Recordset.EOF Adodc1.RecordSource = "select * from 車輛檔案" Adodc1.RefreshEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode AsInteger)cmdExit_ClickEnd SubPrivate Sub Rebind()Frame2.Caption = "車輛檔案列表"'聯(lián)接數(shù)

38、據(jù)庫及選表Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path& "clgl.mdb " & "Persist Security Info=False"Adodc1.RecordSource = "select * from 車輛檔案"Adodc1.RefreshEnd SubPrivate Sub QingKong()Frame2.Caption = "您所要查詢的車輛檔

39、案如下："'清空 datagrid1 控件里的記錄Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path& "clgl.mdb " & "Persist Security Info=False"Adodc1.RecordSource = "select * from 車輛檔案 where 0=1"Adodc1.RefreshEnd Sub4.車輛事故查詢界面:代碼分析

40、:Private Sub ckcp_Click() If ckcp.Value ThencmCP.Enabled = TrueElsecmCP.Enabled = FalseEnd IfEnd SubPrivate Sub cktime_Click() If cktime.Value ThendtStart.Enabled = TruedtEnd.Enabled = TrueElsedtStart.Enabled = False dtEnd.Enabled = FalseEnd IfEnd SubPrivate Sub cmdCha_Click()'點(diǎn)擊查詢按紐后首先清空車輛檔案列表C

41、all QingKong'定義查詢字符串Dim sql As StringDim scp As StringIf ckcp.Value Thenscp = "車牌號(hào)碼 like '" & cmCP.Text & "%'" Elsescp = "車牌號(hào)碼 like '%'"End IfDim stime As StringIf cktime.Value Thenstime = "事故時(shí)間 between #" & dtStart.Month &

42、"/" &dtStart.Day & "/" & dtStart.Year & "# and #" & dtEnd.Month & "/" &dtEnd.Day & "/" & dtEnd.Year & "#" Elsestime = "事故時(shí)間 like '%'"End Ifsql = "select * from 車輛事故表 where "

43、; & scp & "and " & stime'MsgBox sqlIf sql = "select * from 車輛事故表 where 車牌號(hào)碼 like '%'and事故時(shí)間 like '%'" ThenCall QingKongMsgBox "請(qǐng)選擇查詢條件", , "系統(tǒng)提示" Exit SubEnd IfSet adors = adoCon.Execute(sql)If adors.EOF ThenCall QingKongMsgBox

44、"對(duì)不起，沒有符合您查詢條件的車輛事故記錄！", , "系統(tǒng)提示"ElseAdodc1.RecordSource = sqlAdodc1.RefreshEnd If adors.Closeckcp.Value = 0 cktime.Value = 0End SubPrivate Sub cmdExit_Click() MDIForm1.StatusBar1.Panels(1).Text = "" Unload MeEnd SubPrivate Sub Form_Load() frmcarSGcha.Width = 6375 frmca

45、rSGcha.Height = 3885Call RebindSet adors = adoCon.Execute("select distinct 車牌號(hào)碼 from 車輛事 故表")On Error Resume NextDocmCP.AddItem adors.Fields(0)adors.MoveNext Loop Until adors.EOF adors.CloseEnd SubPrivate Sub Rebind()Frame2.Caption = "車輛事故列表"Adodc1.ConnectionString = "Provid

46、er=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path& "clgl.mdb;Persist Security Info=False"Adodc1.RecordSource = "select * from 車輛事故表"Adodc1.RefreshEnd SubPrivate Sub QingKong()Frame2.Caption = "您所要查詢的車輛事故記錄如下：" Adodc1.ConnectionString="Provider=Microsoft

47、.Jet.OLEDB.4.0;DataSource="&App.Path& "clgl.mdb;Persist Security Info=False"Adodc1.RecordSource = "select * from 車輛事故表 where 0=1"Adodc1.RefreshEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode AsInteger)cmdExit_ClickEnd Sub5.車輛維修查詢界面:代碼分析:Private Sub

48、ckcp_Click() If ckcp.Value Thencmcp.Enabled = TrueElsecmcp.Enabled = FalseEnd IfEnd SubPrivate Sub ckfy_Click() If ckfy.Value ThenCombo1.Enabled = True Combo1.ListIndex = 0 txtFY.Enabled = TrueElsetxtFY.Enabled = FalseCombo1.Enabled = FalseEnd IfEnd SubPrivate Sub cktime_Click() If cktime.Value Then

49、dtStart.Enabled = True dtEnd.Enabled = TrueElsedtStart.Enabled = False dtEnd.Enabled = FalseEnd IfEnd SubPrivate Sub cmdCha_Click() Call QingKongDim sql As StringDim scp As StringIf ckcp.Value Thenscp = "車牌號(hào)碼 like '" & cmcp.Text & "%'" Elsescp = "車牌號(hào)碼 like &#

50、39;%'"End IfDim stime As StringIf cktime.Value Thenstime = "維修日期 between #" & dtStart.Month & "/" &dtStart.Day & "/" & dtStart.Year & "# and #" & dtEnd.Month & "/" &dtEnd.Day & "/" & dtEn

51、d.Year & "#" Elsestime = "維修日期 like '%'"End IfDim sfy As StringIf ckfy.Value Thensfy = "共計(jì)費(fèi)用 " & Combo1.Text & "" & txtFY & ""Elsesfy = "共計(jì)費(fèi)用 like '%'"End Ifsql = "select * from 車輛維修表 where " &a

52、mp; scp & "and " & stime& "and " & sfy'MsgBox sqlIf sql = "select * from 車輛維修表 where 車牌號(hào)碼 like '%'and維修日期 like '%'and 共計(jì)費(fèi)用 like '%'" ThenCall QingKongMsgBox "請(qǐng)選擇查詢條件", , "系統(tǒng)提示" Exit SubEnd IfSet adors = ado

53、Con.Execute(sql) If adors.EOF ThenCall QingKongMsgBox "對(duì)不起，沒有符合您查詢條件的車輛維修記錄！", ,"系統(tǒng)提示" ElseAdodc1.RecordSource = sqlAdodc1.RefreshEnd If adors.Closeckcp.Value = 0 cktime.Value = 0 ckfy.Value = 0End SubPrivate Sub cmdExit_Click() MDIForm1.StatusBar1.Panels(1).Text = "" U

54、nload MeEnd SubPrivate Sub Form_Load() frmcarWXcha.Width = 6345 frmcarWXcha.Height = 4395Call Rebind'add all cp in the table carWXSet adors = adoCon.Execute("select distinct 車牌號(hào)碼 from 車輛 維修表")On Error Resume NextDocmcp.AddItem adors.Fields(0)adors.MoveNext Loop Until adors.EOF adors.CloseEnd SubPrivate Sub Rebind()Frame2.Caption = "車輛維修列表"Adodc1.ConnectionString =