?? control_evaluationu.pas.~1~
字號:
unit Control_evaluationU;
interface
uses DAHelper,ClassesU,ADODB,SysUtils;
//添加獎懲信息
function AddEvaluation(Evaluation:TEvaluation):boolean;
//修改獎懲信息
function EditEvaluation(Evaluation:TEvaluation):boolean;
//刪除獎懲信息
function DelEvaluation(EvaluationID:integer):boolean;
//得到獎懲信息
function GetEvaluationArray:TADOQuery;
//查找獎懲信息,如果沒有查找到該獎懲信息,返回空值
function GetEvaluation(OpID:integer):TEvaluation;
//查找獎懲信息by學號
function GetEvaluationByStdNO(StdNO:string):TADOQuery;
implementation
function GetEvaluationByStdNO(StdNO:string):TADOQuery;
var
sql:string;
begin
sql:='select id,學生證號,獎懲日期,獎懲類型,isnull(獎懲說明,'''') 獎懲說明 from 獎懲信息';
if StdNO<>'' then
sql:=sql+' where 學生證號='+''''+StdNO+'''';
result:=DAHelper.ExeSqlQuery(sql);
end;
function GetEvaluation(OpID:integer):TEvaluation;
var
Evaluation:TEvaluation;
sql:string;
Adoquery:TADOQuery;
begin
sql:='select id,學生證號,獎懲日期,獎懲類型,isnull(獎懲說明,'''') 獎懲說明 from 獎懲信息'+
' where ID='+inttostr(OpID);
Adoquery:=DAHelper.ExeSqlQuery(sql);
if Adoquery.RecordCount<1 then
begin
result:=nil;
end
else
begin
Evaluation:=TEvaluation.Create;
Evaluation.id:=ADOQuery.Fields[0].Value;
Evaluation.stdNo:=ADOQuery.Fields[1].Value;
Evaluation.Edate:=DateToStr(ADOQuery.Fields[2].Value);
Evaluation.Etype:=ADOQuery.Fields[3].Value;
Evaluation.remark:=ADOQuery.Fields[4].Value;
result:=Evaluation;
end;
end;
function GetEvaluationArray:TADOQuery;
var
sql:string;
begin
sql:='select id,學生證號,獎懲日期,獎懲類型,isnull(獎懲說明,'''') 獎懲說明 from 獎懲信息';
result:=DAHelper.ExeSqlQuery(sql);
end;
function DelEvaluation(EvaluationID:integer):boolean;
var
sql:string;
begin
sql:='delete from 獎懲信息 where id='+inttostr(EvaluationID);
result:=DAHelper.ExeSqlNoQuery(sql);
end;
function EditEvaluation(Evaluation:TEvaluation):boolean;
var
sql:string;
begin
sql:='update 獎懲信息 set 學生證號='+''''+Evaluation.stdNo+''''+
',獎懲日期='+''''+Evaluation.Edate +''''+
',獎懲類型='+''''+Evaluation.Etype +''''+
',獎懲說明='+''''+Evaluation.remark+''''+
' where id='+inttostr(Evaluation.id);
result:=DAHelper.ExeSqlNoQuery(sql);
end;
function AddEvaluation(Evaluation:TEvaluation):boolean;
var
sql:string;
begin
sql:='insert into 獎懲信息(學生證號,獎懲日期,獎懲類型'+
',獎懲說明)'+' values('+''''+Evaluation.stdNo+''''+
','+''''+Evaluation.Edate+''''+
','+''''+Evaluation.Etype+''''+
','+''''+Evaluation.remark+''''+')';
result:=DAHelper.ExeSqlNoQuery(sql);
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -