[هدوء رغبة]

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

[Ahmed_Mansoor]

(08-12-14, 08:37 PM)هدوء رغبة كتب : سلام عليكم
اخي ولوو تعبتك وياي
الله يوفقك
بس سالفه الوقت ماافهمتهه ,
واريد المده بالواجهه الاستعارة لاتضاف رقم الا بعد ان اضيف تاريخ الارجاع ,وتارخ الارجاع لايعمل الا ان اضيف اني من نفسي
القصد ..
يعني الطالب في اول مرة اعطي الكتاب واسجل تاريخ الاستعارة فقط,وبعدين من يجي الطالب يرجع الكتاب سوف اغير بياناته واضيفله تاريخ الارجاع وراح يعطي المدة تلقائياا

---

شننو فائده قاعدة بيانات الموجودة بالdataenvioment اصلا هي ماموجوده بالتقرير

فائده بالdataenvioment هذا لازم على أساس تقدرين تستخدمين تقرير الDataReport لأنك مستخدمة أداة الـ DataControl وهاذي الأداة مايدعمها تقرير الـDataReport مباشرة لازم عن طريق الـdataenvioment

- رابط مباشر للشرح فيديو فلاش :
http://im65.gulfup.com/n3gmOR.swf

والمثال بعد التعديلات في المرفقات .

[Ahmed_Mansoor]

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

[هدوء رغبة]

ماحصلته الفيديو كوله اخي

[هدوء رغبة]

سلام عليكم .....
اخي بلازحمه عليك بس الفيديو ماحصلته كوله

[Ahmed_Mansoor]

طيب أختي الكريمة راح أشرح لك المثال اللي راح أرسله لك وهو عبارة عن تشفير بسيط بإستخدام المفتاح العام والخاص , أريدك أولا تفهمين طريقة إستخدام أو إستخراج المفتاح العام والمفتاح الخاص , أولا نبدأ بالمفتاح الخاص اللي ما أحد يدري به ونفك التشفير بيه , هذا المفتاح الخاص هو عباره عن رقم عشوائي نأخذه من رقم معين مثلاً كما وضحت في المثال لنعتبر أن الرقم الذي سنتعامل معه هو الرقم 256 إذا لكي نستخرج الرقم الخاص نأخذ أي رقم مابين 1 إلى 256 ولنختار مثلاً الرقم 122 هذا الرقم راح يكون رقم المفتاح الخاص أوكي ألحين كيف نستخرج رقم المفتاح العام الطريقة أننا نقوم بطرح رقم المفتاح الخاص من الرقم 256 والرقم الناتج راح يكون هو رقم المفتاح العام , هكذا :

كود :

هذا المتغير حق المفتاح العام
Dim PublicKey as Integer
هذا المتغير حق المفتاح الخاص
Dim PrivateKey as Integer

إذا إحنا قلنا رقم المفتاح الخاص بنحطه 122

PrivateKey = 122

هنا نستخرج رقم المفتاح العام بعملية الطرح كما تشاهدين
PublicKey = 256 - PrivateKey

إذا سيكون رقم المفتاح العام هو 134 وهذا الرقم الكل يدري به
PublicKey = 134

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

يوجد لكل حرف من الحروف رقم خاص به نتسطيع معرفته بإستخدام الدالة Asc بهذا الشكل :

كود :

Number = Asc("H")

لنطبق الشرح على حرف الـ H رقمه هو 72 , نريد تشفير هذا الحرف , طريقة تشفيره هكذا :

كود :

نجمع رقم الحرف + رقم المفتاح العام
Number = 72 + 134
ناتج عملية الجمع 206
Number = 206
نقسم 206 على 256
Number = 206 Mod 256
ناتج باقي القسمة يساوي 206
Number = 206
نحول ال 206 إلى حرف
Char = Chr$(Number)
يطلع حرف ال خ
Char = "خ"
يعني حرف الـ H بعد تشفيره  يصير حرف الـ خ

الحين نطبق طريقة فك تشفير حرف الـ خ المشفر لكي نرجعه إلى الحرف H الأصلي , والتي سنستخدم رقم المفتاح الخاص , كالتالي :

كود :

نجمع رقم المفتاح الخاص + رقم حرف الـ خ
Number = 206 + 122
ناتج الجمع يساوي 328
Number = 328
نقسم الناتج على 256 ونطلع باقي القسمة
Number = 328 Mod 256
باقي القسمة يساوي 72
Number = 72
نحول الرقم 72 إلى حرف
Char = Chr$(Number)
يطلع لنا الحرف الأصلي يعني كذا فكينا تشفيره
Char = "H"

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

- صندوق الرسائل الخاصة لديك مليان أحذفي الرسائل القديمة .

[kasim alatwani]

الاستاذ Ahmed_Mansoor
ما فائدة المفتاح الخاص والعام .. (يستخدم لماذا ؟) ولو فكرة بسيطة . وفقت لكل خير

[هدوء رغبة]

اي اخي اني فرغتهه الصندوق الوارد خليتهن بالسله المهملات بس مادا يجن الرسائل

[Ahmed_Mansoor]

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

[Ahmed_Mansoor]

أهلا ,

1 - بالنسبة لعدد نسخ الكتب أعتقد مالها داعي يعني غير ضروريه لأنه اللي بيستعير لازم يكون فيه أصلا نسخ إذا مافيه نسخ كيف راح يستعير , لذلك الأفضل تركها .
2- أيضاً التسلسل غير ضروي إظهاره بما أن البحث يكون بإسم الكتاب .
3 - القسم موجود في الفورم الثالث لابد أن تختاري القسم قبل حفظ الإستعارة الجديدة .
4 - شرح الكود :

كود :

  zSQL = "Select * From Borrow Where IsBack =False And DateDiff('d', BorrowDate, Now())> BorrowDuration And ("
 
  For I = 0 To List1.ListCount - 1
      If List1.Selected(I) = True Then
         zSQL = zSQL & "SectionName ='" & Trim$(List1.List(I)) & "' Or "
      End If
  Next

  zSQL = Left$(zSQL, Len(zSQL) - 4) & ")"

- عندنا متغير نصي بإسم zSQL  لكي نخزن فيه جملة الإستعلام الذي يظهر لنا الكتب المتأخرة من جدول الإستعارة  .

- أولا وضعنا نص جملة الإستعلام الأساسية في المتغير zSQL  بالشروط التاليه : أن يكون قيمة الحقل IsBack تساوي False  أو خطأ وهذه القيمة تعني أن الإستعارة لم ترجع بعد , والشرط الثاني أن يكون الفرق بالأيام بين تاريخ الإستعارة في الحقل BorrowDate وبين تاريخ اليوم الحالي أكبر من مدة الإستعارة والتي هي في الحقل BorrowDuration , إلى هنا هذه الشروط الأساسيه , نضيف عليها شرط أن تكون في أقسام معينه نقوم بإختيارها من اللست بوكس التي تظهر لنا في الفورم10 وطبعا بجانب إسم كل قسم في اللست بوكس يوجد مربع صغير لكل نعلم عليه بعلامة "صح" إذا نحن نريد أختياره , طيب لنفترض أننا أخترنا هذه الأقسام : فيزياء-إنجليزي-رياضيات  إذا جملة الإستعلام بعد معرفة الأقسام التي نريدها لابد أن تكون بالشكل التالي :

كود :

Select * From Borrow Where IsBack =False And DateDiff('d', BorrowDate, Now())> BorrowDuration And (SectionName ='فيزياء' Or SectionName ='إنجليزي' Or SectionName ='رياضيات')

ولكننا سنركب أو سنضع الشرط الأخير من جملة الإستعلام واللي هو الأقسام سنضعه برمجيا لذلك سنضع الجزء الأساسي من الإستعلام والذي لابد أن يبقة ثابتاً سنضعه في المتغير الخاص بالإستعلام اللي هو zSQL ولكن نضع فقط بداية  القوس الخاص بجزء الأقسام لأننا بعدها سنضيف أسماء الأقسام التي أختارها المستخدم برمجيا وذلك من خلال حلقة تكرارية For يعني نعمل لفه على جميع الأقسام في اللست بوكس ونفحص كل قسم إذا كان المربع الصغير الموجود بجانبه هل هو معلم عليه بعلامة "صح" أم لا إذا كان معلم عليه بعلامة "صح" يعني أن المستخدم أختاره والجزئية من الكود التي تفحص لنا هل إسم القسم تم إختياره أم لا هي هذه الجزئية :

كود :

If List1.Selected(I) = True Then

يعني إذا كان يساوي True أو صح يعني معلم عليه بعلامة صح يقوم بإضافة إسم هذا القسم لجملة الإستعلام ويضيف بعده كلمة Or لأنه ممكن يكون فيه قسم آخر تم إختياره بعد هذا القسم ولازم يفصل بين كل إسم قسم وآخر كلمة Or كما يلي :

كود :

zSQL = zSQL & "SectionName ='" & Trim$(List1.List(I)) & "' Or "

بعد الإنتهاء من فحص كل الأقسام في اللست بوكس نقوم بحذف كلمة Or من آخر جملة الإستعلام والتي ستكون عباره عن زياده لا فائده منها لذلك نقوم بقصها من آخر جملة الإستعلام  حيث أن آخر جملة الإستعلام سيكون عبارة عن "مسافه" ثم كلمة Or ثم "مسافه" يعني عددها 4 خانات لذلك نقصها بالدالة Left ثم بعد أن نقصها الزياده الغير مرغوب بها نقفل جملة الإستعلام بالقوس الذي هو الجزء الأخير من شرط الأقسام في جملة الإستعلام  , كما يلي :

كود :

zSQL = Left$(zSQL, Len(zSQL) - 4) & ")"

5- إذا تريدين عرض الكتب المستعاره مرتبه بتاريخ الإستعارة , قم بتعديل جملة الإستعلام فقط والموجوده في الفورم6 في زر "تقرير الكتب المستعارة" حيث هي بهذا الشكل :

كود :

DataEnvironment1.Recordsets.Item(1).Open "Select * From Borrow Where IsBack =False"

بعد التعديل ستصبح بهذا الشكل :

كود :

DataEnvironment1.Recordsets.Item(1).Open "Select * From Borrow Where IsBack =False Order By BorrowDate ASC"