 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
eot_ccb
Novato
Registrado: Sábado, 8 de Junho de 2013
Mensagens: 3
Localização: Caxias do Sul - RS
|
 Enviada: Sáb Jun 08, 2013 10:15 pm Assunto: RESOLVIDO Inserção de vários registros automaticamente |
 |
|
Caro marcosbaixista,
segue o onclick do botao Gerar Código
procedure TFormGerarEtiquetas.BitBtn1Click(Sender: TObject);
begin
if DMPostagem.DataSource2.DataSet.State in [dsInsert] then
begin
for I := 0 to strtoint(Edit1.Text) do
begin
Randomize;
num := RandomRange(1000000000, 9999999999);
DBEdit1.Text := FloatToStr(num);
DMPostagem.ClientDataSet2.Post;
DMPostagem.ClientDataSet2.ApplyUpdates(0);
DMPostagem.SQLDataSet2.Close;
DMPostagem.ClientDataSet2.Close;
DMPostagem.SQLDataSet2.Open;
DMPostagem.ClientDataSet2.Open;
DMPostagem.ClientDataSet2.Insert;
end;
end;
end;
Acredito que haja outras maneiras mas como voce me indicou funcionou perfeitamente!
Caso veja alguma maneira de otimizar esse codigo agradeço pois inseri 2000 registros e tive que dar um Crl+Alt+Del pois travou.
Valeu!
_________________
"Tenho saudade da época em que a decisão mais difícil era escolher o sabor do sorvete!"
Editado pela última vez por eot_ccb em Qui Fev 13, 2014 9:37 pm, num total de 2 vezes |
|
| Voltar ao Topo |
|
 |
marcosbaixista
Profissional
Registrado: Quinta-Feira, 18 de Março de 2010
Mensagens: 594
Localização: Maringá/PR
|
| Enviada: Sáb Jun 08, 2013 11:04 pm Assunto: Re: Inserção de vários registros automaticamente |
|
|
| eot_ccb escreveu: | Caros colegas, como iniciante na linguagem delphi surgiu uma dúvida:
Uso Firebird + IBExpert + Rad Studio XE3.
Banco de Dados possui uma Tabela "Etiquetas" com campos "ID e REGISTRO(onde irá o numero aleatorio)";
Possuo um Form com:
1. Função para gerar numeros aleatorios (10 digitos);
2. Um campo Edit;
3. 2 botoes (Gerar Código e Imprimir respectivamente);
4. FastReports configurado para etiquetas PIMACO 6080;
Obs: Este numero aleatorio se transforma em Codigo de Barras no FastReports
O que desejo Fazer:
Preciso que ao Clicar no Botao Gerar Código o sistema insira no CDS a quantidade de códigos correspondente ao numero
que for colocado no campo Edit, ou seja, caso queira imprimir 200 etiquetas basta colocar '200' no campo Edit e clicar em Gerar Código e apos clicar Imprimir.
Está funcionando a inserção de um registro por vez mas no meu caso preciso determinar a quantidade pelo Edit.
Aguardo um Help. Valeu! |
Olá amigo.
Ta fácil de resolver já que conseguiu fazer o restante funcionar.
O que você precisa fazer, é dar um loop na quantidade de vezes que gera a rotina de gravar no CDS.
Mais ou menos assim:
Digamos que no Edit1 você digite 200, para imprimir 200 etiquetas.
| Código: |
For I: 0 to strtoint(edit1.text) do begin
colocar aqui a rotina que já funciona para gerar os números
end;
|
Desta forma, você irá repetir a rotina que já funciona quantas vezes for necessário digitando a quantidade no edit.
Tenta ai, qualquer coisa posta novamente que te ajudo ok. |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
