Просмотр исходного текста страницы Интерфейс пользователя MIS3

== Общие ==
* свойство TOP для контролов: 6,39,72, 105,138,171 ,204
* метки обязательных полей подчеркиваются красным (см. dmImages.SetRequiredFieldLabelStyle)
* настройки соединения с БД  в ibis.ini
* текущие настройки приложения (положения окон, выбранный стили и т.п.) в реестре HKCU\Software\SoftMaster\<имя_приложения>
* русификация в файле russian.lng  (в том числе и для других языков через cxLocalizer)
* стиль нередактируемых контролов dmImages.escInfo
* стиль заголовков (над списками и пр) - будет тут.

== Главное окно ==
== Горячие клавиши ==
=== В окнах редактирования (WinOnTask) ===
* F2 - Сохранить
* F4 - редактировать
* F5 - обновить
* F6 - выполнить отчет
* F9 - конструктор отчетов
* F12 Закрыть форму
* Ctrl+Q Сохранить и закрыть  (Вариант Ctrl+Enter ???)
* Shift+Del - удалить 
* Alt+backspace - отменить изменения на форме
=== В окнах выбора ===
* Enter - В окнах выбора "выбрать и вернуть"
* F12 Закрыть форму

=== В окнах списках ===
* Ctrl+F4? Закрыть текущий список

== Окно с кнопками операций ==

Назначение показ кнопок с различными списками, без реализации самих списков

- Название должно заканчиваться на Tab
- наследник от TdxRibbonForm

<source lang="delphi">
procedure TfmDict.FormCreate(Sender: TObject);
begin
  // для форм без списка достаточно только одного вызова
  // Проверяем доступ
//  dxbrUserControl.Visible := dmMain.CheckRight(1);

  if not rbtDict.IsMerged then  fmMain.rbtDict.Merge(rbtDict);
  dxRibbon1.Visible := False;

end;
</source>

== Окно список ==

* Отображает один список (список справочников, людей и т.п.)
* имя pas-файлы должно заканчиваться на List
* умеет реагировать на сообщения об обновлении
=== Дизайн ===
* FormStyle = fsMDIChild
* tdxbarmanager
* TdxRibbon

[[File:WinList.png]]
=== Код ===
<source lang="delphi">
interface
uses
  UniScript,uSFMessages;

implementation
uses 
  dImages, dMain, fMain, dRef;

procedure TfmTeamList.FormActivate(Sender: TObject);
begin
  if Application.Terminated then exit;

  fmMain.rbtTeam.Active :=True;
  if not rbtTeamList.IsMerged then  fmMain.rbtTeam.Merge(rbtTeamList);
end;
//------------------------------------------------------------------------------
procedure TfmTeamList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;
//------------------------------------------------------------------------------
procedure TfmTeamList.FormCreate(Sender: TObject);
begin
  dxRibbon1.Visible := False;
  uqTeamList.Open;
  dmImages.il16.GetIcon(cii16_Brig,Self.Icon);
end;
//------------------------------------------------------------------------------
procedure TfmTeamList.FormDeactivate(Sender: TObject);
begin
  if rbtTeamList.IsMerged then  fmMain.rbtTeam.Unmerge(rbtTeamList);
end;
</source>

== Модальное окно ==

== Простое модальное окно ==
* Ширина кнопок OK, Отмена = 75
* притянуты к правому краю панели
* расстояние между кнопками = 15
* Кнопки TcxButton, Kind = ultraflat
* Кнопка OK имеет значение Default := True;

== WinOnTask ==

- наследник от WinOnTask (кнопка на панели задач)
- название заканчиваем на WOT (WinOnTask)

=== Дизайн ===
* Наследуем от TfmWinOnTask
* TdxBarmanager
* dxRibbon.showheaders := False (в дизайнере)
* From.OnClose - и не забываем оставлять inherided
* FormOnCreate

=== Код ===
<source lang="delphi">
uses
  fWinOnTask
...
type
  TfmTeamWOT = class(TfmWinOnTask)

  private
    procedure SaveData;
    procedure CheckData;
    procedure SetCaption;
    procedure SetControls;
    procedure SetRequedFieldStyle;
    procedure SendMessageOnChange;
  public
    procedure InitData(AID:Integer);
  end;

implementation

{$R *.dfm}

uses 
  dMain, dImages, fMain, uSFVCLUtils, uSFMessages, uUniUtils;


  procedure OpenTransport(AID:Integer);
  procedure DeleteTransport(AID: Integer);


procedure OpenTransport(AID:Integer);
var
  Form : TForm;
begin
  Form:=FindFormByTag(TfmTrasportWOT,AID);
  if Form=nil then
  begin
    Form := TfmTrasportWOT.Create(Application);
    TfmTrasportWOT(Form).InitData(AID);
    Form.Show;
  end;
end;
//------------------------------------------------------------------------------
procedure DeleteTransport(AID: Integer);
var
  us :TUniScript;
begin
  us := TUniScript.Create(dmMain);
  us.Connection := dmMain.con;
  //TEAM
//  TEAM_SHCEDULE_TRANSPORT
  us.SQL.Add('Delete from mm.transport_emp t where t.transport_id= &id ;');
  us.SQL.Add('update mm.team set transport_id=null where transport_id= &id ;');
  us.SQL.Add('Delete from mm.transport t where t.id= &id ;');
  us.MacroByName('id').AsString := intToStr(AID);
  try
    us.Execute;
  finally
    us.Free;
  end;

end;

</source>



[[Категория:MIS3]]