【文章內(nèi)容簡介】 *from 用戶表 where 用戶名=39。39。39。++39。39。39。39。)。 MessageBox(handle,39。查詢完畢！39。,39。提示39。,MB_OK or MB_ICONINFORMATION)。 。 :=39。39。 end。end。procedure (Sender: TObject)。begin。end。procedure (Sender: TObject)。varsql:string。beginif (39。39。)or (39。39。)or (39。39。)or (39。39。)or (39。39。)or (39。39。)then sql:=39。where (用戶名 like39。39。39。+39。%39。++39。%39。39。) or (聯(lián)系地址 like39。39。39。+39。%39。++39。%39。39。) or (聯(lián)系電話 like39。39。39。+39。%39。++39。%39。39。) or (郵政編碼 like39。39。39。+39。%39。++39。%39。39。) or (所在系別 like39。39。39。+39。%39。++39。%39。39。) or (所在班級 like39。39。39。+39。%39。++39。%39。39。)39。 else begin (39。沒有查詢條件！39。,39。提示39。,mb_ok)。 exit。 end。 。 。 (39。select * from 用戶表39。)。 (sql)。 。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。end。procedure (Sender: TObject)。beginif =tabsheet1 thenbeginif 0 thenbegin。(39。你已刪除該用戶的信息39。,39。刪除提示39。,mb_ok)。endelse(39。沒有用戶可刪除或沒有選定要刪除用戶！39。,39。刪除提示39。,mb_ok)。end。if =tabsheet2 thenbeginif 0 thenbegin。(39。你已刪除該用戶的信息39。,39。刪除提示39。,mb_ok)。endelse(39。沒有用戶可刪除或沒有選定要刪除用戶！39。,39。刪除提示39。,mb_ok)。end。end。procedure (Sender: TObject)。begin :=tabsheet1。 。 。 :=39。select * from 用戶表 39。 。 (39。已刷新39。,39。信息提示39。,mb_ok)。end。procedure (Sender: TObject)。begin if =tabsheet1 then begin if (=39。39。)or(=39。39。)or(=39。39。) or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)thenbegin(39。信息不完整！39。,39。錯誤操作39。,mb_ok)。exit。endelse 。 end。if =tabsheet2 thenbeginif (=39。39。)or(=39。39。)or(=39。39。) or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)thenbegin(39。信息不完整！39。,39。錯誤操作39。,mb_ok)。exit。endelse 。 end。end。procedure (Sender: TObject)。begin if =tabsheet1 then begin if (=39。39。)or(=39。39。)or(=39。39。) or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)thenbegin(39。信息不完整！39。,39。錯誤操作39。,mb_ok)。exit。endelse 。 end。 if =tabsheet2 then begin if (=39。39。)or(=39。39。)or(=39。39。) or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)thenbegin(39。信息不完整！39。,39。錯誤操作39。,mb_ok)。exit。endelse 。 end。end。function IsVaildEmailAddr(EmailAddr:String):boolean。var Number,I:integer。 //Number用于給字符39。@39。計數(shù) TempStr:String。begin TempStr:=EmailAddr。 Number:=0。 for I:=1 to Length(TempStr) do begin if (TempStr [I]=39。@39。) then INC(Number)。 end。 if ((Number =0)or(Number 1)) then Result:=False//如果不含有字符39。@39。，或者其個數(shù)大于１，則不合法 else begin if ((TempStr [1]=39。@39。)or (TempStr [length(TempStr)]=39。@39。)) then Result:=False//如果字符39。@39。的位置在字符串開頭或者末尾，則不合法 else begin I:=pos(39。@39。,TempStr)。//獲取字符39。@39。在字符串當(dāng)中的位置 delete(TempStr,1,I)。//獲取字符串中字符39。@39。后面的剩余子串 if (Length(TempStr)3) then Result:=False //如果剩余子串的長度小于3,則不合法 else begin if ((pos(39。.39。,TempStr)=0)or(pos(39。.39。,TempStr)=length(TempStr)) or (pos(39。.39。,TempStr)=1))then Result:=False//如果剩余的子串當(dāng)中不含有字符39。.39。，或者其位置在//子串的開頭或者末尾，則不合法 else Result:=True。 //以上的判斷都通過，則表示地址字符串為合法 end。 end。 end。 end。procedure (Sender: TObject)。varh,k,t,r:string。beginif =tabsheet1 then if =0 then beginh:=。k:=。 if (=39。39。)or(=39。39。)or(=39。39。) or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)thenbegin(39。信息不完整！39。,39。錯誤操作39。,mb_ok)。exit。endelseif hk thenbegin(39。密碼不匹配！39。,39。錯誤操作39。,mb_ok)。exit。endelseif not (IsVaildEmailAddr()) then begin ShowMessage(39。您輸入的電子郵件地址格式不合法!39。)。 exit。 endelse 。 。 (39。你已修改該用戶的信息39。,39。修改提示39。,mb_ok)。endelse(39。沒有用戶可修改或沒有選定要修改用戶！39。,39。修改提示39。,mb_ok)。if =tabsheet2 then if =0 then begint:=。r:=。 if (=39。39。)or(=39。39。)or(=39。39。) or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)thenbegin(39。信息不完整！39。,39。錯誤操作39。,mb_ok)。exit。endelseif tr thenbegin(39。密碼不匹配！39。,39。錯誤操作39。,mb_ok)。exit。endelseif not (IsVaildEmailAddr()) then begin ShowMessage(39。您輸入的電子郵件地址格式不合法!39。)。 exit。 endelse 。 。 (39。你已修改該用戶的信息39。,39。修改提示39。,mb_ok)。endelse(39。沒有用戶可修改或沒有選定要修改用戶！39。,39。修改提示39。,mb_ok)。end。procedure (Sender: TObject)。beginif =tabsheet1 thenbegin :=true。 :=false。 :=clpurple。 :=clpurple。 :=clpurple。 :=clpurple。 :=clpurple。 :=clpurple。 :=clpurple。 end else begin :=true。 :=false。 :=clteal。 :=clteal。 :=clteal。 :=clteal。 :=clteal。 :=clteal。 :=clteal。 endend。end.精確查詢模塊代碼procedure (Sender: TObject)。begin:=。if =39。39。 then begin MessageBox(handle,39。請輸入姓名,不能為空！39。,39。提示39。,MB_OK or MB_ICONINFORMATION)。 exit。 endelse begin 。 。 (39。select *from 用戶表 where 用戶名=39。39。39。++39。39。39。39。)。 MessageBox(handle,39。查詢完畢！39。,39。提示39。,MB_OK or MB_ICONINFORMATION)。 。 :=39。39。 end。end。end.學(xué)生成績管理系統(tǒng)模塊代碼procedure (AId: integer。FatherNode:TTreeNode)。var QryTmp:TADOQuery。 myNode:TTreeNode。 myLabel:TLabel。begin QryTmp:=(self)。 :=39。Provider=。Data Source=39。+extractfilepath()+39。Persist Security Info=False39。 (39。select * from 數(shù)據(jù)處理錄入表39。)。 (39。where FatherId=39。+inttostr(AId))。 。 while not do begin myNode:=(FatherNode,(39。CName39。).AsString)。 //創(chuàng)建標(biāo)簽，caption存放各分支的AutoId表識 myLabel:=(self)。 :=false。 :=(39。AutoId39。).AsString。 :=myLabel。 AddClass((39。AutoId39。).AsInteger,myNode)。 //遞歸調(diào)用過程 。 end。 。end。procedure (Sender: TObject)。var strName:string。 myNode:TTreeNode。begin strName:=inputbox(39。新增系部39。,39。請輸入系部名稱： 39。,39。39。)。 strName:=trim(strName)。 if strName=39。39。 then exit。 myNode:=(,strName)。 if assigned() then AddDataToDB(myNode,) else AddDataToDB(myNode,nil)。 :=true。end。procedure (CurrNode,FatherNode: TTreeNode)。var myLabel:TLabel。 QryTmp:TADOQuery。 AId:integer。 //為節(jié)點標(biāo)位begin if not assigned(FatherNode) then AId:=0 else if not assigned() then AId:=0 else AId:=strtoint(TLabel().capti