Ir para conteúdo
Fórum Script Brasil

hencker

Membros
  • Total de itens

    165
  • Registro em

  • Última visita

Posts postados por hencker

  1.      DMCadastros.ADOTEmpresa.Append;
         DMCadastros.ADOTEmpresaRazao_Social.AsString          := DBRazao_Social.Text;
         DMCadastros.ADOTEmpresaEndereco.AsString              := DBEndereco.Text;
         DMCadastros.ADOTEmpresaBairro.AsString                := DBBairro.Text;
         DMCadastros.ADOTEmpresaCidade.AsString                := DBCidade.Text;
         DMCadastros.ADOTEmpresaUF.AsString                    := DBUF.Text;
         DMCadastros.ADOTEmpresaCep.AsString                   := DBCep.Text;
         DMCadastros.ADOTEmpresaTelefone.AsString              := DBTElefone.Text;
         DMCadastros.ADOTEmpresaFax.AsString                   := DBFax.Text;
         DMCadastros.ADOTEmpresaCNPJ.AsString                  := DBCNPJ.Text;
         DMCadastros.ADOTEmpresaIE.AsString                    := DBIE.Text;
         DMCadastros.ADOTEmpresaNome_Fantasia.AsString         := DBNome_Fantasia.Text;
         DMCadastros.ADOTEmpresahttp.AsString                  := DBhttp.Text;
         DMCadastros.ADOTEmpresaemail.AsString                 := DBEMAIL.Text;
         DMCadastros.ADOTEmpresaMensagem_de_Marketing.AsString := DBMensagem.Text;
         DMCadastros.ADOTEmpresa.Post;
         Mensagem('Inclusão efetuada com sucesso !');

    Estou usando o código acima para adicionar os dados da empresa ao banco de dados mas não gostaria que após a inclusão dele eles saissem da tela gostaria q eles ficassem lá para que o cliente possa ver...

    Alguém sabe como fazer???

    sad.gif

  2. Na hora de compilar o Delphi apresenta o seguinte erro:

    [Fatal Error] teste.dpr(5): Unit StdActns was compiled with a different version of StrUtils.TStringSearchOptions

    e não compila nem de baixo de porrada...

    alguém sabe o que faço??? sad.gif

    Já to quase pra mandar esse código fonte pra um terreiro de umbanda!!! biggrin.gif

×
×
  • Criar Novo...