请教如何实现这个功能啊(50分)

  • 主题发起人 主题发起人 topdelphi
  • 开始时间 开始时间
T

topdelphi

Unregistered / Unconfirmed
GUEST, unregistred user!
请教如何在一个文本输入时间后,例如15:30分,然后插入到数据库里,
在到达这个时间前15分钟,就停止插入数据操作,和这条记录变为黄色显示出来,
但只是到达这个时间的记录显示,其它的为默认颜色,
再过例如15分钟,就可以插入数据操作,请教这条语句如何修改啊
if timetostr(dtmTime-StrToTime('00:15'))=timetostr(Time) then
begin
<变颜色> //这里的变颜色代码我不会写,请各位指教
application.MessageBox('停止插入数据','时间到');
<停止插入数据>
end;
if timetostr(dtmTime+StrToTime('00:15'))=timetostr(Time) then
begin
<变颜色>
application.MessageBox('可以插入数据','时间到');
<插入数据>
end;

我运行上面的语句之后,我的记录在这十五分钟前都好像没有什么变化似的,
而且我在SQL数据库有个DATETIME字段,我在新增记录的时候,输入例如:
4:30分,为何会出现这样的错误呢,请教如何插入这个时间记录字段啊,
而且上面变颜色的代码如何写呢,是DBGRID.COLUMS吗,好像没有COLOR属性的,
请教如何修改啊.





 
你最好跟踪一下你用的时间函数看看它们的值是不是你所希望的,比如:
timetostr(dtmTime-StrToTime('00:15'))和timetostr(Time)的值
dbgrid中的列变色的问题,好象要用到它的ondrawcell事件,在dfw上应当有这方面的问题.
 
谢谢,但是我如何跟踪这个时间记录呢,DBGRID的符合这个功能的记录使它变色,
你所说的DFW在那里的啊,可以比个详细的例子我吗,谢谢了
 
跟踪当然是用debug了,就是设断点和观察变量.如果对IDE环境不熟悉就找本这方面的书
或到帮助中去看看吧!
DFW就是大富翁了!![:(]在DFW上面菜单中有一个大富翁全文检索,进入后用"+dbgrid +颜色 +行"
查找就可以得到很多这方面的东西.
 

Similar threads

回复
0
查看
978
不得闲
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部