-- типы пунктов меню (folder, grid, procedure)
create table ui$menu_item_type (
  id varchar2(20) not null primary key, -- код типа
  name varchar2(100) not null -- название
);

-- пункты меню. Если тип включить в ПК, то ссылки с наследников будут более строгими - 
-- можно повесить check (ui$menu_item_grid.item_type='grid')
create table ui$menu_item (
  id integer not null primary key, -- код записи
  name varchar2(100) not null, -- текст
  parent integer references ui$menu_item(id), -- папка
  item_type varchar2(20) not null references ui$menu_item_type(id), -- тип пункта меню
  index integer not null, -- порядковый номер, для сортировки внутри папки
  custom_class varchar2(100) -- класс для отображения, для настройки более сложного поведения
);

-- простые типы данных
create table ui$data_type (
  id varchar2(20) not null primary key,
  name varchar2(100) not null -- название
);

-- возможные процедуры к вызову
create table ui$procedure (
  name varchar2(200) not null primary key, -- название (схема.пакет.процедура)
  custom_class varchar2(100) -- класс для отображения, для настройки более сложного поведения
);

-- описание датасета
create table ui$dataset (
  name varchar2(200) not null primary key, -- название
  select_procedure varchar2(200) not null references ui$procedure(name), -- курсор
  key_fields varchar2(100) not null, -- ключевые поля (через запятую, нарушение 1 НФ!)
  parent_field varchar2(100) -- поле предка, если иерархия
);

-- описание скаляра - поля набора данных или параметра процедуры
create table ui$scalar (
  id integer not null primary key, -- код записи
  name varchar2(100) not null, -- название
  user_name varchar2(100) not null, -- показываемое название
  data_type varchar2(20) not null references ui$data_type(id), -- тип данных
  links_to varchar2(200) references ui$dataset(name) -- ссылка на датасет для выбора значения. 
    -- вопрос, как быть с FK по более чем одному полю
);

-- описания параметров процедуры
create table ui$procedure_param (
  procedure varchar2(200) not null references ui$procedure(name), -- процедура
  param integer not null references ui$scalar(id), -- параметр
  required integer not null check (required in (0,1)), -- обязательность
  default_value varchar2(200), -- значение по умолчанию, кодированное, пока без подробностей
  primary key (procedure, param)
);

-- описание полей датасета для показа грида
create table ui$dataset_field (
  dataset varchar2(200) not null references ui$dataset(name), -- набор данных
  field integer not null references ui$scalar(id), -- поле
  visible integer not null default 1 check (visible in (0,1)), -- видимость
  index integer, -- порядковый номер для отображения
  group varchar2(100), -- имя группы, для показа бэнда
  primary key (dataset, field)
);

-- пункт меню типа "грид", наследник от ui$menu_item. Если нет процедур, то только просмотр. Он же и отчет.
create table ui$menu_item_grid (
  id integer not null primary key references ui$menu_item(id), -- код записи
  dataset varchar2(200) not null references ui$dataset(name), -- набор данных
  add_procedure varchar2(200) references ui$procedure, -- процедура добавления записи
  edit_procedure varchar2(200) references ui$procedure, -- процедура редактирования записи
  del_procedure varchar2(200) references ui$procedure, -- процедура удаления записи
);

-- пункт меню типа "процедура"
create table ui$menu_item_procedure (
  id integer not null primary key references ui$menu_item(id), -- код записи
  procedure not null varchar2(200) references ui$procedure -- процедура
);

-- бинд полей датасета к параметрам процедуры. 
-- вместе с ui$procedure_param описывает интерфейс вызов процедуры, например редактирования записи
create table ui$field_to_param (
  dataset varchar2(200) not null references ui$dataset(name), -- набор данных
  field integer not null references ui$scalar(id), -- поле
  procedure varchar2(200) not null references ui$procedure, -- процедура
  param integer references ui$scalar(id), -- параметр, если пуст то поле информационное
  read_only integer not null default 0 check (read_only in (0,1)), -- надо ли, с учетом существования пред. поля?
  visible integer not null default 1 check (visible in (0,1)), -- показывать
  index integer, -- порядковый номер в группе
  group varchar2(200), -- группа
  default_value varchar2(200), -- значение по умолчанию
  primary key (dataset, field, procedure)
);

-- какие процедуры можно вызывать напрямую из этого грида. бинды берутся из ui$field_to_param
-- дополнительные кнопки на гриде
create table ui$grid_proc (
  item integer not null primary key references ui$menu_item_grid(id), -- грид
  name varchar2(200) not null, -- текст кнопки
  procedure varchar2(200) not null references ui$procedure(name), -- процедура для вызова
  need_refresh integer not null default 0 check (need_refresh in (0,1)) -- нужно ли обновление грида после вызова
);

unit uAuthorizeFrame;

interface

uses
  ...

type
  TAuthorizeFrame = class (TProcedureFrame)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SetDefaultParamValues; override;
    function Save: boolean; override;
    procedure Build(AParent: TWinControl); override;
  end;

implementation

uses
  DateUtils,
  Avk.Gui.DefaultValueEditorFrame;

const
  cLoginParamName = 'I_LOGIN';
  cLoginSettingsName = 'LOGIN';

{$R *.dfm}

{ TAuthorizeFrame }

procedure TAuthorizeFrame.Build(AParent: TWinControl);
var
  E: TcxTextEdit;
begin
  inherited;
  E := ParamControls['I_PASSWORD'].GetEditor as TcxTextEdit;
  E.Properties.EchoMode := eemPassword;
  (Self.Owner as TForm).ActiveControl := E;
end;

function TAuthorizeFrame.Save: boolean;
begin
  Result := inherited Save;
  if Result then
    SaveFrameSettingsValue(cLoginSettingsName, VarToStr(ParamValues[cLoginParamName]));
end;

procedure TAuthorizeFrame.SetDefaultParamValues;
begin
  inherited;
  ParamValues.AddOrSetValue(cLoginParamName, LoadFrameSettingsValue(cLoginSettingsName));
end;

initialization
  RegisterClass(TAuthorizeFrame);

end.