Skip to forum content
My Visual Database
A Simple Solution for Creating Databases
You are not logged in. Please login or register.
Active topics Unanswered topics
Search options (Page 14 of 15)
Подскажите, что поправить, чтоб при выборе в одном Grid, вываливало связанные значения в другой Grid.
С этим скриптом показывает все значения в столбцах.
procedure frmClient_TableGrid1_OnCellClick (Sender: TObject; ACol, ARow: Integer);
begin
frmClient.TableGrid2.Cells[ACol,ARow] := SQLExecute('SELECT model,sn FROM request WHERE id='+frmClient.TableGrid1.sqlValue);
frmClient.TableGrid2.dbUpdate;
end;
Спасибо
для удаления, кроме галочки, надо было еще добавить обновление основной таблицы.
Объясните как в этом запросе получить название, а не цифру:
frmNew.Edit3.Text := SQLExecute('SELECT id_group FROM client WHERE id='+frmNew.ComboBox2.sqlValue);
Все рано что-то не то
На главой нет полного вывода
Попробовал глобальное удаление, т.е. удаляешь заказчика должны пропадать записи заявок. Галочку ставил и туда и туда...
Подскажите со скриптом на клавишу для заполнения полей данными из таблицы... Получилось сделать при двойном клике на таблицу, а вот на клавишу такой номер не проходит:
procedure frmClient_TableGrid1_OnCellDoubleClick (Sender: TObject; ACol, ARow: Integer);
begin
frmNew.Edit1.Text := frmNew.Edit1.Text + frmClient.TableGrid1.Cells[ACol,ARow];
end;
Спасибо за пример.
Из примера получается, что в edit не может ссылаться на другую таблицу, т.е. опять вертолет получается... Чтоб вписать нового заказчика надо отдельно иметь для него форму, а две таблицы из одно формы не заполнить... печально.
Блин, что нет скрипта, под клавишей сохранить, чтоб сохраняло и в другую таблицу...
Или добавить в стандартные настройки доп. функционал... Хех...
Может Дмитрий, что-то еще подсоорудит 
В новой заявке не понятно как сохранять в обе таблицы
На главной не понятно отображение значений из двух таблиц
При чем на сохранить таблицу клиента не зависимой, т.к. заявок может быть много, а в дальнейшем буду прикручивать статистику или истории (что где когда)...
Сп.
Не знаю может из-за того что прога установлена на комп, а проекты находятся на сетевом диске... и после пару версток начинается выскакивание.
Посмотрел один из примеров и, наверно, решил, что будет ComboBox для поиска, а Edit заблокирую.
На рисовалось след, как поменять цвет текста заблокированной области?
И, как с делать перенос курсора по клавише Enter и нечего не даланья? а то прога "матерно" ругается в Edit поле.
Спасибо.
Интересно, а можно сделать под Edit полем таблицу с мгновенным запросом в ней, т.е. вводишь в текстовое поле и при совпадении в таблице появляются варианты...
Желательно у таблицы убрать строку заголовка...
Прога для учета заказов...
И это поле задумывалось для ввода Фамилии заказчика, чтоб выдавало совпадения при наборе или оставалось уникальным с последующим заносов нового значения в базу Фамилий.... Без дополнительных переходов, нажатий и т.д.
Хотелось бы элемент с авто подстановкой из списка, без нажатия или перехода в другие элементы...
Чего-то не пойму, как сделать, чтоб напечатанное в ComboBox оставалось и, соответственно, добавлялось в привязанную таблицу...
Значит, только ComboBox...
Так не получается, т.к. последний пункт настройки кнопки - таблица помещения результата... А мне надо чтоб результат появился Edit и после завершения заполнения формы нового добавления закидывало в общую
Заработало, была опечатка в CombobBox.
Раз нельзя стрелочку убрать у ComboBox, может тогда есть возможность прикрутить поиск к Edit (текстовому полю)...
Попробовал вставить в событие или просто вписать вкладку "скрипт" программа выдает ошибку...
Подскажите, как отключить-спрятать стрелочку выползания с сохранением функций поиска. И сделать фильтр или условие, чтоб искалась по таблице по первым и последующим буквам, т.е.
Есть в таблице
jon
ojon
и при наборе первой буквы "j" выпадало не оба значения, а строго "jon"
Спасибо.
Работает... А можете механику объяснить. Где-то на форуме встречал, что .Text это, как бы, принудительный параметр, т.е. будет выводить все без ограничений. А вот условие "Если строке меньше или больше пробела, то в строке значение равно самому себе + запятая" Т.е. при первом вызове, условие игнорится, а выполняется вторая строчка... так что ли?
Спасибо.
if Form1.Edit2.Text <> '' then Form1.Edit2.Text + Form1.TableGrid2.Cells[ACol,ARow] else Form1.Edit2.Text + ', ' + Form1.TableGrid2.Cells[ACol,ARow];
т.е. идея, чтоб запятая появлялась только когда есть впереди слово.
Спасибо.
Есть вопрос, а есть процедура проверки на пустую строчку? Или идет проверка не строчки, а таблицы к которой привязана строчка...
Работает, а как дописать, чтоб плюсовало значения...
Form1.Edit1.Text := Form1.TableGrid1.Line.Add(Form1.TableGrid1.Cells[0, ARow] + ', ' )
так выдает ошибку... на Line.
Подскажите, есть таблица TableGrid2, и надо по двойному щелчку мыши на ячейку перенести данные в текстовое поле Edit1 расположенной в той же Form1
PROCEDURE Form1_TableGrid2_OnCellDoubleClick (Sender: TObject; ACol, ARow: INTEGER);
BEGIN
END.
Видать, придется SQL изучать...
Решил поднять свою тему.... Пример не такой. может фото поможет понять мои хотелки... https://yadi.sk/i/kXYB8kHIx43XqA
Еще бы примерчик бы, когда две графы (клиент, телефон) Водишь клиента, а он есть в базе и телефон автоматически появляется при выборе онного, т.е. никаких дополнительных кнопок и форм, вылезло совпадение по первым буквам - клик и общий ввод в графы. Спасибо.
Еще надо стрелочки.... взад-вперед, а то проект надо перезагружать.... Возможно, оконный режим, что все проекты загружались в одной программе.
Posts found: 326 to 350 of 357