برنامج قاعدة بياناتي الأولى- Access + Visual Basic.Net

[CoDe.NeT]

بسم الله الرحمن الرحيم

الحمد لله والصلاة على رسول الله وآله الطيبين وصحبه الأخيار وسلم تسليما كثيرا

برنامج قاعدة بياناتي الأولى- Access + Visual Basic.Net

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

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

رأيت شرحين كلاهما رائعين,
الأول للعضو صاحب الإبداعات ذو المواضيع المميزة المسمى SmoothCriminal ( د.طاهر ) , يتكلم في موضوعه عن قاعدة بينات أكسس تحوي أكثر من جدول مرتبطة فيما بينها ثم استخدم لها الفيجوال بيسك.نت, تجد الموضوع كاملا من هنا http://www.absba.org/vb/showthread.php?t=482775
حيث ستجد موضوعا كبيرا وشاملا ومتشعبا وستعتبره كدليل ومرجع في قواعد البيانات
وهنا تجد ( الإتصال بقواعد البيانات وفحصها باستخدام فيجوال بيسيك 8)
الجزء الأول من كتاب:المدخل إلى فيجوال بيسيك 2005
وغيرها من بدائع الفوائد البرمجية

والثاني, وما أنا بصدد الحديث عنه وهو "الكامل في قواعد البيانات" , للأخ الكريم م. عدي ياسين, الذي قام بشرح ربط قاعدة بيانات Access ببرنامج فيجوال بيسك. نت بطريقة بسيطة وممتعة وإن كان يغلب عليها الأكواد, فماذا قمت به أنا هنا؟

- قمت بتطبيق الشرح كاملا ثم قمت بإعادة كتابته المشروع مع تغيير مسميات المتغيرات وشرح الأكواد وإضافة بعض الأكواد والأزرار كما سترى لاحقا

هذا هو شرح الأخ عدي تجده هنا
http://www.4shared.com/file/56068803/a7246466/_-_.html

وبعد هذه المقدمة الطويلة

جاء دور الشرح الذي أعددته

أولا : إنشاء قاعدة بيانات باستخدام Microsoft Access 2007 بإمتداد (mdb)

قم بفتح برنامج Access 2007 (بالامكان استخدام Access 2003)

أنشئ قاعدة بيانات فارغة Blank Database كما في الصورة

اضغط على المجلد لاختيار مكان حفظ القاعدة ونوعها

اختر النوع mdb

ثم create

ستظهر الآن قاعدة البيانات , قم بإضافة الحقول, أعد تسمية الحقل الأول كما في الاصورة الى "الاسم", وهكذا لباقي الحقول

تظهر الآن الحقول (الاسم, العمر, الجنس, الهاتف, العنوان)

اختر الآن حفظ سيظهر لك مربع رسالة لاختيار اسم الجدول , قم بتسميته TableA

انتقل الى عرض التصميم

قم باختيار مفتاح أساسي وليكن الاسم

انتقل الى عرض ورقة البيانات

قم بملء عدد من البيانات

الآن انتهى الجزء الخاص بقاعدة البيانات

ثانيا: استخدام برنامج Visual Basic .Net لتصفح قاعدة البيانات, والاضافة والحذف والتعديل على قاعدة البيانات مع البحث

قم بتشغيل البرنامج واختيار File ثم New Project

اختر نوع المشروع Windows Application ثم قم بتسميته

سيظهر الآن form1 قم بإعادة تسميته الى Mainform , وغير الحجم الى 532, 452 , ومكن خاصيتي "اليمين الى اليسار"

1- اضف أولا 5 textbox واجعل خاصية Readonly تكون true
ثم اتبعها ب 5 label وغير الخاصية text الى "الاسم" , "العمر", ........, "العنوان" كما في الصورة
2-اضف 4 label غير الأول والثالث منها الى "السجل" و "من" بينما يبقى الثاني والرابع فارغين لملئهما لاحقا برقم السجل المعروض ضمن العدد الكلي للسجلات
3- اضف أربعة أزرار بغرض استعراض السجلات , الأول, التالي, السابق, الأخير
4- أضف أربعة أزرار للتعديل والاضافة والحذف والبحث
5- أضف button و textbox لعرض السجل عن طريق رقمه

البدء في كتابة كود الفورم الرئيسي

هنا الكود كاملا مع الشرح داخل الكود

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

هنا بالزر الأيمن على المشروع ثم Add ثم Windows form

قم بتسمية هذا الفورم الخاص باضافة سجل جديد ب newlist

اضف 5 textbox ولكن هذه المرة تكون خاصية Readonly = false
كذلك اضف 5 lable
و زرين للحفظ والالغاء

مكن خاصية "اليمين لليسار" كما في الصورة

الآن قم بكتابة كود الفورم newlist كالتالي
الكود

بنفس طريقة الفورم الخاص باضافة سجل جديد newlist, قم بإنشاء الفورم الخاص بالتعديل editform كما في الصورة

هنا الكود الخاص ب editform

بنفس طريقة الفورم الخاص باضافة سجل جديد newlist, قم بإنشاء الفورم الخاص بالبحث searchform
ويحوي Groupbox 1 المسمى ب"بحث"
Groupbox 2 المسمى ب"بحث عن" ويحوي 5 radiobutton خاصة ب( الاسم,.....,العنوان)
Groupbox 3 المسمى ب"نوعية البحث" ويحوي 2 radiobutton
textbox الخاص بإدخال كلمة البحث
3 button الخاصة ب ( بحث, إعادة تعيين, عودة الى البرنامج)
5 textbox و 5 label
وكذلك Datagridview
(خطرت في بالي فكرة للاستغناء عن زر إعادة تعيين بكود آخر أضعه في زر "بحث" سأتطرق له لاحق)

كود الفورم searchform

الشكل النهائي

وهنا المشروع للتحميل

http://www.4shared.com/file/56053909/d6921a9e/FirstDataBase1.html
في حال طلب باسوورد فهو 1234

وصلى الله على محمد وآله وصحبه وسلم, والحمد لله رب العالمين

تم رفع صور الشرح إلى سيرفر المنتدى بواسطة المشرف hady potter

[CoDe.NeT]

كود الفورم الرئيسي Mainform

 
'1
 
Imports System.Data

Imports System.Data.OleDb
 
 
Public Class Mainform
 
 
 
'2
Dim connectionstring AsString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source ="


& Application.StartupPath & "\db001.mdb"

'OLEDB تعريف مزود 
' وكذلك مسار قاعدة البيانات
 
'3
Dim newConnection AsNew OleDbConnection(connectionstring)
' statement is: OleDbConnection(ConnectionString)
'OleDbConnection Represents an open connection to a data source.
'Namespace: System.Data.OleDb
'Assembly: System.Data (in system.data.dll)
'The ConnectionString is designed to match OLE DB connection string format as closely as 
'possible with the following exceptions: 
'The "Provider = value " clause is required. However, you cannot use "Provider = MSDASQL" 
'because the .NET Framework Data Provider for OLE DB does not support the OLE DB Provider for 
'ODBC (MSDASQL). To access ODBC data sources, use the OdbcConnection object that is in the 
'System.Data.Odbc namespace.
 
'4
Dim DataSet1 AsNew DataSet
'Datasets are objects that contain data tables where you can temporarily store the data for use
' in your application. If your application requires working with data, you can load the data 
'into a dataset, which provides your application with a local in-memory cache of the data to work 
'with. You can work with the data in a dataset even if your application becomes disconnected from 
'the database. The dataset maintains information about changes to its data so updates can be tracked 
'and sent back to the database when your application becomes reconnected.
 
'5
Dim SQLstr AsString = "SELECT * FROM TableA"
'SQLstr Represents a variable-length stream of characters to be stored in or retrieved from the
' database
 
 
PrivateSub Mainform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
' عند تشغيل البرنامج يتم تحميل التالي
 
'6
newConnection.Open()
' عمل اتصال مع قاعدة البييانات
 
'7
Dim DataAdapter1 AsNew OleDbDataAdapter(SQLstr, newConnection)
' OleDbDataAdapter Represents a set of data commands and a database connection that are used 
'to fill the DataSet and update the data source.
 
'8
DataAdapter1.Fill(DataSet1, 


"TableA")

'DataAdapter1.Fill(Dataset, source table)
' ملء البيانات من الجدول
 
'9
newConnection.Close()
' 
 
'10
TextBox1.DataBindings.Add("Text", DataSet1, "TableA.الاسم")
 
 
' DataBindings.Add(Property name, Data source, Data member)
TextBox2.DataBindings.Add("Text", DataSet1, "TableA.العمر")
 
 
TextBox3.DataBindings.Add("Text", DataSet1, "TableA.الجنس")
TextBox4.DataBindings.Add("Text", DataSet1, "TableA.الهاتف")
TextBox5.DataBindings.Add("Text", DataSet1, "TableA.العنوان")
'DataSet1 ملء مربعات النص بالبيانات من 
 
'11
showlistnumber()
' هذه الدالة لعرض رقم السجل الحالي
EndSub
 
PublicSub showlistnumber()
' هذه الدالة لعرض رقم السجل الحالي من كافة السجلات
Label7.Text = Me.BindingContext(DataSet1, "TableA").Position + 1
 
 
 
' رقم السجل الحالي حيث يبدأ من 1 بدلا من الصفر
Label9.Text = Me.BindingContext(DataSet1, "TableA").Count
 
 
 
' عدد السجلات الكلي
 
EndSub
 
 
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' السجل الأول
Me.BindingContext(DataSet1, "TableA").Position = 0
showlistnumber()
EndSub
 
 
PrivateSub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
' السجل الأخير
Me.BindingContext(DataSet1, "TableA").Position = Me.BindingContext(DataSet1, "TableA").Count - 1
showlistnumber()
EndSub
 
 
PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
' السجل التالي
Me.BindingContext(DataSet1, "TableA").Position += 1
showlistnumber()
EndSub
 
 
PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
' السجل السابق
Me.BindingContext(DataSet1, "TableA").Position -= 1
showlistnumber()
EndSub
 
 
PrivateSub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
' حذف السجل الحالي
' (1,2,.....,10)
 
'1 إظهار رسالة 
If MsgBox("هل تريد حذف السجل الحالي", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
' إذا تم اختيار الغاء يتم الخروج من هذا الاجراء
ExitSub
 
EndIf
 
'2
' أمر SQL
Dim Savecommand AsNew OleDb.OleDbCommand
'OleDbCommand Represents an SQL statement or stored procedure to execute against a data source. 
 
'3
Dim DataAdapter1 AsNew OleDbDataAdapter(SQLstr, newConnection)
 
'4
Savecommand.Connection = newConnection
Savecommand.CommandType = CommandType.Text
 
'5
Savecommand.CommandText = 


"DELETE FROM TableA WHERE الاسم ='" & Trim(TextBox1.Text) & "'"

'Savecommand.CommandText = "SELECT * FROM ***"
'Savecommand.CommandText = "DELETE FROM ***
 
'6
newConnection.Open()
 
'7
Savecommand.ExecuteNonQuery()
'ExecuteNonQuery: Executes an SQL statement against the Connection and returns the number of rows affected
 
'8
DataSet1.Clear()
DataAdapter1.Fill(DataSet1, "TableA")
 
'9
newConnection.Close()
MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح")
 
'10
showlistnumber()
EndSub
 
 
PrivateSub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
' لإظهار الفورم الخاص بإضافة سجل جديد
'Dim newlist As New newlist
newlist.Show()
Me.Hide()
EndSub
 
 
PrivateSub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
' زر تعديل السجل
Dim edit AsNew editform
' ملء مربعات نص فورم التعديل بمحتويات مربعات النص للفورم الأساسي للسجل الحالي 
edit.TextBox1.Text = 


Me.TextBox1.Text

edit.TextBox2.Text = Me.TextBox2.Text
edit.TextBox3.Text = Me.TextBox3.Text
edit.TextBox4.Text = Me.TextBox4.Text
edit.TextBox5.Text = Me.TextBox5.Text
 
edit.Label6.Text = Me.TextBox1.Text
' يأخذ الفورم محتويات مربعات النص للسجل الحالي
' عرض فورم التعديل
edit.Show()
Me.Hide()
 
EndSub
 
PrivateSub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
' زر خروج
Application.Exit()
EndSub
 
 
PrivateSub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
' بحث
searchform.Show()
Me.Hide()
EndSub
 
 
PrivateSub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
' زر عرض السجل رقم
If TextBox6.Text = ""Then
ExitSub
' إذا كان محتوى مربع النص فارغا يتم الخروج من هذا الإجراء
 
ElseIf Val(TextBox6.Text) > Me.BindingContext(DataSet1, "TableA").Count Then
Label11.Text = 


"أدخلت رقما خاطئا"

' إذا كان رقم السجل المدخل أكبر من عدد السجلات يظهر محتوى الليبل11
 
Else
' يظهر السجل المدخل رقمه
Me.BindingContext(DataSet1, "TableA").Position = (TextBox6.Text - 1)
' تم طرح 1 لأن السجلات تبدأ العد من الصفر لكن ستظهر للمستخدم من الواحد
showlistnumber()
Label11.Text = ""
EndIf
EndSub
 
 
PrivateSub TextBox6_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
' لمنع إدخال الحروف والرموز والسماح للارقام وزر باك-سبيس في مربع نص 6 الخاص ب"عرض السجل رقم"
If (Char.IsLetter(e.KeyChar) = True) Then
e.Handled = True
 
 
' ‘إذا كان المدخل حرف قم بمنع الكتابة
ElseIfChar.IsSymbol(e.KeyChar) = True Then e.Handled = True
 
 
'إذا كان المدخل رمز قم بمنع الكتابة
ElseIfChar.IsPunctuation(e.KeyChar) = True Then
e.Handled = True
 
 
'إذا كان المدخل ترقيم قم بمنع الكتابة
EndIf
 
EndSub
EndClass
 

[CoDe.NeT]

كود الفورم newlist

 

Imports System.Data
Imports System.Data.OleDb

 
Public Class newlist
Dim main AsNew Mainform
 
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' زر الحفظ
 
'1 (exception handler) (Try...Catch ex as exception...End Try)
Try
 
'2
Dim Savecommand AsNew OleDb.OleDbCommand
 
'3
Dim connectionstring AsString = _
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
Application.StartupPath & "\db001.mdb"
 
'4
Dim newconnection AsNew OleDbConnection(connectionstring)
 
'5
Savecommand.Connection = newconnection
Savecommand.CommandType = CommandType.Text
 
'6
Savecommand.CommandText = 


"INSERT INTO TableA(الاسم,العمر,الجنس ,الهاتف, العنوان)" & _
"values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "') "
 
'7
newconnection.Open()
Savecommand.ExecuteNonQuery()
newconnection.Close()
 
'8
MsgBox(


"تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح")
 
Me.Close()
 
main.Show()
 
Catch ex As Exception
ExitSub
EndTry
EndSub
 
 
PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
' زر الغاء
Me.Close()
main.Show()
EndSub
 
EndClass
 

[CoDe.NeT]

كود الفورم editform

 

Imports System.Data

Imports System.Data.OleDb

Public Class editform

 
Dim main AsNew Mainform
 
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
Dim n AsString = Label6.Text
Dim Savecommand AsNew OleDb.OleDbCommand
Dim Connectionstring AsString = _
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
Application.StartupPath & "\db001.mdb"
 
Dim newconnection AsNew OleDbConnection(Connectionstring)
Savecommand.Connection = newconnection
Savecommand.CommandType = CommandType.Text
 
Savecommand.CommandText = "UPDATE TableA SET الاسم = '" & Trim(TextBox1.Text) & "' , العمر = '" & Trim(TextBox2.Text) & "' , الجنس = '" & Trim(TextBox3.Text) & "' , الهاتف = '" & Trim(TextBox4.Text) & "' , العنوان= '" & Trim(TextBox5.Text) & "' WHERE الاسم ='" & n & "'"
newconnection.Open()
Savecommand.ExecuteNonQuery()
newconnection.Close()
MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح")
Me.Close()
main.Show()
EndSub
 
 
PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
main.Show()
EndSub
 
EndClass
 

[CoDe.NeT]

كود الفورم searchform

 
 

Imports System.Data


Imports System.Data.OleDb


Public Class searchform

Dim main AsNew Mainform
 
Dim Connectionstring AsString = _
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
Application.StartupPath & "\db001.mdb"
 
Dim newconnection AsNew OleDbConnection(Connectionstring)
Dim DataSet1 AsNew DataSet
Dim SQLstr AsString
Dim m AsString
 
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' بحث
 
Static m AsInteger = 0
' Static: Specifies that one or more declared local variables are to remain in existence and retain their
' latest values after termination of the procedure in which they are declared
 
If TextBox1.Text = Trim("") ThenExitSub
' إذا كان مربع النص فارغ يتم انهاء هذا الاجراء
 
If RadioButton7.Checked = TrueThen
ExactSearch()
' مطابق للكلمة
' يتم تنفيذ الدالة ExactSearch 
 
ElseIf RadioButton6.Checked = TrueThen
GeneralSearch()
' GeneralSearchيتم تنفيذ الدالة
' عام
 
EndIf
 
newconnection.Open()
 
Dim DataAdapter1 AsNew OleDbDataAdapter(SQLstr, newconnection)
 
DataAdapter1.Fill(DataSet1, "TableA")
 
newconnection.Close()
 
 
' ملء مربعات النص بما يوافق ناتج كلمة البحث
TextBox2.DataBindings.Add("Text", DataSet1, "TableA.الاسم")

TextBox3.DataBindings.Add("Text", DataSet1, "TableA.العمر")
TextBox4.DataBindings.Add("Text", DataSet1, "TableA.الجنس")
TextBox5.DataBindings.Add("Text", DataSet1, "TableA.الهاتف")
TextBox6.DataBindings.Add("Text", DataSet1, "TableA.العنوان")
 
 
' ملء الداتاقريد بنتائج كلمة البحث
DataGridView1.DataSource = DataSet1
DataGridView1.DataMember = "TableA"
DataGridView1.AllowDrop = True

 
 
' عند الانتهاء من البحث يتم تعطيل زر البحث لتفادي الخطأ؟؟؟
Button1.Enabled = False

 
 
If Me.BindingContext(DataSet1, "TableA").Count = 0 Then
MsgBox("No Result, Please Try Again ")

ExitSub
EndIf
EndSub
 
PublicSub ExactSearch()
' مطابق للكلمة
If RadioButton1.Checked = True Then
SQLstr = "SELECT * FROM TableA WHERE الاسم = '" & TextBox1.Text & "'"

' الاسم
 
ElseIf RadioButton2.Checked = True Then
SQLstr = "SELECT * FROM TableA WHERE العمر = '" & TextBox1.Text & "'"

' العمر
 
ElseIf RadioButton3.Checked = True Then
SQLstr = "SELECT * FROM TableA WHERE الجنس = '" & TextBox1.Text & "'"

' الجنس
 
ElseIf RadioButton4.Checked = True Then
SQLstr = "SELECT * FROM TableA WHERE الهاتف = '" & TextBox1.Text & "'"

' الهاتف
 
ElseIf RadioButton5.Checked = True Then
SQLstr = "SELECT * FROM TableA WHERE العنوان = '" & TextBox1.Text & "'"

' العنوان
 
EndIf
EndSub
 
 
PublicSub GeneralSearch()
' بحث عام
 
If RadioButton1.Checked = True Then
SQLstr = "SELECT * FROM TableA WHERE الاسم LIKE '%" & TextBox1.Text & "%'"

 
ElseIf RadioButton2.Checked = True Then
SQLstr = "SELECT * FROM TableA WHERE العمر LIKE '%" & TextBox1.Text & "%'"

ElseIf RadioButton3.Checked = True Then
SQLstr = "SELECT * FROM TableA WHERE الجنس LIKE '%" & TextBox1.Text & "%'"

ElseIf RadioButton4.Checked = True Then 
SQLstr = "SELECT * FROM TableA WHERE الهاتف LIKE '%" & TextBox1.Text & "%'"
 

ElseIf RadioButton5.Checked = TrueThen
SQLstr = "SELECT * FROM TableA WHERE العنوان LIKE '%" & TextBox1.Text & "%'"

EndIf
EndSub
 
 
 
PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
' زر عودة الى البرنامج
 
Me.Close()
main.Show()
EndSub
 
PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
' اعادة تعيين
 
' لتمكين البحث مرة أخرى
TextBox2.DataBindings.Clear()
TextBox3.DataBindings.Clear()
TextBox4.DataBindings.Clear()
TextBox5.DataBindings.Clear()
TextBox6.DataBindings.Clear()
TextBox2.Text = ""
TextBox3.Text = 


""
TextBox4.Text = 


""
TextBox5.Text = 


""
TextBox6.Text = 


""
'DataGridView1.DataBindings.Clear()
'DataGridView1.*******()
'DataGridView1.AllowUserToDeleteRows = True
'DataGridView1.Update()
 
Button1.Enabled = True

SQLstr = ""

DataSet1.Clear()
Me.DataGridView1.DataSource = Nothing
EndSub
 
 
PrivateSub searchform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
 
RadioButton1.Checked = True
RadioButton6.Checked = True

EndSub
EndClass
 

[aziz2122]

صور الشرح أخي الفاضل اغلبها غير ظاهر أرجو منك تعديلها لأنه هذا الموضوع بيفيدنا كثير

وجزاك الله كل خير

[eldofi]

اخي الغالي اتمنى ان تكون في اتم صحة و عافية

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

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

تقبل مروري

[fehmixp]

شرح رائع هل ممكن التعمق اكثر في الموضوع ولكل الشكر

[CoDe.NeT]

المشاركة الأصلية كتبت بواسطة aziz2122

صور الشرح أخي الفاضل اغلبها غير ظاهر أرجو منك تعديلها لأنه هذا الموضوع بيفيدنا كثير

وجزاك الله كل خير

عذرا أخي إذا كان بعض الصور لا تظهر
هذا رابط الصور (ملف مضغوط)
http://www.4shared.com/file/56068969.../__online.html

المشاركة الأصلية كتبت بواسطة eldofi

اخي الغالي اتمنى ان تكون في اتم صحة و عافية

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

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

تقبل مروري

جزاك الله خيرا على ردك وبارك فيك وجعلك سندا لكل خير

المشاركة الأصلية كتبت بواسطة fehmixp

شرح رائع هل ممكن التعمق اكثر في الموضوع ولكل الشكر

شكرا لك أخي على مرورك وأتمنى لك الفائدة
ممكن التعمق إن شاء الله في الموضوع القادم, إلا إذا كانت لديك نقاط في الموضوع هذا غير واضحة

حاليا أقوم بعمل نفس المشروع بدلا من 4 form جعلته فورم واحد وكل شيء على ما يرام ما عدا ما يخص البحث جاري المحاولة وسأقوم برفعه إذا انتهيت منه مع الشرح إذا أمكن

[CoDe.NeT]

تم اختصار عدد الفورم بدلا من 4 إلى واحد , مع عدم عمل البحث (يحتاج الى تعديل)

تجده هنا

http://www.zshare.net/download/16513229be1009c6/

ألاحظ أن مواضيعي بدأت تفقد شيئا مما كانت عليه في السابق لذلك سيتم محاولة التحسين قدر الامكان للمواضيع القادمة إن شاء الله

(بالنسبة للإخوة الذين يراسلوني على البريد فإنهم يعتقدون أني مبرمج ولكن الحقيقة هي:
- درست كورس واحد في لغة C
- تركت البرمجة عدة أعوام
- رجعت للبرمجة عن طريق موضوع الدكتور طاهر SmoothCriminal "حل معادلات الدرجة الثانية" ثم "الآلة العلمية" ورأيت فيها لذة البرمجة التي أحبها
- بدأت الدروس الموجودة في المنتدى مثل "المدخل إلى فيجوال بيسك 2005" وغيرها من الدروس
- قرأت بإختصار بعض الكتب ولازلت أقرأ في كتاب "احتراف Visual Basic.Net" الذي أظن أني وجدته بالمنتدى وأعدت طرحه
- شاهدت وتعرفت على عدة مشاريع في المنتدى ومنتدى الفريق العربي وغيرها
- هوايتي هي البرمجة وأقوم بعمل بعض البرامج البسيطة
- لغة البرمجة التي أتعلمها حاليا هي Visual Basic.Net
-************
- من يطلب مني مساعدة فأنا المستفيد الأول لأني قد أحاول حلها أو البحث عنها فأكتسب معلومة جديدة


هذه السيرة الذاتية البرمجية للعضو المسمى CoDe.NeT

ادعو له بالهداية والتوفيق