client_unit.pas.~7~

来自「三层系统设计中,应用服务层和客户端使用结构体传送数据进行通信.」· ~7~ 代码 · 共 78 行

unit Client_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBClient, MConnect, StdCtrls,Comm, SConnect;

type
  TClient_Form = class(TForm)
    btn1: TButton;
    edt1: TEdit;
    edt2: TEdit;
    con1: TDCOMConnection;
    lbl1: TLabel;
    Label1: TLabel;
    Button1: TButton;
    SocketConnection1: TSocketConnection;
    procedure btn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Client_Form: TClient_Form;

implementation

{$R *.dfm}

procedure TClient_Form.btn1Click(Sender: TObject);
var
  rr:OleVariant;
  myRec:TARec;
begin
  if not con1.Connected then
     con1.Open;
  rr := con1.AppServer.GetRec;
  myRec := VariantToRecord2(con1.AppServer.GetRec);
  edt1.Text := myRec.Name;
  edt2.Text := IntToStr(myRec.age);
end;

procedure TClient_Form.Button1Click(Sender: TObject);
var
  rr:OleVariant;
  myRec, myRec1:TARec;
begin
  if not self.SocketConnection1.Connected then
     SocketConnection1.Open;
 // rr := con1.AppServer.GetRec;

  myRec1.Name := 'select * from t_user';
  rr := RecordToVariant2(myRec1);
  myRec := VariantToRecord2(SocketConnection1.AppServer.GetRecTest(rr));
  edt1.Text := myRec.Name;
  edt2.Text := IntToStr(myRec.age);

end;

procedure TClient_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  con1.Close;
end;

procedure TClient_Form.FormCreate(Sender: TObject);
begin
  con1.Close;
  con1.Open;
end;

end.