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.