czanotta
-
Total de itens
8 -
Registro em
-
Última visita
Posts postados por czanotta
-
-
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!!!!!!!!!!
Informações De Outro Form!
em Delphi, Kylix
Postado · Editado por Micheus
Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;)
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.Esse codigo esta funcionando perfeitamente, só falta chamar os dados!!!!!
Abraço