كيفيه نسخ ملف من مكان الى مكان

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

اقتباس

شاكر جداا لكل من رد على الموضوع

1-هذا واجبي ...

2- سوف أقوم ببرمجة مثال صغير لك لتستفيد منه .. و إن شاء الله اليوم مساء سأكون قد حملته على المنتدى و لا يهمّك ...

المبرمج عماد .. B) B) B)

اقتباس

يمنع منعا باتا توجيه السؤال الي شخص بعينه لان هذا قد يدفع الاخرين الي عدم

الاجابة ،و الهدف هو التفاعل من الجميع.

قواعد طرح الأسئلة و المشاركات

يعطيك العافية يا أخ MoaM :

شكراً على ملاحظتك التي في محلها و إني أظن أن الأخ mo_zamzam لم يقصد ذلك خاصة

أنه عضو جديد كما تلاحظ ..

على كل حال حصل خير ..

المبرمج عماد .. B) B) B)

إلى الأخ mo_zamzam سوف يحل هذا المثال مشكلة من أساسها بس حمل الملف المرفق عندها ستعرف ما أقصد ..

هذا السورس أولاً ..

المبرمج عماد .. B) B)

Test.zip

و هذا الملف التنفيذي ...

المبرمج عماد ... B) B) B)

Project.rar

اولا انا اسف عن الخطاء الغير مقصود

وشاكر جداا للاخ عماد على الرد

الى الاخ عماد

اشكرك على الاجابه رغم انشغالك و على الفكره المبسطه

ممكن ارخم و اطلب ذياده

ممكن احدد عدد من الصفوف و اضيف او اجمع رقم علىحقل اى دى بحيث يتم الترقيم فى الجول الثانى متسلسل

سؤال اخر

لو هناك قاعده بيانت اخرى فى ماكان اخر هلى يمكن تحويل البيانات

ممكن عمل الحقل اى دى تلقائى الترقيم

ممكن عمل نموذج طباعه لمحتويات الجدول الاول او جزء من محتوياته

ممكن ارسال المشروع الجديد

السلا م عليكم :

هل تقصد أن يكون الحقل ترقيم تلقائي ؟؟

إذا كان هذا ما تقصده فهذا الأمر هو من بنية القاعدة وليس من البرنامج أنا سألقي نظرة فيما إذا

كان هناك حقل ترقيم تلقائي في الـ InterBase و أنت إبحث أيضاً و حاول و إن شاء الله سيكون خير ! ولكن حسب ذاكرتي أنني لم ألحظ وجود ترقيم تلقائي في القاعدة InterBase >>>

كما أرجو منك أخ mo_zamzam أن تكتب الأسئلة مرة أخرى لأن الخط مش نظامي .

المبرمج عماد .. B) B)

السلام عليكم

نعم اقصد ان يكون حقل ID

ترقيم تلقائى

هل من الممكن ان احدد عدد من الصفوف فى الجدول الاول و تحويلهم الى الجدول الثانى

و اذا كان يوجد قاعده بيانات اخرى فكيف يتم نقل جزء من جدول الى نفس الجدول فى قاعده البيانات الاخرى

و هل من الممكن ان تقوم بعمل نموذج للطباعه الجدول كله او جزء منه محدد على نفس المشروع

1- إنشاء نسخة احتياطية

procedure TForm1.Button1Click(Sender: TObject);
begin
 with IBRestoreService1 do
  begin
    ServerName := 'InterBase';
    LoginPrompt := False;
    Params.Add('user_name=sysdba');
    Params.Add('password=masterkey');
    Active := True;
    try
      Verbose := True;
      Options := [Replace, UseAllSpace];
      PageBuffers := 3000;
      PageSize := 4096;
      DatabaseName.Add('d:\DB.gdb');

      BackupFile.Add('d:\DB.gbk');
      ServiceStart;
      While not Eof do
        Memo1.Lines.Add(GetNextLine);
    finally
      Active := False;
    end;
  end;

end;

2- استرجاع النسخة الإحتياطية من عدة ملفات

procedure TForm1.Button3Click(Sender: TObject);
begin
 with IBRestoreService1 do
  begin
    ServerName := 'InterBase';
    LoginPrompt := False;
    Params.Add('user_name=sysdba');
    Params.Add('password=masterkey');
    Active := True;
    try
      Verbose := True;
      Options := [Replace, UseAllSpace];
      PageBuffers := 3000;
      PageSize := 4096;
      BackupFile.Add('c:\temp\e1.gbk');
      BackupFile.Add('c:\temp\e2.gbk');

      BackupFile.Add('c:\temp\e3.gbk');
      DatabaseName.Add('d:\DB.gdb');
      ServiceStart;
      While not Eof do
        Memo1.Lines.Add(GetNextLine);
    finally
      Active := False;
    end;
  end;
end;

المبرمج عماد ..... B) B)

أخ mo_zamzam :

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

أولاً أرجو المعذرة عن عدم الرد على تساؤلك الأخير السبب هو إنشغالي بقدوم أخي من السفر ..

على كل حال إن شاء الله سأحاول مساعدتك في أقرب وقت ..

أرجو الدعاء ..

المبرمج عماد .. B) B)

السلام عليكم هذا يا إخوة تحديث على البريمج السابق حول نقل بيانات قاعدة إلى قاعدة أخرى

أتمنى فيه الفائدة للجميع ........

المثال يحوي سورس + تنفيذي

المبرمج عماد .... B) B)

Example.zip

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

للاخ عماد

ممكن شرح لو امكن

procedure TForm1.SpeedButton1Click(Sender: TObject);

var

i : integer ;

str : string ;

begin

with IBTable1 do

begin

IBSQL1.ExecQuery ;

First ;

while not IBTable1.Eof do

begin

IbTable2.Insert ;

with IBQuery1 do

begin

Close;

Open ;

str := Fields.Fields[0].AsString ;

end;

if(str = '')then

str := '1'

else

str := IntToStr(StrToInt(str)+ 1) ;

IBTable2.Fields[0].Value := str ;

for i:= 1 to IbTable2.Fields.Count - 1 do

IBTable2.Fields.Fields.Value := Fields.Fields.Value ;

IbTable2.Post ;

Next ;

end;

IbTable2.Refresh ;

Application.MessageBox('The Data has been Transfered Successfully','assurance',MB_OK);

السلام عليكم و رحمة الله : هذا ما تيسًر لي من شرح أرجو أن يفي بالغرض ........

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
 i : integer;
 str : string;
begin
with IBTable1 do
begin

// تنفيذ عبارة الـ sql الموجودة ضمن الـ IBSQL1
// وهي حذف جميع السجلات من الجدول الذي سيتم نقل البيانات إليه

IBSQL1.ExecQuery; 

// الذهاب إلى أول سجل من الجدول الذي يحوي على السجلات 

First;
while not Eof do

// طالما لم نصل إلى نهاية السجل قم بما يلي

begin

// أدخل سجل جديد في الجدول الذي سيتم نقل سحل إليه

IbTable2.Insert;

with IBQuery1 do
begin

// هاتان العمليتان لجلب أعلى قيمة من حقل الـ ID صاحب الترتيب 0 من بين الحقول 

  Close;

 // إغلاق مجموعة السجلات 

  Open;

 // فتحها من جديد أي تنفيذ الإستعلام

  str := Fields.Fields[0].AsString;  

// وضع قيمة الحقل في متحول نصي

end;

if(str = '')then

 // إذا كانت القيمة " أي لا يوجد سجلات في الجدول الذي سيتم نقل البيانات إليه فهذا السجل المنقول هو أول سجل

 str := '1'

 // وبالتالي ترتيبه 1

else

 // أي هناك سجلات وعاد الإستعلام بأكبر ID في الجدول

 str := IntToStr(StrToInt(str)+ 1);

 // نضيف إليه 1 ثم نستخدمه في السجل الجديد

IBTable2.Fields[0].Value := str; 

 // إسناد القيمة للحقل الذي ترتيبه 0 أي ID في السجل الذي أدخلناه سابقاً 
//   IbTable2.Fields.Count : عدد الحقول في الجدول الذي سيتم نقل البيانات إليه
// بما أن الحقل ID الذي ترتيبه 0 قد تم إعطاؤه قيمة فهذا يعني أن الحلقة من 1 إلى عدد الحقول - 1

for i:= 1 to IbTable2.Fields.Count - 1 do

// إسناد قيمة الحقل ذو الترتيب i من الجدول الأول إلى الحقل المقابل من الجدول الثاني

  IBTable2.Fields.Fields.Value := Fields.Fields.Value;

// بعد إعطاء كل حقل قيمته نرسل السجل الذي أعطيناه قيمه إلى قاعدة البيانات

IbTable2.Post;

// الإنتقال إلى السجل الثاني من الجدول الأول  .. وهكذا

Next;
end;

// بعد الإنتهاء من حلقة الـ While
// تحديث بيانات الجدول الثاني

IbTable2.Refresh;
Application.MessageBox('The Data has been Transfered Successfully','assurance',MB_OK);

المبرمج عماد .. B) B)

الاخ عماد مشكرورر على الشرح

لو اردنا عمل (set GENERATOR "CUS_ID" to اعلى قيمه فى حقل id;) مع التحويل

هل من الممكن نقل بيانات جدولين

الجدول الاول ثم الجدول الثانى الة جدولين مشابهين

السلام عليكم ورحمه الله

الموضوع يا اخ عماد هو

انا عندى برنامج قاعده البيانات INTERBASE و نعمل على اكثر من جهاز نريد تجميع بيانات كل جهاز على جهاز واحد فقط

انا مبتدء فى الدلفى 7 اعرف بعض الاستخدامات قمت بعمل برنامج ضغير يقوم بالاستعلام او التعديل او المسح فى بعض الجداول او الجمع بين جدولين

و

كيف يمكن نسخ اى ملف نختاره من مكان على الهارد الى اى مكان نختاره

مع عمل تغير للاسم المنسوخ بوضع اسم الملف الاصلى + تاريخ اليوم و الوقت الذى تم النسخ فيه بحث فى كل مره يتم النسخ يضع الملفات بالترتيب وليس مسح الملف القديم

أخي العزيز

ابحث في المنتدى قبل وضع السؤال ...

هناك الكثير من المواضيع حول نسخ الملفات و المجلدات ...

حظ موفق

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

أخي الكريم mo_zamzam فقط ضمن محرر الشيفرة أكتب كلمة File ثم إضغط على المفتاحين Ctrl + Space

عندها سترى عدد الدوال الموجودة للتعامل مع الملفات ...

ومنها :

CopyFile لنسخ ملف من مكان إلى اّخر بالتسمية الجديدة التي تريد ... الله يوفقك ..

عماد .. B) B)