5,939
社区成员
发帖
与我相关
我的任务
分享两个问题，请进来看。一个关于进度条的使用；一个是否可以用自增加字段作为关键字来用query的update来保存修改？
想问问进度条这东西，是要在什么情况下可以用的啊？如何使用呢？比如说在进行某一操作时用进度条来显示进度，是不是可以？如何做？
...全文
请发表友善的回复…
发表回复
xBai21 2001-11-02
- 打赏
- 举报
我的qq 55440971 再有问题直接说吧 尽我所能
xBai21 2001-11-02
- 打赏
- 举报
独立制作很累阿
xBai21 2001-11-02
- 打赏
- 举报
你是职业程序员吗 感觉是单位里自己做项目吧
yaoyaozhang 2001-11-02
- 打赏
- 举报
给分了。。。。
xBai21 2001-11-02
- 打赏
- 举报
呵呵 好在这样的人不是很多 你我都不是阿
yaoyaozhang 2001-11-02
- 打赏
- 举报
明白了，谢谢！ 谢谢小新。
其实我是看解答的水平和人品的，有极少数人常看你问题简单就笑你，总忘了自己当年比这简单的都不知道。
其实我是看解答的水平和人品的，有极少数人常看你问题简单就笑你，总忘了自己当年比这简单的都不知道。
xBai21 2001-11-02
- 打赏
- 举报
Query1.close;
Query1.SQL.clear;
Query1.SQL.add('select * from tablename ');
Query1.open;
progressbar1.max:=Query1.RecordCount;
progressbar1.position:=1;
while not query1.eof do begin
....//具体操作
query.next
prgoressbar1.stepit;
end;
^^ 谢谢你上次给我那么多分阿
yaoyaozhang 2001-11-02
- 打赏
- 举报
明白了，谢谢！
yaoyaozhang 2001-11-02
- 打赏
- 举报
具体的说一下，比如说我是在执行Query的查询时，
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.close;
Query1.SQL.clear;
Query1.SQL.add('select * from tablename ');
Query1.open;
end;
此时又是如何和进度条关联呢？那段代码应该如何修改加入？
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.close;
Query1.SQL.clear;
Query1.SQL.add('select * from tablename ');
Query1.open;
end;
此时又是如何和进度条关联呢？那段代码应该如何修改加入？
szgunz 2001-11-02
- 打赏
- 举报
进度条用法示例如下：
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
ProgressBar1.Min:=0;
ProgressBar1.Max:=100;
for i:=0 to 100 do
begin
ProgressBar1.Position:=i;
sleep(150);
end;
end;
一般处于等待状态、正在执行状态等会用到ProgressBar;在进行某一操作时用进度条来显示进度是可以的，你只要把这一段代码适当修改并放在你“进行的那一操作”的代码中去即可。
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
ProgressBar1.Min:=0;
ProgressBar1.Max:=100;
for i:=0 to 100 do
begin
ProgressBar1.Position:=i;
sleep(150);
end;
end;
一般处于等待状态、正在执行状态等会用到ProgressBar;在进行某一操作时用进度条来显示进度是可以的，你只要把这一段代码适当修改并放在你“进行的那一操作”的代码中去即可。
yaoyaozhang 2001-11-02
- 打赏
- 举报
up一下。
