• Registered: 2018-01-03
  • Posts: 18

Topic: Вопросы по реализации интерфейса!

Дмитрий, у меня вопрос по реализации интерфейса и вообще есть ли такая возможность в программа MyVisualDatabase. Скриншот прикладываю.

1. Как можно реализовать нумерацию порядковую примерно как на скриншоте (цифра - 1). Т.е при поступлении дела добавляем запись и этот номер присваивается автоматически согласно какой нибудь встроенной номенклатуре.
2. Далее при выборе дела из столбца №1 вся подвязанная к нему информация открывается во вкладке №2. Информация строковая с возможность некоторых полей выбрать конкретные значения из таблицы (как combobox)
3. Вопрос по формату даты. В проекте есть таблица с полем "Дата" так вот при выводе ее в отчет FastReport не могу сменить формат даты, т.е хочу не 21.12.2017 а чтобы отображалось 21 декабря 2017 года. В самом Fastreport есть "DisplayFormat" где можно выбрать нужный, но он никак не реагирует, чтобы я не выбирал. Возможно что-то делаю не то.

И вообще есть ли такие возможности в программе?

Post's attachments

Attachment icon скриншот-интерфейса1.jpg 124.11 kb, 272 downloads since 2018-01-03 

Maksim.Korotkov's Website

2 Reply by Maksim.Korotkov (edited by Maksim.Korotkov 2018-01-04 16:23:50)

  • Registered: 2018-01-03
  • Posts: 18

Re: Вопросы по реализации интерфейса!

1. http://myvisualdatabase.com/forum/viewtopic.php?id=1088

2.  Это возможно сделать с помощью SQL запроса, но подобным образом не
получиться создавать или редактировать записи, только просматривать.

3.  Если  для  формирования  отчета  используется  кнопка  с действием "Отчет",  тогда  для  форматирования  даты можете использовать простой скрипт, создайте событие OnAfterData для компонента в шаблоне отчета, в который выводится дата

procedure ReportBirthDateOnAfterData(Sender: TfrxComponent);
begin
       if ValidDate(<Report."employees.dateofbirth">) then                                                 
       ReportBirthDate.Text := FormatDateTime('d mmmm yyyy', StrToDate(<Report."employees.dateofbirth">));
end;

2. Как это можно реализовать с помощью SQL запроса?

3. Создал не работает, что делаю не так?

Post's attachments

Attachment icon не-работает.jpg 209.98 kb, 208 downloads since 2018-01-04 

Maksim.Korotkov's Website

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Вопросы по реализации интерфейса!

2. Извиняюсь, перепутал, сделать именно так в табличном виде не получиться, необходимо выводить данные в компоненты.


3. Приложите пожалуйста ваш проект, протестирую.

Dmitry.
  • Registered: 2018-01-03
  • Posts: 18

Re: Вопросы по реализации интерфейса!

2. Извиняюсь, перепутал, сделать именно так в табличном виде не получиться, необходимо выводить данные в компоненты.

А в EDIT можно выводить таким образом и в Combobox? Или только через скрипт?

3. Приложите пожалуйста ваш проект, протестирую.

Проект прикладываю, там кнопка с отчетом "Разъездная ведомость"

Post's attachments

Attachment icon Командировки2.7z 282.55 kb, 348 downloads since 2018-01-08 

Maksim.Korotkov's Website

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Вопросы по реализации интерфейса!

Сделал для вас проект с примером


Для отчета

procedure ReportBirthDateOnAfterData(Sender: TfrxComponent);
begin
       if ValidDate(<Report."Trip.data_trip">) then                                                 
       ReportTripdata_trip1.Text := FormatDateTime('d mmmm yyyy', StrToDate(<Report."Trip.data_trip">));
end;
Post's attachments

Attachment icon Phone Book.zip 89.56 kb, 335 downloads since 2018-01-08 

Dmitry.
  • Registered: 2018-01-03
  • Posts: 18

Re: Вопросы по реализации интерфейса!

Дмитрий, большое спасибо.

А месяц в другом падеже нельзя использовать?

Maksim.Korotkov's Website

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Вопросы по реализации интерфейса!

Maksim.Korotkov wrote:

Дмитрий, большое спасибо.

А месяц в другом падеже нельзя использовать?

Можно сделать так

procedure ReportBirthDateOnAfterData(Sender: TfrxComponent);
var
       sMonth: string;                                              
begin
       if ValidDate(<Report."Trip.data_trip">) then                                                 
       begin                 
               sMonth := FormatDateTime('m', StrToDate(<Report."Trip.data_trip">));
               if sMonth = '1' then sMonth := 'Января';
               if sMonth = '2' then sMonth := 'Февраля';
               if sMonth = '3' then sMonth := 'Марта';
               if sMonth = '4' then sMonth := 'Апреля';
               if sMonth = '5' then sMonth := 'Мая';
               if sMonth = '6' then sMonth := 'Июня';
               if sMonth = '7' then sMonth := 'Июля';
               if sMonth = '8' then sMonth := 'Августа';
               if sMonth = '9' then sMonth := 'Сентября';
               if sMonth = '10' then sMonth := 'Октября';
               if sMonth = '11' then sMonth := 'Ноября';
               if sMonth = '12' then sMonth := 'Декабря';                   
               
               ReportTripdata_trip1.Text := FormatDateTime('d ', StrToDate(<Report."Trip.data_trip">)) + sMonth + FormatDateTime(' yyyy', StrToDate(<Report."Trip.data_trip">));                    
       end;
end;
Dmitry.
  • Registered: 2018-01-03
  • Posts: 18

Re: Вопросы по реализации интерфейса!

Спасибо, всё отлично!

Maksim.Korotkov's Website