+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [مشروع] اريد المشروع ادراه المكتبة (/showthread.php?tid=10489)
RE: اريد المشروع ادراه المكتبة - هدوء رغبة - 08-12-14
اني كتبت عل الاساس المده
هو الطالب من يرجع الكتاب اذا كان اكثر من 10 ايام راح يصير كتاب متاخر
اشلون اعورفه من يسلم الطالب الكتاب راح اكتب بياناته تاريخ الارجاع والمده وراح اعورف اتاخر لو لا
RE: اريد المشروع ادراه المكتبة - Ahmed_Mansoor - 09-12-14
(08-12-14, 08:37 PM)هدوء رغبة كتب : سلام عليكم
اخي ولوو تعبتك وياي
الله يوفقك
بس سالفه الوقت ماافهمتهه ,
واريد المده بالواجهه الاستعارة لاتضاف رقم الا بعد ان اضيف تاريخ الارجاع ,وتارخ الارجاع لايعمل الا ان اضيف اني من نفسي
القصد ..
يعني الطالب في اول مرة اعطي الكتاب واسجل تاريخ الاستعارة فقط,وبعدين من يجي الطالب يرجع الكتاب سوف اغير بياناته واضيفله تاريخ الارجاع وراح يعطي المدة تلقائياا
شننو فائده قاعدة بيانات الموجودة بالdataenvioment اصلا هي ماموجوده بالتقرير
فائده بالdataenvioment هذا لازم على أساس تقدرين تستخدمين تقرير الDataReport لأنك مستخدمة أداة الـ DataControl وهاذي الأداة مايدعمها تقرير الـDataReport مباشرة لازم عن طريق الـdataenvioment
- رابط مباشر للشرح فيديو فلاش :
http://im65.gulfup.com/n3gmOR.swf
والمثال بعد التعديلات في المرفقات .
RE: اريد المشروع ادراه المكتبة - Ahmed_Mansoor - 11-12-14
تم إرسال رسالة خاصة لك , يوجد فيها شرح فيديو فلاش للبرنامج , بالتوفيق .
RE: اريد المشروع ادراه المكتبة - هدوء رغبة - 13-12-14
ماحصلته الفيديو كوله اخي
RE: اريد المشروع ادراه المكتبة - هدوء رغبة - 17-12-14
سلام عليكم .....
اخي بلازحمه عليك بس الفيديو ماحصلته كوله
RE: اريد المشروع ادراه المكتبة - Ahmed_Mansoor - 28-01-15
طيب أختي الكريمة راح أشرح لك المثال اللي راح أرسله لك وهو عبارة عن تشفير بسيط بإستخدام المفتاح العام والخاص , أريدك أولا تفهمين طريقة إستخدام أو إستخراج المفتاح العام والمفتاح الخاص , أولا نبدأ بالمفتاح الخاص اللي ما أحد يدري به ونفك التشفير بيه , هذا المفتاح الخاص هو عباره عن رقم عشوائي نأخذه من رقم معين مثلاً كما وضحت في المثال لنعتبر أن الرقم الذي سنتعامل معه هو الرقم 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"هاذي طريقة التشفير وفك التشفير بإستخدام مفتاحي العام والخاص .
- صندوق الرسائل الخاصة لديك مليان أحذفي الرسائل القديمة .
RE: اريد المشروع ادراه المكتبة - kasim alatwani - 28-01-15
الاستاذ Ahmed_Mansoor
ما فائدة المفتاح الخاص والعام .. (يستخدم لماذا ؟) ولو فكرة بسيطة . وفقت لكل خير
RE: اريد المشروع ادراه المكتبة - هدوء رغبة - 29-01-15
اي اخي اني فرغتهه الصندوق الوارد خليتهن بالسله المهملات بس مادا يجن الرسائل
RE: اريد المشروع ادراه المكتبة - Ahmed_Mansoor - 29-01-15
نفس المشكله باقي الرسايل مليانه عندك لازم تحذفيها حتى من سلة المحذوفات.
RE: اريد المشروع ادراه المكتبة - Ahmed_Mansoor - 29-01-15
أهلا ,
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 ='رياضيات')كود :
If List1.Selected(I) = True Thenكود :
zSQL = zSQL & "SectionName ='" & Trim$(List1.List(I)) & "' Or "كود :
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"