clian.pas

delphi 三层结构的例子

unit clian;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls, jpeg, Buttons, DB, DBClient,
  MConnect, SConnect;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    Panel2: TPanel;
    Splitter1: TSplitter;
    Panel3: TPanel;
    TreeView1: TTreeView;
    TreeView2: TTreeView;
    Memo1: TMemo;
    Image1: TImage;
    SocketConnection1: TSocketConnection;
    ClientDataSet1: TClientDataSet;
    Panel4: TPanel;
    SpeedButton1: TSpeedButton;
    Splitter2: TSplitter;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure TreeView2Change(Sender: TObject; Node: TTreeNode);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
with TForm2.Create(Self) do
begin
   ShowModal;
   Free;
end;
//SocketConnection1.AppServer.inster('asd','asd','jjjjjkkk');

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SocketConnection1.Connected:=True;
end;

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  TreeView2.Items.Clear;
  ClientDataSet1.Close;
  SocketConnection1.AppServer.select(TreeView1.Selected.Text);
with ClientDataSet1 do
 begin
   Open;
  while Not Eof do
  begin
TreeView2.Items.Add(nil,ClientDataSet1.fieldbyname('标题').AsString);
   next;
  end;
end;
end;

procedure TForm1.TreeView2Change(Sender: TObject; Node: TTreeNode);
begin
  Memo1.Clear;
  ClientDataSet1.Close;
  SocketConnection1.AppServer.select1(TreeView2.Selected.Text);
 with ClientDataSet1 do
 begin
    Open;
   Memo1.Lines.Text:=fieldbyname('内容').AsString
 end;

end;

end.