[Решено] Combobox - вывести в комбобокс последнюю запись таблицы

Поставьте рядом с ComboBox кнопку для создания новой записи, которая вызывает в моем примере форму frmAddCust
затем создайте событие OnAfterClick у кнопки сохранения на этой форме, для определения последней созданной записи используется функция Last_Insert_id, в которой необходимо указать таблицу бд

procedure frmAddCust_Button1_OnAfterClick (Sender: string);
begin
   // если форма видима на которой находится ComboBox    
   if frmClaim.Visible then frmClaim.cbCustomer.dbItemID := Last_Insert_id('customer');
end;

savage
Пришлите пожалуйста проект на support@drive-software.com
посмотрю.

savage

Дело  в  том, что во время добавления записи в базу данных посредством SQL  запроса  (INSERT  INTO),  визуальные  компоненты не могут об этом ничего  знать, поэтому не обновляют свои значения новыми записями. Для решения  этой  проблемы  сделал  процедуру  UpdateDatabase(TableName: string), которую необходимо вызвать после функции SQLExecute

Скачайте  еще  раз  бета  версию  1.43,  в  которой  я  добавил данную процедуру
https://www.dropbox.com/s/4qdlk4pouldrz … 201.43.zip

Что-то не работает. Я правильно понял, что необходимо:

procedure frmLogin_OnShow (Sender: string; Action: string);
begin
     if VarToStr( SQLExecute('SELECT count(id) FROM users WHERE admin=1;') ) = '0' then
     begin
         ShowMessage('Пользователя с правами Администратора не найдено, поэтому он будет создан автоматически, с логином admin и паролем admin');
         SQLExecute('INSERT INTO users (login, password, admin) VALUES ("admin", "admin", 1);');
         UpdateDatabase(users: string);
         frmLogin.cbUser.dbItemID:= Last_Insert_id('users');
         frmLogin.edLogin.Text:= 'admin';
    end else
           frmLogin.cbUser.dbItemID:= 2;
 end;

выдает, что:
')' expected