dm_p.pas

考试系统,是一个简单的但是很经典的

unit dm_p;

interface

uses
  SysUtils, Classes, DB, DBClient, MConnect, SConnect, Forms;

type
  Tdm = class(TDataModule)
    skc: TSocketConnection;
    cds1: TClientDataSet;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm: Tdm;

implementation

{$R *.dfm}

procedure Tdm.DataModuleCreate(Sender: TObject);
begin
   try
      skc.Close;
      skc.Open;
   except
       on e:exception do
       begin
           application.MessageBox(pchar('无法连接服务器！'+#13+#13+e.Message),'错误信息',16);
           application.Terminate;
       end;
   end;
end;

procedure Tdm.DataModuleDestroy(Sender: TObject);
begin
   skc.Close;
end;

end.