czanotta
Membros-
Total de itens
8 -
Registro em
-
Última visita
Sobre czanotta
czanotta's Achievements
0
Reputação
-
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
-
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
-
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
-
Ola baixei e instalei, mas não consegui fazer funcionar,ae desisti e estou iniciando em zero mesmo. MAs mesmo assim OBRIGADO!!!!!!!!
-
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!!!!!!!!!!!!!!!!
-
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
-
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
-
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!!!!!!!!!!