procedure TfrmCetakJualPerBarang.btPreviewClick(Sender: TObject);
var PTgAwal, PTgAkhir : TDateTime;
begin
  //jika tanggal kosong, anggap dari awal sampai akhir
  if length(edTgAwal.Text)=0 then edTgAwal.Text:='01-01-1900';
  if length(edTgAkhir.Text)=0 then edTgAkhir.Text:='01-01-2999';
  //cek input tanggal
  try
    begin
      PTgAwal:=StrToDate(edTgAwal.Text);
      PTgAkhir:=StrToDate(edTgAkhir.Text);
    end;
  except
    beep;
    ShowMessage('Input data tanggal tidak sah!'+chr(13)+
                'Format tanggal: dd-mm-yyyy');
    exit;
  end;
  with uLembarcetakJualPerBarang.lbrCetakJualPerBarang do
    begin
      //hapus string SQL lama jika ada
      quJual.SQL.Clear;
      //buat string SQL baru
      quJual.SQL.Add('select * from '+QuotedStr('Jual.DB'));
      //jika edKodeBrg kosong, anggap semua barang
      if length(trim(edKodeBrg.Text))=0 then
         edKodeBrg.Text:='%';
      quJual.SQL.Add('where KodeBrg Like :PKodeBrg');
      quJual.SQL.Add('and TgBon>=:PTgAwal');
      quJual.SQL.Add('and TgBon<=:PTgAkhir');
      //set parameter
      quJual.ParamByName('PKodeBrg').AsString:=edKodeBrg.Text;
      quJual.ParamByName('PTgAwal').AsDate:=
                          StrToDate(edTgAwal.Text);
      quJual.ParamByName('PTgAkhir').AsDate:=
                          StrToDate(edTgAkhir.Text);
      //siapkan query
      quJual.Prepare;
      //buka SQL
      quJual.Open;
      //isi variabel dalam bandTitle
      if length(trim(edKodeBrg.Text))=0 then
         edKodeBrg.Text:='%';
     //isi variabel dalam bandTitle
      if edKodeBrg.Text='%' then
        begin
          qrKodeBrg.Caption:='Semua Barang';
          qrNamaBrg.Caption:='';
        end
      else
        begin
          qrKodeBrg.Caption:=edKodeBrg.Text;
          qrNamaBrg.Caption:=edNama.Text;
        end;
      qrPeriode.Caption:=edTgAwal.Text+' s/d '+edTgAkhir.Text;
      if Sender=btPreview then
         //jika event OnClick berasal dari btPreview
         qrCetakJualPerBarang.Preview
      else
         //jika event OnClick berasal dari btCetak
         qrCetakJualPerBarang.Print;
    end;

procedure TFormAbsenkelas.previewklstglClick(Sender: TObject);
var PTgAwal, PTgAkhir : TDateTime;
begin
 
  //jika tanggal kosong, anggap dari awal sampai akhir
  if length(TglAwal.Text)  =0 then
      TglAwal.Text:='01-01-1900';
  if length(TglAkhir.Text) =0 then
      TglAkhir.Text:='01-01-2999';
  //cek input tanggal
  try
    begin
      PTgAwal   :=  StrToDate(TglAwal.Text);
      PTgAkhir  :=  StrToDate(TglAkhir.Text);
    end;
  except
    beep;
    ShowMessage('Input data tanggal tidak sah!'+chr(13)+
                'Format tanggal: dd-mm-yyyy');
    exit;
  end;
  with Uabsenkelasperbulan.AbsenkelasPerbulan do
    begin
      //hapus string SQL lama jika ada
      ADOQabsen.SQL.Clear;
      //buat string SQL baru
      ADOQabsen.SQL.Add('select * from absen');//'+QuotedStr('Jual.DB'));
      ADOQabsen.SQL.Add('where Tgl_absen>=:PTgAwal');
      ADOQabsen.SQL.Add('and Tgl_absen<=:PTgAkhir');
      //set parameter
      ADOQabsen.Parameters.ParamByName('PTgAwal').AsDate  :=//errornya AsDate
                          StrToDate(tglkelasawal.Text);
      ADOQabsen.Parameters.ParamByName('PTgAkhir').AsDate :=//errornya AsDa
                          StrToDate(tglkelasakhir.Text);
     //siapkan query
      ADOQabsen.Prepared;
      //buka SQL
      ADoQabsen.Open;
      //isi variabel dalam bandTitle
      qrPeriode.Caption   :=TglAwal.Text+' s/d '+TglAkhir.Text;
      qrkelas.Caption     := '';
  end;
end;

   with AdoQuery1 do
   Begin
       Close;
       SQL.Clear;
      SQL.Text := 'Select * From t_absen where Tgl_absen BETWEEN :x_tglawal AND :x_tglAkhir 
      // Isikan Parameternya ingat Pake AsDateTime'
   end;