Çä ÔÇÁ Çááå Çáíæã ÓæÝ ÇÔÑÍ ÇÈÓØ æÇÓÑÚ ØÑÞ ÇáÊÚÇãá ãÚ ÞæÇÚÏ ÇáÈíÇäÇÊ æßíÝíå ÇÌÑÇÁ ÇáÚãáíÇÊ ÇáãÔÇÚå æáÊì äßËÑ Ýì ÇÓÊÎÏÇãåÇ Ýì ãÔÇÑíÚäÇ ÇáãÑÈæØå ÈÇáÏÇÊÇ ÈíÒ æåíå ãËá ..

( ÇÖÇÝå - ÊÚÏíá - ÍÐÝ - ÈÍË )

æÓæÝ ÇÔÑÍ ÇíÖÇ ÇÝÖá ÇáØÑÞ áÊÕãíã æÌåå áÊÚÇãá ÇáãÓÊÎÏã ãÚ ÇáÏÇÊÇ ÈíÒ

ÈÇáäÓÈå áãÍÑß ÇáÏÇÊÇ ÈíÒ Çáì åÇäÓÊÎÏãåÇ Ýì ÏÑÓ Çáíææã åæå SQL Server 2005
æÈÇáäÓÈå Çáì ÇáÛå ÇáãÓÊÎÏãå ááÊÚÇãá ãÚ ÇáÏÇÊÇ ÈíÒ åíå Visual Basic.net 2008

æÈÃÐä Çááå äÈÏÇÁ ÇáÔÑÍ

=========================

ÞÈá Çì ÔìÁ áÇÒã äÌåÒ ÇáÏÇÊÇ ÈíÒ ÇáÊì ÓäÚãá ÚáíåÇ ÝÇ Çæá ÔìÁ áÇÒã äÚãá Ïæä áææÏ áÏÇÊÇ ÈíÒ ãä åÐÇ ÇáÑÇÈØ

http://www.mediafire.com/?emkb23gwnj9

æåíå ÈÃÓã AdventureWorksDB
æÇáÍÌã 27.3 MB
æØÑíÞå ÇÓÊÎÏÇãåÇ ßÇáÊÇáì :-

ÈÚÏ ÊÍãíá ÇáãáÝ
1- äÝÊÍ SQL Server Management Studio Express
2- ßáíß íãíä Úáì ãÌáÏ Database ãä ÇáÞÇÆãå Ëã ÇÎÊÑ Attach
3-Ëã äÖÛØ Úáì ÒÑ Add (ÓæÝ íÊã ÝÊÍ ÇáãÓÇÑ ááÏÇÊÇ ÈíÒ ÇáãæÌæÏ Úáì ÌåÇÒß )
4- äÎÊÇÑ ÇÓã ÇáÏÇÊÇ ÈíÒ ÈÊÚÊäÇ æåíå AdventureWorksDB æäÖÛØ Úáì ÒÑ OK
5- ÈÚÏ ÇáÇÎÊíÇÑ áÂÊãÇã ÇáÚãáíå äÖÛØ OK

ÚáÔÇä íßæä ÚäÏäÇ ÇáÔßá ÇäåÇÆì ãá åÐÇ



ÈÚÏ ÇáÇäÊåÇÁ ãä ÇÖÇÝå ÇáÏÇÊÇ ÈíÒ ääÊÞá Çáì Visual Studio áÈÏÇíå ÇáÚãá Úáì ÇáÏÇÊÇ ÈíÒ

ääÔÇÁ ãÔÑæÚ ÈÃÓã æáíßä ãËáÇ Absba Training

Ýì åÐÇ ÓäÊÚáã ÇáÊÚÇãá ãÚ ÇáÏÇÊÇ ÈíÒ ÈÏæä ßææÏ íÚäì åÇäÔÊÛá ÈØÑíÞå Wizard æåíå Ýì ÇáÝíÌæÇá ÇÓÊÏíæ 2008 Þæíå ÌÏÇ æÈäÞÏÑ äÍÏÏ ãäåÇ ßá ÔìÁ äÑíÏå
Ýì äÇÓ ßÊíÑ áÍÏ ÇáÂä ÈÊÓÊÎÏã ÇáßææÏ ãä Ýì ÇáÊÚÇãá ãÚ ÇáÏÇÊÇ ÈíÒ æíäÓæÇ ÈÞì ßæÏ ãÚíä æíØáÚ ÇíÑæÑ ÛÑíÈ ÈÇáäÓÈå áíåã ÝÇáØÑíÞå Ïì ÈÊæÝÑ æÞÊ æãÌåæÏ
ÈÓ ÞÈá ãÇ ÊÓÊÎÏãåÇ áÇÒã Êßæä ÝÇåã ÇáÇÏæÇÊ Çáì ÈäÍÊÇÌåÇ ááÊÚÇãá ãÚ ÇáÏÊÇ ÈíÒ ãËá
(data set ,data adapter ) ÇáÎ ÇáÎ

Çæá ÎØæå ÈÚÏ ÇäÔÇÁ ÇáãÔÑæÚ åíå ÇáÃÊÕÇá ÈÇáÏÇÊÇ ÈíÒ æÎØæÊåÇ ßÇáÊÇáì

áÇÒã ÇáÇæá äÙåÑ ÞÇÆãå ÇáÏÊÇ ÓæÑÓ ßÇáÊÇáì :-



Ëã



ÓíÙåÑ æÌåå áÂÎÊíÇÑ äæÚ ÇáÏÇÊÇ ÓæÑÓ æÇáÇÝÊÑÇÖì áåÇ åæå database Ëã äÖÛØ Úáì ÒÑ Next

Ëã



Ëã



Ëã äÎÊÇÑ ÇÓã SQL Server æäÎÊÇÑ ÇÓã ÇáÏÇÊÇ ÈíÒ Çáì ÑÇÍ äÔÊÛá ÚáíåÇ



Ëã



Ëã äÎÊÇÑ ÇáÌÏÇæá Çáì ÈäÑíÏ äÓÊÎÏãåÇ Ýì ãÔÑæÚäÇ ØÈÚÇ ÇäÇ Ýì ÇáãËÇá Ïå ÇÎÊÑÊ ßáå



ØíÈ áæ ÝÑÖäÇ ÇääÇ ÚÇíÒíä äÖíÝ ÌÏæá ÌÏíÏ Ýì ÇáÏÊÇ ÈíÒÒ æÍÈíÊ ÇÖíÝå ÚäÏì Ýì ÇáÏÇÊÇ ÓæÑÓ ßíÝ ÑÇÍ íÊã Ïå ¿

Èßá ÈÓÇØå äÐåÈ Çáì SQL Server áÂÖÇÝå ÇáÌÏæá ßÇáÊÇáì



Ëã äÌåÒ ÇáÌÏæá ÈÇáÔßá Ïå



Ëã äÚãá Save ÈÃÓã Test


Çáì åÐÇ ÇáÍÏ íäÊåì ÚãáäÇ ãÚ SQL server Ëã ääÊÞá Çáì Visual Studio æäÊÈÚ ÇáÊÇáì



Ëã äÎÊÇÑ ÇÓã ÇáÌÏæá ÇáãÑÇÏ ÇÖÇÝÊå



æÊãÊ ÇáÇÖÇÝå ÈäÌÇÍ



ÈÚÏ ÇáÊÚÑÝ Úáì ÇáÇÊÕÇá ÈÇÏÇÊÇ ÈíÒ ääÊÞá Çáì ØÑíÞå ÑÈØ ÇáÏÇÊÇ ÈíÒ ãÚ æÌåå ÇáÈÑäÇãÌ

ÇÍäÇ åÇäÊÚÇãá ãÚ ÇáÌÏæá Çáì ÇÍäÇ ÚãáäÇå ( TEST)

ãÈÏÆíÇ ÇÍäÇ ãÍÊÇÌíä äÕãã æÌåå ãËá åÐÇ ÇáÔßá



ßãÇ åæå ãæÖÍ ÇãÇãßã ÇáÝæÑãå ÈÓíØå ãæÌæÏ ÝíåÇ ÇÏÇå ToolStrip æ Group Box æ Button
æåÇäÔÑÍ ÇÓÊÎÏãäÇ áåÐå ÇáæÌå áÇÍÞÇ
ÇáÇä ÈÚÏ ãÇ ÎáÕäÇ ÇáÊÕãíã ÇáÛíÑ ãÑÈæØ ÈÇáÏÊÇ ÈíÒ äíÌì ááÎØæå ÇáÊÇáíå æåíå æÖÚ ÇáßäÊÑæá ÇáãÑÈæØå ÈÇáÏÇÊÇ ÈíÒ
ßá ãÇ ÚáíäÇ åæå ÇÓÊÎÏÇã ØÑíÞå ( ÇáÓÍÈ æÇáÇÝáÇÊ ) Çæ (Drag and Drop ) áÂÚãÏå ÇáÌÏæá ÇáãÑÇÏ ÑÈØå ÈÇáæÌåå æÝì ãËÇáäÇ åÐÇ ÓæÝ äÓÊÎÏã ÌÏæá TEST Çáì ÇÍäÇ ÚãáäÇå ãÓÈÞÇ ßÇáÊÇáì



ÈÚÏ ÇäÊåÇÁ ãä åÐå ÇáãÑÍáå äÚÏá ÇáÔßá áíÕÈÍ ßÇáÊÇáì :



áæ ÇÍäÇ ÚãáäÇ RUN ááÈÑäÇãÌ Ýì åÐå ÇáãÑÍáå ÑÇÍ íÙåÑ ÇáÏÇÊÇ ÇáãæÌæÏå Ýì ÇáÌÏæá TEST
æåÐÇ ÈÓÈÈ æÌæÏ ßæÏ Êã ßÊÈÇÊå ÊáÞÇÆíÇ ÚäÏ ÓÍÈ æÇÝáÇÊ ÇáÇÚãÏå Çáì æÌåå ÇáÈÑäÇãÌ æåæå ÑÇÍ íßæä ÈåÐÇ ÇáÔßá



ØíÚÇ ÇÍäÇ ãáÇÍÙíä Çä ÇáßæÏ ãæÌæÏ Ýì ÍÏË Form Load

ØíÈ ÇÍäÇ áÞíäÇ ßææÏ ãæÌæÏ ÌÇåÒ ÇÍäÇ ÚÇíÒíä äÚãá ßæÏ Òì Ïå ÈÓ Úáì ÍÓÈ ÇÍÊíÇÌÊäÇ ÇÍäÇ ÇáÓÄÇá åæå ßíÝ äÖíÝ Ìãá ÇáÜ SQL ááÂÖÇÝå ÓÌá Çæ ÊÚÏíáå Çæ ÇÒÇáÊå æÇíä Ìãáå ÇáÜ FIll ÇáãÓÊÎÏãå Ýì ÍÏË ÇáÜ Form Load ÇáÊì ÇãÇãäÇ ßá åÐå ÇÓÆáå ÓíÊã ÇÌÇÈÊß ÚáíåÇ ÍÇáÇ

ÇÍäÇ áæ ÊÝÞÏäÇ ÇáäÇÍíå Çáíãäì ãä ÇáÝíÌæÇá ÇÓÊÏíæ ÓäÌÏ ÞÇÆãå ÈÃÓã Solution explorer
æÓäÌÏ Ôßá ÈÃÓã AdventureWorksDataSet.xsd ßãÇ Ýì ÇáÔßá ÇáÊÇáì



ÇÝÊÍåÇ (ÏÈá ßáíß ÚáíåÇ ) ÓÊÑì ÌãíÚ ÇáÌÏÇæá ÇáãæÌæÏ Ýì ÇáÏÊÇ ÈíÒ AdventureWorksDB æÌãíÚ ÇáÚáÇÞÇÊ ãÇ Èíä ÇáÌÏÇæá æÈÚÖåÇ
æÓäÑì ÇíÖÇ ÌÏæáäÇ TEST ãæÌæÏ ÈÇáÔßá ÇáÊÇáì



äáÇÍÙ æÌæÏ Ìãáå ÇáÜ Fill æÇÐÇ ÇÎÐäÇ ÇáÝÖæá áÂÓÊßÔÇÝ ãÇ ÈÏÇÎáåÇ ãä ßæÏ ÓäÊÈÚ ÇáÊÇáì

äÖÛØ ßáíß íãíä Úáì ÇáÌãáå Ëã



æäáÇÍÙ ÇáÊÇáì



ÇáÌãáå ÇáÊì ÇãÇãäÇ åíå ÇáãÓÆæáå Ýì Ìãáå ÇáÜ Fill Çæ ãáìÁ ÇáÈíÇäÇÊ ãä Data Base Çáì Data Set

ÇáÇä æÞÏ æÖÍ ÇáíäÇ ÇáÇãÑ æÇÌÇÈå ÇáÓÄÇá ( Çíä ÓäÖÚ Ìãá ÇáÜ SQL ÇáÎÇÕå ÈäÇ )

æÇáÃä äÈÏÇÁ ÈÃÖÇÝå Ìãáå Insert

äÊÈÚ ÇáÊÇáì



Ëã



Ëã äÍÏÏ äæÚ ÇáÚãáíå



Ëã ÓäÑì Çä ÇáÝíÌæÇá ÇÓÊÏíæ ÞÏ ßÊÈ ÇáßæÏ ÊáÞÇÆíÇ



Ëã äÍÏÏ ÇÓã Ìãáå ÇáÜ SQL



Ëã



æåÇÞÏ ÇäÊåíäÇ ãä ÈÇÖÇÝå ÇáÌãáå ÈÔßá ÕÍíÍ



æÇáÇä ãÚ Ìãáå ÇáÊÚÏíá

ØÑíÞå ÇÖÇÝå Ìãáå ÇáÊÚÏíá Êßæä ÈäÝÓ ØÑíÞå ÇÖÇÝå Ìãáå ÇáÃÖÇÝå æáßä ÓæÝ íÎÊáÝ Ýì ÇãÑíä

ÇæáÇ :- ÓæÝ äÎÊÇÑ Update ÈÏáÇ ãä Insert
ËÇäíÇ :- ãÔ åÇÊáÇÞì ßææÏ ãßÊææÈ ÌÇåÒ æÏå áÇÒã ÊÚãáå ÈäÝÓß ÊÚÇáì äÔææÝ ãÚ ÈÚÖ

äÚÏá ÇáÇÎÊíÇÑ Çáì Update



æáì ÇÖÇÝå ÇáÌãáå ÇáÎÇÕå ÈÜ Update ÇÊÈÚ ÇáÊÇáì



Ëã



Ëã äÖíÝ ÇáÌÏæá ÇáãÑÇÏ ÇáÊÚÇãá ãÚå



Ëã



Ëã äßÊÈ Ìãáå ÇáÜ UPdate



Ìãáå ãä ÇÓÇÓíÇÊ Ìãáå ÇáÜ Update Çäå íÌÈ Çä íßæä Èå ÔÑØ ãËá

Where ID=@ParID

æåíå ÊÚäì Çäå ÚÏá ÇáÕÝ ÈÇáÈíÇäÇÊ Name and Age ÚäÏãÇ íßæä ÇáÜ ID íÓÇæì @ParID
Çì ßáãå ÊíÌì ÈÚÏ ÑãÒ @ ÝÇ åæå ãÊÛíÑ Çæ ÈÇÑãÊÑ æåäÇ ÇÍäÇ ÚäÏäÇ ËáÇË ãÊÛíÑÇÊ
ÇáÇÓã
æÇáÓä
æÑÞã ÇáÜ ID

æßáåã ãÊÛíÑÇÊ ÍíË Çä ÊÚÇãáäÇ ãÚå Óíßæä Úä ØÑíÞ ÇáãÓÊÎÏã æáíÓ ÔìÁ ËÇÈÊ ÞÏ ÊÚÑÝå ÇËäÇÁ ßÊÇÈÊß ááÈÑäÇãÌ

ÈÚÏ ÐÇáß äßãá Úãáíå ÇÊãÇã ÇÖÇÝå Ìãáå ÇáÜ Update



Ëã ÊãÊ ÈäÌÇÍ



æÇáÇä ãÚ ÇáÌãáå ÇáÇÎíÑå æåíå Delete

æåíå ßÇãËá ÎØæÇÊ Ìãáå Update ÝÇ åíå áÇ ÊäÔÇÁ ÈÔßá ÇæÊæãÇÊíßì ßÇãËá Ìãáå ÇáÜ Insert
æíÌÈ ÇíÖÇ æÖÚ ÔÑØ áåÇ æÓíßæä ãÚäÇå ( ÇãÓÍ ÚäÏãÇ íßæä ÑÞã ÇáÜ ID = ¿ ) ÝÇ åäÇ íÌÈ ÇíÖÇ ÇÓÊÎÏÇã ÇáãÊÛíÑ ÑÇÍ íßæä Çæáå @

áäÑì ßíÝ ÐÇáß



Ëã



Ëã



æÇäÊåíäÇ ãä Ìãáå ÇáÜ Delete ÈäÌÇÍ







ÈÚÏ ãÇäÊåíäÇ ãä ßÊÇÈå Ìãá SQL - Insert,Update,Delete íÊÈÞì áäÇ ÇÓÊÏÚÇÁ åÐå ÇáÌãá Ýì ÇáãËÇá ÝÇ ÇáÌÒÁ Çáì ÇÍäÇ åÇäÊßáã Ýíå ßáå ßæÏ

ÝÇ ÇäÇ åÇÑÝÚ ÇáÇæá ÇáãÔÑæÚ ÚáÔÇä ÊÔæÝæÇ ãÚÇíÇ ÇáÔÑÍ æÊÞÏÑæÇ ÊÊÈÇÚæÇ ßáÇãì

  Sub View()         Me.IDTextBox.ReadOnly = True         Me.NameTextBox.ReadOnly = True         Me.AgeTextBox.ReadOnly = True         Me.ToolStrip1.Enabled = True         Me.GroupBox2.Enabled = False     End Sub

 Sub Edit()         Me.IDTextBox.ReadOnly = True         Me.NameTextBox.ReadOnly = False         Me.AgeTextBox.ReadOnly = False         Me.ToolStrip1.Enabled = False         Me.GroupBox2.Enabled = True     End Sub

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Me.TestTableAdapter.Fill(Me.AdventureWorksDataSet.Test)         View()     End Sub

ÇáßæÏ Ïå Òì ãÇÍäÇ ÔÇíÝíä Ýì ÇáßæÏ Çäå Ýì æÞÊ ÊÍãíá ÇáÝæÑã æÇáÓØÑ ÇáÇæá åæå æÙíÝÊå Çäå ÈíÚãá ÊÚÈÆå ááÈíÇäÇÊ ãä ÇáÏÇÊÇ ÈíÒ Çáì ÇáÏÇÊÇ ÓíÊ

æÇáÓØÑ Çáì Ýíå ßáãå View
Ïì ØÈÚÇ ÇáÜSub Çáì ÇÊßáãäÇ ÚáíåÇ ÞÈá ßÏå ÈÓ åäÇ ÇäÇ ÈÚãá áíåÇ Call



ÇáÊæá ÈÇÑ Ïå ãæÌæÏ Ýíå ÚãáíÇÊ ÇáÏÇÊÇ ÈíÒ Çáì ÑÇÍ ÊÊÚãá Úáì ÇáÈÑäÇãÌ Ïå íÚäì ÇáíæÒÑ ÞÈá ãÇ íÈÊÏì íÔÊÛá Úáì ÇáÚãáíå Çáì ÚÇíÒåÇ áÇÒã íÎÊÇÑ ÇáäæÚ ÈÊÚåÇ ãä ÇáÊæá ÈÇÑ æÈäÇÁ Úáíå ÓíÊã ÈÏÇÁ ÇáÚãáíå ÈÚÏ ÇÎÊíÇÑå æÇÊãÇã ÇáÚãáíå ÈÇáÖÛØ Úáì ÒÑ ÍÝÙ Çæ ÇáÛÇÁ

Çæá ÒÑ åæå Insert Çæ ÇáÇÖÇÝå

   Edit()         Me.Mode = "Insert"         Dim RND As New Random         Me.IDTextBox.Text = RND.Next(99, 9999999)         Me.NameTextBox.Clear()         Me.AgeTextBox.Clear()

  Edit()         Me.Mode = "Update"

 Me.TestTableAdapter.DeleteQuery(Me.IDTextBox.Text)         Me.TestTableAdapter.Fill(Me.AdventureWorksDataSet.Test)

ÚäÏ ßÊÇÈå åÐÇ ÇáÓØÑ Me.TestTableAdapter ÓæÝ íÙåÑ áäÇ ÌãíÚ Ìãá ÇáÜ SQL ÇáÊì ÊãÊ ßÊÇÈÊåÇ Ýì ÇáÏÑÓ ÇáÓÇÈÞ




æáæ Ýì ÈÑÇãÊÑ ááÌãáå ãËá ÑÞã ÇáÜ ID äÝÊÍ ÞæÓ æäÈÊÏì äßÊÈåã


æÇáÃä ãÚ ÒÑ Save

   If Me.Mode = "Insert" Then             Me.TestTableAdapter.InsertQuery(Me.IDTextBox.Text, NameTextBox.Text, Me.AgeTextBox.Text)                    ElseIf Me.Mode = "Update" Then             Me.TestTableAdapter.UpdateQuery(Me.NameTextBox.Text, Me.AgeTextBox.Text, Me.IDTextBox.Text)          End If         Me.TestTableAdapter.Fill(Me.AdventureWorksDataSet.Test)         View()