?? 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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -