You are not logged in. Please login or register.
My Visual Database → Russian → Комбобокс?
Собственно, есть компоненты Label, идущие сверху вниз; рядом с ними TextBox. Ну, как в стандартном примере по employees, например. В итоге: и тех, и других стало слишком много. Вопрос: можно ли как-либо сгруппировать все названия из всех Lable в один combobox? И, если возможно, то как оставив только один TextBox(вместо кучи), искать по нему в зависимости от группы выбранной в combobox, сделанному по Label?
В принципе это возможно реализовать с помощью скриптов, но как тогда создавать новые записи?
Возможно в вашем случае будет полезен компонент PageControl 
где вы сможете группировать текстовые поля на вкладках.
Покажете на любом примере? Мне бы понять реализацию, даж если на скриптах.
Я могу сделать пример, в котором вы сможете просматривать значения, но вы не сможете таким же образом создавать или редактировать значения, необходим такой пример?
Мне по сути надо лишь упростить одну, самую первую форму, где куча Textbook-ов используется для поиска в базе, а множество наименований в виде Label-ов заграмождают форму и мешают TableGrid. Форма же на заполнение базы особо не интересует по виду. Поэтому, да, пример нужен такой.
Готово
Employees one field for search using ComboBox.zip 89.6 kb, 522 downloads since 2015-03-17
Спасибо. Именно то, что требовалось. За сим еще вопрос, событие Form1_OnShow уже записано:
procedure Form1_OnShow (Sender: string; Action: string);
begin
frmLogin.edPassword.PasswordChar := '*';
frmLogin.ShowModal;
end;
begin
if SQLExecute('SELECT count(id) FROM users;') = '0' then
begin
SQLExecute('INSERT INTO users (login, password, admin) VALUES ("admin", "admin", 1);');
frmLogin.cbLogin.dbItemID:=1;
frmLogin.edPassword.Text := 'admin';
end;
frmLogin.Button1.Default := True;
frmcreche.cbUser.Enabled:=false;
end.Как совместить скрипты без конфликта?
Просто туда же вписать
procedure Form1_OnShow (Sender: string; Action: string);
begin
frmLogin.edPassword.PasswordChar := '*';
frmLogin.ShowModal;
Form1.ComboBox1.dbAddRecord(1, 'LastName field');
Form1.ComboBox1.dbAddRecord(2, 'FistName field');
Form1.ComboBox1.dbAddRecord(3, 'Field 1');
Form1.ComboBox1.dbAddRecord(4, 'Field 2');
Form1.ComboBox1.dbAddRecord(5, 'Field 3');
Form1.ComboBox1.dbItemID:=1;
end;
begin
if SQLExecute('SELECT count(id) FROM users;') = '0' then
begin
SQLExecute('INSERT INTO users (login, password, admin) VALUES ("admin", "admin", 1);');
frmLogin.cbLogin.dbItemID:=1;
frmLogin.edPassword.Text := 'admin';
end;
frmLogin.Button1.Default := True;
frmcreche.cbUser.Enabled:=false;
end.My Visual Database → Russian → Комбобокс?
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi