الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

رائج
بدأه mohfa في 28 يناير 2009 · 445 رد · 47,607 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#76

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

1- مرحلة الشراء اي كل ما يتعلق بواجهات عملية الشراء حتي نصل الى المخزون .

2-مرحله البيع وهي الواجهات المستعملة الى ان ينصرف الزبون ونغير حاله المخزون .

اذن قنا ان المشروع سيتم عمليه على winform - vcl.net ان شاء الله سنبدأ ب اليوم بعد ان ارتب العمل :

بحاجة نحن الى فريقين :

1- على winform انا و الاخ على ...

2- فريق على vcl القاءمة مفتوحة ....

#77
زكيري عبد العالي كتب:
بارك الله فيك اخي عادل ارى ان البرنامج بسيط ودون تعقيدات وابااستنتجت اننا يمكن تقسيمه المشروع الى جزئبن

1- مرحلة الشراء اي كل ما يتعلق بواجهات عملية الشراء حتي نصل الى المخزون .

2-مرحله البيع وهي الواجهات المستعملة الى ان ينصرف الزبون ونغير حاله المخزون .

اذن قنا ان المشروع سيتم عمليه على winform - vcl.net ان شاء الله سنبدأ ب اليوم بعد ان ارتب العمل :

بحاجة نحن الى فريقين :

1- على winform انا و الاخ على ...

2- فريق على vcl القاءمة مفتوحة ....

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

اسف اخ عبد العالي ولكن بالنسبة الي DELPHI7+ACCESS

كما قلت سابقا .NET اعتدر

ubuntulogo.png

Be Free

#78

السلام عليكم

أخوي زكيري انا معاكم على winform

#79

اذا ثلاثة على winform انا والاخوين زكيري وابومحمد

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

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#80

مرحبا بك اخي محمد سنبدأ فريبا

#81

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

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

1-مرحلة ادخال الادويه الى المخزون

ملف الممول سنضيف الحقول التاليه الى القاعدة لاني المايل و الموقع مهمين ايضا

الواجهة : اري ان واجهة الاخ عادل جيدة و لكي لا نضيع الوقت ايضا .

اذا كما نلاحظ انه هناك جزء ايمن نضع فيه الازرار هو من نوع panel

الجزء الايسر به panel بها tabpage + panel 3 نضع فيها الازرار

الاضافة و التغيير

post-1034-1237563919_thumb.jpg

تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 20 مارس 2009 في 18:45

#82

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

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

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

وقد اخذت هذه النقطة في المرفق

WindowsApplication1.rar

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#83 
 

method MainForm[color= #339933;].btn_Fournisseur_Click[color= #009900;](sender[color= #339933;]: [color= #990000;]System[color= #339933;].Object[color= #339933;]; e[color= #339933;]: [color= #990000;]System[color= #339933;].EventArgs[color= #009900;])[color= #339933;];

begin

     tabC_Princpal[color= #339933;].SelectedIndex[color= #339933;]:=[color= #cc66cc;]0[color= #339933;];

[color= #990000;]end[color= #339933;];
#84

انا جهزت SQL Server مع ديلفي 2007 مؤقتا فقط , وفي الغد إن شاء الله سيكون ديلفي 2009 جاهز.

اذا اين العمل

9780672308512_150x150.jpg

TIB.Talal Belal . Syria

#85

مرحبا اخي طلال سررت يوجودك معنا في المشروع .

2007 يكفيك ان كنت ستعمل على VCL مع الاخ عادل

اذن سيكون جدول الممول كمايلي

post-1034-1237605290_thumb.jpg

تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 21 مارس 2009 في 06:14

#86

المعطيات

1-وضع كلاس الاتصال ب sql server و الموجودة في الدروس .

المطلوب

2-عمل الاتصال اي عند النقر على زر الممول نقم بعرض محتوي الجدول بالاستعلام او الاستفسار التالي 

SELECT     idx, Nom, Telephone, Adresse,Email,SiteWeb,Situation,Remarques
FROM         Fournisseurs
#87

مفهوم اخي ذكيري

9780672308512_150x150.jpg

TIB.Talal Belal . Syria

#88

مرحبا بك معنا اخ طلال

ولكن نتطلع ان تعمل على البريسم ايضا

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

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#89

مرحبا اخي علي

سأعمل إن شاء الله ,على البريسم

9780672308512_150x150.jpg

TIB.Talal Belal . Syria

#90

اين وصلت الامور هل تم الاتصال sqlserver

اقتباس
ولكن نتطلع ان تعمل على البريسم ايضا

ومن سعمل على vcl

هناك مشروع واب عن قريب ارجوا ان تعملوا بجد وسرعة ايضا

تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 21 مارس 2009 في 11:39

#91

الاتصال مع sql server في الدروس السابقة , هو عن البريسم

هل هو نفسه

9780672308512_150x150.jpg

TIB.Talal Belal . Syria

#92

اهلا اخي طلا ل ساشرح طريقه الرط مع اسكل سرفر عن طريق ADO

#93

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

كيف الحال اخواني الكرام

اخي عبد العالي اتممت الربط الان وبانتظار الشرح

والملاحظات

اما الان فاظن انه قد وجب علينا تشكيل النافذة الخاصة باضافة الممولين وبعدها نافذة التعديل

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

Gpharm.rar

تم تعديل هذه المشاركة بواسطة علي .ع في 21 مارس 2009 في 18:00

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#94

اهلا اخي علي

بالمناسبة لم افهم شيئ من المرفق , كل هذا مازلنا في الخظوة الاولى

بانتظار الشرح من الاخ ذكيري كي ابدأ أول الطريق

9780672308512_150x150.jpg

TIB.Talal Belal . Syria

#95

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

اهلا طلال هنا مثال يشبه ما عملنا ه في اليرسم كي تكون لك تصور و تجري الفرق بينهما

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

شكرا

Projets.rar

#96

DBG_Fournisseurs

DS_Fournisseurs

DBN_Fournisseurs

BTN_AllFournisseurs

BTN_ADDFournisseurs

BTN_UPDATFournisseurs

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

انت يا علي علي البريسم و انت يا طلال على vcl.net و ننتضر الاخ عادل كي يعطينا ايضا win32 .

#97

الشرح للوطائف التاليه

في VCL

 

[color= #000000; font-weight: bold;]Function To_SqlConection[color= #339933;].connect[color= #009900;](sConnexion[color= #339933;]:String[color= #009900;])[color= #339933;]:Boolean[color= #339933;];

BEGIN

        sqlCnx[color= #339933;]:= TADOConnection[color= #339933;].Create[color= #009900;](nil[color= #009900;])[color= #339933;];

      TRY

        sqlCnx[color= #339933;].ConnectionString[color= #339933;]:=sConnexion[color= #339933;];

        sqlCnx[color= #339933;].Open[color= #009900;]([color= #009900;])[color= #339933;];

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

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

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

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

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

بريسم 

 

METHOD SqlClient[color= #339933;].connect[color= #009900;](sConnexion[color= #339933;]:String[color= #009900;])[color= #339933;]:Boolean[color= #339933;];

BEGIN

      TRY

      _sqlCnx[color= #339933;].ConnectionString [color= #339933;]:= sConnexion[color= #339933;];

      _iNbCols [color= #339933;]:= [color= #cc66cc;]0[color= #339933;];

      _iNbRows [color= #339933;]:= [color= #cc66cc;]0[color= #339933;];

      _sqlCnx[color= #339933;].Open[color= #009900;]([color= #009900;])[color= #339933;];

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

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

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

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

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

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

TADOConnection ---vcl SqlConnection ---prism

هدفهما واضح

. الخاصية Open للمكونين تسمح يفتح الاتصال .

تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 21 مارس 2009 في 19:30

#98 
 

METHOD SqlClient[color= #339933;].Remplir[color= #009900;](sSQL[color= #339933;]:string[color= #009900;])[color= #339933;]:string[color= #339933;];

      BEGIN

      _sqlDs[color= #339933;].Clear[color= #009900;]([color= #009900;])[color= #339933;];

      TRY

      _sqlDA [color= #339933;]:= [color= #000000; font-weight: bold;]new SqlDataAdapter[color= #009900;](sSQL[color= #339933;],_sqlCnx[color= #009900;])[color= #339933;];

      _sqlDA[color= #339933;].Fill[color= #009900;](_sqlDs[color= #009900;])[color= #339933;];

      _sqlDA[color= #339933;].Dispose[color= #009900;]([color= #009900;])[color= #339933;];

      Result[color= #339933;]:= [color= #0000ff;]''[color= #339933;];

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

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

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

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

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

نرسل لها استعلام select

فتقوم بانشاء مكون SqlDataAdapter الذي نربطه مع مكون الاتصال

الخاصية fill تملأ الداتا سات بالنتيجة

اذن النتيجة sqlDA به جدول واحد اسمع الممول

عربيتي ليست جيدة فلم اجد المسطلاحات المناسبة ارجوا مراجعة منتدي ADO.net

#99 
 

 T_Fournisseur [color= #339933;]:= TADOQuery[color= #339933;].Create[color= #009900;](nil[color= #009900;])[color= #339933;];

      TRY

        T_Fournisseur[color= #339933;].Connection[color= #339933;]:= SqlConection[color= #339933;].sqlCnx[color= #339933;];

        T_Fournisseur[color= #339933;].SQL[color= #339933;].Text[color= #339933;]:= [color= #0000ff;]'select * from fournisseurs'[color= #339933;];

        T_Fournisseur[color= #339933;].Open[color= #339933;];

        DataSource1[color= #339933;].DataSet[color= #339933;]:=T_Fournisseur[color= #339933;];

      EXCEPT

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

T_Fournisseur هو كويري جديد نضع الاستعلام في الخاصية sql .text

نفتح الكويري مععععععععروفة .

اما في البريسم

 

  [color= #b1b100;]if O_SqlClient[color= #339933;].Remplir[color= #009900;]([color= #0000ff;]'SELECT * FROM FOURNISSEUR'[color= #009900;])[color= #339933;]=[color= #0000ff;]'' then

     bindingSource1[color= #339933;].DataSource[color= #339933;]:=O_SqlClient[color= #339933;].SqlDs[color= #339933;].Tables[color= #009900;][[color= #cc66cc;]0[color= #009900;]][color= #339933;];

     O_SqlClient[color= #339933;].deconnect[color= #009900;]([color= #009900;])[color= #339933;];

قمنا بمنادات المتود التي تقموب بماشرحناه سابقا

ثم ربطنا bindingSource1 بالجدول رقم 0 في dataset و هو الممول Fournisseur طبعا عن طريق الخاصية DataSource

#100

سؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤال

هل هذا المشروع على البريسم ام على Delphi.Net

9780672308512_150x150.jpg

TIB.Talal Belal . Syria

مواضيع مشابهة