farzad1343
جمعه 13 مرداد 1396, 22:05 عصر
سلام و عرض ادب
من دریک برنامه بانک اطلاعاتی تحت شبکه با دو آی پی استاتیک در دو نقطه مختلف شهر به دلیل دیر باز شدن جداول اقدام به ایجاد thread کردم
تا باز شدن جداول جلوی کار با فرمها رو نگیره همه چیز درست کار میکنه فقط هنگام بستن برنامه ترد آزاد نمیشه و برنامه هنگ میکنه
کدها رو در پایین میذارم اگه میشه راهنمایی بفرمایید
type
TOpenTable = class(TThread)
private
protected
procedure execute;override;
{ TOpenTable }
procedure TOpenTable.execute;
begin
if not dm.TBranch.Active then dm.TBranch.Open;
if not dm.dr.Active then dm.dr.Open;
if not dm.TCL.Active then dm.TCL.Open;
if not dm.TFrame.Active then dm.TFrame.Open;
DM.TGlass.OrderFields := 'NAmeG ASC,sfer ASC,cilander ASC';
if not dm.TGlass.Active then dm.TGlass.Open;
if not dm.TMotafaregheh.Active then dm.TMotafaregheh.Open;
if not dm.Tsms.Active then dm.Tsms.Open;
if not dm.TbTypeGlass.Active then dm.TbTypeGlass.Open;
if not dm.Grooh_G.Active then dm.Grooh_G.Open;
if not dm.Bimeh.Active then dm.Bimeh.Open;
Terminate;
Exit;
end;
var
DM: TDM;
myOpentable:TOpenTable;
implementation
procedure TDM.DataModuleCreate(Sender: TObject);
begin
myOpentable:=TOpenTable.Create(True);
myOpentable.FreeOnTerminate:=true;
myOpentable.Resume;
end;
من دریک برنامه بانک اطلاعاتی تحت شبکه با دو آی پی استاتیک در دو نقطه مختلف شهر به دلیل دیر باز شدن جداول اقدام به ایجاد thread کردم
تا باز شدن جداول جلوی کار با فرمها رو نگیره همه چیز درست کار میکنه فقط هنگام بستن برنامه ترد آزاد نمیشه و برنامه هنگ میکنه
کدها رو در پایین میذارم اگه میشه راهنمایی بفرمایید
type
TOpenTable = class(TThread)
private
protected
procedure execute;override;
{ TOpenTable }
procedure TOpenTable.execute;
begin
if not dm.TBranch.Active then dm.TBranch.Open;
if not dm.dr.Active then dm.dr.Open;
if not dm.TCL.Active then dm.TCL.Open;
if not dm.TFrame.Active then dm.TFrame.Open;
DM.TGlass.OrderFields := 'NAmeG ASC,sfer ASC,cilander ASC';
if not dm.TGlass.Active then dm.TGlass.Open;
if not dm.TMotafaregheh.Active then dm.TMotafaregheh.Open;
if not dm.Tsms.Active then dm.Tsms.Open;
if not dm.TbTypeGlass.Active then dm.TbTypeGlass.Open;
if not dm.Grooh_G.Active then dm.Grooh_G.Open;
if not dm.Bimeh.Active then dm.Bimeh.Open;
Terminate;
Exit;
end;
var
DM: TDM;
myOpentable:TOpenTable;
implementation
procedure TDM.DataModuleCreate(Sender: TObject);
begin
myOpentable:=TOpenTable.Create(True);
myOpentable.FreeOnTerminate:=true;
myOpentable.Resume;
end;