vit007 wrote:Прога для учета заказов...
И это поле задумывалось для ввода Фамилии заказчика, чтоб выдавало совпадения при наборе или оставалось уникальным с последующим заносов нового значения в базу Фамилий.... Без дополнительных переходов, нажатий и т.д.
Для заказчиков необходима отдельная таблица, таким образом вы можете выбрать необходимого заказчика из списка, также важно чтобы случайно не добавлять повторно того же самого заказчика в эту таблицу.
Скачайте пожалуйста последнюю бета версию
https://www.dropbox.com/s/abazohrbdt3p9 … a.zip?dl=0
Сделал для вас пример поиска в ComboBox с возможность автоматического добавления записи, если она не была найдена, т.о. вы можете как найти заказчика из списка, так и автоматически его добавить, если он новый
procedure frmEmployee_bSave_OnClick (Sender: string; var Cancel: boolean);
begin
if (frmEmployee.cbGroup.dbItemID = -1) and (frmEmployee.cbGroup.Text <> '') then
begin
if 6 = MessageDlg('You really want to add a new group: ' + frmEmployee.cbGroup.Text, mtConfirmation, mbYes + mbNo, 0) then
begin
SQLExecute('INSERT INTO groups (groupname) VALUES ("'+frmEmployee.cbGroup.Text+'")');
UpdateDatabase('groups');
frmEmployee.cbGroup.dbItemID := Last_Insert_id;
end;
end;
end;
begin
frmEmployee.cbGroup.HideTextIfNotExists := False;
end.
Проект с примером:
Dmitry.