Fórum Lançamento de cheques em DB #347087

07/10/2007

0

Delphi

Sou novato em programação delphi e gostaria de uma ajuda em uma função.

Uso Delphi 7 com Firebird 2.0 e estou a procura de um função para lançar taloes de cheques no BD, atualmente laço registro por registro no BD sendo um transtorno isso.

Cheque Nº 0001, 0002, 00003 , Trabalho manual é coisa do passado.

Acredito ser um array só não sei como proceder na função, algo como digitando no Edit1 um valor inicial e no Edit2 um valor final depois disso inserir no BD usando DBExpress com Firebird

registros := array[1..100] of integer;

X:= (Edit1.text) to (Edit2.text) do

Add to (Listview )


Alves_sp

Alves_sp

Responder

Posts

07/10/2007

Ruysalles

Não se entendi, mas vai a dica:

procedure Tform1.gera_numer_cheque(Lint_cheque_inicio, Lint_total_cheque: integer);
var
i: integer;
begin
for i := Lint_cheque_inicio to Lint_cheque_inicio + Lint_total_cheque do
begin
memo1.items.add(inttostr(Lint_cheque_inicio));
end;
end;

Espero ter ajudado


Responder

Gostei + 0

08/10/2007

Alves_sp

Não funcionou não

o que quero é muito simples

um Edit1 sendo um valor iniciar e Edit2 sendo um valor Final quando clicar no button Adicinar ele adiciona cada um destes numeros no BD


Responder

Gostei + 0

08/10/2007

Alves_sp

O Correto seria assim, mas mesmo assim valew pela intenção

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i := StrToInt(edIni.Text) to StrToInt(edFim.Text) do
begin
memo1.Lines.add(IntToStr(i));
end;

end;


Responder

Gostei + 0

08/10/2007

Alves_sp

Ainda não consegui enviar os dados para o banco apenas mostra-los no memo1

alguem poderia ajudar ?


Responder

Gostei + 0

20/10/2007

Alves_sp

Resolvido


Responder

Gostei + 0

20/10/2007

Steve_narancic

Seria interessante se vc colocasse aqui no forum como vc resolveu, para que futuros usuarios que tenham a mesma duvida que voce


Responder

Gostei + 0

23/10/2007

Alves_sp

Seria interessante se vc colocasse aqui no forum como vc resolveu, para que futuros usuarios que tenham a mesma duvida que voce



Sem duvida

foi usado DBExpress com firebird 2.0


1 SQLConnection
1 SQLQuery
1 ClientDataSet
1 DataSetProvider

1 Button SalvarBD
1 Button AdicionarListbox
1 Listbox
1 edit = EdINI
1 edit = EdFim


procedure TForm1.SalvarBDClick(Sender: TObject);
var
x: integer;
begin
for x:=0 to listbox1.Items.Count-1 do
begin
//if (listbox1.Selected[x]) then
begin
qryGenerico.Close;
qryGenerico.SQL.Clear;
qryGenerico.SQL.Add(´select *´);
qryGenerico.SQL.Add(´from TESTE´);
qryGenerico.SQL.Add(´where TESTE.ID = ´´´ + listbox1.Items.strings[x] + ´´´´);
qryGenerico.Open;
//if qryGenerico.IsEmpty then
begin
cdsTeste.insert;
cdsTesteID.AsString:=listbox1.Items.Strings[x];
cdsTesteDATAINC.AsDateTime:=Date;
cdsTesteIDCHEQUE.AsInteger:=cdsTesteID.Value - 1;
cdsTeste.Post;
cdsTeste.ApplyUpdates(0);
end;
qryGenerico.Close;
end;
end;
end;



Agradeço pela atenção de todos


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar