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

[سلماني]

الاول
الأخوة الكرام ( اللهم تقبل صيامكم وقيامكم وكل عام وانتم بخير
السلام عليكم ورحمة الله وبركاته

سنحاول انشالله في شرح الذي انا اول واحد يحتاج ان يشرح له ان نشرح شي عن قواعد البيانات اكسس وثم التعرف على قواعد بيانات اخرى وتعامل الفجول بيسك مع بعظ ادوات فجول بيسك 6 واذا كان هناك من مساعد ياشباب ترونا نكمل بعظنا ويد وحده ماتصفق
1- الدوال المشهوره في اكسس ذكرها وشرحها
2- شرح لبعظ تطبيقات فجول بيسك
فجول بيسك والاتصال بقواعد البيانات اكسس
3- كيف تقوم بعمل ملف setup والتعامل مع ملفات اخرى في قاعدة بيانات صممتها في اكسس
microsoft office Developer
أنواع الدوال0
1 _ دوال التاريخ والوقت0
2 _دوال التحويلات 0
3 _الدوال الماليه0
4 _الدوال الرياضية وحساب المثلثات0
5 _دوال سلاسل البيانات0
6 _دوال المجال التجميعية0
7 _دوال التحقق من أنواع البيانات
8 _دوال المدخلات والمخرجات0
9 _دوال أخرى متنوعة

----
دوال الوقت والتاريخ (Date And time )
الدالة Now تعيد اليوم والوقت المسجل في الحاسب باستخدام ساعة الحاسب ولا بد من ضبط التاريخ والوقت في الحاسب ولإ النتائج غير دقيقة0
الدالة:Now
الصيغة : Now = اسم مربع النص
-------------------------------------------------------

الدالة : () Time أو ()$Time تعيد الوقت 0
الصيغة: ()Time =اسم مربع النص
------------------------------------------------------

الدالة : Date أو $Date
الصيغة : Date=اسم مربع النص0
------------------------------------------------------

الدالة : Day(Date()) Day
الصيغة:
(()Day(Date=اسم مربع النص
(أي حقل تاريخ ) Day=اسم مربع النص
استخراج اليوم من أي تاريخ مسجل في الجدول مثل تاريخ التوظيف
---------------------------------
الدالة Month
الصيغة
(أي حقل تاريخ ) Month=اسم مربع النص
استخراج الشهر من أي تاريخ مسجل في الجدول مثل تاريخ التوظيف
------------------------------------
الدالة : Year
الصيغة : (أي حقل تاريخ ) Year=اسم مربع النص
استخراج السنة من أي تاريخ مسجل في الجدول مثل تاريخ التوظيف
-------------------------------------
الدالة Hour
اليغة (مربع نص يحتوي على ساعة الجهاز) Hour=اسم مربع النص
استخراج عدد الساعات من الوقت المحدد في مربع النص
-------------------------------------
الدالة Minute
اليغة (مربع نص يحتوي على ساعة الجهاز) Minute =اسم مربع النص
استخراج عدد الدقائق من الوقت المحدد في مربع النص
------------------------------------
الدالة Second
اليغة (مربع نص يحتوي على ساعة الجهاز) Second =اسم مربع النص
استخراج عدد الثواني من الوقت المحدد في مربع النص
------------------------------------
الدالة DateAdd
اليغة (التاريخ ,عدد , الفصل الزمني ) DateAdd =اسم مربع النص
تعيد هذه الدالة تاريخ جديد بعد أن تضيف له قيمة جديدة ويوضح الجدوال التالي المقصود بالفاصل الزمني0
---------------------------------------------
الفاصل الزمني التوضيح
yyyy سنة
q ربع سنة
m شهر
y يوم في السنة
d يوم
w يوم من أيام الاسبوع
ww اسبوع
h ساعة
n دقيقة
s ثانية

[ســاير الرماحي]

اخوي سلماني



الله لايهينك على هالموضوع الرائع




كتبت واجدت . . واخترت وتميزت




مشكور يالغالي




وتحياتي لك




أخوك

[سلماني]

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

[المشرف العام]

تسلم اخي سلماني على هذا المجهود الرائع ..

لا خلينا ولا عدمنا ك

سجلني بأول الصف ..

منتظرين بقيّه الدروس .. وياليت فيها امثله :)

الله معاك ..

[سلماني]

استاذي


المشرف العام يعلم الله اني اتمنى ان اقدم كل مالدي على قلته وضعفه


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

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

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

--
لدي برنامج في الاحصاء اخر ماتم عمله

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

يحتوي على 745 استعلام
يتحتوي على 492 تقرير

000

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


اما الدرس فهذا اجتهاد والله يعلم ان اكثره لغيري بس يعلم الله استاذي باني اتمنى وانا مانى الا هاوي ولست اكاديمي في هذا التخصص

نريد ان ندفع زكات العلم اي علم لو حفظنا اربعين النووي ابرك لنا من فجول بيسك ادتور

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

[سلماني]

الدرس الثاني

هذه الدوال يستخدمها المحاسبون ومن لهم إهتمام بأمور المحاسبة
وهي : ( PMT , PV , FV , RATE ,DDB, SLN ,SYD )
الدالة : PMT تقوم هذه الدالة بحساب الدفعة الدورية لتسديد قرض0
مثال:
كود:

Const ENDPERIOD = 0, BEGINPERIOD = 1 ' When payments are made.

Const MB_YESNO = 4 ' Define Yes/No buttons.

Const ID_NO = 7 ' Define No as a response.

NL = Chr(13) & Chr(10) ' Define newline.

TB = Chr(9) ' Define tab.

Fmt = "###,###,##0.00" ' Define money format.

fVal = 0 ' Usually 0 for a loan.

pval = InputBox("كم المبلغ الذي تود اقتراضه؟")

APR = InputBox("كم معدل الفائدة السنوية؟")

If APR > 1 Then APR = APR / 100 ' Ensure proper form.

TotPmts = InputBox("كم المبلغ الذي سيدفع كقسط شهري؟")

paytype = MsgBox("هل الدفع في نهاية الشهر؟", MB_YESNO, "استفسار")

If paytype = ID_NO Then paytype = BEGINPERIOD Else paytype = ENDPERIOD

payment = Abs(-Pmt(APR / 12, TotPmts, pval, fVal, paytype))

Msg = "مبلغ القسط الشهري = " & Format(payment, Fmt)

Msg = Msg & NL & "هل تود رؤية قائمة بالدفعات "

Msg = Msg & "والفائدة في كل فترة؟"

MakeChart = MsgBox(Msg, MB_YESNO, "استفسار") ' See if chart is desired.

If MakeChart <> ID_NO Then

If TotPmts > 20 Then MsgBox "سنظهر لك 20 فترة فقط .", , "ملحوظة"

Msg = "الشهر الدفعة الأصل الفائدة" & NL

For period = 1 To TotPmts

If period > 20 Then Exit For ' Only show first 25.

P = PPmt(APR / 12, period, TotPmts, -pval, fVal, paytype)

P = (Int((P + 0.005) * 100) / 100) ' Round principal.

I = payment - P

I = (Int((I + 0.005) * 100) / 100) ' Round interest.

Msg = Msg & period & TB & Format(payment, Fmt)

Msg = Msg & TB & Format(P, Fmt) & TB & Format(I, Fmt) & NL

Next period

MsgBox Msg, , "قائمة الدفعات " ' Display amortization table.

End If




------------------------------------------------------------
وهذا مثال أخر قد يكون أوضح ومفهوم أفضل من سابقه
كود:

Dim العملية_الحسابة As Variant

Const نهاية_الشهر = 0, بداية_الشهر = 1

FVal = txt1

If النسبة >1 then النسبة = النسبة /12

الجواب=PMT ( النسبة / 12 , عدد_الأقساط , _ المبلغ , FVal, وقت_الدفع)




حيث :
النسبة : مربع نص يتم فيه إدخال نسبة الفائدة السنوية
عددالأقساط : هي عدد الأشهر التي يستغرقها المدين في الدفع حتى ينهي الدين
المبلغ : هو مجموع الدين أي المبلغ الأجمالي
FVAL : القيمة المستقبلية
وقت_الدف : هي رقم يعرف متى يتم الدفع فالرقم " 1 " يعني دفع القسط أول الشهر والرقم " 0 " يعني بأن الدفع يكون نهاية الشهر
------------------------------------------------
الدالة : FV
تقوم هذه الدالة بحساب القيمة المستقبلية لمبلغ معين يراد إيداعه على دفعات 0
تأخذ هذه الدالة الشكل التالي:
كود:

FV(rate , nper , pmt , pv , due )


حيث:
rate : معدل الفائدة
nper :المدة ( عدد الدفعات )
pmt : مقدار الدفعة ( 1000 أو 2000 أو000000 الخ )
pv :القيمة المستقبلية أو الرصيد بعد أخر فترة يتم الرصد فيها
due :رقم يوضح هل يتم إدخار المبلغ في أول الشهر أو أخر الشهر والرقم 1 يعني أول كل شهر
مثال على ذلك:
كود:

Const ENDPERIOD = 0, BEGINPERIOD = 1 ' When payments are made.

Const MB_YESNO = 4 ' Define Yes/No buttons.

Const ID_NO = 7 ' Define No as a response.

Fmt = "###,###,##0.00" ' Define money format.

payment = InputBox("كم المبلغ الذي تود ادخاره شهرياً ؟")

APR = InputBox("ماهي الفائدة السنوية ؟")

If APR > 1 Then APR = APR / 100 ' Ensure proper form.

TotPmts = InputBox("ماعدد الأشهر التي ستدخر فيها ؟")

paytype = MsgBox("هل الدفع في بداية الشهر؟", MB_YESNO, "استفسار")

If paytype = ID_NO Then paytype = BEGINPERIOD Else paytype = ENDPERIOD

pval = InputBox("كم المبلغ الذي ستدخره الآن؟")

fVal = fv(APR / 12, TotPmts, -payment, -pval, paytype)

MsgBox "مجمل ادخارك = " & Format(fVal, Fmt) & ".", , "النتيجة"




----------------------------------------------
الدالة : nper
هذه الدالة تعطيك كم شهراً سوف تستغرق لكي تسدد مبلغ معين
كود:

title = "الجواب"

Const ENDPERIOD = 0, BEGINPERIOD = 1 ' When payments are made.

Const MB_YESNO = 4 ' Define Yes/No buttons.

Const ID_NO = 7 ' Define No as a response.

fVal = 0 ' Usually 0 for a loan.

pval = InputBox("كم قيمة الدين ؟")

APR = InputBox("كم معدل الفائدة السنوية؟")

If APR > 1 Then APR = APR / 100 ' Ensure proper form.

payment = InputBox("كم المبلغ الذي تستطيع تقسيطه شهرياً ؟")

paytype = MsgBox("هل الدفع في نهاية الشهر ؟", MB_YESNO)

If paytype = ID_NO Then paytype = BEGINPERIOD Else paytype = ENDPERIOD

TotPmts = nper(APR / 12, -payment, pval, fVal, paytype)

If Int(TotPmts) <> TotPmts Then TotPmts = Int(TotPmts) + 1

Msg = "سوف تأخذ " & TotPmts & " شهراً لإنهاء الدين ."

MsgBox Msg, , title




------------------------------------------------
الدالة : IPmt
هذه الدالة تعطي نسبة الفوائد السنوية0
كود:

Const ENDPERIOD = 0, BEGINPERIOD = 1 ' When payments are made.

Const MB_YESNO = 4 ' Define Yes/No buttons.

Const ID_NO = 7 ' Define No as a response.

fVal = 0 ' Usually 0 for a loan.

Fmt = "###,###,##0.00" ' Define money format.

pval = InputBox("كم المبلغ الذي تود اقتراضه؟")

APR = InputBox("كم نسبةالفائدة السنوية؟")

If APR > 1 Then APR = APR / 100 ' Ensure proper form.

TotPmts = InputBox("كم المبلغ الذي تستطيع تقسيطه شهرياً؟")

paytype = MsgBox("هل الدفع في بداية الشهر؟", MB_YESNO, "استفسار")

If paytype = ID_NO Then paytype = BEGINPERIOD Else paytype = ENDPERIOD

For period = 1 To TotPmts ' Total all interest.

IntPmt = IPmt(APR / 12, period, TotPmts, -pval, fVal, paytype)

TotInt = TotInt + IntPmt

Next period

Msg = "سوف تدفع مبلغ = " & Format(TotInt, Fmt)

Msg = Msg & " كفائدة على هذا المبلغ."

MsgBox Msg, , "النتيجة" ' Display results.




---------------------------------------
الدالة : SYD
تستخدم هذه الدالة في حساب قيمة إهلاك الأصول الثابته ويكون قسط الإهلاك السنوي لهذه الدالة عالياً في السنوات الأولى من عمر الأصل عنه في السنوات الأخيرة0
مثال توضيحي:
كود:

txt5 = SYD(txt1, txt2, txt3, txt4)


حيث
txt5 :مربع نص يعرض ناتج الداله
SYD :الدالة
Txt1 :مربع نص يتم فيه إدخال ثمن الشراء
Txt2 :مربع نص يتم فيه إدخال قيمة الأصل المتوقعة في نهاية المدة
Txt3 :العمر الإفتراضي للسلعة
Txt4 :سنة معينة تحسب فيها القيمة
------------------------------------------------------
الدالة SLN
تستخدم هذه الدالة لحساب الخط المستقيم لانخفاض قيمة ملكية معينة خلال فترة دورة زمنية معينة أي قسط الإهلاك السنوي الثابت الأصل0
مثال توضيحي:
كود:

txt5 = SLN(txt1, txt2, txt3)


حيث
txt5 :مربع نص يعرض ناتج الداله
SYD :الدالة
Txt1 :مربع نص يتم فيه إدخال ثمن الشراء
Txt2 :مربع نص يتم فيه إدخال قيمة الأصل المتوقعة في نهاية المدة
Txt3 :العمر الإفتراضي للسلعة
Txt4 :سنة معينة تحسب فيها القيمة
-----------------------------------------------------------------
الدالة DDB:
تستخدم هذه الدال في حساب قيمة إهلاك الأصول الثابته بطريقة الإستهلاك المتناقص وكما هو معروف في علم المحاسبة أن قسط الإهلاك طبقاً لهذه الطريقة يكون عالياً في السنوات الأولى من عمر الأصل الثابت0
مثال توضيحي:
كود:

txt5 = DDB(txt1, txt2, txt3, txt4)


حيث
txt5 :مربع نص يعرض ناتج الداله
SYD :الدالة
Txt1 :مربع نص يتم فيه إدخال ثمن الشراء
Txt2 :مربع نص يتم فيه إدخال قيمة الأصل المتوقعة في نهاية المدة
Txt3 :العمر الإفتراضي للسلعة
Txt4 :سنة معينة تحسب فيها القيمة

[المشرف العام]

ممممممممممممممممممممـ

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

ولكن : طريقتك هذه لن تجدي نفعا ..

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

طيب عندي اقتراح ..

نبدأ بالاكسس .. شكله سهل .. وموجود في معظم الاجهزه من ضمن حزمه اوفيس:)

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

هدفي .. ان لا نفد اهتمامنا بالتعلم ..نأخذها خطوه بخطوه ..

بالنسبة للطريقه .. استطيع ان اراسلك بالبرامج التي تصور سطح المكتب ..

بشأن رفعها للمشاركه .. استطيع تأمين لك موقع وبرنامج نقل الملفات من جهازك إلى النت ..

واي مساعدات تدريب انا حاضر :)

بس .. لا تطفى حماسك ..

لي عوده

[(ة_ة)]

احم احم..

ممكن احشر نفسي معاكم هنا :)

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

يعني مثلا وش رايك تبدا بكيفية تسمية المتغيرات لأنه نقطه جداً مهمه وتعتمد عليه البرمجه بعدين تعريف المتغيرات بـDim , puplic وبعدين عمل الـloop بشكل مبسط...بعدين ندخل بالدوال...

مجرد اقتراح بس :)

برايفت ابو سلطان:

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

[الكتراز]

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

[سلماني]

اخواني طبعا انا كتبت الدوال لكي تساعد من كان يقوم بعمل تطبيقات معينه

وله في هذا المجال ولاكن ربما ان بعظ الدوال يحتاجها

اخوي ( ة ة) وجهة نظر هادفه

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

من بداية اول تصميم للجداول وخصاصئها ثم نبدى الى الاستعلامات وهي متعة الاكسس ثم النماذج ثم الى التقارير ثم الماكرو

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

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

ابشر يالغالي وتسلملي

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

[المشرف العام]

أختنا : (ة_ة)
هو انا فلحت بالاكسس او الفجوال بيسك عشان اختار :(

أخي : سلماني

فيه برمجه جديده اسمها ( فيجوال نت ) وأشوف بيل قيت نازل بثقله على البرمجه الجديده :)

ياليت نبذه عن اختلافها مع فيجوال بيسك

ونحن بإنتظارك

[سلماني]

حياك يالذيب

ماشالله على المتابعة

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

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

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

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

تقبل تحياتي وامر بما تراه لصالح العام لاني ارفض رائي الا اذا كان مدعوم براي اجمع

تحياتي يالذيب

[سلماني]

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

أما فجول بيسك نت لم اعرف عنه شي ولاكن نسخ الفجول بيسك ثلاثة نسخ سأشرح لك عن الفجول بيسك 5 واني اخوي اجد صعوبة بان اقول اشرح لك ولاكن فل نردش اهون فاعوذ بالله والله يعلم باني ماملك الا اقل من المبدأ ومنكم نستفيد فالبعظ يكمل البعظ ولو كنى نتدارس ماينفعنا بعلم شريعتنا والله افضل ولو كان اذكار الصباح والمساء يعلم الله ان حرف منه يعادل اخر ماتوصلة له لغة c++ ولاكن اخي شي من امور الدنيا يعلوه خير ,,,,,,,,,,,,,,,

1- (للمبتدئين) للتعليم Learning Edition Visual Basic
2- للمحترفين Professional Edition Visual Basic
3- للمتقدمة Professional Edition Visual Basic


الاولا Learning Edition تحتوي على كل الادوات اللازمة لتطوير برامج قوية وسهلة الاستخدام اضافة الى ذلك يمكن الاتصال بقواعد بيانات معينة بطريقة سهلة وميسرة .
الثاني
Professional Edition والبرفشنال والله سيد قطب ماهي خرابيطهم متعصب له قوه معليش
---------------
هذي تحتوي على كل المميزات في النسخة الاولا اضافة الى اداوات اخرى من نوع اكتف اكس
ActiveX ومصمم تطبيقات يمكن استخدامها على الانترنت وأداة الاتصال على قاعدة بيانات باستخدام معيار ODBC اضافة الى مصمم صفحات الويب على الانترنيت
---------------------
الثالث : هذي خارج تغطية المرجع وخارج حدود الخدمة عندي ليغرك نجيب خبره بس مو لحالي ليتعاونا مع بعظنا ياما والله الحمد جبنا العيد .
• ( المرجع البرمجة بلغة مايكروسفت فجول بيسك م/ناصر المشاري )انصح بهذا الكتاب كمرجع الاصدار النظري والعملي بسراحه ينفع للمحترفين والمبدائين فاسلوب الكاتب جدا ممتاز
تحياتي يالذيب

اخوك الصغير ابــــــــــــــــــــــــــــــــــــــ ــــــــــــــــــــــــــــــــــــــــ ـــــــــــــــــــــــو سيد السلماني