【導(dǎo)讀】不夠、教練車質(zhì)量不好、學(xué)車場地不足等問題，不少駕校采取“速成”的辦法，學(xué)員拿到駕照后不會開車的現(xiàn)象屢見不鮮?！八俪伞瘪{校培養(yǎng)的“馬路殺手”給交通。關(guān)的大問題，加強(qiáng)駕校管理迫在眉睫。本論文針對目前駕校管理的實(shí)際需求，開發(fā)了一個駕校管理系統(tǒng)。術(shù)要點(diǎn)，實(shí)現(xiàn)駕校分車、課程安排、考試管理、階段晉升以及考生畢業(yè)等功能。同時，還對車輛、教練的維護(hù)做了設(shè)計(jì)。通過本系統(tǒng)，用戶可以對學(xué)校學(xué)生，教。成，還有對不同模塊的管理，權(quán)限設(shè)置，密碼修改等其他系統(tǒng)管理功能。駕校的信息化管理，從而大大提高了工作效率。

　　

【正文】 rt 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。 s:=s+39。 end39。 :=s。 。 with adostoredproc1 do begin procedurename:=39。p139。 。 24 (39。vv139。,ftstring,pdinput,50,39。39。)。 (39。vv239。,ftstring,pdinput,50,39。39。)。 (39。vv339。,ftinteger,pdinput,10,0)。 (39。vv439。,ftstring,pdinput,50,39。39。)。 (39。vv539。,ftstring,pdinput,10,39。39。)。 (39。vv639。,ftstring,pdinput,10,39。39。)。 (39。vv739。,ftstring,pdinput,9,39。39。)。 (39。vv839。,ftfloat,pdinput,9,0)。 (39。vv939。,ftfloat,pdinput,9,0)。 (39。vv1039。,ftdatetime,pdinput,50,0)。 (39。vv1139。,ftstring,pdinput,50,39。39。)。 (39。vv1239。,ftstring,pdinput,10,39。39。)。 (39。vv1339。,ftstring,pdinput,200,39。39。)。 with adoquery3 do begin close。 。 (39。select top 1*from student order by stid desc39。)。 open。 st:=fieldbyname(39。stid39。).AsString。 end。 if st=39。39。 then st:=39。st00039。 (39。vv139。).Value:=39。st0039。+inttostr(strtoint(copy(st,3,3))+1)。 (39。vv239。).Value:=trim()。 (39。vv339。).Value:=strtoint(trim())。 (39。vv439。).Value:=trim()。 (39。vv539。).Value:=trim()。 (39。vv639。).Value:=trim()。 (39。vv739。).Value:=trim()。 (39。vv839。).Value:=strtofloat(trim())。 (39。vv939。).Value:=strtofloat(trim())。 (39。vv1039。).Value:=strtodatetime(trim())。 (39。vv1139。).Value:=trim()。 (39。vv1239。).Value:=trim()。 (39。vv1339。).Value:=trim()。 if 1 then begin execproc。 :=39。insert into train (stid) values(:p14)39。 (39。p1439。).Value:=st。 。 :=39。insert into score (stid) values(:p15)39。 (39。p1539。).Value:=st。 25 。 showmessage(39。保存成功 39。)。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 end else showmessage(39。者身份證重復(fù) 39。)。 end。 with adoquery2 DO BEGIN close。 。 (39。select stid as 學(xué)生編號 ,sname as 學(xué) 生姓名 ,sfcard as 身份證號 ,zjtype as 準(zhǔn)駕車型 ,sqtype 申請車型 ,bmtime as 入學(xué)時間 from student39。)。 open。 END。 :=false。 。 end。 procedure (Sender: TObject)。 begin with adoquery2 DO BEGIN close。 。 (39。select stid as 學(xué)生編號 ,sname as 學(xué)生姓名 ,sfcard as 身份證號 ,zjtype as 準(zhǔn)駕車型 ,sqtype 申請車型 ,bmtime as 入學(xué)時間 from student39。)。 open。 END。 :=false。 :=datetimetostr(date)。 end。 procedure (Sender: TObject。 var Key: Char)。 begin if ((key39。039。) or (key39。939。)) and (key13) and (key8) then begin showmessage(39。請輸入數(shù)字 39。)。 abort。 end。 end。 procedure (Sender: TObject。 var Key: Char)。 begin 26 if ((key39。039。) or (key39。939。)) and (key13) and (key8) then begin showmessage(39。請輸入數(shù)字 39。)。 abort。 end。 end。 procedure (Sender: TObject。 var Key: Char)。 begin if ((key39。039。) or (key39。939。)) and (key13) and (key39。.39。) and (key8) and (key46) then begin showmessage(39。請輸入數(shù)字 39。)。 abort。 end。 end。 procedure (Sender: TObject。 var Key: Char)。 begin if ((key39。039。) or (key39。939。)) and (key13) and (key39。.39。) and (key8) and (key46) then begin showmessage(39。請輸入數(shù)字 39。)。 abort。 end。 end。 procedure (Sender: TObject)。 begin if (39。39。) and (39。39。) and (39。39。) and (39。39。) and (39。39。)and(39。39。)and(39。39。)and(39。39。)and(ext39。39。) and(39。39。)and(39。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。身份證長度必須為 15 位或者 18 位 39。) else if (strtofloat()=) and (strtofloat()=) then showmessage(39。左眼和又眼視力不能低于 39。) else showmessage(39。請將信息填寫完整 39。)。 end。 procedure (Sender: TObject)。 begin if =0 then showmessage(39。wu39。) else 27 showmessage(39。you39。)。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin with adoquery1 do begin close。 。 (39。select distinct ctype from genche where ctype:t139。)。 (39。t139。).Value:=trim()。 open。 first。 while not eof do begin (fieldbyname(39。ctype39。).AsString)。 next。 end。 end。 end。 學(xué)員查詢及增刪改功能界面實(shí)現(xiàn) 信息維護(hù)是指對所有學(xué)員的所有信息進(jìn)行維護(hù) 學(xué)員報名入學(xué)后，系統(tǒng)根據(jù)其報名資料自動生成檔案記錄，它是學(xué)員所有基本情況的反映，同時也用于記載學(xué)員的培訓(xùn)情況。學(xué)員的信息維護(hù)界面如圖 17 所示。 28 圖 17. 信息維護(hù) 功能界面 （ 1） 打開菜單【學(xué)員管理】 /【入學(xué)管理】 /【 信息維護(hù) 】，進(jìn)入“ 信息維護(hù) ”功能界面，系統(tǒng)將顯示所有在校學(xué)員的檔案 記錄。 （ 2） 該操作界面下部的四個選項(xiàng)可根據(jù)需要進(jìn)行選擇，可多選，但至少應(yīng)選擇一項(xiàng)。點(diǎn)擊［刷新］按鈕，系統(tǒng)將顯示符合所選擇的選項(xiàng)的所有學(xué)員的檔案記錄。 （ 3） 如要查詢滿足某些條件的學(xué)員檔案記錄，可通過［ 條件查詢 ］方式設(shè)置查詢條件進(jìn)行查詢。 （ 4） 若要刪除某學(xué)員檔案記錄，可在窗口中單擊選中該學(xué)員記錄，然后點(diǎn)擊［刪除］按鈕執(zhí)行刪除。刪除功能將把該學(xué)員檔案記錄從系統(tǒng) 中完全清除，請謹(jǐn)慎使用。但當(dāng)系統(tǒng)中存在與該學(xué)員相關(guān)的培訓(xùn)記錄或財(cái)務(wù)收支記錄時，系統(tǒng)將不能執(zhí)行刪除動作。 （ 5） 若要修改某學(xué)員檔案資料，在窗口中雙擊該學(xué)員記錄，系統(tǒng)將打開“學(xué)員檔案修改”子操作界面，可對此界面中學(xué)員的相關(guān)信息作修改，點(diǎn)擊［保存］后完成修改并返回主操作界面。 （ 6） 若需打印學(xué)員花名冊或考勤冊，點(diǎn)擊［打印花名冊］或［打印考勤冊］按鈕即可。 跟車學(xué)員查詢及增刪改功能代碼實(shí)現(xiàn) procedure (Sender: TObject)。 var jd:ttreenode。 begin 。 :=false。 :=false。 :=false。 29 :=false。 :=false。 :=false。 :=false。 :=false。 with adoquery1 do begin close。 。 (39。select distinct sqtype from student39。)。 open。 first。 while not eof do begin jd:=(nil,fieldbyname(39。sqtype39。).AsString)。 with adoquery2 do begin close。 。 (39。select sname from student where sqtype=:p139。)。 parameters[0].Value:=(39。sqtype39。).AsString。 open。 while not eof do begin (jd,fieldbyname(39。sname39。).AsString)。 next。 end。 end。 next。 end。 end。 :=true。 end。 procedure (Sender: TObject。