DATA (Formato DD/MM/AAAA)
Boa tarde.
Gostaria de criar um código pra quando eu clicar no botão NOVO o campo onde sera inserido a data seja preenchido automaticamente. Exemplo 05/04/2020.
O campo seria um DBEdit (que eu chamei de DBEditDATA).
Estou usando os componente da palheta InterBase do Delphi 10.3. Abaixo segue o código que estou usando no botão NOVO:
Gostaria da vossa orientação. Confesso procurei videos explicando mais não achei.
Gostaria de criar um código pra quando eu clicar no botão NOVO o campo onde sera inserido a data seja preenchido automaticamente. Exemplo 05/04/2020.
O campo seria um DBEdit (que eu chamei de DBEditDATA).
Estou usando os componente da palheta InterBase do Delphi 10.3. Abaixo segue o código que estou usando no botão NOVO:
procedure TfrmPedidoAviamentos.SpeedButtonNovoClick(Sender: TObject); begin try //TRUE DBEditCOD.Enabled := True;// Ver se tem outros pra ATIVAR DBEditREFERENCIA.Enabled := True; DBEditCORES.Enabled := True; DBEditCOLECOES.Enabled := True; DBEditPRODUCAO.Enabled := True; DBEditQTD_MINIMA.Enabled := True; DBEditQTD_MAXIMA.Enabled := True; DBEditOBSERVACAO1.Enabled := True; DBEditOBSERVACAO2.Enabled := True; DBEditOBSERVACAO3.Enabled := True; DBLookupComboBoxCORES.Enabled := True; DBLookupComboBoxCOLECOES.Enabled := True; DBLookupComboBoxPRODUCAO.Enabled := True; //FALSE DBEditVALOR.Enabled := False; DBEditTOTAL.Enabled := False; DBEditVALOR_TOTAL.Enabled := False; DBEditDATA.Enabled := False;//<<<<<<<<<<<<<<<<<<<<<<<<<<< DBEditREFERENCIA.SetFocus; dmDados.ibPedidoAviamentos.Append; except ShowMessage('Operação Invalida'); end; end;
Gostaria da vossa orientação. Confesso procurei videos explicando mais não achei.
Rubens Pena
Curtidas 1
Melhor post
Rubens Pena
06/04/2020
faça isso no evento OnNewRecord do dataset.
assim não importa a qual componente dataware esteja ligado, sempre irá preencher o campo automaticamente ao criar uym novo registro.
procedure TForm1.IBDataset1NewRecord(DataSet: TDataSet); begin Dataset.FieldByName('NOMEDOCAMPO').AsDate := Date; end;
Boa tarde Emerson Nascimento.
No meu forme coloquei um componente IBDataSet1 (DataBase e DataSource ligados) e no SelectSQL dele coloquei select * from PEDIDO_AVIAMENTOS
No evento OnNewRecord dele digitei o código abaixo
procedure TfrmPedidoAviamentos.IBDataSet1NewRecord(DataSet: TDataSet); begin DataSet.FieldByName('PEDIDO_AVIAMENTOS_DATA').AsDateTime := Date; //As Date (não tinha) tem o AsDateTime //DataSet.FieldByName('DBEditDATA').AsDateTime := Date; end;
Compilei e deu Done (OK).
Mas ao roda o projeto clica em NOVO pra preencher os campos, o campo DBEditDATA (TDBEdit), o mesmo não preencheu.
Será que é porque la no Banco de Dados, eu deixei ele como pedido_aviamentos_DATA (Field Type DATE)
GOSTEI 1
Mais Respostas
Emerson Nascimento
05/04/2020
faça isso no evento OnNewRecord do dataset.
assim não importa a qual componente dataware esteja ligado, sempre irá preencher o campo automaticamente ao criar uym novo registro.
procedure TForm1.IBDataset1NewRecord(DataSet: TDataSet); begin Dataset.FieldByName('NOMEDOCAMPO').AsDate := Date; end;
GOSTEI 0
Rubens Pena
05/04/2020
faça isso no evento OnNewRecord do dataset.
assim não importa a qual componente dataware esteja ligado, sempre irá preencher o campo automaticamente ao criar uym novo registro.
procedure TForm1.IBDataset1NewRecord(DataSet: TDataSet); begin Dataset.FieldByName('NOMEDOCAMPO').AsDate := Date; end;
Boa noite Emerson Nascimento.
No meu forme coloquei um componente IBDataSet1 (DataBase e DataSource ligados) e no SelectSQL dele coloquei select * from PEDIDO_AVIAMENTOS
No evento OnNewRecord dele digitei o código abaixo
procedure TfrmPedidoAviamentos.IBDataSet1NewRecord(DataSet: TDataSet); begin DataSet.FieldByName('PEDIDO_AVIAMENTOS_DATA').AsDateTime := Date; //AsDate (não tinha) tem o AsDateTime //DataSet.FieldByName('DBEditDATA').AsDateTime := Date; //AsDate (não tinha) tem o AsDateTime - Tentei assim também não deu certo end;
Compilei e deu Done (OK).
Mas ao roda o projeto clica em NOVO pra preencher os campos, o campo DBEditDATA (TDBEdit), o mesmo não preencheu.
Será que é porque la no Banco de Dados, eu deixei ele como pedido_aviamentos_DATA (Field Type DATE)
GOSTEI 0
Rubens Pena
05/04/2020
Boa tarde.
Gostaria de criar um código pra quando eu clicar no botão NOVO o campo onde sera inserido a data seja preenchido automaticamente. Exemplo 05/04/2020.
O campo seria um DBEdit (que eu chamei de DBEditDATA).
Estou usando os componente da palheta InterBase do Delphi 10.3. Abaixo segue o código que estou usando no botão NOVO:
Gostaria da vossa orientação. Confesso procurei videos explicando mais não achei.
Gostaria de criar um código pra quando eu clicar no botão NOVO o campo onde sera inserido a data seja preenchido automaticamente. Exemplo 05/04/2020.
O campo seria um DBEdit (que eu chamei de DBEditDATA).
Estou usando os componente da palheta InterBase do Delphi 10.3. Abaixo segue o código que estou usando no botão NOVO:
procedure TfrmPedidoAviamentos.SpeedButtonNovoClick(Sender: TObject); begin try //TRUE DBEditCOD.Enabled := True;// Ver se tem outros pra ATIVAR DBEditREFERENCIA.Enabled := True; DBEditCORES.Enabled := True; DBEditCOLECOES.Enabled := True; DBEditPRODUCAO.Enabled := True; DBEditQTD_MINIMA.Enabled := True; DBEditQTD_MAXIMA.Enabled := True; DBEditOBSERVACAO1.Enabled := True; DBEditOBSERVACAO2.Enabled := True; DBEditOBSERVACAO3.Enabled := True; DBLookupComboBoxCORES.Enabled := True; DBLookupComboBoxCOLECOES.Enabled := True; DBLookupComboBoxPRODUCAO.Enabled := True; //FALSE DBEditVALOR.Enabled := False; DBEditTOTAL.Enabled := False; DBEditVALOR_TOTAL.Enabled := False; DBEditDATA.Enabled := False;//<<<<<<<<<<<<<<<<<<<<<<<<<<< DBEditREFERENCIA.SetFocus; dmDados.ibPedidoAviamentos.Append; dmDados.ibPedidoAviamentosPEDIDO_AVIAMENTOS_DATA.value :=Date; // Consegui resolver meu problema colocando esse código except ShowMessage(''Operação Invalida''); end; end;
Gostaria da vossa orientação. Confesso procurei videos explicando mais não achei.
Boa tarde.
Consegui resolver meu problema digitando esse código abaixo do código ( dmDados.ibPedidoAviamentos.Append; )
dmDados.ibPedidoAviamentosPEDIDO_AVIAMENTOS_DATA.value :=Date;
Não sei se é o correto mais me atendeu no que eu queria, que era colocar a data automaticamente ao clica no botão NOVO.
Obrigado
Emerson Nascimento
por tentar me ajudar com esse tópico.
GOSTEI 0