《運輸行業(yè)管理系統(tǒng)》PPT課件.ppt

《《運輸行業(yè)管理系統(tǒng)》PPT課件.ppt》由會員分享，可在線閱讀，更多相關(guān)《《運輸行業(yè)管理系統(tǒng)》PPT課件.ppt（76頁珍藏版）》請在裝配圖網(wǎng)上搜索。

運輸行業(yè)管理系統(tǒng),系統(tǒng)分析,本系統(tǒng)的主要功能：◇記錄司機的基本資料，包括姓名、身份證號等基本信息。并將司機的資料存入司機檔案數(shù)據(jù)表DriverInfo，并可以對該表中的數(shù)據(jù)進行修改、刪除及查詢?！笥涗涇囕v的基本信息，包括車號、隸屬車隊等基本信息。并將車輛的資料存入車輛檔案數(shù)據(jù)表CarInfo中，并可以對該表進行修改、刪除及查詢?！髽I(yè)務(wù)管理-運營業(yè)務(wù)記錄管理，即維護WorkRec表，包括運行車輛ID、司機ID等屬性，并可執(zhí)行添加、修改、刪除和查詢等操作?！髽I(yè)務(wù)管理-車輛維修記錄管理，即維護RepairRec數(shù)據(jù)表，并可執(zhí)行添加、修改、刪除和查詢等操作?！髽I(yè)務(wù)管理-車輛違章記錄關(guān)系，即維護PecRec數(shù)據(jù)表，并可執(zhí)行添加、修改、刪除和查詢等操作?！髽I(yè)務(wù)管理-車輛事故記錄管理，即維護AccRec數(shù)據(jù)表，并可執(zhí)行添加、修改、刪除和查詢等操作。◇每日自動結(jié)算啟動程序會自動彈出昨日結(jié)算窗口，提示昨日收支及盈利情況，該窗口也可在程序運行時調(diào)出。,系統(tǒng)設(shè)計思想,運輸行業(yè)管理系統(tǒng),本例的運輸行業(yè)管理系統(tǒng)應(yīng)用于某運輸且的數(shù)字化管理，實現(xiàn)運輸企業(yè)管理的易操作、可維護性等。首先要求系統(tǒng)能夠完整對司機檔案和車輛檔案的記錄和查詢等各種操作，為此，系統(tǒng)必須能夠維護兩個分別記錄司機檔案和車輛檔案詳細(xì)資料信息的數(shù)據(jù)表，能對該數(shù)據(jù)表進行寫入和讀取數(shù)據(jù)的操作。此外，系統(tǒng)還要求記錄運輸企業(yè)日常運營的各項業(yè)務(wù)，這樣系統(tǒng)還需要維護域日常業(yè)務(wù)相關(guān)的車輛運營記錄表、車輛維修記錄表、車輛違章記錄表和車輛事故記錄表等。系統(tǒng)數(shù)據(jù)庫訪問的實現(xiàn)方式主要通過ADODC控件對數(shù)據(jù)庫進行讀、寫和查詢。,系統(tǒng)結(jié)構(gòu)設(shè)計,運輸行業(yè)管理系統(tǒng),,數(shù)據(jù)庫,數(shù)據(jù)庫需求分析,運輸行業(yè)管理系統(tǒng),◆用戶可維護司機檔案，進行添加、修改和刪除操作，并能通過姓名、身份證號、性別、司機工號及備注等項目對司機檔案進行查詢?！羲緳CID必須唯一?！粲脩艨蓪囕v檔案進行添加、修改和刪除操作，并能通過車號、車輛是否年檢、是否有車險及備注等對車輛檔案進行查詢。◆車輛ID必須唯一。◆用戶可對車輛運營記錄進行添加、修改和刪除操作，并能通過車輛ID，司機ID，運營日期及備注等對車輛運營記錄進行查詢?！粲脩艨蓪囕v維修記錄進行查詢、修改和刪除操作，并能通過車輛ID，維修日期及備注等對車輛維修記錄進行查詢。◆用戶可對車輛違章記錄進行添加、修改和刪除操作，并能通過車輛ID，司機ID，車輛違章日期及備注等對車輛違章記錄進行查詢?！粲脩艨蓪囕v事故記錄進行添加、修改和刪除操作，并通過車輛ID，司機ID、事故日期及備注等對車輛事故記錄進行查詢。◆上述數(shù)據(jù)中，車輛運營記錄、車輛維修記錄、車輛違章記錄和車輛事故記錄中的司機ID和車輛ID必須與司機檔案中的司機ID，車輛檔案中的車輛ID相關(guān)聯(lián)。,數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計,運輸行業(yè)管理系統(tǒng),司機檔案實體（司機檔案ID，司機姓名，司機身份證號，司機性別，司機出生日期，司機工號，司機電話，隸屬車隊名，司機駕照號，駕照截止日期，備注）,車輛檔案實體(車輛檔案ID,車號，隸屬車隊名，車輛購買日期，是否年檢，是否車險，備注),運輸行業(yè)管理系統(tǒng),數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計,其余E-R圖請見書P10~P11,數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計,運輸行業(yè)管理系統(tǒng),司機檔案數(shù)據(jù)表,運輸行業(yè)管理系統(tǒng),數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計,車輛檔案數(shù)據(jù)表,其余表請見書P12~P13,表之間的關(guān)系,運輸行業(yè)管理系統(tǒng),運輸行業(yè)管理系統(tǒng),數(shù)據(jù)庫的連接,以Access數(shù)據(jù)庫系統(tǒng)為例，連接數(shù)據(jù)庫需要用到ADODC控件1ADODC控件的添加選擇菜單命令【工程】→【部件】，彈出“部件對話框”,選擇MicrosoftADODataControl6.0(OLEDB),運輸行業(yè)管理系統(tǒng),數(shù)據(jù)庫的連接,2添加引用選擇【工程】→【引用】，在彈出的“引用”對話框中選擇MicrosoftActiveXDataObject2.0library。,部件添加說明,ToolBar、ImageList:MicrosoftWindowsCommonControls6.0,DTPicker:MicrosoftWindowsCommonControls-26.0,ADODC:MicrosoftADODataControl6.0(OLEDB),DataGrid:MicrosoftDataGridControl6.0(OLEDB),SSTable:MicrosoftTabbedDialogControl6.0,MicrosoftAxtivexDataObjects2.0,引用添加說明,系統(tǒng)實施,運輸行業(yè)管理系統(tǒng),公共模塊,1新建工程新建EXE工程，保存。2添加MicrosoftADODataControl6.0部件和MicrosoftActiveXDataObject2.0library引用。3定義全局變量添加公共模塊，定義全局變量，用于數(shù)據(jù)庫操作。PublicDBCnAsNewADODB.ConnectionPublicCnStrAsStringADODB.Connection，用于連接、打開數(shù)據(jù)庫,界面設(shè)計,運輸行業(yè)管理系統(tǒng),1設(shè)計歡迎界面,歡迎界面用于進行提示，用戶單擊進入系統(tǒng)。,歡迎界面屬性及控件見書P18表1-7,運輸行業(yè)管理系統(tǒng),【工程】→【添加窗體】，添加一個窗體，命令為FormLogin，設(shè)置其屬性。需要說明：在窗體的Load事件中（1）App對象是通過關(guān)鍵字App訪問的全局對象。它指定如下信息：應(yīng)用程序的標(biāo)題、版本信息、可執(zhí)行文件和幫助文件的路徑及名稱以及是否運行前一個應(yīng)用程序的示例。（2）PrevInstance屬性返回一個值，該值指示是否已經(jīng)有前一個應(yīng)用程序?qū)嵗谶\行。語法：object.PrevInstance。object所在處代表一個對象表達式，其值是“應(yīng)用于”列表中的一個對象。IfApp.PrevInstanceThenMsgBox"您已經(jīng)啟動過了本程序!",,"運輸行業(yè)管理系統(tǒng)"EndEndIf（3）在LableEnter控件的單擊事件中添加啟動主窗體代碼UnloadMeMDIFrm.Show,添加歡迎界面的過程,PrivateSubForm_Load()IfApp.PrevInstanceThenMsgBox"您已經(jīng)啟動過了本程序！",,"運輸管理系統(tǒng)"EndEndIfEndSubPrivateSubImage1_Click()UnloadMeMainFrm.ShowEndSub,2系統(tǒng)主界面布局設(shè)計主界面主要包括菜單、工具欄和程序主窗口。有以下功能：調(diào)用各子窗口。關(guān)于界面。退出系統(tǒng)?！竟こ獭俊咎砑覯DI窗體】，添加一個MDI窗體。工程中的MDI窗體時唯一的。添加了MDI窗體后，工程中的“添加MDI窗體”子菜單變?yōu)榛疑豢捎?。窗體控件見P19表1-8注意：添加ToolBar和ImageList之前，必須添加部件MicrosoftWindowsCommonControls6.0,界面設(shè)計,運輸行業(yè)管理系統(tǒng),3編輯主界面菜單【工具】->【菜單編輯器】，添加菜單主界面菜單設(shè)置見書P19表1-94系統(tǒng)主界面工具欄編輯ImageList控件，添加圖片，用戶和工具欄上的各個按鈕綁定。編輯Toolbar控件，添加按鈕。按鈕屬性設(shè)置見P21表1-10,界面設(shè)計,運輸行業(yè)管理系統(tǒng),界面設(shè)計,運輸行業(yè)管理系統(tǒng),運輸行業(yè)管理系統(tǒng),系統(tǒng)主界面實現(xiàn),PrivateSubMDIForm_Load()設(shè)置數(shù)據(jù)庫連接字符串CnStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\DocumentsandSettings\Administrator\桌面\信息系統(tǒng)分析與設(shè)計教學(xué)相關(guān)資料\代碼\運輸行業(yè)管理系統(tǒng)\Transportation.mdb;PersistSecurityInfo=False"連接數(shù)據(jù)庫DBCn.OpenCnStr日結(jié)算自動提示FormBal.ShowMe.WindowState=2’窗體最大化EndSub,運輸行業(yè)管理系統(tǒng),系統(tǒng)主界面實現(xiàn),添加響應(yīng)菜單,PrivateSubOpe_Acc_Man_Click()FromAcc.ShowFromAcc.SSTab1.Tab=0FromAcc.SetFocusEndSubPrivateSubOpe_Acc_Query_Click()FromAcc.ShowFromAcc.SSTab1.Tab=1FromAcc.SetFocusEndSubPrivateSubOpe_Pec_Man_Click()FromPec.ShowFromPec.SSTab1.Tab=0FromPec.SetFocusEndSub……,運輸行業(yè)管理系統(tǒng),系統(tǒng)主界面實現(xiàn),添加工具欄響應(yīng)函數(shù),PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.Key司機檔案Case“Key_Dri“此關(guān)鍵字即為設(shè)計工具欄按鈕時指定的關(guān)鍵字CallDri_Man_Click這個函數(shù)名稱為菜單響應(yīng)函數(shù)名，這樣菜單操作和工具欄上的按鈕操作就可以共享同一段代碼車輛檔案Case"Key_Car"CallCar_Man_Click運營管理Case"Key_Work"CallOpe_Work_Man_Click維修記錄Case"Key_Rep"CallOpe_Rep_Man_Click……EndSelectEndSub,運輸行業(yè)管理系統(tǒng),司機檔案管理模塊,一、界面設(shè)計,控件詳細(xì)信息見書P26表1-11注意窗體的MDIChild屬性為True,TxtName,TxtNum,OptSex,DTPBir,TxtWorkNum,TxtRemark,TxtTel,TxtTeam,TxtLicenceNum,DTPLicDate,DataGrid1,運輸行業(yè)管理系統(tǒng),司機檔案管理模塊,部件添加說明,ToolBar、ImageList:MicrosoftWindowsCommonControls6.0,DTPicker:MicrosoftWindowsCommonControls-26.0,ADODC:MicrosoftADODataControl6.0(OLEDB),DataGrid:MicrosoftDataGridControl6.0(OLEDB),SSTable:MicrosoftTabbedDialogControl6.0,MicrosoftAxtivexDataObjects2.0,引用添加說明,運輸行業(yè)管理系統(tǒng),司機檔案管理模塊,司機檔案查詢界面設(shè)計,,OptionButton,,TextBox,運輸行業(yè)管理系統(tǒng),司機檔案管理模塊,,ListView,OptQue,,TxtQueName,TxtQueNum,OptQueSex,TxtQueWorkNum,TxtQueRemark,LvResult,運輸行業(yè)管理系統(tǒng),司機檔案管理模塊,司機檔案表結(jié)構(gòu),在顯示查詢結(jié)果的ListView控件中添加上述給列，用于表示查詢出來的信息分量的意義。,運輸行業(yè)管理系統(tǒng),司機檔案管理模塊,(1)右鍵點擊ListView,選擇屬性,,,(2)點擊插入列,(3)輸入列標(biāo)題,,(4)指定列寬度,,(5)重復(fù)上述步驟，將所有的列插入,運輸行業(yè)管理系統(tǒng),司機檔案管理模塊,在任何一個窗體或選項卡中，只能有一組單選鈕，每次也只能選擇界面上單選鈕中的一個。要同時實現(xiàn)多組單選鈕，可以采用Frame(框架)控件，將多組單選鈕放在不同的框架中即可,在查詢選項卡中，查詢結(jié)果控件和其余的控件重疊，可以采用“置前”和“置后”命令對它進行調(diào)整，然后配合其Visible屬性進行控制。,界面設(shè)計技巧,運輸行業(yè)管理系統(tǒng),司機檔案管理模塊,司機檔案管理窗體初始化過程,初始化ADODC控件，連接數(shù)據(jù)庫，設(shè)置列首Adodc1.ConnectionString=CnStr’設(shè)置連接字符串Adodc1.RecordSource=“SelectDriverIDas司機ID,”&_’設(shè)置數(shù)據(jù)集"DriverNameas姓名,"&_"DriverNumas身份證號,"&_"DriverSexas性別,"&_"DriverBiras出生日期,"&_"DriverWorkNumas工號,"&_"DriverTelas電話,"&_"DriverTeamas隸屬車隊,"&_"DriverLicenceNumas司機駕照號,"&_"DriverLicenceDateas駕照截止日期,"&_"Remarkas備注"&_"FromDriverInfo"Debug.PrintAdodc1.RecordSource將DataGrid控件與ADODC控件綁定SetDataGrid1.DataSource=Adodc1’,進入“司機檔案”界面首先要對ADODC控件和DataGrid控件進行初始化，這部分代碼在窗體的Load事件內(nèi)實現(xiàn)。,Form_Load(),運輸行業(yè)管理系統(tǒng),司機檔案管理模塊,PrivateSubDataGrid1_RowColChange(LastRowAsVariant,ByValLastColAsInteger)檢驗是否為空行IfDataGrid1.Columns(0).Text=“”Then’DataGrid1.Columns(0)為司機IDExitSubEndIf將DataGrid中數(shù)據(jù)讀入各個控件顯示數(shù)據(jù)內(nèi)容Me.TxtName.Text=DataGrid1.Columns(1).TextMe.TxtNum.Text=DataGrid1.Columns(2).TextIfDataGrid1.Columns(3).Text=0ThenMe.OptSex(0).Value=TrueElseMe.OptSex(1).Value=TrueEndIfMe.DTPBir.Value=DataGrid1.Columns(4).TextMe.TxtWorkNum.Text=DataGrid1.Columns(5).TextMe.TxtTel.Text=DataGrid1.Columns(6).TextMe.TxtTream.Text=DataGrid1.Columns(7).TextMe.TxtLicenceNum.Text=DataGrid1.Columns(8).TextMe.DTPLicDate.Value=DataGrid1.Columns(9).TextMe.TxtRemark.Text=DataGrid1.Columns(10).TextEndSub,運輸行業(yè)管理系統(tǒng),司機檔案管理模塊,添加司機檔案,,點擊添加,運輸行業(yè)管理系統(tǒng),司機檔案管理模塊,添加司機檔案,1檢查輸入信息是否正確,2根據(jù)輸入信息構(gòu)造SQL語句,3執(zhí)行SQL語句,沒有輸入司機姓名IfLen(Trim(Me.TxtName.Text))<=0ThenMsgBox"請輸入司機姓名！",,"添加司機檔案"ExitSubEndIf,運輸行業(yè)管理系統(tǒng),司機檔案管理模塊,檢查輸入信息是否正確(P31),String.trimClassOverview|ClassMembers|ThisPackage|AllPackagesSyntaxpublicStringtrim()Returnsthisstring,withwhitespaceremovedfromthefrontandend.DescriptionRemoveswhitespacefrombothendsofthisstring.,,‘Len()返回Long，其中包含字符串內(nèi)字符的數(shù)目,,輸入司機姓名不正確IfLen(Trim(Me.TxtName.Text))4ThenMsgBox“輸入司機姓名不正確！",,"添加司機檔案"ExitSubEndIf……,運輸行業(yè)管理系統(tǒng),司機檔案管理模塊,檢查輸入信息是否正確,SqlStr="INSERTINTODriverInfo"SqlStr=SqlStr",運輸行業(yè)管理系統(tǒng),司機檔案管理模塊,DBCn.ExecuteSqlStr’執(zhí)行SQL語句,構(gòu)造SQL語句,運輸行業(yè)管理系統(tǒng),司機檔案管理模塊,在執(zhí)行SQL語句時，對字符串的引用都要用左右兩個單引號分割，而程序會把字符串中的單引號看做是SQL語句的分隔符來處理，如果字符串中含有單引號，需要用兩個單引號來代替一個單引號，可以用Replace()函數(shù)來替換。,Remark=Replace(Trim(Me.TxtRemark.Text),”’”,”’’”),PrivateSubCmdAdd_Click()DimDriverSexAsIntegerDimrsAddAsNewADODB.RecordsetDimSqlStrAsStringDimRemarkAsString首先檢驗輸入沒有輸入司機姓名IfLen(Trim(Me.TxtName.Text))4ThenMsgBox"輸入司機姓名不正確！",,"添加司機檔案"ExitSubEndIf沒有輸入身份證號IfLen(Trim(Me.TxtNum.Text))18ThenMsgBox"身份證號不正確,請輸入18位身份證號！",,"添加司機檔案"ExitSubEndIf,沒有選擇司機性別IfMe.OptSex(0).Value=FalseAndMe.OptSex(1).Value=FalseThenMsgBox"請選擇司機性別！",,"添加司機檔案"ExitSubEndIf沒有輸入司機工號IfLen(Trim(Me.TxtWorkNum.Text))11ThenMsgBox"輸入的電話不正確,請輸入11位電話號碼！",,"添加司機檔案"ExitSubEndIf沒有輸入隸屬車隊名IfLen(Trim(Me.TxtTeam.Text))<=0ThenMsgBox"請輸入隸屬車隊名！",,"添加司機檔案"ExitSubEndIf,沒有輸入司機駕照號IfLen(Trim(Me.TxtLicenceNum.Text))4ThenMsgBox"司機姓名長度超出范圍！",,"查詢司機檔案"ExitSubEndIf生成查詢語句Questr="select*fromDriverInfowhereDriverNameLike%"&DriverName&"%",DimRsQueryAsNewADODB.Recordset’結(jié)果集對象,司機檔案查詢部分代碼（P36）,RsQuery.OpenQuestr,DBCn,adOpenStatic,adLockOptimistic顯示查詢結(jié)果IfRsQuery.EOFThenMsgBox"數(shù)據(jù)庫中沒有符合要求的記錄！",,"查詢司機檔案"ExitSubEndIf,打開數(shù)據(jù)集,運輸行業(yè)管理系統(tǒng),司機檔案查詢模塊,adOpenStatic向前游標(biāo),adOpenKeyset鍵集游標(biāo)adLockOptimistic設(shè)置窗口為固定的大小,RsQuery.MoveFirst’數(shù)據(jù)集指針指向第一個記錄RsQuery.REcordCount’數(shù)據(jù)集中記錄的個數(shù)RsQuery.MoveNext’數(shù)據(jù)集指向下一條記錄,查詢串,,連接對象,,ADODB.Recordset.Open中參數(shù)的用法Recordset對象的Open方法原型：Open（[Source],[ActiveConnection],[CursorType],[LockType],[Options]）CursorType游標(biāo)類型：ConstadOpenForwardOnly=0前向游標(biāo)，為缺省游標(biāo)，提供最快的運行性能。用它打開recordset，從對至尾順序取得所有結(jié)果。它不支持向后滾動，只允許在結(jié)果間單向移動。ConstadOpenKeyset=1靜態(tài)游標(biāo)，反映第一次打開游標(biāo)時表中數(shù)據(jù)的狀態(tài)，游標(biāo)無法查明底層表中的數(shù)據(jù)行是否更新過、刪除過或添加了新的數(shù)據(jù)。不過與只能前移的洲標(biāo)不同，靜態(tài)游標(biāo)可以在結(jié)果間前后滾動。ConstadOpenDynamic=2鍵盤驅(qū)動的游標(biāo)，可以查詢表中底層數(shù)據(jù)行的某些變化，但不是全部。它特別是可以準(zhǔn)確反映數(shù)據(jù)是否更新過。但它不能查明其它用戶是否曾刪除過數(shù)據(jù)行（刪除掉的數(shù)據(jù)行在recordset中會留下空洞）。鍵盤驅(qū)動的游標(biāo)支持在結(jié)果間前后滾動。ConstadOpenStatic=3動態(tài)游標(biāo)，是最豐富的游標(biāo)類型。游標(biāo)打開時可以查詢其他用戶對表的任何改動，而且支持滾動。,LockType加鎖類型：ConstadLockReadOnly=1缺省的上鎖類型，只讀方式上鎖允許多個用戶同時讀取同樣的數(shù)據(jù)，但不能改變數(shù)據(jù)。ConstadLockPessimistic=2以悲觀上鎖方式打開數(shù)據(jù)對象。該方式假定在你編輯記錄時會有其它用戶訪問數(shù)據(jù)。此時一旦你開始編輯記錄，其它用戶就不能訪問該數(shù)據(jù)。ConstadLockOptimistic=3以樂觀上鎖方式打開數(shù)據(jù)對象。該方式假定在你編輯記錄時不會有其它用戶訪問數(shù)據(jù)。在完成改變之前，其它用戶不能訪問該記錄。ConstadLockBatchOptimistic=4執(zhí)行多行批處理更新時使用這種類型Options參數(shù)：Options參數(shù)標(biāo)明用來打開記錄集的命令字符串的類型。告訴ADO被執(zhí)行的字符串內(nèi)容的有關(guān)信息有助于高效地執(zhí)行該命令字符串。adCMDTable。被執(zhí)行的字符串包含一個表的名字。adCMDText。被執(zhí)行的字符串包含一個命令文本。adCMDStoredProc。被執(zhí)行的字符串包含一個存儲過程名。adCMDUnknown。不指定字符串的內(nèi)容。（這是缺省值。）,RS.OPENSQL,CONN,A,BA:ADOPENFORWARDONLY(=0)只讀,且當(dāng)前數(shù)據(jù)記錄只能向下移動ADOPENSTATIC(=3)只讀,當(dāng)前數(shù)據(jù)記錄可自由移動ADOPENKEYSET(=1)可讀寫,當(dāng)前數(shù)據(jù)記錄可自由移動ADOPENDYNAMIC(=2)可讀寫,當(dāng)前數(shù)據(jù)記錄可自由移動,可看到新增記錄B:ADLOCKREADONLY(=1)默認(rèn)值,用來打開只讀記錄ADLOCKPESSIMISTIC(=2)悲觀鎖定ADLOCKOPTIMISTIC(=3)樂觀鎖定ADLOCKBATCHOPTIMISTIC(=4)批次樂觀鎖定,司機檔案查詢,運輸行業(yè)管理系統(tǒng),司機檔案查詢模塊,查詢按鈕PrivateSubCmdQue_Click()DimQuestrAsStringDimRsQueryAsNewADODB.RecordsetDimDriverNameAsStringDimRemarkAsStringDimLtItmAsListItemDimiAsInteger按姓名查詢IfMe.OptQue(0).Value=TrueThen判斷查詢條件IfMe.TxtQueName.Text=""ThenMsgBox"請輸入要查詢的司機姓名！",,"查詢司機檔案"ExitSubElseIfLen(Trim(Me.TxtQueName.Text))>4ThenMsgBox"司機姓名長度超出范圍！",,"查詢司機檔案"ExitSubEndIf替換單引號DriverName=Replace(Trim(Me.TxtQueName.Text),"","")生成查詢語句Questr="select*fromDriverInfowhereDriverNameLike%"&DriverName&"%",PrivateSubForm_Load()…LvResult.Visible=FalseEndSub,按身份證號查詢ElseIfMe.OptQue(1).Value=TrueThen判斷查詢條件IfMe.TxtQueNum.Text=""ThenMsgBox"請輸入要查詢的身份證號！",,"查詢司機檔案"ExitSubElseIfLen(Trim(Me.TxtQueNum.Text))>18ThenMsgBox"身份證號長度不符！",,"查詢司機檔案"ExitSubEndIf生成查詢語句Questr="select*fromDriverInfowhereDriverNumLike%"Questr=Questr&Me.TxtQueNum.Text&"%"按性別查詢ElseIfMe.OptQue(2).Value=TrueThen生成查詢語句IfMe.OptQueSex(0).Value=TrueThenQuestr="select*fromDriverInfowhereDriverSex=0"ElseQuestr="select*fromDriverInfowhereDriverSex=-1"EndIf按工號查詢ElseIfMe.OptQue(3).Value=TrueThenQuestr="select*fromDriverInfowhereDriverWorkNum="Questr=Questr&Val(Me.TxtQueWorkNum.Text),按備注查詢ElseIfMe.OptQue(4).Value=TrueThen替換單引號Remark=Replace(Trim(Me.TxtQueRemark.Text),"","")生成查詢語句Questr="select*fromDriverInfowhereRemarkLike%"Questr=Questr&Remark&"%"EndIf,打開數(shù)據(jù)集Debug.PrintQuestrRsQuery.OpenQuestr,DBCn,adOpenStatic,adLockOptimistic顯示查詢結(jié)果IfRsQuery.EOFThenMsgBox"數(shù)據(jù)庫中沒有符合要求的記錄！",,"查詢司機檔案"ExitSubEndIfMe.LvResult.Visible=TrueMe.CmdBack.Visible=True,清空列表Me.LvResult.ListItems.Clear數(shù)據(jù)集指針指向第一個記錄RsQuery.MoveFirstFori=1ToRsQuery.RecordCountSetLtItm=Me.LvResult.ListItems.Add()LtItm.Text=RsQuery.Fields("DriverID").ValueLtItm.SubItems(1)=RsQuery.Fields("DriverName").ValueLtItm.SubItems(2)=RsQuery.Fields("DriverNum").ValueIfRsQuery.Fields("DriverSex").Value=0ThenLtItm.SubItems(3)="男"ElseLtItm.SubItems(3)="女"EndIfLtItm.SubItems(4)=RsQuery.Fields("DriverBir").ValueLtItm.SubItems(5)=RsQuery.Fields("DriverWorkNum").ValueLtItm.SubItems(6)=RsQuery.Fields("DriverTel").ValueLtItm.SubItems(7)=RsQuery.Fields("DriverTeam").ValueLtItm.SubItems(8)=RsQuery.Fields("DriverLicenceNum").ValueLtItm.SubItems(9)=RsQuery.Fields("DriverLicenceDate").ValueIfRsQuery.Fields("Remark").Value""ThenLtItm.SubItems(10)=RsQuery.Fields("Remark").ValueEndIf數(shù)據(jù)集指針指向下一條記錄RsQuery.MoveNextNexti關(guān)閉數(shù)據(jù)集RsQuery.CloseEndSub,運輸行業(yè)管理系統(tǒng),車輛檔案管理模塊,FormCarBorderStype1MDIChildTRUETxtCarNum：車號TxtTeam、：隸屬車隊DTPBuy：購買日期TxtRemark：備注OptCheck（0）：是否年檢是OptCheck（1）：是否年檢否OptIns（0）：是否車險是OptIns（1）：是否車險否DataGrid1：Adodc1：OptQue（0）：按車號查詢OptQue（1）：按是否年檢查詢OptQue（2）：按是否車險查詢OptQue（3）：按備注查詢OptQueCheck（0）：是否車險是OptQueCheck（1）：是否車險否OptQueIns（0）：是否年檢是OptQueIns（0）：是否年檢否LvResult：,車輛檔案管理窗體控件,,運輸行業(yè)管理系統(tǒng),車輛檔案管理模塊,PrivateSubForm_Load()初始化ADO控件，連接數(shù)據(jù)庫，設(shè)置列首Adodc1.ConnectionString=CnStrAdodc1.RecordSource="SelectCarIDas車輛ID,"&_"CarNumas車號,"&_"CarTeamas隸屬車隊名,"&_"CarDateas購買日期,"&_"CarCheckas年檢,"&_"CarInsas車險,"&_"Remarkas備注"&_"FromCarInfo"Debug.PrintAdodc1.RecordSourceSetDataGrid1.DataSource=Adodc1不能缺少Me.LvResult.Visible=FalseEndSub,運輸行業(yè)管理系統(tǒng),車輛檔案管理模塊,備注項可選IfMe.TxtRemark.Text=vbNullStringThen沒有備注項SqlStr="INSERTINTOCarInfo"SqlStr=SqlStr"Debug.PrintSqlStrDBCn.ExecuteSqlStr,Else有備注項Remark=Replace(Trim(Me.TxtRemark.Text),"","")SqlStr="INSERTINTOCarInfo"SqlStr=SqlStr"Debug.PrintSqlStrDBCn.ExecuteSqlStrEndIfMsgBox"添加成功",,"添加車輛檔案"Adodc1.Refresh,PrivateSubCmdMod_Click()DataGrid1.Columns(1).Text=Me.TxtCarNum.TextDataGrid1.Columns(2).Text=Me.TxtTeam.TextDataGrid1.Columns(3).Text=Me.DTPBuy.ValueIfMe.OptCheck(0).Value=TrueThenDataGrid1.Columns(4).Text=0ElseDataGrid1.Columns(4).Text=-1EndIfIfMe.OptIns(0).Value=TrueThenDataGrid1.Columns(5).Text=0ElseDataGrid1.Columns(5).Text=-1EndIfDataGrid1.Columns(6).Text=Me.TxtRemark.TextMsgBox"修改成功",,"修改車輛檔案"EndSub,修改車輛檔案,運輸行業(yè)管理系統(tǒng),PrivateSubCmdDel_Click()OnErrorGoToErr:IfMsgBox("確定要刪除選定檔案嗎？",vbOKCancel,"刪除檔案")=vbOKThenAdodc1.Recordset.DeleteMsgBox"刪除成功！",,"刪除檔案"CmdEmpty_ClickEndIfExitSubErr:MsgBox"其他表中包含相關(guān)記錄，不能刪除！",,"刪除檔案"EndSub,刪除車輛檔案,運輸行業(yè)管理系統(tǒng),每日結(jié)算模塊,運輸行業(yè)管理系統(tǒng),控件即屬性見書P47表1-13,計算盈利：昨日收入（車輛運營）-昨日支出（違章罰款+維修費用+事故花費）,