Esse código é muito bom!

Segue agora um código extremamente importante para TODOS os grupos.

Exemplo da tela:



É preciso tirar os componentes de banco de dados. Os mesmos estarão no Data Module.


Obs1: O button1 é o OK
O button2 é o Verificar receita
O button3 é o Verificar receita no período

Obs2: A tabela no banco de dados se chama teste e só possui três campos: pgto, valor e data (tudo do tipo texto).

É preciso colocar o comando SQL no ADOQuery do Data Modulo:
Select * from teste

Vamos ao código:

*******************************************************************
procedure TForm1.Button1Click(Sender: TObject);
begin
DM.AdoQuery1.Append;
DM.AdoQuery1.FieldByName('pgto').value := combobox1.text;
DM.AdoQuery1.FieldByName('Valor').value := strtofloat(edit1.text);
DM.AdoQuery1.FieldByName('Data').value := edit2.text;
DM.AdoQuery1.post;
end;
********************************************************************
procedure TForm1.Button2Click(Sender: TObject);
var
vtot:Real;
begin
vtot:=0;
DM.AdoQuery1.Close;
DM.AdoQuery1.sql.clear;
DM.teste.sql.Add('Select sum(Valor) from teste where pgto = ' +chr(39)+'Dinheiro'+chr(39)+ 'and data = :dtespecifica');
DM.teste.Parameters.Parambyname('dtespecifica').value := Strtodate(edit2.text);
DM.AdoQuery1.Open;
if (DM.AdoQuery1.fields.fields[0].IsNull) then
label3.caption:='R$ 0,00'
else
begin
vtot:=vtot+DM.AdoQuery1.fields.fields[0].value;
label3.caption:=floattostrf(DM.AdoQuery1.fields.fields[0].value,ffCurrency,6,2);
end;

DM.AdoQuery1.Close;
DM.AdoQuery1.sql.clear;
DM.teste.sql.Add('Select sum(Valor) from teste where pgto = ' +chr(39)+'Cartão'+chr(39)+ 'and data = :dtespecifica');
DM.teste.Parameters.Parambyname('dtespecifica').value := Strtodate(edit2.text);
DM.AdoQuery1.Open;

if (DM.AdoQuery1.fields.fields[0].isnull) then
label5.caption:='R$ 0,00'
else
begin
vtot:=vtot+DM.AdoQuery1.fields.fields[0].value;
label5.caption:=floattostrf(DM.AdoQuery1.fields.fields[0].value,ffCurrency,6,2);
end;

DM.AdoQuery1.Close;
DM.AdoQuery1.sql.clear;
DM.teste.sql.Add('Select sum(Valor) from teste where pgto = ' +chr(39)+'Cheque'+chr(39)+ 'and data = :dtespecifica');
DM.teste.Parameters.Parambyname('dtespecifica').value := Strtodate(edit2.text);
DM.AdoQuery1.Open;

if (DM.AdoQuery1.fields.fields[0].isnull) then
label7.caption:='R$ 0,00'
else
begin
vtot:=vtot+DM.AdoQuery1.fields.fields[0].value;
label7.caption:=floattostrf(DM.AdoQuery1.fields.fields[0].value,ffCurrency,6,2);
end;

DM.AdoQuery1.Close;
DM.AdoQuery1.sql.clear;
DM.AdoQuery1.sql.Add('Select * from teste');
DM.AdoQuery1.Open;

label11.caption:=floattostrf(vtot,ffCurrency,6,2);

end;
****************************************************************************
procedure TForm1.Button3Click(Sender: TObject);
var
vtot:Real;
begin
vtot:=0;
DM.AdoQuery1.Close;
DM.AdoQuery1.sql.clear;
DM.teste.sql.Add('Select sum(Valor) from teste where pgto = ' +chr(39)+'Dinheiro'+chr(39)+ 'and data BETWEEN :dtinicial and :dtfinal');
DM.teste.Parameters.Parambyname('dtinicial').value := Strtodate(edit3.text);
DM.teste.Parameters.ParamByName('dtFinal').value := Strtodate(edit4.text);
DM.AdoQuery1.Open;
if (DM.AdoQuery1.fields.fields[0].isnull) then
label3.caption:='R$ 0,00'
else
begin
vtot:=vtot+DM.AdoQuery1.fields.fields[0].value;
label3.caption:=floattostrf(DM.AdoQuery1.fields.fields[0].value,ffCurrency,6,2);
end;

DM.AdoQuery1.Close;
DM.AdoQuery1.sql.clear;
DM.teste.sql.Add('Select sum(Valor) from teste where pgto = ' +chr(39)+'Cartão'+chr(39)+ 'and data BETWEEN :dtinicial and :dtfinal');
DM.teste.Parameters.Parambyname('dtinicial').value := Strtodate(edit3.text);
DM.teste.Parameters.ParamByName('dtFinal').value := Strtodate(edit4.text);
DM.AdoQuery1.Open;

if (DM.AdoQuery1.fields.fields[0].isnull) then
label5.caption:='R$ 0,00'
else
begin
vtot:=vtot+DM.AdoQuery1.fields.fields[0].value;
label5.caption:=floattostrf(DM.AdoQuery1.fields.fields[0].value,ffCurrency,6,2);
end;

DM.AdoQuery1.Close;
DM.AdoQuery1.sql.clear;
DM.teste.sql.Add('Select sum(Valor) from teste where pgto = ' +chr(39)+'Cheque'+chr(39)+ 'and data BETWEEN :dtinicial and :dtfinal');
DM.teste.Parameters.Parambyname('dtinicial').value := Strtodate(edit3.text);
DM.teste.Parameters.ParamByName('dtFinal').value := Strtodate(edit4.text);
DM.AdoQuery1.Open;

if (DM.AdoQuery1.fields.fields[0].isnull) then
label7.caption:='R$ 0,00'

else
begin
vtot:=vtot+DM.AdoQuery1.fields.fields[0].value;
label7.caption:=floattostrf(DM.AdoQuery1.fields.fields[0].value,ffCurrency,6,2);
end;

DM.AdoQuery1.Close;
DM.AdoQuery1.sql.clear;
DM.AdoQuery1.sql.Add('Select * from teste');
DM.AdoQuery1.Open;

label11.caption:=floattostrf(vtot,ffCurrency,6,2);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

Filtrando letra a letra com SQL

Não se esqueçam que é preciso colocar um ListBox e três Edits para este código.

procedure TForm1.Edit1Change(Sender: TObject);
begin
q1.Close;
q1.SQL.clear;
q1.SQL.add('Select * from cliente where nome like '+chr(39)+edit1.text+'%'+chr(39));
q1.open;
listbox1.Clear;
q1.first;
while not q1.eof do
begin
listbox1.items.add(q1.fields.fields[0].value);
q1.next;
end;

end;

procedure TForm1.FormActivate(Sender: TObject);
begin
q1.first;
while not q1.eof do
begin
listbox1.items.add(q1.fields.fields[0].value);
q1.next;
end;

end;

procedure TForm1.ListBox1Click(Sender: TObject);
var
vnome:string;
begin
vnome:=listbox1.items[listbox1.Itemindex];
q1.Close;
q1.SQL.clear;
q1.SQL.add('Select * from cliente where nome ='+chr(39)+vnome+chr(39));
q1.open;
edit1.text:=q1.fields.fields[0].value;
edit2.text:=q1.fields.fields[1].value;
edit3.text:=q1.fields.fields[2].value;
end;

Para os alunos do 3º Ano Informática

Código de exemplo para efetuar uma venda.
Obs1: Não esqueça que este código deverá ser adaptado para suas necessidades.
Obs2: A variável TOTAL deve ser declarada na parte de declaração do FORM e não na PROCEDURE.

Exemplo da tela





var
Form1: TForm1;
total:real;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
vitem:real;
ncarac,x:integer;
result:string;

begin
vitem:=strtocurr(edit1.text);
edit1.text := FloatToStrF(vitem,ffCurrency,7,2);
ncarac:=length(combobox1.text);
for x:=1 to 10 do
begin
if x <= ncarac then
result := result + copy(combobox1.text, x, 1)
else
result := result + ' ';
end;

listbox1.Items.add(result+edit1.text);

total:= total + vitem;
label5.Caption := FloatToStrF(total,ffCurrency,7,2);

end;

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
edit1.Clear;
end;

end.

Palestra - Faculdade de Belford Roxo

Palestra realizada na Faculdade de Belford Roxo em 28/05/2010 pela 10ª Semana Acadêmica. Presentes os cursos de Pedagogia e Administração de Empresas e outros convidados.

Muito Bom! Público Excelente!

Como é dura a vida de professor

O PROFESSOR SEMPRE ESTÁ ERRADO (Será?)

“Quando...
É jovem, não tem experiência.
É velho, está superado.
Não tem automóvel, é um coitado.
Tem automóvel, chora de "barriga cheia".
Fala em voz alta, vive gritando.
Fala em tom normal, ninguém escuta.
Não falta às aulas, é um "Caxias".
Precisa faltar, é "turista"
Conversa com outros professores, está "malhando" os alunos.
Não conversa, é um desligado.
Dá muita matéria, não tem dó dos alunos.
Dá pouca matéria, não prepara os alunos.
Brinca com a turma, é metido a engraçado.
Não brinca com a turma, é um chato.
Chama à atenção, é um grosso.
Não chama à atenção, não sabe se impor.
A prova é longa, não dá tempo.
A prova é curta, tira as chances dos alunos.
Escreve muito, não explica.
Explica muito, o caderno não tem nada.
Fala corretamente, ninguém entende.
Fala a "língua" do aluno, não tem vocabulário.
Exige, é rude.
Elogia, é debochado.
O aluno é reprovado, é perseguição.
O aluno é aprovado, "deu mole".” (Autor desconhecido)


É, o professor pode estar sempre errado na visão de alguns, eu diria que cada um deles faz o que sabe e acredita ser o melhor naquele momento e que isso demonstra o empenho que nós professores colocamos em nossas ações!
Agradeço a todos os professores e alunos que passaram e passam por minha vida, me ensinando um pouco mais sobre como ser um professor melhor a cada dia.
Que as críticas sejam construtivas e os elogios sinceros. Que predomine a parceria e o respeito para que todos ganhem nesta relação permanente de ensinoaprendizagem.
Professores, não deixem que as críticas e as dificuldades do dia-a-dia lhes retirem o prazer de ensinar e fazer o que acredita, deva ser feito!
Que o Brasil, sua população e governantes, possam investir na melhoria desta parceria incentivando o respeito e a valorização destes profissionais.

Lembranças da Escola

As imagens de que me lembro não representam necessariamente a realidade, mas são imagens fantásticas.

por Ney Trevas Santos Junior

Provavelmente sou o que se pode dizer de felizardo, minhas memórias da escola estão mergulhadas em nuvens de alegria. Para mim, a escola sempre foi um espaço de prazer e felicidade. Foi lá, no Jardim Escola Peter Pan, que dei meus primeiros passos que me conduziram ao que sou hoje e, para minha felicidade, esses primeiros passos, aconteceram em um ambiente sadio e repleto de coisas boas a começar por tia Claudia. Tia Claudia era (já naquela época) o que depois de alguns anos eu comecei a classificar como “espetacular”. Atire a primeira pedra quem nunca se apaixonou por alguma tia Claudia. Lá, comecei a estabelecer as primeiras significações de palavras em minha mente. Lembro-me que todo dia, para entrar-mos em nossa sala de aula, antes deveríamos formar no pátio e nos deslocarmos contanto um alegre “piuí tic-tac, piuí tic-tac”. Como morava longe da linha férrea e ainda não era um leitor, imaginava uma máquina “gigantesca” (éramos 25 alunos) que fizesse o tal “piuí tic-tac”. Mais tarde, descobri que a imagem não era necessariamente a mais correta, mas com muita boa vontade se assemelhava, eu disse, com muito boa vontade, a uma “coisa” muito parecida com uma Maria Fumaça. Agora, me ocorre que uma outra significação que estabeleci nesta época e que, esta sim, não teve absolutamente nada a ver com a realidade, foi com a história do gafanhoto. Lembra-se do canto: “um atrás do outro, igual a um gafanhoto...”, pois é, o gafanhoto que imaginei, bom, deixa pra lá. Nessas nuvens de recordações, trago a minha consciência os vários momentos de pura diversão, que me permitiam exercitar a arte de ser criança. Momentos em que aprendi, por vezes com alguma dificuldade, que o outro também quer se divertir e tem esse direito, que a tinta era de todos, que a Tia Claudia, não era só minha, enfim, hoje entendo que já estavam plantando em minha mente naquela época, o conceito de compartilhar. Uma nova nuvem chega agora e resgata imagens das festas: caipira, dia das mães, dos pais, do folclore e tantas outras. Sei, hoje, que são alegrias que não voltam mais, entretanto, foram tão marcantes, que hoje posso deitar, fechar meus olhos e vivê-las intensamente, posso até mesmo rir do Pedro que sempre deixava seu lanche cair no chão, ou até chorar em ver minha mãe emocionada ao me ver com muita dificuldade recitar um versinho para ela no seu oficial dia. Mas o que mais orgulho desta época é que posso afirmar hoje que sou um felizardo, pois, minhas memórias da escola estão mergulhadas em nuvens de alegria, e isso, ninguém tirará de mim.

Será que você também acha isso?