当前位置：首页 → 问答吧 → 时间到时 EDIT中内容改变怎么实现？？？

时间到时 EDIT中内容改变怎么实现？？？

时间：2011-11-16

来源：互联网

a,b:integer;

if FormatDateTime('HH:mm',now) = '16:10' then
begin
ado1.Close;
ado1.SQL.Clear;
ado1.SQL.Add('select * from DPackingDetail where bcno='''+edtbcno.Text+'''');
ado1.Open;
a:=ado1.fieldbyname('OutputQty').AsInteger;
b:=ado1.fieldbyname('PrintNGQty').AsInteger;
Edit1.text :=Format('%d%%',[trunc((a-b)/a*100)]);

方法我知道求具体操作变量定义成什么类型

给EDIT控件关联一个变量，对变量赋值，用UPDATEDATA(FALSE)

作者: sdkao 发布时间: 2011-11-16

楼主说清楚点

作者: smhilyyan 发布时间: 2011-11-16

得出的结果EDIT1.TEXT 中的值为50% 这个50%要定义成什么变量啊 FOLAT REAL。。。？？

作者: sdkao 发布时间: 2011-11-16

String吧,你要浮点型就用double吧.
然后要StrToFloat()

作者: smhilyyan 发布时间: 2011-11-16

时间16：10时从数据库中读取数据进行计算
EDIT1中内容改变怎么写啊或者说UPDATEDATA(FALSE)写在什么地方

作者: sdkao 发布时间: 2011-11-16

引用 4 楼 sdkao 的回复:
时间16：10时从数据库中读取数据进行计算
EDIT1中内容改变怎么写啊或者说UPDATEDATA(FALSE)写在什么地方

timer定时事件里判断时间是否符合
符合就执行。。。。。。。

作者: sz_haitao 发布时间: 2011-11-16

我没用TIMER啊不会用请参看我的代码，给个解释啊！！

作者: sdkao 发布时间: 2011-11-16

那你确实要用到timer控件吧..不是你怎么实时监控时间??

作者: smhilyyan 发布时间: 2011-11-16

Delphi(Pascal) code


var
  f: Double;
  s: string;
begin
  f := 0.25122;
  s := Format('%2f%%', [f * 100]);
  edit1.text := s; //25.00% ;若想变成25%, Format('%d%%', [f * 100]);.
end;

作者: jfhyn 发布时间: 2011-11-16

时间到时 EDIT中内容改变怎么实现？？？

热门阅读

热门下载