control_statusu.pas

包括学生的教育经历

unit Control_statusU;

interface
uses DAHelper,ClassesU,ADODB,SysUtils;
//添加学籍变动信息
function AddStatus(Status:TStatus):boolean;
//修改学籍变动信息
function EditStatus(Status:TStatus):boolean;
//删除学籍变动信息
function DelStatus(id:integer):boolean;
//得到学籍变动信息
function GetStatusArray:TADOQuery;
//根据学生号查找学籍变动信息
function GetStatusByStdNo(StatusNo:string):TStatus;
//根据学生号查找学籍变动信息，返回TADOQuery类型
function GetStatusQueryByStdNo(StdNo:string):TADOQuery;
implementation
function GetStatusQueryByStdNo(StdNo:string):TADOQuery;
var
  sql:string;
begin
  sql:='select id,学生证号,变动类型,变动日期,原班级编号,'+
       'isnull(转入学校名称,'''') 转入学校名称,'+
       'isnull(转入班级编号,'''') 转入班级编号,'+
       'isnull(学籍变动原因,'''') 学籍变动原因,'+
       'isnull(备注,'''') 备注 from 学籍变动'+
       ' where 学生证号='+''''+StdNo+'''';
  result:=DAHelper.ExeSqlQuery(sql);
end;

function GetStatusByStdNo(StatusNo:string):TStatus;
var
  sql:string;
  Status:TStatus;
  ADOQuery:TADOQuery;
begin
  ADOQuery:=TADOQuery.Create(nil);
  sql:='select id,学生证号,变动类型,变动日期,原班级编号,'+
       'isnull(转入学校名称,'''') 转入学校名称,'+
       'isnull(转入班级编号,'''') 转入班级编号,'+
       'isnull(学籍变动原因,'''') 学籍变动原因,'+
       'isnull(备注,'''') 备注 from 学籍变动'+
       ' where 学生证号='+''''+StatusNo+'''';
  ADOQuery:=DAHelper.ExeSqlQuery(sql);
  if(ADOQuery.RecordCount<1) then
    begin
      result:=nil;
    end
  else
      begin
        Status:=TStatus.Create;
        Status.id:=ADOQuery.Fields[0].Value;
        Status.studentNo:=ADOQuery.Fields[1].Value;
        Status.changeType:=ADOQuery.Fields[2].Value;
        Status.changeDate:=DateToStr(ADOQuery.Fields[3].Value);
        Status.oldClass:=ADOQuery.Fields[4].Value;
        Status.newSchool:=ADOQuery.Fields[5].Value;
        Status.newClass:=ADOQuery.Fields[6].Value;
        Status.reason:=ADOQuery.Fields[7].Value;
        Status.remark:=ADOQuery.Fields[8].Value;
        result:=Status;
      end;
  ADOQuery:=nil;
end;
function GetStatusArray:TADOQuery;
var
  sql:string;
begin
  sql:='select id,学生证号,变动类型,变动日期,原班级编号,'+
       'isnull(转入学校名称,'''') 转入学校名称,'+
       'isnull(转入班级编号,'''') 转入班级编号,'+
       'isnull(学籍变动原因,'''') 学籍变动原因,'+
       'isnull(备注,'''') 备注 from 学籍变动';
  result:=DAHelper.ExeSqlQuery(sql);
end;
function DelStatus(id:integer):boolean;
var
  sql:string;
begin
  sql:='delete from 学籍变动 where id='+inttostr(id);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function EditStatus(Status:TStatus):boolean;
var
  sql:string;
begin
  sql:='update 学籍变动 set 学生证号='+''''+Status.studentNo+''''+
       ',变动类型='+''''+Status.changeType +''''+
       ',原班级编号='+''''+Status.oldClass +''''+
       ',转入学校名称='+''''+Status.newSchool+''''+
       ',转入班级编号='+''''+Status.newClass+''''+
       ',学籍变动原因='+''''+Status.reason+''''+
       ',备注='+''''+Status.remark+''''+
       ' where id='+inttostr(Status.id);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function AddStatus(Status:TStatus):boolean;
var
  sql:string;
begin
  sql:='insert into 学籍变动(学生证号,变动类型,变动日期,原班级编号,'+
       '转入学校名称,转入班级编号,学籍变动原因,'+
       '备注)'+' values('+''''+Status.studentNo+''''+','+''''+Status.changeType+''''+
       ','+''''+Status.changeDate+''''+','+''''+Status.oldClass+''''+','+
       ''''+Status.newSchool+''''+','+
       ''''+Status.newClass+''''+','+''''+Status.reason+''''+
       ','+''''+Status.remark+''''+ ')';
  result:=DAHelper.ExeSqlNoQuery(sql);
end;

end.
end.