(CASE WHEN implementation=1 then 'На контроле' WHEN implementation IS NULL then 'Выполнено' else '' end)
6,876 2015-07-05 14:51:03
Re: Как в гриде заменить значения CheckBox 'Да' и 'Нет' на другие? (12 replies, posted in Russian)
6,877 2015-07-05 08:32:14
Re: [Скрипт] Сделать дубликат записи (23 replies, posted in FAQ)
может я что-то не там меняю? при запуске такая ошибка (скрин), при нажатии на кнопку дубликат - Access violationat address 0087E3B1 in module "Employees.exe"/ Write of address 00000014
замените TableGrid1 на GridEmployees в коде.
6,878 2015-07-04 17:26:13
Re: Вопрос по ShowMessage (10 replies, posted in Russian)
попробуйте так
s,z: string;
begin
s := SQLExecute('SELECT group_concat('-' || contentDetails, char(13)) FROM details WHERE date(dateCompletion)=date(''now'') AND status=1');
z := SQLExecute('SELECT group_concat('-' || contentTask, char(13)) FROM tasks WHERE date(dateCompletion)=date(''now'') AND status=1');
if (z <>'') OR (s <>'') then
begin
ShowMessage( 'Сегодня закончился срок выполнения:' +#13#10 +#13#10 +'Задач:' +#13#10 +z +#13#10 +#13#10 +'Мероприятий:' +#13#10 +s );
end;
6,879 2015-07-04 14:25:28
Re: Вопрос по ShowMessage (10 replies, posted in Russian)
Код работает без проблем и отбирает записи, принадлежащие к определённой дате. Каждая запись пишется с новой строки (рисунок прилагаю). Но всё равно визуально они сливаются.
В чем вопрос? )
P.S. На рисунке задач - 3, мероприятий - 6. Последнее, шестое, почему-то сїехало вниз (?)
Последнее съехало вниз, возможно потому что в самой записи есть перенос строки.
Пожалуйста, описывайте вопрос более ясно, у меня к сожалению нет представления о целях и сущности вашего проекта, который есть у вас.
6,880 2015-07-04 14:17:53
Re: Прошу помощи в реализации проекта (35 replies, posted in Russian)
Что бы в форме frmReestrVidmovu в поле ComboBox1 выбирался адвокат, а в поле ComboBox2 можно было выбрать номер телефона принадлежащий даному адвокату на который был осуществлем звонок (таких номеров может быть несколько), и запись всех етих данных в базу с последюющим просмотром через форму frmJurnal.
Поправил ваш проект:
6,881 2015-07-04 13:45:36
Re: system very slow (3 replies, posted in Script)
Do you store any files in database?
Speed of work depends how many user online?
There is no any limits for database.
6,882 2015-07-04 13:42:17
Re: Вопрос по ShowMessage (10 replies, posted in Russian)
Я не могу понять, о каких нескольких записях идет речь, судя по коду, у вас одна запись в z и одна в s
6,883 2015-07-04 13:04:26
Re: Прошу помощи в реализации проекта (35 replies, posted in Russian)
К сожалению я не могу понять, что именно вам необходимо. Пожалуйста, задайте вопрос в общем виде, какие именно операции с данными вам нужны.
6,884 2015-07-04 12:59:18
Re: Удаление значения реестра (13 replies, posted in Russian)
к сожалению я не совсем понимаю, что вы делаете, я могу вам помочь только с конкретным вопросом.
6,885 2015-07-04 12:52:38
Re: Вопрос по ShowMessage (10 replies, posted in Russian)
К сожалению не ясно, о какой пустой строке идет речь.
добавить символ в переменную текстового типа можно так:
s := '-' + s;
6,886 2015-07-04 12:49:14
Re: Прошу помощи в реализации проекта (35 replies, posted in Russian)
Необходимо подробное описание, с указанием форм и компонентов, где это необходимо реализовать.
6,887 2015-07-04 10:47:45
Re: Error message pressing Excel button (1 replies, posted in Script)
Hello,
Unfortunately no, but you can try use clipboard, right click on TableGrid and select "Copy all" then try paste to office suite.
6,888 2015-07-04 00:09:24
Re: Error with Sum (12 replies, posted in Script)
I want to create report but my result was wrong with this ....!!!
You can't have 307.31 with 32.09 in tablegrid on report...
...3 days on this application but no solution....
Please, try fixed version of your project:
6,889 2015-07-03 22:09:31
Re: Error with Sum (12 replies, posted in Script)
maybe it's due to rounding, please open record with prix: 32,09
and you will see value: 32,085
In table grid you got rounded value.
6,890 2015-07-03 22:04:24
Re: Error with Sum (12 replies, posted in Script)
Where I can see your picture?
6,891 2015-07-03 22:03:16
Re: Удаление значения реестра (13 replies, posted in Russian)
kunar80
Проверил ваш проект, работает, ключ удаляется, но код можно чуть упростить.
procedure frmMain_Button1_OnClick (Sender: string; var Cancel: boolean);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.Access := KEY_ALL_ACCESS;
reg.RootKey := HKEY_CURRENT_USER;
reg.DeleteKey('\software\MyAssistantTrial');
reg.CloseKey;
reg.Free;
end;
6,892 2015-07-03 21:58:10
Re: calculate table (33 replies, posted in Russian)
nikolai_nn
не видя структуру вашей базы данных, я не могу исправить ваш запрос, приложите пожалуйста проект.
6,893 2015-07-03 21:56:27
Re: Error with Sum (12 replies, posted in Script)
Where exactly error in your project? Please let me know more details.
6,894 2015-07-03 21:53:22
Re: Маска ввода - десятизначное число. (12 replies, posted in Russian)
попробуйте так
procedure frmDogovor_knpkAddDog_OnClick (Sender: string; var Cancel: boolean); // проверка на заполнение обязательных полей и соответствие ИНН количеству введенных символов
begin
if (Length(frmDogovor.addINN.Text)<>10) and (Length(frmDogovor.addINN.Text)<>12) then
begin
ShowMessage('Не верный ИНН!');
Cancel := True;
end;
end;
6,895 2015-07-03 16:24:59
Re: [Скрипт] Сделать дубликат записи (23 replies, posted in FAQ)
попробуйте заменить данный участок кода на следующий:
id =''' + IntToStr(Form1.TableGrid1.dbItemID) + '''' )
6,896 2015-07-03 12:13:35
Re: Error with Sum (12 replies, posted in Script)
Hello,
I don't have access to download the file.
6,897 2015-07-03 11:22:36
Re: Проблема с программой (8 replies, posted in Russian)
ShowModal не поможет.
таймер скрывает форму License, как бы отделяется от события OnShow от Form1
6,898 2015-07-03 11:04:02
Re: Проблема с программой (8 replies, posted in Russian)
При первом запуске программа запрашивает код активации, который можно взять с Edit3. Теперь при повторном запуске пишет ошибку (см. изображение)
Нет возможности скрывать окно в событии этого же окна (OnShow)
Пришлось сделать немного не стандартно, с помощью таймера:
6,899 2015-07-03 10:46:09
Re: Помощь с проектом - "Реестр договоров" (15 replies, posted in Russian)
Ограничение минимального размера окна при установленной функции "Sizeable"- возможно ли такое?
procedure Form1_OnShow (Sender: string; Action: string);
begin
Form1.Constraints.MinWidth := 400;
Form1.Constraints.MinHeight := 400;
end;
6,900 2015-07-03 10:22:40
Re: Проблема с программой (8 replies, posted in Russian)
приложите пожалуйста проект, с описанием действий для возникновения ошибки.