with DM.qyTemp0 do begin
Close;
SQL.Clear;
SQL.Add('SELECT DATEPART(YEAR, GETDATE()) AS Year, ');
SQL.Add(' DATEPART(MONTH, GETDATE()) AS Month, ');
SQL.Add(' DATEPART(DAY, GETDATE()) AS Day ');
Open;
end;
Today := RightStr('00' + IntToStr(DM.qyTemp0.FieldByName('Year').AsInteger - 1911), 2) + '-' +
RightStr('00' + IntToStr(DM.qyTemp0.FieldByName('Month').AsInteger), 2) + '-' +
RightStr('00' + IntToStr(DM.qyTemp0.FieldByName('Day').AsInteger), 2);
Close;
SQL.Clear;
SQL.Add('SELECT DATEPART(YEAR, GETDATE()) AS Year, ');
SQL.Add(' DATEPART(MONTH, GETDATE()) AS Month, ');
SQL.Add(' DATEPART(DAY, GETDATE()) AS Day ');
Open;
end;
Today := RightStr('00' + IntToStr(DM.qyTemp0.FieldByName('Year').AsInteger - 1911), 2) + '-' +
RightStr('00' + IntToStr(DM.qyTemp0.FieldByName('Month').AsInteger), 2) + '-' +
RightStr('00' + IntToStr(DM.qyTemp0.FieldByName('Day').AsInteger), 2);
解决方案 »
- dephi 指针访问结构数据???
- 标题栏字体越来越小,越变越小的解决方案
- fastreport3.07问题,急呀
- 请教一个简单问题
- 向treeview1已有的几个根中的指定的一个根下面增加一个子项?
- 问两个问题。动态控件数组和数据导入。
- 配置文件问题!!!出现没有足够实用参数问题
- 本人紧急收购卡拉OK VOB片源文件,有人提供的请留言联系了
- 请问,如何使StringGrid的某一列的单元格内容右对齐?
- 请大家讨论一下,做一个三层结构的ERP的单据模板应注意的问题?应从那几方面考虑?该怎么做?
- 怎样在StringGrid中实现CTRL+A全选功能?
- 怎样实现StringGrid的某一列的宽度自动适应列中的字符串长度?
ADOQuery只能查数据的哦系统日期
formatdatetime('dddddd',date());