中间层的主窗口不能调用RemoteDataModule中的过程、变量?//下面是中间层RemoteDataModule中的方法
procedure tserver.aaa();    
begin
query.Close ;
query.SQL.Clear ;
query.SQL.Add('EXEC sp001);
query.ExecSQL  ;
end;
----------------------------------------
//下面是中间层主截面的弹出菜单
procedure TForm1.N1Click(Sender: TObject);
begin
//可以这样tyytser.Create();
//也可以这样tyytser.ClassName
tserver.AAA();//就是不能这样,
end;
是怎么回事情啊!
是哪里没有设置好还是......!谢谢各位老大了!!!!

解决方案 »

  1.   

    你这个定义在哪?????
    procedure tserver.aaa();
      

  2.   

    以下解释希望对你有用
    d的单元结构:
    unit Unit1; //单元名称interface  //表示本单元的接口部分,表示我用人家人家用的的内容.uses //我用人家的
      Windows, ...;//类型声明
    type
      TForm1 = class(TForm)
      ...
      private
      ...
      public
        function F1:integer;//外部单元可以访问的本窗体类的全局方法
      end;
    //定义类型实例
    var
      Form1: TForm1;function F2:integer; //外部单元可以访问的全局方法implementation //实现部分, 表示以下内容是{$R *.dfm} //窗体信息定义文件function F2:integer;
    begin
      ... //具体实现过程
    end;function TForm1。F1:integer;//外部单元可以访问的本窗体类的全局方法
    begin
      ...//具体实现过程end; 
    end.