【正文】 rce1。:=datasource1。:=datasource1。:=datasource1。:=datasource1。:=datasource1。:=datasource1。:=datasource1。 :=true。 (trim())。 parameters[1].Value:=s2。)。 (39。 with adoquery3 do begin close。s1:=。 :=false。 :=false。 :=false。var s2:string。 Node: TTreeNode)。 end。 end。 next。 end。).AsString)。 while not eof do begin (jd,fieldbyname(39。).AsString。 parameters[0].Value:=(39。select sname from student where sqtype=:p139。 。).AsString)。 while not eof do begin jd:=(nil,fieldbyname(39。 open。select distinct sqtype from student39。 。 :=false。 :=false。 :=false。 :=false。begin 。跟車學(xué)員查詢及增刪改功能代碼實現(xiàn)procedure (Sender: TObject)。（5）若要修改某學(xué)員檔案資料，在窗口中雙擊該學(xué)員記錄，系統(tǒng)將打開“學(xué)員檔案修改”子操作界面，可對此界面中學(xué)員的相關(guān)信息作修改，點擊［保存］后完成修改并返回主操作界面。刪除功能將把該學(xué)員檔案記錄從系統(tǒng)中完全清除，請謹(jǐn)慎使用。（3）如要查詢滿足某些條件的學(xué)員檔案記錄，可通過［條件查詢］方式設(shè)置查詢條件進行查詢。（2）該操作界面下部的四個選項可根據(jù)需要進行選擇，可多選，但至少應(yīng)選擇一項。學(xué)員的信息維護界面如圖17所示。end。 end。).AsString)。 while not eof do begin (fieldbyname(39。 open。t139。)。 (39。begin with adoquery1 do begin close。end。procedure (Sender: TObject)。begin。end。you39。wu39。procedure (Sender: TObject)。)。) else showmessage(39。) else if (strtofloat()=) and (strtofloat()=) then showmessage(39。)and(0) and ((length()=15) or (length( )=18)) and (strtofloat()) and (strtofloat()) then :=true else if (length()15) and (length( )18) then showmessage(39。)and(39。) and(39。)and(39。)and(39。)and(39。)and(39。) and (39。) and (39。) and (39。) and (39。beginif (39。end。 abort。請輸入數(shù)字39。.39。939。039。 var Key: Char)。end。 abort。請輸入數(shù)字39。.39。939。039。 var Key: Char)。end。 abort。請輸入數(shù)字39。939。039。 var Key: Char)。end。 abort。請輸入數(shù)字39。939。039。 var Key: Char)。end。:=false。 open。select stid as 學(xué)生編號,sname as 學(xué)生姓名 ,sfcard as 身份證號,zjtype as 準(zhǔn)駕車型 ,sqtype 申請車型 ,bmtime as 入學(xué)時間 from student39。 。procedure (Sender: TObject)。 。 END。)。 (39。 with adoquery2 DO BEGIN close。)。 end else showmessage(39。 :=39。 :=39。 :=39。 :=39。保存成功39。 。p1539。insert into score (stid) values(:p15)39。 。p1439。insert into train (stid) values(:p14)39。 if 1 then begin execproc。vv1339。).Value:=trim()。 (39。vv1139。).Value:=strtodatetime(trim())。 (39。vv939。).Value:=strtofloat(trim())。 (39。vv739。).Value:=trim()。 (39。vv539。).Value:=trim()。 (39。vv339。).Value:=trim()。 (39。st0039。vv139。st00039。39。 end。stid39。 open。select top 1*from student order by stid desc39。 。)。,ftstring,pdinput,200,39。 (39。39。vv1239。)。,ftstring,pdinput,50,39。 (39。vv1039。,ftfloat,pdinput,9,0)。 (39。vv839。)。,ftstring,pdinput,9,39。 (39。39。vv639。)。,ftstring,pdinput,10,39。 (39。39。vv439。,ftinteger,pdinput,10,0)。 (39。39。vv239。)。,ftstring,pdinput,50,39。 (39。p139。 end39。 insert into student(stid,sname,age,sfcard,sex,sqtype,zjtype,leftview,rightview,bmtime,phone,address,photo) values(v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13)39。 if(select count(*) from student where stid=v1 or sfcard=v4)=0 39。 begin39。create proc p1(v1 varchar(50) ,v2 varchar(50),v3 int,v4 varchar(50),v5 varchar(50),v6 varchar(50),v7 varchar(50),v8 decimal(9,1),v9 decimal(9,1),v10 datetime,v11 varchar(50),v12 varchar(50),v13 varchar(200)) as 39。 drop procedure p139。)39。p39。 and type=39。p139。if exists(select name from sysobjects where name=39。 。)。 (39。begin 。var s:string。（4）若需打印學(xué)員花名冊或考勤冊，點擊［打印花名冊］或［打印考勤冊］按鈕即可。為方便操作，用戶可以不必返回主界面，直接點擊［新學(xué)員］便可繼續(xù)錄入新學(xué)員的報名信息。填好以后點擊［保存］按鈕，此學(xué)員即可完成報名。（2）若需進行報名登記，在此操作界面上點擊［學(xué)員報名］按鈕，打開子操作界面“報名登記”。圖16. 跟車報名界面（1）打開菜單【學(xué)員管理】/【入學(xué)管理】/【跟車培訓(xùn)報名】，進入“跟車培訓(xùn)報名”功能界面。參加跟車培訓(xùn)的學(xué)員也可自費參加計時培訓(xùn)。跟車培訓(xùn)是各駕駛學(xué)校根據(jù)教學(xué)大綱要求，為學(xué)員提供的常規(guī)駕駛培訓(xùn)。第四章 系統(tǒng)主要功能模塊的實現(xiàn)駕校管理軟件涉及到學(xué)生報名、分車排課，考試晉階等模塊，雖然設(shè)計的不是大型系統(tǒng)，但本系統(tǒng)的代碼設(shè)計與實現(xiàn)還是一個較為龐大、復(fù)雜的工程。表10. 汽車表（表名：car）類型名類型索引是否為空長度說明caridchar主鍵否15車牌號碼tamechar是20教師姓名ctypechar是4車類型pricemoney是10價格repairfeemoney是10維修費用repairtimedatetime是8維修時間feetimedatetime是8加油時間oilfeemoney是10油費表3. 培訓(xùn)表（表名：train）類型名類型索引是否為空長度說明stidchar外鍵否10學(xué)生編號caridchar外鍵否10車牌號碼Finishtime1int是4階段一完成學(xué)時Traintime1datetime是8階段一培訓(xùn)日期Finishtime2int是4階段二完成學(xué)時Traintime2datetime是8階段二培訓(xùn)日期Finishtime3int是4階段三完成學(xué)時Traintime3datetime是8階段三培訓(xùn)日期管理員將車輛分配結(jié)束以后，學(xué)生將接受正式培訓(xùn)，培訓(xùn)階段（JXNAME）記錄每個學(xué)生所處的培訓(xùn)階段，培訓(xùn)學(xué)時（finishitime）記錄每個學(xué)生完成的學(xué)時，必須達到相應(yīng)的學(xué)時才能進行階段考試。表9. 教師表（表名：teacher）類型名類型索引是否為空長度說明tcidchar主鍵否10教師編號tamechar是20教師姓名ttypechar是4駕駛類型caridchar外鍵否10車牌號碼btimedatetime是8上任時間stimedatetime是8離職時間phonechar是20電話號碼教師和車輛是一一對應(yīng)的關(guān)系，但是每個老師可以對應(yīng)多個學(xué)生。數(shù)據(jù)庫關(guān)系結(jié)構(gòu)圖如圖15所示。 數(shù)據(jù)庫設(shè)計本系統(tǒng)采用SQL server 2000 作為數(shù)據(jù)庫存放數(shù)據(jù)的,數(shù)據(jù)庫名稱：biyeshiji,共設(shè)計了六張固定表,分別是：跟車學(xué)生表(student),教員表(teacher),車輛表(car), 培訓(xùn)表(train),成績表（score），投訴表(tousu),跟車費用表（genchefee），用戶表（user）。（2） 財務(wù)人員根據(jù)名單內(nèi)容，錄入費用，系統(tǒng)將信息寫入費用表。跟車?yán)U費流程如圖14所示。如果學(xué)員在未完成教學(xué)大綱所規(guī)定的課程要求而要求離校，學(xué)校則根據(jù)學(xué)生在學(xué)校完成的階段情況對學(xué)生進行費用結(jié)算。計時培訓(xùn)費用將獨立于學(xué)費之外，此費用并不是必須的，是根據(jù)學(xué)生自愿的原則。財務(wù)模塊的主要功能是對駕校培訓(xùn)過程車的費用變化進行操作，次模塊由專門的財務(wù)人員進行操作，負(fù)責(zé)對學(xué)員報名進行的繳費，培訓(xùn)退費，以及結(jié)業(yè)費用清算進行操作。（2）判斷培訓(xùn)課程、考試成績以及所繳費用。計時結(jié)業(yè)流程如圖13所示。（3）生成結(jié)業(yè)名單。圖12. 跟車結(jié)業(yè)流程 跟車結(jié)業(yè)的具體流程如下（1）選擇學(xué)員并輸入結(jié)業(yè)日期。跟車培訓(xùn)結(jié)業(yè)是指在完成駕校所有培訓(xùn)項目并在階段考試中取得合格的前提下，學(xué)校予以結(jié)業(yè)并發(fā)放駕照，此環(huán)節(jié)進行批量處理。（3）根據(jù)考試成績，確定晉階名單，修改學(xué)生表中的狀態(tài)信息。系統(tǒng)接受到教學(xué)日志后，進行以下操作（1）根據(jù)不同階段的培訓(xùn)學(xué)時要求，確定是否納入考試名單，將培訓(xùn)信息表中的完成學(xué)時名單復(fù)制到考試名單。（6）根據(jù)學(xué)校指定路段寫入訓(xùn)練表。（4）判斷與教練的時間是否有沖突，在訓(xùn)練表中寫入相應(yīng)培訓(xùn)時間。在排課過程中，系統(tǒng)的操作如下：（2）根據(jù)車輛分配情況，自動劃分到相應(yīng)教練。根據(jù)學(xué)生信息表中教師的編號，來判斷學(xué)生是否滿足排課要求。分車排課和晉階的具體流程如圖11所示。（3）計時報名再完成名單更新以后，屬于和駕校的額外交易，需要獨立簽定協(xié)議當(dāng)有學(xué)生完成報名后，意味著學(xué)校需要正式開始對學(xué)生進行培訓(xùn)，第一步就是對學(xué)員進行分車，系統(tǒng)同樣采用批量處理的方式對學(xué)員進行分車，系統(tǒng)將自動根據(jù)學(xué)員申報的車型，為其指定相應(yīng)的教練。圖10. 計時報名流程計時報名的具體步驟如下：（1）當(dāng)管理員進入主界面以后，計時報名的菜單激活，管理員進行計時報名的信息錄入。計時培訓(xùn)報名，是指在教學(xué)大綱培訓(xùn)時間以外的時間，由駕校自行安排計時培訓(xùn)項目，學(xué)員自愿報名，流程與跟車培訓(xùn)報名類似，該培訓(xùn)項目進行另外收費。（5）經(jīng)過篩選，確定跟車名單以后，考生需要進行繳費，管理員則錄入每個學(xué)生所繳納的實際費用。（3）管理員根據(jù)學(xué)生的材料錄入相關(guān)的報名信息，系統(tǒng)首相對身份證,申請車型，視力等基本信息進行審核，符合駕校規(guī)定的則將該生劃入跟車名單；反之則會提示相應(yīng)不