|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
与其他数据库相比,MySQL易学易用。oracle|办理|数据createtableworklog_A(
man_barCHAR(8)NOTNULL,
man_nameVARCHAR2(22)NOTNULL,
man_depVARCHAR2(40)NOTNULL,
log_timeDateNOTNULL
statusVARCHAR2(40)
);
CREATEuniqueINDEXworklog_A_INDEX
ONworkman(man_bar,man_name);
commentontableworklog_Ais
登到日志表;
sql:=selectman_baras"考勤条码",man_nameas"姓名",log_timeas"挂号工夫",statusas"形态",man_depas"所属部门";
sql:=sql+fromworklog_Awhereman_bar=++s11+
+and(to_char(trunc(log_time,+dd+)+,+yyyy-mm-dd+)between
++GetDateStr(dat1.Date)++and++GetDateStr(dat2.Date)+;
sql:=sql+)orderbylog_timedesc;
RunSQL(ADO_pall,sql,0);
functionTfrmain.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:=insertintoworklog_Avalues(;
sql1:=sql1++s1++,++s2++,++s3++,;
sql1:=sql1+sysdate+,++KK++);
RunSQL(ADO_kqlog,sql1,1);
StatusBar1.SimpleText:=明天总计:+inttostr(ADO_tm.RecordCount+1)+考勤;
你碰到的问题可能已经在社区中被别的人已经问过,即使没有MySQL学习教程,你也可以提出问题或通过Google来搜索答案。社区的相关负责人士:“MySQL社区是活跃、友好和内容渊博的。” |
|