Как отобразить данные по щелчку панели в dbgrid и как сохранить данные dbgrid в таблицу в биллинговой программе Canteen

Я разрабатываю программное обеспечение для выставления счетов в столовой киоска, которое позволяет выставлять счета за товары в столовой.

У меня есть две таблицы в базе данных, одна с меню, а другая с пользователями.
Элементы отображаются на панелях, которые создаются динамически в соответствии с количеством записей. Когда пользователь щелкает панель, элемент необходимо добавить в dbgrid.

Наконец, счет должен быть сохранен в соответствии с «идентификатором пользователя» в таблице.

Вкратце; Я хотел, чтобы элемент с его ценой отображался в dbgrid, когда пользователь щелкает панель. Также я хочу, чтобы счет сохранялся в таблицу с помощью кнопки сохранения в дизайне.

Следующие таблицы у меня есть;

1.) dbo.Menu со столбцами Menu_index,Item_Name,Item_Price.

2.) dbo.Users со столбцами UserId,UserName,UsrPwd,Status.

3.) dbo.Tran_details со столбцами Menu_index, Menu_id, Item_price.

4.) dbo.Tran_header со столбцами Menu_index,Date,UserID.

Код, который я сделал, примерно такой (ниже), но я застрял на этом этапе. Любая методология или пример кодирования будут оценены.

Заранее спасибо.

procedure TfrmMenu.FormCreate(Sender: TObject);    
  begin
    with DMCanteen do
   begin
    QryMenu.Close;
    QryMenu.SQL.Clear;
    QryMenu.SQL.Add('select Menu_Index,Item_Name,Item_Price from MENU');
    QryMenu.Open;
      SetLength(arrmenu, QryMenu.recordCount);
      SetLength(arrmenuid, QryMenu.recordCount);
      SetLength(arritemprice, QryMenu.recordCount);
    i := 0;
    QryMenu.First;
     while not QryMenu.Eof do
   begin
     arrmenu[i] := QryMenu.FieldByName('Item_Name').AsString;
     arrmenuid[i] := QryMenu.FieldByName('Menu_Index').AsInteger;
     arritemprice[i] := QryMenu.FieldByName('Item_Price').AsString;
     QryMenu.Next;
     inc(i);
   end;
     showmessage(Inttostr(QryMenu.recordcount));
     CreateButtons(QryMenu.recordcount, 5, Panel1);
  end;
end;