source: trunk/Forms/UFormTable.pas

unit UFormTable;

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  UDatabase;

type

  { TFormTable }

  TFormTable = class(TForm)
    ButtonOk: TButton;
    ButtonCancel: TButton;
    EditName: TEdit;
    EditCaption: TEdit;
    Label1: TLabel;
    Label2: TLabel;
  public
    procedure Load(Table: TTable);
    procedure Save(Table: TTable);
  end;


implementation

{$R *.lfm}

{ TFormTable }

procedure TFormTable.Load(Table: TTable);
begin
  EditName.Text := Table.Name;
  EditCaption.Text := Table.Caption;
end;

procedure TFormTable.Save(Table: TTable);
begin
  Table.Name := EditName.Text;
  Table.Caption := EditCaption.Text;
end;

end.