nikolai_nn
К сожалению я так и не смог понять, что именно вам необходимо.
7,351 2015-04-27 20:36:52
Re: calculate (9 replies, posted in Russian)
7,352 2015-04-25 15:36:59
Re: Beta version 1.51 (14 replies, posted in General)
Unfortunately not yet.
7,353 2015-04-24 22:59:29
Re: Связь таблиц (7 replies, posted in Russian)
Не хватает еще одной формы, в которой к одному визиту можно добавить несколько объектов.
Также сделал небольшой скрипт, чтобы при выборе объектов для визита, отображались не все объекты, а только объекты клиента.
7,354 2015-04-24 22:16:49
Re: near AS syntax error (4 replies, posted in General)
Calculated field should be:
Contact.FirstName || ' ' || Contact.LastName
7,355 2015-04-24 21:57:44
Re: calculate (9 replies, posted in Russian)
Не совсем понял, что необходимо сделать, пожалуйста приложите к сообщению ваш проект (zip файл без exe и dll)
7,356 2015-04-24 20:46:42
Re: Beta version 1.51 (14 replies, posted in General)
any news about security ?
What exactly do you want to know?
7,357 2015-04-24 20:42:50
Re: Печать отчетов (9 replies, posted in Russian)
Slava.Pepper
Должно работать, в настройках кнопки с действием "SQL запрос"
SELECT fielf1, field2 FROM tablename
WHERE Groups.GroupNumber = '{GroupNumberList}'
если не получится, приложите пожалуйста ваш проект (zip файл без exe и dll)
7,358 2015-04-24 16:05:27
Re: Автоматизация (9 replies, posted in Russian)
Список должен состоять из двух частей! первая часть - необходимая техника! вторая - доступная техника!
В том случае если необходимая техника уже занята, диспетчер должен выбрать из предложенной доступной техники!
по какому признаку необходимо определять, какая техника необходимая ?
7,359 2015-04-24 16:04:10
Re: Автоматизация (9 replies, posted in Russian)
Готово.
Начинайте вводить название улицы, и в гриде увидите машины.
7,360 2015-04-24 15:41:19
Re: date (22 replies, posted in Russian)
Можно
procedure Form1_ButtonNewRecord_OnClick (Sender: string; var Cancel: boolean);
begin
if SQLExecute ('SELECT COUNT(*) FROM tablename') > 0 then
begin
ShowMessage('Разрешена только одна запись.');
Cancel := True;
end;
end;
7,361 2015-04-24 15:37:15
Re: вопрос по отчетам. (26 replies, posted in Russian)
kunar80
К сожалению с данными вопросами не смогу помочь.
Я могу помочь вам только с конкретными вопросами.
7,362 2015-04-24 15:34:03
Re: near AS syntax error (4 replies, posted in General)
Please, attach your project (zip file without exe and dll)
I'll try to help you.
Thanks.
7,363 2015-04-24 10:30:03
Re: How to copy textbox then write to another textbox ? (2 replies, posted in General)
procedure Form1_TextBoxA_OnChange (Sender: string);
begin
Form1.TextBoxB.Text := Form1.TextBoxA.Text;
end;
7,365 2015-04-23 18:56:12
Re: Автоматизация (9 replies, posted in Russian)
Приложите пожалуйста ваш проект к сообщению (zip файл без exe и dll)
с описанием, как должен выглядеть процесс автоматического выбора техники.
Должна быть выбрана какая то одна техника из предложенных на основе адреса назначения?
7,366 2015-04-23 14:39:55
Re: вопрос по отчетам. (26 replies, posted in Russian)
kunar80
1. В вашем случае вам не нужно вычисляемое поле. Добавил новое текстовое поле nums и добавил его в отчет.
2. Поправил.
3. К сожалению не понял как и что должно работать.
Исправленный проект приложил к сообщению.
7,367 2015-04-23 14:20:49
Re: Сделал проект (нужна помощь) (57 replies, posted in Russian)
wertyby
К сожалению не смогу помочь с данным вопросом.
7,368 2015-04-23 14:14:33
Re: вопрос по отчетам. (26 replies, posted in Russian)
kunar80
После выбора пользователя и ввода пароля, появляется форма frmUsers, далее нет доступа к необходимым формам.
Пожалуйста, описывайте более подробней, что и как должно работать, к сожалению я не могу тратить много времени на выяснения, как устроен проект.
7,369 2015-04-23 13:39:36
Re: calculate table (33 replies, posted in Russian)
К сожалению так не получится сделать.
7,370 2015-04-23 09:40:47
Re: Сделал проект (нужна помощь) (57 replies, posted in Russian)
Попробуйте так:
procedure Form1_Button6_OnClick (Sender: string; var Cancel: boolean);
begin
if Form1.GridEmployees.dbItemID<>-1 then //dbItemID вернет ид записи
begin
SQLExecute ('INSERT INTO employees (record_count, lastname, firstname, dateofbirth) SELECT ( SELECT MAX(record_count)+1 FROM employees), lastname, firstname, dateofbirth FROM employees WHERE id='+Form1.GridEmployees.sqlValue );
Form1.GridEmployees.dbUpdate; // Update TableGrid
Form1.GridEmployees.dbItemID := Last_Insert_id('employees'); // select new record in TableGrid
end;
end;
7,371 2015-04-23 09:14:13
Re: Автоматизация (9 replies, posted in Russian)
Приветствую,
Начать двигаться нужно со структуры базы данных, например такой:
7,372 2015-04-23 08:02:10
Re: сохр файла с нужной датой (2 replies, posted in Russian)
Files.DBFile1.dbCopyTo := 'Video\' +FormatDateTime(''yyyy', Form1.DateTimePicker2.DateTime)....
где Form1.DateTimePicker2 - тот, в котором указывается дата (число, месяц, год)
7,373 2015-04-22 15:42:55
Re: вопрос по отчетам. (26 replies, posted in Russian)
kunar80
Можно с помощью вычисляемого поля, например имеем базу людей(person) и их телефонные номера(phone), тогда в таблице person необходимо создать выч. поле:
(SELECT group_concat(phone.number) FROM phone WHERE phone.id_person=person.id)
также в отчете блок MasterData не нужен.
7,374 2015-04-22 15:24:50
Re: Сделал проект (нужна помощь) (57 replies, posted in Russian)
К сожалению по данным кускам кода не смогу точно подсказать, что и как должно быть.
7,375 2015-04-22 14:28:53
Re: Сделал проект (нужна помощь) (57 replies, posted in Russian)
wertyby
Получится, вы должны учитывать, что у компонента не может быть два одинаковых события в скрипте.
Просто необходимо в одно событие вписать код из двух скриптов.
допустим два скрипта
скрипт1:
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
a: integer;
begin
a := 1;
ShowMessage(a);
end;
скрипт2:
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
s: string;
begin
s := 'Hello';
ShowMessage(s);
end;
объеденены
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
a: integer;
s: string;
begin
a := 1;
ShowMessage(a);
s := 'Hello';
ShowMessage(s);
end;