Ir para conteúdo
Fórum Script Brasil

diego ferreira ribeiro

Membros
  • Total de itens

    4
  • Registro em

  • Última visita

Tudo que diego ferreira ribeiro postou

  1. o meu banco e o firebird, é na tabela reserva o campo data_prevista esta como date. o codigo inteiro que fiz esta certo?
  2. somente AsDate não da certo fala que não e membro
  3. eu fiz assim: if dm.CDS_LIVROS.Locate('ID_LIVRO',dm.CDS_RESERVA.FieldByName('TOMBO_LIVRO').AsInteger,[]) then // livro escolhido begin if dm.CDS_RESERVA.FieldByName('DT_RESERVA').AsDateTime =Strtodate(dbedit5.Text) then // verifica se as datas são iguais begin messagedlg('Livro reservado nesta data, escolha outra data!',mtInformation,[mbok],0); DBLookupComboBox2.SetFocus; end else begin falso(); tratabotoes(); dm.CDS_RESERVA.Post; dm.CDS_LIVROS.Edit; dm.CDS_LIVROS.FieldByName('STATUS_LIVRO').AsString:=('RESERVADO'); DM.CDS_LIVROS.Refresh; messagedlg('Registro inserido com sucesso!',mtInformation,[mbok],0); if messagedlg('Deseja imprimir o recibo?',MtConfirmation,[mbYes,mbNo],0)=mrYes then begin dm.recibo_reserva.ShowReport; end else abort; end; end; mais não deu certo ele sempre aparece registro inserido com sucesso. eu uso banco firebird e o delphi e o xe8 se a pessoa quiser reservar um livro diferente nessa mesma data pode, so não pode reservar o mesmo livro na mesma data.
  4. Boa tarde, estou desenvolvendo um sistema de locação e reserva, como faço para verificar se uma data já foi reservada, tem um campo titulo e data prevista, como fazer ao gravar verificar primeiro se o livro escolhido já esta reservado para outro nessa data escolhida. exemplo cod= 1 usuário = marcos titulo=bingo data prevista = 25/12/2019 cod=2 usuário=Diogo titulo=bingo data prevista = 25/12/2019 o código 2 já não pode reservar nessa data porque já esta reservado para o código 1.
×
×
  • Criar Novo...