Salvar o item do Combobox no Dataset

Delphi

30/12/2013

Amigos, tentei substituir o dbcombobox pelo combobox para para com a falha no clique do mouse. funcionou perfeitamente porem NAO SEI como fazer para salvar o item do combobox junto com as informacoes do dataset aberto. Fiz assim:

procedure TfrmIncCli.actSalvarExecute(Sender: TObject);
var
  vlSQL: string;
begin
  if dsIncCli.DataSet.State in [dsBrowse, dsEdit, dsInsert] then
  begin
    vlSQL:= 'insert into cadcli values (,,,,,,,,,,,,,,,'+ cbTpCliente.Text + ',,);';
    ShowMessage(cbTpCliente.Text);
    dmCadOS.qryTpCli.SQL.CommaText := vlSQL;
    dmCadOS.qryTpCli.ExecSQL;
    dmCadOS.qryCadCli.Post;
    dmCadOS.qryCadCli.ApplyUpdates(-1);
    dmCadOS.qryCadCli.Close;
    actIncluir.Enabled:= true;
    actAlterar.Enabled:= true;
    dmCadOS.qryCadCli.Open;
    frmIncCli.Close;
//    dsCadCli.DataSet.Active:= True;
  end
  else
  ShowMessage('Erro. Verifique Informações');
end;
Lammer Ltda

Lammer Ltda

Curtidas 0
POSTAR