oracle日期类型数据查询解决例子

最新推荐文章于 2022-08-14 16:26:02 发布

txx007

最新推荐文章于 2022-08-14 16:26:02 发布

阅读量502

点赞数

文章标签： oracle sql null table insert function

本文链接：https://blog.csdn.net/txx007/article/details/1583673

版权

create table worklog_A(
   man_bar            CHAR(8) NOT NULL,
   man_name           VARCHAR2(22) NOT NULL,
   man_dep            VARCHAR2(40) NOT NULL,
   log_time           Date NOT NULL
   status             VARCHAR2(40)
);
CREATE unique INDEX worklog_A_INDEX
ON workman(man_bar,man_name);
comment on table worklog_A is
'登到日记表';

sql:='select man_bar as "考勤条码",man_name as "姓名",log_time as "登记时间",status as "状态",man_dep as "所属部门" ';
sql:=sql+' from worklog_A where man_bar='+''''+s11+''''
+' and (to_char(trunc(log_time,'+'''dd'''+')'+','+'''yyyy-mm-dd'''+') between '
+ ''''+GetDateStr(dat1.Date)+''''+' and '+''''+GetDateStr(dat2.Date)+'''' ;
sql:=sql+') order by log_time desc';
RunSQL(ADO_pall,sql,0);

function Tfrmain.GetDateStr(dat: TdateTime): string;
var
Year, Month, Day:Word;
begin
DecodeDate(dat,Year,Month,Day);
if(month>=10) then
        result:= IntToStr(Year) + '-'+IntToStr(Month)
else
        result:= IntToStr(Year)+ '-' +'0'+ IntToStr(Month) ;
if(day>=10) then
      result:=result+ '-'+IntToStr(Day)
else
     result:=result+ '-'+'0'+IntToStr(Day);
end;

              sql1:='insert into worklog_A values(';
              sql1:=sql1+''''+s1+''''+','+''''+s2+''''+','+''''+s3+''''+',';
              sql1:=sql1+'sysdate'+','+''''+KK+''''+')';
              RunSQL(ADO_kqlog,sql1,1);
              StatusBar1.SimpleText:='今天总计：'+inttostr(ADO_tm.RecordCount+1)+' 考勤' ;