مشروع C# - Vcl.net - Prism — صفحة 9 — منتديات الفريق العربي للبرمجة

#2012 أبريل 2009 في 10:05

شكرا

type للصورة هو image ساجرب تغييره

عندك الحق فقد غيرتها static لكل method نعم كنت اسرع كي لا يغضب مني طلال و ينسحب من vcl

#2022 أبريل 2009 في 10:14

اخي على مرحبا بك

اقتباس
اخي عبد العالي لقد وجدت تغييرا كبيرا في الكود

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

المطلوب :

في المرحلة 1.1 لم يبقي الا الفلتره بالاسم اي

حينما نكتب م

يضهر :

محمد

مصباح

ماجد

مصمودي

ونكتب مص:

مصباح

مصمودي

ونكتب مصم

مصمودي ...الخ

كنا نكتب في الدلفي win32

table1.filter='nom='''+edit1.text+'*''';

واضن ان نكتب في البريزم

BDS_Fournisseur.Filter:=''Nom='''+Txb_NomFFiltre+'%''';

اقتباس
sql2005

2-وضع خلاصة على كل مما عملناه عن المكتبات ودورها و المكونات و دورها

الخ بصفة مختصرة

مناقشة المرحلة 1.2 نريد جدول منفصل نسبيا كي نعمل عليه مثل الممول 3-

المشاركة في vcl لمن يريد طبعا وضع مقارنة هنا اختيارية

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

#2032 أبريل 2009 في 10:58

 BDS_Fournisseur.Filter = String.Format("Nom like'{0}%'",txtRecherche.Text);

هذه التي تعمل جربتها :D

العمل كثير و الوقت قليل أعاننا الله

seo zen SEO Enlightment amazon danbo

#2042 أبريل 2009 في 11:01

اكي جيد

#2052 أبريل 2009 في 11:19

المرحلة 1.1 انتهت بسي شارب ننتظر الاخوة في الدلفي و البرايسم

GestionPharmacie.rar

العمل كثير و الوقت قليل أعاننا الله

seo zen SEO Enlightment amazon danbo

#2062 أبريل 2009 في 11:24

البريسم وvcl

1-

انسخ الكود

 

    BDS_Fournisseurs[color= #339933;].Filter [color= #339933;]:= [color= #0000ff;]'Nom like '[color= #0000ff;]''[color= #339933;]+textBox1[color= #339933;].Text [color= #339933;]+[color= #0000ff;]'%'[color= #0000ff;]''[color= #339933;];

    BDS_Fournisseurs[color= #339933;].Filter [color= #339933;]:= [color= #0000ff;]'Nom '[color= #0000ff;]''[color= #339933;]+textBox1[color= #339933;].Text [color= #339933;]+[color= #0000ff;]'*'[color= #0000ff;]''[color= #339933;];

2-وباضافة format

انسخ الكود

 

 BDS_Fournisseurs[color= #339933;].Filter [color= #339933;]:= String[color= #339933;].Format[color= #009900;]([color= #0000ff;]'Nom like'[color= #0000ff;]'{0}%'[color= #0000ff;]''[color= #339933;],textBox1[color= #339933;].Text[color= #009900;])[color= #339933;]; 

    BDS_Fournisseurs[color= #339933;].Filter [color= #339933;]:= Format[color= #009900;]([color= #0000ff;]'Nom '[color= #0000ff;]'%S*'[color= #0000ff;]''[color= #339933;],[color= #009900;][textBox1[color= #339933;].Text[color= #009900;]][color= #009900;])[color= #339933;];

اخي عادل لم تنزع العنوان ل tabcontrol لاننا تنضع صور في الاعلا logo المشروع

#2072 أبريل 2009 في 11:36

/index.ph...=147859&hl=

#2082 أبريل 2009 في 12:30

aaah

اعذر عدم فهمي لما قصدته

انت تعني اخفاء header

هذا الحل الذي وجدته

 private void Form1_Load(object sender, EventArgs e)
		{
			int HeightOfTabs = tabControl1.Height - tabPage1.Height;			
			for(int i =0;i<tabControl1.TabPages.Count;i++){
				tabControl1.Top -= HeightOfTabs;
				tabControl1.Height += HeightOfTabs;

				this.tabControl1.Region = 
					new Region(
						new RectangleF(							
							tabControl1.TabPages.Left,
							tabControl1.TabPages.Top,
							tabControl1.TabPages.Width,
							tabControl1.TabPages.Height));
			}
			DBG_Fournisseurs.Height = tabPage1.Height;
			DBG_Fournisseurs.Width = tabPage1.Width;

		}

دون ان ننسى ان نضيف هذه الاسطر في حدث الضغط على زر الممولون

int HeightOfTabs = tabControl1.Height - tabPage1.Height;
			int headerCellHeight = DBG_Fournisseurs.Columns[0].HeaderCell.Size.Height;

			DBG_Fournisseurs.Height = tabPage1.Height - headerCellHeight;
			DBG_Fournisseurs.Width = tabPage1.Width;

اعطى نتيجة مثالية معي :)

ملاحظة....

انا امين و لست عادل :angry:

تم تعديل هذه المشاركة بواسطة fkugd2003 في 2 أبريل 2009 في 12:33

العمل كثير و الوقت قليل أعاننا الله

seo zen SEO Enlightment amazon danbo

#2092 أبريل 2009 في 12:49

GestionPharmacie.rar

العمل كثير و الوقت قليل أعاننا الله

seo zen SEO Enlightment amazon danbo

#2102 أبريل 2009 في 14:17

اخي امين لاتخف سينتهي المشروع وسيبقى يذكر اسم عادل :D

في مايخص الفلترة . اليس الاستعلام افضل وخصوصا في NET.

ISAPI tutorial for Delphi developers

TIB.Talal Belal . Syria

#2112 أبريل 2009 في 14:47

اقتباس
في مايخص الفلترة . اليس الاستعلام افضل وخصوصا في NET.

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

#2122 أبريل 2009 في 15:31

اذا الفلترة على بيانات الاجراء المخزن بعد استدعاءة

ISAPI tutorial for Delphi developers

TIB.Talal Belal . Syria

#2132 أبريل 2009 في 15:39

لا

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

#2142 أبريل 2009 في 16:05

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

المرحلة 1.1 في الدلفي vcl.net

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

1-كود الاتصال مع قاعدة البيانات

اقتباس
PRISM

انسخ الكود

 

 _sqlCnx [color= #339933;]:= [color= #000000; font-weight: bold;]new SqlConnection[color= #339933;];

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

BEGIN

   TRY

      _sqlCnx[color= #339933;].ConnectionString [color= #339933;]:= C_CONN[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;];

اقتباس
VCL

انسخ الكود

[color= #000000; font-weight: bold;]Function TF_SqlClient[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;].LoginPrompt[color= #339933;]:=[color= #000000; font-weight: bold;]false[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;];

_____________________________________________________________________________

هل الدلتين واضحتين

تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 2 أبريل 2009 في 16:23

#2152 أبريل 2009 في 16:25

كود قطع الاتصال بالقاعدة 2-

انسخ الكود

METHOD SqlClient[color= #339933;].deconnect[color= #009900;]([color= #009900;])[color= #339933;]:boolean[color= #339933;];

BEGIN

      TRY

      BEGIN

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

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

      [color= #990000;]END

      Except

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

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

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

انسخ الكود

 

[color= #000000; font-weight: bold;]Function TF_SqlClient[color= #339933;].deconnect[color= #009900;]([color= #009900;])[color= #339933;]:boolean[color= #339933;];

BEGIN

            TRY

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

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

       Except

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

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

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

تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 2 أبريل 2009 في 16:33

#2162 أبريل 2009 في 19:59

تعديل سريع على جملة الفلترة لادخال فلترة البيانات حسب خاصية التفعيل

string mode_recherche;
//-----------------
//-----------------
private void rbTous_Click(object sender, EventArgs e)
		{
			mode_recherche = "";
			BDS_Fournisseur.Filter = String.Format("Nom like'{0}%' {1}", txtRecherche.Text, mode_recherche);  
		}

		private void rbActive_CheckedChanged(object sender, EventArgs e)
		{
			mode_recherche = "and Situation = '" + rbActive.Text + "'";
			BDS_Fournisseur.Filter = String.Format("Nom like'{0}%' {1}", txtRecherche.Text, mode_recherche);  
		}

		private void rbNonActive_CheckedChanged(object sender, EventArgs e)
		{
			mode_recherche = "and Situation = '" + rbNonActive.Text + "'";
			BDS_Fournisseur.Filter = String.Format("Nom like'{0}%' {1}", txtRecherche.Text, mode_recherche);  
		}



		private void txtRecherche_TextChanged(object sender, EventArgs e)
		{
			BDS_Fournisseur.Filter = String.Format("Nom like'{0}%' {1}",txtRecherche.Text, mode_recherche);			
		}

ساقوم اليوم بتنظيف ال DataGridView لتحسين اظهار البيانات و فتح موقع الممول بالضغط عليه في البرنامج

و اذا استطعت ان اكملها بسرعة ساضيف ارسال رسالة ايميل بفتح ال outlook ان شاء الله

العمل كثير و الوقت قليل أعاننا الله

seo zen SEO Enlightment amazon danbo