SELECT DISTINCT D.Tahun, D.Januari, d1.IdCustomer, d1.Nama, D2.Januari
FROM "pembayaran.DB" D, "customer.db" d1, "pemakaian.DB" D2
WHERE
(d1.IdCustomer = D.IdCustomer)
 AND (D2.IdCustomer = d1.IdCustomer) AND (D.Tahun = :thn)
ORDER BY d1.IdCustomer 

procedure TForm2.Button5Click(Sender: TObject);
var
begin
   DM.QReport.Close;
   DM.QReport.ParamByName('thn').AsInteger := StrToInt(CBTahunLaporan.Text);
   DM.QReport.open;
   LapBulananSQL.QRBulan.Caption := CBBulanLaporan.Text;
   LapBulananSQL.QRTahun.Caption := CBTahunLaporan.Text;
   LapBulananSQL.Preview;
end;

D.Januari

D.:bulan

tapi koq yang muncul semua tahun, ga spesifik tahun dari CBTahunLaporan

D.Januari

D.:bulan

procedure TForm2.Button5Click(Sender: TObject);
begin
  with DM.QReport, LapBulananSQL do
  begin
    Close;
    SQL.Text:=Format('SELECT DISTINCT D.Tahun, D.%s, d1.IdCustomer, d1.Nama, D2.Januari '+
                     'FROM "pembayaran.DB" D, "customer.db" d1, "pemakaian.DB" D2 '+
                     'WHERE (d1.IdCustomer = D.IdCustomer) AND (D2.IdCustomer = d1.IdCustomer) AND (D.Tahun=%s) '+
                     'ORDER BY d1.IdCustomer',);
    Open;
    QRBulan.Caption := CBBulanLaporan.Text;
    QRTahun.Caption := CBTahunLaporan.Text;
    Preview;
  end;  
end;

  SELECT DISTINCT D.Tahun, :bulan, d1.IdCustomer, d1.Nama, :bulan2 '+
  'FROM "pembayaran.DB" D, "customer.db" d1, "pemakaian.DB" D2 '+
  'WHERE (d1.IdCustomer = D.IdCustomer) AND (D2.IdCustomer = d1.IdCustomer) AND (D.Tahun=:tahun) '+
  'ORDER BY d1.IdCustomer',);

 DM.QReport.ParamByName('bulan').AsString := concat('D:'+CBBulanLaporan.Text);
DM.QReport.ParamByName('bulan2').AsString :=concat('D:'+CBBulanLaporan.Text);
 DM.QReport.ParamByName('thn').AsInteger := StrToInt(CBTahunLaporan.Text);