dm_client.pas

三层ERP系统 (SQL)

unit dm_Client;

interface

uses
  SysUtils, Classes, ScktComp, Dialogs, Forms, MConnect, ObjBrkr, DB,
  DBClient, SConnect;

type
  TdmClient = class(TDataModule)
    CSocket: TClientSocket;
    SocketConnection1: TSocketConnection;
    SimpleObjectBroker1: TSimpleObjectBroker;
    CDSuserRight: TClientDataSet;
    procedure CSocketError(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
    procedure CSocketRead(Sender: TObject; Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmClient: TdmClient;

implementation

uses Global, ClientMain;

{$R *.dfm}

procedure TdmClient.CSocketError(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
case errorevent of
     eeconnect:
      begin
         MessageDlg('硈钡狝叭狠ア毖