[viv]

من ناحية انه يختصر الوقت أجل هو يختصر الوقت .

تصور هذا الكود انا مثلا عندي منظومة فيها 63 حقل لو اردت فقط في الاضافة سوف اكتب شيئا مثلا

PHP كود :

Try
With    QryEmplye Do
begin
  .Close;
  .SQL.Clear;
  .SQL.Add('Insert Into Emplye(ID,FirstNmame,LastName,Age,City,Phone,Address,FirstNmame,LastName,Age,City,Phone,Address,FirstNmame,LastName,Age,City,Phone,Address,FirstNmame,LastName,Age,City,Phone,Address,FirstNmame,LastName,Age,City,Phone,Address,FirstNmame,LastName,Age,City,Phone,Address,FirstNmame,LastName,Age,City,Phone,Address,FirstNmame,LastName,Age,City,Phone,Address,FirstNmame,LastName,Age,City,Phone,Address,FirstNmame,LastName,Age,City,Phone,Address,FirstNmame,LastName,Age,City,Phone,Address) Values (:ID,:FirstNmame,:LastName,:Age,:City,:Phone,:Address,:FirstNmame,:LastName,:Age,:City,:Phone,:Address,:FirstNmame,:LastName,:Age,:City,:Phone,:Address,:FirstNmame,:LastName,:Age,:City,:Phone,:Address,:FirstNmame,:LastName,:Age,:City,:Phone,:Address,:FirstNmame,:LastName,:Age,:City,:Phone,:Address,:FirstNmame,:LastName,:Age,:City,:Phone,:Address,:FirstNmame,:LastName,:Age,:City,:Phone,:Address,:FirstNmame,:LastName,:Age,:City,:Phone,:Address,:FirstNmame,:LastName,:Age,:City,:Phone,:Address,:FirstNmame,:LastName,:Age,:City,:Phone,:Address)');
// Add Parameters to Query Control
  .ParamByName('ID').Value:= Int;
  .ParamByName('FirstNmame').Value:= Trim(TxtFirstNmame.Text);
  .ParamByName('LastName').Value:= Trim(TxtLastName.Text);
  .ParamByName('Age').Value:= Trim(TxtAge.Text);
  .ParamByName('City').Value:= Trim(TxtCity.Text);
  .ParamByName('Phone').Value:= Trim(TxtPhone.Text);
  .ParamByName('Address').Value:= Trim(TxtAddress.Text);
  .ParamByName('FirstNmame').Value:= Trim(TxtFirstNmame.Text);
  .ParamByName('LastName').Value:= Trim(TxtLastName.Text);
  .ParamByName('Age').Value:= Trim(TxtAge.Text);
  .ParamByName('City').Value:= Trim(TxtCity.Text);
  .ParamByName('Phone').Value:= Trim(TxtPhone.Text);
  .ParamByName('Address').Value:= Trim(TxtAddress.Text);
  .ParamByName('FirstNmame').Value:= Trim(TxtFirstNmame.Text);
  .ParamByName('LastName').Value:= Trim(TxtLastName.Text);
  .ParamByName('Age').Value:= Trim(TxtAge.Text);
  .ParamByName('City').Value:= Trim(TxtCity.Text);
  .ParamByName('Phone').Value:= Trim(TxtPhone.Text);
  .ParamByName('Address').Value:= Trim(TxtAddress.Text);
  .ParamByName('FirstNmame').Value:= Trim(TxtFirstNmame.Text);
  .ParamByName('LastName').Value:= Trim(TxtLastName.Text);
  .ParamByName('Age').Value:= Trim(TxtAge.Text);
  .ParamByName('City').Value:= Trim(TxtCity.Text);
  .ParamByName('Phone').Value:= Trim(TxtPhone.Text);
  .ParamByName('Address').Value:= Trim(TxtAddress.Text);
  .ParamByName('FirstNmame').Value:= Trim(TxtFirstNmame.Text);
  .ParamByName('LastName').Value:= Trim(TxtLastName.Text);
  .ParamByName('Age').Value:= Trim(TxtAge.Text);
  .ParamByName('City').Value:= Trim(TxtCity.Text);
  .ParamByName('Phone').Value:= Trim(TxtPhone.Text);
  .ParamByName('Address').Value:= Trim(TxtAddress.Text);
  .ParamByName('FirstNmame').Value:= Trim(TxtFirstNmame.Text);
  .ParamByName('LastName').Value:= Trim(TxtLastName.Text);
  .ParamByName('Age').Value:= Trim(TxtAge.Text);
  .ParamByName('City').Value:= Trim(TxtCity.Text);
  .ParamByName('Phone').Value:= Trim(TxtPhone.Text);
  .ParamByName('Address').Value:= Trim(TxtAddress.Text);
  .ParamByName('FirstNmame').Value:= Trim(TxtFirstNmame.Text);
  .ParamByName('LastName').Value:= Trim(TxtLastName.Text);
  .ParamByName('Age').Value:= Trim(TxtAge.Text);
  .ParamByName('City').Value:= Trim(TxtCity.Text);
  .ParamByName('Phone').Value:= Trim(TxtPhone.Text);
  .ParamByName('Address').Value:= Trim(TxtAddress.Text);
  .ParamByName('FirstNmame').Value:= Trim(TxtFirstNmame.Text);
  .ParamByName('LastName').Value:= Trim(TxtLastName.Text);
  .ParamByName('Age').Value:= Trim(TxtAge.Text);
  .ParamByName('City').Value:= Trim(TxtCity.Text);
  .ParamByName('Phone').Value:= Trim(TxtPhone.Text);
  .ParamByName('Address').Value:= Trim(TxtAddress.Text);
  .ParamByName('FirstNmame').Value:= Trim(TxtFirstNmame.Text);
  .ParamByName('LastName').Value:= Trim(TxtLastName.Text);
  .ParamByName('Age').Value:= Trim(TxtAge.Text);
  .ParamByName('City').Value:= Trim(TxtCity.Text);
  .ParamByName('Phone').Value:= Trim(TxtPhone.Text);
  .ParamByName('Address').Value:= Trim(TxtAddress.Text);
  .ParamByName('FirstNmame').Value:= Trim(TxtFirstNmame.Text);
  .ParamByName('LastName').Value:= Trim(TxtLastName.Text);
  .ParamByName('Age').Value:= Trim(TxtAge.Text);
  .ParamByName('City').Value:= Trim(TxtCity.Text);
  .ParamByName('Phone').Value:= Trim(TxtPhone.Text);
  .ParamByName('Address').Value:= Trim(TxtAddress.Text);
  .ParamByName('FirstNmame').Value:= Trim(TxtFirstNmame.Text);
  .ParamByName('LastName').Value:= Trim(TxtLastName.Text);
  .ParamByName('Age').Value:= Trim(TxtAge.Text);
  .ParamByName('City').Value:= Trim(TxtCity.Text);
  .ParamByName('Phone').Value:= Trim(TxtPhone.Text);
  .ParamByName('Address').Value:= Trim(TxtAddress.Text);
  .ExecSQL;
  ShowMessage('Ok File is Added');
except on E: Exception do
  ShowMessage('Error');
end;
end; 


طبعا كتابة هذا الكود يدويا مرهقة ، ومكررة فقط .

في الدلفي لا توجد تقريبا الا طريقة واحدة مع كل مصادر البيانات ، المشكلة في الدوت نت تختلف الطرق مثلا طريقة استخدام محول البيانات والداتا ست وما الى ذلك كما يقول البعض هي طريفة قديمة ولا فائدة فيها ، اما من ناحية انشاء فئات ربما نطوره لانشاء فئات .

---

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

فكل المنتدى مثلا تجده ممتلئ بالاسئلة من اشخاص يضعون اكوادهم للاضافة والتعديل او الحذف وفيها مشكلة .
احدهم نسى علامة تنصيص واخر نسى ربط محول البيانات بالداتا سيت واخر نسى امر Open وهكذا

ويمكن انشاء هذا البرنامج لكل هؤلاء ، فاكثر من 40% هذه هي مشاكلهم .
بالنسبة الى تطويره لانشاء فئات اذا كنت سوف تساعدنا بالتوجيه في كيفية الانشاء اخ ابو ليلي فسوف افتح موضوع للبدء فعلا ببرنامج لانشاء الفئات واريدك من الحين الى الاخر فيه لابداء الرأي ، وسيكون العمل جماعي ، او افتح انت موضوع وابداء الخطوات مثلا قل هذا مشروع جماعي ونريد برنامج لانشاء فئة بهذا الشكل لحقول قاعدة بيانات ونبداء نحن
وعندما ننتهي تقول مثلا اضيفوا لها الفئة كذا او اربطوها بالفئة كذا او اشتقوا منها كذا ونحن نعمل