(13-08-15, 04:06 PM)سعود كتب :

إقتباس :السلام عليكم ورحمة الله وبركاته 
حياكـ الله خير 
جزاكـ الله خير ممكن تعلمني هذه الطريقة كيفية اخفاء البيانات واستدعائها فيما بعد وفقكـ الله

بعد اذن الاخ .. يقصد بالاخفاء اي تضع عمود من نوع نعم/لا  باسم مثلا isshow  وعند الاستعلام تشترط ان القيمة نعم.
وعند الاخفاء تضع القيمة لا.

(13-08-15, 04:27 PM)أبوبكر سويدان كتب : بالضبط أخي سعود، ويعمل ما يشبه لوحة التحكم لاسترداد السجلات المخفية.

لكن هذه العملية ستحتاج جهداً أكبر لأنك عندما تخفي سجلا في جدول معين، ستحتاج إلى مراعاة أوضاع السجلات المرتبطة.

عموماً هذه العملية تكون حسب الحاجة وحسب العمل المطلوب.

(13-08-15, 04:19 PM)مبرمج بلا حدود كتب : السلام عليكم ورحمة الله وبركاته 
جزاكـ الله خير على التوضيح 
يعني هنا عند عرض البيانات سوف نضيف شرط التأكد من لاقيمة او النوع (نعم) اظهر هذه البيانات واذا (لا) لاتظهرها 
وعند الحذف فقط نقوم بتغير قيمة النوع الى (لا) 
لكن سوف نواجه مشكلة لان الترقيم (اقصد ترقيم السجلات لن يكون صحيح) بالاضافة عند الطباعة يجب ان نعمل فلترة قبل الطباعة حتى لاتطبع جميع السجلات 
وجزاكم الله خير

(13-08-15, 04:30 PM)أبوبكر سويدان كتب :

(13-08-15, 04:19 PM)مبرمج بلا حدود كتب : السلام عليكم ورحمة الله وبركاته 
جزاكـ الله خير على التوضيح 
يعني هنا عند عرض البيانات سوف نضيف شرط التأكد من لاقيمة او النوع (نعم) اظهر هذه البيانات واذا (لا) لاتظهرها 
وعند الحذف فقط نقوم بتغير قيمة النوع الى (لا) 
لكن سوف نواجه مشكلة لان الترقيم (اقصد ترقيم السجلات لن يكون صحيح) بالاضافة عند الطباعة يجب ان نعمل فلترة قبل الطباعة حتى لاتطبع جميع السجلات 
وجزاكم الله خير

وما المشكلة لو كان الترقيم غير صحيح؟

لتجنب هذه المسألة... لا تعرض رقم السجل امام المستخم حتى لا ينزعج

وبالطبع يجب أخذ ذلك في الحسبان عند الطباعة.

(14-08-15, 04:31 AM)khodor1985 كتب : بالإذن من الإخوة الكرام، الموضوع سهل وبسيط جداً
لنفترض أنك قمت بإنشاء جدول في قاعدة بيانات أكسس بعنوان Person ثم أدرجت داخل الجدول الجقول التالية :
- ID نوع البيانات AutoNumber
- Fname نوع البيانات ShortText
- Lname نوع البيانات ShortText
- Address نوع البيانات ShortText
- Active نوع البيانات Number القيمة الإتراضية (Default Value) تساوي القيمة (1)
المقصود بالـ ID الرقم المعرف والـ Fname الإسم  والـ Lname الشهرة والـ Address العنوان والـ Active نشط .
ثم قمنا بإنشاء مشروع في Visual Studio  بعنوان PersonPro ثم أضفنا إلى المشروع نموذج بعنوان PersonGUI ثم أضفنا إلى النموذج مربع نص (TextBox) عدد 5 وسمينا مربعات النصوص بالتسميات البرمجية التالية :
txtID
txtFname
txtLname
txtAddress
ثم أضفنا خمسة أزرار أمر وسميناها :
btnNew يعني جديد
btnAdd يعني إضافة
btnModify يعني تعديل
btnDelete يعني حذف
btnDeleteAll يعني حذف جمع السجلات
ثم أضفنا 4 أزرار للتنقل بين السجلات :
btnFirst يعني السجل الأول
btnPrevious يعني السجل السابق
btnNext يعني السجل التالي
btnLast يعني السجل الأخير

جميل .... إنتهينا من التصميم

مرحلة الأكواد :
في البداية قم باستدعاء المكتبة التالية :

PHP كود :

Imports System.Data.Oledb 


ثانيا : قم بالإعلان عن المتغيرات التالية في أعلى صفحة الأكواد لتكون عامة ومؤثرة على كافة الإجراءات

PHP كود :

Dim Con as New OledbConnection = ("Put the connection string here")
dim da as OleDBDataAdapter
Dim dt as new datatable
Dim cm as Currencymanager
dim cb as OledbCommandBuilder 


ثالثا : قم بإنشاء إجراء جديد وأعني هنا Sub لجلب البيانات من قاعدة البيانات وسميها Sub LoadPersonData

PHP كود :

Sub LoadPersonData
da = new OledbDataAdapter("Select ID,Fname,Lname,Adress from Person Where Active = 1",Con)
da.Fill(dt)
txtID.DataBinding.Add("Text",dt,"ID")
txtFname.DataBinding.Add("Text",dt,"Fname")
txtLname.DataBinding.Add("text",dt,"Lname")
txtAddress.DataBinding.Add("Text",dt,"Address")
cm.BindingContext(dt)
End Sub 


ثم نستدعي هذا الإجراء في حدث Load للنموذج
جميل... هكذا نكون قد انتهينا من مرحلة جلب البيانات للجدول Person
إضافة الأكواد لأزرار التنقل :
الزر الأول btnFirst :

PHP كود :

cm.position = 0 


الزر الثاني btnPrevious :

PHP كود :

cm.position -= 1 


الزر الثالث btnNext :

PHP كود :

cm.position += 1 


الزر الرابع btnLast :

PHP كود :

cm.position = cm.count -1 


جميل .... هكذا نكون قد انتهينا من إضافة الأكواد لأزرار التنقل

إضافة كود لزر الأمر btnNew :

PHP كود :

cm.AddNew 


إضافة كود لزر الأمر btnAdd :

PHP كود :

Me.Validate()
cm.EndCurrentEdit
cb = new OledbCommandBuilder(da)
da.Update(dt) 


قبل نضيف كود لزر الحذف أو حذف جميع السجلات لا بدو أولا من إنشاء جملة التحديث التنفيذية التي ستحول قيمة Active  من 1 إلى 0 في إجراء بعنوان Sub DeleteData
إليك الكود :

PHP كود :

Dim cmd As new OledbCommand("Update Person Set Active = 0 where ID = " & txtID.Text,con)
con.open
cmd.ExecuteNoNQuery
con.close 


إضافة الكود لزر الحذف :

PHP كود :

DeleteData()
cb = new oledbcommandbuilder(da)
da.update(dt) 


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

PHP كود :

Dim cmd as new oledbcommand("Update Person Set Active = 0")
con.open
cmd.ExecutNONQuery
con.close 


قم بإضافة الإجراء إلى زر حذف جميع السجلات :

PHP كود :

DeleteِAllData()
        cm.EndCurrentEdit()
        cb = New OleDbCommandBuilder(da)
        da.Update(dt) 


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

(14-08-15, 04:40 PM)khodor1985 كتب : عن الرجل العادل يقول : " أعلم الناس من جمع علوم الناس إلى علمه"
يجب تتعلم الفكرة من أكثر من مصدر