نسخ حقل من جدول الي اخر

[galag8]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله تعالي وبركاته

اذا كان لدي جدولين في الاكسس وبهما الحقول التاليه
جدول1 به
الاسم _ الرقم _ تاريخ الميلاد

جدول2 به
الاسم _ الرقم _ تاريخ الميلاد

اي ان الحقول مكرره في الجدولين

وقمت بادخال سجل في الجدول1
كيف يمكن بضغطه زر واحده ان اقوم بنقل السجل الذي قمت ب إدخاله في جدول1 الي جدول 2
بالدلفي .اي عمل نسخ من الجدول الاول الي الجدول الثاني.

وبارك الله فيكم.

[kachwahed]

وعليكم السلام ورحمة الله وبركاته

اي ان الحقول مكرره في الجدولين

قبل انطلاق أي مشروع قواعد بيانات ينبغي إعداد نموذج للجداول والعلاقات
وعند تصميم النموذج ينبغي ألا نجد جداول مكررة ولا نضطر فيما بعد لتكرار سجلات
وبالتالي لن نضطر لعمل مثل هذا.
حاول إعادة صياغة الجداول بطريقة أخرى، بحيث مثلا يكون:
الاسم _ الرقم _ تاريخ الميلاد
في جدول منفرد ثم يرتبط الجدولان به من حقل غريب (Foreign key).

هذا الإجراء يقوم بتكرار السجل في نفس الجدول:

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  QueryCopy: TQuery;
begin
    QueryCopy := TQuery.Create(Self);
  with QueryCopy do
    begin
      DatabaseName := Table1.DatabaseName;
      SQL.Clear;
      SQL.Add('SELECT * FROM biolife');
      Open;
      Bookmark := Table1.Bookmark;
    end;
  try
    With QueryCopy do
    begin
      Table1.Append;
      Table1.Fields.Fields[0].AsInteger := Table1.RecordCount +1;
      for i := 1 to  FieldCount -1 do
        Table1.Fields.Fields[i].assign(Fields.Fields[i]);
      try
        Table1.Post;
      Except on Exception do
        Table1.Cancel;
      end;
    end; // with
  finally
    QueryCopy.Free;
  end;
end; 


إجراء آخر،بطريقة أخرى:

PHP كود :

procedure DuplicateCurrentRecord(FirstField: Variant; aDataSet : TDataSet);
var
  Data : array of variant;
  aRecord : array of TVarRec;
  i : integer;
  max : integer;
begin
  max := aDataSet.fields.count -1;
  // set the lenghth of the arecord array to be the same as the number of
  // elements in the data array
  SetLength(aRecord, max+1);
  SetLength(Data, max+1);

  // set the variant type pointers to the data array
  for i := 0 to max do
  begin
    aRecord[i].VType := vtVariant;
    aRecord[i].VVariant := @Data[i];
  end;

  // Copy the Record to the Array
  for i := 1 to max do
    Data[i] := aDataSet.fields[i].value;
    Data[0] := FirstField;

  // finally append the record in one go
  aDataSet.AppendRecord(aRecord);
end; 


بالتوفيق.

[galag8]

سلام عليكم

لكن اذا كان لدي موظفين وانتهت فتره خدمتهم بالموسسه لكن لا **** مسحهم من الجدول بحيث اذا احتجت الي معلوماتهم اقوم بالرجوع لها لكن في نفس الوقت اود وضعهم في جدول منفصل مثلا يسمي الارشيف لذلك اقوم بنقلهم من الجدول الرئيسي الي جدول الارشيف هل من طريقه اخري غير هذه.

[nabilkeb]

قد يفيدك هذا أيضــا : راجع العنصر الخامس هنــــــــــــــــا
راجع أيضا الصفحة 69 من كتاب لغة البرمجة دلفي لمحمد خالد ناصر آغا .


بالتوفيق أحي العزيز .

[محمد عبد العزيز]

ان لدي موظفين وانتهت فتره خدمتهم بالموسسه

ضف للجدول حقل منطقي Boolean
ضع به القيمة True في حالة كان يعمل
ضع القيمة False في حال ترك العمل
وفي تعاملك مع الجدول خذ بعين الاعتبار ذلك الحقل بحيث يظهر فقط المستخدمي ذوي القيمة True
وبالتوفيق

[galag8]

شكرا للجميع وبارك الله فيكم

اذا في هذه الحاله سادخل الحقل المنطقي في جميع عمليات الفلتره التي اقوم بها بحيث يقوم بالفلتره فقط للذين لهم القيمه true اليس كذلك؟

[محمد عبد العزيز]

نعم، في اي تعامل مع الجدول، فلترة او استعلام sql
وبالتوفيق