02-07-2015, 10:54 AM
تحية طيبة و رمضان كريم
عندي هذا الكود ينقل البيانات من جدول الى جدول لكل عملية نقل اقوم بضغظ الزر
احتاج الى عمل حلقة تكرارية للكود بعدد سجلات الجدول الاول بحيث ينقل بظغطة واحدة
عندي هذا الكود ينقل البيانات من جدول الى جدول لكل عملية نقل اقوم بضغظ الزر
احتاج الى عمل حلقة تكرارية للكود بعدد سجلات الجدول الاول بحيث ينقل بظغطة واحدة
كود :
procedure TForm40.Button3Click(Sender: TObject);
begin
ABSTable1.open;
if not ABSTable1.locate('date',dbedit1.text,[]) then
begin
ABSTable1.Append;
ABSTable1.FieldByName('date').Value:=dbedit1.Text;
ABSTable1.FieldByName('tim1').Value:=dbedit2.Text;
ABSTable1.FieldByName('taw1').Value:=dbedit3.Text;
ABSTable1.FieldByName('tim2').Value:=dbedit4.Text;
ABSTable1.FieldByName('taw2').Value:=dbedit5.Text;
ABSTable1.Post;
ADOquery1.Next;
end elSe
ShowmeSSage('هذا السجل موجود بالفعل ');
end;