69 lines
1.9 KiB
ObjectPascal
69 lines
1.9 KiB
ObjectPascal
|
unit U_FormInitThread;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
uses
|
|||
|
|
Classes, SysUtils, Forms,U_WindowFormdesign,Messages,Data.DB,Data.Win.ADODB;
|
|||
|
|
type
|
|||
|
|
TFormInitThread = class(TThread)
|
|||
|
|
private
|
|||
|
|
fWindowDesign: TWindowFormdesign; // <20>滻Ϊ<E6BBBB><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
fForm:Tform;
|
|||
|
|
fFormId:integer;
|
|||
|
|
fADOTmp: TADOQuery;
|
|||
|
|
fADOQCmd: TADOQuery;
|
|||
|
|
fWhichFun:String;
|
|||
|
|
procedure LoadData;
|
|||
|
|
protected
|
|||
|
|
procedure Execute; override;
|
|||
|
|
public
|
|||
|
|
constructor Create( mWindowDesign: TWindowFormdesign;mForm: Tform; mFormId: integer; ADOTmp: TADOQuery; ADOQCmd: TADOQuery;mWhichFun:String);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
|
|||
|
|
constructor TFormInitThread.Create(mWindowDesign: TWindowFormdesign;mForm: Tform; mFormId: integer; ADOTmp: TADOQuery; ADOQCmd: TADOQuery;mWhichFun:String);
|
|||
|
|
begin
|
|||
|
|
inherited Create(False);
|
|||
|
|
fWindowDesign := mWindowDesign;
|
|||
|
|
fForm:= mForm ;
|
|||
|
|
fFormId:=mFormId;
|
|||
|
|
fADOTmp:= ADOTmp ;
|
|||
|
|
fADOQCmd:= ADOQCmd ;
|
|||
|
|
fWhichFun:= mWhichFun ;
|
|||
|
|
FreeOnTerminate := True; // <20>߳<EFBFBD><DFB3><EFBFBD>ֹʱ<D6B9>Զ<EFBFBD><D4B6>ͷ<EFBFBD>
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TFormInitThread.Execute;
|
|||
|
|
var
|
|||
|
|
i:integer;
|
|||
|
|
begin
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ִ<EFBFBD>к<EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD>ݼ<EFBFBD><DDBC>ز<EFBFBD><D8B2><EFBFBD>
|
|||
|
|
Synchronize(LoadData); // ʹ<><CAB9> Synchronize <20><><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>߳<EFBFBD><DFB3>и<EFBFBD><D0B8><EFBFBD> UI
|
|||
|
|
//LoadData();
|
|||
|
|
end;
|
|||
|
|
procedure TFormInitThread.LoadData;
|
|||
|
|
var
|
|||
|
|
I: Integer;
|
|||
|
|
begin
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݵĴ<DDB5><C4B4><EFBFBD>
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> LoadDataFromDatabase <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3><EFBFBD><EFBFBD>
|
|||
|
|
if fWhichFun='' then
|
|||
|
|
fWindowDesign.FormStyleInit1(fForm, fFormId, fADOTmp, fADOQCmd, '', '')
|
|||
|
|
else
|
|||
|
|
fWindowDesign.FormStyleInit(fForm, fFormId, fADOTmp, fADOQCmd, '', '');
|
|||
|
|
|
|||
|
|
// showMessage('44');
|
|||
|
|
// for I := 0 to 10000000000 do
|
|||
|
|
// begin
|
|||
|
|
// if I=1000000000 then
|
|||
|
|
// begin
|
|||
|
|
// application.MessageBox(pchar('444'),'',0);
|
|||
|
|
// end;
|
|||
|
|
//end;
|
|||
|
|
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD> UI<55><49><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ Synchronize <20><>֤<EFBFBD><D6A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>߳<EFBFBD><DFB3><EFBFBD>ִ<EFBFBD><D6B4>
|
|||
|
|
// <20><><EFBFBD>磺YourForm.YourControl.Caption := 'Data Loaded';
|
|||
|
|
// ע<>⣺ȷ<E2A3BA><C8B7> YourForm <20><> YourControl <20>ڴ<EFBFBD><DAB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ч<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ<EFBFBD><CABD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
end;
|
|||
|
|
end.
|