midasmake.pas

学籍管理

{**********************************************************************}
{                    ===================                               }
{                     高级用户MIDAS组态                                }
{                   ===================                                }
{                                    《学籍管理系统》--作者：贺广兵    }
{                                                                      }
{   读取局域网并获得可用的计算机和应用程序服务程序列表，把计算机名或   }
{   IP 添加到 SIMPLEOBJECTBROKER 中的计算机列表中。                    }
{                                                                      }
{**********************************************************************}
unit MidasMake;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TfmMIDASManager = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    GroupBox1: TGroupBox;
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    edtAddComputer: TEdit;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmMIDASManager: TfmMIDASManager;

implementation

uses DataMoudle;

{$R *.DFM}



procedure TfmMIDASManager.Button1Click(Sender: TObject);
begin
   //ListBox1.Items.Add(edtAddComputer);
   //with DataModule1 do
     //SimpleObjectBroker1.Servers.In
     //simpleObjectBroker1.Servers.Items.Collection.
end;

end.