Спасибо за ответ! Ваш прикрепленный файл не мог открыть, у меня версия 1,45. Не могли бы этой версией, пожалуйста...
2 2020-11-03 07:46:45
Topic: Пункт "О программе" (3 replies, posted in Russian)
Добрый день! Создал свой пункт меню "О программе". Куда вставить этот скрипт?
procedure Form1_OnShow (Sender: string; Action: string); // event OnShow
begin
Form1.mniAbout.OnClick := @MenuClickAbout;
end;
procedure MenuClickAbout (Sender: string); // click in About menu item
begin
frmAbout.ShowModal;
end;
begin
end.
Если в начало, то пропадает окно авторизации, но окошко "О программе выходит". Если в конец (как в примере) не работает.
3 2020-11-03 07:42:52
Re: [Скрипт] Собственное окно "О программе" (About) (4 replies, posted in FAQ)
Добрый день! Создал свой пункт меню "О программе". Куда вставить этот скрипт? Если в начало, то пропадает окно авторизации, но окошко "О программе выходит". Если в конец (как в примере) не работает.
4 2020-11-02 12:18:58
Re: Разные данные в программе и в отчетах (2 replies, posted in Russian)
Спасибо огромное!
5 2020-11-02 08:50:48
Topic: Разные данные в программе и в отчетах (2 replies, posted in Russian)
Добрый день! Прошу помочь формированием отчета. При формировании отчета за определенный период в отчет попадают не все данные. Как заметил, не попадают данные того дня, которые указаны в отчете. Например, указываю период с 1 января по 30 сентября, при формировании отчета выводит данные с 2 января по 29 сентября. Как делать так, чтобы в отчет попали первые и последние даты. Версия программы 1,45
7 2018-09-20 05:16:23
Re: Кнопка копирование (31 replies, posted in Russian)
Да, событие для кнопки создал. Результат тот же....
8 2018-09-19 13:13:53
Re: Кнопка копирование (31 replies, posted in Russian)
Попробовал. Вроде бы все верно... Но не копирует.
9 2018-09-19 08:15:56
Re: Кнопка копирование (31 replies, posted in Russian)
Все таки я криворукий похоже. Не могу применить к своему проекту. Помогите пож-та! Логин и пароль 1
10 2018-09-19 04:54:25
Re: Кнопка копирование (31 replies, posted in Russian)
Да, все работает! Спасибо!
11 2018-09-18 14:05:31
Re: Кнопка копирование (31 replies, posted in Russian)
При запуске выдает вот это. У меня версия 1,45
12 2018-09-18 13:41:50
Re: Кнопка копирование (31 replies, posted in Russian)
Это прикрепленный Ваш проект свыше. Ошибку прикрепляю
13 2018-09-18 12:46:12
Re: Кнопка копирование (31 replies, posted in Russian)
Все равно выдает ошибку.... Что то я не так делаю походу....
procedure frmEmployee_Button3_OnClick (Sender: string; var Cancel: boolean);
begin
frmEmployee.bSave.dbGeneralTableId:=-1;
frmEmployee.bSave.Click;
end;
procedure Form1_Button6_OnClick (Sender: string; var Cancel: boolean);
begin
if IntToStr(Form1.GridEmployees.dbItemID)<>-1 then
begin
SQLExecute ('INSERT INTO employees (lastname, firstname, dateofbirth) SELECT lastname, firstname, dateofbirth FROM employees WHERE id='+IntToStr(Form1.GridEmployees.dbItemID));
Form1.GridEmployees.dbUpdate; // Update TableGrid
IntToStr(Form1.GridEmployees.dbItemID):= last_insert_id(); // select new record in TableGrid
end;
end;
begin
end.14 2018-09-18 12:13:49
Re: Кнопка копирование (31 replies, posted in Russian)
А там и нет Form1.GridEmployees.sqlValue
Там вот так
procedure frmEmployee_Button3_OnClick (Sender: string; var Cancel: boolean);
begin
frmEmployee.bSave.dbGeneralTableId:=-1;
frmEmployee.bSave.Click;
end;
procedure Form1_Button6_OnClick (Sender: string; var Cancel: boolean);
begin
if IntToStr(Form1.GridEmployees.dbItemID)<>-1 then
begin
SQLExecute ('INSERT INTO employees (lastname, firstname, dateofbirth) SELECT lastname, firstname, dateofbirth FROM employees WHERE id='+Form1.GridEmployees.sqlValue );
Form1.GridEmployees.dbUpdate; // Update TableGrid
IntToStr(Form1.GridEmployees.dbItemID):= last_insert_id(); // select new record in TableGrid
end;
end;
begin
end.
15 2018-09-17 12:43:02
Re: Кнопка копирование (31 replies, posted in Russian)
Добрый день! Никак не получается добавить кнопку копировать. Выдает ошибку. Можете помочь на примере какого нибудь справочника? Спасибо.
17 2016-09-14 08:28:01
Re: Формирование отчета (9 replies, posted in Russian)
А нельзя этот же отчет переделать так, чтобы выводились результаты за определенный период?
18 2016-08-11 11:31:50
Re: Формирование отчета (9 replies, posted in Russian)
Огоромное ВАМ спасибо!!! Вы гений!)
19 2016-08-11 11:25:22
Re: Формирование отчета (9 replies, posted in Russian)
Не смогли бы на версии 1,44? Спасибо!!!
21 2016-08-05 11:59:01
Re: Формирование отчета (9 replies, posted in Russian)
Спасибо!!! буду очень благодарен! В архиве прилагаю проект и нужный отчет (raschod.xls). В программе Логин 1 пароль 1.
22 2016-08-04 12:57:43
Topic: Формирование отчета (9 replies, posted in Russian)
Здравствуйте! Прошу помочь с созданием отчета, у себя никак не получается. Оплату гарантирую.
23 2016-05-18 11:12:45
Re: сумма значений в Грид (11 replies, posted in Russian)
Добрый день! А как можно в подвале округлить значения?
25 2016-04-29 11:01:19
Re: нужна помощь по поролям (18 replies, posted in Russian)
Добрый день! Не могли бы и мне помочь с отчетом, что здесь неправильно. Нужна выборка по дате, адресу (название ComboBox - cbAdress), виду услуги (название ComboBox - cbUsluga)
SELECT
dom.adress
,usluga.vid_uslugi
,rabota.vid_rabot
,application.summa
,application.record_count
,strftime('%d.%m.%Y',application.date) as date
,strftime('%d.%m.%Y',{dtFrom}) as datefrom
,strftime('%d.%m.%Y',{dtTo}) as dateto
FROM application
LEFT OUTER JOIN dom ON dom.id=application.id_dom
LEFT OUTER JOIN rabota ON rabota.id=application.id_rabota
LEFT OUTER JOIN usluga ON usluga.id=application.id_usluga
WHERE
date(application.date) > date({dtFrom}) AND
date(application.date) < date({dtTo}) AND
CASE WHEN {cbAdress}=-1 THEN 1=1 ELSE {cbAdress}= application.id_dom AND
CASE WHEN {cbUsluga}=-1 THEN 1=1 ELSE {cbUsluga}= application.id_usluga END