StdCtrls, Grids, Corba, Employee_i, Employee_c, Db, DBClient, ExtCtrls,

  DBCtrls, DBGrids;

type

  TForm1 = class(TForm)

    Button1: TButton;

    DBGrid1: TDBGrid;

    cdsEmployee: TClientDataSet;

    DataSource1: TDataSource;

    edtEmployeeName: TEdit;

    Memo1: TMemo;

    Label1: TLabel;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

     private

    { Private declarations }

    myEmployee : Employee;

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

  myEmployee := TEmployeeHelper.bind;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  cdsEmployee.Data := myEmployee.getEmployeesByName(edtEmployeeName.Text);

  cdsEmployee.Open;

end;

end.

我想大家应该可以看得懂上面的程序，如果看不懂也不要紧，下一次我将围绕这个实例展开一系列的问题描述并会同时于COM+/MIDAS进行比较说明，为了让大家留下一个思维的空间我在这里就不多说了。还是那一句话下次再见

我的哲学：“无论是CORBA还是COM+异或是EJB等等最终都是殊途同归”

上一页  [1] [2] [3] [4]