F
firstshine
Unregistered / Unconfirmed
GUEST, unregistred user!
以下程序触发EOlesyserror:消息筛选器显示应用程序正在使用中
function TForm1.sjjs:string;
//数据检索:根据提供的sql语句检索数据
//sql:需要检索的sql语句,应该是一个select语句
var
oleSjj:OleVariant;//返回的数据集
dtstSjj:TClientDataset;
IJk1:IUnknown;
IMTS:ISwxtdx;//应用服务器mts接口
begin
IJk1:=CreateRemoteComObject('10.68.7.7',CLASS_Swxtdx);//创建MTS对象
IMTS:=IJk1 as ISwxtdx;
dtstSjj:=TClientDataset.Create(nil);
try
IMTS.Sjjs('select * from yxgl.hcs',oleSjj);//调用服务器的方法取得数据
dtstSjj.Data:=oleSjj;
dtstSjj.CommandText:='select * from yxgl.hcs';
result:=inttostr(dtstsjj.recordcount);
finally
dtstsjj.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
tjmsx.Create(false);
end;
procedure tjmsx.Execute;
begin
Synchronize(jmtz);
end;
procedure tjmsx.Jmtz;//界面调整过程
var
m:string;
begin
m:=form1.sjjs;
form1.caption:=m;
end;
function TForm1.sjjs:string;
//数据检索:根据提供的sql语句检索数据
//sql:需要检索的sql语句,应该是一个select语句
var
oleSjj:OleVariant;//返回的数据集
dtstSjj:TClientDataset;
IJk1:IUnknown;
IMTS:ISwxtdx;//应用服务器mts接口
begin
IJk1:=CreateRemoteComObject('10.68.7.7',CLASS_Swxtdx);//创建MTS对象
IMTS:=IJk1 as ISwxtdx;
dtstSjj:=TClientDataset.Create(nil);
try
IMTS.Sjjs('select * from yxgl.hcs',oleSjj);//调用服务器的方法取得数据
dtstSjj.Data:=oleSjj;
dtstSjj.CommandText:='select * from yxgl.hcs';
result:=inttostr(dtstsjj.recordcount);
finally
dtstsjj.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
tjmsx.Create(false);
end;
procedure tjmsx.Execute;
begin
Synchronize(jmtz);
end;
procedure tjmsx.Jmtz;//界面调整过程
var
m:string;
begin
m:=form1.sjjs;
form1.caption:=m;
end;