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

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

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

أخي أمين أسأل الله العظيـم رب العرش العظيم أن يشفيك

تريد الفوز إضغط هنا

اشِهِدي يَا سَمَـا وَاكْتُبَنْ يا وُجـودْ

إنَّـنَـا للِحـمَـا سَنَكُونُ الجُـنُـودْ

فـنَـزيحْ البَـلاَ وَنَـفُـكُّ الْقُيُـودْ

ونَنيلُ الـرِّضـا مِنْ وَفَّى بِالعْهُـودِ

الشيخ عبد الحميد ابن باديس

#377

اين وصلت الامور يا مجاهدين الدوت نت .

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

#378

انا انتهيت تقريبا ولكن هل سيتم الربط ام الفلترة واينهما افضل

#379

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

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

انا قد ربطت الجداول في قاعدة البيانات و

post-169385-1239656011_thumb.jpg

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

ولكن اريد جوابا ان كان ربط ام فلترة

post-169385-1239656072_thumb.jpg

post-169385-1239656175_thumb.jpg

1
#380

:clapping: و هكذا هم الابطال .

عمل جيد اخي طلال .

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

ربما يفيدنا اخي امين او على .

ايضا في vcl لايمكنك استعمال الربط لاننا لم نستعمل المكوناة.

شكرا .

#381

كنت افكر في الربط . ولكن باستخدام المكونات , لآنك قلت اننا لن نستخدم المكونات الا عند الضرورة

#382

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

اسف على التأخير بسبب العمل

هذه محاولة وقد وضعت الفلترة عند الضغط على اي صنف ضمن جدول الاصناف وبالبحث وايضا في مفاتيح التنقل last,first,next

بقي ان اعرف اسماء الحقول ماهي , لآنني اضطررت ان اغير نوع بعض الحقول الى varchar مؤقتا فقط لآنه كان يعطيني خطأ في Type

:wacko: :blink:

ويمكن عمل خيار البحث افضل من ذلك ولكن هذا مؤقتا

post-169385-1239713622_thumb.jpg

pha_vcl.zip

تم تعديل هذه المشاركة بواسطة طلال بلال في 14 أبريل 2009 في 17:30

1
#383

جيد اخي طلال انت الان في المرتبة الاولى .

بقي عليك ان تعمل خيارات البحث عن الدواء بالاسم و الو و النوع .

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

حالا

idx_produit رقم الدواء

Nom الاسم

Lot الو / لا اعرفها

DDP تاريخ انتهاء الصلاحية

PPA السعر

Forma الشكل

Perimable //لا اعرفها اخذتها من تصور الاخ على

Dosage التركيز

Type النوع

Remarques ملاحضه

idx_DCI رقم الاب اي الصنف

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

#384

اخي ذكيري انا بدلت المرفق السابق

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

مارأيك .

1
#385

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

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

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

.

اين الرابطة ياعليلوا .

مسعود لم نرى محاولاتك ولا مشاركاتك .

#386

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

هذه هي عملية البحث

ولكني عدلت في البحث على الاصناف , وهي عندما نجري فلترة لصنف , تتم فلترة الادوية التابعة له ويعرضها معة

procedure TFrame3.Button1Click(Sender: TObject);
begin
	case RadioGroup3.ItemIndex of
	  0:
	   begin
	  dc_cdi.DataSet.Filtered:=false;
	  dc_cdi.DataSet.Filter:='idx_dci ='''+Edit1.Text+'''';
	  dc_cdi.DataSet.Filtered:=true;



DS_produits.DataSet.Filtered:=False;
DS_produits.DataSet.Filter:='idx_dci ='''+Edit1.Text+'''';
DS_produits.DataSet.Filtered:=True;
end;

	1:
 begin

	  dc_cdi.DataSet.Filtered:=false;
	  dc_cdi.DataSet.Filter:='nom ='''+Edit1.Text+'''';
	  dc_cdi.DataSet.Filtered:=true;


DS_produits.DataSet.Filtered:=False;
DS_produits.DataSet.Filter:='idx_dci ='''+DBGrid1.Fields[0].Text+'''';
DS_produits.DataSet.Filtered:=True;
end;
end;
end;

post-169385-1239741947_thumb.jpg

phar_vcl_2.zip

1
#387

تقدم رائع اخي طلال بارك الله فيك جيد .

ملاحضة هي تغيير مكان ازرار التنقل بين السجلات الى اليسار فوق عملية البحث و طبعا تحت dbgrid

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

ماهذه الصورة يالطلال :D

#388

لم تظهر عندي بعد

#389
اقتباس
يابريسميين و يا سيشاربيين اين انتم الدلفاويين هم الفائزون .

اين وصلت الامور يا علي يامسعود و امين اين انتم نريد البد في مشروع ASP .

اخي طلال الان عليك ان تفكر قيلا في طريقة الشراء اقصد الواجهة .

الشراء في مرحلتين :

- كتابه الطلب :

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

ليس بالضرورة الكمية المطلوبة هي نفسها المرسلة و لا الدواء لانه يمكن ان يكون لو اخر و او نوع مشابه .

-ادخال المعلومات المخزن :

بعد عمليات الاحصاء و الترتيب في الرفوف يقوم مستعمل الحاسب بادخال :

رقم الفاتورة و تاريخها Factures_Achatمن اي ممول اي اسمه وكل معلوماته ان كان جديد و ان كان موجود يحدد Fournisseurs ندخل رقم الدواء و الكمية المشتراة و السعر بالوحدة الى جدول Achats

ملاحضه

سنقوم بالطريقة العكسية اي نجري عملية الادخال ثم عملية الطلب .

الجداول في الصور التالية.

post-1034-1239826871_thumb.jpg

#390

السلام عليكم ...

و الله متأسف اخوتي الايام الاخيرة اصابتني حمى قوية ... و البيوس عملها و تعطل اليوم :( الحمد لله انني كنت احتفظ بنسخة منه.

ما استطعت ان اقوم به حاليا اضافة مرحلة الاصناف. سوف احاول انا اضيف الباقي غدا في الصباح او المساء ان شاء الله

اين الاخوة جماعة السي شارب :wacko:

اسف اذا كنت متأخر قليلا :S

Copie_de_GestionPharmacie.rar

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

seo zen SEO Enlightment amazon danbo

#391

بالشفاء ان شاء الله

ننتضر مشاركاتك القوية اخي امين .

#392

السلام عليكم.. كيف الاحوال يا رجال :D

بخصوص طريقة الاخ طلال في ربط الجدولين DCI و Produits فاننا سوف نحتاج الى تغيير الاستعلام

SELECT * FROM Produits

و الذي سوف يظهر لنا idx_dci في حين نحتاج DCI

الى هذا الاستعلام

SELECT p.idx,p.Nom,m.DCI,  p.remarques FROM Produits p LEFT OUTER JOIN DCI m on p.idx_dci = m.idx

و الذي سوف يعطينا في الناتج dci

قمت باضافة stored procedures على عجالة و ما زلت لم اتأكد من صحة عملها (تعمل عندي بصورة عادية)

ALTER PROCEDURE dbo.UpdateProduitProc(
@idx int,
@Nom varchar(50),
@DCI varchar(50),
@Remarques varchar(50)
)
AS begin declare @idx_dci int

select @idx_dci=idx from DCI where DCI=@DCI

Update Produits
Set idx_dci = @idx_dci, Nom = @Nom, Remarques=@Remarques
where idx=@idx

end
	/* SET NOCOUNT ON */
	RETURN

ALTER PROCEDURE dbo.AddProduitProc(
@Nom varchar(50),
@DCI varchar(50),
@Remarques varchar(50)
)

AS begin declare @idx_dci int

select @idx_dci=idx from DCI where DCI=@DCI


insert into Produits(idx_dci, Nom, Remarques)
values (@idx_dci ,@Nom,@Remarques)
end
	/* SET NOCOUNT ON */
	RETURN

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

اما بخصوص التعديل فمازلت لم اجد فكرة لاضهارها دون الاضطرار الى وضع اكثر من bindingsource (ربما احد الاخوة يمكن ان يفيد)

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

Copie_de_GestionPharmacie.rar

تم تعديل هذه المشاركة بواسطة fkugd2003 في 17 أبريل 2009 في 08:02

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

seo zen SEO Enlightment amazon danbo

#393

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

اتمنى لك الشفاء العاجل

اخي ذكيري . لم افهم , وهل نستطيع التفكير بالمخزون قبل اتمام الفواتير ,

يعني ماالمطلوب الان جدول الفواتير . ام ماذا

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

#394

اخي امين لم افهم ماقصدت يضيف الدواء ونستطيع ان نغير في اسم الصنف

انا حاولت ان يكون مثل عملية الربط تماما . لآنها الاقل خطأ بالنسبة للمستخدم . اي عندما يختار صنف معين يتحددد رقمه في خانة الربط

#395

السلام عليكم

كيفك اخي طلال ارجوا ان تكون بخير

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

1- رقم القاتورة ثم الرقم الاصلي للفاتورة و تاريخها و رقم الممول ....

2-محتوي الفاتورة اي

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

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

بفعل هذا يجب تسهيل العمل للمستعمل للبحث عن الممول عند كتابه الفاتورة اي الربط.

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

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

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

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

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

شكرا

#396

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

الحمد لله انا بخير , اتمنى ان يكون الجميع بخير

هذا ماكنت اتوقعة اخي ذكيري

ولكن كان سؤالي عن المخزون والادوية التي قل عددها

#397

ليس عندي تصور واضح الان لكن حينما نكمل المرحلة 1.4 شراء الادوية تكون االمور بعدها اوضح .

#398

السلام عليكم

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

في جدول produit نقوم بتخزين idx_dci ك foreign key لكن نحن لا نريد ان نتعب المستخدم و نجعله يبحث عن رقم ال dci لذلك اضفت الاستعلام الذي دكرته

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

ارجو ان تراجعوا المرفق الاخير لتتضح الصورة

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

seo zen SEO Enlightment amazon danbo

#399

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

post-169385-1239986718_thumb.jpg

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

#400

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

اخي ذكيري حاولت ان اضع مفتاحين اساسيين في جدول واحد لم انجح ,

post-169385-1239997992_thumb.jpg

اريد منك شرح بسيط . ومااسماء حقول الجدولين الجديدن , باللغة العربية لو سمحت

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