الفيجول بيسك

[دمعة فرح]

السلام ........ اليكم هذا واتمنى ان ينال على رضاكم
تعتبر القوائم في البرنامج من أهم الأشياء التي تعطي البرنامج شكلاً جيداً ، وسأحاول أن أقدم صورة بسيطة وشاملة عنها ما استطعت ، وما توفيقي إلا بالله .
يمكننا اضافة القوائم عبر قائمة : Tools واختيار Menu Editor منها ، أو بالنقر على Ctr + E .
ستظهر لنا شاشة تحتوي على :

1). خاصية Caption : وتخص الإسم الذي سيظهر على القائمة .
2). خاصة Name : الإسم الذي نتعامل معه في البرمجة .
3). خاصية Index : وذلك عند الحاجة لإنشاء أكثر من عنصر بنفس الإسم أو لتحميل العناصر أثناء عمل البرنامج .
4). خاصية ShortCut وهي الأزرار من لوحة المفاتيح التي تقوم بنفس عمل البرنامج .
5). خاصية Cheked : لعمل زر اختيار .
6). خاصية Enabled : لإلغاء التمكين أو التمكين .
7). خاصية Visble : ظهور أو اخفاء العنصر .

أما السهمان ( يمين + يسار ) فهي تحدد درجة العنصر ، وعند الضغط على أحدهما يتم زيادة أو نقص الدرجة .
والمقصود بدرجة العنصر أي موقعه من القائمة ، فمثلاً إذا كانت خالية فهذا معناه أنها قائمة في الاعلى على شريط الأوامر ، وإذا كانت بثلاث نقاط فهذا يعني أنها تحت أقرب ثائمة علوية .... وهكذا ، أي أن الهدف منها هو التفرعات .
والسهمان ( فوق + تحت ) تستخدم لترتيب العناصر .

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

* ملاحظة : لعمل خط مثل الخط الذي تراه في القوائم اجعل خاصية Caption = "-" فقط .
* ملاحظة : تجد في بعض البرامج خط تحت حرف وتستطيع الإنتقال عليه بضغط SAhift + الحرف ، ولعمل ذلك قم بكتابة & قبل الحرف المطلوب .


قوائم الإختيار :

أما القوائم التي فيها اختيار فهي تشبه زر الإختيار كثيراً إلا أنها تختلف عنه في أمور بسيطة منها :
أولاً : أنها بمجرد وضعها على الفورم يكون محددة ، ولإلغاء هذا التحديد استخدم مثل هذا الأمر في الفورم لود على اعتبار أن A1 و A2 هما زري الإختيار :


code:A1.Checked = False
A2.Checked = False




ثانياً : أنها لا تتحدد تلقائياً بمجرد ضغط المستخدم عليها ، بل تحتاج إلى كود مثل هذا في حدث Click التابع لها :

code:If A1.Checked = True then A1.Checked = False Else A1.Checked = True





عمل القوائم المنبثقة :

لعمل ذلك نقوم بما يلي في حدث MouseDown التابع للفورم ، وذلك على اعتبار أن A1 هو رأس القائمة ، وسيعرض من ضمنها القوائم التي تحته ، مع ملاحظة أن القائمة ستظهر في حالة نقر المستخدم زر الماوس الأيمن ، أو كما يحلو لك .

code:If Button = 2 Then
Me.PopupMenu Me.A
End If




ومن خلال تغيير رقم 2 نستطيع تغيير الزر الذي تظهر القائمة عند النقر عليه .

اضافة عناصر وحذفها أثناء عمل البرنامج :

لا بد لك أولاً من انشاء عنصر باسم A1 مثلاً ، وجعل Index = 0 ومنه نستطيع تحميل باقي العناصر ، مع مراعاة أن خصائص العنصر الجديد ستكون نفس خصائص العنصر الأول .
كما نحتاج إلى اضافة متغير يعمل كعداد لكي لا يحدث خطأ .
أما كود التحميل فهو :

code:' على افتراض أن Nu هو المتغير الذي أضفنها في البداية
' وأن A3 هو العنصر الذي نريد أن ننسخ منه
Nu = Nu + 1
Load Form1.A3(Nu)




نقوم بالجمع لكي يضيف واحد إلى العنصر السابق فتصبح الأسماء A3(0) : A3(1) : A3(2) وهكذا .
نستطيع بعد ذلك تغيير الخصائص فمثلاً :

code:A3(Nu).Caption = ****1.****




أما الكود الخاص بالعنصر الجديد فسنضعه في أول عنصر وهو الموجود أثناء التصميم ، وذلك بالشكل التالي على سبيل المثال :

coderivate Sub A3_Click(Index As Integer)
MsgBox "لقد اخترت " & A3(Index).Caption
End Sub





ومثال آخر إذا كان المستخدم يضيف مسارات صور :

codeicture1.Picture = LoadPicture(A3(Index).Caption)





وهكذا ...

وبالمناسبة اذكر سؤال سأله أستاذنا الكريم أبو عابد وأجاب عليه كما أعتقد الإستاذ الكريم ( ياسر فهد ) إن لم أكن مخطأ ، وكان السؤال حول إلغاء القائمة التي تظهر عند الضغط في التيكست مثلاً واستبدالها بقائمة خاصة بالبرنامج ، وكان الرد كما يلي ، واعتذر عن عدم تذكري وصلة الموضوع .

quote:
--------------------------------------------------------------------------------


coderivate Const WM_RBUTTONDOWN = &H204
Private Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long


Private Sub ****1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
SendMessage hwnd, WM_RBUTTONDOWN, 0, 0&
Me.PopupMenu Newmenu
End If
End Sub




--------------------------------------------------------------------------------



تحياتي للجميع

 

 

[هارب من العدالة]

أحسنت بارك الله فيك

 

 

[دمعة فرح]

دروس في قواعد اليانات – الدرس الاول أقسام المشروع في قواعد بياناتdatabase .

بسم الله الرحمن الرحيم
الحمد لله رب العالمين والصلات والسلام على أشرف الخلق أجمعي.. أما بعد
إن شاء الله سنبدء سلسله من الدروس في قواعد البيانات من الصفر .. وذلك بستخدام أدات data control ..

و الان نبدء إن شاء الله ..
دروس في قواعد اليانات – الدرس الاول أقسام المشروع في قواعد بياناتdatabase .

أولاً أريد أن أوضح بعض المسميات المهمه و السهله ..
في اي مشروع توجد هنال أربعه أقسام له وهي ..
القسم الاول :- قاعدت الببانات .. Database : وهى عباره عن مخزن عل القرص الصلب على شكل ملف إما binary أو **** وذلك ضمن تشفير شركه وطريقه تخزين معينه ..
وهو في الاغلب يتكون من مجموعه من الجداول ( Tables ) وكل جدول يتكون من مجموعه من الحقول
( Felids ) التي تحوي البيانت .. ولفهم ذلك أنظر إلى الشكل التالى ..


وتوجد لذلك أنواع كثيره من أنواع الملفات في ال database مثل

(mdb , .xls ) وغيرها يوجد الكثير..

القسم الثاني :- (Database management system) وهو عباره عن مدير قاعده البيانات الذي يسمح لى بالتعامل معها مثلا .. برنامج ال Access هو عباره عن مدير قاعده البيانات ل mdb file و oracle هو مدير قاعده البيانت لملفات oracle ...
وهو يقوم بجميع العمليات على المف ليضمن لى التخزين الصحيع من غير أن اطلع عليه وعلى تعقيده..
وهو بذلك يسهل على المبرمجين إذ كان في السابق يجب على المبرمج ان يتولى هذه العمليه..

القسم الثالث :- أداه تمكننا من التعامل مع مدير قواعد البيانات لنصل إلى قاعده البيانات وتوجد لذلك أدوات كثيره
وكل له شغله و أهميه أو بساطته ..
ومنها ال data control و ADO , DAO , OLEDB ,ODBC وكل منها له مقدرته على التعامل مع مدير قواعد البيانات..
ونحن هنا سنتعامل مع ال data control للبساطه في العمل ..

القسم الرابع :- وهو برنامجي بما يحويه من forms أو شاشات للتعامل مع قواعد البيانات من إضافه و إلغاء أو تعديل أو طلب عرض البيانات .. وهو بدوره في درسنا يتعامل مع ال data control ويتفاعل معه ومع الاوامر التي يتيحها حسب طاقته وحسب ما وضعه فيه مصموه.. وهو يرتبط مع جدول ( Table ) في الوقت الواحد لإدارة العمليات عليه..


وإن شاء الله نكمل في الدرس القادم..



ملاحظة :" ارجو من المشرف العام تثبيت موضوعي للفيجول بيسك "

تحياتي
دمعة فرح

 

 

[أبومهدي]

[CELL=filter:;]

السلام عليكم ورحمة الله وبركاته
الأخت دمعة فرح
تحية لك ولمجهوداتك الرائعة وأتمنى من الجميع أن يقرأ ما تسطرين من معلومات قيمة تفيد كل مستخدم لهذا الجهاز العظيم جهاز الحاسوب ( الكمبيوتر) ....
أكرر شكري وأتمنى لك المزيد من التوفيق والنجاح

[/CELL]

 

 

[البارق]

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

<span style='color:"8B0000"'>ا</span><span style='color:"8F0000"'>ح</span><span style='color:"940000"'>س</span><span style='color:"980000"'>ن</span><span style='color:"9D0000"'>ت</span><span style='color:"A10000"'> </span><span style='color:"A60000"'>ب</span><span style='color:"AA0000"'>ا</span><span style='color:"AF0000"'>ر</span><span style='color:"B30000"'>ك</span><span style='color:"B80000"'> </span><span style='color:"BC0000"'>ا</span><span style='color:"C10000"'>ل</span><span style='color:"C50000"'>ل</span><span style='color:"C90000"'>ه</span><span style='color:"CE0000"'> </span><span style='color:"D20000"'>ف</span><span style='color:"D70000"'>ي</span><span style='color:"DB0000"'>ك</span><span style='color:"E00000"'> </span><span style='color:"E40000"'>و</span><span style='color:"E90000"'>ا</span><span style='color:"ED0000"'>س</span><span style='color:"F20000"'>ت</span><span style='color:"F60000"'>م</span><span style='color:"FB0000"'>ر</span><span style='color:"FF0000"'> </span><span style='color:"FF0503"'>ف</span><span style='color:"FF0A06"'>ي</span><span style='color:"FF0F09"'> </span><span style='color:"FF140C"'>ا</span><span style='color:"FF180F"'>ل</span><span style='color:"FF1D12"'>ش</span><span style='color:"FF2216"'>ر</span><span style='color:"FF2719"'>ح</span><span style='color:"FF2C1C"'> </span><span style='color:"FF311F"'>ن</span><span style='color:"FF3622"'>ن</span><span style='color:"FF3B25"'>ت</span><span style='color:"FF4028"'>ظ</span><span style='color:"FF442B"'>ر</span><span style='color:"FF492E"'> </span><span style='color:"FF4E31"'>ا</span><span style='color:"FF5334"'>ل</span><span style='color:"FF5837"'>م</span><span style='color:"FF5D3A"'>ز</span><span style='color:"FF623E"'>ي</span><span style='color:"FF6741"'>د</span><span style='color:"FF6B44"'> </span><span style='color:"FF7047"'>م</span><span style='color:"FF754A"'>ن</span><span style='color:"FF7A4D"'>ك</span><span style='color:"FF7F50"'> </span>

اخوك البارق

 

 

[دمعة فرح]

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

دروس في قواعد البيانات – الدرس الثانى كيفيه إنشاء قاعدت بيانات database .

توجد هنالك طرق كثيره لإنشاء قواعد البيانات..
وذلك بالعتماد على نوع قاعدت البيانات و نوع مدير القاعده المطلوب ..
لكن نحن هنا فى هذه الدروس سوف نناقش قواعد البيانا
.mdb .xls وهي القواعد الاكثر سهوله في المعامله..
وفي هذا الدرس سوف نناقش كيفيه إنشاء قاعده بينات بستخدام أدوات ال Visual Data Manager ..
و الأن نبدء بسم الله..
يمكن إنشاء قاعده البيانات mdb من خلال الإدة الموجوده في القائمه Add in إختار من نافذت ال visual Basic
Visual Data Manager

وبعدها تظهر لك نافذه visdata...
كما في الشكل التالي..

http://www.rajabnatshah.netfirms.com/visdata.jpg
ويمكن الان إنشاء قاعدة بينات من خلال هذا البرنامج..
فمثلا لو اننا نريد أن ننشء قاعدت بيانا لشركه إسمها natahah
نقوم بما يلي..

1- نختار File من شاشه البرنامج.. ثم نختار new
فتظهر لنا مجموعه الخيارات لإنشاء قاعده بيانات.. كما في الشكل التالى..
http://rajabnatshah.netfirms.com/visadd.jpg2
ولكن في مثالنا هذا نختار Microsoft Access
ومن داخل القائمه نختار الإصضار.. بإمتداي mdb ..
3- في مثالنا هذا نختار virsion 7.0 MDB فتظهر لنا شاشت حوار تسالنا
عن إسم وموقع لقاعدة البيانات التي نريد إنشائها... فنكتب إسم قاعده البيانات natshah ولنحاول أن نجعلها بالإنجلزيه لتسهيل التعامل معها برمجياً..ويظهر لنا البرنامج المساعد كما في الشكل التالى..

http://www.rajabnatshah.netfirms.com/visnatshah.jpg
وبهذا نكون قد أنشئنى قاعدت البيانات..

وإذا أردنا إضافه جدو ل إلى القاعده و لو فرضنا أسمه employee
وهذا الجدول يحوي إسم name و عنوانaddress وراتبselary الموظف على سبيل المثال والتسهيل..
تقوم بما يلي..


1 - نضغظ بزر الفئره الأيمن على propirty ونختار New Table
كما في الشكل التالى..


http://www.rajabnatshah.netfirms.com/visaddtable.jpg
2- تظهر لك نافذه إضافه جدول إلى القاعده..
http://www.rajabnatshah.netfirms.com/vista...leStructure.jpg

3- نقوم بإدخال إسم الجدول في النص المكتوب بجانبه.. Table Name
4- نقوم الآن بإضافه الحقول field إلى الجدو من خلا الضغط على Add Field ..
تظهر لنا نافذه إضافه حقل ..كما في الشكل التالي..
http://www.rajabnatshah.netfirms.com/visaddfield.jpg
ويتم هنا إدخال إسم الحقل وتحديد نوعه..
فمثلا في مثالنا يكون إسم الحقل الأول name ونوعه **** ..
5- وبعد عمل ذلك نضغط عل Ok ليتم إضافه الحقل إلى الجدول..
ونقوم بعمل ذلك بالنسبه للحقو لاأخرى التي نريدها ..
address ونوعه **** و selary ونوعه currency أي عمله ..
6- نقوم بإغلاق شاشه إضافه حقل فننتقل إلى شاشه أضافه جدول
ونلاحظ أن الحقول مضافه ..

ولتثبيت العمل الذي عملناه على الجدول نضغط على Biled the Table
ليتم إنشائه فعلياً على القاعده..

وبهذا نكون قد أنشئنا قاعده بيانات و جدول و حقول داخل جدول ..
وهذا سهل إن شاء الله ..في حاله أنّنا أردنا إضافه أي تغيريات نشائها..
وبعدها نغلق البرنامج ونذهب لل vb ونربطه مع أي datat control نريده
ويتم العمل إن شاء الله ..
و إن شاء الله في اللرد القادم للموضوع تكون طريقت الإنشاء بستخدام ال access
database managman systym

ملاحظة "الصوره ما ادري يمكن ما تظهر لاني ما اعرف كيف اضيفها ":o


تحياتي


دمعة فرح

 

 

[دمعة فرح]

بسم الله الرحمن الرحيم
دروس في قواعد البيانات – الدرس الثالث كيفية ربط قاعدت بياناتdatabase فى برنامجى بستخدام data control


توجد هنالك طرق كثيره لربط قاعدت البيانات و التحكم فيها..
ذلك من خلا ال data control مثل ال data
وال ADO و الDAO و ال OLEDB و ال ODBC وكلها يمكنه التعامل مع القواعد الموجوده عل نفس الجهاز أو على جهاز آخر..
ونحن في هذا الدرس سوف نشرح طريقت الربط بستخدام ال data
و الان نبدء بسم الله...

في البدايه لتتم عمليه الربط يجب ان يكون عندنا قاعدت بيانت
منشئه وجاهزه على الجهاز.. وذلك مثل قاعدت البيانات التى أنشئناها في الدرس الثانى ..natshah.mdb
والأن نقوم بفتح مشروع جدين standard.exe ونقوم بالأتى

1-ربط قاعدت بيانات موجوده على ملف:- نضيف الكنترول data1 من الأداه الموجوده على شريط الأدوات.. و نقوم بتعديل الخاصيه DatabaseName لل data1
وذلك لربطه مع ملف قاعدت البيانات..وهو natshah.mdb وبعدها نتأكد من ان الخاصيه Connect تحمل القيمة Access
أي ان ال data control يتعامل مع مدير قاعده البيانات Accessولكن يبقى ان نربطه مع جدول معين فنقوم إختيار إسم الجدول من الخاصيه RecordSource ولا يوجد لدينا سوى جدول وآحد وهو emplyee
وبهذا نكون قد ربطنا ال data1 مع الملف .
2-تجهيز الواجه للعمل:- نضيف ثلاث **** ,وثلاث lable إلى ال form الذي نعمل عليه



ونحن الآن قد جهزنا الواجهة وبقى علينا أن نربط ال ****s مع الحقل المناسب الموجود في القاعده وذلك بستخدام الاداه data
3- نربط الواجه مع القاعده من خلال ال data :- وذلك بختيار ال ****1 وتغير الخاصيه DataSource له بختيارنا data1 قاعدت البيانات بالجدول المختار في ال data1.. ثم نقوم بتحديد إسم الحقل وذلك من خلال
الخاصيه..DataField وإذا كن عملنا صحيح تظهر لنا قائمه الحقول داخل الجدول emplyee ولل ****1 نخار name أى الإسم..
ونقوم بالعمليه السابقة على ال ****1 وال ****2 وذلك من خلا تغير الخاصيه لديهم وختيار من DataField . القيم address و salary على التوالى..
وبهذا نكون قد أنشئنا أول برنامج مربوط بقاعدت بيانات وذلك من غير كتابه كود ..

ويمكننا الان من إستعراص محتويات قاعدت البينات وذلك بتحريك الاسهم في ال data1..

والله التوفيق..

 

 

[دمعة فرح]

بسم الله الرحمن الرحيم
دروس فى قواعد البيانت .. الدرس الرابع : الخصائص المهمه لل data control

توجد هنالك أدوات وطرق كثيره لربط والتعامل مع قواعد البيانا ..
وال Data control يعتبر أسهلها ..
ومن يفهمه ويفهم كيف يستخدم خصائصه و الإجرات الموجوده داخله..
و التى يحتويها ويوفرها يستطيع بعدها أن يفهم أى أداه أخرى بكل سهوله وسرعه..
و الآن نبدء بسم الله ..

الخاصيه Name .. وهى خاصيه موجوده لك Opject يعمل فى ال vb
وهو مهم لأنه يستخدم فى البرمجه .. ويستحب أن يكون الأسم
ذو مدلول ومعنا هنا مثلا ( يمكن تسميه ال data control ) ب dat_employee ..
و dat هنا هى لاحقه تضاف للإسم فى أوله لتدل على أن الأسم ل Data control ويمكن حذفها .. و emplyoee هنا تدل عل إسم الجدول المربوط به ال data control وهو فى الأمثه فى الدروس السابقه ..

الخاصيه Connect وهى خاصيه تمكننا من أن نحدد نوع مدير قاعده البيانات كمانريد أو كما تتيحه الأداه..
ونحن فى الدرس الثالث ربطنا القاعده مع مدير قواعد البيانات Access
ومثلاً لو أردنا أن نربط مع مدير Microsoft Excel نختار من هذه الخاصيه ..
Excel ونختاره حسب الإصضار الموجود عندنا ..

الخاصيه DatabaseName ومن خلا هذه الخاصيه يتم ربط ال Data control بقاعدت البيانت بإعطائه إسم ومكان القاعده على القرص الصلب.. ويجب أن يتوافق نوع القاعده مع مدير المقاعده المحدد فى خاصيه ال Connect ..
فمثلاً نختار ملفات القاعده .mdb فى حاله إختيار Access
ونختا Xls لمفات القاعده إذا كان نوع مدير القاعده Excel ..

الخاصيه Exclusive ومن خلالها يمكن تحديد
إذا كان بالإمكان فتح القاعده لأكثر من برنامج أو القصد أكثر من مستخدم فى نفس الوقت .. وهو تأخذ القيم True او False >
* True : أى ان قاعدت البيانا مفتوحه فقط لمستخدم واحد فقط , ولا يمكن أى مستخدم أن يفتحها قبل أن يغلق المستخدم الأول عمله..
* False : وهى تلقائيا تكون هيى القيمه الإبتدائيه .. وتعنى أنه بالإمكان من أكثر من مستخدم أن يستخدمو قاعدت البيانت فى نفس الوقت..

الخاصيه RecordSource وهى خاصيه ذات هدفين ..
يمكن من خلالها إسناد جدول لل Data control فى وقت التصميم ..
أى كما فى الدرس الثالث .ربطنا مع جدول ال Employee ..
والهدف الثانى إسناد جمل SQL إلى ال Data control إى إسناد إستعلام وطلبات عرض مخصصه تفيد كثيراً فى البرمجه..

هذه أهم الخصاصئص التى المهمه و السهله وللتى تساعدنا فى العمل..
وإن شاء الله سوف يتم شرح الإجرائات و الأدوات البرمجيه .. أخرى..
و ال Function الأساسيه ..

وبالله الوتوفيق ..

 

 

[دمعة فرح]

بسم الله الرحمن الرحيم
دروس فى قواعد البيانات : الدرس الخامس :- مجموعه من الmethod و ال Function المهمه ..لل Data control .

يوجد لل Data control مجموعه جيدة من الmethod و ال Function التى تمكننا من التعامل مع قاعده البيانات المربوطه بال Data control بكل أريحيه وسهوله مع بعض التدبر و لعمل حبكه العمل حسب الحاله ..
و الأن نبدء بسم الله ....


يحتوى ال Data Control على مجموعه كبيره من الأوامر والإجرآت ولكن تكون هذه الأوامر تحت
مجموعه أوامر تختص بالمعامله مع السجلات .. وكل هذه الأوامر تكون موجوده فى ال Recordset
فمثلا .. عند كتابتك للكود التالى تجد مجموعه كبيره من الأوامر يمكن الإستفاده منها ..

Data1.Recordset

وهذه الأومر تنقسم إلى مجموعات من حيث الإستخدام.. ونحن هنا سنشرح أهمها ..

** مجموعه أوامر متخصصه فى التنقل داخل الجدول من سجل إلى آخر..


1-الأمر MoveNext وهو يمكننا من الإنتقال من السجل الحالى إلى السجل الذى يليه فى الترتيب .. ومثلاً يمكن تنفيذ الأمر بكابه الكود التلى ..

code:Data1.Recordset.MoveNext

2- الأمر MovePreviousوهو يمكننا من الإنتقال من السجل الحالى إلى السجل السابق فى التربيب..
ومثلا...

code:Data1.Recordset.MovePrevious

3-الأمر MoveFirst وهو يمكننا من الإنتقال إلى أول سجل فى الجدول .. ومثلاً ..

code:Data1.Recordset.MoveFirst

4 – الأمر MoveLastوهو يمكننا من الإنتقال إلى آخر سجل فى الجدول .. ومثلا ..

Data1.Recordset.MoveLast

** وهنالك مجموعه من ال Function و التى ترجع قيم تفيد فى البرمجه وتفحص حالت معينه ... ونها.

5 – الإقتران EOFوهو يعنى فحص قيمه ال End of Table أى إذا كان مأشر السجلات يقف الأن على نهايه الجدول .. وهذا ال function يرجع قيمه true أو false وتكون القيمه المرجعه True إذا كنا نقف علا أخر سجل فى الجدول .. ومثلا على كيفيه الإستخدام..

code:If Data1.Recordset.EOF Then
'تقوم بالعمل والإجراء الذى تبريده
End If

6 – الإقتران BOF وهو مثلا الإقتران EOF سوا أنه يفحص إذا كنا موجودين على السجل الأول ...

7 - الإقتران RecordCount وهذا الإقتران يقوم بإرجاع قيمه تمثلا عدد السجللات فى الجدول ..ويمكن الإستفاده من هذه الداله فى عرض عدد السجالت أو فى أمور أخرى سننافشها فى دروس لاحقه ..
ومثال على إستخدامه ..

code:Dim NumberOrRecord As Integer
Data1.Recordset.RecordCount

8- الداله AbsolutePosition وهى ترجع رقم السجل الذى نكون واقفين عليه ( أى يكون المأشر واقف عليه ) ويبدء الترقيم للسجلات من الصفر .. ويمكن إستخدام الداله فى أمور كثييره ومثلا على كيفيه الإستخدام..

code:Dim PosLoc As Integer
PosLoc = Data1.Recordset.AbsolutePosition

** وايضا توجد هنالك مجموعه من الأوامر التى تهتم بالسجالت من الحيث الأضافه و التعديل والحذف.. وغيرها..

9- الأمر AddNewوهو يقوم بإضافه سجل جديجد و فارغ إلى الجدول .. وهو يمثلا إضافه إلى جدول..ومثال عليه ..

code:data1.Recordset.AddNew

10- الأمر Deleteوهو يقوم بحذف السجل الذى نقف عليه حالياً .. وثال عليه..

code:data1.Recordset.Delete

11- الأمر .Update وهو يقوم بحفظ التعديلات على لقاعده فعلياً ..ويكون ذلك بعد إضافه سجل أو التعديل على بيانت سجل .. فيجب حفظ التعديلات فعلياً.. ولا يمكن إستخدامه بعد أى منها .. وإلى يسبب خطء..

code:data1.Recordset.Update

12 – الأمر CancelUpdateويمكن إستخدامه فى حالت أننا أردنا لتراجع عن عمل قمنا بهه على القاعده ..
فمثلاً لو قمنا بإضافه سجل جديد ولكن أردنا أن نتراجع فإننا ننفد هذا الأمر .. أو إذا أردنا بعد عمليه تعديل على السجل أن نتراجع فيمكن ذلك.. ولكن عند تنفيذ الأمر Update فإننا لن نسنفيد من الإمر..
ومثلا على إستخدامه..

code:data1.Recordset.CancelUpdate

** وأيضاً توجد هنالك مجموعه أوامر تمكننا من البحث فى داخل القعده .. وذلك فى حاله أن المبرمج لا يعلم لغه ال SQL أو لا يريد إستخدامها.. وهى ..

13- الأمر "FindFirst "the condition as String وهذا الأمر يعنى إريد أن أبحث من أول الجدول وذلك حسب الشرط الموضوع على شكل String ... ويمكن أن يكون هذا الشرط عباره عن أنه مثلا الإسم يكون محمد ويعبر عنها بما يلى ..

code:Data1.Recordset.FindFirst "name='mohmmed'"

ويجب أن يكون قيمه الشرط إذا كان String أن يوضع بين حاصره علويه واحده مثلا 'moammed'
وإذا كان الشرط عباره عن مقارنه قيمه رقميه فإنه يكون مثلا ..
""ID=3 أى أنه قيمه الحقل الذى إسمه ID أن تكون ثلاثه..

14- الأمر FindLast " the condition as String " وهذا الأمر يكون مثلا ال FindFirst من حيث الشروط .. لكنه يبدء البحث من أسفل الجدول ...

15- الأمر FindNext يقوم مثلا الأمر FindFirst وذلك حسب شروط البحث ..
ولكنه يبدء البحث من الموقع التالى وبالإتجاه لآخر الجدول للموقع الحالى..

16- الأمر FindPrevioust يقوم مثلا الأمر FindFirst وذلك حسب شروط البحث ..
ولكنه يبدء البحث من الموقع السالبق وبالإتجاه لأول الجدول للموقع الحالى..

** وأيضاً يوجد هنالك أمر مهم ليس تابع لمجموعه الأومامر فى ال RecordSet وهو ..

17- الأمر ******* له إستخدامان رإيسيان..
الأول فتح قاعدت البيانت فى بدانيه البرنامج أو فى بدايه تحميل الفورم ... وذلك لإجراء بعض العمليات عند بدايه التحميل .. كأن يعرض عدد العناصر فى الجدول ..
ومثال عليه ..

code:
Private Sub Form_Load()
' هنا يتم فتح قاعدت البيانت
Data1.*******
End Sub

و الإستخدام الثانى هو بعد إسناد جمل SQL إلى الخاصيه .. RecordSource وليتم تحميل السجلات التى
تطابف الطلب.. يجب أن نقوم بإستدعاء الأمر ليتم العمل .. أى كأننا نقوم بإعدت فتحه وفق الشرط الجديد..
ومثلا على ذلك المثال التالى ..

code:
' إسناد جملت طلب
Data1.RecordSource = "select * from employee"
' طلب تحديث البيانات المحمله فى ال
' datatControl
Data1.*******

إخوانى فى هذا الدرس تم شرع بعض الأوامر الضريريه فى برمجه قواعد البيانات


تحياتي للجميع وان شاء الله تكون معلوماتي مفيده للجميع

 

 

[دمعة فرح]

فائدة: البحث في ال ComboBox و ال ListBox
سؤال يكثر طرحة عن كيفية البحث في ال ComboBox و ال ListBox الكود المرفق يبين كيفية فعل ذلك ، و بامكانك سحب المثال

code

Function FindInCombo(TheCombo As ComboBox, FindIt As String) As Integer
Dim i As Integer

For i = 0 To TheCombo.ListCount - 1
If UCase(TheCombo.List(i)) Like UCase(FindIt) & "*" Then
FindInCombo = i
Exit For
End If
Next i

End Function
Function FindInList(TheList As ListBox, FindIt As String) As Integer
Dim i As Integer

For i = 0 To TheList.ListCount - 1
If UCase(TheList.List(i)) Like UCase(FindIt) & "*" Then
FindInList = i
Exit For
End If
Next i

End Function


Private Sub Command1_Click()
Combo1.ListIndex = FindInCombo(Combo1, ****1.****)
List1.ListIndex = FindInList(List1, ****1.****)
End Sub

Private Sub ****1_Change()
Combo1.ListIndex = FindInCombo(Combo1, ****1.****)
List1.ListIndex = FindInList(List1, ****1.****)

End Sub

املف


هذا و الله اعلم


تحيات اختكم
دمعة فرح

 

 

[هارب من العدالة]

ألف ألف تحية لك على إجتهادك أختي

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

 

 

[دمعة فرح]

الاخ هارب من العدالة بصراحة اعتقد انه ما فيه فرق بينهم

بس الافضل انك اتركب ميكروسوفت فيجول بيسك 6.0 المكتبة كامله افضل شيء
تحياتي
دمعة فرح

 

 

[وديع]

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

 

 

[Moner]

شكراً لك اختي على تلك المعلومات القيمة والتي اتمنى ان يستفيد منها الاعضاء ... وننتظر المزيد من الشرح في هذا المجال

 

 

[دمعة فرح]

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

الخطوة الأولى
اختر من القائمة العلوية project ثم اختر Add Module
ثم ستظهر لك نافذة اختر منها Open

الخطوة الثانية
ضع الدالة sndPlaySound في هذا النموذج الجديد .. على هذه الصورة
#If Win32 Then
Declare Function sndPlaySound Lib "WINMM.DLL" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As Any, ByVal uFlags As Long) As Long
#Else
Declare Function sndPlaySound Lib "MMSYSTEM.DLL" _
(ByVal lpszSoundName As Any, ByVal wFlags As Integer) As Integer
#End If

الخطوة الثالثة
الآن إذهب إلى النافذة ـ Form ـ التي تريد وضع الصوت فيها .. واختر الحدث load أي عندما تفتح هذه الفورم وتحمّل .. وضع هذا السطر
Result = sndPlaySound(ByVal 0&, 0)

الخطوة الرابعة
وأخيراً ضع في المكان الذي تريد فيه تحميل الصوت ( أكان عند الضغط على زر أو تحميل نافذة أو المرور على زر .... الخ ) هذا الأمر ..
Result = sndPlaySound("c:start.wav", 3)

حيث c:start.wav هو اسم الملف الصوتي الذي تريد سماعه ..

ملاحظة : قم بتغيير الرقم 3 في الأمر الأخير إلى 0 أو واحد ولاحظ الفرق ..

وإن شاء الله كل شيء واضح ... وتحياتي ..

 

 

[دمعة فرح]

لو أردت أن تضع نصاً له ارتباط تشعبي .. فماذا عليك أن تصنع ؟! في برنامج الفرونت بيج المسألة سهلة ، وكذلك في الوورد ...
ولكن في الفيجول .. عليك العمل بهكذا عمل ..

الخطوة الأولى
قم بالإعلان عن هذا الإجراء .. إما على مستوى البرنامج ( وذلك بوضعه في نموذج Module ) أو على مستوى نافذة Form وذلك بوضعه في General تحت الحدث Declarations ..

وهذا الإجراء هو :
Option Explicit
Private Declare Function ****lExecute Lib "****l32.dll" Alias "****lExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


الخطوة الثانية
ضع أداة العنوان Lable على نافذتك واكتب فيها اسم الموقع الذي تريد أن تضع له ارتباط .. مثلاً : ياقوت المحبة

الخطوة الثالثة
اختر الحدث Click لهذا العنوان Lable واكتب هذا الأمر :
****lExecute Me.hwnd, "open", "http://www.yaqotm.cjb.net", "", "", 1

حيث أن العنوان www.yaqotm.cjb.net هو العنوان الذي سيفتح إذا نقرت على أداة العنوان ..

أرجو أن يكون الأمر واضحاً ومفيداً.. تحياتي ..

 

 

[دمعة فرح]

إذا أردت أن تضع في برنامجك نص متحرك قم بعمل الخطوات التالية :-
الخطوة الأولى
قم بعمل فورم جديد وأضف فيه التالي :-
1- ****Box : صندوق نص .
2- Timer : المؤقت .

الخطوة الثانية
-_الكود_-
قم بكتابة الكود التالي في قسم التعريفات العام (General)


code:--------------------------------------------------------------------------------Private str**** As String--------------------------------------------------------------------------------


ثم قم بالنقر المزدوج على الفورم واكتب الكود التالي :

code:--------------------------------------------------------------------------------
Private Sub Form_Load()

str**** = "Welcome to Emad Fathy WebSite this is demo for scrolling ****"
str**** = Space(80) & str****

End Sub
--------------------------------------------------------------------------------


وبعد ذلك قم بالنقر على المؤقت نقرة واحدة وتوجه للخاصية Interval وقم بكتابة أي رقم (هذا الرقم هو عبارة عن سرعة النص المنزلق في صندوق النص)

مع العلم بأن هذا الرقم الذي ستكتبه سيكون عبارة عن سرعة النص في جزء من الثانية . مثلا لو أردت السرعة أن تكون ثانية واحد فعليك أن تكتب الرقم 1000 وهكذا .

وأخيرا قم بالنقر المزدوج على المؤقت واكتب الكود التالي :-

code:--------------------------------------------------------------------------------
Private Sub Timer1_Timer()

str**** = Mid(str****, 2) & Left(str****, 1)
****1.**** = str****
Me.Caption = str****

End Sub

تحياتي للجميع
ارجو ان يكون الامر واضح ومفيد لكم

 

 

[دمعة فرح]

لعمل ذلك ابدأ مشروع جديد وضع على الـ Form صندوق صور (PictureBox) و زر (CommandButton) وعين صورة لأداة الصور لنجعلها شفافة والصورة المنتجة الشفافة ستكون موضوعة على الـ Form نفسها.

خاصية الـ ScaleMode الخاصة بأداة الصور لابد أن تكون 3-Pixel واللون الذى سوف يكون شفاف في حالتنا هذه هو اللون الأبيض.


**************************************************
*********************************
ضع هذا الكود في Module.

Option Explicit
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Public Declare Function BitBlt Lib "gdi32" _
(ByVal hDCDest As Long, ByVal XDest As Long, _
ByVal YDest As Long, ByVal nWidth As Long, _
ByVal nHeight As Long, ByVal hDCSrc As Long, _
ByVal XSrc As Long, ByVal YSrc As Long, _
ByVal dwRop As Long) As Long

Public Declare Function CreateBitmap Lib "gdi32" _
(ByVal nWidth As Long, _
ByVal nHeight As Long, _
ByVal nPlanes As Long, _
ByVal nBitCount As Long, _
lpBits As Any) As Long

Public Declare Function SetBkColor Lib "gdi32" _
(ByVal hdc As Long, ByVal crColor As Long) As Long

Public Declare Function Select****** Lib "gdi32" _
(ByVal hdc As Long, ByVal h****** As Long) As Long

Public Declare Function CreateCompatibleBitmap Lib "gdi32" _
(ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long

Public Declare Function CreateCompatibleDC Lib "gdi32" _
(ByVal hdc As Long)As Long

Public Declare Function DeleteDC Lib "gdi32" _
(ByVal hdc As Long) As Long

Public Declare Function Delete****** Lib "gdi32" _
(ByVal h****** As Long) As Long

**************************************************
**********************************
ضع هذا الكود في الـ Form.

Private Sub Command1_Click()

Dim R As RECT

With R
.Left = 0
.Top = 0
.Right = Picture1.ScaleWidth
.Bottom = Picture1.ScaleHeight
End With

TransparentBlt Form1.hdc, Form1.hdc, Picture1.hdc, R, 20, 20, vbWhite

End Sub


Private Sub TransparentBlt(OutDstDC As Long, _
DstDC As Long, SrcDC As Long, SrcRect As RECT, _
DstX As Integer, DstY As Integer, TransColor As Long)

'DstDC- Device con**** into which image must be
'drawn transparently

'OutDstDC- Device con**** into image is actually drawn,
'even though it is made transparent in terms of DstDC

'Src- Device con**** of source to be made transparent
'in color TransColor

'SrcRect- Rectangular region within SrcDC to be made
'transparent in terms of DstDC, and drawn to OutDstDC

'DstX, DstY - Coordinates in OutDstDC (and DstDC)
'where the transparent bitmap must go. In most
'cases, OutDstDC and DstDC will be the same

Dim nRet As Long, W As Integer, H As Integer
Dim MonoMaskDC As Long, hMonoMask As Long
Dim MonoInvDC As Long, hMonoInv As Long
Dim ResultDstDC As Long, hResultDst As Long
Dim ResultSrcDC As Long, hResultSrc As Long
Dim hPrevMask As Long, hPrevInv As Long
Dim hPrevSrc As Long, hPrevDst As Long

W = SrcRect.Right - SrcRect.Left + 1
H = SrcRect.Bottom - SrcRect.Top + 1

'create monochrome mask and inverse masks
MonoMaskDC = CreateCompatibleDC(DstDC)
MonoInvDC = CreateCompatibleDC(DstDC)
hMonoMask = CreateBitmap(W, H, 1, 1, ByVal 0&)
hMonoInv = CreateBitmap(W, H, 1, 1, ByVal 0&)
hPrevMask = Select******(MonoMaskDC, hMonoMask)
hPrevInv = Select******(MonoInvDC, hMonoInv)

'create keeper DCs and bitmaps
ResultDstDC = CreateCompatibleDC(DstDC)
ResultSrcDC = CreateCompatibleDC(DstDC)
hResultDst = CreateCompatibleBitmap(DstDC, W, H)
hResultSrc = CreateCompatibleBitmap(DstDC, W, H)
hPrevDst = Select******(ResultDstDC, hResultDst)
hPrevSrc = Select******(ResultSrcDC, hResultSrc)

'copy src to monochrome mask
Dim OldBC As Long
OldBC = SetBkColor(SrcDC, TransColor)
nRet = BitBlt(MonoMaskDC, 0, 0, W, H, SrcDC, _
SrcRect.Left, SrcRect.Top, vbSrcCopy)
TransColor = SetBkColor(SrcDC, OldBC)

'create inverse of mask
nRet = BitBlt(MonoInvDC, 0, 0, W, H, _
MonoMaskDC, 0, 0, vbNotSrcCopy)

'get background
nRet = BitBlt(ResultDstDC, 0, 0, W, H, _
DstDC, DstX, DstY, vbSrcCopy)

'AND with Monochrome mask
nRet = BitBlt(ResultDstDC, 0, 0, W, H, _
MonoMaskDC, 0, 0, vbSrcAnd)

'get overlapper
nRet = BitBlt(ResultSrcDC, 0, 0, W, H, SrcDC, _
SrcRect.Left, SrcRect.Top, vbSrcCopy)

'AND with inverse monochrome mask
nRet = BitBlt(ResultSrcDC, 0, 0, W, H, _
MonoInvDC, 0, 0, vbSrcAnd)

'XOR these two
nRet = BitBlt(ResultDstDC, 0, 0, W, H, _
ResultSrcDC, 0, 0, vbSrcInvert)

'output results
nRet = BitBlt(OutDstDC, DstX, DstY, W, H, _
ResultDstDC, 0, 0, vbSrcCopy)

'clean up
hMonoMask = Select******(MonoMaskDC, hPrevMask)
Delete****** hMonoMask

hMonoInv = Select******(MonoInvDC, hPrevInv)
Delete****** hMonoInv

hResultDst = Select******(ResultDstDC, hPrevDst)
Delete****** hResultDst

hResultSrc = Select******(ResultSrcDC, hPrevSrc)
Delete****** hResultSrc

DeleteDC MonoMaskDC
DeleteDC MonoInvDC
DeleteDC ResultDstDC
DeleteDC ResultSrcDC

End Sub

 

 

[دمعة فرح]

ضع هذا الكود في Command مثلا .

Dim intWidth As Integer
Dim intHeight As Integer
intWidth = Screen.Width Screen.TwipsPerPixelX
intHeight = Screen.Height Screen.TwipsPerPixelY
MsgBox "Screen Resolution:" + Str$(intWidth) + " x" + Str$(intHeight)

تحياتي

 

 

[دمعة فرح]

اخواني الافاضل
السلام عليكم و رحمة الله وبركاته
فائدة اردت ان اشاركم بها و هي كيفية انشاء قاعدة بيانات عن طريق ال ADO


Code:
--------------------------------------------------------------------------------

Make sure that you add the falwing References
<-- Microsoft ADO Ext. 2.6 for DDL and Security
<-- Microsoft ActiveX Data ******s Recorset 2.6 Library

<------- Form1 as Form
<------------- ****1 as ****Box
<------------- ****2 as ****Box
<------------- cmdCreaData as CommandButton
<------------- CmdCreatTable as CommandButton

Private Sub cmdCreateData_Click()
If (CreateDatabase(****1.****) = True) Then
MsgBox "Database Successfully Created "
Else
MsgBox "Error in Createing, Databse is not Created"
End If
End Sub

Private Sub CmdCreatTable_Click()
If (CreateAutoIncrColumn(****2.****) = True) Then
MsgBox "Table Successfully Created "
Else
MsgBox "Error in Createing, Table is not Created"
End If
End Sub
Function CreateDatabase(DatabaseName As String) As Boolean
On Error GoTo TqDbError
Dim cat As New ADOX.Catalog
'Dim cat As New ADOMD.Catalog

cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "" & Trim(DatabaseName) & ".mdb"
CreateDatabase = True
Exit Function
TqDbError:
CreateDatabase = False
MsgBox "error :" & Trim(Str(Err.Number)) & " " & Err.De******ion
End Function
Function CreateAutoIncrColumn(TableName As String) As Boolean

Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim col As New ADOX.Column

On Error GoTo TqTableError
' Open the catalog
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "" & ****1.**** &".mdb;"

With tbl
.Name = TableName
Set .ParentCatalog = cat
' Create fields and append them to the new Table ******.
.Columns.Append "ContactId", adInteger
' Make the ContactId column and auto incrementing column
.Columns("ContactId").Properties("AutoIncrement") = True
.Columns.Append "CustomerID", adInteger
.Columns.Append "FirstName", adVarWChar, 15
.Columns.Append "LastName", adVarWChar, 25
.Columns.Append "Phone", adVarWChar, 20
.Columns.Append "Salary", adCurrency
.Columns.Append "Birthdate", adDate
.Columns.Append "Notes", adLongVarWChar
End With

cat.Tables.Append tbl

Set cat = Nothing
CreateAutoIncrColumn = True
Exit Function
TqTableError:
CreateAutoIncrColumn = False
MsgBox "error :" & Trim(Str(Err.Number)) & " " & Err.De******ion
Exit Function
End Function

تحياتي

دمعة فرح