76

(14 replies, posted in Russian)

Спасибо! Все работает. Только подскажите, как добавить соответствие со вторым значением из первого комбобокса, т.е. при выборе "Русский", чтобы он выдавал сообщение на удмуртские слова?

77

(14 replies, posted in Russian)

pavlenko.vladimir.v wrote:
Vickus wrote:

Прошу прощения, но не могли бы Вы приложить пример. Не получается :-( В моем случае в первом комбобоксе два значения, а во втором десятки

Проверил, работает


Возможно я не очень ясно объясняю. Ммм, необходимо, чтобы при выборе в первом боксе "русский", а во втором боксе не было реакций на выбор русских слов. Но если в первом боксе установлен "русский", а во втором выбрать любое удмуртское - выходило бы сообщение о несоответствии. И наоборот, при выборе в первом боксе "удмуртский", соощение должно выходить при выборе во втором слов на русском языке.

78

(14 replies, posted in Russian)

Vickus wrote:
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

(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;

80

(14 replies, posted in Russian)

pavlenko.vladimir.v wrote:

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

(14 replies, posted in Russian)

derek wrote:

Привет, Vickus
Есть ли причина, по которой вы не можете использовать тип поля «счетчик»?
Derek.

Спасибо, разобрался.

Derek, помогите, пожалуйста, в очередной раз.
Как можно сделать следующее?
На форме 2 комбибокса. Допустим, в первом список 1. "русский", 2. "удмуртский". Во втором, также допустим, 1. "понимаю", 2. "воломон".
Если выбрать в первом комбибоксе русский, то при выборе во втором комбибоксе "понимаю", ничего не происходит, а если выбрать "воломон", то должно выйти сообщение "Значения не соответствуют". Если же выбрать в первом "удмуртский", а во втором "воломон" - все хорошо продолжает работать, а если "понимаю", то такое же окно с сообщением. Спасибо!

82

(14 replies, posted in Russian)

Добрый день!
Подскажите, как можно сделать, чтобы при копировании записи в таблице к номеру прибавлялась единица. Например: в записи есть поле "номер талона", при нажатии кнопки "Новая запись" открывается другая форма и в поле "Номер талона" хотелось бы, чтобы выводился номер талона (последний + 1). Спасибо!

Derek, Вы лучший! СПАСИБО!

derek wrote:

Привет Vickus,
Сами данные не дублируются (см. 'скриншот 1' во вложении). Вместо этого это указывает на проблему в tablegrid01.
И проблема в том, что вы выбираете «writing.exercise» вместо «cfwriting» («screenshot2»). Замените это на «cfwriting», и оно должно быть правильным («screenshot3»).
Чтобы ограничить «tablegrid03» одной записью, вы можете добавить тест в сценарий (см. Приложение).
С уважением,
Derek


---------------------------------------


А можете еще подсказать, как в таблице 1 вывести столбец с суммой двух значений из столбцов Speaking и Writing (в четвертый столбец Total). Спасибо!!!

DEREK, еще раз ОГРОМНЕЙШЕЕ СПАСИБО за помощь!
Все работает!!!

Спасибо больше Derek!
Вроде бы все сделал, как в Вашем проекте, но при выставлении второй и последующих оценок в третьей таблице (Writing), в первой, основной таблице, происходит дублирование записей. Помогите, пожалуйста, еще раз. Проект прикладываю. И еще, возможно ли сделать так, чтобы в третью таблицу можно было ввести только одну оценку? Спасибо огромное еще раз!

Добрый день!
Помогите. На форме три таблицы: 1 - главная, 2 - привязанные к человеку данные, 3 - привязанные к человеку данные (2)
В первой таблице стоит поиск через Increm. Search по кнопке Search_table_02 для отображения данных во второй таблице.
Как сделать еще дополнительный поиск для третьей таблицы по кнопке Search_table_03? Две кнопки указать не получается.
Заранее благодарю!

derek wrote:

Привет Vickus
Если я правильно понимаю задачу, то попробуйте таk,
Derek


Да, спасибо огромное!

Добрый день!
Помогите, пожалуйста, с решением задачи.
На форме две таблицы (основная и детализация по плажежам).
Хотелось бы сделать так, что при выделении в основной таблице определенного человека и нажатии на редактирование данных (иконка с плюсом в правой таблице) открывались данные (дата платежа и сумма платежа) именно по этому человеку. В данный момент открывается вторая форма, где нужно найти в списке человека, внести данные и сохранить.

Доброго впемени суток!
Помогите, пожалуйста!
Необходимо в шапке таблицы выводить даты. Это что-то типа журнала посещения занятий. В таблице ФИО ученика, далее колонки с отметкой (явка, болезнь), а в шапке над ними даты. если не сложно прикрепите тестовый проектик для наглядности. Огромное спасибо!

91

(9 replies, posted in Russian)

Огромное спасибо!!!

92

(9 replies, posted in Russian)

Можете подсказать как вводить в поле DataPicker через маску? И чтобы в дальнейшем в TableGrid информация выходила в формате HH:mm (без секунд и т.д.)

93

(9 replies, posted in Russian)

Спасибо за помощь!

А возможно ли вместо DataPicker все заводить в текстовом поле?
Например: в текстовом поле (Edit1) маска ввода 00\:00;_, во втором текстовом поле (Edit2) та же маска ввода 00\:00;_. При вводе в первое текстовое поле, допустим, 15:00, во втором текстовом поле прибавлялся 1 час и выходило 16:00?

94

(9 replies, posted in Russian)

Благодарю за помощь! А можно сделать также с текстовыми полями Edit1, Edit 2?

95

(9 replies, posted in Russian)

Добрый день!
Подскажите как сделать так, чтобы при вводе времени в DataPicker1 (Kind: Time) в другом DataPicker2 (Kind: Time) прибавлялся 1 час.
Например: вводится 14:00 и по событию OnChange в этом поле в другом сразу выходит 15:00.
Очень нужно! Спасибо всем, кто захочет помочь.
P.S. Может быть и вариант, в котором вместо DitePicker будут обычные текстовые поля с маской для ввода времени.

Спасибо за ответ.
Воспользовался данным скриптом, но не могу сделать так, чтобы при импорте обновлялись данные и не выходило никаких сообщений, т.к. записей может быть сотни и после каждого сообщения жать ОК не получится.

Могу добавить новое нименование с ценами, могут цены обновить у действующего наименования и т.д.
В скрине поля указаны. Если не сложно - можете скрипт под мой пример обновить.

97

(11 replies, posted in FAQ)

Не подскажете как в конце экспорта вывести сообщение о количестве экспортированных записей?

Добрый день!

Подскажите самый простой способ экспорта-импорта базы. Не устраивает вариант через стандартное меню - сложновато для обычного пользователя. Может быть скрипт? Очень нужно.

adiziktdy wrote:

Проект пока заморожен к сожалению и не доведен до логического конца, но для примера пожалуйста.
База данных MySQL (в setting.ini указать свой host и username)

Ссылку на скачивание пришлю на e-mail

Большое спасибо!
Скачаю и рассмотрю

adiziktdy wrote:

А совет от админа быстрее и красивше  big_smile

https://a.radikal.ru/a14/1902/f8/85c1e6ea1e65.jpg

Добрый день!
Можете поделиться проектом с журналом посещений занятий.
Необходимо что-то подобное, для примера рассмотрел бы
Ваш проект. Заранее благодарен.