Kod: Tümünü seç
while not ADOQCari.eof do
begin
CBCariKodu.items.add(ADOQCari.fieldbyname('OZELKODU').asstring);
ADOQCari.next;
end;
Kod: Tümünü seç
while not ADOQCari.eof do
begin
CBCariKodu.items.add(ADOQCari.fieldbyname('OZELKODU').asstring);
ADOQCari.next;
end;
Kod: Tümünü seç
CBCariKodu.Items.clear;
CBCariUnvani.Items.clear;
while not ADOQCari.eof do
begin
CBCariKodu.ItemIndex:=(ADOQCari.fieldbyname('RECORDNO').asinteger);
CBCariKodu.items.add(ADOQCari.fieldbyname('SPECODE').asstring);
CBCariUnvani.ItemIndex:=(ADOQCari.fieldbyname('RECORDNO').asinteger);
CBCariUnvani.Items.Add(ADOQCari.FieldByName('DEFINITION').asstring);
ADOQCari.next;
end;
CBCariKodu.ItemIndex:=0;
CBCariUnvani.ItemIndex:=0;