请教高手一个执行大量查询时界面如何不死，分不多了(50分)

zhiyouyigewo · 2008-07-21

请教一下，如果我想做这么一个功能，在执行大量查询的时候弹出一个窗口显示程序执行中，在查询完后这个窗口关闭，原来页面的查询结果显示出来，要保证界面不死掉，我知道是用多线程，但是具体到这个功能怎么实现怎么写还请帮忙，本人很久没写DELPHI了，请把代码写完全写清楚一点，谢谢，本人分不多了，如果有要求可以再加，但程序要写好

lxw5214 · 2008-07-21

可以在Query的BeforeOpen，AfterOpen事件中来控制

ycluo · 2008-07-21

同意楼上

zhiyouyigewo · 2008-07-21

大哥们，不是吧，就在OPEN前showmodal一个，然后open后把那个CLOSE掉，这样不好吧，你们把代码写出来试试

andrew57 · 2008-07-21

disabledcontrols try finally   enabledcontrols end

wr960204 · 2008-07-21

数据量非常大的时候建议分页.支取需要的数据.当用户翻页的时候才取下一页

zhiyouyigewo · 2008-07-21

不一定是数据量大，有可能是处理时间长，我的意思就是在处理的时候不叫他的界面死掉，我知道是用多线程，不过我想在用的时候弹出一个提示的界面来，而且不知道怎么写，希望能把所有代码给写的详细一点出来

完美尤物 · 2008-07-22

线程

onyliu · 2008-07-23

进度条。。。

wql · 2008-07-23

只能在线成中执行,林外加一个定时器显示进度!

cqwty · 2008-07-23

就是多线程了撒，然后将查询结果不断的显示在界面上，比如pl sql这个工具，当从Oracle数据库上查询几万甚至几十万条数据的时候，就是在不停的显示。

zhiyouyigewo · 2008-07-23

老大么，概念我当然知道，我的主题中也说了，不过就是不知道怎么写，也没有例子，麻烦谁写出个完整的代码出来，分我还可以加啊，写出个能实现的例子

kaida · 2008-07-23

//简单的线程例子，仅供参考 unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls; type   timethread= class(TThread)   protected     procedure Execute; override;   end; type   TForm1 = class(TForm)     btnPause: TButton;     btnResume: TButton;     btnKill: TButton;     procedure FormCreate(Sender: TObject);     procedure btnPauseClick(Sender: TObject);     procedure btnResumeClick(Sender: TObject);     procedure btnKillClick(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);   private     { Private declarations }     TIME_THREAD:TIMETHREAD;   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} procedure timethread.execute; var   go:boolean ; begin   go:=true;   repeat     //这里写你的查询代码     //查询结束设置go:=false;   until go=false; end;   procedure TForm1.btnKillClick(Sender: TObject); begin   Time_thread.terminate; end; procedure TForm1.btnPauseClick(Sender: TObject); begin   Time_thread.suspend; end; procedure TForm1.btnResumeClick(Sender: TObject); begin   Time_thread.resume; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin   time_thread.Terminate; end; procedure TForm1.FormCreate(Sender: TObject); begin   time_thread:=timethread.create(false); end; end.

spd260 · 2008-07-23

你注意到query控件,不是adoquery控件没,用它来返回查到的数据量大时它分页显示的,而adoquery是全部显的,所以它慢(感谢觉上,其实不慢,只是处理方式不同而已,),如果一定要用adoquery的话可以用多线程异步查询,但快步查询进度较难做准确,即使做出来也是不准的

zhiyouyigewo · 2008-07-24

很感谢大家，简单线程的例子我也有，我是想实现我说的那种功能，就是在我执行的时候去弹出来一个窗口，可以不用显示查询的进程，但是弹出的窗口界面不能死掉，而那边执行完后弹出的窗口给个提示后关闭，就是这种效果，希望谁写出个详细的例子，只要功能实现了，我的分还可以加，谢谢！

HEHUISOFT · 2008-07-24

unit utWaitFlash; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   ExtCtrls, StdCtrls, ImgList, dxCntner, dxEditor, dxExEdtr, dxEdLib; type   TfrmWaitFlash = class(TForm)     pnForm: TPanel;     Image1: TImage;     edt_Mess: TdxMemo;     procedure FormClose(Sender: TObject; var Action: TCloseAction);   private   public   end; var   frmWaitFlash: TfrmWaitFlash;   Procedure ShowWait(aText: string='');   Procedure ClearWait; implementation {$R *.DFM} Procedure ShowWait(aText: string=''); var   myMessage: string; begin   myMessage := aText;   if myMessage='' then myMessage := '系统正在处理数据,请稍等...';   if Application.FindComponent('frmWaitFlash') = nil then     frmWaitFlash := TfrmWaitFlash.Create(Application);   frmWaitFlash.edt_Mess.Text := aText;   frmWaitFlash.Show;   frmWaitFlash.Refresh; end; Procedure ClearWait; begin   if Application.FindComponent('frmWaitFlash') <> nil then     frmWaitFlash.Free; end; procedure TfrmWaitFlash.FormClose(Sender: TObject;   var Action: TCloseAction); begin   Action := caFree; end; end. 示例: ShowWait('我正在处理,请耐心等待....'); {你的查询代码} ClearWait;

zhiyouyigewo · 2008-07-24

谢谢各位大哥，不过效果是这样，但多线程要写在哪才能使界面不死掉啊，希望给一个完整的例子

ch2001023 · 2008-07-24

Application.ProcessMessages 让权呀

erzhong008 · 2008-07-24

有问的这点时间，自己动一下手吧，大家都说这么多了，别人嚼的饭不香的.

lngdtommy · 2008-07-24

楼上的太不负责了，楼主都说让给个例子了。 {线程类。。。 单元名称：unDelRecord 程序员：trm  2008/07/11 单元描述：用于删除指定表中的一些无用的数据，并将表中有用的数据再读回来 修改历程： } unit unDelRecord; interface uses ADODB, DB, SysUtils, Classes, Messages, Windows, Forms; Type   TDelRecord = class(TThread)   private     procedure _DeleteRecordFromCLTJ(DataSet: TADOQuery; aDayAgo: Integer);   public     FHandle: THandle;     FADOQuery: TADOQuery;     FDayAgo: Integer;     FExecuteOver: Boolean;     procedure Execute;override;     constructor Create(CreateSuspended: Boolean; aHandle: THandle);   protected   end; implementation uses Main; { TDelRecord } constructor TDelRecord.Create(CreateSuspended: Boolean; aHandle: THandle); begin   inherited Create(CreateSuspended);   Fhandle := aHandle; end; procedure TDelRecord.Execute; begin   inherited;   FExecuteOver := False;   FreeOnTerminate := True;   Application.ProcessMessages;     _DeleteRecordFromCLTJ(FADOQuery,FDayAgo);   FExecuteOver := True; end; procedure TDelRecord._DeleteRecordFromCLTJ(DataSet: TADOQuery; aDayAgo: Integer); var   sqlStr: String; begin   sqlStr := 'SELECT * into #TEMPTABLE FROM CLTJ WHERE TGSJ > GETDATE() - ' + IntToStr(aDayAgo) +';' +             'truncate table CLTJ;' +             'insert into CLTJ(HPHM, HPZL, HPYS, TGSJ, TGDD, FXJG, CLTP0, CLTP1) ' +             'select HPHM, HPZL, HPYS, TGSJ, TGDD, FXJG, CLTP0, CLTP1 from #TEMPTABLE;' +             'drop table #TEMPTABLE';   sqlstr := 'Begin Tran ' + sqlStr;   sqlStr := sqlStr + ' if @@error=0 Commit Tran else RollBack';   with DataSet do   begin     Close;     SQL.Clear;     SQL.Text := sqlStr;     ExecSQL;   end; end; end. ////// //下面是调用线程的窗体 ////// var   Frm_Main: TFrm_Main; {$message warn '定义线程'}   td: TDelRecord; implementation {$R *.dfm} procedure TFrm_Main.FormCreate(Sender: TObject); begin    {$message warn '构造线程对象'}   td := TDelRecord.Create(True, Self.Handle); end; procedure TFrm_Main.FormDestroy(Sender: TObject); begin    {$message warn '释放线程'}   td.Destroy; end; procedure TFrm_Main.N12Click(Sender: TObject);//按钮事件 begin    {$message warn '唤醒线程'}   ClearDBTimer.Enabled := True;//一个Timer控件   td.Resume;   end; procedure TFrm_Main.ClearDBTimerTimer(Sender: TObject); begin//Timer.Intervalue := 100;   {$message warn '在Timer中写关于进度条的事件'}   Application.ProcessMessages;   ProgressBar1.Min := 0;   ProgressBar1.Max := 10000;   ProgressBar1.Step := 1;   while ProgressBar1.Position <> ProgressBar1.Max do   begin     ProgressBar1.StepIt;     if ProgressBar1.Position = ProgressBar1.Max then       ProgressBar1.Position := 0;     Application.ProcessMessages;     if not ClearDBTimer.Enabled  then       Exit;     if td.FExecuteOver then     begin      ProgressBar1.Position := 0;      Exit;     end;   end; end; end. //差不多了。。。

请教高手一个执行大量查询时界面如何不死，分不多了(50分)

zhiyouyigewo

Unregistered / Unconfirmed

lxw5214

Unregistered / Unconfirmed

ycluo

Unregistered / Unconfirmed

zhiyouyigewo

Unregistered / Unconfirmed

andrew57

Unregistered / Unconfirmed

wr960204

Unregistered / Unconfirmed

zhiyouyigewo

Unregistered / Unconfirmed

完美尤物

Unregistered / Unconfirmed

onyliu

Unregistered / Unconfirmed

wql

Unregistered / Unconfirmed

cqwty

Unregistered / Unconfirmed

zhiyouyigewo

Unregistered / Unconfirmed

kaida

Unregistered / Unconfirmed

spd260

Unregistered / Unconfirmed

zhiyouyigewo

Unregistered / Unconfirmed

HEHUISOFT

Unregistered / Unconfirmed

zhiyouyigewo

Unregistered / Unconfirmed

ch2001023

Unregistered / Unconfirmed

erzhong008

Unregistered / Unconfirmed

lngdtommy

Unregistered / Unconfirmed

Similar threads