• Registered: 2014-02-14
  • Posts: 10,294

Topic: Добавление записи через ComboBox если такое значение не существует

Добавление записи через 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.


Проект с примером:

Post's attachments

Attachment icon ComboBox add value if not exists.zip 8.16 kb, 720 downloads since 2019-04-04 

Dmitry.