Arkadaşlar burda ki hata ne ya formu alt üst ettim sorunu bulamadım
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
sabit : array of array of string;
bayi, altbayi,ax,bx, sonuc : Integer;
TAR1,TAR2:string;
begin
SetLength(sabit, 2);
SetLength(sabit[0], 3);
SetLength(sabit[1], 3);
sabit[0,0]:='aaa';
sabit[0,1]:='abb';
sabit[0,2]:='acc';
sabit[1,0]:='bbb';
sabit[1,1]:='baa';
sabit[1,2]:='bbb';
//Tarihleri Ata
TAR1 := JvDateEdit1.EditText;
TAR2 := JvDateEdit2.EditText;
ax:=0;
bx:=0;
for bayi:=0 to length(sabit) do
begin
try
MyQuery1.Close;
myquery1.SQL.Clear;
MyQuery1.SQL.Text:='select bayi, alt_bayi, sat_tar from cari where SAT_TAR between :STAR1 and :STAR2 and BAYI like ''%' + sabit[ax,0] + '%''';
Myquery1.Params[0].value := StrToDate(TAR1);
Myquery1.Params[1].value := StrToDate(TAR2);
myquery1.Open;
memo1.Lines.add(sabit[ax,0]+IntToStr(myquery1.RecordCount));
ax:=ax+1;
except
showmessage('hata var');
end;
end;
for altbayi:=0 to length(sabit) do
begin
try
MyQuery1.Close;
myquery1.SQL.Clear;
MyQuery1.SQL.Text:='select bayi, alt_bayi, sat_tar from cari where SAT_TAR between :STAR1 and :STAR2 and ALT_BAYI like ''%' + sabit[ax,bx] + '%''';
Myquery1.Params[0].value := StrToDate(TAR1);
Myquery1.Params[1].value := StrToDate(TAR2);
myquery1.Open;
memo1.Lines.add(sabit[ax,bx]+IntToStr(myquery1.RecordCount));
ab:=ab+1;
except
showmessage('hata var');
end;
end;