Ir para conteúdo
Fórum Script Brasil

claudyo

Membros
  • Total de itens

    37
  • Registro em

  • Última visita

Tudo que claudyo postou

  1. Bom pessoal, to com um problema em um form de cadastro, alguns campos são obrigatorios outros não ate ai td bem, mais tenho dois campos com uma peculiaridade, os campos de telefone, só um é obrigatorio mas pode ser qualker um dos dois, a consulta a ser feita posteriormente vai ser pelo n° de telefone então obrigatoriamente um deles tem q ser preechidos. alguém tem alguma ideia de como se faz isso, tipo o sistema me retorna uma mens caso os dois estejam em branco, e gravar o registo caso um deles esteja preenchido. Se alguém puder ajudar agradeço Abraço a todos
  2. O RxMemoryData1 é um dos componentes do pacote do RXLIB http://delphi.icm.edu.pl/ftp/d70free/Rx275D7.zip abraço Obrigado Jhonas pela atençao. bom acessei o link acima mas infelizmente não resolveu meu problema não funcionou aki pelo q entendi é uma versao pra delphi 1 e 2, e pelo q peskesei aki não existe rxmemory pra D7 e sim JVCL poderia me explicar melhor... Obrigado
  3. Bom to com o seguinte problema, eu preciso capturar um item em uma grid e inseri-lo em outra, andei pesquisando e descobri o RXmemorydata, uso o Delhphi7,e já revirei ele e não encontro esse componente.Afinal é mesmo um componente? O D7 tem ele??Se alguém puder me ajudar... Grato pela atençao...
  4. robinhocne, o problema não tem qualquer relação com o RxMemoryData, bem como você não deve ter muitas dificuldades com ele, porque basicamente é um dataset como o TTable. A única diferença é que ele trabalha com os registros na memória e não no disco. O método EmptyTable, como o nome diz, limpa a tabela e está presente em outros datasets do tipo table. E é por esta sua característica que os registros do seu RXMemoryData estão sendo "zerados". Abraços Ok, deu certo, agora intendi mais ou menos! Bom eu tenho q fazer exatamente isso inserir item de uma grid em outra pra inserçao mais tarde uso o delphi7, mais não noa consegui de forma alguma achar esse "rxmemorydata", isso é um componente??? alguém pode me ajuda Obrigado Ah eu keria sabe também como envio pergunta sem sem pega as respostas anteriores junto
  5. procedure Tfrmcadastro.gravadados; begin with dm.qryClientes do begin sql.text:= 'Insert into WorldPizza (Nome, Endereco, bairro, tel, telopt)'+ ' Values (:PNome, :PEndereco,:Pbairro, :PTel, :PTelopt)'; InitParam(Parameters.parambyname('PNome'), edtNome.text); InitParam(Parameters.Parambyname('PEndereco'), edtEnd.text); InitParam(Parameters.Parambyname('PBairro'), edtBairro.text); InitParam(Parameters.Parambyname('PTel'), edtTel.text); InitParam(Parameters.Parambyname('PTelopt'), edtTelopt.text); Prepared:= True; ExecSQL; end; end; uma pergunta se eu coloca dessa forma eu não teria problemas já q os outros campos são obrigatorios??? Tentei chamar essa funçao só pro campo opcional mais não deu certo tive problemas com essa expressao 'null'. Mas meu maior problema agora é q me mudei e to sem net então ta dificil postar, qd eu liga minha net de novo volto a postar de maneira mais clara. Agradeço a atenaçao e continuo contando com sua ajuda Abraços
  6. claudyo, seria mais conveniente que você postasse a mensagem original.Haveria nesta tabela, algum campo numérico cujo valor devesse ser informado? Por acaso, os numeros de telefones são campos numéricos? Uma observação, no lugar de manipular a propriedade Prepared: dm.qryclientes.Prepared:= True; você deveria chamar o método Prepare: dm.qryclientes.Prepare; não entendi a q mens você se refere???A q o debugger retorna??? Qt aos campos tenho sim outro campo tel q é obrigatorio, mais qt aos campos obrigatorios não tenho problema já fiz uma funçao pra verifica-los, os dois campos tel são numericos sendo q só um é obrigatorio, todos os campos obrigatorios estao com tag 1 e o opcional tag 0.... Se puder me ajudar com isso Vlw pela atençao
  7. Bom pessoal é o seguinte, to com um problema com inserçao de dados em uma tabela access uso um dataset uma query e um connection todos components ADO, um formulario com um campo opcional me retorna o erro 'valor de preciaso invalido' qd esse campo ta em branco, eu passava diretamente os campos e dava erro na instruçao insert into agora passo parametros e só muda o nome do erro. Segue o codigo procedure Tfrmcadastro.gravadados; begin dm.qryClientes.sql.text:= 'Insert into WorldPizza (Nome, Endereco, bairro, tel, telopt)'+ ' Values (:PNome, :PEndereco,:Pbairro, :PTel, :PTelopt)'; dm.qryclientes.Parameters.parambyname('PNOme').Value:=edtNome.text; dm.qryclientes.Parameters.Parambyname('PEndereco').Value:=edtEnd.text; dm.qryclientes.Parameters.Parambyname('PBairro').Value:=edtBairro.text; dm.qryclientes.Parameters.Parambyname('PTel').Value:=edtTel.text; dm.qryclientes.Parameters.Parambyname('PTelopt').Value:=edtTelopt.text; dm.qryclientes.Prepared:= True; dm.qryclientes.ExecSQL(); end; e no envento onclick o seguinte procedure Tfrmcadastro.btnOkClick(Sender: TObject); var i:integer; begin for i:=0 to frmcadastro.ComponentCount -1 do begin if frmcadastro.components[i] is TEdit then begin if (Tedit(components[i]).tag = 1) and (TEdit(components[i]).text = '') then begin application.MessageBox('Todos os Campos Devem Ser Preenchidos','Aviso',mb_iconinformation+mb_okcancel); Tedit(components[i]).setfocus; exit; end; end; end; if length (trim(edttel.Text))<>8 then begin Application.MessageBox('Telefone Invalido','Aviso',mb_iconinformation+mb_okcancel); edttel.SetFocus; edttel.selectAll; exit; end; gravadados; self.Close; end; alguém poderia me ajudar
  8. Vlw pela atençao Denis qt a validar no ok já tinha pensado nisso também e já tinha feito dessa forma, mais de qualker forma obrigado. Agora minha duvida é qt a captura dos dados se esse campo q não é obrigatorio não vai travar o sistema se ele estiver em branco mesmo se o campo correspondente na minha tabela não for obrigatorio, tipo se eu preciso fazer alguma coisa pra ele não travar caso esteja em branco da uma olhada no codigo begin //Captura dos dados do formulario sNome:=quotedstr(edtnome.Text); sTel:=edtTel.text; sEnd:=quotedstr(edtend.Text); sBairro:=quotedstr(edtbairro.Text); sTelopt:=edtTelopt.Text; //Montagem do comando sql sSql:= 'INSERT INTO WorldPizza (nome,endereco,bairro,tel,telopt)'+ 'Values ('+snome+','+send+','+sbairro+','+stel+','+stelopt+')'; //Executar o comando dm.cmd.commandtext:=sSql; dm.cmd.execute; dm.qryclientes.active:=false; dm.qryclientes.active:=true; end; begin j:=0; for i:=0 to frmcadastro.ComponentCount -1 do begin if frmcadastro.components[i] is TEdit then begin if (Tedit(components[i]).tag = 1) and (TEdit(components[i]).text = '') then j:=j+1; break; end; end; if j>0 then begin application.MessageBox('Todos os Campos Devem Ser Preenchidos','Aviso',mb_iconinformation+mb_okcancel); end; if length (trim(edttel.Text))<>8 then begin Application.MessageBox('Telefone Invalido','Aviso',mb_iconinformation+mb_okcancel); edttel.SetFocus; edttel.selectAll; end else eu tenho q mudar alguma coisa????? Se puderem me ajuda eu agradeço
  9. Obrigado pela atençao Churc, isso quase resolve meu problema pois minha duvida maior é com os campos não obrigatorios,o que faço com eles, como ignora-los na hora de capturar os dados caso ele esteja em branco???? Se puder me ajudar fica grato Abraço
  10. Tenho um formulario de cadastro de clientes onde tenho campos obrigatorios mais vou precisar colocar mais um campo esse opcional fiz uma funçao q verifica os campos em branco eis o codigo procedure Tfrmcadastro.btnOkClick(Sender: TObject); var i,j:integer; begin j:=0; for i:=0 to frmcadastro.ComponentCount -1 do begin if frmcadastro.components[i] is TEdit then begin if Tedit(components[i]).text=''then j:=j+1; end; end; if j>0 then application.MessageBox('Todos os Campos Devem Ser Preenchidos','Aviso',mb_iconinformation+mb_okcancel) else Agora quero sabe como coloca nesse form um campo opcional, e se não for pedir muito keria sabe também como puxar o foco pra um campo obrigatorio q esteja em branco desde já agradeço
  11. faça esta modificação procedure Tfrmcadastro.edtTelExit(Sender: TObject); begin if length (trim(edttel.Text)) > 8 then begin Application.MessageBox('Telefone Invalido','Aviso',mb_iconinformation+mb_okcancel); edttel.SetFocus; edttel.selectAll; end; end; abraço muito obrigado pela ajuda Jhonas ,funcionou beleza fico grato abraço
  12. È o seguinte, tenho um formulario de cadastro de clientes, e estou com um probleminha com um edit onde o usuario vai digitar o tel do cliente, esse é o campo mais importante já q as consultas vao ser feitas em cima dele, então esse campo não pode ter erros tipo qtd de caracteres não pode exceder tenho uma funçao pra formata esse tem da seguinte forma 9999-9999 ignorando codigo de area, keria saber como faço pro usuario não conseguir gravar no BD se esse campo tiver mais ou menos caracteres segue o codigo function Tfrmcadastro.valida_mascara_tel(var key: char; sender: TObject): string; begin if not (key in ['0'..'9',#8,#13]) then key:=#0; if key <> #8 then begin if key <> #13 then if Length(TEdit(sender).Text)=8 then edtend.SetFocus; case Length (TEdit(sender).Text)of 4:begin if not (key in ['0'..'9']) then key:=#0; TEdit(sender).text := TEdit(sender).Text + '-'; TEdit(sender).selStart := Length (TEdit(sender).Text); end; end; end; end; essa funçao colokey no onkeypress do edit em questao procedure Tfrmcadastro.edtTelExit(Sender: TObject); begin if length (edttel.Text) <> 8 then Application.MessageBox('Telefone Invalido','Aviso',mb_iconinformation+mb_okcancel); edttel.SetFocus; if length (edttel.Text)=8 then edtEnd.SetFocus; end; essa ta no onexit, keria saber onde to errando. Se alguém puder me ajudar eu agradeço
×
×
  • Criar Novo...