مشروع C# - Vcl.net - Prism

لاحظ العنوان

مشروع تسيير الصيداليات, WINFORM + VCL

واذا قرات الردود الاولي تعرف اننا نقوم بمشروعين في ان واحد.

ولقد قسمنا الى فريقين و طلبت منك سايق ان تكون مع الفريق الذي سيعمل على vcl ززافقت هل نسيت :cry:

لكن كما تريد ان تريد البريسم اعمل عليه

للاسف حاليا لا املك البرايسم و انا اعرف اني اذا انتظرته ليتم تحميله فسوف اتأخر عليكم كثيرا :(

سوف ابدأ معكم في winforms لكن بسي شارب للقيام بالمقارنة

هذا اذا لم يكن في الامر احراج للاخوة :unsure:

مرحبا اخي fkugd2003

على العكس تماما و كما قلت سابقا ان مبرج الدوت نت يجب ان يحسن الثلاثة c# vb.net prism في نضري وايضا نحن بحاجة اي خبتك ايضا .

او علىvcl يكفيك دلفي 2007

السلام عليكم ،،

أخوي زكيري نحتاج الاتي :

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

هل ستعمل على website في البريسم او على winform .

اذا كنتم على الـ website فانا معاكم ، اما اذا كان فـ winform فانا ساشارك الاخ عادل بـ win32

مرحبا اخي طلال

لا استطيع الجواب لكن سانقل السؤال الى منتدي سكل سرفر.

مرحبا اخي محمد :

اقتباس

هل ستعمل على website في البريسم او على winform

لاحظ العنوان

مشروع تسيير الصيداليات, WINFORM + VCL

اقتباس

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

لقد وضعت السكربت ووضعت ما يحب اضافته وربما نجري تغييرات بعدها ايضا .

اقتباس

فانا ساشارك الاخ عادل بـ win32

لكن تاكد اني لااستطيع الكتابة عن win32 هذا لاني عاهدت نفسي ان لا اعمل على win32 ولا استطيع الاجابة عن الاساله ايضا وان اراد الاخ على او او نتم تحويل الكود من بريسم او vcl.net الى win32 لامشكلة عندي المهم هوا ان نفتح موضوع في المنتدي الاخر و نضع فيه الرابطة وان كان هناك نقاش تكتبونه هناك .

كي نفصل بين المنتديين.

اسف لست متشددا لكن هي ارادتي و الله يفقنا الى مافيه الخير .

اما عن الويب ساعتمد عليك في مساعدتي فقد اصبحت احسن مني في هذا المجال وجاري التحليل لاحد مشاريع بسيط لموقع تجاري لبيع اجهزت الكميوتر وهو مشروع تخرج اخينا مسعود الذي الومه لقله مشاركته في المنتدي .- اعرف اننا سنستفيد نته كثيرا لانه OOP وسينعمله على N البرمجه متعدده الطبقات .

اهلا علي هل تحصلت على نتيجه الاستعلام او الاستفسار اي قاءمة الممولون ان كان نعم

الخطوة المواية هي تلوين اسطر DBG_Fournisseurs

تعويض DBN_Fournisseur بازرار ثم برمجتها

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

اهلا بالاخوة لكن لما كل هذا الجدل بسبب الاداة التى سنستخدمها

الغاية هي التعلم وليس انجاز مشاريع احترافية وليس لابراز القدرات

لا تفهموني خطا فانا لست متحيزا لاي طرف من جهتي ساستمر على البريسم لاني اود ان اتقنه وافتح به افقا جديد لي للبرمجة تحت بيئة الدوت نت اما Win32 فقد عملت عليها الكثير من المشاريع والحمد الله وفقني الله الى حد ما

هذا رايي وان توفرت لي الوسيلة ساساعد اخواني بما توفر لي في Win32 والدونت

لكن ساستمر في المشروع مع الاخ زكيري وسنترق الي الشرح في اغلب فترات المشروع لمن اراد البداية معنا

وفقنا الله واياكم

حسننا ساقوم بذلك في المساء ان شاء الله

بعد العودة الي المنزل

مساعدة بسيطة

 

    self[color= #339933;].BindingContext[color= #009900;][BDS_Fournisseurs[color= #009900;]][color= #339933;].Position[color= #339933;]:=[color= #cc66cc;]0[color= #339933;];

self[color= #339933;].BindingContext[color= #009900;][BDS_Fournisseurs[color= #009900;]][color= #339933;].Position[color= #339933;]:=self[color= #339933;].BindingContext[color= #009900;][BDS_Fournisseurs[color= #009900;]][color= #339933;].[color= #990000;]Count[color= #cc66cc;]-1[color= #339933;];

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

المطلوب موضح في الصورة التالية

لاننقل الى نقطه اخري حتي نتحصل على النتيجة بالبريسم و vcl.net

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

لقد اضفت ميتود جديدة في الكلاس الاتصال بالقاعدة

 

METHOD SqlClient[color= #339933;].RunStoredProc[color= #009900;](sProcName[color= #339933;]:string[color= #339933;];sParameters[color= #339933;],sParamVal[color= #339933;]:[color= #990000;]array[color= #009900;][[color= #cc66cc;]0[color= #339933;]..[color= #009900;]] of String[color= #009900;])[color= #339933;]:boo
lean[color= #339933;];

[color= #000000; font-weight: bold;]VAR 

  i[color= #339933;]:Integer[color= #339933;];

BEGIN

      _sqlCmd [color= #339933;]:=[color= #000000; font-weight: bold;]new SqlCommand[color= #009900;](sProcName[color= #339933;], _sqlCnx[color= #009900;])[color= #339933;];

      TRY

      BEGIN

        _sqlCmd[color= #339933;].CommandType [color= #339933;]:= CommandType[color= #339933;].StoredProcedure[color= #339933;];

        [color= #b1b100;]FOR i[color= #339933;]:=[color= #cc66cc;]0 TO sParameters[color= #339933;].Length[color= #cc66cc;]-1 [color= #b1b100;]DO

         _sqlCmd[color= #339933;].Parameters[color= #339933;].Add[color= #009900;]([color= #000000; font-weight: bold;]new SqlParameter[color= #009900;](sParameters[color= #009900;][i[color= #009900;]][color= #339933;],sParamVal[color= #009900;][i[color= #009900;]][color= #009900;]) [color= #009900;])[color= #339933;];

         _sqlCmd[color= #339933;].ExecuteReader[color= #009900;]([color= #009900;])[color= #339933;];

      Result[color= #339933;]:= [color= #000000; font-weight: bold;]true[color= #339933;];

      [color= #990000;]END[color= #339933;];

      EXCEPT ON E[color= #339933;]:Exception [color= #b1b100;]DO 

      BEGIN [color= #666666; font-style: italic;]// gestionErreur(SQLEx);

        [color= #990000;]System[color= #339933;].Windows[color= #339933;].Forms[color= #339933;].MessageBox[color= #339933;].Show[color= #009900;](E[color= #339933;].Message[color= #009900;])[color= #339933;];

      Result[color= #339933;]:= [color= #000000; font-weight: bold;]false[color= #339933;];

      [color= #990000;]END[color= #339933;];

      [color= #990000;]END[color= #339933;];

      _sqlCmd [color= #339933;]:= nil[color= #339933;];

[color= #990000;]END[color= #339933;];

اولا هي قابلة للتعديل لاني لم افكر بها نت قبل

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

او تغييرها

ارجوا المتابعة و السرعة في التنفيذ شاكرا لكم

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

اخي عبد العالي اتمنى ان تتروى قليلا حتى اصل الى المنزل ونقوم بالعمل سوية

اقتباس

تتروى

لم اشرب الماء كثيرا اليوم

ارجوا ان تتكلم بالعربية ياعليلوا امزح ... لي سنوات لم اسمع هذه الكلمة .

لا خلاص قررت اشتغل على نفس هذا الموضوع بدل من فتح موضوع جديد وساعمل معكم على winform .

ساحاول تجميع ملفات المشروع اليوم وبناء قاعدة البيانات وسأبدأ معكم غدا باذن الله .

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

ارجوا الهمه يار جال سيكون مشروع ويب عن قريب مع عطبيق n-tier و التحيل بUML

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

اخي ذكيري اريد الخظوات الاولى فقط للقيام في VCL

هل ابدا Project جديد في Delphi.Net وأضع مكون ِAdo للأتصال ؟؟؟؟

يبدوا ان الاخت هبة الله لن تتخلى عن الديلفي

السلام عليكم

اخ فتحي البرنامج في مرحلته الصفر فكيف تريد ان تحمله .

اخي طلال لقد قدمت لك الرابطة بها وحدة الاتصال ولن نستخدم المكونات لاننا سننشءها برمجيا ارجوا ان تكمل على ما بداته وشكرا

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

ارجوا ان تقوموا الان باضافة الاجراء التلي في قاعدة البيانات سكل سرفر والذي يقوم باضافة ممول جديد .

set ANSI_NULLS ON set QUOTED_IDENTIFIER ON GO
-- =============================================
-- Author:		<Author,,Name>
-- Create date: <Create Date,,>
-- Description:	<Description,,>
-- =============================================
ALTER procedure [dbo].[AddFournisseurProc] 
(
@Nom       varchar(50),
@Telephone varchar(20),
@Adresse   varchar(50),
@Email     varchar(50),
@SiteWeb   varchar(50),
@Situation varchar(10),
@Remarques varchar(50)
)
AS BEGIN INSERT INTO Fournisseurs 
   (Nom,Telephone,Adresse,Email,SiteWeb,Situation,Remarques)
   VALUES
   (@Nom,@Telephone,@Adresse,@Email,@SiteWeb,@Situation,@Remarques) 
END

هكذا

اخي طلال هل الامور واضحة في vcl .net

ان لديك اشكال ان في الخدمت .

2-المطلوب انشاء الفور الجديد لاجراء عملية اضافة و تغيير الممول

اخي ذكيري

اريد فقط البدايه

ابدأ بماذا project to vcl . ثم form أم ماذا

أي رابطه تقصد للأتصال برمجيا وأين أكتب الاكواد في

انا كنت قد قمت باتصال ناجح مع قاعدت البيانات عن طريق Ado

اخي ذكيري فقط البدايه لو سمحت

السلام عليكم

تمت الاضافة

بعض الملاحظات التي فكرت فيها

الواجهة بالعربية لذلك نحتاج تفعيل خصائص قلب النافذة

قم بتفعيل الخاصيات

RightToLeft = True

RightToLeftLayout = true

شيئ اخر بخصوص الرسائل message box يمكن تحويلها الى الاتجاه العربي

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

private void BDS_Fournisseurs_CellContentClick(object sender, DataGridViewCellEventArgs e)
		{
			if (BDS_Fournisseurs.CurrentCell.OwningColumn.DataPropertyName == "Remarques") {
				string TextRemarques = ((BDS_Fournisseurs.CurrentRow.DataBoundItem as DataRowView).Row as DataDataSet.FournisseursRow).Remarques;
				MessageBox.Show(TextRemarques, "الملاحظات", MessageBoxButtons.OK,MessageBoxIcon.Information, MessageBoxDefaultButton.Button1,MessageBoxOptions.RtlReading | MessageBoxOptions.RightAlign);

			}

		}

لا تنس ان تغير الخصائص التالية

اخي الكريم وهذه على Vcl.net أم على البريسم