(06-02-18, 08:16 PM)عبدالله الدوسري كتب : [ -> ] (06-02-18, 08:00 PM)سعود الشامان كتب : [ -> ]اذا حضر الماء بطل التيمم
شكرا عالمعلومات أستاذ عبدالله
ما نستغني عنك أخوي سعود ، بارك الله فيك .
بعد قلبي انت
نقطة من بحر في جانبك أستاذنا الغالي ,, ماشاء الله عليك
بعد إذن الغالي عبد العزيز
عندي سؤال استاذنا الفاضل بخصوص المشروع اللذي أرفقته بمشاركتي السابقة
الآن لو شاركت قاعدة البيانات واعطيت صلاحية إضافة بيانات لقسم اخر فلنفرض ( الإدارة الطبية )
ستكون قاعدة البيانات في خطر ( سيتمكن اي عابث او مخرب او حاقد من حذف القاعدة )
هل يوجد حل لهذه المشكلة ؟
مع العلم الآن تعمل على السيرفر الإفتراضي للويندوز كتجربة
لكن مستقبلا سيتم وضعها على ( جهاز سيرفر )
(06-02-18, 08:17 PM)سعود الشامان كتب : [ -> ]لإختصار الوقت
من قائمة المشروع اختر ملف >> تسجيل الدخول >>
دخول Admin
اسم المستخدم: سعود الشامان
كلمة السر : 1411
تسلم أخي الكريم " سعود الشامان " و سلم يمينك و دينك .. لكن يبدو أنّه ليس لي في الطيّب نصيب ..
إحتراماتي
(06-02-18, 08:24 PM)عبدالله الدوسري كتب : [ -> ] (06-02-18, 07:54 PM)عبد العزيز البسكري كتب : [ -> ]فقط أخي الكريم .. كيف يمكن إضافة الجزء الخاص لمّا يكون الجدول فارغًا ببداية الكود ..
إذا كان الجدول فارغا من البيانات .. يتم الخروج من الكود و عدم تنفيذ الحذف
و إذا كان الجدول به بيانات يتم تجاهل الجزء أعلاه و يتم الحذف بشكل عادي بالكود بالمرفقات بالملف بالمشاركة الأولى
شاكر مجهودك أخي القدير .. إلهي يجعل كل حرف ممّا كتبته بمليون حسنة و أكثر
تحياتي
مشاركاتي حلياً بالهاتف، ولا استطيع تحميل ملفات المشاريع بالهاتف.
نفس ردي السابق لا تغيير ، يمكن الفكرة ما وصلت، ان شاء الله الشباب ما يقصرون فيهم الخير والبركة.
وأعتذر منك أخوي عبدالعزيز، لبعدي عن جهاز الكمبيوتر حالياً.
تحياتي للجميع.
السّلام عليكم و رحمة الله و بركاته
لا تعتذر أخي و أستاذي الفاضل " عبد الله الدّوسري " .. نحن الواجب علينا الاعتذار لك عن تعبك و مجهودك الرائع مع الجميع
عسى الله أن يعوّضك بأحسن و أفضل منها و يزيدها بموازين حسناتك إن شاء الله
كل المحبّة و التّقدير و الاحترام
If DT.ROWS.COUNT = 0 Then
Exit Sub
End If
تححقق من وجود سجلات اولا DT هي داتا تايبل تجلب السلاجلات
في كل البرامج يجب وضع قواعد التحقق أولا في الكود
بيوصلك باذن الله بس عطني بعض الدقائق
فعلا الملف معطوب اتوقع اني اعتمدت المشاركة والملف لم يكتمل رفعه
جاري حذفه واعادة رفعه من جديد مع التجربة بعد الرفع
تم رفع المشروع ع الميديا فاير و الملف يفتح بشكل سليم
http://www.mediafire.com/file/57g8x4m57s..._test2.zip
[url=http://www.mediafire.com/file/57g8x4m57sv351r/sintral_test2.zip][/url]
(06-02-18, 10:08 PM)محمد بن عطية كتب : [ -> ]If DT.ROWS.COUNT = 0 Then
Exit Sub
End If
تححقق من وجود سجلات اولا DT هي داتا تايبل تجلب السلاجلات
في كل البرامج يجب وضع قواعد التحقق أولا في الكود
السّلام عليكم و رحمة الله و بركاته
تسلم أخي الكريم " محمد بن عطية " و سلم يمينك و دينك
بارك الله فيك و لك و جزاك خير الجزاء و زادها بموازين حسناتك إن شاء الله
هذا ما كنت أبحث عنه ..
فعلاً تحقّق المطلوب .. و كود الحذف يعمل بطريقة ممتازة ..
كود :
Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
If InfoTable.Rows.Count = 0 Then
MsgBox("قاعدة البيانات فارغة .. لا توجد بيانات لتنفيذ الأمر ")
Exit Sub
End If
If MessageBox.Show(" هل تريد فعلا حذف بيانات هذا المسجل ؟؟ " & TextBox2.Text & " " & TextBox3.Text & " ? ", "الحذف", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.Yes Then
InfoManager.RemoveAt(InfoManager.Position)
MsgBox("تمت بنجاح عملية الحذف ", MsgBoxStyle.Information, "حذف البيانات")
Else
Call SetState("View")
End If
End Sub
أجدّد شكري و تقديري و امتناني لسيادتك
إحتراماتي و تقييماتي
(06-02-18, 10:11 PM)سعود الشامان كتب : [ -> ]بيوصلك باذن الله بس عطني بعض الدقائق
فعلا الملف معطوب اتوقع اني اعتمدت المشاركة والملف لم يكتمل رفعه
جاري حذفه واعادة رفعه من جديد مع التجربة بعد الرفع
تم رفع المشروع ع الميديا فاير و الملف يفتح بشكل سليم
http://www.mediafire.com/file/57g8x4m57s..._test2.zip
[url=http://www.mediafire.com/file/57g8x4m57sv351r/sintral_test2.zip][/url]
السّلام عليكم و رحمة الله و بركاته
يعطيك ألف صحّة و ألف عافية أخي الكريم " سعود الشامان " على حسن المتابعة الرائعة الطيّبة
إلهي لا يحرمنا منك أبدًا و يطيل بعمرك بمحبّته و مرضاته
بارك الله فيك و لك و في كل أفراد أسرتك الكريمة
سأستغل ملفك بدراسته و دراسة أفكاره النيّرة إن شاء الله
تقبّل كل الود و الحب الأخوي و الاحترام و التقدير و الامتنان و العرفان بجميل أعمالك
تحياتي و تقييماتي
الله يسعدك بالدارين ويضاعف لك ما تتمنى لي
واعتبرك فرد من افراد اسرتي ونعم الاخو
والمشروع طورت فيه واضفت له شريط اخبار متحرك من اليسار لليمين
وسابحث عن طريقة لاضافة جداول الاقسام صورة او كتاب الكتروني (pdf)
ويمكن عمل غرفة اجتماعات واشياء كثير.... سأطرح سورس المشروع بالكامل بعد اعتماده من الوزاره باذن الله
السّلام عليكم و رحمة الله و بركاته
أخي الكريم " سعود الشامان " ربّنا يبارك لك في صحّتك و أوقاتك و مالك و أهلك و يرزقك من حيث تحتسب و من حيث لا تحتسب إن شاء الله .. و يبارك في صالح أعمالك و يوفّقك بشتّى أمورك الدينية و الدنيوية
إن شاء الله مشروعك يرى النّور بكل ما تحمله الكلمة من معاني
ليس لي ما أهديه لك سوى هذا الختم المتواضع باسمك
تحياتي و تقديراتي و تقييماتي
ما شاء الله تبارك تصميم قمة الروعة
ألف شكر يا غالي ,, والموضوع بسيط ما يحتاج ...
اسال الله لك التوفيق والنجاح
