【正文】 。 (39。select*from student,teacher where = and carid=:t139。)。 parameters[0].Value:=s1。 open。 end。 with adoquery5 do begin close。 。 (39。select*from teacher where carid=:c139。)。 (39。c139。).Value:=s1。 open。 tc:=fieldbyname(39。tcid39。).AsString end。 with adomand1 do begin if (0) then begin for i:=0 to do begin if =4 then begin panduan:=1。 showmessage(39。該車學員已滿39。)。 break。 end else begin (pointer([i]))。 mandtext:=39。update student set tcid=:tc1 where stid=:st1 39。 (39。tc139。).Value:=tc。 (39。st139。).Value:=[0].Value。 with adomand2 do begin mandtext:=39。update train set carid =:cc where stid=:st139。 (39。cc39。).Value:=s1。 (39。st139。).Value:=[0].Value。 execute。 end。 execute。 end。 with adoquery4 do begin close。 。 (39。select*from student,teacher where = and carid=:t139。)。 parameters[0].Value:=s1。 open。 end。 end。 if panduan1 then begin showmessage(39。保存成功39。)。 end。 end。 end。 with adoquery3 do begin close。 。 (39。select stid as 學生編號,sname as 學生姓名,sfcard as 身份證號,sqtype as 準駕類型,btime as 入學日期 from student,teacher where = and ttype=:p1 and carid=:p2 and =39。39。39。39。39。)。 parameters[0].Value:=s2。 parameters[1].Value:=s1。 open。 end。end。procedure (Sender: TObject)。begin。end。procedure (Sender: TObject)。var i:integer。beginwith adomand1 dobeginif 0 then begin for i:=0 to do begin (pointer([i]))。 mandtext:=39。update student set tcid=39。39。39。39。 where stid=:st139。 (39。st139。).Value:=[0].Value。 with adomand2 do begin mandtext:=39。update train set carid =39。39。未分配39。39。 where stid=:st139。 (39。st139。).Value:=[0].Value。 execute。 end。 execute。 end。 end。showmessage(39。保存成功39。)。end。 with adoquery3 do begin close。 。 (39。select stid as 學生編號,sname as 學生姓名,sfcard as 身份證號,sqtype as 準駕類型,btime as 入學日期 from student,teacher where = and ttype=:p1 and carid=:p2 and 39。39。39。39。39。)。 parameters[0].Value:=s2。 parameters[1].Value:=s1。 open。 end。end。procedure (Sender: TObject)。begin if =true then begin with adoquery3 do begin close。 。 (39。select stid as 學生編號,sname as 學生姓名,sfcard as 身份證號,sqtype as 準駕類型,btime as 入學日期 from student,teacher where = and ttype=:p1 and carid=:p2 39。)。 parameters[0].Value:=s2。 parameters[1].Value:=s1。 open。 end。 end else begin with adoquery3 do begin close。 。 (39。select stid as 學生編號,sname as 學生姓名,sfcard as 身份證號,sqtype as 準駕類型,btime as 入學日期 from student,teacher where = and ttype=:p1 and carid=:p2 and =39。39。39。39。 39。)。 parameters[0].Value:=s2。 parameters[1].Value:=s1。 open。 end。 end。end。發(fā)培訓課程安排（排課）包括跟車培訓課程安排和計時培訓課程安排。在排課之前，必須先維護好相關(guān)環(huán)境數(shù)據(jù)，如：跟車（計時）培訓項目、車輛信息、教練信息等。所安排的課程訓練結(jié)束后，應當將相應課程的訓練情況記入教學日志。學員排課界面如圖19所示。圖19. 排課界面（1）點擊［跟車培訓排課］按鈕，打開“跟車培訓課程安排”操作界面，系統(tǒng)顯示所有跟車培訓在校學員名單。（2）可通過選擇窗口上部的各個選項，列出需要的學員記錄。也可通過［條件查詢］方式列出符合指定條件的學員記錄。（3）可以一次對一個學員排課，也可一次對課程安排相同的多個學員進行排課。但同時排課的學員必須滿足三個條件：①教學模式相同；②考證類型相同；③所處階段相同。（4）單擊某學員記錄即可選中該記錄（也可多選），窗口左下部將顯示與所選學員相應的可用于安排培訓的“備選項目”列表，從中選取此次排課的一個或多個項目后，點擊［］按鈕，被選項目將顯示在右邊的列表中，表示即將對這些教學項目排課。若此時要取消某些項目，可在右邊的列表中選取相應的項目后點擊［］按鈕予以取消。課程編排代碼實現(xiàn)：procedure (Sender: TObject)。begin with adoquery1 do begin close。 。 (39。select*from sttocar39。)。 open。 end。 with adoquery2 do begin close。 。 (39。select*from sttotc39。)。 open。 end。end。procedure (Sender: TObject)。begin if =0 then begin with adoquery1 do begin close。 。 (39。select*from sttocar39。)。 open 。 end。 with adoquery2 do begin close。 。 (39。select*from sttotc39。)。 open。 end。 end else begin with adoquery1 do begin close。 。 (39。select*from tctocar39。)。 open 。 end。 with adoquery2 do begin close。 。 (39。select*from tctost39。)。 open。 end。 end。end。procedure (Sender: TObject)。begin 。end。 職員檔案是職員進入本駕駛學校內(nèi)工作，成為學校的一員，校方給予的基本備注，其內(nèi)容包括職員的基本信息，簡歷及關(guān)系等，用于工作安排和人事調(diào)遷。用戶可以查詢到在職狀態(tài)下的職員，也可查找到離職狀態(tài)的職員。新增教員界面如圖20所示。圖20. 新增教員界面（1）打開菜單【后勤管理】/【職員管理】/【職員檔案管理】，進入此操作界面，系統(tǒng)將顯示所有在職員工的檔案記錄。（2）在操作界面下部有三個選項，根據(jù)需要進行選擇后，點擊［信息確認］按鈕，系統(tǒng)將提示信息是否完整。（3）若要查詢滿足某些條件的學員記錄，可通過［條件查詢］方式設置查詢條件進行查詢。（4）如需增加新的職員檔案，點擊［新增職員］按鈕，進入“職員檔案錄入”子操作模塊，根據(jù)要求輸入相應的職員信息，點擊［保存］按鈕，職員檔案新增成功；在此界面上點擊［增加］便可繼續(xù)錄入新職員的基礎檔案信息；點擊［返回］可回到“職員檔案管理”主操作界面。（5）雙擊某個職員的記錄，系統(tǒng)彈出該職員檔案記錄，可對其中信息進行修改。（6）單擊窗口中某一數(shù)據(jù)記錄，再點擊［刪除］按鈕，可以刪除此職員的檔案記錄。刪除檔案記錄應慎重，謹防誤操作新增教員代碼實現(xiàn)procedure (Sender: TObject)。begin with adoquery2 do begin close。 。 (39。select carid as 汽車牌照 ,tame as 教練,ctype as 汽車類型,lrtime as 錄入時間,qihao as 電話號碼 from car39。)。 open。 end。 with adoquery1 do begin close。 。 (39。select tame from teacher where carid 39。39。39。39。39。)。 open。 first。 while not eof do begin (fieldbyname(39。tame39。).AsString)。 next。 end。 end。 with adoquery1 do begin close。 。 (39。select qihao from banqi39。)。 open。 first。 while not eof do begin (fieldbyname(39。qihao39。).AsString)。 next。 end。 end。 :=false。 :=datetimetostr(date)。end。pr