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);
解决方案 »
- 新手求教private Sub cmdNext_Click()什么意思?
- delphid断点无效,请问大家该如何解决!
- D7,ActiveX开发很奇怪的问题,求救阿
- 关于cxGrid使用的问题
- 再求一个sql语句:如何使用distinct?
- 有没有好的delphi doc生成工具要能支持中文的
- 求购Indy控件组的祥细资料或教程!先给20分,见到书后再加100分~
- 进来拿分吧(Treeview控件怎么判断被select的节点没有子节点)
- 哪位知道delphi中怎么安一下按钮就可以调用outlook来发邮件??
- 关于编写从TWinControl继承下来的控件
- 如何利用locate函数将DBGrid中的某条记录变蓝?
- 如何在一个服务程序中启动另外一个程序?
报什么错?