Lançamento de cheques em DB

Delphi

07/10/2007

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

Curtidas 0

Respostas

Ruysalles

Ruysalles

07/10/2007

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


GOSTEI 0
Alves_sp

Alves_sp

07/10/2007

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


GOSTEI 0
Alves_sp

Alves_sp

07/10/2007

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;


GOSTEI 0
Alves_sp

Alves_sp

07/10/2007

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

alguem poderia ajudar ?


GOSTEI 0
Alves_sp

Alves_sp

07/10/2007

Resolvido


GOSTEI 0
Steve_narancic

Steve_narancic

07/10/2007

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


GOSTEI 0
Alves_sp

Alves_sp

07/10/2007

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


GOSTEI 0
POSTAR