كيف يتم ادراج (المبلغ) من جدول ثاني في التسجيل الأول ؟

[justnick]

نفترض ان الجدول الذى يحمل القيمة النهائية يسمى table_1 والجدول الحالى يسمى table_2
جدول 2 او table 2 به الاعمدة qty_1 و qty_2 والnet_qty

سنعتد بشكل اساى على جمل ال sql
استخدم edit من اجل ادخال القيمة وفى الحدث onkeypress اكتب الاجرلء الاتى
"هذه مجرد طريقة "

PHP كود :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
  with ADOQuery1 do
  begin
    close;
    sql.Clear;
    sql.Text:='select net_qty from table_1';
    open;
  end;
  with ADOQuery2 do begin
    close;
    sql.Text:='insert into table_2 (qty_1,qty_2,net_qty) values ('+
               QuotedStr(edit1.Text)+','+
               QuotedStr(ADOQuery1.FieldByName('net_qty').AsString)+','+
               QuotedStr(floattostr(ADOQuery1.FieldByName('net_qty').Asfloat - strtofloat(Edit1.Text)))+')';
    sql.Add('update table_1 set net_qty ='+
    QuotedStr(floattostr(ADOQuery1.FieldByName('net_qty').Asfloat - strtofloat(Edit1.Text)))) ;
    ExecSQL;
  end;

end;
end; 


ادخل قيمة ثم اضغط على انتر "Enetr key =#13"
وانظر ماذا ترى