Интерфейс пользователя MIS3 — различия между версиями

Материал из ИбисоПедии
Перейти к: навигация, поиск
(→‎Код)
(→‎WinOnTask)
Строка 60: Строка 60:
 
* TdxBarmanager
 
* TdxBarmanager
 
* dxRibbon.showheaders := False (в дизайнере)
 
* dxRibbon.showheaders := False (в дизайнере)
−
* From.OnClose - и не забываем оставлять inherided
 
−
* FormOnCreate
 
  
−
=== Код ===
+
см [[MIS3. Иерархия классов]]
−
<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>
 
  
 
== Модальное окно ==
 
== Модальное окно ==

Версия 07:24, 25 октября 2013

Общие

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

Главное окно

Горячие клавиши

Здесь информация может немного устареть. См описание классов и исходные коды модулей MIS3._Иерархия_классов

В окнах редактирования (WinOnTask)

  • F2 - Сохранить CTRL+S
  • F3 - Плюс на доп клавиатуре
  • F4 - Редактировать
  • F5 - Обновить
  • F6 - Выполнить отчет
  • F9 - Конструктор отчетов
  • F12 Закрыть форму (также есть умная клавиша ESC)
  • Ctrl+Enter
  • Shift+Del - удалить
  • Alt+backspace - отменить изменения на форме

В окнах выбора

  • Enter - В окнах выбора "выбрать и вернуть"
  • F12 Закрыть форму

В окнах списках

  • Ctrl+F4? Закрыть текущий список

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

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

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

см MIS3. Иерархия классов

Окно список

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

Дизайн

  • FormStyle = fsMDIChild
  • tdxbarmanager
  • TdxRibbon

WinList.png см MIS3. Иерархия классов

WinOnTask

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

Дизайн

  • Наследуем от TfmWinOnTask
  • TdxBarmanager
  • dxRibbon.showheaders := False (в дизайнере)

см MIS3. Иерархия классов

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

  • Здесь будет описание

Простое модальное окно

  • Ширина кнопок OK, Отмена = 75
  • притянуты к правому краю панели
  • расстояние между кнопками = 15
  • Кнопки TcxButton, Kind = ultraflat
  • Кнопка OK имеет значение Default := True;
Источник — «http://mediawiki.oblteh/mediawiki/index.php?title=Интерфейс_пользователя_MIS3&oldid=324»