找MIDAS开发实例

Borland自带例子中有MastApp,对开发C/S结构很有帮助，请问哪里有MIDAS开发实例（有项目性质的）?

解决方案 »

  1.   

    Borland自带的MIDAS例程，对项目开发没什么帮助！
      

  2.   

    请问大家开发数据库应用，用二层C/S,还是用MIDAS?   MIDAS会流行吗?
      

  3.   

    midas的概念很吸引人，但是一不小心，项目就成垃圾了
      

  4.   

    MIDAS就是分布式多层应用的英文单词的第一个字母简写啊！
      

  5.   

    快点啊,等你呢!:)
    [email protected]
    先发我一个look look?
      

  6.   

    please 给我一份[email protected]
      

  7.   

    xiaochensu(拒绝水的鱼) ：
    我也要啊[email protected] 谢谢!
      

  8.   

    我也要啊[email protected] 谢谢!
      

  9.   

    to ： xiaochensu(拒绝水的鱼)
    小弟也想要
      [email protected]
      

  10.   

    我贴出来
    分别是数据服务器和应用服务器的原码
    不过我用的是dcom需要注册
    unit Unit2;{$WARN SYMBOL_PLATFORM OFF}interfaceuses
      Windows, Messages, SysUtils, Classes, ComServ, ComObj, VCLCom, DataBkr,
      DBClient, Project1_TLB, StdVcl, DB, ADODB, Provider;type
      Tserver = class(TRemoteDataModule, Iserver)
        DataSetProvider1: TDataSetProvider;
        ADOConnection1: TADOConnection;
        ADOTable1: TADOTable;
      private
        { Private declarations }
      protected
        class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
      public
        { Public declarations }
      end;implementation{$R *.DFM}class procedure Tserver.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);
    begin
      if Register then
      begin
        inherited UpdateRegistry(Register, ClassID, ProgID);
        EnableSocketTransport(ClassID);
        EnableWebTransport(ClassID);
      end else
      begin
        DisableSocketTransport(ClassID);
        DisableWebTransport(ClassID);
        inherited UpdateRegistry(Register, ClassID, ProgID);
      end;
    end;initialization
      TComponentFactory.Create(ComServer, Tserver,
        Class_server, ciMultiInstance, tmApartment);
    end.应用服务器unit Unit3;interfaceuses
      SysUtils, Classes, DB, DBClient, MConnect;type
      TDataModule3 = class(TDataModule)
        DCOMConnection1: TDCOMConnection;
        ClientDataSet1: TClientDataSet;
        DataSource1: TDataSource;
      private
        { Private declarations }
      public
        { Public declarations }
      end;var
      DataModule3: TDataModule3;implementation{$R *.dfm}end.
    以上是部分的
    我推荐leewei的那本5。x midas系统篇
      

  11.   

    数据库的代码就这点
    难道还要我给一个form1的代码？
    应用服务器的代码其实主要是dcomconnect和clientdataset 的设置
    具体实现什么功能还是要自己去实现的啊
    再说我实现的功能又不一定对你们有用
    整个架构已经出来了我还推荐去看李维的那本分布式多层系统篇
    里面写的很详细的
      

  12.   

    不是吧!
    dcomconnet和clientdataset应该是客户端的东西!有RDM的才是应用服务器!
      

  13.   

    dcomconnet和clientdataset是client的啊
    有什么问题啊?
      

  14.   

    type
      Tserver = class(TRemoteDataModule, Iserver)
        DataSetProvider1: TDataSetProvider;
        ADOConnection1: TADOConnection;
        ADOTable1: TADOTable;是数据库服务器的啊