社区
数据库相关
帖子详情
一个关于数据库的问题。
settingsun
2002-07-06 11:11:39
连接到服务器进行数据查询,如何在这一段时间内用ProgressBar来进行时间的同步显示,即用ProgressBar来显示查询的进度。
望指教。
...全文
44
7
打赏
收藏
一个关于数据库的问题。
连接到服务器进行数据查询,如何在这一段时间内用ProgressBar来进行时间的同步显示,即用ProgressBar来显示查询的进度。 望指教。
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
honey_001
2002-07-06
打赏
举报
回复
同意debussy(debussy)的说法.
debussy
2002-07-06
打赏
举报
回复
使用ADO的异步查询方式
对于较长时间执行的查询操作,可以使用异步方式
在查询过程中,ADO会以OnFetchProgress事件来通知应用程序正在处理
用OnFetchComplete事件来通知应用程序已经处理完毕
详细情况请参考李维《Delphi 5.x ADO/MTS/COM+高级程序设计》第110页,有非常详细的例子
crazyz
2002-07-06
打赏
举报
回复
定义一个progressBar的Form
unit ProgressForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ExtCtrls, StdCtrls;
type
TProgressFrm = class(TForm)
ProgressBar1: TProgressBar;
lblPrompt: TLabel;
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
procedure ProgressShow(aHint: string = '正在运行请等待');
procedure SetPos(aPos: extended; isOver: boolean);
procedure ProgressHide;
var
ProgressFrm: TProgressFrm;
FFormTop: integer;
implementation
{$R *.dfm}
{ TProgressFrm }
procedure ProgressShow(aHint: string = '正在运行请等待');
begin
if not Assigned(ProgressFrm) then
begin
ProgressFrm := TProgressFrm.Create(Application);
end;
setPos(1, False);
ProgressFrm.lblPrompt.Caption := aHint + '......';
progressFrm.Show;
ProgressFrm.Update;
Screen.Cursor := crHourGlass;
end;
procedure ProgressHide;
begin
SetPos(100, True);
end;
procedure SetPos(aPos: extended; isOver: boolean);
begin
progressFrm.ProgressBar1.Position := trunc(aPos);
ProgressFrm.ProgressBar1.Update;
//Application.ProcessMessages;
if IsOver then
begin
Screen.Cursor := crDefault;
ProgressFrm.Hide;
end;
end;
procedure TProgressFrm.FormActivate(Sender: TObject);
begin
SetWindowPos(ProgressFrm.handle, HWND_TOPMOST,
ProgressFrm.Left, ProgressFrm.Top, ProgressFrm.Width, ProgressFrm.Height, 0);
end;
procedure TProgressFrm.FormCreate(Sender: TObject);
begin
Top := trunc(Screen.Height / 3);
left := trunc((Screen.Width - Width) / 2);
end;
end.
在查询时先调用
ProgressShow
try
Setpos(recno/recordcount
finally
ProgressHide
end;
WnEunfn
2002-07-06
打赏
举报
回复
不可能的,因为查询所花时间未知……
robinhunter
2002-07-06
打赏
举报
回复
你的问题已经众多高手分析,结论是:此题无解 :(
settingsun
2002-07-06
打赏
举报
回复
怎么没人知道吗。
debussy
2002-07-06
打赏
举报
回复
使用ADO的异步查询方式
对于较长时间执行的查询操作,可以使用异步方式
在查询过程中,ADO会以OnFetchProgress事件来通知应用程序正在处理
用OnFetchComplete事件来通知应用程序已经处理完毕
详细情况请参考李维《Delphi 5.x ADO/MTS/COM+高级程序设计》第110页,有非常详细的例子
数据库
开发 维护 性能调优 备份还原 各种复杂
问题
的解决方案
数据库
开发、维护、性能调优、备份还原以及解决复杂
问题
,这些都是
数据库
管理中不可或缺的关键环节。在IT领域,
数据库
作为存储和管理数据的核心系统,其高效稳定运行对于业务连续性和数据安全性至关重要。以下是对...
2014年辛星Python
数据库
Sqlite3教程
辛星在2014年发布的这份Python
数据库
SQLite3教程,为初学者提供了
一个
很好的入门平台,讲述了一系列关于如何使用Python来操作SQLite3
数据库
的知识。从
数据库
基础到SQLite3的特点,再到Python与SQLite3的配合操作,本...
android之利用SQLite实现登陆和注册
我们通常会创建
一个
继承自SQLiteOpenHelper的子类,例如名为`DatabaseHelper`的类,来处理
数据库
的创建、升级和版本管理。在`DatabaseHelper`中,我们定义两个重要的方法:`onCreate()`和`onUpgrade()`。`onCreate()...
解决SQLSERVER
数据库
驱动程序无法通过使用安全套接字层(SSL)加密与 SQL Server 建立安全连接
问题
JAR包
在SQLSERVER
数据库
的使用过程中,有时会出现
一个
棘手的
问题
,即驱动程序无法通过安全套接字层(SSL)加密与SQL Server建立安全连接。这个
问题
通常表明
数据库
连接在尝试使用SSL进行加密时遇到了障碍,可能影响数据的...
MySQL_5.1_HTML_chapter.rar_详细手册(html版)
例如,视图的使用能够为用户提供
一个
虚拟表,使得用户不必关心数据的物理存储和逻辑结构,而存储过程则能够封装一系列的SQL语句,使得
数据库
的操作更加模块化和自动化。 事务处理是保证数据一致性和完整性的核心...
数据库相关
2,507
社区成员
88,454
社区内容
发帖
与我相关
我的任务
数据库相关
Delphi 数据库相关
复制链接
扫一扫
分享
社区描述
Delphi 数据库相关
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章