3 replies to this topic

[hiroyugi]

procedure Tdm.DataModuleCreate(Sender: TObject);
begin
if not tbprod.Exists then
   begin
   tbprod.FieldDefs.Clear;
   tbprod.FieldDefs.Add('codigo',ftString,3,True);
   tbprod.FieldDefs.Add('ncomercial',ftString,20,True);
   tbprod.FieldDefs.Add('ntecnico',ftString,20,false);
   tbprod.FieldDefs.Add('fornecedor',ftString,3,True);
   tbprod.FieldDefs.Add('titulo',ftString,5,false);
   tbprod.FieldDefs.Add('constante',ftString,5,false);
   tbprod.CreateTable;
   end
   else
   tbprod.Open;
   end;

if not tbfun.Exists then
  begin
   tbfun.FieldDefs.Clear;
   tbfun.FieldDefs.Add('codigo',ftString,3,true);
   tbfun.FieldDefs.Add('nome',ftString,40,true);
   tbfun.FieldDefs.Add('endereco',ftString,60,true);
   tbfun.FieldDefs.Add('telefone',ftString,10,true);
   tbfun.FieldDefs.Add('rg',ftString,10,true);
   tbfun.FieldDefs.Add('cpf',ftString,11,true);
   tbfun.FieldDefs.Add('dtadmissao',ftString,11,false);
   tbfun.FieldDefs.Add('dtdemissao',ftString,11,false);
   tbfun.CreateTable;
   end
   else
   tbfun.Open;
   end;

if not tbfor.Exists then
   begin
   tbfor.FieldDefs.Clear;
   tbfor.FieldDefs.Add('codigo',ftString,3,true);
   tbfor.FieldDefs.Add('razao',ftString,30,true);
   tbfor.FieldDefs.Add('endereco',ftString,60,true);
   tbfor.FieldDefs.Add('telefone',ftString,10,true);
   tbfor.FieldDefs.Add('email',ftString,25,false);
   tbfor.FieldDefs.Add('contato',ftString,35,false);
   tbfor.FieldDefs.Add('cnpj',ftString,15,false);
   tbfor.FieldDefs.Add('inscest',ftString,15,false);
   tbfor.CreateTable;
   end
   else
   tbfor.Open;
   end;

end;

Alguem pode me dizer o que esta errado nestes codigos ?

Obrigado a todos que me ajudarem e aqueles que tentarem.

Galera foi eu que postei me ajudem ai blz.
Estou precisando deste codigo o mais rapido possivel

[The Tamer]

Que mensagem de erro o compilador ou o executável está te retornando??

TKS!

[hiroyugi]

Que mensagem de erro o compilador ou o executável está te retornando??

  TKS!

Sou eu que coloquei este topico.
Deu o seguinte erro.

Project Kelitextil.exe raised exception class econverterror with message 'cannot assign a Tedit to a Tstringfield', process stopped. use step or run to continue.

Edição feita por: hiroyugi, 13/10/2003, 12:53.