simples,mas não p mim(ainda)

olá ainda tenho dúvidas com relação ao sql aplicado no delphi .

o que esta acontecendo comigo é o seguinte.

trabalho com um server mysql(ubuntu)e os aplicativos usados pela empresa são em delphi.

tenho que verificar se o cliente existe pelo nº do cpf (select)

cadastrar ou atualizar o cliente caso o mesmo nao exista ou exista e esteja incorreto (insert/update)

após isso feito os dados da mesma devem ser inseridos na tab_contrato

com serie =99

numero(buscar maior que 99=1)

gravar cliente cpf

papel moeda =y

e apos isso gravar endereço de entrega na tab_entrega

essa é minha unit

unit UYouClube;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, DB, ADODB, StdCtrls, Buttons, Grids, DBGrids;

type

TfrmYouClube = class(TForm)

 Paginas: TPageControl;

 TabSheet1: TTabSheet;

 TabSheet2: TTabSheet;

 ADOConnection1: TADOConnection;

 TabSheet3: TTabSheet;

 QrComprar: TADOQuery;

 DataSource1: TDataSource;

 DBGrid1: TDBGrid;

 BitBtn1: TBitBtn;

 QrComprarnped: TWideStringField;

 QrComprarcodprod: TWideStringField;

 QrComprarvalor: TWideStringField;

 QrComprarquant: TIntegerField;

 QrComprarpresente: TStringField;

 QrComprarpeso: TStringField;

 QrComprarcor: TStringField;

 QrComprarpersonalizado: TWideStringField;

 QrComprarvoltagem: TStringField;

 QrComprartamanho: TStringField;

 QrComprarcont: TIntegerField;

 QrComprarcodcli: TWideStringField;

 QrComprardata: TDateTimeField;

 QrComprarforma: TStringField;

 QrComprarvalorpgto1: TStringField;

 QrComprardatapgto1: TDateTimeField;

 QrComprartid: TStringField;

 QrComprarentrega: TStringField;

 QrComprarvalorentrega: TStringField;

 QrComprarestatus: TStringField;

 QrComprarendereco: TWideStringField;

 QrComprarnumero: TWideStringField;

 QrComprarcomplemento: TWideStringField;

 QrComprarbairro: TWideStringField;

 QrComprarcidade: TWideStringField;

 QrComprarestado: TWideStringField;

 QrComprarcep1: TWideStringField;

 QrComprarcep2: TWideStringField;

 QrComprarnome_entrega: TWideStringField;

 QrComprardataentrega: TStringField;

 QrComprarsite: TStringField;

 QrComprarDescricao: TStringField;

 QrComprarFAB: TStringField;

 QrComprarcpf: TStringField;

 QrGravar: TADOQuery;

 QrGravarnped: TWideStringField;

 QrGravarcodprod: TWideStringField;

 QrGravarvalor: TWideStringField;

 QrGravarquant: TIntegerField;

 QrGravarpresente: TStringField;

 QrGravarpeso: TStringField;

 QrGravarcor: TStringField;

 QrGravarpersonalizado: TWideStringField;

 QrGravarvoltagem: TStringField;

 QrGravartamanho: TStringField;

 QrGravarcont: TIntegerField;

 QrGravarcodcli: TWideStringField;

 QrGravardata: TDateTimeField;

 QrGravarforma: TStringField;

 QrGravarvalorpgto1: TStringField;

 QrGravardatapgto1: TDateTimeField;

 QrGravartid: TStringField;

 QrGravarentrega: TStringField;

 QrGravarvalorentrega: TStringField;

 QrGravarestatus: TStringField;

 QrGravarendereco: TWideStringField;

 QrGravarnumero: TWideStringField;

 QrGravarcomplemento: TWideStringField;

 QrGravarbairro: TWideStringField;

 QrGravarcidade: TWideStringField;

 QrGravarestado: TWideStringField;

 QrGravarcep1: TWideStringField;

 QrGravarcep2: TWideStringField;

 QrGravarnome_entrega: TWideStringField;

 QrGravardataentrega: TStringField;

 QrGravarsite: TStringField;

 QrGravarDescricao: TStringField;

 QrGravarFAB: TStringField;

 QrGravarcpf: TStringField;

 QrBuscaCli: TADOQuery;

 QrBuscaClinped: TWideStringField;

 QrBuscaClicodprod: TWideStringField;

 QrBuscaClivalor: TWideStringField;

 QrBuscaCliquant: TIntegerField;

 QrBuscaClipresente: TStringField;

 QrBuscaClipeso: TStringField;

 QrBuscaClicor: TStringField;

 QrBuscaClipersonalizado: TWideStringField;

 QrBuscaClivoltagem: TStringField;

 QrBuscaClitamanho: TStringField;

 QrBuscaClicont: TIntegerField;

 QrBuscaClicodcli: TWideStringField;

 QrBuscaClidata: TDateTimeField;

 QrBuscaCliforma: TStringField;

 QrBuscaClivalorpgto1: TStringField;

 QrBuscaClidatapgto1: TDateTimeField;

 QrBuscaClitid: TStringField;

 QrBuscaClientrega: TStringField;

 QrBuscaClivalorentrega: TStringField;

 QrBuscaCliestatus: TStringField;

 QrBuscaCliendereco: TWideStringField;

 QrBuscaClinumero: TWideStringField;

 QrBuscaClicomplemento: TWideStringField;

 QrBuscaClibairro: TWideStringField;

 QrBuscaClicidade: TWideStringField;

 QrBuscaCliestado: TWideStringField;

 QrBuscaClicep1: TWideStringField;

 QrBuscaClicep2: TWideStringField;

 QrBuscaClinome_entrega: TWideStringField;

 QrBuscaClidataentrega: TStringField;

 QrBuscaClisite: TStringField;

 QrBuscaCliDescricao: TStringField;

 QrBuscaCliFAB: TStringField;

 QrBuscaClicpf: TStringField;

 procedure FormCreate(Sender: TObject);

 procedure BitBtn1Click(Sender: TObject);

 private

 { Private declarations }

 public

 { Public declarations }

 end;

var

frmYouClube: TfrmYouClube;

implementation

{$R *.dfm}

procedure TfrmYouClube.FormCreate(Sender: TObject);

begin

 Paginas.ActivePageIndex := 0;

end;

 

procedure TfrmYouClube.BitBtn1Click(Sender: TObject);

 var

cpf:String;

begin

QrComprar.Close;

QrComprar.parameters.ParamByName('cpf').AsString := QrComprarcpf.AsString;

QrComprar.open;

 

 if QrComprar.RecordCount = 1 then

 begin

 QrComprar.sql.Clear;

 QrComprar.sql.Text := 'update tab_clientes set nome = '''+

 'QrComprarnome_entrega.AsString+'

 ''' where cpf = ("'+QrComprarcpf.text+'","'+QrComprarnped.text+'","'+QrComprarcodprod.text+'","'+QrComprarcodcli.text+'","'+QrComprarendereco.text+'","'+QrComprarcep1.text+'","'+QrComprarcomplemento.text+'","'+QrComprarbairro.text+'","'+QrComprarcidade.text+'","'+QrComprarestado.text+'","'+QrComprarnome_entrega.text+'")';

 QrGravar.ExecSql;

 end else

 begin

 QrGravar.Sql.Clear;

 QrGravar.Sql.add('insert into tab_clientes (cpf,nome_entrega,nped,codcli,data,endereço,numero,complemento,bairro,cidade,estado,cep1,nome_entrega');

 'Values ("'+QrComprarcpf.text+'","'+QrComprarnped.text+'","'+QrComprarcodprod.text+'","'+QrComprarcodcli.text+'","'+QrComprarendereco.text+'","'+QrComprarcep1.text+'","'+QrComprarcomplemento.text+'","'+QrComprarbairro.text+'","'+QrComprarcidade.text+'","'+QrComprarestado.text+'","'+QrComprarnome_entrega.text+'")';

 '''+QrComprarcpf.AsString+''' ,'''+QrComprarnome_entrega.AsString+''');

 QrGravar.ExecSql;

 end;

end.

e esse é o erro

[Error] UYouClube.pas(150): Undeclared identifier: 'AsString'

[Error] UYouClube.pas(158): Missing operator or semicolon

[Error] UYouClube.pas(164): Statement expected, but expression of type 'String' found

[Error] UYouClube.pas(165): Statement expected, but expression of type 'String' found

[Fatal Error] ViaPlan.dpr(451): Could not compile used unit 'UYouClube.pas'

por favor se alguem puder me ajudar agradeço

Att.

aquilis parreira

aquilisfelipe@gmail.com

aquilisfelipeparreira@hotmail.com

obs: a empresa que trabalho precisa de programador visual p free lance