Ir para conteúdo
Fórum Script Brasil

czanotta

Membros
  • Total de itens

    8
  • Registro em

  • Última visita

Sobre czanotta

czanotta's Achievements

0

Reputação

  1. Esses dois DBEdits seria a mesma coisa que dois edit???O campo de relacionamento que voce comenta é o ADOCONNECTION,ADQUERY e DATASOURCE???Se poder me explica mais detalhadamente pois estou começando agora em delphi.Alias teria que add algo no object inspector nos edits. Estou usando este codigo na combobox que vai chamar o numero do apartamento: procedure Trecibo.FormShow(Sender: TObject); begin apto.clear; adq.active:=false; adq.sql.clear; adq.sql.add('select * from cadastro order by apto'); adq.active:=true; adq.first; repeat apto.items.add (adq.FieldByName('apto').asstring); adq.next; until adq.eof; end; Só quero que quando escolher o apartamento já apareça os dados(nome,rg) que foi cadastrado em outro form. Ex: APARTAMENTO 107 (combobox) NOME Rubem silveira(edit) RG 4082548848 (edit) Esse codigo esta funcionando perfeitamente, só falta chamar os dados!!!!! Abraço
  2. Ola pessoal!!!!!!!!!!Estou com problemas em chamar informações de outros forms.Estou usando o delphi 6(adoconnection, adoquery e datasource)e mysql 5.0.41. Tenho duas tabelas : CADASTRO : Pk- código, nome,rg,cpf,apartamento-----------------clicando no botão salvar o programa salva em uma dbgrid logo abaixo. TABELA RECIBO: Pk-recibo,venc,mês,edtcota,edtjuros,edtxtra,edttotal Cada tabela em um form diferente.Na tabela RECIBO tenho três informações que devem vir da tabela CADASTRO, que são APTO, NOME e RG.Quero quando selecionar o apartamento (em uma combobox),me preencha o edit NOME e o edit RG automaticamente e atualizado como o form CADASTRO, mas só consigo chamar as informações do apartamento,que esta na combobox, o NOME e o RG não(edits). ABraço
  3. czanotta

    Soma Em Edits

    Ola amigo!!!!troquei o codigo igula acima, mas quando vou somar ele me retorna assim: R$ 80 + R$ 3 + R$ 0 + R$ 3 = R$ 86 ele coloca o valor de todos edits e o resultado da soma,queria que só aparecese o resultado EX: R$ 86. Abraço
  4. czanotta

    Soma Em Edits

    Ola baixei e instalei, mas não consegui fazer funcionar,ae desisti e estou iniciando em zero mesmo. MAs mesmo assim OBRIGADO!!!!!!!!
  5. czanotta

    Soma Em Edits

    Agora esta somando, só que se eu não digitar em todos edits da erro,claro tenho que colocar todos em 0.Mas como quero somar valores gostaria que somase assim : R$ 43,00 + R$ 7,00 = R$50,00. Como posso fazer????? Sempre com o cifrão na frente!!!!!!!!!!!!!!!!
  6. czanotta

    Soma Em Edits

    Troquei o codigo, mas continuo não conseguindo somar, Micheus estou tentando somar 4 edits, mas não sei se o codigo esta errado.Pessoal modifiquei os codigos mas continua dando erro, vou colocar o codigo e depois os nomes dos edits que estou usando para facilitar e o erro que esta dando: cota:real; juros:real; multa:real; extra:real; total:real; begin cota:=strtofloat(edtcota.text); juros:=strtofloat(edtjuros.text); multa:=strtofloat(edtmulta.text); extra:=strtofloat(edtextra.text); total:= cota + juros + multa + extra; edttotal := FloatToStr(cota + juros + multa + extra); end; NOME DOS EDITS cota --> edtcota juros ---> edtjuros multa---->edtmulta extra--->edtextra total---->edttotal ERROS [Error] Unit3.pas(146): Incompatible types: 'TEdit' and 'String' [Fatal Error] Project1.dpr(7): Could not compile used unit 'Unit3.pas' Abraço
  7. Ola pessoal!!!!!Estou tentando fazer uma soma entre edits, mas não sei porque não esta dando certo pois relativamente é facil,estou usando o delphi 6.aí vai o codigo: procedure Trecibo.Button3Click(Sender: TObject); var cota:real; juros:real; multa:real; extra:real; total:real; begin cota:=strtofloat(cota.text); juros:=strtofloat(juros.text); multa:=strtofloat(multa.text); extra:=strtofloat(extra.text); total:= cota + juros + multa + extra; floattostr(total); end; Mudei o nome das edits para o mesmo nome das label.Ex: label "multa" / edit "multa.text" Abraço
  8. Ola pessoal!!!!!!!Estou fazendo um programinha de condominio, estou usando o delphi 6,mysql 5.0.41 e usando o ADOCONNECTION, ADOQUERY e DATASOURCE para conexão com o banco de dados.O problema é que trancou em uma parte e não consigo sair dali, vou enviar os codigos: type Tcadastro = class(TForm) Label1: TLabel; codigo: TEdit; Label2: TLabel; nome: TEdit; Label3: TLabel; RG: TEdit; cpf: TMaskEdit; Label4: TLabel; Label5: TLabel; apartamento: TComboBox; DB: TDBGrid; DataSource1: TDataSource; ADO: TADOConnection; ADQ: TADOQuery; Button1: TButton; Button3: TButton; Button4: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); <-----------------tranca aqui procedure Button3Click(Sender: TObject); procedure Button2Click(Sender: TObject); <-----------------depois aqui procedure DBCellClick(Column: TColumn); procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var cadastro: Tcadastro; implementation ----------------------------------------------------------------------------------------------------------------- APARTIR DE AGORA O CODIGO DO PROGRAMA //botão cadastrar procedure Tcadastro.Button1Click(Sender: TObject); begin if (nome.text='') then begin messagedlg('Digite seu nome',mtinformation,[mbok],0); nome.setfocus; exit; end; if (rg.text='') then begin messagedlg('Digite o Rg',mtinformation,[mbok],0); rg.setfocus; exit; end; if (cpf.text=' - - - ') then begin messagedlg('Digite o CPF',mtinformation,[mbok],0); cpf.setfocus; exit; end; if (apartamento.text='') then begin messagedlg('Escolha o Apartamento',mtinformation,[mbok],0); apartamento.setfocus; exit; end; adq.close; adq.sql.clear; adq.sql.add('insert into cadastro(codigo,nome,rg,cpf,apartamento)values('''+codigo.text+''','''+nome.text+''','''+rg.text+''','''+cpf.text+''','''+apartamento.text+''')'); adq.prepared:=true; adq.execsql; adq.active:=false; adq.sql.clear; adq.sql.add('select * from cadastro'); adq.active:=true; codigo.clear; nome.clear; apartamento.clear; cpf.clear; rg.clear; end; //Botão deletar procedure Tcadastro.Button3Click(Sender: TObject); var x:integer; begin x:=messagedlg('Tem certeza que deseja excluir?',mtinformation,mbokcancel,0); if x=1 then begin adq.active:=false; adq.sql.clear; adq.sql.add('delete from cadastro where codigo='''+codigo.text+''''); adq.prepared:=true; adq.execsql; adq.active:=false; adq.sql.clear; adq.sql.add('select * from cadastro'); adq.active:=true; end; end; // onCellclick da Dbgrid procedure Tcadastro.DBCellClick(Column: TColumn); begin codigo.text:=adq.fieldbyname('codigo').asstring; nome.text:=adq.fieldbyname('nome').asstring; rg.text:=adq.fieldbyname('rg').asstring; cpf.text:=adq.fieldbyname('cpf').asstring; apartamento.text:=adq.fieldbyname('apartamento').asstring; end; //botão Alterar procedure Tcadastro.Button2Click(Sender: TObject); begin adq.Active:=false; adq.sql.Clear; adq.sql.add('update cadastro set nome='''+nome.text+''',rg='''+rg.text+''',cpf='''+cpf.text+''',apartamento='''+apartamento.text+''' where codigo='''+codigo.text+''''); adq.Prepared:=true; adq.execsql; codigo.clear; nome.clear; cpf.clear; rg.clear; apartamento.Clear; end; //Botão cancelar procedure Tcadastro.Button4Click(Sender: TObject); begin codigo.Clear; nome.Clear; rg.Clear; cpf.Clear; apartamento.Clear; end; end. DESDE já AGRADEÇO!!!!!!!!!!
×
×
  • Criar Novo...