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