Спасибо! Все работает. Только подскажите, как добавить соответствие со вторым значением из первого комбобокса, т.е. при выборе "Русский", чтобы он выдавал сообщение на удмуртские слова?
77 2023-05-02 12:27:44
Re: Следующий номер (14 replies, posted in Russian)
Vickus wrote:Прошу прощения, но не могли бы Вы приложить пример. Не получается :-( В моем случае в первом комбобоксе два значения, а во втором десятки
Проверил, работает
Возможно я не очень ясно объясняю. Ммм, необходимо, чтобы при выборе в первом боксе "русский", а во втором боксе не было реакций на выбор русских слов. Но если в первом боксе установлен "русский", а во втором выбрать любое удмуртское - выходило бы сообщение о несоответствии. И наоборот, при выборе в первом боксе "удмуртский", соощение должно выходить при выборе во втором слов на русском языке.
78 2023-05-02 12:09:42
Re: Следующий номер (14 replies, posted in Russian)
pavlenko.vladimir.v wrote:Vickus wrote:Спасибо за оперативность и пример!
А если в комбобоксах увеличатся записи? Например, к русскому из первого бокса добавить еще несколько соответствий из второго?procedure Form1_ComboBox2_OnChange (Sender: TObject); begin if (Form1.ComboBox1.Text = 'Удмуртский') AND (Form1.ComboBox2.Text = 'Воломон') then else ShowMessage('Значения не соответствуют'); end;
Прошу прощения, но не могли бы Вы приложить пример. Не получается :-( В моем случае в первом комбобоксе два значения, а во втором десятки
procedure Form1_ComboBox2_OnChange (Sender: TObject);
begin
if (Form1.ComboBox1.Text = 'Удмуртский') AND (Form1.ComboBox2.Text = 'Воломон') then else ShowMessage('Значения не соответствуют');
end;
procedure Form1_OnShow (Sender: TObject; Action: string);
begin
Form1.ComboBox1.Items.Add('Русский');
Form1.ComboBox1.Items.Add('Удмуртский');
Form1.ComboBox2.Items.Add('Понимаю');
Form1.ComboBox2.Items.Add('Воломон');
Form1.ComboBox2.Items.Add('Тосько');
Form1.ComboBox2.Items.Add('Знаю');
Form1.ComboBox2.Items.Add('Делаю');
end;
begin
end.
79 2023-05-02 12:05:58
Re: Следующий номер (14 replies, posted in Russian)
Vickus wrote:Спасибо за оперативность и пример!
А если в комбобоксах увеличатся записи? Например, к русскому из первого бокса добавить еще несколько соответствий из второго?procedure Form1_ComboBox2_OnChange (Sender: TObject); begin if (Form1.ComboBox1.Text = 'Удмуртский') AND (Form1.ComboBox2.Text = 'Воломон') then else ShowMessage('Значения не соответствуют'); end;
80 2023-05-02 11:50:20
Re: Следующий номер (14 replies, posted in Russian)
Hello Derek, Vickus
Vickus wrote:derek wrote:Привет, Vickus
Есть ли причина, по которой вы не можете использовать тип поля «счетчик»?
Derek.Спасибо, разобрался.
Derek, помогите, пожалуйста, в очередной раз.
Как можно сделать следующее?
На форме 2 комбибокса. Допустим, в первом список 1. "русский", 2. "удмуртский". Во втором, также допустим, 1. "понимаю", 2. "воломон".
Если выбрать в первом комбибоксе русский, то при выборе во втором комбибоксе "понимаю", ничего не происходит, а если выбрать "воломон", то должно выйти сообщение "Значения не соответствуют". Если же выбрать в первом "удмуртский", а во втором "воломон" - все хорошо продолжает работать, а если "понимаю", то такое же окно с сообщением. Спасибо!procedure Form1_ComboBox2_OnChange (Sender: TObject); begin if (Form1.ComboBox1.ItemIndex = 1) AND (Form1.ComboBox2.ItemIndex = 1) then else ShowMessage('Значения не соответствуют'); end; procedure Form1_OnShow (Sender: TObject; Action: string); begin Form1.ComboBox1.Items.Add('Русский'); Form1.ComboBox1.Items.Add('Удмуртский'); Form1.ComboBox2.Items.Add('Понимаю'); Form1.ComboBox2.Items.Add('Воломон'); end; begin end.
Спасибо за оперативность и пример!
А если в комбобоксах увеличатся записи? Например, к русскому из первого бокса добавить еще несколько соответствий из второго?
81 2023-05-02 11:11:36
Re: Следующий номер (14 replies, posted in Russian)
Привет, Vickus
Есть ли причина, по которой вы не можете использовать тип поля «счетчик»?
Derek.
Спасибо, разобрался.
Derek, помогите, пожалуйста, в очередной раз.
Как можно сделать следующее?
На форме 2 комбибокса. Допустим, в первом список 1. "русский", 2. "удмуртский". Во втором, также допустим, 1. "понимаю", 2. "воломон".
Если выбрать в первом комбибоксе русский, то при выборе во втором комбибоксе "понимаю", ничего не происходит, а если выбрать "воломон", то должно выйти сообщение "Значения не соответствуют". Если же выбрать в первом "удмуртский", а во втором "воломон" - все хорошо продолжает работать, а если "понимаю", то такое же окно с сообщением. Спасибо!
82 2023-05-02 04:50:46
Topic: Следующий номер (14 replies, posted in Russian)
Добрый день!
Подскажите, как можно сделать, чтобы при копировании записи в таблице к номеру прибавлялась единица. Например: в записи есть поле "номер талона", при нажатии кнопки "Новая запись" открывается другая форма и в поле "Номер талона" хотелось бы, чтобы выводился номер талона (последний + 1). Спасибо!
83 2023-04-17 17:29:54
Re: Increm. Search по двум условиям (7 replies, posted in Russian)
Derek, Вы лучший! СПАСИБО!
84 2023-04-17 14:50:46
Re: Increm. Search по двум условиям (7 replies, posted in Russian)
Привет Vickus,
Сами данные не дублируются (см. 'скриншот 1' во вложении). Вместо этого это указывает на проблему в tablegrid01.
И проблема в том, что вы выбираете «writing.exercise» вместо «cfwriting» («screenshot2»). Замените это на «cfwriting», и оно должно быть правильным («screenshot3»).
Чтобы ограничить «tablegrid03» одной записью, вы можете добавить тест в сценарий (см. Приложение).
С уважением,
Derek
---------------------------------------
А можете еще подсказать, как в таблице 1 вывести столбец с суммой двух значений из столбцов Speaking и Writing (в четвертый столбец Total). Спасибо!!!
85 2023-04-17 10:33:38
Re: Increm. Search по двум условиям (7 replies, posted in Russian)
DEREK, еще раз ОГРОМНЕЙШЕЕ СПАСИБО за помощь!
Все работает!!!
86 2023-04-17 05:03:28
Re: Increm. Search по двум условиям (7 replies, posted in Russian)
Спасибо больше Derek!
Вроде бы все сделал, как в Вашем проекте, но при выставлении второй и последующих оценок в третьей таблице (Writing), в первой, основной таблице, происходит дублирование записей. Помогите, пожалуйста, еще раз. Проект прикладываю. И еще, возможно ли сделать так, чтобы в третью таблицу можно было ввести только одну оценку? Спасибо огромное еще раз!
87 2023-04-16 14:07:51
Topic: Increm. Search по двум условиям (7 replies, posted in Russian)
Добрый день!
Помогите. На форме три таблицы: 1 - главная, 2 - привязанные к человеку данные, 3 - привязанные к человеку данные (2)
В первой таблице стоит поиск через Increm. Search по кнопке Search_table_02 для отображения данных во второй таблице.
Как сделать еще дополнительный поиск для третьей таблицы по кнопке Search_table_03? Две кнопки указать не получается.
Заранее благодарю!
88 2023-04-16 09:32:34
Re: Связь данных в двух таблицах (2 replies, posted in Russian)
Привет Vickus
Если я правильно понимаю задачу, то попробуйте таk,
Derek
Да, спасибо огромное!
89 2023-04-15 15:41:46
Topic: Связь данных в двух таблицах (2 replies, posted in Russian)
Добрый день!
Помогите, пожалуйста, с решением задачи.
На форме две таблицы (основная и детализация по плажежам).
Хотелось бы сделать так, что при выделении в основной таблице определенного человека и нажатии на редактирование данных (иконка с плюсом в правой таблице) открывались данные (дата платежа и сумма платежа) именно по этому человеку. В данный момент открывается вторая форма, где нужно найти в списке человека, внести данные и сохранить.
90 2022-12-16 14:52:32
Topic: Дата в загловке таблицы (5 replies, posted in Russian)
Доброго впемени суток!
Помогите, пожалуйста!
Необходимо в шапке таблицы выводить даты. Это что-то типа журнала посещения занятий. В таблице ФИО ученика, далее колонки с отметкой (явка, болезнь), а в шапке над ними даты. если не сложно прикрепите тестовый проектик для наглядности. Огромное спасибо!
92 2021-08-30 12:03:48
Re: Добавить 1 час (9 replies, posted in Russian)
Можете подсказать как вводить в поле DataPicker через маску? И чтобы в дальнейшем в TableGrid информация выходила в формате HH:mm (без секунд и т.д.)
93 2021-08-30 05:58:17
Re: Добавить 1 час (9 replies, posted in Russian)
Спасибо за помощь!
А возможно ли вместо DataPicker все заводить в текстовом поле?
Например: в текстовом поле (Edit1) маска ввода 00\:00;_, во втором текстовом поле (Edit2) та же маска ввода 00\:00;_. При вводе в первое текстовое поле, допустим, 15:00, во втором текстовом поле прибавлялся 1 час и выходило 16:00?
94 2021-08-29 17:13:33
Re: Добавить 1 час (9 replies, posted in Russian)
Благодарю за помощь! А можно сделать также с текстовыми полями Edit1, Edit 2?
95 2021-08-28 08:58:59
Topic: Добавить 1 час (9 replies, posted in Russian)
Добрый день!
Подскажите как сделать так, чтобы при вводе времени в DataPicker1 (Kind: Time) в другом DataPicker2 (Kind: Time) прибавлялся 1 час.
Например: вводится 14:00 и по событию OnChange в этом поле в другом сразу выходит 15:00.
Очень нужно! Спасибо всем, кто захочет помочь.
P.S. Может быть и вариант, в котором вместо DitePicker будут обычные текстовые поля с маской для ввода времени.
96 2020-12-19 13:25:28
Re: Самый простой способ экспорта-импорта БД (2 replies, posted in Russian)
Спасибо за ответ.
Воспользовался данным скриптом, но не могу сделать так, чтобы при импорте обновлялись данные и не выходило никаких сообщений, т.к. записей может быть сотни и после каждого сообщения жать ОК не получится.
Могу добавить новое нименование с ценами, могут цены обновить у действующего наименования и т.д.
В скрине поля указаны. Если не сложно - можете скрипт под мой пример обновить.
97 2020-12-17 06:11:16
Re: [Script] Import-Export data (11 replies, posted in FAQ)
Не подскажете как в конце экспорта вывести сообщение о количестве экспортированных записей?
98 2020-12-17 05:31:46
Topic: Самый простой способ экспорта-импорта БД (2 replies, posted in Russian)
Добрый день!
Подскажите самый простой способ экспорта-импорта базы. Не устраивает вариант через стандартное меню - сложновато для обычного пользователя. Может быть скрипт? Очень нужно.
99 2020-12-16 08:11:08
Re: [РЕШЕНО] Обрамление надписи (Label) (19 replies, posted in Russian)
Проект пока заморожен к сожалению и не доведен до логического конца, но для примера пожалуйста.
База данных MySQL (в setting.ini указать свой host и username)Ссылку на скачивание пришлю на e-mail
Большое спасибо!
Скачаю и рассмотрю
100 2020-12-16 07:48:11
Re: [РЕШЕНО] Обрамление надписи (Label) (19 replies, posted in Russian)
А совет от админа быстрее и красивше
Добрый день!
Можете поделиться проектом с журналом посещений занятий.
Необходимо что-то подобное, для примера рассмотрел бы
Ваш проект. Заранее благодарен.
