MEMBUAT LAPORAN PERBULAN

procedure TForm52.BitBtn5Click(Sender: TObject);

VAR
A,B,C,d,f:STRING;
e:integer;
begin
CLOSE;

IF COMBOBOX1.ItemIndex=0 THEN A:='01'
ELSE IF COMBOBOX1.ItemIndex=1 THEN A:='02'
ELSE IF COMBOBOX1.ItemIndex=2 THEN A:='03'
ELSE IF COMBOBOX1.ItemIndex=3 THEN A:='04'
ELSE IF COMBOBOX1.ItemIndex=4 THEN A:='05'
ELSE IF COMBOBOX1.ItemIndex=5 THEN A:='06'
ELSE IF COMBOBOX1.ItemIndex=6 THEN A:='07'
ELSE IF COMBOBOX1.ItemIndex=7 THEN A:='08'
ELSE IF COMBOBOX1.ItemIndex=8 THEN A:='09'
ELSE IF COMBOBOX1.ItemIndex=9 THEN A:='10'
ELSE IF COMBOBOX1.ItemIndex=10 THEN A:='11'
ELSE IF COMBOBOX1.ItemIndex=11 THEN A:='12';

if combobox1.Text='' then showmessage('PiliH Hela Atth????')
else
begin
b:=SpinEdit1.Text;
c:='01';
d:=a+'/'+c+'/'+b;
f:=FormatDateTime('dd/mm/yyyy',strtodate(d)+30);
datamodule47.ADODataSet5.Filter:='tgl >='+Quotedstr(d)+
'AND tgl <='+Quotedstr(f);
datamodule47.ADODataSet5.FilterED:=TRUE;
//quickreport9.Preview;

end;

komponen yang di perlukan:

1.COMBOBOX1

2.SpinEdit1

3.BitBtn5

tp sebelumnya saya minta maf gan al nya laporan ini tersebut saya coba belom berhasil juga kan agan-agan bisa pelajarin lebih lanjut :)