واﻟﺼﻼة واﻟﺴﻼم ﻋﻠﻲ ﻧﺒﯿﻨﺎ وﺣﺒﯿﺒﻨﺎ ﻣﺤﻤﺪ ﺻﻠﻲ اﷲ ﻋﻠﯿﺔ وﺳﻠﻢ. اﻟﺠﺰء اﻻول DATA CONTROL
ﻣﻘﺪﻣﺔ --:
)ھﺎم ﺟﺪا ارﺟﻮا اﻟﻘﺮأه(
ﺑﺴﻢ اﷲ اﻟﺮﺣﻤﻦ اﻟﺮﺣﯿﻢ )ﺳﺒﺤﺎﻧﻚ ﻻ ﻋﻠﻢ ﻟﻨﺎ إﻻ ﻣﺎ ﻋﻠﻤﺘﻨﺎ إﻧﻚ أﻧﺖ اﻟﻌﻠﯿﻢ اﻟﺤﻜﯿﻢ(
ﺍﳊﻤﺪ ﷲ ﳓﻤﺪﻩ ﻭﻧﺴﺘﻌﻴﻨﻪ ﻭﻧﺴﺘﻐﻔﺮﻩ ،ﻭﻧﻌﻮﺫ ﺑﻪ ﻣﻦ ﺷﺮﻭﺭ ﺃﻧﻔﺴﻨﺎ ﻭﺳﻴﺌﺎﺕ ﺃﻋﻤﺎﻟﻨﺎ ،ﻣﻦ ﻳﻬﺪﻩ ﺍﷲ ﻓﻼ ﻣﻀﻞ ﻟﻪ ﻭﻣﻦ ﻳﻀﻠﻞ ﻓﻼ ﻫﺎﺩﻱ ﻟﻪ .ﻭﻧﺸﻬﺪ ﺃﻥ ﻻ ﺇﻟﻪ ﺇﻻ ﺍﷲ ﻭﺣﺪﻩ ﻻ ﺷﺮﻳﻚ ﻟﻪ ،ﻭﺃﻥ ﳏﻤﺪﺍﹰ ﻋﺒﺪﻩ ﻭﺭﺳﻮﻟﻪ ﺻﻠﻰ ﺍﷲ ﻋﻠﻴﻪ ﻭﻋﻠﻰ ﺁﻟﻪ ﻭﺃﺻﺤﺎﺑﻪ ﻭﻣﻦ ﺗﺒﻌﻬﻢ ﺑﺈﺣﺴﺎﻥ ﻭﺳﻠﻢ ﺗﺴﻠﻴﻤﺎﹰ ﻛﺜﲑﺍﹰ .ﰒ ﺍﻣﺎ ﺑﻌﺪ. ﻭﻗﺒﻞ ﻛﻞ ﺷﻲﺀ ﺃﺣﻴﻚ ﺑﺘﺤﻴﺔ ﺍﻻﺳﻼﻡ ﺍﻟﺴﻼﻡ ﻋﻠﻴﻜﻢ ﻭﺭﲪﺔ ﺍﷲ ﻭﺑﺮﻛﺎﺗﺔ. ﺃﻗﺪﻡ ﻟﻚ ﺃﺧﻲ ﺍﳊﺒﻴﺐ ﻫﺬﺍ ﺍﻟﻜﺘﺎﺏ ﺍﳌﺘﻮﺍﺿﻊ ﻭﻫﻮ ﻳﺘﻜﻠﻢ ﰲ ﺗﺼﻤﻴﻢ ﺑﺮﺍﻣﺞ ﻗﻮﺍﻋﺪ ﺍﻟﺒﻴﺎﻧﺎﺕ ﻋﻦ ﻃﺮﻳﻖ ﺍﻝ VB6ﻭﻗﻤﺖ ﺑﺘﻘﺴﻴﻤﺔ ﺍﱄ ﺍﺟﺰﺍﺀ ﺣﺴﺐ ﺍﳌﻮﺿﻮﻉ ﻭﺍﻟﺬﻱ ﺑﲔ ﻳﺪﻳﻚ ﺍﻻﻥ ﻫﻮ ﺃﻭﻝ ﻣﻮﺿﻮﻉ ﰲ ﺭﺑﻂ ﻗﻮﺍﻋﺪ ﺍﻟﺒﻴﺎﻧﺎﺕ ﺑﺎﻝ VB6ﺑﺈﺳﺘﺨﺪﺍﻡ ﺍﻻﺩﺍﺓ DATACONTROL ﻭﻗﺪ ﻳﺴﺄﻝ ﺳﺎﺋﻞ ﳌﺎﺫﺍ ﻻ ﺗﻘﻮﻡ ﺑﺸﺮﺡ ﻟﻐﺔ ﺍﻝ VB6ﻣﻦ ﺍﻟﺒﺪﺍﻳﺔ ﻭﺍﻻﺟﺎﺑﺔ ﺳﻬﻠﺔ ﻭﻣﻴﺴﻮﺭﺓ ﻭﻫﻮ ﺍﻥ ﻳﻮﺟﺪ ﻛﺘﺐ ﻛﺜﲑﺓ ﺟﺪﺍ ﺗﺘﻜﻠﻢ ﰲ ﻟﻐﺔ ﺍﻝVB6ﻭﻻﺗﺘﻜﻠﻢ ﰲ ﺗﺼﻨﻴﻊ ﻗﻮﺍﻋﺪ ﺍﻟﺒﻴﺎﻧﺎﺕ ﺑﺎﻝ .VB6ﻭﺇﺫﺍﺗﻜﻠﻤﺖ ﺗﺘﻜﻠﻢ ﺑﻄﺮﻳﻘﺔ ﳐﺘﺼﺮﺓ)ﺃﻗﺼﺪﺍﻟﻜﺘﺐ ﺍﻟﻌﺮﺑﻴﺔ ﻓﻘﻂ(. ﻓﻔﻜﺮﺕ ﺃﻥ ﺃﻛﻤﻞ ﻣﺎﻧﻘﺺ ﻣﻦ ﺍﺧﻮﺍﰐ ﰲ ﺍﷲ ﻻﻥ ﺍﳌﺴﻠﻤﲔ ﻳﻜﻤﻠﻮﺍ ﺑﻌﻀﻬﻢ ﺑﻌﻀﺎ ﻭﻟﺬﻟﻚ ﺭﺃﻳﺖ ﺍﻥ ﺃﻗﻮﻡ ﺑﺎﻟﻜﻼﻡ ﻣﺒﺎﺷﺮﺓ ﰲ ﻫﺬﺍ ﺍﳌﻮﺿﻮﻉ ﻭﺃﻧﺼﺤﻚ ﺃﺧﻲ ﺍﻟﻜﺮﱘ ﺃﺫﺍ ﻛﻨﻨﺖ ﻣﺒﺘﺪﺃ ﰲ ﻟﻐﺔ ﺍﻝVB6ﺃﻥ ﺗﻘﻮﻡ ﺑﻘﺮﺍﺀﺓ ﺍﻱ ﻛﺘﺎﺏ ﰲ ﻟﻐﺔ ﺍﻟﻔﺠﻮﺍﻝ ﺑﻴﺴﻴﻚ . ﻭﻣﻦ ﺍﻟﻜﺘﺐ ﺍﳉﻤﻴﻠﺔ ﻛﺘﺎﺏ ﺍﻻﺳﺘﺎﺫ ﺗﺮﻛﻲ ﺍﻟﻌﺴﲑﻱ ﰲ ﺍﻝVB6 ﺃﻭ ﻛﺘﺎﺏ )ﺗﻌﻠﻢ ﻟﻐﺔ ﺍﻝ VB6ﻟﻠﻤﺒﺘﺪﺋﲔ ﻭﺍﳌﺘﻮﺳﻄﲔ( ﻟﻼﺳﺘﺎﺫ ﺟﻮﺯﻳﻒ ﺷﺎﻛﺮ ﻳﻮﺳﻒ ﺍﻣﺎ ﺍﺫﺍ ﻣﻨﺖ ﻋﻠﻲ ﺩﺭﺍﻳﺔ ﻭﻟﻮﻗﻠﻴﻠﺔ ﺇﺑﺪﺀ ﺑﻘﺮﺍﺀﺓ ﻫﺬﺍ ﺍﻟﻜﺘﺎﺏ ﻭﺳﺘﺠﺪ ﻓﻴﺔ ﺍﻥ ﺷﺎﺀ ﺍﷲ ﻛﻞ ﻣﺎﺗﺘﻤﻨﺎﻩ ﻭﺍﳍﺪﻑ ﻣﻦ ﺗﺄﻟﻴﻒ ﺍﻟﻜﺘﺎﺏ -: ﺃﻭﻻ :ﺍﻟﺜﻮﺍﺏ ﻣﻦ ﺍﷲ )ﻭﺃﺳﺌﻞ ﺍﷲ ﺍﻻﺧﻼﺹ(. ﺛﺎﻧﻴﺎ-:ﺍﻟﺪﻋﺎﺀ ﺑﻈﻬﺮ ﺍﻟﻐﻴﺐ ﻋﻠﻲ ﻛﻞ ﻣﻦ ﻗﺎﻡ ﺬﺍ ﺍﻟﻌﻤﻞ .
ﺛﺎﻟﺜﺎ -:ﻣﺴﺎﻋﺪﺓ ﺍﺧﻮﺍﱐ ﺍﳌﺴﻠﻤﲔ ﰲ ﻓﻬﻢ ﺍﻟﱪﳎﺔ ﻭﻟﺬﻟﻚ ﻭﺿﻌﺖ ﺍﻣﺜﻠﺔ ﺣﺎﻫﺰﺓ ﻣﻊ ﺍﻟﻜﺘﺎﺏ . ﺘﺄﻟﻴﻑ ﺃﺨﻭﻜﻡ -:ﺃﺤﻤﺩ ﺍﻷﻨﺼﺎﺭﻱ ﺗﻢ ﺗﺤﻤﯿﻞ ھﺬا اﻟﻜﺘﺎب ﻣﻦ ﻣﻮﻗﻊ ﻛﺘﺐ اﻟﺤﺎﺳﺐ اﻟﻌﺮﺑﯿﺔ www.cb4a.com ﻟﻠﻤﺰﯾﺪ ﻣﻦ اﻟﻜﺘﺐ ﻓﻲ ﻣﺠﺎﻻت اﻟﺤﺎﺳﺐ اﻟﻤﺨﺘﻠﻔﺔ ﺗﻔﻀﻠﻮا ﺑﺰﯾﺎرﺗﻨﺎ
واﻻن ﻣﻊ اﻟﺠﺰء اﻻول
ﻤﻘﺩﻤﺔ ﻓﻲ ﻗﻭﺍﻋﺩ ﺍﻟﺒﻴﺎﻨﺎﺕ -:
ﺒﺴﻡ ﺍﷲ ﺍﻟﺭﺤﻤﻥ ﺍﻟﺭﺤﻴﻡ VISUAL BASIC AND DATABASE DATA CONTROL
ﺘﺨﻴل ﻤﻌﻲ ﺍﻨﻙ ﺘﻌﻤل ﻓﻲ ﻤﺨﺯﻥ )ﻤﺜﻼ ﻤﺨﺯﻥ ﻓﻲ ﻤﺼﻨﻊ ﺃﻭ ﻓﻲ ﺴﻭﺒﺭ ﻤﺎﺭﻜﺕ ( ﻭﻫﺫﺍ ﺍﻟﻤﺨﺯﻥ ﻤﻠـــﻲﺀ ﺒﺎﻟﺴﻠﻊ ﻭﺍﻟﺒﻀﺎﻋﺔ ﻭﺘﺭﻴﺩ ﺃﻥ ﺘﺒﺤﺙ ﺍﻭ ﺘﻘﻭﻡ ﺒﺈﻀﺎﻓﺔ ﺴﻠﻊ ﺠﺩﻴﺩﺓ ﺃﻭ ﺘﻌﻤل ﺘﺭﺘﻴﺏ ﻟﻤﺠﻤﻭﻋﺔ ﻤﻥ ﺍﻟﺴﻠﻊ ﻤﻊ ﺒﻌﻀﻬﺎ ﺍﻟﺒﻌﺽ ﻭﻗﺩ ﺘﺼل ﺍﻟﺴﻠﻊ ﺍﻟﻲ 50000 ﺴﻠﻌﺔ ﻤﺨﺘﻠﻔﺔ ﻓﻤﺎﺫﺍ ﺘﻔﻌل ﻓﻲ ﻫﺫﺓ ﺍﻟﺤﺎﻟﺔ ﺇﻤﺎ ﺃﻥ ﺘﻜﻭﻥ ﺼﺎﺤﺏ ﻫﻤﺔ ﻋﺎﻟﻴﺔ ﺃﻭ ﺘﻔﻌل ﻜﻤﺎ ﻴﻔﻌل ﺍﻟﻜﺜﻴﺭ ﺘﺘﺭﻙ ﻜل ﺸﺊ ﻜﻤﺎ ﻫﻭ ﻋﻠﻴﺔ ﺃﻭ ﺘﺒﺤﺙ ﻋﻥ ﻋﻤل ﺍﺨﺭ ﺃﻜﺜﺭ ﻤﺭﻭﻨﺔ . ﻭﺃﻨﻲ ﺃﺸﺒﻪ ﻗﻭﺍﻋﺩ ﺍﻟﺒﻴﺎﻨﺎﺕ ﻫﻨﺎ ﺒﺎﻟﻤﺨﺯﻥ ﻭﺍﻟﺴﻠﻊ ﻫﻲ ﺍﻟﺒﻴﺎﻨﺎﺕ ﻭﻨﺭﻴﺩ ﺃﻥ ﻨﻔﻌل ﻜل ﻤﺎ ﺴﺒﻕ ﻋﻠﻲ ﺍﻟﺒﻴﺎﻨﺎﺕ ﺍﻟﻤﻭﺠﻭﺩﺓ ﺩﺍﺨل ﺍﻟﻤﺨﺯﻥ )ﻗﺎﻋﺩﺓ ﺍﻟﺒﻴﺎﻨﺎﺕ(. ﻭﺍﻻﻥ ﻻﺒﺩ ﻤﻥ ﺴﺅﺍل ﻻﻤﻔﺭ ﻤﻨﺔ ﻜﻴﻑ ﻴﻤﻜﻥ ﻋﻤل ﺫﻟﻙ ﻓﻲ ﻤﺠﺎل ﺍﻟﺒﺭﻤﺠﺔ . ﺃﻨﻅﺭ ﺍﻟﺸﻜل ﺍﻟﺘﺎﻟﻲ...
ﻓﻲ ﺍﻟﺸﻜل ﺍﻟﺴﺎﺒﻕ ﻗﻤﺕ ﺒﻌﻤل ﺠﺩﻭل ﻓﻲ ﻗﺎﻋﺩﺓ ﺒﻴﺎﻨﺎﺕ )ﺍﻟﻤﺨﺯﻥ ( ﻭﻫﺫﺓ ﺍﻟﺨﻁﻭﺓ ﻻﺘﺤل ﺍﻟﻤﺸﻜﻠﺔ ﻓﻤﺎ ﻫﻭ ﺍﻟﺤل .
ﺍﻟﺤل ﻓﻲ ﺍﻟﺸﻜل ﺍﻻﺨﺭ ﻭﻫﻭ ﻋﻤل ﻨﻤﻭﺫﺝ ﻴﺘﻡ ﺍﻟﻜﻼﻡ ﻤﻌﺔ ﻭﻴﻘﻭﻡ ﻫﺫﺍ ﺍﻟﻨﻤﻭﺫﺝ ﺃﻭﺍل formﺒﺎﻟﺘﻌﺎﻤل ﻤﻊ ﺍﻟﺒﻴﺎﻨﺎﺕ ﻭﻟﻜﻥ ﺒﻁﺭﻴﻕ ﻤﻨﻅﻤﺔ ﻭﺒﻁﺭﻴﻘﺔ ﺼﺤﻴﺤﺔ ﻭﺒﻁﺭﻴﻘﺔ ﺃﻜﺜﺭ ﻤﺭﻭﻨﺔ .......ﻭﻫﺫﺍ ﻫﻭ ﺍﻟﺤل . ﻭﺍﻻﻥ ﻫﻴﺎ ﺒﻨﺎ ﻨﺘﻌﻠﻡ -: -1ﺘﺼﻤﻴﻡ ﻗﻭﺍﻋﺩ ﺍﻟﺒﻴﺎﻨﺎﺕ ﺒﺎلACCESS -2ﺘﺼﻤﻴﻡ ﺍﻟﻨﻤﻭﺫﺝ ﺃﻭ ﺍﻟﻭﺠﻬﺔ ﺒﺎل VISUAL BASIC 6 -3ﺭﺒﻁ ﺍﻟﻭﺠﻬﺔ)ﺍل (FORMﺒﻘﺎﻋﺩﺓ ﺍﻟﺒﻴﺎﻨﺎﺕ
-2-
ﺘﺼﻤﻴﻡ ﻗﺎﻋﺩﺓ ﺍﻟﺒﻴﺎﻨﺎﺕ ﻋﻥ ﻁﺭﻴﻕ ACCESS -1ﻓﺘﺢ ﺒﺭﻨﺎﻤﺞ ﺍﻻﻜﺴﺱ
MICROSOFT ACCESS
PROGRAMS
START
-2ﺘﺤﺩﻴﺩ ﻤﻜﺎﻥ ﺍﻟﺤﻔﻅ ﻭﺍﻟﻀﻐﻁ ﻋﻠﻲ ﺍﻨﺸﺎﺀ)(Create -3ﺍﻟﻀﻐﻁ ﻋﻠﻲcreate table in design view -4ﻴﺘﻡ ﺍﻟﻜﺘﺎﺒﺔ ﺘﺤﺕ field nameﺃﺴﻡ ﺍﻟﺤﻘل ﺃﻭ ﺃﺴﻡ ﺍﻟﻌﻤﻭﺩ)ﺃﻨﻅﺭ ﺍﻟﺸﻜل ﺭﻗﻡ (1 -5ﻭﺘﺤﺕ data typeﻨﻭﻉ ﺍﻟﺒﻴﺎﻨﺎﺕ ﺍﻟﻤﺭﺍﺩ ﺃﺩﺨﺎﻟﻬﺎ ﻓﻲ ﻋﻤﻭﺩ ﺃﺴﻡ ﺍﻟﺤﻘل -6ﺤﻔﻅ ﺍﻟﺠﺩﻭل -7ﺍﻏﻼﻕ ﻗﺎﻋﺩﺓ ﺍﻟﺒﻴﺎﻨﺎﺕ
ﻴﺼل ﻓﻲ ﺍﻟﻨﻬﺎﻴﺔ ﺍﻟﻲ ....
ﺘﺤﻭﻴل ﺍﻜﺴﻴﺱ 2000ﺃﻭ 2002ﺍﻟﻲ (Tools>> database>>utilities >>convert database>> toaccess97file format) 97
ﺒﻌﺩ ﺍﻻﻨﺘﻬﺎﺀ ﻤﻥ ﺘﺼﻤﻴﻡ ﺍﻟﺠﺩﻭل ﻴﺘﻡ ﻋﻤل ﺍﻟﺨﻁﻭﺓ ﺍﻟﺜﺎﻨﻴﺔ . ﺘﺼﻤﻴﻡ ﺍﻟﻨﻤﻭﺫﺝ )ﺍل(formﻋﻥ ﻁﺭﻴﻕ Visual Basic ﻤﻥ ﺍﻟﻤﻔﺭﻭﺽ ﺃﻥ ﺘﻜﻭﻥ ﻋﻨﺩﻙ ﻓﻜﺭﺓ ﻋﻥ ﺘﺼﻤﻴﻡ ﺍل FORMﻜﻤﺎ ﺘﺤﺩﺜﻨﺎ ﻓﻲ ﺃﻭل ﺍﻟﻜﺘﺎﺏ )ﺍﻟﻤﻘﺩﻤﺔ ( -3-
ﻭﺍﻨﺎ ﻻ ﺍﻗﻭﻡ ﺒﺸﺭﺡ ﺍﻟﻐﺔ ﻜﻠﻬﺎ ﻭﻟﻜﻥ ﺃﺸﺭﺡ ﻤﺎ ﻨﺤﺘﺎﺠﺔ ﻓﻘﻁ . ﻭﺫﻟﻙ ﺸﻜل ﺍﻟﻔﻭﺭﻡ ﺒﻌﺩ ﺍﻟﺘﺼﻤﻴﻡ ....
ﺒﻌﺽ ﺍﻟﻤﻼﺤﻅﺎﺕ ﻋﻠﻲ ﺍﻟﺘﺼﻤﻴﻡ . -1ﻴﺘﻭﻗﻑ ﻋﺩﺩ ﺍلTIXTBOXﻋﻠﻲ ﻋﺩﺩ ﺍﻟﺤﻘﻭل ﻋﻨﺩﻙ ﻓﻲ ﺍﻟﺠﺩﻭل ﻻﻥ ﻜل TIXTBOXﺴﻨﻘﻭﻡ ﻓﻴﻤﺎ ﺒﻌﺩ ﺒﺭﺒﻁﺔ ﺒﻜل ﺤﻘل ﻴﻘﺎﺒﻠﺔ ﻓﻲ ﻗﺎﻋﺩﺓ ﺍﻟﺒﻴﺎﻨﺎﺕ . -2ﻻﺒﺩ ﻤﻥ ﻭﻀﻊ ﺍﻻﺩﺍﺓ DATAﻋﻠﻲ ﺍﻟﻔﻭﺭﻡ)ﺒﺎﻟﻀﻐﻁ ﻋﻠﻴﻬﺎ ﻤﺭﺘﻴﻥ ﻤﺘﺘﺎﻟﻴﺘﻴﻥ(
اﻻداة اﻟﺘﻲ ﺗﻘﻮم ﺑﺮﺑﻂ اﻟﻔﻮرم ﺑﻘﺎﻋﺪة اﻟﺒﯿﺎﻧﺎت DATACONTROL
ﻭﺍﻟﻲ ﻫﺫﺍ ﺍﻟﺤﺩ ﻗﻤﻨﺎ ﺒﻌﻤل ﻗﺎﻋﺩﺓ ﺍﻟﺒﻴﺎﻨﺎﺕ)ﺍﻟﻤﺨﺯﻥ( ﻭﻗﻤﻨﺎ ﺒﺘﺼﻤﻴﻡ ﺍﻟﻭﺠﻬﺔ)ﺍل(FORM ﻭﻨﺄﺘﻲ ﺒﻌﺩ ﺫﻟﻙ ﺍﻟﻲ ﺃﻫﻡ ﻤﺭﺤﻠﺔ ﻭﻫﻲ ﻤﻥ ﺍﺠﻠﻬﺎ ﻗﻤﻨﺎ ﺒﻌﻤل ﺍﻟﻘﺎﻋﺩﺓ ﻭﺍﻟﻭﺠﻬﺔ ﻭﻫﻲ ... ﺭﺒﻁ ﺍﻟﻭﺠﻬﺔ)ﺍل (FORMﺒﻘﺎﻋﺩﺓ ﺍﻟﺒﻴﺎﻨﺎﺕ .
ﺭﺒﻁ ﺍﻟﻭﺠﻬﺔ ) (FORMﺒﻘﺎﻋﺩﺓ ﺍﻟﺒﻴﺎﻨﺎﺕ ﻤﻥ ﻨﻭﻉ ACCESS ﺭﺒﻁ ﺍﻟﻔﻴﺠﻭﺍل ﺒﻴﺴﻴﻙ ﺒﻘﺎﻋﺩﺓ ﺒﻴﺎﻨﺎﺕ ﻤﻥ ﻨﻭﻉ ﺍﻜﺴﻴﺱ ﻋﻥ ﻁﺭﻴﻕ ﺍﻻﺩﺍﺓ )(DATACONTROL ﻭﻟﻜﻥ ﻗﺒل ﻋﻤﻠﻴﺔ ﺍﻟﺭﺒﻁ ﻴﺠﺏ ﻓﻌل ﺍﻻﺘﻲ -: -1ﺘﺼﻤﻴﻡ ﻗﺎﻋﺩﺓ ﺍﻟﺒﻴﺎﻨﺎﺕ -4-
-2ﻴﺠﺏ ﺃﻥ ﺘﻜﻭﻥ ﻗﺎﻋﺩﺓ ﺍﻟﺒﻴﺎﻨﺎﺕ ﻤﻥ ﻨﻭﻉ )Access 97ﺇﻻ ﺍﺫﺍ ﻗﻤﺕ ﺒﻌﻤل ﺘﺤﺩﻴﺙ ل (DATA CONTROL -3ﻭﻀﻊ ﺃﺩﺍﺓ DATAﻋﻠﻲ ﺍل FORM ﻭﻴﺘﻡ ﺭﺒﻁ ﺍﻟﻔﻭﺭﻡ ﺒﻘﺎﻋﺩﺓ ﺍﻟﺒﻴﺎﻨﺎﺕ ﻋﻠﻲ ﻤﺭﺤﻠﺘﻴﻥ .ﺍﻟﻤﺭﺤﻠﺔ ﺍﻻﻭﻟﻲ -:ﺭﺒﻁ ﺍﻻﺩﺍﺓ
DATAﺒﻘﺎﻋﺩﺓ ﺍﻟﺒﻴﺎﻨﺎﺕ
ﺍﻟﻤﺭﺤﻠﺔ ﺍﻟﺜﺎﻨﻴﺔ -:ﺭﺒﻁ ﺍﻻﺩﻭﺍﺕ )ﻤﺜل (TEXTBOXﺒﺎﻻﺩﺍﺓ
DATA
ﺍﻟﻤﺭﺤﻠﺔ ﺍﻻﻭﻟﻲ ﺭﺒﻁ ﺍﻻﺩﺍﺓ
DATAﺒﻘﺎﻋﺩﺓ ﺍﻟﺒﻴﺎﻨﺎﺕ
-1ﻴﺘﻡ ﺭﺒﻁ ﺍﻻﺩﺍﺓ DATAﺒﺎﺴﻡ ﺍﻟﻘﺎﻋﺩﺓ ﻋﻥ ﻁﺭﻴﻕ ﺍﻟﺨﺎﺼﻴﺔ ) (Data base nameﺍﻟﺘﻲ ﺘﻭﺠﺩ ﻓﻲ ﺍﻟﺨﺼﺎﺌﺹ. ﻤﻠﺤﻭﻅﺔ -: ﻴﻨﺼﺢ ﺒﻜﺘﺎﺒﺔ ﺃﺴﻡ ﻗﺎﻋﺩﺓ ﺍﻟﺒﻴﺎﻨﺎﺕ ﻤﺒﺎﺸﺭﺓ ﻭﻭﻀﻊ ﻗﺎﻋﺩﺓ ﺍﻟﺒﻴﺎﻨﺎﺕ ﻓﻲ ﻨﻔﺱ ﺍلfolder ﺍﻟﺫﻱ ﻴﻭﺠﺩ ﺒﻪ ﺍﻟﻤﺸﺭﻭﻉ ﻟﺘﻔﺎﺩﻱ ﻤﺸﻜﻠﺔ ﺍﻟﻤﺴﺎﺭ ﻋﻨﺩ ﻨﻘل ﺍﻟﻤﺸﺭﻭﻉ ﻤﻥ ﺠﻬﺎﺯ ﺍﻟﻲ ﺍﺨﺭ
-2ﻴﺘﻡ ﺭﺒﻁ ﺍﻻﺩﺍﺓ
DATAﺒﺎﺴﻡ ﺍﻟﺠﺩﻭل ﺍﻟﻤﻭﺠﻭﺩ ﺩﺍﺨل ﻗﺎﻋﺩﺓ ﺍﻟﺒﻴﺎﻨﺎﺕ ﻋﻥ
ﻁﺭﻴﻕ ﺍﻟﺨﺎﺼﻴﺔ )(RECORD SOURSE
-5-
ﺍﻟﻤﺭﺤﻠﺔ ﺍﻟﺜﺎﻨﻴﺔ ﺭﺭﺒﻁ ﺍﻻﺩﺍﺓ
Dataﺒـﺎل Textbox
ﻓﻲ ﺍﻟﻤﺭﺤﻠﺔ ﺍﻻﻭﻟﻲ ﺘﻡ ﺭﺒﻁ ﺍﻻﺩﺍﺓ ﺒﻘﺎﻋﺩﺓ ﺍﻟﺒﻴﺎﻨﺎﺕ ﻓﻠﻤﺎﺫﺍ ﺍﻗﻭﻡ ﺒﺭﺒﻁ ﻤﺭﺒﻊ ﺍﻟﻨﺼﻭﺹ ﺒﺎﻻﺩﺍﺓ ؟
ﻭﺍﻻﺠﺎﺒﺔ ﻻﻥ ﺒﺩﻭﻥ ﺍﻟﺭﺒﻁ ﻻﻴﻅﻬﺭ ﺍﻤﺎﻤﻲ ﺍﻱ ﺒﻴﺎﻨﺎﺕ ﻤﻊ ﺍﻥ ﻗﺎﻋﺩﺓ ﺍﻟﺒﻴﺎﻨﺎﺕ ﻤﺭﺒﻭﻁﺔ ﻓﻌﻼ ﻭﻟﻜﻥ ﻓﻲ ﺍﻱ ﻤﻜﺎﻥ ﻴﻘﻭﻡ
ﺒﻌﺭﺽ ﺍﻟﺒﻴﺎﻨﺎﺕ ﺍﺫﻥ ﻻﺒﺩ ﻤﻥ ﺭﺒﻁ ﺍﻻﺩﺍﺓ ﺒﻤﺭﺒﻊ ﺍﻟﻨﺼﻭﺹ ﻭﻴﻭﺠﺩ ﻫﻨﺎ ﺴﺅﺍل ﺍﺨﺭ ﻟﻤﺎﺫﺍ ﺍﻗﻭﻡ ﺒﺭﺒﻁ ﻤﺭﺒﻊ ﺍﻟﻨﺼﻭﺹ ﺒﺎﻻﺩﺍﺓ ﻭﻟﻴﺱ ﺍﻟﻘﺎﻋﺩﺓ ﻤﺒﺎﺸﺭﺓ
ﺍﻭﻻ ﻻﻴﻭﺠﺩ ﻫﻨﺎﻙ ﺨﺎﺼﻴﺔ ﺃﻭ ﻜﻭﺩ ﻴﻘﻭﻡ ﺒﺫﻟﻙ .
ﺜﺎﻨﻴﺎ -:ﻭﻫﻭ ﺍﻥ ﺍﻻﺩﺍﺓ dataﻴﻭﺠﺩ ﺒﻬﺎ ﺍﺴﻡ ﻗﺎﻋﺩﺓ ﺍﻟﺒﻴﺎﻨﺎﺕ ﻭﺍﺴﻡ ﺍﻟﺠﺩﻭل ﻟﺫﻟﻙ ﻨﻘﻭﻡ ﺒﺭﺒﻁ ﺍﻻﺩﺍﺓ ﻤﺒﺎﺸﺭﺓ ﺒﻤﺭﺒﻊ ﺍﻟﻨﺼﻭﺹ .
-1ﻴﺘﻡ ﺭﺒﻁ ﻤﺭﺒﻊ ﺍﻟﻨﺼﻭﺹ ﺒﺎﻻﺩﺍﺓ ﻋﻥ ﻁﺭﻴﻕ ﺍﻟﺨﺎﺼﻴﺔ)(Data source
-2ﺭﺒﻁ ﻤﺭﺒﻊ ﺍﻟﻨﺼﻭﺹ ﺒﺎﺴﻡ ﺍﻟﺤﻘل ﺍﻟﻤﻭﺠﻭﺩ ﺩﺍﺨل ﺍﻟﺠﺩﻭل ﻋﻥ ﻁﺭﻴﻕ ﺍﻟﺨﺎﺼﻴﺔ )(data field
ﻤﻠﺤﻭﻅﺔ -:
ﻻﻴﻤﻜﻥ ﺭﺒﻁ ﺍﻻﺩﺍﺓ dataﺍﻻ ﺒﺠﺩﻭل ﻭﺍﺤﺩ ﻭﻤﻥ ﺍﻟﻤﻤﻜﻥ ﻭﻀﻊ ﺃﻜﺜﺭ ﻤﻥ
dataﻋﻠﻲ ﺍﻟﻔﻭﺭﻡ ﺍﻟﻭﺍﺤﺩ.
-6-
ﻭﻟﻜﻥ ﻻﺘﻨﺴﻲ ﺃﻨﻬﺎ ﻻ ﻴﻤﻜﻨﻬﺎ ﺍﻻﺘﺼﺎل ﺒﺎﻜﺜﺭ ﻤﻥ ﺠﺩﻭل ﻻﺘﻨﺴﻲ .. ﺍﻟﺘﺤﻜﻡ ﻓﻲ ﻗﺎﻋﺩﺓ ﺍﻟﺒﻴﺎﻨﺎﺕ ﻋﻥ ﻁﺭﻴﻕ ﺃﺯﺭﺍﺭ ﺍﻟﺘﺤﻜﻡ
ﯾﺘﻢ ﻛﺘﺎﺑﺔ أﻛﻮاد اﻟﺘﺤﻜﻢ ﻓﻲ ﻗﺎﻋﺪة اﻟﺒﯿﺎﻧﺎت ﺗﺤﺖ اﻟﺰرار اﻟﻤﺮاد ﻗﯿﺎﻣﺔ ﺑﺬﻟﻚ ﻣﺜﻼ ﺗﺤﺖ زرار ﺣﻔﻆ ﯾﺘﻢ ﻛﺘﺎﺑﺔ ﻛﻮد ﺣﻔﻆ اﻟﺒﯿﺎﻧﺎت ﻓﻲ ﻗﺎﻋﺪة اﻟﺒﯿﺎﻧﺎت ﻛﻤﺎ ﻧﺄﺧﺬ ان ﺷﺎء اﷲ
-1ﺍﻨﺸﺎﺀ ﺴﺠل ﺠﺩﻴﺩ ﻓﻲ ﻗﺎﻋﺩﺓ ﺍﻟﺒﻴﺎﻨﺎﺕ Data1.recordset.Addnew -2ﺤﻔﻅ ﺍﻟﺒﻴﺎﻨﺎﺕ ﻓﻲ ﻗﺎﻋﺩﺓ ﺍﻟﺒﻴﺎﻨﺎﺕ . Data1.recordset.update -3ﺤﺫﻑ ﺴﺠل ﻤﻥ ﻗﺎﻋﺩﺓ ﺍﻟﺒﺎﻨﺎﺕ Data1.recordset.delete Data1.refresh -4ﺍﻟﺒﺤﺙ ﻋﻥ ﺴﺠل Dim y as string )"
ﺍﺍﻟﺭﺴﺎﻟﺔ ﺍﻟﻤﺭﺍﺩ ﻅﻬﻭﺭﻫﺎ ﻟﻠﻤﺴﺘﺨﺩﻡ
1 "( Y = inputbox -7-
2
3
" ' " & Y= " ' " & y
" 4 Data1.recordset.findfirst =" &y ﺍﺴﻡ ﺍﻟﺤﻘل ﺍﻟﻤﺭﺍﺩ ﺍﻟﺒﺤﺙ ﻓﻴﻪ 5 If data1.Recordset.Nomatch then 6 "ﺍﻟﺫﻱ ﺘﺒﺤﺙ ﻋﻨﺔ ﻏﻴﺭﻤﻭﺠﻭﺩ"Msgbox 7 End if ﺸﺭﺡ ﻜﻭﺩ ﺍﻟﺒﺤﺙ -: -1ﻴﺘﻡ ﺘﻌﺭﻴﻑ ﻤﺘﻐﻴﺭ )(y
-2ﺍﻅﻬﺎﺭ ﺭﺴﺎﻟﺔ ) (INPUT BOXﻟﻜﺘﺎﺒﺔ ﺍﻟﺸﺊ ﺍﻟﻤﺭﺍﺩ ﺍﻟﺒﺤﺙ ﻋﻨﻪ ﺜﻡ ﻨﺴﺎﻭﻱ ﻫﺫﺍ ﺍﻻﻤﺭ ﺏ Yﻭﺍﻟﻔﺎﺌﺩﺓ ﻤﻥ ﺫﻟﻙ ﻫﻭ ﻨﻘل ﻤﺎ ﺘﻡ ﻜﺘﺎﺒﺘﺔ ﻓﻲ) (INPUT BOXﺍﻟﻲ ﺍﻟﻤﺨﺯﻥ Yﻟﻼﺴﺘﺨﺩﺍﻤﺔ ﻓﻲ ﻋﻤﻠﻴﺔ ﺍﻟﺒﺤﺙ.
-3ﻫﺫﺓ ﺘﺭﻜﻴﺒﺔ ﻋﺎﻤﺔ ﻻﺘﺘﻐﻴﺭ ﻓﻲ ﻋﻤﻠﻴﺔ ﺍﻟﺒﺤﺙ ﻟﻜﻲ ﻴﺘﻡ ﺍﻟﺘﻌﺭﻑ ﻋﻠﻴﺔ ﻜﻤﺘﻐﻴﺭ. ﻤﻠﺤﻭﻅﺔ :ﺘﻭﻀﻊ ﻋﻼﻤﺔ '
-4ﺠﻤﻠﺔ ﺍﻟﺒﺤﺙ
' ﻓﻲ ﺤﺎﻟﺔ ﺍﺫﺍﻜﻨﺕ ﺘﺒﺤﺙ ﻓﻲ ﺤﻘل ﻨﻭﻉ ﺍﻟﺒﻴﺎﻨﺎﺕ ﻨﺹ ﻓﻘﻁ.
-5ﻫﺫﺍ ﺍﻟﺴﻁﺭ ﻤﻌﻨﺎﻩ ﻟﻭ ﻟﻡ ﻴﺠﺩ ﻤﺎﻴﺒﺤﺙ ﻋﻨﺔ ﻓﺈﺫﺍ ﻜﺎﻨﺕ ﺍﻻﺠﺎﺒﺔ ﻻ ﻻﻴﻨﻔﺫ ﺍﻟﺴﻁﺭ ﺍﻟﺫﻱ
ﻴﻠﻴﺔ ﻭﻴﺫﻫﺏ ﺍﻟﻲ END IFﻭﺍﺫﺍ ﻜﺎﻨﺕ ﺍﻻﺠﺎﺒﺔ ﻨﻌﻡ ﻴﺘﻡ ﺘﻨﻔﻴﺫ ﺍﻟﺴﻁﺭ ﺍﻟﺫﻱ ﻴﻠﻴﺔ .
-6ﻭﻫﺫﺍ ﺍﻟﺴﻁﺭ ﻫﻭ ﺍﻅﻬﺎﺭ ﺭﺴﺎﻟﺔ ﺘﻔﻴﺩ ﺃﻨﺔ ﻟﻡ ﻴﺠﺩ ﻤﺎ ﻴﺒﺤﺙ ﻋﻨﺔ.
-7ﺍﻨﻬﺎﺀ ﺠﻤﻠﺔ IF
ﺍﻟﺫﻫﺎﺏ ﺍﻟﻲ ﺍﻟﺴﺠل ﺍﻻﻭل-: data1.Recordset.MoveFirst ﺍﻟﺫﻫﺎﺏ ﺍﻟﻲ ﺍﻟﺴﺠل ﺍﻻﺨﻴﺭ-: data1.Recordset.MoveLast ﺍﻟﺫﻫﺎﺏ ﺍﻟﻲ ﺍﻟﺴﺠل ﺍﻟﺘﺎﻟﻲ-: data1.Recordset.MoveNext ﻭﻟﻜﻥ ﻋﻨﺩﻤﺎ ﻴﺼل ﺍﻟﻲ ﺍﺨﺭ ﺴﺠل ﻴﻌﻁﻲ ﺭﺴﺎﻟﺔ ﺨﻁﺄ ﻭﻟﺫﻟﻙ ﻨﻜﺘﺏ ﻫﺫﺍ ﺍﻟﻜﻭﺩ If Data1.Recordset.EOF Then Data1.Recordset.MoveFirst End If ﺍﻟﺫﻫﺎﺏ ﺍﻟﻲ ﺍﻟﺴﺠل ﺍﻟﺴﺎﺒﻕ -: Data1.Recordset.MovePrevious ﻭﻟﻜﻥ ﻋﻨﺩﻤﺎ ﻴﺼل ﺍﻟﻲ ﺍﺨﺭ ﺴﺠل ﻴﻌﻁﻲ ﺭﺴﺎﻟﺔ ﺨﻁﺄ ﻭﻟﺫﻟﻙ ﻨﻜﺘﺏ ﻫﺫﺍ ﺍﻟﻜﻭﺩ If Data1.Recordset.BOF Then Data1.Recordset.MoveLast End If
ﺍﺴﺘﺨﺩﺍﻡ DBGRIDﻓﻲ ﻋﺭﺽ ﺍﻟﺒﻴﺎﻨﺎﺕ
-8-
ﺘﺴﺘﺨﺩﻡ ﺍﻻﺩﺍﺓ Data Bound Grid ﻓﻲ ﻋﺭﺽ ﺍﻟﺠﺩﻭل ﻋﻠﻲ ﺍلForm
ﻭﻴﺘﻡ ﺘﺤﻤﻴل ﺍﻻﺩﺍﺓ ﺍﻭﻻ ﻋﻠﻲ toolboxﻤﻥ Project>>components ﺜﻡ ﺃﺨﺘﻴﺎﺭ ﺜﻡ ﺘﺤﻤﻠﻬﺎ ﻋﻠﻲ ﺍلForm
ﺭﺒﻁ ﺍﻻﺩﺍﺓ
DBGridﺒﻘﺎﻋﺩﺓ ﺒﻴﺎﻨﺎﺕ
-9-
ﻤﺎﺫﺍ ﺘﺭﻴﺩ ﺍﻥ ﺘﻌﺭﻑ ﺍﻻﺩﺍﺓ DBGridﻟﻜﻲ ﺘﻘﻭﻡ ﺒﻌﺭﺽ ﺍﻟﺠﺩﻭل ؟ -1ﺍﺴﻡ ﻭﻤﺴﺎﺭ ﻗﺎﻋﺩﺓ ﺍﻟﺒﻴﺎﻨﺎﺕ.
-2ﺍﺴﻡ ﺍﻟﺠﺩﻭل ﺍﻟﻤﺭﺍﺩ ﻋﺭﻀﺔ.
ﻭﺍﺴﻡ ﺍﻟﻘﺎﻋﺩﺓ ﻭﺍﻟﻤﺴﺎﺭ ﻭ ﺍﺴﻡ ﺍﻟﺠﺩﻭل ﺘﻡ ﺭﺒﻁﺔ ﺏ data control
ﻟﺫﻟﻙ ﻨﻘﻭﻡ ﺒﺭﺒﻁ DBGridﺒﺎﻻﺩﺍﺓ Data Controlﻤﻥ ﺍﻟﺨﺼﺎﺌﺹ ﻋﻥ ﻁﺭﻴﻕ Data sourceﻜﻤﺎ ﻤﻭﻀﺢ
ﻓﻲ ﺍﻟﺸﻜل ﺍﻟﺴﺎﺒﻕ.ﻭﺒﻬﺫﺓ ﺍﻟﻁﺭﻴﻘﺔ ﺘﻌﺭﻑ DBGridﻜل ﻤﺎ ﺘﺭﻴﺩﺓ ﻤﻥ . Data Control ﻤﻠﺤﻭﻅﺔ -:
ﻜل DBGridﻴﺘﻡ ﺭﺒﻁﻬﺎ ﺏ Data Controlﻭﺍﺤﺩ ﻓﻘﻁ . ﺍﻨﺘﻬﻲ ﺍﻟﺠﺯﺀ ﺍﻻﻭل ) ( DATA CONTROLاﻟﻲ ھﺬا اﻟﺤﺪ وھﺬا ﻣﺎ أﻋﻠﻢ واﷲ أﻋﻠﻲ وأﻋﻠﻢ .
واﻟﺴﻼم ﻋﻠﯿﻜﻢ ورﺣﻤﺔ اﷲ وﺑﺮﻛﺎﺗﺔ واﻟﻲ اﻟﻘﺎء ﻣﻊ اﻟﺠﺰء اﻟﺜﺎﻧﻲ )ﻣﻜﺘﺒﺔ اﻟــ (DAO ﺍﻟﻤﺅﻟﻑ :ﺃﺤﻤﺩ ﺤﺴﻥ ﻜﻤﺎل ﺍﻟﺩﻴﻥ ﺍﺴﻡ ﺍﻟﺸﻬﺭﺓ -:ﺃﺤﻤﺩ ﺍﻻﻨﺼﺎﺭﻱ ﺍﻟﻌﻨﻭﺍﻥ -:ﻤﺼﺭ -ﺍﻟﺠﻴﺯﺓ
ﺍﻟﺒﺭﻴﺩ ﺍﻻﻟﻴﻜﺘﺭﻭﻨﻲ
[email protected] -:
ﺤﺎﺼل ﻋﻠﻲ ﺸﻬﺎﺩﺓ ﻤﻥ ﻤﺩﻴﺭﻴﺔ ﺍﻟﻘﻭﻱ ﺍﻟﻌﺎﻤﻠﺔ ﻭﺍﻟﻬﺠﺭﺓ ﺒﻤﺼﺭ ﺒﺘﻘﺩﻴﺭ ﺍﻤﺘﻴﺎﺯ ﻓﻲ ﻟﻐﺔ VB.6
- 10 -