我主要遇到两个问题:
1.如何让datetimepicker在系统新增功能中显示当前时间;而当在浏览或修改功能中显示数据库中的数据?
我的代码如下:
if DBGrid1.Datasourse.dataSet.state=dsInsert then
Begin
DateTimePicker1.DateTime:=now;
End;
If DBGrid1.Datasourse.dataSet.state=dsEdit then
Begin
DateTimePicker1.DateTime:=DBGrid1.Datasourse.DataSet.FiledByName("Open_Date").Value;
End;
从代码看来应该没错,但是运行的时候它总是在新增中显示当前时间,在浏览修改中显示加如datetimepicker时的日期。
2.如何让DateTimePicker里边的东西清空?
1.如何让datetimepicker在系统新增功能中显示当前时间;而当在浏览或修改功能中显示数据库中的数据?
我的代码如下:
if DBGrid1.Datasourse.dataSet.state=dsInsert then
Begin
DateTimePicker1.DateTime:=now;
End;
If DBGrid1.Datasourse.dataSet.state=dsEdit then
Begin
DateTimePicker1.DateTime:=DBGrid1.Datasourse.DataSet.FiledByName("Open_Date").Value;
End;
从代码看来应该没错,但是运行的时候它总是在新增中显示当前时间,在浏览修改中显示加如datetimepicker时的日期。
2.如何让DateTimePicker里边的东西清空?
解决方案 »
- 各位老大,那位能找到Office 95的安装盘下载,20分奉上。帮帮忙吧!
- 我想做一个管理文件的东西,类似资源管理器,请高手指点
- 吐血啊,第三方控件问题!!!
- 请问如何使用Ado访问InterBase数据库?因为系统已经完成大半,突然要求从Sql Server转移到InterBase。
- 怎样在任务栏上不显示窗体?
- Delphi4开发的应用程序如何升级到Delphi7
- 因为本站“搜索”很忙,无法搜索帖子,请各位帮忙。
- TQuery与TUpdateSQL控件的区别是什么?答者有分
- 能谈谈你的心得吗?
- 为什么我提的问题要等七八天才上论坛?我看别人都是当天啊?太不公平了!
- 急求~~~~请问表里的日期字段是这样 1999-11-11 12:00:09 请问日期和时间怎么分开呀?等候
- 谁能告诉我, TReportDBGrid是什么控件在哪有下载?
是不是你的DBGrid1.Datasourse.DataSet.FiledByName("Open_Date").Value;不合法?
或者你没有用DataTimePicker.refresh.
具体如下,
初始化为空值:
DateTimePicker1.Format:= '''';//实际上DateTimePicker1.Date(或DataTime)还是存在。
...// 这里可以进行一些处理
将DateTimePicker1的值显示出来:
DateTimePicker1.Format:= '';
begin
Dt.DateTime:=strtodate('2002-3-18');
dt.Refresh ;
end;
我这里没问题