control_visitu.pas

包括学生的教育经历

unit Control_visitU;

interface

uses DAHelper,ClassesU,ADODB,SysUtils;
//添加来访信息信息
function AddvisitInfo(visitInfo:TvisitInfo):boolean;
//修改来访信息信息
function EditvisitInfo(visitInfo:TvisitInfo):boolean;
//删除来访信息信息
function DelvisitInfo(ID:integer):boolean;
//得到来访信息信息
function GetvisitInfoArray:TADOQuery;
//查找来访信息by时间
function GetvisitInfoByTime(beginDate,endDate:string):TvisitInfo;
//写入结束时间
function Overvisit(visitID:integer):boolean;
//根据条件查找数据
function SearchDataBy(infoType,visitDate:string):TADOQuery;
implementation
function SearchDataBy(infoType,visitDate:string):TADOQuery;
var
  sql,s:string;
  begin
    s:=' where 来访时间 between '+''''+visitDate+' 0:00:00'+''''+
       ' and '+''''+visitDate+' 23:59:59'+'''';
    if infoType='未完成访问' then
      s:=s+' and 结束时间='''' ';
    if infoType='已完成访问' then
      s:=s+' and 结束时间<>'''' ';
    sql:='select id,来访人姓名,人数,被访者姓名,所属关系,来访时间,'+
       ' 结束时间,事由,值班人 from 来访信息'+s;
    result:=DAHelper.ExeSqlQuery(sql);
  end;
function Overvisit(visitID:integer):boolean;
var
  sql:string;
begin
  sql:='update 来访信息 set 结束时间='+''''+DateTimeToStr(now)+''''+
       ' where id='+inttostr(visitID);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function GetvisitInfoByTime(beginDate,endDate:string):TvisitInfo;
var
  sql:string;
  visitInfo:TvisitInfo;
  ADOQuery:TADOQuery;
begin
  ADOQuery:=TADOQuery.Create(nil);
  sql:='select id,来访人姓名,人数,被访者姓名,所属关系,来访时间,'+
       ' 结束时间,事由,值班人 from 来访信息 where 来访时间>='+
       ''''+beginDate+''''+ ' and 结束时间<='+''''+endDate+'''';
  ADOQuery:=DAHelper.ExeSqlQuery(sql);
  if(ADOQuery.RecordCount<1) then
    begin
      result:=nil;
    end
  else
      begin
        visitInfo:=TvisitInfo.Create;
        visitInfo.id:=ADOQuery.Fields[0].Value;
        visitInfo.guest:=ADOQuery.Fields[1].Value;
        visitInfo.guestNum:=ADOQuery.Fields[2].Value;
        visitInfo.interviewee:=ADOQuery.Fields[3].Value;
        visitInfo.relation:=ADOQuery.Fields[4].Value;
        visitInfo.beginDate:=ADOQuery.Fields[5].Value;
        visitInfo.endDate:=ADOQuery.Fields[6].Value;
        result:=visitInfo;
      end;
  ADOQuery:=nil;
end;
function GetvisitInfoArray:TADOQuery;
var
  sql:string;
begin
  sql:='select id,来访人姓名,人数,被访者姓名,所属关系,来访时间,'+
       ' 结束时间,事由,值班人 from 来访信息';
  result:=DAHelper.ExeSqlQuery(sql);
end;
function DelvisitInfo(ID:integer):boolean;
var
  sql:string;
begin
  sql:='delete from 来访信息 where id='+inttostr(ID);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function EditvisitInfo(visitInfo:TvisitInfo):boolean;
var
  sql:string;
begin
  sql:='update 来访信息 set 来访人姓名='+''''+visitInfo.guest+''''+
       ',人数='+inttostr(visitInfo.guestNum)+
       ',被访者姓名='+visitInfo.interviewee+
       ',所属关系='+''''+visitInfo.relation+''''+
       ',事由='+''''+visitInfo.matter+''''+
       ' where id='+inttostr(visitInfo.id);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function AddvisitInfo(visitInfo:TvisitInfo):boolean;
var
  sql:string;
begin
  sql:='insert into 来访信息(来访人姓名,人数,被访者姓名,所属关系'+
       ',来访时间,事由,值班人)'+
       ' values('+''''+visitInfo.guest+''''+','+
       inttostr(visitInfo.guestNum)+','+''''+visitInfo.interviewee+''''+
       ','+''''+visitInfo.relation+''''+
       ','+''''+visitInfo.beginDate+''''+
       ','+''''+visitInfo.matter+''''+','+''''+visitInfo.watch+''''+
       ')';
  result:=DAHelper.ExeSqlNoQuery(sql);
end;

end.