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

رائج

بدأه mohfa في 28 يناير 2009 · 445 رد · 47,607 مشاهدة · في لغة Delphi

مشاركة: واتساب X فيسبوك تيليجرام

#2263 أبريل 2009 في 13:37

:mad: :cry: :tantrum: :tantrum:

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

ISAPI tutorial for Delphi developers

TIB.Talal Belal . Syria

#2273 أبريل 2009 في 17:03

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

ما رأيكم؟؟

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

seo zen SEO Enlightment amazon danbo

#2283 أبريل 2009 في 21:46

:stop:

على مهل اخي عادل الاخ على لم يدخل في الموضوع كما كمت متوقع و الاخ محمد خيب امالي و الاخ طلال مازال في عمليت تثبيت الدلفي

:tantrum:

لم اجد الوقت حتب لتعديلات الاخيرة .لان الان بدات في vcl و اريد ان اكتب الكود مثلما فعنا في بريسم .

المهم المرحلة 1.1 انتهت بصفة مأقتة طبعا ويمكننا العود الطباعه لاحقا ارجو الان ان تفكر في كيفية ادخال معلومات الزبون .

المرحلة 1.2 الزبون

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

#2293 أبريل 2009 في 22:30

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

نسيت ان ارفق المشروع الى حد الان هذا ما قمت به تنقصه التعديلات الاخيرة و المتعلقة بعنوان لtabcontrol

لان طريقة الاخ امين احسن و فاعلة

ارجوا يا على ان تقوم بذلك

Gpharm2009.rar

#2303 أبريل 2009 في 22:40

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

حسننا اخي عبد العالي ساحاول القيام بذلك ان شاء الله

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

#2313 أبريل 2009 في 23:00

PRISM

انسخ الكود

method MainForm[color= #339933;].MainForm_Load[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;].ItemSize [color= #339933;]:= [color= #000000; font-weight: bold;]new Size[color= #009900;]([color= #cc66cc;]1[color= #339933;], [color= #cc66cc;]1[color= #009900;])[color= #339933;];

      self[color= #339933;].btn_Fournisseur_Click[color= #009900;](sender[color= #339933;],e[color= #009900;])[color= #339933;];

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

 

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;];

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

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

begin

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

     [color= #000000; font-weight: bold;]var O_SqlClient[color= #339933;]:=[color= #000000; font-weight: bold;]new SqlClient[color= #339933;];

      [color= #b1b100;]if[color= #009900;](O_SqlClient[color= #339933;].connect[color= #009900;]([color= #009900;])[color= #009900;])then

        [color= #b1b100;]if O_SqlClient[color= #339933;].Remplir[color= #009900;]([color= #0000ff;]'SELECT Idx_fournisseur,Nom,Telephone,Adresse,Email,SiteWeb,Situ
ation,Remarques,Logo FROM Fournisseurs'[color= #009900;])[color= #339933;]=[color= #0000ff;]'' then

 

        begin

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

            DG_Fournisseurs[color= #339933;].DataSource[color= #339933;]:=BDS_Fournisseurs[color= #339933;];

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

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

 

        [color= #b1b100;]for i[color= #339933;]:=[color= #cc66cc;]0 to self[color= #339933;].BindingContext[color= #009900;][BDS_Fournisseurs[color= #009900;]][color= #339933;].[color= #990000;]Count[color= #cc66cc;]-1 [color= #b1b100;]DO

        begin

            [color= #b1b100;]if i mod [color= #cc66cc;]2 [color= #339933;]=[color= #cc66cc;]0 then

            DG_Fournisseurs[color= #339933;].Rows[color= #009900;][i[color= #009900;]][color= #339933;].DefaultCellStyle[color= #339933;].BackColor [color= #339933;]:= Color[color= #339933;].aliceblue[color= #339933;];

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

 

     [color= #000000; font-weight: bold;]var DB_HeaderText [color= #339933;]: [color= #990000;]array of string [color= #339933;]:= 

     [color= #009900;][[color= #0000ff;]'الرقم'[color= #339933;],[color= #0000ff;]'الإسم'[color= #339933;], [color= #0000ff;]'التفعيل '[color= #339933;], [color= #0000ff;]'العنوان'[color= #339933;], [color= #0000ff;]' رقم الهاتف '[color= #339933;], [color= #0000ff;]'البريد الالكتروني '[color= #339933;], [color= #0000ff;]'موقع الممو
ل '[color= #339933;], [color= #0000ff;]'ملاحظات'[color= #339933;],[color= #0000ff;]'الصورة'[color= #009900;]][color= #339933;];

     [color= #b1b100;]for i [color= #339933;]:= [color= #cc66cc;]0 to DG_Fournisseurs[color= #339933;].Columns[color= #339933;].[color= #990000;]Count[color= #cc66cc;]-1   [color= #b1b100;]do

     DG_Fournisseurs[color= #339933;].Columns[color= #009900;][i[color= #009900;]][color= #339933;].HeaderText [color= #339933;]:= DB_HeaderText[color= #009900;][i[color= #009900;]][color= #339933;];

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

 

method MainForm[color= #339933;].BTN_ADDFournisseurs_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

    [color= #000000; font-weight: bold;]var OF_Fournisseur [color= #339933;]:= [color= #000000; font-weight: bold;]new F_Fournisseur [color= #339933;];

        OF_Fournisseur[color= #339933;].vIdxFournisseur[color= #339933;]:=[color= #0000ff;]'-1'[color= #339933;];

        OF_Fournisseur[color= #339933;].ShowDialog[color= #339933;];  

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

 

method MainForm[color= #339933;].BTN_UPDATFournisseurs_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

  [color= #000000; font-weight: bold;]var OF_Fournisseur [color= #339933;]:= [color= #000000; font-weight: bold;]new F_Fournisseur [color= #339933;];

  OF_Fournisseur[color= #339933;].vIdxFournisseur[color= #339933;]:=DG_Fournisseurs[color= #339933;].SelectedCells[color= #009900;][[color= #cc66cc;]0[color= #009900;]][color= #339933;].Value[color= #339933;].ToString[color= #009900;]([color= #009900;])[color= #339933;];

  OF_Fournisseur[color= #339933;].ShowDialog[color= #339933;];

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

 

method MainForm[color= #339933;].Btn_First_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

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

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

 

method MainForm[color= #339933;].Btn_Last_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

    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;].Count
[color= #cc66cc;]-1[color= #339933;];

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

 

method MainForm[color= #339933;].Btn_Preor_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

    [color= #b1b100;]if self[color= #339933;].BindingContext[color= #009900;][BDS_Fournisseurs[color= #009900;]][color= #339933;].Position [color= #339933;]> [color= #cc66cc;]0 then

       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;].Po
sition[color= #cc66cc;]-1[color= #339933;];

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

 

method MainForm[color= #339933;].Btn_Next_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

      [color= #b1b100;]if 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 then

       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;].Po
sition[color= #cc66cc;]+1[color= #339933;];

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

 

method MainForm[color= #339933;].Rb_All_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

    BDS_Fournisseurs[color= #339933;].RemoveFilter[color= #009900;]([color= #009900;])[color= #339933;];

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

 

method MainForm[color= #339933;].Rb_Active_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

      BDS_Fournisseurs[color= #339933;].Filter[color= #339933;]:=[color= #0000ff;]'Situation='[color= #0000ff;]'مفعل'[color= #0000ff;]' '[color= #339933;];

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

 

method MainForm[color= #339933;].Rb_NoActive_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

      BDS_Fournisseurs[color= #339933;].Filter[color= #339933;]:=[color= #0000ff;]'Situation='[color= #0000ff;]'غير مفعل'[color= #0000ff;]' '[color= #339933;];

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

 

method MainForm[color= #339933;].Txb_FiltreF_TextChanged[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

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

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

VCL.net

انسخ الكود

procedure TForm1[color= #339933;].FormActivate[color= #009900;](Sender[color= #339933;]: TObject[color= #009900;])[color= #339933;];

begin

    BTN_AllFournisseursClick[color= #009900;](Sender[color= #009900;])[color= #339933;];

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

 

procedure TForm1[color= #339933;].BTN_AllFournisseursClick[color= #009900;](Sender[color= #339933;]: TObject[color= #009900;])[color= #339933;];

[color= #000000; font-weight: bold;]var  O_SqlClient[color= #339933;]:TF_SqlClient[color= #339933;];

BEGIN

      O_SqlClient[color= #339933;]:=TF_SqlClient[color= #339933;].Create[color= #009900;](nil[color= #009900;])[color= #339933;];

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

      TRY

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

        T_Fournisseur[color= #339933;].SQL[color= #339933;].Text[color= #339933;]:= [color= #0000ff;]'SELECT Idx_fournisseur,Nom,Telephone,Adresse,Email,SiteWeb,Si
tuation,Remarques,Logo FROM Fournisseurs'[color= #339933;];

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

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

      EXCEPT

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

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

 

procedure TForm1[color= #339933;].BTN_ADDFournisseursClick[color= #009900;](Sender[color= #339933;]: TObject[color= #009900;])[color= #339933;];

[color= #000000; font-weight: bold;]var  OF_Fournisseur[color= #339933;]:TF_Fournisseur[color= #339933;];

begin

    OF_Fournisseur[color= #339933;]:=TF_Fournisseur[color= #339933;].Create[color= #009900;](nil[color= #009900;])[color= #339933;];

    OF_Fournisseur[color= #339933;].vIdxFournisseur[color= #339933;]:=[color= #0000ff;]'-1'[color= #339933;];

    OF_Fournisseur[color= #339933;].ShowModal[color= #339933;];

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

 

procedure TForm1[color= #339933;].BTN_UPDATFournisseursClick[color= #009900;](Sender[color= #339933;]: TObject[color= #009900;])[color= #339933;];

[color= #000000; font-weight: bold;]var  OF_Fournisseur[color= #339933;]:TF_Fournisseur[color= #339933;];

begin

    OF_Fournisseur[color= #339933;]:=TF_Fournisseur[color= #339933;].Create[color= #009900;](nil[color= #009900;])[color= #339933;];

    OF_Fournisseur[color= #339933;].vIdxFournisseur[color= #339933;]:=[color= #0000ff;]'-1'[color= #339933;];

    OF_Fournisseur[color= #339933;].ShowModal[color= #339933;];

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

 

 

procedure TForm1[color= #339933;].Btn_FirstClick[color= #009900;](Sender[color= #339933;]: TObject[color= #009900;])[color= #339933;];

begin

    BDS_Fournisseurs[color= #339933;].DataSet[color= #339933;].First[color= #339933;];

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

 

procedure TForm1[color= #339933;].Btn_LastClick[color= #009900;](Sender[color= #339933;]: TObject[color= #009900;])[color= #339933;];

begin

    BDS_Fournisseurs[color= #339933;].DataSet[color= #339933;].Last[color= #339933;];

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

 

procedure TForm1[color= #339933;].Btn_NextClick[color= #009900;](Sender[color= #339933;]: TObject[color= #009900;])[color= #339933;];

begin

    BDS_Fournisseurs[color= #339933;].DataSet[color= #339933;].[color= #990000;]Next[color= #339933;];

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

 

procedure TForm1[color= #339933;].Btn_PreorClick[color= #009900;](Sender[color= #339933;]: TObject[color= #009900;])[color= #339933;];

begin

    BDS_Fournisseurs[color= #339933;].DataSet[color= #339933;].Prior[color= #339933;];

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

 

procedure TForm1[color= #339933;].Txb_FiltreFChange[color= #009900;](Sender[color= #339933;]: TObject[color= #009900;])[color= #339933;];

begin

     [color= #b1b100;]if [color= #990000;]trim[color= #009900;](Txb_FiltreF[color= #339933;].Text[color= #009900;])[color= #339933;]=[color= #0000ff;]'' then

     BDS_Fournisseurs[color= #339933;].DataSet[color= #339933;].Filtered[color= #339933;]:=[color= #000000; font-weight: bold;]false[color= #339933;];

     BDS_Fournisseurs[color= #339933;].DataSet[color= #339933;].Filtered[color= #339933;]:=[color= #000000; font-weight: bold;]true[color= #339933;];

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

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

 

procedure TForm1[color= #339933;].RadioGroup1Click[color= #009900;](Sender[color= #339933;]: TObject[color= #009900;])[color= #339933;];

begin

     BDS_Fournisseurs[color= #339933;].DataSet[color= #339933;].Filtered[color= #339933;]:=[color= #000000; font-weight: bold;]true[color= #339933;];

     [color= #b1b100;]case RadioGroup1[color= #339933;].ItemIndex of

     [color= #cc66cc;]0[color= #339933;]:  BDS_Fournisseurs[color= #339933;].DataSet[color= #339933;].Filtered[color= #339933;]:=[color= #000000; font-weight: bold;]false[color= #339933;];

     [color= #cc66cc;]1[color= #339933;]:  BDS_Fournisseurs[color= #339933;].DataSet[color= #339933;].Filter[color= #339933;]:=[color= #0000ff;]'Situation='[color= #0000ff;]'مفعل'[color= #0000ff;]' '[color= #339933;];

     [color= #cc66cc;]2[color= #339933;]:  BDS_Fournisseurs[color= #339933;].DataSet[color= #339933;].Filter[color= #339933;]:=[color= #0000ff;]'Situation='[color= #0000ff;]'غير مفعل'[color= #0000ff;]' '[color= #339933;];

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

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

-------------------------------------------------------

الشرح

1-عند اول عرض للنافذة نقوم بمنادات الحدث click للزر ممول

2-عند الضغظ على الزر ممول نقوم بعمل اتصال مع القاعدة و ننشأ استعلام لعرض جميع الممولون

3-النقر على جديد او تغيير نقوم بعرض نافدة الممول

4-ازرار التنقل

5-عملية الفلترة

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

#2324 أبريل 2009 في 04:38

كنت قد اضفت مدخلا صغيرا الى التعامل مع الطابعة

/index.php?showtopic=190638

و سوف اقوم بشرح كيفية استخراج تقرير مباشرة من DataGridView

جاري العمل على مرحلة الزبون

اذا كانت هناك اخطاء او ملاحظات ارجو المساهمة

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

seo zen SEO Enlightment amazon danbo

#2334 أبريل 2009 في 17:54

فكرة على السريع !!!!

سنلاحظ في البرنامج كله تكرار لنفس العمليات البرمجية.. -_- لماذا لا نحاول ان نجد جميع النقاط المتشابهة و المتكررة و نعمل لها encapsulation في اصناف؟؟

حاليا انا احاول ان اخفض اي تكرار عندي .. هل توجد اقتراحات من الاخوة لجعل نوافذ التعديل و الاضافة في صنف واحد يمكن تغييره

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

seo zen SEO Enlightment amazon danbo

#2344 أبريل 2009 في 18:30

تعديل على السريع لتوضيح الفكرة

قمت في هذا التعديل بدمج الازرار الاربعة (الاول. الاخير. التالي. السابق) في userControl ثم كتابة دالة BindToDataSource فيها سطر واحد فقط ثم تعريف حوادث الضغط على الازرار للتحرك في الجدول

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

navigationButtons1.BindToDataSource(ref BDS_Clients);

شيئ ثاني قمت باضافة كلاس بسيط مازلت سوف احاول الزيادة فيه ConfigurationClass

الملف المرفق يوضح التعديلاتGestionPharmacie.rar

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

seo zen SEO Enlightment amazon danbo

#2354 أبريل 2009 في 21:10

اقتباس
سنلاحظ في البرنامج كله تكرار لنفس العمليات البرمجية

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

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

اما على ناقدة الممول انا استعمل نافذة واحدة لتغيير و الاضافة في نفس الوفقت و ذلك بارسال متغيرة تحمل رقم الممول المحددة و ان كان -1 هذا يعني اها اضافة ارجوا ان تدرس الكود الدي اكتبه مثما افعل مع الكود الذي تضعه بالسي و ارجوا ان تثبة prism كي تستطيع راية ما اقوم به .

كل هذا كي تكون وجهتنا واحدة ان شاء الله و هي التعلم و افادة الاخرين .

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

بالمناسبة الزبون يمكن ان بكون مسجل او عبار عن زاءر فقط و نعرف هذا من الوصفة الطبية .

ساحاول اكما اليوم vcl لنبدا سوبة .

شكرا .

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

#2364 أبريل 2009 في 21:32

للاسف اخي عبد العالي انا لا املك نسخة البرايسم حاليا لان تحميلها من التورنت مازال لم ينته لكنه قريب جدا بقي حوالي 1جيجا و ينتهي التحميل

فكرتك ايضا مثيرة للاهتمام :thumb_up:

انا احاول ان استغل فرصة المشروع لاتبادل الافكار مع الاخوة :)

اجبت عن اشكالية الزبون قبل ان اطرحها هههه انت تقرأ الافكار :wacko:

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

seo zen SEO Enlightment amazon danbo

#2374 أبريل 2009 في 22:07

اقتباس
جبت عن اشكالية الزبون قبل ان اطرحها هههه انت تقرأ الافكار

:calc:

اقتباس
بقي حوالي 1جيجا

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

ارجوا ان لا يطيل علينا الخ مسعود مبرمج السي شارب الشهير ههه

#2384 أبريل 2009 في 22:34

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

ايضا ارجو ان ياتي الاخ مسعود قريبا و نبدا العمل بصورة مضاعفة .... نريد ان نكمل بسرعة لننتقل الى ال n_tier و ال hibernate :evil:

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

seo zen SEO Enlightment amazon danbo

#2394 أبريل 2009 في 23:31

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

جربت ان اقوم بالاتصال بموقع المورد وايميله بمجرد الضغط عليه في الداتا جريد

بطريقتين

الاولى هي طريقة shellExecut

لم تنجح معي

والثانية نجحت لكن اعتبرها غير مجدية

Process.Start('C:\Program Files\Internet Explorer\IExplore.exe', DG_Fournisseurs.Columns[6].HeaderText);

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

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

#2404 أبريل 2009 في 23:53

prism

انسخ الكود

 

method F_Fournisseur[color= #339933;].F_Fournisseur_Load[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

     [color= #b1b100;]if vidxFournisseur[color= #339933;]<>[color= #0000ff;]'-1' then 

     begin

       [color= #000000; font-weight: bold;]var O_SqlClient[color= #339933;]:=[color= #000000; font-weight: bold;]new SqlClient[color= #339933;];

      [color= #b1b100;]if[color= #009900;](O_SqlClient[color= #339933;].connect[color= #009900;]([color= #009900;])[color= #009900;])then

        [color= #b1b100;]if O_SqlClient[color= #339933;].Remplir[color= #009900;]([color= #0000ff;]'SELECT Idx_fournisseur,Nom,Telephone,Adresse,Email,SiteWeb,Situ
ation,Remarques,Logo FROM Fournisseurs WHERE Idx_fournisseur ='[color= #339933;]+vidxFournisseur[color= #009900;])[color= #339933;]=[color= #0000ff;]'' then

        begin

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

            Txb_NomF[color= #339933;].DataBindings[color= #339933;].Add [color= #009900;]([color= #0000ff;]'Text'[color= #339933;], BDS_Fournisseur[color= #339933;], [color= #0000ff;]'Nom'       [color= #009900;])[color= #339933;];

            Txb_TelF[color= #339933;].DataBindings[color= #339933;].Add [color= #009900;]([color= #0000ff;]'Text'[color= #339933;], BDS_Fournisseur[color= #339933;], [color= #0000ff;]'Telephone' [color= #009900;])[color= #339933;];

            Txb_AdrF[color= #339933;].DataBindings[color= #339933;].Add [color= #009900;]([color= #0000ff;]'Text'[color= #339933;], BDS_Fournisseur[color= #339933;], [color= #0000ff;]'Adresse'   [color= #009900;])[color= #339933;];

            Txb_MAilF[color= #339933;].DataBindings[color= #339933;].Add[color= #009900;]([color= #0000ff;]'Text'[color= #339933;], BDS_Fournisseur[color= #339933;], [color= #0000ff;]'Email'     [color= #009900;])[color= #339933;];

            Txb_SitwF[color= #339933;].DataBindings[color= #339933;].Add[color= #009900;]([color= #0000ff;]'Text'[color= #339933;], BDS_Fournisseur[color= #339933;], [color= #0000ff;]'SiteWeb'   [color= #009900;])[color= #339933;];

            Txb_sutF[color= #339933;].DataBindings[color= #339933;].Add [color= #009900;]([color= #0000ff;]'Text'[color= #339933;], BDS_Fournisseur[color= #339933;], [color= #0000ff;]'Situation' [color= #009900;])[color= #339933;];

            Txb_RemF[color= #339933;].DataBindings[color= #339933;].Add [color= #009900;]([color= #0000ff;]'Text'[color= #339933;], BDS_Fournisseur[color= #339933;], [color= #0000ff;]'Remarques' [color= #009900;])[color= #339933;];

            [color= #666666; font-style: italic;]//img_Logo.DataBindings.Add ('Image', BDS_Fournisseur, 'Logo'     );

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

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

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

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

 

method F_Fournisseur[color= #339933;].Btn_SaveFournisseur_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

 

     ErrP_Fournisseur[color= #339933;].Clear[color= #339933;];

     [color= #b1b100;]IF [color= #009900;](Txb_NomF[color= #339933;].Text[color= #009900;])[color= #339933;].[color= #990000;]Trim [color= #339933;]=[color= #0000ff;]''              THEN BEGIN   ErrP_Fournisseur[color= #339933;].SetError[color= #009900;](Txb_NomF[color= #339933;],[color= #0000ff;]'
أدخل اسم الممول'[color= #009900;])[color= #339933;]; [color= #990000;]EXIT[color= #339933;]; [color= #990000;]END[color= #339933;];[color= #666666; font-style: italic;]// ELSE ErrP_Fournisseur.SetError(Txb_NomF,'');

     [color= #b1b100;]IF [color= #009900;](Txb_TelF[color= #339933;].Text[color= #009900;])[color= #339933;].[color= #990000;]Trim [color= #339933;]=[color= #0000ff;]''              THEN BEGIN   ErrP_Fournisseur[color= #339933;].SetError[color= #009900;](Txb_TelF[color= #339933;],[color= #0000ff;]'
ادخل هاتف الممول'[color= #009900;])[color= #339933;];EXIT[color= #339933;]; [color= #990000;]END[color= #339933;];[color= #666666; font-style: italic;]// ELSE ErrP_Fournisseur.SetError(Txb_TelF,'');

     [color= #b1b100;]IF AllRegularExp[color= #339933;].IsValidEmail[color= #009900;](Txb_MAilF[color= #339933;].Text[color= #009900;])AND[color= #009900;]([color= #009900;](Txb_MAilF[color= #339933;].Text[color= #009900;])[color= #339933;].Trim[color= #339933;]<>[color= #0000ff;]''[color= #009900;]) THEN BEGIN   E
rrP_Fournisseur[color= #339933;].SetError[color= #009900;](Txb_MAilF[color= #339933;],[color= #0000ff;]'اخل بريد صحيح '[color= #009900;])[color= #339933;];EXIT[color= #339933;]; [color= #990000;]END[color= #339933;];[color= #666666; font-style: italic;]// ELSE ErrP_Fournisseur.SetErro
r(Txb_MAilF,'');

     [color= #b1b100;]IF AllRegularExp[color= #339933;].IsValidURL[color= #009900;](Txb_SitwF[color= #339933;].Text[color= #009900;])  AND[color= #009900;]([color= #009900;](Txb_SitwF[color= #339933;].Text[color= #009900;])[color= #339933;].Trim[color= #339933;]<>[color= #0000ff;]''[color= #009900;])  THEN BEGIN   
ErrP_Fournisseur[color= #339933;].SetError[color= #009900;](Txb_SitwF[color= #339933;],[color= #0000ff;]'اخل كتابة صحيحة للموقع'[color= #009900;])[color= #339933;];EXIT[color= #339933;]; [color= #990000;]END[color= #339933;];[color= #666666; font-style: italic;]// ELSE ErrP_Fournisseu
r.SetError(Txb_SitwF,'');

 

     [color= #000000; font-weight: bold;]var O_SqlClient[color= #339933;]:=[color= #000000; font-weight: bold;]new SqlClient[color= #339933;];

     [color= #b1b100;]if[color= #009900;](O_SqlClient[color= #339933;].connect[color= #009900;]([color= #009900;])[color= #009900;])then

     begin

          [color= #000000; font-weight: bold;]var  vParams [color= #339933;]:list[color= #339933;]<SqlParameter[color= #339933;]>:= Set_Params[color= #009900;]([color= #009900;])[color= #339933;];

 

          [color= #b1b100;]if vidxFournisseur[color= #339933;]=[color= #0000ff;]'-1' then 

            O_SqlClient[color= #339933;].RunStoredProc[color= #009900;]([color= #0000ff;]'AddFournisseurProc'[color= #339933;],vParams[color= #009900;])

          [color= #b1b100;]else

          begin

            vParams[color= #339933;].Add[color= #009900;]([color= #000000; font-weight: bold;]new SqlParameter[color= #009900;]([color= #0000ff;]'@Idx_fournisseur'       [color= #339933;],vIdxFournisseur[color= #009900;])[color= #009900;])[color= #339933;];

            O_SqlClient[color= #339933;].RunStoredProc[color= #009900;]([color= #0000ff;]'UpadteFournisseurProc'[color= #339933;],vParams[color= #009900;])[color= #339933;];

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

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

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

     self[color= #339933;].Close[color= #339933;];

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

 

 

 

Method F_Fournisseur[color= #339933;].LoadImage[color= #009900;]([color= #009900;])[color= #339933;];

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

    strFn[color= #339933;]:String[color= #339933;];

    fiImage[color= #339933;]:FileInfo[color= #339933;];

    fs[color= #339933;]:FileStream[color= #339933;];

begin

     try

              self[color= #339933;].OpnFDlogo[color= #339933;].ShowDialog[color= #009900;](self[color= #009900;])[color= #339933;];

                strFn [color= #339933;]:= self[color= #339933;].OpnFDlogo[color= #339933;].FileName[color= #339933;];

                self[color= #339933;].img_Logo[color= #339933;].Image [color= #339933;]:= Image[color= #339933;].FromFile[color= #009900;](strFn[color= #009900;])[color= #339933;];

                fiImage [color= #339933;]:= [color= #000000; font-weight: bold;]new FileInfo[color= #009900;](strFn[color= #009900;])[color= #339933;];

                self[color= #339933;].m_lImageFileLength [color= #339933;]:= fiImage[color= #339933;].Length[color= #339933;];

                fs[color= #339933;]:=[color= #000000; font-weight: bold;]new FileStream[color= #009900;](strFn[color= #339933;],FileMode[color= #339933;].Open[color= #339933;],FileAccess[color= #339933;].Read[color= #339933;],FileShare[color= #339933;].Read[color= #009900;])[color= #339933;];

                m_barrImg [color= #339933;]:= [color= #000000; font-weight: bold;]new byte[color= #009900;][Convert[color= #339933;].ToInt32[color= #009900;](self[color= #339933;].m_lImageFileLength[color= #009900;])[color= #009900;]][color= #339933;];

                [color= #000000; font-weight: bold;]var iBytesRead [color= #339933;]: Integer [color= #339933;]:= fs[color= #339933;].Read[color= #009900;](m_barrImg[color= #339933;],[color= #cc66cc;]0[color= #339933;],Convert[color= #339933;].ToInt32[color= #009900;](self[color= #339933;].m_lImageFi
leLength[color= #009900;])[color= #009900;])[color= #339933;];

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

        except 

 

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

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

 

 

method F_Fournisseur[color= #339933;].Set_Params[color= #009900;]([color= #009900;])[color= #339933;]:list[color= #339933;]<SqlParameter[color= #339933;]>;

begin

        [color= #000000; font-weight: bold;]var sParams[color= #339933;]:= [color= #000000; font-weight: bold;]new list[color= #339933;]<SqlParameter[color= #339933;]>;

        sParams[color= #339933;].Add[color= #009900;]([color= #000000; font-weight: bold;]new SqlParameter[color= #009900;]([color= #0000ff;]'@Nom'       [color= #339933;],Txb_NomF[color= #339933;].Text[color= #009900;])[color= #009900;])[color= #339933;];

        sParams[color= #339933;].Add[color= #009900;]([color= #000000; font-weight: bold;]new SqlParameter[color= #009900;]([color= #0000ff;]'@Telephone' [color= #339933;],Txb_TelF[color= #339933;].Text[color= #009900;])[color= #009900;])[color= #339933;];

        sParams[color= #339933;].Add[color= #009900;]([color= #000000; font-weight: bold;]new SqlParameter[color= #009900;]([color= #0000ff;]'@Adresse'   [color= #339933;],Txb_AdrF[color= #339933;].Text[color= #009900;])[color= #009900;])[color= #339933;];

        sParams[color= #339933;].Add[color= #009900;]([color= #000000; font-weight: bold;]new SqlParameter[color= #009900;]([color= #0000ff;]'@Email'     [color= #339933;],Txb_MAilF[color= #339933;].Text[color= #009900;])[color= #009900;])[color= #339933;];

        sParams[color= #339933;].Add[color= #009900;]([color= #000000; font-weight: bold;]new SqlParameter[color= #009900;]([color= #0000ff;]'@SiteWeb'   [color= #339933;],Txb_SitwF[color= #339933;].Text[color= #009900;])[color= #009900;])[color= #339933;];

        sParams[color= #339933;].Add[color= #009900;]([color= #000000; font-weight: bold;]new SqlParameter[color= #009900;]([color= #0000ff;]'@Situation' [color= #339933;],Txb_sutF[color= #339933;].Text[color= #009900;])[color= #009900;])[color= #339933;];

        sParams[color= #339933;].Add[color= #009900;]([color= #000000; font-weight: bold;]new SqlParameter[color= #009900;]([color= #0000ff;]'@Remarques' [color= #339933;],Txb_RemF[color= #339933;].Text[color= #009900;])[color= #009900;])[color= #339933;];

 

        [color= #000000; font-weight: bold;]var picSqlParameter [color= #339933;]:=[color= #000000; font-weight: bold;]new SqlParameter[color= #009900;]([color= #0000ff;]'@Logo'[color= #339933;],[color= #990000;]System[color= #339933;].Data[color= #339933;].SqlDbType[color= #339933;].Image[color= #009900;])[color= #339933;];

        picSqlParameter[color= #339933;].Value[color= #339933;]:= self[color= #339933;].m_barrImg[color= #339933;];        

        sParams[color= #339933;].Add[color= #009900;](picSqlParameter[color= #009900;])[color= #339933;];

 

        result[color= #339933;]:=sParams[color= #339933;]; 

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

 

method F_Fournisseur[color= #339933;].Btn_Lodlogo_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

     LoadImage[color= #009900;]([color= #009900;])[color= #339933;];

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

 

method F_Fournisseur[color= #339933;].Btn_Cancel_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

  self[color= #339933;].Close[color= #339933;];

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

vcl

انسخ الكود

 

uses SqlConn[color= #339933;];

 

procedure TF_Fournisseur[color= #339933;].FormActivate[color= #009900;](Sender[color= #339933;]: TObject[color= #009900;])[color= #339933;];

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

  o_TFournisseur [color= #339933;]: TADOQuery[color= #339933;];

  O_SqlClient[color= #339933;]:TF_SqlClient[color= #339933;];

BEGIN

      [color= #b1b100;]if vidxFournisseur[color= #339933;]<>[color= #0000ff;]'-1' then

      begin

      O_SqlClient[color= #339933;]:=TF_SqlClient[color= #339933;].Create[color= #009900;](nil[color= #009900;])[color= #339933;];

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

      o_TFournisseur[color= #339933;].Connection[color= #339933;]:= O_SqlClient[color= #339933;].sqlCnx[color= #339933;];

      TRY

        o_TFournisseur[color= #339933;].Connection[color= #339933;]:= O_SqlClient[color= #339933;].sqlCnx[color= #339933;];

        o_TFournisseur[color= #339933;].SQL[color= #339933;].Text[color= #339933;]:= [color= #0000ff;]'SELECT Idx_fournisseur,Nom,Telephone,Adresse,Email,SiteWeb,S
ituation,Remarques,Logo FROM Fournisseurs WHERE Idx_fournisseur ='[color= #339933;]+vidxFournisseur[color= #339933;];

 

        TRY

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

          Txb_NomF[color= #339933;].Text  [color= #339933;]:= o_TFournisseur[color= #339933;].FieldByName[color= #009900;]([color= #0000ff;]'Nom'[color= #009900;])[color= #339933;].AsString[color= #339933;];

          Txb_TelF[color= #339933;].Text  [color= #339933;]:= o_TFournisseur[color= #339933;].FieldByName[color= #009900;]([color= #0000ff;]'Telephone'[color= #009900;])[color= #339933;].AsString[color= #339933;];

          Txb_AdrF[color= #339933;].Text  [color= #339933;]:= o_TFournisseur[color= #339933;].FieldByName[color= #009900;]([color= #0000ff;]'Adresse'[color= #009900;])[color= #339933;].AsString[color= #339933;];

          Txb_MAilF[color= #339933;].Text [color= #339933;]:= o_TFournisseur[color= #339933;].FieldByName[color= #009900;]([color= #0000ff;]'Email'[color= #009900;])[color= #339933;].AsString[color= #339933;];

          Txb_SitwF[color= #339933;].Text [color= #339933;]:= o_TFournisseur[color= #339933;].FieldByName[color= #009900;]([color= #0000ff;]'SiteWeb'[color= #009900;])[color= #339933;].AsString[color= #339933;];

          Txb_sutF[color= #339933;].Text  [color= #339933;]:= o_TFournisseur[color= #339933;].FieldByName[color= #009900;]([color= #0000ff;]'Situation'[color= #009900;])[color= #339933;].AsString[color= #339933;];

          Txb_RemF[color= #339933;].Text  [color= #339933;]:= o_TFournisseur[color= #339933;].FieldByName[color= #009900;]([color= #0000ff;]'Remarques'[color= #009900;])[color= #339933;].AsString[color= #339933;];

        EXCEPT

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

      FINALLY

        O_SqlClient[color= #339933;].Free[color= #339933;];

        o_TFournisseur[color= #339933;].Free[color= #339933;];

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

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

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

 

procedure TF_Fournisseur[color= #339933;].ErrP_Fournisseur_Clear[color= #009900;]([color= #009900;])[color= #339933;];

begin

     ErrP_FournisseurNom[color= #339933;].Visible[color= #339933;]:=[color= #000000; font-weight: bold;]False[color= #339933;];

     ErrP_Fournisseurtel[color= #339933;].Visible[color= #339933;]:=[color= #000000; font-weight: bold;]False[color= #339933;];

     ErrP_FournisseurEmail[color= #339933;].Visible[color= #339933;]:=[color= #000000; font-weight: bold;]False[color= #339933;];

     ErrP_FournisseurSit[color= #339933;].Visible[color= #339933;]:=[color= #000000; font-weight: bold;]False[color= #339933;];

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

 

procedure TF_Fournisseur[color= #339933;].Btn_SaveFournisseurClick[color= #009900;](Sender[color= #339933;]: TObject[color= #009900;])[color= #339933;];

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

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

     O_SqlClient[color= #339933;]:TF_SqlClient[color= #339933;];

BEGIN

     ErrP_Fournisseur_Clear[color= #339933;];

 

     [color= #b1b100;]IF [color= #990000;]Trim[color= #009900;](Txb_NomF[color= #339933;].Text[color= #009900;]) [color= #339933;]=[color= #0000ff;]'' THEN BEGIN   ErrP_FournisseurNom[color= #339933;].Visible[color= #339933;]:=[color= #000000; font-weight: bold;]true[color= #339933;];EXIT[color= #339933;]; [color= #990000;]END[color= #339933;];

     [color= #b1b100;]IF [color= #990000;]Trim[color= #009900;](Txb_TelF[color= #339933;].Text[color= #009900;]) [color= #339933;]=[color= #0000ff;]'' THEN BEGIN   ErrP_Fournisseurtel[color= #339933;].Visible[color= #339933;]:=[color= #000000; font-weight: bold;]true[color= #339933;];EXIT[color= #339933;]; [color= #990000;]END[color= #339933;];

 

     [color= #666666; font-style: italic;]//IF AllRegularExp.IsValidEmail(Txb_MAilF.Text)AND(Trim(Txb_MAilF.Text)<>'') THEN BEGIN   
ErrP_FournisseurEmail.Visible:=true;EXIT; END;EXIT; END;

     [color= #666666; font-style: italic;]//IF AllRegularExp.IsValidURL(Txb_SitwF.Text)  AND(Trim(Txb_SitwF.Text)<>'') THEN BEGIN  E
rrP_FournisseurSit.Visible:=true;EXIT; END;;EXIT; END;

 

      O_SqlClient[color= #339933;]:=TF_SqlClient[color= #339933;].Create[color= #009900;](nil[color= #009900;])[color= #339933;];

      _sqlCmd[color= #339933;]:=TADOStoredProc[color= #339933;].Create[color= #009900;](nil[color= #009900;])[color= #339933;];

      _sqlCmd[color= #339933;].Connection[color= #339933;]:= O_SqlClient[color= #339933;].sqlCnx[color= #339933;];

 

      [color= #b1b100;]if vidxFournisseur[color= #339933;]=[color= #0000ff;]'-1' then

      begin

         _sqlCmd[color= #339933;].ProcedureName [color= #339933;]:= [color= #0000ff;]'AddFournisseurProc'[color= #339933;];

         _sqlCmd[color= #339933;].Parameters[color= #339933;].Refresh[color= #339933;];

      [color= #990000;]end

      [color= #b1b100;]else

      begin

         _sqlCmd[color= #339933;].ProcedureName [color= #339933;]:= [color= #0000ff;]'UpadteFournisseurProc'[color= #339933;];

         _sqlCmd[color= #339933;].Parameters[color= #339933;].Refresh[color= #339933;];

         _sqlCmd[color= #339933;].Parameters[color= #339933;].ParamByName[color= #009900;]([color= #0000ff;]'@Idx_fournisseur'[color= #009900;])[color= #339933;].value [color= #339933;]:= Txb_NomF[color= #339933;].Text[color= #339933;];

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

        _sqlCmd[color= #339933;].Parameters[color= #339933;].ParamByName[color= #009900;]([color= #0000ff;]'@nom'[color= #009900;])      [color= #339933;].value [color= #339933;]:= Txb_NomF[color= #339933;].Text[color= #339933;];

        _sqlCmd[color= #339933;].Parameters[color= #339933;].ParamByName[color= #009900;]([color= #0000ff;]'@Telephone'[color= #009900;])[color= #339933;].value [color= #339933;]:= Txb_TelF[color= #339933;].Text[color= #339933;];

        _sqlCmd[color= #339933;].Parameters[color= #339933;].ParamByName[color= #009900;]([color= #0000ff;]'@Adresse'[color= #009900;])  [color= #339933;].value [color= #339933;]:= Txb_AdrF[color= #339933;].Text[color= #339933;];

        _sqlCmd[color= #339933;].Parameters[color= #339933;].ParamByName[color= #009900;]([color= #0000ff;]'@Email'[color= #009900;])    [color= #339933;].value [color= #339933;]:= Txb_MAilF[color= #339933;].Text[color= #339933;];

        _sqlCmd[color= #339933;].Parameters[color= #339933;].ParamByName[color= #009900;]([color= #0000ff;]'@SiteWeb'[color= #009900;])  [color= #339933;].value [color= #339933;]:= Txb_SitwF[color= #339933;].Text[color= #339933;];

        _sqlCmd[color= #339933;].Parameters[color= #339933;].ParamByName[color= #009900;]([color= #0000ff;]'@Situation'[color= #009900;])[color= #339933;].value [color= #339933;]:= Txb_sutF[color= #339933;].Text[color= #339933;];

        _sqlCmd[color= #339933;].Parameters[color= #339933;].ParamByName[color= #009900;]([color= #0000ff;]'@Remarques'[color= #009900;])[color= #339933;].value [color= #339933;]:= Txb_RemF[color= #339933;].Text[color= #339933;];

        _sqlCmd[color= #339933;].Parameters[color= #339933;].ParamByName[color= #009900;]([color= #0000ff;]'@logo'[color= #009900;])[color= #339933;].Value[color= #339933;]:=nil[color= #339933;];[color= #666666; font-style: italic;]//img_Logo.Picture);

        _sqlCmd[color= #339933;].Prepared   [color= #339933;]:= [color= #000000; font-weight: bold;]true[color= #339933;];

      TRY

        _sqlCmd[color= #339933;].ExecProc[color= #339933;];

      FINALLY

         O_SqlClient[color= #339933;].Free[color= #339933;];

         _sqlCmd[color= #339933;].Free[color= #339933;];

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

    self[color= #339933;].Close[color= #339933;];

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

 

procedure TF_Fournisseur[color= #339933;].LoadImage[color= #009900;]([color= #009900;])[color= #339933;];

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

    strFn[color= #339933;]:String[color= #339933;];

begin

     try

              [color= #b1b100;]if self[color= #339933;].OpnFDlogo[color= #339933;].Execute[color= #009900;]([color= #009900;]) then

        begin

                   strFn [color= #339933;]:= self[color= #339933;].OpnFDlogo[color= #339933;].FileName[color= #339933;];

                   self[color= #339933;].img_Logo[color= #339933;].Picture[color= #339933;].LoadFromFile[color= #009900;](strFn[color= #009900;])[color= #339933;];

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

        except

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

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

 

 

procedure TF_Fournisseur[color= #339933;].Btn_LodlogoClick[color= #009900;](Sender[color= #339933;]: TObject[color= #009900;])[color= #339933;];

begin

  LoadImage[color= #009900;]([color= #009900;])[color= #339933;];

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

 

procedure TF_Fournisseur[color= #339933;].Btn_CancelClick[color= #009900;](Sender[color= #339933;]: TObject[color= #009900;])[color= #339933;];

begin

   self[color= #339933;].Close[color= #339933;];

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

اهلا بكم

اخي طلال ها قد اتممت 90% من كود المرحلة 1.1 بالvcl

المطلوب منك

1- برمجة الكلاس AllRegularExp.pas

حث تضع فيها الوضيفتين

IsValidEmail

IsValidURL

	 //IF AllRegularExp.IsValidEmail(Txb_MAilF.Text)AND(Trim(Txb_MAilF.Text)<>'') THEN BEGIN   ErrP_FournisseurEmail.Visible:=true;EXIT; END;EXIT; END;
	 //IF AllRegularExp.IsValidURL(Txb_SitwF.Text)  AND(Trim(Txb_SitwF.Text)<>'') THEN BEGIN  ErrP_FournisseurSit.Visible:=true;EXIT; END;;EXIT; END;

حيث تقوم بالمراقبة ان كان المخل صحيح او خطأ

2-ان امكن ادراج الصورة في القاعده لاني وضع nil كي تشتغل الاجراء لكن يجم اضافة الصورة الى الاقعدة

3-اي تغيير نقوم به في البريسم تقوم به انت في vcl

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

شكرا

و الان الى البريزم

الزبووووووون

#2415 أبريل 2009 في 00:01

في المرفق

gpharm2009-> prism

Gpharm ---> vcl

Gpharm2009.rar

Gpharm.rar

#2425 أبريل 2009 في 03:18

اخي علي اذا كنت تعمل ايضا على بريسم فاستعمل هذه

private void DBG_Fournisseurs_CellClick(object sender, DataGridViewCellEventArgs e)
		{
			if (DBG_Fournisseurs.Columns[e.ColumnIndex].HeaderText == "موقع الممول ")
			{				
				string link = this.DBG_Fournisseurs[e.ColumnIndex, e.RowIndex].Value.ToString();
				System.Diagnostics.Process.Start(link);
			}
		}

يعمل بصورة جيدة عندي و يفتح الرابط باستعمال المتصفح الافتراضي عندك (انا اظهر لي موزيلا مباشرة)

وهكذا دواليك.... يا عيني على ذكائك يا امين على هذا الكود الجبار و التافه في نفس الوقت :unsure:

يمكن لك ايضا ان تجعل البرنامج ينادي ال outlook باضافة كلمة صغيرة فقط :evil:

if (DBG_Fournisseurs.Columns[e.ColumnIndex].HeaderText == "البريد الالكتروني ")
			{
				string link = "mailto:"+this.DBG_Fournisseurs[e.ColumnIndex, e.RowIndex].Value.ToString();
				System.Diagnostics.Process.Start(link);
			}

شكرا لل HTML على ذلك :calc:

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

seo zen SEO Enlightment amazon danbo

#2435 أبريل 2009 في 12:10

جيد اخي امين بارك الله فيك

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

----------------------------------------

مرحلة الزبون 1.2 اخبرني على انك بدات في الرابطة الاخيرة ساري الامر حالا.

#2445 أبريل 2009 في 12:25

اخوتي تلاحضون اننا كلما اضفنا نافدة فيtapcontrol وجب علينا ان نضيف كود في الكلاس main هذا يعني عندما نكمل المشروع نجد ان هذه الاخيرة اصبح عدد الاسطر كبييييير جدا عندي فكرة كنت استعملها في الدلفي ifram هذا يجعلني اكتب كود كل نافذة على حده ثم اجمع النوافذ لاعرضهم في الصفحة الرءيسية main في الدلفي بريسم عناك المكون UserControl يفي بالغرض كما فعل الاخ امين مع ازرار لاتنقل .

ماريكم

#2455 أبريل 2009 في 12:37

لقد قمت بتحميل الكود بالبرايسم و ساقوم بتنصيب البرايسم لاني و الحمد لله انتهيت من تحميل النسخة كاملة :evil:

قمت البارحة بدراسة كود البرايسم ام اكواد vcl فانا مازلت لم اثبت delphi 2009 for .net

البرمجة بهذه الطريقة اكثر تسلية :D

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

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

seo zen SEO Enlightment amazon danbo

#2465 أبريل 2009 في 13:19

"يا علي موت واقف" ----- فلم ثوري جزائري

ياعلي اين انت اين محاولاتك و انت اخي طلال لقد قدمت لك ما يساعدك على التقدم في المشروع ...... :unsure:

يا مسعود وعد الحر دين عليه ايييييييييييييين انت .

اخي امين اري انك البطل في هذا المشروع و الله اهنك من كل قلبي كما ان طريقتك في البرمج تشبه طريقتي لذلك سنتفاهم جبدا و الى مشاريع في 3 طبقات عن قريب ان شاء الله في الوب طبعا وسيكون مشروع احترافي بدراسة بالuml .

اما الان سنعود الى المشروع هذا المساء اضع التحسنات التي ذكرتها عن استعمال usercontrol و اضع كود انشاء جدول الزبون و اكواد sql لااجراءات المخزنة بحول الله .

#2475 أبريل 2009 في 13:28

انا هنا اخي ذكيري واشكر مجهوداتك ومساعدتك , لاتقلق انا سألحق بكم حالا بإذن الله , فقد حملت نسخة delphi 2009 كاملة ونسخة SQLSERVER ايضا كاملة وكل شيىء جاهز بالنسبة للمشروع تقريبا .

ولكن هناك خبر غير جيد . هو ان VCL.NET سيتوقف تحديثة وقد تكون نسخة 2009 اخر تحديث له.

ISAPI tutorial for Delphi developers

TIB.Talal Belal . Syria

#2485 أبريل 2009 في 13:59

لم اسمع عن هذا الخبر لكن ان كنت تريد ان تعمل على البريسم هو احسن طبعا .

ان ارت ان نتوقف عنه او نحوله الى win 32 اي نكمل على البريسم و السي شارب وvcl32

كما تريد

#2495 أبريل 2009 في 14:07

لم ارى الخبر بعيني , ولكن من اكد الخبر مهتم جدا بالامر . حاليا سأتابع في VCL وسأحاول الحصول على نسخة بريزم واتابع معكم . وان تأكد الخبر نوقف VCL

ISAPI tutorial for Delphi developers

TIB.Talal Belal . Syria

#2505 أبريل 2009 في 14:30

نعم فتعلم cvl.net يساعدك على تعلم البريسم او غيره.

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

Using VCL.NET with ECO0 رد · 1 سبتمبر 2005
مقارنه بين Prism و C# و Vb.net0 رد · 15 أبريل 2009
Delphi Prism الجيل القادم من دلفي لتطوير حلول على وبندوز ولينكس .net 3.5 / Winforms / Wpf / Silverlight / Asp.net / Linq8 رد · 21 نوفمبر 2008
دروس فيديوا جيدة Prism0 رد · 17 مارس 2009
من لديه معلومات عن VCL.Net ?2 رد · 3 أكتوبر 2006
كيف يمكن تحويل المشروع من فيجوال بيسك إلى asp.net4 رد · 31 يوليو 2003