【正文】 部名稱： 39。新增系部39。 myNode:TTreeNode。procedure (Sender: TObject)。 。 //遞歸調(diào)用過程 。AutoId39。 :=myLabel。AutoId39。 :=false。).AsString)。 while not do begin myNode:=(FatherNode,(39。+inttostr(AId))。 (39。select * from 數(shù)據(jù)處理錄入表39。Persist Security Info=False39。Data Source=39。 :=39。 myLabel:TLabel。var QryTmp:TADOQuery。end.學(xué)生成績管理系統(tǒng)模塊代碼procedure (AId: integer。 end。 :=39。,MB_OK or MB_ICONINFORMATION)。,39。 MessageBox(handle,39。39。39。39。select *from 用戶表 where 用戶名=39。 。 exit。提示39。請輸入姓名,不能為空！39。39。begin:=。 endend。 :=clteal。 :=clteal。 :=clteal。 :=false。 :=clpurple。 :=clpurple。 :=clpurple。 :=clpurple。beginif =tabsheet1 thenbegin :=true。end。修改提示39。沒有用戶可修改或沒有選定要修改用戶！39。,mb_ok)。,39。 (39。 endelse 。)。endelseif not (IsVaildEmailAddr()) then begin ShowMessage(39。,mb_ok)。,39。endelseif tr thenbegin(39。,mb_ok)。,39。)thenbegin(39。)or (=39。)or (=39。)or (=39。)or (=39。)or (=39。)or (=39。) or (=39。)or(=39。)or(=39。 if (=39。if =tabsheet2 then if =0 then begint:=。修改提示39。沒有用戶可修改或沒有選定要修改用戶！39。,mb_ok)。,39。 (39。 endelse 。)。endelseif not (IsVaildEmailAddr()) then begin ShowMessage(39。,mb_ok)。,39。endelseif hk thenbegin(39。,mb_ok)。,39。)thenbegin(39。)or (=39。)or (=39。)or (=39。)or (=39。)or (=39。)or (=39。) or (=39。)or(=39。)or(=39。 if (=39。beginif =tabsheet1 then if =0 then beginh:=。procedure (Sender: TObject)。 end。 //以上的判斷都通過，則表示地址字符串為合法 end。.39。.39。.39。.39。39。在字符串當(dāng)中的位置 delete(TempStr,1,I)。//獲取字符39。39。39。39。39。39。 end。39。 Number:=0。計(jì)數(shù) TempStr:String。 //Number用于給字符39。function IsVaildEmailAddr(EmailAddr:String):boolean。 end。exit。錯誤操作39。信息不完整！39。39。39。39。39。39。39。39。39。39。39。 end。exit。錯誤操作39。信息不完整！39。39。39。39。39。39。39。39。39。39。39。procedure (Sender: TObject)。 end。exit。錯誤操作39。信息不完整！39。39。39。39。39。39。39。39。39。39。39。 end。exit。錯誤操作39。信息不完整！39。39。39。39。39。39。39。39。39。39。39。procedure (Sender: TObject)。,mb_ok)。,39。 (39。select * from 用戶表 39。 。begin :=tabsheet1。end。,mb_ok)。,39。endelse(39。刪除提示39。你已刪除該用戶的信息39。if =tabsheet2 thenbeginif 0 thenbegin。,mb_ok)。,39。endelse(39。刪除提示39。你已刪除該用戶的信息39。beginif =tabsheet1 thenbeginif 0 thenbegin。end。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。 (sql)。select * from 用戶表39。 。 end。,mb_ok)。,39。 else begin (39。39。++39。+39。39。39。++39。+39。39。39。++39。+39。39。39。++39。+39。39。39。++39。+39。39。39。++39。+39。39。)then sql:=39。)or (39。)or (39。)or (39。)or (39。)or (39。beginif (39。procedure (Sender: TObject)。begin。end。39。 。提示39。查詢完畢！39。)。39。++39。39。 (39。 endelse begin 。,MB_OK or MB_ICONINFORMATION)。,39。 then begin MessageBox(handle,39。if =39。procedure (Sender: TObject)。begin。end。begin。end。begin(tform8,form8)。end。begin:=tabsheet2。end。 except exit。 :=39。 :=39。 :=39。 :=39。 :=39。 (str)。select * from 課程資源表39。 。)39。%39。%39。39。and (課程代號 like39。39。)39。%39。%39。39。and (課程名稱 like39。39。)39。%39。%39。39。and (所在班級 like39。39。)39。%39。%39。39。and (所在專業(yè) like39。39。 。39。++39。+39。39。 then str:=str+39。if 39。begintrystr:=39。procedure (Sender: TObject)。beginif then:=trueelse:=false。end。procedure (Sender: TObject)。beginif then:=trueelse:=false。end。procedure (Sender: TObject)。beginif then:=trueelse:=false。end。procedure (Sender: TObject)。,mb_ok)。,39。endelse(39。修改提示39。你已修改該記錄的信息39。exit。錯誤操作39。信息不完整！39。39。39。39。39。39。procedure (Sender: TObject)。endelse。,mb_ok)。,39。)thenbegin(39。)or (=39。) or (=39。)or(=39。)or(=39。beginif =0 thenif (=39。end。exit。錯誤操作39。信息不完整！39。39。39。39。39。39。end.課程資源查詢與修改模塊代碼procedure (Sender: TObject)。39。39。,mb_ok)。,39。(39。39。39。539。39。39。439。39。39。339。39。39。239。39。39。139。)。+39。(39。endelse。,mb_ok)。,39。) thenbegin(39。)or (=39。) or (=39。)or(=39。)or(=39。beginif (=39。end。:=39。:=39。:=39。:=39。begin:=39。end。end.課程資源錄入模塊procedure (Sender: TObject)。end。:=39。:=39。完成提示39。數(shù)據(jù)已錄入，請查看！39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。values (:1,:2,:3,:4,:5,:6,:7,:8,:9,:10,:11,:12,:13,:14,:15,:16,:17,:18,:19,:20,:21,:22)39。insert into 學(xué)生基本信息表(學(xué)號,姓名,民族,出生年,出生月,貫籍,性別,所在系別,所在專業(yè),所在班級,政治面目,家庭住址,郵政編碼,聯(lián)系電話,身份證號碼,畢業(yè)學(xué)校,現(xiàn)在學(xué)歷,個人特長,電子郵箱,學(xué)制,外語,個人備注)39。)。endelse if =false then begin ShowMessage(39。,mb_ok)。,39。) thenbegin(39。) or(=39。) or(=39。)or (=39。)or (=39。)or (=39。)or (=39。)or (=39。) or (=39。)or(=39。)or(=39。 if (=39。 Open。a39。)。 (39。beginwith ADOQuery1 do begin close。end。警告39。聯(lián)系電話只能用數(shù)字表示，請重新輸入！39。,8])then begin key:=0。..39。begin if not (key in[39。procedure (Sender: TObject。,0+64) end。,39。 (39。939。039。 var Key: Char)。end。警告39。郵政編碼只能用數(shù)字表示，請重新輸入！39。,8])then begin key:=0。..39。begin if not (key in[39。procedure (Sender: TObject。begin。end。:=39。:=39。:=39。:=39。:=39。:=39。:=39。:=39。:=39。:=39。:=39。:=39。:=39。:=39。:=39。:=39。begin:=39。end。 :=39。 :=39。 :=true。密碼錯誤或管理員身份不存在！39。 。)。,39。 results1:=(39。 。var results1:variant。end。begin:=0。end。begin。 }end。:=100。procedure (Sender: TObject)。begin if 157 then :=+10 else :=false。endend。:=39。:=39。:=39。:=39。:=39。:=39。:=39。:=39。:=39。:=39。:=39。完成提示39。數(shù)據(jù)已錄入，請查看！39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。++39。).value:=39。(39。insert into 用戶表(用戶名,密碼,性別,出生年,出生月,聯(lián)系地址,聯(lián)系電話,郵政編碼,電子郵箱,所在系別,所在班級,個人愛好,用戶頭像,用戶備注)values (:1,:2,:3,:4,:5,:6,:7,:8,:9,:10,:11,:12,:13,:14)39。