control_evaluationu.pas

包括学生的教育经历

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.