Uygulamam gereken işlem bu ; ''Aidat tanımlarının veri girişlerini yaptığınız yerde dairelerin yer aldığı bir combobox yerleştirerek seçilen dairenumarasını da ele alarak aidat kaydını yapmalısınız.''
Kod: Tümünü seç
procedure TForm7.Button1Click(Sender: TObject);
var
daireNo: variant;
begin
DataModule8.Qaidat.First;
while not DataModule8.Qaidat.EOF do
begin
DataModule8.Qdaire.Open();
daireNo:=DataModule8.Qdaire.Lookup('OTURAN', DataModule8.Qaidat.fieldByName('AÇIKLAMA').AsString.ToLower, 'DAİRENO');
if not(VarIsNull (daireNo)) then
begin
DataModule8.Qaidat.FieldByName('DAİRENO').AsString:=daireNo[0];
DataModule8.Qaidat.Edit;
DataModule8.Qaidat.Post;
end;
DataModule8.Qaidat.Next;
end;