احترف قواعد البيانات فى فيجوال بيسك 6

226
ا ا ا ا مة وا وا أف ا ء وا و ا و ا آ وه ا ا ا ا دا أ ا .. وآ : ا أ ه ا ء ا ا ت وا ء ا م ا أو ا " ا ا" ت أن ن ؟ إذا ابن ا آ. إذنت وا ا ه ا ا وا.. ل ا ان ي ا اه ؟ء آ ال ا !! ان ي ا ؟ ف اه ؟ أي ال ا ء ة اه ؟ ت وااق ا ب اه آ ؟ ا ا ـ أرئ ا.. أ اا ا هق ا ا ا ت ا ا ت وا ا م ا.. و80% ا ا ا ه ات و ـ ت ارات وا وا ااآ .. إذن اآ ـ ـ ـم ا وا ا .. ت وا ا . ا ب اه ؟ و أيم ا ؟ ه ا ب ا ا وا !! م أي أ.. م ا أية و اه .. إذا آ ا ان ه " س ا" ا ا وه " ا" ا ا وه" ال ا" وأ ا ء ه أن ا ـ ت ا م و ام و ت ت ا ا.. ب اا ه وه. ت آ ا. ا ا ه م ف و ال اMicrosoft Visual Basic 6.0 ت ا ادت ا اا ع وآ.. ال ه ا. ع ه ة ف ا ات ا ا ؟اب ا: ا تة ا أو ا ى م ف ا.. - ة آآ ه ا ام ا ةت أو راآOracle ا ه ت و و ا ي . - أ إذا آ آ ل ا ام ا ة ل ت SQL Server - أ إذان آ أو ام ا ةت أ آAccess أوMySQL . ا ت اا ع ف ا ـ ا .. ا ه م ف و ةت أ آMicrosoft Access .

description

طرق و كيفية عمل قواعد بيانات ببرنامج الاكسيس فى برنامج الفيجوال بيسيك 6

Transcript of احترف قواعد البيانات فى فيجوال بيسك 6

Page 1: احترف قواعد البيانات فى فيجوال بيسك 6

��� ا ا���� ا�����

�ء وا���������ف اأوا���ة وا���م ��� ا����� � ��� و�� �� �! ا���� و�� �"�#��� ا � ا+��ا ا�$�ه�(� و��� '���� آ ا�$�!�� ��آ�(�و�4 .. � اأ 1 ( 0$/ دا,) 8 �56�7

"! 0! : �! :!�����ت �7 (?� ا<ا�=0 �>���ء 7; ���� ا�ه�أ'��� ا�!A�Bء �� وا�� C=� <D�E :!ا�� ��م �=�A0' ;?� <4!�� ا�?��A'� " ��ا!: ��!> أوا��� :!�� 857 7?�ت " ا�

��?ن '?Aن أ���'A���ت إذن. آ�ن ا�A4اب ��B إذا ؟ !A�B4> وا�!��7; ���� ا� ���� � ه� L�=ا� M�N ..وا�O?� ا�

� <4!�� ؟ !�هA ا�B8 ا�Rي '�( ان 'B��E �! "ل ا�

�8 آ8 �;ء N الS�ا� /T!! 8B' ان �!:؟!� ا�Rي '�(����� V��' �! ف ؟ !�هA ا�5

���' 8�Nأي V0)�W ;7 الS�ا� /T ة ! " �;ء ,�Oه; ا�� ؟ !

�ت �!A�Bا!: وا����هA ا�$�Aب A� ;7ق ا�! V�R؟ آ

�=Eا ���ا!: ANا� A� ;7ق ا�B8 ه; >[�\ ا���ا!: ا�$�A�أ .. ا�0�رئأV��� �;E ـا��ت����6> �5� ا�� ا�� � �5���ت وا�=�6!A�Bا� �)L^=� مA0' ;=ا� .. ��=B)80و% ��ا!: ANا�

�ت و�Rا (��B' \4 هbR ا����ت ا� �ـ=0������> > �?; 'Aاآ\ ا���B وا�=$Aرات وا�=$��.. �ت .. � � !� ا�� (c وا�?�م ا�?+�� ـOـ=ـ اآإذن� 8E ا���!4> وا�=$�! 8E �.

� <4!�� ؟ �C> ا�=^ م أي و؟!�هA ا�$�Aب 7; ا�

5� وا�=O?�� ا����� 5�7�ا�$�Aب 7; ا���!4> ه; � م !! �^=�' <C� أي <���� �! � ا�=^ م ..أ!�!: ��C> آإذا ( �5�C� ..�"> '�اه� �V ��5> و�6 ة أي����!: " ا��; ��س "�ن هRا ا���� وهRا ا�

<C��" �7��!: ��C> " ا�4����!: أنه� �;ء 7; ا��C> وأ " ا�A4�Oال ����V " وهRا ا����8 ـ E( ا��ت������4> و(A0م �ا�B����و(A0م ا�����>�$�<<���D ت� ��� ��\ ا� �Eت !^�6 b�$Bب .. ا�A�$ا� Aا هRت. وه�C� 84> 7; آ!�� . ا�

<C�� <4!��� هRا ا� +) Microsoft Visual Basic 6.0 ا�A4�Oال ����Vو�Aف ��=^ م 7; �

��ت 5�7�����ت ا��اد '^L(� ا����� �Aع ANا� ا�) �' \4) V�Rوآ..

� � . ا��Sال ه ��N عA� ;ه��!4;ة!��� ;7 �5! �ت ا�$�A�> ا�=; �Aف ا�=^���� ؟ ا� : ا�A4اب) �' �=) :!�����ت ��� ��\ ��4 ا����� ة ا���N أو��� t \ ا��ى ��� ���<

�5� :!� .. ا�=; �Aف 'A0م �=��� ���

6 ا ه � (��آ> آ���ة 7+� - ��N ام �ت ة$�\ ! V ا�=^��� ه; ا��Oracle� 5راآ8 أو �� \��tOت و�������� �6 ا و5 <���� <)� .'�=Aي ��� �

� آإذا!� أ -y� <آ��$�A=! <ل� ا����N ام �ت �?�Aل ����7 ة �7?� ا�=^���� SQL Server !���CD 8أو!=�4 آ�ن إذا!� أ -��N ام �ت ة �7?� ا�=^�� . MySQL أو Accessآ�~ أ ��

t \ ا��ت ��� ������ �Aع ANا� ا�) �!: ـ ا�=; �Aف '>(=� '����5� ا�� ��..

��N اRه � +) �ت ةو�Aف ��=^ م 7; ��� . Microsoft Accessآ�~ أ ��

Page 2: احترف قواعد البيانات فى فيجوال بيسك 6

إذن :::��N عA�4> و!�� �C> ا�) �' B� ت ة�����5� ا�! �> ا���� ـ0ـ ن �Aع '�� د ا�ا�=; � �=^��ت�A0ا� ا����..

� 6A'اع آ+��ة ����� وه� أA�:

��ت ANىا�و ��5وا� �� �5 8�7ا�و�?� �Aف ��=^ م .. ا�?+�� ! 5����وه; 'AN ;7 <� 0ا� ا� ActiveX Data Object وه; 'ADO; Bا����

�ت !+8 -���� : !� �Eل هbR ا�=0 �> '�=$�/ ا�=�?� AN ;7ا� ا��7>ا<T - 8) B=ف - ا�Rا�� - c) �ت - ا<�=�Bم - ا�=����� . وا�?+�� !� ANا��� ANا� ا� : 'B ; لوا��?�SQL ،A '�=$�/ ا�=^ ام 68 ا�ـ �E �!ADOل '0 �> ا�ـ -

<Cم��B=�>ا�ـ ، و ا��5?��>ا <C� �!SQL� L�=' 5���: �ت��(B> ا< -�����ل �A0ا� ا��'. - ��رف ���5� دو��B=! <C� . - R�O ' /�$=�'تأو����� .ا!� AN ;7ا� ا��ت -�����ت !� ANا� ا����� \�6 /�$=�'. - /�$=�'<7�Tة إ ) �ت 6���� " ) (8 وا�" �6 84B=ف وا�R� ...ا�� . - ��B=�5> ا�� .

�ت ا��$��> �� AEل وا<ـ=ـن اآ ا�إذن!A�Bا� �! � �O �! � اد ����!4> وآ=��> ا�آAاد و[��هB=� .!!!Aر ا�=B" ا�

د�� �C> ا���!4> وه; •�" V���� الA4�Oا� " . • ��Nت ه; ةو����� . " ?�و�y7A اآ�~(�! " ا� . " ADO "و'0 �> ا���� ه; •

ا���وع ا�Rي �Aف �A0م �=��" 1إن �� (��0 ا�) �ت ، و '�!A�B! ر !��وع��Aف �^= :ا���O�A و�?� �7" هbR ا��Lات

�7>ا< -1T. 2- 8) B=ا�. .ا��Rف -3 .ا���4ت ��� 8ـ' 0 -45- c�� .ا� .ا�=0�ر(� -67- <�A4! <���W. 8- �07 �ت �^� وا����� <���W . �ت - 9�����ت 7; ��?> ا����� .��ض ا�

���!: و�7" هbR ا�^Aاص �?; !� �Eل هRا ا���وع ا��A0' ��Cم ��Aف �A0م �=��� ا����> أه�>�=��� ��ا!: آ���ة وذات� .

DAO ADO RDO OO4O

SQL stands for Structured Query Language

Page 3: احترف قواعد البيانات فى فيجوال بيسك 6

<7�W ) "!�� 'أ�"� ا�5 ��� 7; ا�?��> (A0ل �; أآ�ن : )ا�=�� �RE " وب " د!�>--د��5O�E /�'و " � ا�8Dو�?� 7; . و(?Aن �?�" !^�� ! '�ى �" �8 آ��� " �Aر - ��y - فآ� ��CD "�?�! �0 ة 57; أ'y !� 7?�ة ��CDة وآ�ن �5Bة وا���� (B ; 1 '^� !� ا���ا!: ا�?

����ن آ?!! �D ;7 8E\ ا���! ;?� <4�A0م �=��� ـ=ـن اآ ا�إذن -� �� !� ا�� (c ا�$A(8 وا�8 د� �O

! :!� م ا��=^ م���^) �O. !

8Bأ ا� ��ت أو1����� ة ا���N ���' ;7 .0$> ه;أو�ا����� :ه� ��، و ا�=� ��ا�=� ;'�)1 '4 �7" �7ق، أ!�ا����� وا�$�Aب 7; ا���ا!: ا�?���ة �و�?� ، 7; ا���ا!: ا����Cة ر�

' 1 c�� ة ��?�6 8�� ولا 7; � ة 6 ا�� ة=?�ر � '��� ��ا!: آ���ة (4\ '��� ا�0 ��'�O! ك��ت و(?Aن ه �ك����> و[��ه� !� ا�أو'?Aن ه ���� !Aر ا�5�!> �?; 1 '=�اآ� ا�

ة أ���ء 7; ا�0$E... نA?) فA� اRه � +) ��c أن���� و�?� (4\و=��� ��دي ا� 7; �' �ت ������ !� ا��5و'=�W �� ��Bق '��� ANا� ا�!�6 ا >!Aر ا�5...

إذن�5�. آ�~ �?; 'V� �5t هbR ا� �R7ة 8 ����!: ا��C�=� �N. .. 7; ا�B8 أ � ! �=Eا:

�ت 7�ر[> " �� ة ����N " �TA! Aه � Blank DataBase آ

�ر �=Eا �ت 7�ر[> "� �� ة ����N " Blank DataBase ¡O�� ن�?! ) �' V ! \�$) فA� �� ا�0 V ! \�$)ة و � :ا�=���> آ� 7; ا��Aرة آ=��> ا�� �5�أ(�

Page 4: احترف قواعد البيانات فى فيجوال بيسك 6

�5=�� � ة آ���ت و!� ¢� اآ=\ ا�� ا�0���� ة ا���N ¡O�� ن�?! ) �=� �N � "Data "أ�- 8B6ة إ �� : �?; 'V� �5t ا����> ا�=���> Create " إ���ء " ¢� ا�CT ��� زر Data ا�� ا�0

�5 ! �=Eء "ا�6 ول 7; ��ض ا�=���إ�� " Create Table in Design View �ر�=Eا B�ك � <��� :R5ا ا�^��ر �Aف (V� �5t �?8 '��� ا�4 ول آ� 7; ا����> ا�=

Page 5: احترف قواعد البيانات فى فيجوال بيسك 6

� ا�=��; ��= !إذن .. ا�� ة إ���ء7; هbR ا��5§> '�=$�/ 4!��ت �����$ )) ��Aا� (( : ) ا�� !�آ\ ( �� --- ا��1�N--- ا�� ��ر 1 ( �?=)(

<O��Aا� -- ��

� ؟ ! " !� �Aع ر �� " �N�8B4 ا���N ذا��! ن ا�: �Sالا� هRا7?�ك 7; أ'�ر��ج إ�� ����ت �����> ؟أ�yه8 : ا�A4اب=�' �Nع ا��80 رA� 8B4' �! �

..�B4" �� أن '8�7 7�� . 1 ا�A4اب آ�ن إذا!� أ. �7�B6 �?" ر . �N��B ا�A4اب آ�ن إذا�ت � ا�4 ول ��� ��\ هbR ا�=$ �N �=��إذن��:

<��� :�?; '��8 ��� هRا ا��?8 آ� 7; ا����> ا�=

FirsName � ا��1 ا1ول FatherName � ا�با �� GrandName � ا�4 ا�� FamliyName � <�,�Bا� EmpNo � �Nر ��Aا� Job � <O��Aا�

Page 6: احترف قواعد البيانات فى فيجوال بيسك 6

8B6ح إ�=O! ��Aا� �Nأ ر ;���Primary Key ر� ا< ، و إ��" آ� ه�TA! A و!�B�=� ء�5$�\ ! V آ=��> '�?; 'V� �5t ا����> ا�=���> و )) ��CT)) ¡O ��� زر، إ!� '��� ا�4 ول

: " ا�� ا�4 ول "

Page 7: احترف قواعد البيانات فى فيجوال بيسك 6

8B6ول إ �ر ��Emp" ��O�A " ا�� ا�4�=Eا Aوه Employees �CTا Vذ� B� �¢ زر ���Ok )M7اA!( ا<و B�=��]ول ا 5�ء !� '��� ا�4M <�� : ا����> �?; '�ى ا�4 ول آ� 7; ا��

Page 8: احترف قواعد البيانات فى فيجوال بيسك 6

� هRا هA ا�4 ول ا�Rي t�1 � ، أ��§ �bآ��ت !����� "'��B=� �Nول و > آ� 7; ا����> أ(ا7=� ا�4���>ا�=:

O?�7" ا� ��ت �������ة ا�B' B�����O¡ و>(� �N رب� '� أ�"¢� ا7=�" ��=�آ . [�ق ا�4 ول إ 4=�� �07�ت���� ا�=�آ .. �O¡ ا�B�أنو �5tO� �' ت����� .8 إ�� ا�^$Aة ا�=���> ـ0ـ �Aف � =، ا�

B�ول أ �ء ��N ا�ن ،ن '�By '��� ا�4��´ �E# ول !�� " Users "�" ا 6^=���

: ا�=���> ا�� ةو�Aف (?Aن �7"

NoteDescreptionRows

� � � � � � � � � � � � � � � � � � � � � � � � � �� � � � � � � � � � � � � � ! � � " � �� # $ % & � � ' ( ) *+ , � � � � � � � � � ! � � " � �� - � . � � � � ' ( ) *+ / � 0 1 � � � � � � � ! � � " � �� 2 $ 3 4 � � � ' ( ) *+ � 0 5 1 � � � � � � �! � � " � �6 ' 7 � � � � 7 8 $ 9 : � ' ( ) *+ ; � � 1 � � �

8B6م إ �ح " ا�� ا��=^=O!أ;��� " Primary Key <��� :آ� 7; ا����> ا�=

Page 9: احترف قواعد البيانات فى فيجوال بيسك 6

��! ��ة 6 ول ا��=^B=� �0' 1 ت��� !! ...��ي �� ا<#B� =�ة ا� ��5�ء !� '��� ا�0 ��� ;?� V���� الA4�Oا� :!���� ;7 8E ن �Aف ��ت ا<و!�، Aا56�ت ا���B� ص� ... و[��ه� ا<�=�Bم'��ل و ¢� �?=\ ا�?Aد ا�^

C�=� �N� 8 :!���� V���� الA4�O6.0ا� :!�����ر ا��! V� �TA! � آ

<��� :�?; 'V� �5t ا����> ا�=

Start � All Programs � Microsoft Visual Basic 6.0 � Microsoft Visual Basic 6.0

Page 10: احترف قواعد البيانات فى فيجوال بيسك 6

;���N \��N ر��=E�� �NStandard EXE ���=ا� <��� V� �5t' ;?� :

Page 11: احترف قواعد البيانات فى فيجوال بيسك 6

8Bن ا�A?) فA� ���; .. وا�=��� ه =���!: �Aف (=?Aن !� � ة ��ذج وه; آ��� :ا� . ) ا�ب ( ا� Aذج ا��,��; -1 . �Aذج ا�=�آ !� وA6د !�=^ م -2 . �Aذج ا� AEل -3�تإ�Aذج -4�����ل ا�Eد . �ت -5���� (8 ا�B=� c�� ذجA�. �ت -6���� (8 ا�B' ذجA�. 7- <���$�� c�� ذجA� ) �^� <���Wأو<�A4! ( . . �(�ـ'0 -8 . ا��=^ !��إ���ء�Aذج -9

10- ��! (8 ا��=^B' ذجA� . (8 ا�?�> ا���(> - 11B' ذجA�. 12- :!���� . �Aذج �� ا�

8 �6 �Aف '�=$�/ ?�� "��� ��B=ا� B� :!���� !�> آ���ة إ���ءو!� �Eل هRا ا�E :!ا��

�50)A�' /�$=�'. أ ا ا�::� .. �B8 وا�=��� 7; ��§> ا�A4�Oال ����V ن �

ن ��� آ8 ا�^��,� ا�=; �Aف �=� ث � 5� ا�و�Aف ' $�A� ..Mف � �� � ة ��ذج ���> ا�= ��M و'�C،ا� �ذج � �! � � ...� ا��1 و[��ه

:�; (�� ا�^��,� ا�^�D> �" آ� � ..C=� �N�Aذج أول

Name � frmAddEmp : ��1ا Caption � ىA=�ا� : ��A! ت����� <7�Tإ

Page 12: احترف قواعد البيانات فى فيجوال بيسك 6

(8 هbR ا�B' B� �,��R7ة .. ^�� ;7 �t�اProject - Project17; ا� �4 ه' ��N7; ا ��� <�� ا���وع و!� ¢� '�C=� �N��C.. ا���� 7; أ��� ا��) ��E �! bل �� ا�E �! ��1ل '�

�,� Name ا�^�Properties - <�D ا�^�

;��=�� �N :EmpInfromation �=��> آ

Font �Tahoma � Regular � 8 : �^ا�

RightToLeft � True : � ا� b� ا'4

Page 13: احترف قواعد البيانات فى فيجوال بيسك 6

ا� Aذج ا�-) �=� �N نfrmAddEmp " <7�Tتإ����� ��O�Aا� " /T �¢ا� "��� <��� :دوات ا�=

��; دوات ه� ا�=�� : آ

Note Number Tools Name �� � � � � �� � � 1 � ' * $ � � � � ) � 6 7 ' � � � � � � � � ' � � � � � � � � . � �� � � � + � � 5 ��� 0 � 1 � � � � 3 . 7 � � � * � % � � � � � � � � 6 7 � $ � ' � � � � � � � # $ � � . � : � � � *�� � � � � � � � ! � " ) "#; � � � � 5 �

��> ا�ـ زرار[�� '��> ا�E �! Caption ;��=�� : آ

Command1 � ) 6 Command2 � ¡O� Command3 � وج�E

Page 14: احترف قواعد البيانات فى فيجوال بيسك 6

ا<B�=�> ا���ء !� '�� ( O�� �N¡O��� ;7¡ ا���وع !� �Eل ا���C ��� زر ... زرار5 :M ـدوات ا� �+ا�

�V ا�� ¢� ��O� �5t¡وا�CT ��� زر ، " آ� هA إfrmAddEmp " �B6 " ا�� ا� Aذج

�=V� �5t ر���> ¢� �O¡وا�CT ��� زر ، " آ� هA إEmpInfromation " �B6 "ا���وع B�¡O� وع��ا� <��� :آ� 7; ا����> ا�=

; B' bR> : وه��اد ا�Aا�آ �T وع��ا ا�Rه /Tو" Rاهع !� �A� � ؟" > ا�?Aد �?�> ��( �?; '=^�� !� هbR ا�����> Noا�CT ��� زر

�O¡ ا���وع �اB� أ.. ن ��Eى و�� �=� ث �� '��� ا� �ذج ا�.. 7; ا�=��� �Aف �

Oآ��C' <� ذجA ا�� ا� �� .. \�� وآ�W V�R(0> ا�= ��M أ��0��! " � � �?' � �

Page 15: احترف قواعد البيانات فى فيجوال بيسك 6

�!: آ� 7; ا����> ا�=���> �Aف ���� ا���� :ن ا� Aذج ا��,��; ��

: 'V� �5t ا����> ا�=���> �?;MDI Form إ��"اE=� ا���ر

: �?; 'V� �5t ا����> ا�=���>Open " 7=� "ا�CT ��� زر

Page 16: احترف قواعد البيانات فى فيجوال بيسك 6

Rإ�� ه �t�ذج �?�" [�� !+�� �¹ ا�ااA م� هRا ا� Aذج ا��,��; ا�Rي ا�8Dو�?� 7; . ه=�ت ��� هRا ا� Aذج ��Bن ا[�\ ا�A?=ذج و�� !�Aف (�Aي 6�/ ا�

�,� هRا ا� -�E ;7 ل B � ;��=�� : Aذج آ

<�D� :[�� '��> ا� Aذج !� ا�^��O�Aت ا��!A�B! :!���� Caption �

<�D�E ��]: WindowState � 2 – Maximized

<�D�E ��]:

RightToLeft � True

Page 17: احترف قواعد البيانات فى فيجوال بيسك 6

¡Oل زر إ��E �! وع��7; ا� ا� ¡O� ��� ... ¡O� V ! \�$' <���Aف 'V� �5t ر� ... � ا�CT ��� زر �R5� ¡Oا اMDI Form�1ا� Aذج

Menu Editor ا�A0ا,� !� �Eل ا�^��D> إ���ء�W(0> .... ن ا�A0ا,� ا�¾ � �إذن

"!A�B!و <t��!:

�," و'?Aن 7Menu Editor; ا�ـ N ���' �! ��8 ا�+�ل ... �8O هbR ا�0�," ANا,� أ � � ��� ��O" !+�أ(?Aن .. !�� ) ا��.. �O¡ و 6 ـ�ـ0ـ=ـن 'أ(4\ <��� :�bR5 ا�A0ا��� ا�=

�!، أا�0�," ا��,���> '?Aن � ون �0�ط "��N نA?) ;��O0$=�� " .. " ا��اآ+� / ��TA':

Page 18: احترف قواعد البيانات فى فيجوال بيسك 6

� �Nء� : هbR ا�A0ا,� ��� ��\ هRا ا�=�'�\ و�R5ا ا��?8 ´��

>��ل ��� ���8 ا�+> �4��\ ا�?�ي�L��4ا��1 � " ��! " Files ،Rهb�?7; ا�^> ا� �5�=?' ��< Name,��!: > �?; '�Bف ا�� ا�0��� ، ¢� 7; ا�B� �5� 7; ا�?Aد �7B! 8!�B='

<t��! : \4)ذج أA ن ا�A?) نMDI Form> �� ا� Aء ه� ا�A0ا,� �" ��

B�ء� : ا�A0ا,� ��V� �5t ا��?8 ا� 5�,; �R5ا ا��?8 إ��

��! � File ' ...� Log_Off��E 8�4وج

�E ...� ExitProوج

<7�Tإ � MinAdd ��A! ت����� <7�Tإ ...� AddEmpMu

8) B' � MinEdit

B' ��A! ت����� 8) ...� EditEmpMu

MinTool � أدوات ��! CrUser �... إ���ء ا��=^ ��! (8 ا��=^B' ...� EdUser

(8 آ�> ا��� B' ...� ChanPass

0�ر(�' � MinRep ��A! <���W/ ��O�A! ...� PrintReport

�ت��B=ا� � MinHelp

�� �ت وا���B=ا� ...� HelpAndSupport �� :!���� AboutMe �... ا�

Page 19: احترف قواعد البيانات فى فيجوال بيسك 6

ا<B�=�0ا� ��T �! ء� ة �?;أ�Aف ���� .. Aا,� 5) 5� 7; ا� Aذج ا��,��; دوات 6B�� /��7> <ا�';ا'T ة ) : أدوات 6

��Lر ا� -� �CTا�(ا �)�� ��� �;�� دوات ا��0

: �?; 'V� �5t ا����> ا�=���> "Components ... " إ��"اE=� ا���ر -

Page 20: احترف قواعد البيانات فى فيجوال بيسك 6

�ر �! Aه � .. 7; ا����> ا����0> إ��"آ) �=� �N:

��M "ا�CT ��� زر -$' " Apply زر ��� �CTا Vذ� B� Close ة إ��t إ�� ��(� ا� -) دوات �Aف '�ى أدوات 6

�ه� وه� دوات !� ا�أ�Aف ���� 7; ا� Aذج ا��,��; ¢�ث OTدوات ا��; ا:

:دوات �?; (?Aن �?8 ا� Aذج �R5ا ا��?8ا�T ا�

Microsoft Windows Common Controls 6.0 (SP4)

Toolbar1 ImageList StatusBar1

Page 21: احترف قواعد البيانات فى فيجوال بيسك 6

�ر AD "ن (4\ ��� � ا��=E7; ا�ـا �5O��� ;?� <����ت أ( ا�8D وToolbar1 " ;7 ر ! �A0 \�� ! �5�� (?Aن !0

- 8�Nر ��ـ أAD ���� نToolbar1 \4) ه; ا�أ� ا�=; �Aف '?Aنزرارن ��Bف !

��; 7Toolbar1; ا�ـ =�� : و�Aف '?Aن آ

- <7�Tإ ��O�A! ت����� . - ��O�A! ت����� 8) B'. - ��O�Aت ا������ <���W. - ��B'ت�. - :!���� .�� ا� .�Eوج -

ا�ا� إذن) �> (ن 6�ء دور '����ت ا� �A0، \4) أ V) � �7A=' أ(ن b��B!ة وL�=! ت��A0 ..

6/ ا� "B�)ت��A0 "

��Lر ا�ImageList1 ا�داة� د -� �5��� �CTا ) �5 ! �=Eوا �Properties

ImageList1 � Properties

<��� :آ� 7; ا����> ا�=

Page 22: احترف قواعد البيانات فى فيجوال بيسك 6

<��� �?; 'V� �5t ا����> ا�=

Ã� س��ت (� د ا�0�A0General : 32 X 32د ا� � Vذ� B� �¢ \)A�=Tab " Images " <��� :�?; 'V� �5t ا����> ا�=

Page 23: احترف قواعد البيانات فى فيجوال بيسك 6

ا��Aر Insert Pictureا�CT ��� زر ) �ت(ا� " �=��A0 " ) �تأ( 4) 6\ '��A0 ��� � 4!��ت ���� (=$�\ و��\ !=$�B� رAD y�<7�Tإ <�� ا��Aر �?; (?Aن ا��?8 !+8 ا��

<��� ا�=

ا�B�=�ر ا���=Eء !� ا��ت ا�CT ��� زر (5�A0" Ok " <t��! : �Nرة رAD 8?�Index ص �" ، و�E ;7 رةAا�� ) هRا ا��A� �Nف (=� ا�=^ ا!" �=�

Toolbar1ا�ـ ا�ـ -) �=� �N ا1ن Toolbar1��� "��� �CTر ا� واL) �=Eوا �Properties

Toolbar1 � Properties

Page 24: احترف قواعد البيانات فى فيجوال بيسك 6

<��� �?; 'V� �5t ا����> ا�=

د �ImageList1 <� � �E �! ImageListل ا�0�,> ا� �0��! �TA! Aه � آ د !� ا�ـ -�Style " ! �=Eا <�D�E �E# b 4' :tbrFlat د ا�=�ب -�) Tab( Buttonsا�� 7; ا� V� �5t' ;?� ��� <�����> ا�=:

Page 25: احترف قواعد البيانات فى فيجوال بيسك 6

�7>ه � �Aف (?Aن Tر( ا�إ��ت ��=Aل ��A0 ) Toolbar ( " M+� " ا���(� ا� : ا'�/ ا�=��; زرار �?; ���� ا�

�7> �?; (=� '�5§> ا��A0ل �Insert Button¹ا�CT ��� زر -T . . �y !�ات آ� هInsert Button �TA! Aا�CT ��� ا�Lر -

�ن ا�Lر 7; ا�Index >آ� : �1¡?! V�B' � " !BNA" 7; ا��7AO" "��� وه �7> <" 1 "8 إ�� ر�N ـ0ـ�=اT رLا� � � �5t) ;?� ت����� ا�

Page 26: احترف قواعد البيانات فى فيجوال بيسك 6

<����ت ا�=���� اآ=\ ا�

��TA'آ+�أ ..

Index � 1 Caption � وج�E Key � ExitButt Image � 6 ToolTipTex � :!���� �Eوج !� ا�

����� � � � � � $ � � � � � � # � � � � � � � � � - � � � � � �

����� � & � � � � � � � � � � � $ ' � � . � � . � # � - � $ � � � � � � $ � � � � � $ � � . � � ! � � � � � � � - � � � � � �

����� � � � � � � � # $ % : � � 2 � 3 � 6 7 $ � � ( & � � � � � � � � ��� $ � � - ��� � � � � � � # � � � � � � 0 � 1 �� � � $ � � � � � * � �� 5 � � �� � � � � � � # � � � � � � � � & � � � � � � � $ � � �����

� � � �6 7� 7 $ � 3 � � � � � � � � � 2 � � $ � � � � - � � � � � - $ 7 � � 2 � ' � � � � � $ � � � � �

Page 27: احترف قواعد البيانات فى فيجوال بيسك 6

�ا�B=� مA0 � ت �ن�����5� ا�$�A�" آ� 7; ا�$�(0> ا���� <0�Rآ� ا�� ا��7AO" و���.. ة ��N; ا�'��

ا�:: B�=� زر ��� �CTت ا�����5�ء !� آ=��> ا�Ok <�� ��^�وج !� ا� �R7ة �?; 'V� �5t ا�� <��� :ا�=

2 � Index :!���� Caption � �� ا�

AboutButt � Key 5 � Image

:!���ت �� ا�!A�B! � ToolTipTex

3 � Index �ت ��B' � Caption

HelpButt � Key 4 � Image

:!�����ت ����B=ض ا��B' � ToolTipTex

4 � Index <���W ��O�Aا� � Caption

PrintButt � Key 3 � Image

��O�Aت ا������ <���W /��Aا� � ToolTipTex

5 � Index ��O�Aت ا������ 8) B' � Caption

EditButt � Key 2 � Image

��O�Aت ا������ 8) B' � ToolTipTex

6 � Index ��O�A7> ا��Tإ � Caption

AddButt � Key 1 � Image

��O�Aت ا������ <7�Tإ � ToolTipTex

3 � Index �ت ��B' � Caption

HelpButt � Key 4 � Image

:!�����ت ����B=ض ا��B' � ToolTipTex

4 � Index <���W ��O�Aا� � Caption

PrintButt � Key 3 � Image

��O�Aت ا������ <���W /��Aا� � ToolTipTex

Page 28: احترف قواعد البيانات فى فيجوال بيسك 6

ا�.. M ـ�5 � !� '��� ا���(� ا� �+�=ا�R5ا ا��?8 B=� مA0 � ا�داة8 (ن "StatusBar1" ��Lر ا� �5��� �CTا�) �5 ! �=Eوا �Properties

StatusBar1 � Properties

<��� �?; 'V� �5t ا����> ا�=

Page 29: احترف قواعد البيانات فى فيجوال بيسك 6

;�� :�Aف ���� 7; ��(� ا����> ا�=1- <�� ا��2- yNAا� 3- <��� ��'�Oا� �م -4N8 ا1رON �م " ا�� ا��=^ م -5t 8 ��� ا�Eي دRا� "

0> � د !� �Eل�� ا����> Style ا�ــ !� �Eل ا����> ا��) ا�� ... ا�yNA أو (=� '� <�� د !� �Eلا�ن ، � ��� ا���:

<��� آ� 7; ا����> ا�=

E~ !�ات �?; '���5O 7; ��(� ا����> 5 ا�E �!" Insert Panel " "��� �CTل ا�Lر �A?) ;?�<7ن !�5¾ �¹T "�7

إذن، و��ء أول 7; أ�yأ�B) V ; وهRا ���1 ر�N 7; ا�Index ا�ــ :�1¡B� <7�Tإ

" <����; " ا��=���N; آ� : ���� ا�

Style � sbrTime

Page 30: احترف قواعد البيانات فى فيجوال بيسك 6

: آ��=ــ��; " ��(� ا����> "ن (?Aن ا��?8 ا� 5�,; �ـ أ(4\

أ ا�.. �5 � !� '��� ا� Aذج ا��,��; ��?8 آ�!8 أ�=�bR5 ا�$�(0> �ن �=��� ا� �ذج � ....ى �Eا�

2 � Index sbrDate � Style

3 � Index sbrCaps � Style

4 � Index sbrNum � Style

5 � Index sbrText � Style

Minimum Width: 4000.25

Page 31: احترف قواعد البيانات فى فيجوال بيسك 6

<t��! : �C' �?)� <�D� �Picture ا�^� �� <�OAذج ا��,��; !� �Eل ا�^

�A�<7ف �A0م �. ن ا�T´ "' ,��ت '�=Aي ا�=�آ !� أن �Aذج #�E وهRا ا� Aذج 7���� ة ا���N �7><، و ��� !�=^ مT ا� ;�� : Aذج ا'�/ ا�=

��> ا�=���> �?; 'V� �5t ا��" Form " إ��"اE=� ا���ر :

Page 32: احترف قواعد البيانات فى فيجوال بيسك 6

Vد�8 آ� �CTدو6" ".. اL! ��=$CT " ذجA ا� ��� " Form " Aه � �?; (O=� ا� Aذج آ �TA!

- � ;��=���,� ا� Aذج آ�E ��� ل:

frmCheckUser � Name �مإ���ء t ا� �) ! � Caption

1-Fixed Single � BorderStyle Tohama � Regular � 8 � Font

Page 33: احترف قواعد البيانات فى فيجوال بيسك 6

�,��� ا�^�T B� . وع��ا� ¡O�� �N" Save "و¡Oإ���� ا� Aذج � " frmCheckUser "<�� : آ� 7; ا��

RightToLeft � True

Page 34: احترف قواعد البيانات فى فيجوال بيسك 6

��; ن TA� �N/ ا�ا�=�� :دوات ا�=���> ��� ا� Aذج آ

Number Tools Name �� � � � � #� � � 1 �� 0 � 1 � � �� � � � � �; � � � � 5 �

<��� :آ� 7; ا����> ا�=

8�D�O'آ+� أ.. 8B6ورد إA�����D> ا�E 8� Text2 & Text3 وي��':

Text2 � PasswordChar � * Text3 � PasswordChar � *

Page 35: احترف قواعد البيانات فى فيجوال بيسك 6

8B6إ <�D�E Caption �� ـ Command1 & Command2:

�M ا�=-W ـ �� ;�� 8�7 أM آ� 7; ا����> ا���� �� <0Aذج ��?6 8

¡Oوع إ���ا� .. Save �E# ذجA� ���� ;?�

5� ا� Aذج ا����M > اـ� O~ ا�$�( �T ..0�Aذج #�E أ :::� � OTأ ;=� �ماوهRا ا� Aذج !5ــ=" t ل إ�� ا�AE � .. C=� �N��=�� :�; �� ا�^��,� آ

- ¡Oإ� ��� �E �! Saveل ا���C ��� زر ا��frmLogin ¡O ا� Aذج � :دوات ا�=���> ��� ا� Aذج �T ا�أ -

Number Tools Name �� � � � � �� � � 1 �� 0 � 1 � � �� � � � � �; � � � � 5 �

<��� :آ� 7; ا����> ا�=

¡O�� Command1 � Caption

�E� Command1 � Captionوج

frmLogin � Name Caption � دAEل '�8�4

1-Fixed Single � BorderStyle Tohama � Regular � 8 � Font

RightToLeft � True

Page 36: احترف قواعد البيانات فى فيجوال بيسك 6

�8�D اآ+� O'.. 8B6إ�����D> ا�E A ـ��ورد Text2 :

8B6إ <�D�E Caption �� ـ Command1 & Command2:

�M ا�=-W �� ;�� 8�7 أM آ� 7; ا����> ا���� �� <0Aذج ��?6 8

¡Oوع إ���ا� .. Save �E# ذجA� ���� ;?�

5� ا� Aذج ا����M > اـ� O~ ا�$�( �T ..0�Aذج #�E أ :::� � OTأ ;=�

�ت !��AوهRا ا� Aذج !5ــ=" ا����� ��� 8) B=� c�� ..C=� �N� ;��=�� :�� ا�^��,� آ

��7> إدوات أ7; هR ا� Aذج ��=�ج إ�� T... ><7�T ا�أ /� ة ا') :^$Aات ا�=���> دوات 6

��Lر ا�� �CTا�(ا �)�� ��� �;�� :دوات ا��0

Text2 � PasswordChar � *

M7اA! � Command1 � Caption

�E � Command1 � Captionوج

frmSearchEditEmp � Name ��O�Aت ا������ 8) B'و c�� � Caption

1-Fixed Single � BorderStyle Tohama � Regular � 8 � Font

RightToLeft � True

Page 37: احترف قواعد البيانات فى فيجوال بيسك 6

��ـ ا�^�D> �ا����> �?; 'Components… " �5t " إ��"اE=� ا���ر ...Components �� c��ا�داةا � : ا�=; ا�5

V�Rا�داةوآ

<��� :آ� 7; ا����> ا�=

Microsoft ADO Data Control 6.0 (OLEDB)

Microsoft DataGrid Control 6.0(OLEDB)

Page 38: احترف قواعد البيانات فى فيجوال بيسك 6

ا�دا'�� ا�CT ��� زر ) �' B�Apply ��� �CTا �¢ Closeا� �7 '� دا'�� ¢� �=4T�5إ= : 7; ��(� ا�دوات

- ¡Oإ� ��� Save زر ا���E �! ¡Oل ا��frmSearchEditEmp��� �C ا� Aذج � :دوات ا�=���> ��� ا� Aذج ا�T ا�-

��� :> آ� 7; ا����> ا�=

�� �ÇB ا�T دوات .. �,� ا�و�E ��� ل � <��� :دوات ا�=

Note Number Tools Name �� � � � � �� � � 1 �� 0 � 1 � � �� � � � � �� � � � 7 $ � � # $ % : � � � � � � � � - � � � � � � � � � � � � ��� � 1 � + 0 � �� � � � 7 $ � � # $ % : � � � � � � � � - � � � � � � � � � � � � ��, � � � �

Label9 � Name � lblCount Label9 � Caption � ( Empty ) Label9 � Alignment � 2-Center

Page 39: احترف قواعد البيانات فى فيجوال بيسك 6

:> ا�=���ا�^$Aات ا'�/ .. DataGrid ا�داةن � A0م ���� ا� ��� �CTر ا�ا�داة اL��� ) �5 ! �=Eوا �Edit ���� ;?� ة ا� � <��� : ا�=

) �Nا�ب - ا��1 - ا�� - �,�> - ا�4Bا�(

DataGrid � Edit

��� "��� ذ�V ا�CT !�ة ¢B� �¢DataGridر ا�L��� ) �5 ! �=Eوا �Append ���' ;?� ة أ�

DataGrid � Append

Page 40: احترف قواعد البيانات فى فيجوال بيسك 6

~E <��B7> !�ات �?; (=� " 5 "آ�ر ا��Tإ ~E أ <��� ة آ� 7; ا����> ا�=�:

�� ��Cـن � د ا� Aذج �?; (ا�) ا�CT ��� و�Eى أ6/ !�ة ¢� ارDataGrid ا�داة ا�=���Lر ا�DataGrid ا�داة� ) �5 ! �=Eوا �Properties

DataGrid � Properties

Page 41: احترف قواعد البيانات فى فيجوال بيسك 6

�5t' ;?� V� <��� :ا����> ا�=

<¢�¢ <��� 7; هbR ا�� ) � 6A)ء وه�أ���: أ !� ا��Column �N ا�ـ -1�) "7AO�8 آB)د وABا� �Nا رR0 وه 2- Captionا اRض وه�B7; ا� "T�� �=) b ��1 ا�Rي '�(3- DataFieldت����� ة ا���N ;7 يRد ا�ABا�� ا� <�� وهRا ($�\ ! � آ=

Page 42: احترف قواعد البيانات فى فيجوال بيسك 6

> ;���7>ا'�/ ا�=T ت����� : ا�

د ا�ـ �Column �Nر �5 ! �=E1 وا<����ت ا�=���� : وT/ ا�

ا<B�=� ��� �CTت ا����� : �?; (?Aن �?8 ا� Aذج �R5ا ا��?Ok " 8 "زر 5�ء !� آ=��> ا�

Column � 0 Caption � ��Aا� �Nر DataField � EmpNo

Column � 1 Caption � ��1ا DataField � FirstName

Column � 2 Caption � ا1ب ا�� DataField � FatherName

Column � 3 Caption � ا�� ا�4DataField � GrandName

Page 43: احترف قواعد البيانات فى فيجوال بيسك 6

¡Oوع إ���ا� ..Save �E# ذجA� ���� ;?�

::: �E# ذجA� �Tإ .. M��5� ا� Aذج ا��� � OTا�$�(0> ا��=; أ ~O �

��O�Aت ا���� (ــ8 ��� ��B=ــ=" ا�ذج !5A ا ا�Rوه" )�c���E �! ;' " .. �Nل �Aذج ا�,���; �=��C ا�^�=�� � آ

- ¡Oإ� ��� �E �! Saveل ا���C ��� زر ا��frmEditEmp ¡O ا� Aذج � :دوات ا�=���> ��� ا� Aذج �T ا�أ -

<��� :آ� 7; ا����> ا�=

Number Tools Name �� � � � � �� � � 1 �� 0 � 1 � � �� � � � � �; � � � � 5 �

frmEditEmp � Name ��Aت ا������ 8) B' � Caption

1-Fixed Single � BorderStyle Tohama � Regular � 8 � Font

RightToLeft � True

Page 44: احترف قواعد البيانات فى فيجوال بيسك 6

8B6إ <�D�E Caption�� ـ Command1 & Command 2 :

�M ا�=-W M��0�� 8�7 أ> �� Aذج ��?8 6��; ـ آ� 7; ا����> ا��

¡Oوع إ���ا� ..Save �E# ذجA� ���� ;?�

::: �E# ذجA� �Tا�$�(0.. إ ~O �اـ < M��5� ا� Aذج ا��� � OTأ ;=�

��; �� ا�^��,� آ�� C=� �N" ا��=^ !��إ���ء "وهRا ا� Aذج !5ــ=" =�:

- ¡Oإ� ��� �E �! Saveل ا���C ��� زر ا��frmCreateUsers ¡O ا� Aذج �

8) B'� Command1 � Caption

�E� Command2 � Captionوج

FrmCreateUser � Name ��! Caption � إ���ء ا��=^

1-Fixed Single � BorderStyle Tohama � Regular � 8 � Font

RightToLeft � True

Page 45: احترف قواعد البيانات فى فيجوال بيسك 6

:دوات ا�=���> ��� ا� Aذج �T ا�أ -

<��� :آ� 7; ا����> ا�=

8B6إ <�D�E Caption�� ـ Command1 & Command2:

8B6إ <�D�E PasswordChar�� ـ Text2 & Text3:

Note Number Tools Name

�� � � � �

#� � � 1

�� 0 � 1 � �

�� � � � �

�; � � � � 5 � � $ � � � � � ��� � $ � � ���� � � �

�; � � � �

¡O�� Command1 � Caption

�E� Command1 � Captionوج

Text2 � PasswordChar � *

Text3 � PasswordChar � *

Page 46: احترف قواعد البيانات فى فيجوال بيسك 6

<�D�E 8B6إCaption�� ـ Check1 & Check4 & Check3 & Check2:

8B6إ <�D�ECaption ـ�� Frame:

؟8EFrame ا�ـ 7; دا�CTCheck ا�ـ �M ا�= -W �� ;�� 8�7 أM آ� 7; ا����> ا���� �� <0Aذج ��?6 8

¡Oوع إ���ا� ..Save �E# ذجA� ���� ;?�

::: �E# ذجA� �Tا�$�(0.. إ ~O �اـ < M��5� ا� Aذج ا��� � OTأ ;=�

(8 ا��=^ !�� "وهRا ا� Aذج !5ــ=" B' " ;��=�� ��C=� �N ا�^��,� آ

- ¡Oإ� ��� �E �! Saveل ا���C ��� زر �frmEditUsers ¡O ا� Aذج � :دوات ا�=���> ��� ا� Aذج �T ا�أ -

~O�ذج "ات ودأA�ء� Command3 و���� Text3��Rف �07 " .. ا��=^ !��إ�� Command6 و Command5 و Command4 و

:دوات آ�5� ه; وا�

<��� :آ� 7; ا����> ا�=

Note Number Tools Name �� � � � � �� � � 1 �� 0 � 1 � � �� � � � � �; � � � � 5 � � $ � � � � � ��� � $ � � ���� � � � �; � � � �

<7�Tإ� Check1 � Caption

8) B'� Check2 � Caption

<���W� Check3 � Caption

��! Check4 � Caption �إ���ء !�=^

Frame � Caption �ا������ت

FrmEditUser � Name �! (8 ا��=^B'� � Caption

1-Fixed Single � BorderStyle Tohama � Regular � 8 � Font

RightToLeft � True

Page 47: احترف قواعد البيانات فى فيجوال بيسك 6

<�D�E 8B6إCaption �� ـ Command1 & 2 & 3 & 4 & 5 & 6:

��� إ��� PasswordChar �� ـ Text2:

8) B'� Command1 � Caption

�E� Command2 � Captionوج

( Last Record ) � Command3 � Caption

( Next Record ) � Command4 � Caption

( Prevuse Record ) � Command5 � Caption

* � Text2 � PasswordChar

( First Record ) � Command5 � Caption

Page 48: احترف قواعد البيانات فى فيجوال بيسك 6

8B6إ <�D�ECaption�� ـ Check1 & 2 & 3 & 4:

8B6إ <�D�E Caption ـ�� Frame:

؟Frame 7; دا8E ا�ـ �CTCheck ا�ـ �M ا�= -W �� ;�� 8�7 أM آ� 7; ا����> ا���� �� <0Aذج ��?6 8

¡Oوع إ���ا� .. Save �E# ذجA� ���� ;?�

::: �E# ذجA� �Tا�$�(0� .. إ ~Oاـ < M��5� ا� Aذج ا��� � OTأ ;=�

��; � �C=� �N" ا��� ���=^ م>'���C آ� "وهRا ا� Aذج !5ــ=" =�� :� ا�^��,� آ

- ¡Oإ� ��� �E �! Saveل ا���C ��� زر �frmChangePass¡O ا� Aذج � :دوات ا�=���> ��� ا� Aذج �T ا�أ -

<��� :آ� 7; ا����> ا�=

Number Tools Name �� � � � � �� � � 1 �� 0 � 1 � � �� � � � � �; � � � � 5 �

<7�Tإ� Check1 � Caption

8) B' � Check2 � Caption

<���W� Check3 � Caption

��! Check4 � Caption �إ���ء !�=^

Frame � Caption �ا������ت

FrmChangePass � Name <��� ���C' � Caption آ�> ا��� ا��

1-Fixed Single � BorderStyle Tohama � Regular � 8 � Font

RightToLeft � True

Page 49: احترف قواعد البيانات فى فيجوال بيسك 6

8B6إ <�D�E BackColor ـ�� Text1:

8B6إ <�D�E BorderStyle �� ـ Text1:

<��� آ� 7; ا����> ا�=

� & H8000000F & Text1 � BackGround

� 0-None Text1 � BorderStyle

Page 50: احترف قواعد البيانات فى فيجوال بيسك 6

<�D�E 8B6إAlignment �� ـ Text1 :

<�D�E 8B6إPasswordChar ـ�� Text2 & Text3 & Text 4 :

8B6إ <�D�E Caption �� ـ Command 1 :

<�D�E 8B6إCaption�� ـ Command2 :

¡Oوع إ���ا� .. Save �E# ذجA� ���� ;?�

::: �E# ذجA� �Tا�$�(0.. إ ~O �اـ < M��5� ا� Aذج ا��� � OTأ ;=�

��> <ا�� "وهRا ا� Aذج !5ــ=" ��0(��5�ر�c وا�$' "C=� �N � ;��=�� :�� ا�^��,� آ

- ¡Oإ� ��� �E �! Saveل ا���C ��� زر ا��frmPrintReport ¡O ا� Aذج � :دوات ا�=���> ��� ا� Aذج �T ا�أ -

<��� :آ� 7; ا����> ا�=

Note Number Tools Name �� � � � � �� � � 1 �� 0 � 1 � � �� � � � � �; � � � � 5 � � � � � � � ��� � � � 7 $ � � # $ % : � � � � � � � � - � � � � � ��� � 1 � + 0 � �� � � � 7 $ � � # $ % : � � � � � � � � - � � � � � � � � � � � � ��, � � � �

� 2-Center Text1 � Alignment

* � Text2 � PasswordChar

* � Text3 � PasswordChar

* � Text4 � PasswordChar

¡O�� Command1 � Caption

�E� Command2 � Captionوج

FrmPrintReport � Name ��O�A! <���W / ��A! � Caption

1-Fixed Single � BorderStyle Tohama � Regular � 8 � Font

RightToLeft � True

Page 51: احترف قواعد البيانات فى فيجوال بيسك 6

<t��! :

أن��()�N ��ت ا�=���> ��Bض 7; ا� ا'���� ) ا�O��A> - ا��1 - ا���N ( ..�07 ا��,�.. و�Rا �E ����$�(0> ا�=���> �Aف �A0م ��� )�N � : ا� ا'

� ��� �CTا�داةا DataGridر ا�L��� ) � � �5 ! �=EواEdit ���� ;?� ة أ �) �Nا��1 - ا�� - <O��Aةأ ¢�¢> )ا� � �07

DataGrid � Edit

<��� : آ� 7; ا����> ا�=

Page 52: احترف قواعد البيانات فى فيجوال بيسك 6

�� ) 5� ا�داة��� �Eى أ ¢� ا�CT !�ة ، وا�CT ��� ا� Aذج ا�داةا�C; ا�=� ! �=Eوا Properties ، ���� 8) B=وا� c���� <0�� ا��)�N �� 7; ا� ا' �� ��ت ا�� ةآ���� ة ا���0�

.وا�=��> و�?� هbR ا��ة �Aف '^=�� ا�$�(0> �ت �bR5 ا�$�(0> أ ����� :�T ا�

¡��' A�;Eأ � ة ا.. ا�0�رئ ه ��N ;7 دA6A! ~�� دA� ا�� � ��ت آ=����هRا ا�BAد �Aف !! � "�� آ=��> ا�?Aد �Aف ��Bف !�ه� AAد ا��Bض ، ) ��ض A?)Views ) �07ن �+ �

�yNS ا

�R5ا ا��?8 )�N � ا'�� ;,� :�?; (?Aن ا��?8 ا� 5

Column � 0 Caption � ��Aا� �Nر DataField � EmpNo

Column � 1 Caption � ا�� ��Aا� DataField � FullNames

Column � 2 Caption � <O��Aا� DataField � Job

Page 53: احترف قواعد البيانات فى فيجوال بيسك 6

�� �ÇB ا�T دوات .. �,� ا���E ��� ل <��� :دوات ا�=

8B6إ <�D�E Caption �� ـ Command1:

¡Oوع إ���ا� .. Save �E# ذجA� ���� ;?�

�7>ن �Aف �A0م � ا�:::T´ �)�0' " DataReport " <���$��.

�ا'�/ ا�=��; <دراج '�0(�

Label9 � Name � lblCount Label9 � Caption � ( Empty ) Label9 � Alignment � 2-Center

<���W� Command1 � Caption

Page 54: احترف قواعد البيانات فى فيجوال بيسك 6

��� �CTاDataReport �)�0=ا� V� �5t) ;?� .. <0)�W �5O� �6 8?�� Lو(4\ ا�=�آ� !ا�=�0(�

�م �?N 8�� !5أإ�� � ة هRا �?8 ا�=�0(� و( 0�� ا�=�0(� �N< �B! <5) يRوا� +) � ;7 �� هRا ـ �07 ���N ، وه� :

� Page Header ( Section2 )

�E Detail ( Section1 ) ا�Rي �Aف ��=^ !" �وا �

Page 55: احترف قواعد البيانات فى فيجوال بيسك 6

<!A�B! : و��=�0(� أد ��] <D�E ذج أات� ة أدواتا��t 7; ا����ر �Aف '4 .. دوات ا� ) 6

.. ن � B8 ��� '��� ا�=�0(� �ا

��Lر ا� �� �CTا�=�0(� 7; (ا ��� �أي �5 ! �=Eن وا�?! ;�)�!:

�ذا'�Bف أ� � �Cاأ�Rر ه��ت ا�A6Aدة 7; ا�A4اب ؟ ا�^� ,��?; ��=$�/ ا�=�?� 7; ��آ> ا�?

ف '�ى آ�,� و�Aأي�T أ و��!> ا��� �N �´ر6�ع���b 8BO ا�^��D> هR>�=�4� .. ا�=�0(��> �ÇB ا��;ء BD "�7 <ا���آ ..!

Page 56: احترف قواعد البيانات فى فيجوال بيسك 6

;��=���,� ا�=�0(� آ�E ��Tا:

¡Oا�=�0(� إ� ¡O� <�� " O � " "DREmp~ ا�" إ�tO ا���وع �?; 'V� �5t ر� <��� :آ� 7; ا����> ا�=

DataReport � Name � DREmp ��O�A�0(� �� ا�' / ��Aا�� Caption � DataReport

DataReport � RightToLeft � True DataReport � WindowState � 2-VbMaximized

Page 57: احترف قواعد البيانات فى فيجوال بيسك 6

� 8B� فA�1أو��7; ا�0 Page Header ( Section2 )

�TاLabel1

��; و� ل �=���,�> آ�E ��:

: و��?� �TLabel ¢�¢> أ¢�

�� �R5ا ا��?8 ���

��O�Aون ا�S� � Label1 � Caption Time New Roman � Bold � 22 � Label1 � Font

Label1 �Alignment � 2-rptJustifyCenter

��Aا� �Nر � Label2 � Caption Time New Roman � Bold � 14 � Label2 � Font

Label2 �Alignment � 2-rptJustifyCenter

Label3 � Caption � ا��1Time New Roman � Bold � 14 � Label3 � Font

Label3 �Alignment � 2-rptJustifyCenter

<O��Aا� � Label4 � Caption Time New Roman � Bold � 14 � Label4 � Font

Label4 �Alignment � 2-rptJustifyCenter

Page 58: احترف قواعد البيانات فى فيجوال بيسك 6

Detail ( Section1 )ن �Aف �B8 ��� ا�0�� ا� �

" RptTextBox " ا�داة�Aف ��=^ م

<t��! : " Text1 "ا�" 7; ا�^��,� ��� ا�=A?) �)�0ن RptTextBoxداة أدراج إ�

�ت Detail 7; ا�=�0(� 7; ا�0�� Textن �Aف ���� آ�,� ا�����5�7� ��ض ا� �=) ;?� ��; �TText ¢�ث أ �=���� ا�^��,� آTوا :

�0��! � �N � ��~ !A6Aد 7; ا�4 ول و�Rا هRا ا��A?�� 80ن �+��> FullNames ا�� ا��80 أنآ ��Viewض

�)�0=�� ;,� : وهRا ا��?8 ا� 5

Text1 � DataField � EmpNo

Text2 � DataField � FullNames

Text3 � DataField � Job

Page 59: احترف قواعد البيانات فى فيجوال بيسك 6

<t��! : /�$=�'رة أAD /TA� �)�0=�� M�� ' 8B' وأون /Tلأ� !��/ وA$Eط ( �?�وآV�R ا�=0�ر(� ���A4�Oال ������ V�A?) ;?� .. yن �?8 ا�= ! �)�0�M و!�'\ (... و[��ه

<)AN �?ا ، و� �!: ا�" 6��� 6A)" رتA�0�ر(� ا� ����!: �BAN 8ىأ وهA " ا�?�(�=�ل ر(= .Rام ا�=0وه 8�7 و�?� ا�. �(� 7; ا�A4�Oال ����V ا 1 ( / ا�=^

¡Oإ� ¡Oل زر ا���E �! وع��ا� Save¹� <��� �$�ق ��^$Aة ا�=

5� ا� Aذج ا����M > اـ� O~ ا�$�( �T ..0�Aذج #�E أ :::� � OTأ ;=�

�!: �� "وهRا ا� Aذج !5ــ=" ����'V – ا�!A�B! "C=� �N ����; �� ا�^��,� آ=�:

- ¡Oإ� ��� �E �! ¡O� Saveل ا���C ��� زر frmAboutMe ا� Aذج �

5� دوات !^�� 7; وT/ ا�أ�7y; هRا ا� Aذج ��ت أوه � (4\ ... ���"ا�=; '�[!A�B! /�' ن :!�����ت ا<.. !^=��ة ة��R (�� ا�!A�B! V�Rوآ V� ل��' .. �B! رةADو< (...

:��> ��� ا� Aذج دوات ا�=��T ا�أ -

<��� :آ� 7; ا����> ا�=

Number Tools Name �� � � � � �� 0 5 � �� 0 � 1 � � �� � � � � �; � � � � 5 �

FrmAboutMe � Name �� :!���� Caption � ا�

1-Fixed Single � BorderStyle Tohama � Regular � 8 � Font

RightToLeft � True

Page 60: احترف قواعد البيانات فى فيجوال بيسك 6

<����'V ا� !A�B! /Tو V��� \4) .. ز� و( ' V��� \4��M ا� Aذج ��?8 !=�أ� ��'; آ� 7; ا����> ا�=���> ه !A�B! /Tف اA�:

�L�� <�Dر ��C=� �Nـ� ا�^Command1 ;��=��� :

M7اA! � Command1 � Caption

Page 61: احترف قواعد البيانات فى فيجوال بيسك 6

�,��E ��TاLabel3ي ��� ا�A=�) يRا� ) ;��=�� :�8 آ

�7 � (V أن(4\ A=' )ة أ �ت �6�A0، :!����5� 7; ا�BTA� .ج إ�� ا�� ��� �?A0 8�>أ(ن ��=" � ��ر ا�" (! � ;?� � د��8 ��� (س ��� ا<و) � � �5t' 8�"�ط أ���; ه �ك ار'B�' .. 6�هL و� (V إذا " y أ( آ<�A0;�� اآ8 ا�=) 8?� ��� "

Label3 � <�D�E MouseIcon �=) ;?� �5��� �CTـ ا �OV� �=O� ارA� /��! )أ<�A0 .. د ا��)<�A0 � ا��اد ا�=^ ا!5

Label3 � MouseIcon

...��� 7; ا� Save ا��A0 ¡O�>أ( ا���وع !� �Eل إ�O¡ن ا�

99-Custom � Label3 � MousePointer

Page 62: احترف قواعد البيانات فى فيجوال بيسك 6

ن �8B4 ا� Aذج ا��,��; هA ا�Rي (B8 أن (4\ ا� ! .. كوو!��و�5 � !� !5> ا�=��� �=إ ::: ...> '�8�C ا���وع (ا7; �

� <�D� :ا'�/ ا�=��; �?; '8BO هbR ا�^

<,�5� Project !� ا�0 ! �=Eأ EmpInfromation Properties

<��� � � �5t' فA� EmpInfromation Project Properties

<��� :آ� 7; ا����> ا�=

Project � EmpInformation Properties

Page 63: احترف قواعد البيانات فى فيجوال بيسك 6

�م (�^=�ر ا�=�A(\ : أو1 �� General ( � ���� : �E �!Startup Objectل ا�ـ : ¢

5� ا�� ا� Aذج ! �=Eا�C�' أ � � "frmCheckUser "وهA ا���وع 8ا�Rي '�( b أن ( .. �?; (=� �O¡ ا�=��Cات Ok¢� ا�CT ��� زر

<t��! : � وث أي '��Cـ� .. ا���وع إ�O¡ .. دا,� 5�ء�=8�7 � ا<أ وهRا أي � .

¡Oل زرإ��E �! ات��C=ا� ¡O� Save

�8 آ=��> ا�?Aد (4\ ، ن 6�ء دور آ=��> ا�?ـــAد ا�Nن أو) ��^� – ��B� ( � V���� الA4�Oنا��

N /! ل� ه �ك ا'����ت ة�����ت �(� !?=�> ا<'Bو�Rا �$�\ ! " .. ا������ل �A0ا� ا��'

.. A�ADOف ��=^ م '0 �> ا�ـ

:ا�^$Aات ا�=���> ا'�/ .. هbR ا�?=�> � A0م �=�B(� إذن

� <,�5�Porject!� ا�0 ! �=Eا References

<��� :آ� 7; ا����> ا�=

Startup Object � frmCheckUser � Ok

Project � References

Page 64: احترف قواعد البيانات فى فيجوال بيسك 6

<���5� ، �?; 'V� �5t ا����> ا�= ! �=EواMicrosoft ActiveX Data Objects 2.7 . ار 1 (�5 ر�N ا<D ..) �?ـو�Oق 87 ـ�ـA7 �7 .

د ا�?=�> ¢� ا�CT ��� زر �Ok ةR7� ��^�وج !� هbR ا�

¡Oزر إ� ��� �C��� Save ا���وع �

Page 65: احترف قواعد البيانات فى فيجوال بيسك 6

.. � B8 هRا ا��;ء إذن .. ا� �ذج ���?Aد ا� ��\1 آ=��> ا�=��Cات و��Aإن �� (��0 ا�:::

8�N � : � =�Bف ��� �ÇB ا��$���ت ءا�

� Data Base �ت �� ة ����N ; B'5و� ��=^)�����وف � "DB "

� Record أو RecordSet

����وف � "� ��=^) 84� ; B)" RS "

y�ا<أ bR5� ومL�! ��] \4) �?رات و���=E��4أ!�� �?; (=�Bف ��� ( ن 'Aاآ\ ��� ا� �! ��4!�� !!) ��tةأول��V آ8 ا�

�7>ن �Aف �A0م �ا�T´ ات��C=د وا�A?ا� <����^Lن ، !^Lن ��CD �?; 1 �?�ر آ=� ; B�و

Aو(8 "ه Module " ا� ة ,�7Module ;ه : <��ف ا�^Lن و�B�ا �07 7; هR، 7; آ8 ا� �ذج ا�آAاد�?; 1 �?�ر آ=

�ت ا�=��Cات �7" ��?8 ��م �?; (�=$�/ ا� AEل ��� ا� Aذج وا�=�Bف ����� ..�� ا� �A0 � <7م �اإذT´ 8)و ! " Module " <7�T>ل ، وA)دA! /� :> ا�=���ا�^$Aات ا'

� هbR ا����> ا�=���> Module إ��"اE=� ا���ر � �5t' ;?� :

Page 66: احترف قواعد البيانات فى فيجوال بيسك 6

��� �CTو(8ا : ج �?; 'V� �=O هbR ا����> L! �CTدوا�

�ت '�آAاد و'�B(� ا<ه � �Aف �A0م �?=��> ا����� ة ا����Aف �A0م �=��C=! �)�B ، و�ل �0 "' ,��ت �07�<�(A0م 7���� ة ا����م و '��ل �0� ��C=! نA?��Public

�ت A?��DBن ا�" �� ة ����N ; B) :

Page 67: احترف قواعد البيانات فى فيجوال بيسك 6

¡�1 : <���,> ��5t' <$0" . "7; ا����> ا����0> !�4د آ=Nا� ;,� =?�8 ا�=�0 ;��=�� : و�Aف (?Aن ا�?Aد آ

)�� ��C=! � 7�� ; B عA� �! ت إم����� ة هRا ا�=��C أ�".. '��ل �A0ا� ا�,��ل !/ إ ( �� و7�'�ت �07 ���� ة ا���N ،�B=� مA0) V�Rرا(�� (وآ �ـ��� (�;ء وهRا ا�'��ل إ �?8 ا�

�لا<�' ConnectionString

� �¹ ���ت ة'��ل �0�� JET.OLEDBآ�~ ��=^ م أ �� إو�?8 ���ت ة'��ل �0�� �?�Aل ����7 أو ) Oracle ( راآ8أو :�Eى !+8أ��

) SQL Server ( �� ل !^=�� إ��'.

�ل !� ��Aص ا< ا�?+��ا�?+��!?��V ز(�رة هRا ا�NA/ ا�Rي (�� ´��': com.connectionstrings.www://http

� و�� � 7; ا���وع ـ+ـ � �6/ إ�� � (إذن .. ـ�Bف !=A��Cف �,�7 �E# �"' ;�� : ا�=

�7> - ا�4 اول 7=� (Tف - �84 إR� - 8) B' - م�B=ا� - c) �' - ...( ��C=ن ا�� ا�A?) فA�RS

" � � �N �� أ�وهRا ا�=��C آ0���ت !� ��Aف ( "ــ������,� ANا� ا��E /�6 RE: �7> و �Rف (Tم و إ�B=و ا� c) ) ��إ ... '�

Public DB As New ADODB.Connection

Public RS As New ADODB.Recordset

Page 68: احترف قواعد البيانات فى فيجوال بيسك 6

��TA' آ+�أ .. As NewRه b; B' � !� ��=M أ� ) 6 ADODB.Recordset ا�ـ !?=�> وا� ه� و[��ا�4 اولRE ا�^��,� ����4ت و��C=! M� �=7 وا� و(ـ��= .. !�5 6 اوهRا ا��;ء

�ت ا�=; (?� ��B8 ا�ـ (ن أ!� ا�7; 6 �5�BSQL . ـ�=وا 8 ��� ـ�8 ا�+0ـ (00�ق !=��C وا� ..وه�W bR(0> ���> !�4�" و!=�زة ، ا�Rاآ�ة

�ص ����4ت و�Aف (?Aن ا�" È�Bن �أ ��( إذن -E �E# ��C=! V�Rف آ Rss اRوه

,�7 ��C=/ ) ن�� '=�� ا� ('" ا� ن ا��ح ا�$�(0> أ و�?� 1 (:

8) B=ذج ا�A� ;7 نA?) فA� ��C=ا ا�R" .. �07ه�ف �A�A?) م�B=8 ا�) B=ذج ا�A� ;7 ن��8 ا�+�ل ... '; !� �Aذج ا���c �(وهRا ا<�=�Bم � ���:

� ��ت ا���A �0>ه � ا���S ر6/ � ���� 8) B' ذجA� ;7 � 1 (=?�ر أن وا� ة �07 و(4\ ��� ��Aا� �Nا، رR" ... و�ي ا�Rا� ��C=ن ا�A?) فA� 8) B=ذج ا�A� ;7" RS " . �! � )�)C' م ة �� ا���Nأو��1 ا��A� �Nف (��c �ا��=^��4 bإذا 111 !+� 7; ا�0) �� ¡O�) فA� ..

� ر���> 'A0ل �إذاو � �5t' فA� b .. ا��A6A! �Nد �ن و6 � (A0م � ا��?�> ! �" �'?Aن �N> ا��B! ��] ��Sو7>� ه � أ� (4 و��<�=�Bم'?� � �

� (=�O¡ ��0> ا<�=�Bم �0A�=� ¡O<ف (� RS ا�ـ ا<�=�Bم! '?� ا��?�> ه � ا<�=�Bم و� 8) B=> ا���ف ��� و . 7; ��B) 1 ��S8 ا�) B=> ا���8 ���"أي7; �) B=�� ! �A0) 84م �

و Rssن (?Aن ه �ك !=�E# ��C ا�" هA أ �8 هbR ا��?�>و�Rا ,��A0)� ��� Vم ���=�أ�" '"7

�Nد آإذاا��A6A! ن���; È�B � إذن.. م 1 أ=�� :ف هRا ا�=��C آ

�1تإ��آ> ن ا�¾�Aف � ��'! ؟ '��1ت��آ> ا<!�ه;

�ت و'�B(� هA آAد (A0م ����� ة ا���N �=O�� >لا��' ConnectinString - �� ؟ �� �ه� �R5ا ا��1ذا !أن (�=0; ا<'��ل ! 5� آ 8�Aذج (�=$�/ �"� -

PoolConnection و�Aف (?Aن ا�" ) L6ء ( A� ¾Subف � �ن ا� إذن

�Eن 7; داA?) فAد ا<"و�Aت آ����� ة ا����ل �0�') MS Access ( ;��=�� :آ

Select * from emp where empno = ' 20 '

Public Rss As New ADODB.Recordset

Sub PoolConnection() If DB.State = adStateOpen Then DB.Close DB.Provider = "Microsoft.JET.OLEDB.4.0"; DB.Open App.Path & "\Data.mdb"

End Sub

Page 69: احترف قواعد البيانات فى فيجوال بيسك 6

..��ح ��?Aد

L4ا ا�Rءه ,��ن '" �07 أ�"7?! "� 8B4)د وA?ا� �t) ;?� عA6=$�/ ا����ءإ��"L4آ� ا�� ا�R� �07 Aأ1 وه PoolConnection ; B) .. \�$� ءL4ا ا�Rد 7; هA6Aد ا�A?8 ا��C�' )�� �! �

Subا�� ا�ـ End Sub

..هRا ا�?Aد ة y آ��إذا If �=�آ !� 6�> أو1�� adStateOpen ؟ !State = "�A=O ا����> DB ا�0

� آإذاy� "�A=O! ة �� .. ا�8 ا�=��; Then DB.Close ا�0

ة �� DB.Closeا[�M ا�0 �� هbR ا�B��> ؟ ذا

ة �� ة ¢� 7=�5�إO) 8�و. �?; A?' 1ن ه �ك !��آ8 7; ا�0�� [�ق ا�0) 6 �! 8B� أي ..'��Cات

� � ة ف �Aع �� ا<B�ه ���ل !/ ا�0�'DB.Provider ا<إذا)�� ��ل !/ N آ �' ���ت ة���ل هRا آ�~ (4\ ا�=^ ام �� ا<أ ���':

Microsoft.JET.OLEDB.4.0 �ل !/ ا<'�=$�/ !� L"��Eود �?; هRا هA ا��'N ���ت ة���� : ا�

��ت ا�=; ا�5���� ة ا���N �=7اData

ة 7; ���ر ا�0�!;���!: ا������ر ا��! ~O� ة ���ر ا�0�! ��C' ر 0' ; B) ،�+! ة 7; ا��0ص ا�ـ �� ا�0)�' C : ر� '�$�/ وT/ ا��

� ��آ> ا'��1ت و�bR5 ا�$�(0 �� <..

'" (�6 8String 8ن �Aف �A0م �=�Bف != �! ��C�Aع ا�,�7 SQL ) م�B=�>ا ( �!

�E# ذجA� ذج إ��A�:

'" آ^Lن �?; ,�7¡O=�) <�4� م�B=�>=$�/ و ،ا��ل�?; �C=ا� �E# ذجA� ;7 <�4ا� .

Sub PoolConnection()

If DB.State = adStateOpen Then DB.Close

DB.Provider = "Microsoft.JET.OLEDB.4.0";

DB.Open App.Path & "\Data.mdb"

App.Path & "\Data.mdb"

Public SQLs As String

Page 70: احترف قواعد البيانات فى فيجوال بيسك 6

� StringوآA� V�Rف �A0م � �! �)��C=! �)�B�Aع 5' ,� آ�> ا��ورو�O¡ ا�� ا��=^ م 75� 7; ا������ت B! 8!�B=� ;?� "�E ا�

��� ا��=^ م ¡ـOـ=ـ�(�?; ��:

:ا��ور �?�> ¡ـOـ=ـ(��?; �

ا� و(O � 8~ ا��1 إ�O¡، ن O�� �N¡ ا���وع �?; 'V� �5t هbR ا����> ��O¡ ا� و(8 ا�Module1.

Public UserNames As String

Public UserPassword As String

Page 71: احترف قواعد البيانات فى فيجوال بيسك 6

��ا� و(A?) 8ن �?A 8ف� .. إذن� ;,���; ا� 5=�� :آAاد آ

(B ; ؟!�ذا .. ��Eا���� �� ����Aن 7; ا� : �1¡�8 ا� � هbR ا�M��B' ، "!�BهRا �� N نA?) �4د!) ' ( ���هB=)و � . '6 M��B�A� <ف (=4�ه5

Page 72: احترف قواعد البيانات فى فيجوال بيسك 6

��=ان ا� �5 <���!: ا�آAاد ه�أ !� آ=��� 7; ا�

<t��! : 8اد�� (=� ��ح آA5 �ا�آ�ف A� �� 7; [ا�!�[�\ ا� �ذج وأ 7; '=?�ر)<�A5�ا� <

���?Aد �ن أ(4\ ��� � � :��A هbR ا� �ذج آ�5

' To Connect Data base Public DB As New ADODB.Connection

Public RS As New ADODB.Recordset

Public Rss As New ADODB.Recordset

Public SQLs As String

Public UserNames As String Public UserPassword As String

Sub PoolConnection()

If DB.State = adStateOpen Then DB.Close DB.Provider = "Microsoft.JET.OLEDB.4.0;" DB.Open App.Path & "\Data.mdb"

End Sub

Page 73: احترف قواعد البيانات فى فيجوال بيسك 6

��8 ا�NءA�� ;7 ةA$E � � y�0� ادAآ��5� وه; وا� ة ا� �ذج ��B� :ذج أ��ءأن �8B4 ا� � !ا� Aذج ا��,��;

:ا�$�(0> ه;

د ا� Aذج -�) �B6ا� ��إ " ( - <�D� MDIChild � True[�� ا�^

�07 <��� " اذآ� ا��,A� �5ف "� ل ��� ا� �ذج ا�=

�� ا��?8 ا� 5�,; �R5ا ا��?8 �) ;?�:

frmAboutMe frmAddEmp frmCreateUsers frmEditEmp frmEditUsers frmPrintReport frmSearchEditEmp

Page 74: احترف قواعد البيانات فى فيجوال بيسك 6

� � " frmAddEmp "><7Aذج ا�= اءآAاد ن �?=��> ا��Aف �A0م ا�T��O�Aا�

�?; (?Aن هA ا� �� 7; ��§> ا�=���frmAddEmpا�CT ��� ا� Aذج -

�R7ة !��ر ا�'ـOـ=� اL! �CT �CTدوج ��� ا� Aذج �?; -� � :آAاد �

Page 75: احترف قواعد البيانات فى فيجوال بيسك 6

�!: �1¡ ،ه � �Aف (=� آ=��> ا�?Aد ���6 هRا ا�?Aدأ�" و��!4> ا�A) :

ا�� ثوهRا ، ا ا�L4ء ���; �� Aذج وه � (=� ' R�O 6�/ ا�48 ا�A6Aدة 7; هRهRا ا��5?8 ا� ا�=��8 7; ا�Rاآ�ة � ث (��

� A �� ة ��; أذج �=�� اث وه; آ�: ث ا���C ��� ا� Aذج ��. ث ا���C ا�Lدوج ��. .س�و� ث !�ور ا� �� ��'�Oا� �CT ث �. ث ا� Aذج ا� �� ��. � ��� ��Cذج ا�A ث ا� �.

. !� ا�1 اثوا�?+��

Private Sub Form_Load() End Sub

Page 76: احترف قواعد البيانات فى فيجوال بيسك 6

� هRا �� �� 4!�� وه�07 �ـ � ¢�1إ=^ م 7; ���:

. 7; ا� �ذج� Form_Loadا�ـ � . 7; !��/ ا� �� Text1_Changeو �

��?Aد " frmAddEmp " ا� Aذج ن �Aف �A0م ����Aا�

�Aف �8BO ؟ !�ذا

�1ت ا<> !� ��آ"�0ـ��= "'��ل إ ¾� � -�' " � " " Emp�O=� ا�4 ول ا�Rي ا�" -0��! b� ا�Rي ا����

أ 7; آ=��> ا�?Aد إذن� :�Aف (?Aن ا�?Aد !���� هRا ا�?Aد و ، �

��; ا�!� و�Aف (?Aن '��1ت ا<>��آ'��ل !� ا<��=A� ;0ف أو1 إذن=�� : آ

Private Sub Form_Load()

' ه � �Aف (ـ?=\ ا�?Aد End Sub

Page 77: احترف قواعد البيانات فى فيجوال بيسك 6

:�� ا����> R=�� �07آb هR' 8آ� ؟ هR" أ�����b ا�Rي آA�?�� ا��Aول "�1¡

�1تا< >��آ !� �Eل '��لا< ا�=0�ء �;ء �� �b هA أول إذن -�' . �07 ا�4 ول 7=�ا�^$Aة ا�=���> ه; -

��; ا�4 ول �O=� ا�?Aد ا�^�ص إذن=�� : هA آ

Private Sub Form_Load() PoolConnection

End Sub

Page 78: احترف قواعد البيانات فى فيجوال بيسك 6

�t�ا .. ���D دA?ن ا�A?) �! �) ÇB� V� �5t'د وA?�� ��Oا� VB! 8��O=) فA��ت ا��� ة وا�=�O�?� ��TA> ه�?8 ا�?Aد!A�Bا� (.

: " ا� 5�,; ا�?Aد �?�O� 8" 8ـو!� ¢� ���" ���=، Aد � ��?ـ �?8 آ=��=إذن

: 7; ا��Aرة ا�=���> ..ا��t إ�� ا�?Aد

Private Sub Form_Load() PoolConnection

SQLs = "Select * From Emp" If RS.State = adStateOpen Then Rs.Close RS.Open SQLs,DB,adOpenKeySet,adLockPessimistic

End Sub

Page 79: احترف قواعد البيانات فى فيجوال بيسك 6

��ح !��� ��?Aد

" إ�� ا�Rاآ�ة ا�=��8 � ث "> ا� Aذج (ا�

�� (� ا�?Aد ���" �Aف (��c �� ا�L4ء ا�Rي ا�" .. '��1تا< >��آه ! � ��?�Aول آA�" PoolConnection " ;7 )و ، و 8ـا� �=�) ;?� �5�7 8E ) �4 ه) ��ل 0; ا<ـ!�' �5 ! ..

<t��!: y�وم ��~ أL�! ��1ا اR5� ءL4ا ا�Rا�� ه <��هbR ه; y و�?� § ا�� �أي! �?=�ر7� ���5 ا�ا���ءB' �+ا آRوه "!A5O! ء���8�7B �;ء أ� و(4\ آ=��> ا�=�< B� � . ا�?Aد �7

;7 b� ؟ Public SQLs As String ا� و(8هR' 8آ� ا�=��C ا�Rي ��7 . �=�Bم<او�N> هRا ا�=��C 6�> ، �07 ا�48 (�8 آ^LنهRا

6 ول !��; ا�=��B" وه; ' � ��� ��O�Aت آ8 �; ا�6\ أي " ا������ 7; ا�A6Aدة ا�6 ول ��O�Aا�

!� ���V و�?� N دA?ا ا�Rل ا�� ه �" RS " ن� آV�R ؟��~أ " DB " آ 8BO��� �B� ..

� (A0م وه0��! b� ��� �� ا�ـ ، ا�=��C [�قإو �A�=O آ0��! � �N �RE 6�/ أ=��C هRS! Aوآ

�ت ���� ة ا���N ;7 �?�=ا� �,��E) ول �7> - ا�=�Bم - 6 �=7Tف - إR� - c) إ���ء - '� ) ��إ.. 6 ول �Rف - 6 ول

.. آ�ن ���> !=��C ا���4ت !A=Oح إذا

Private Sub Form_Load()

PoolConnection

SQLs = "Select * From Emp"

If RS.State = adStateOpen Then Rs.Close

If RS.State = adStateOpen

Page 80: احترف قواعد البيانات فى فيجوال بيسك 6

��O=� ا�=M�] ¾�5=) ;?� ��Cأ .. ��B آ�ن إذا) 6 �! ..� : (�;آ

� ����حA�5ف �0� -:

y�صأ�=�8C ه ) �N � bR�ROه� أي �?�Aل ا7=� � � 6�> ا�ـ " وا���4تا�4 اول " �ـ (�!=��C ا�^�� إ�� ا�4�> �=�(� �N "، و )ا�4�> Nة �ت ���� . " ا�

<�D�Oا� B� ��ل��< هRا ا�=��C ا�^�ص أ�" وه � �DB ¡��' A , ه �'.. !! �B� ������..

- R�O => (4\ أي��ود ا<أ 6L! ��� ف�B=' ل و�?; ن��ت ('����� ة ا���N ��� ف�B=..

<��� CursorهRا '��TA �8 ا�?Aر�� .. ا��t إ�� ا����> ا�=

وهA 7; ا�4 ول و(B8 ��� " ;,!� [�� " ا���5 أوهRا ا���S و )ا���S ( هCursorAا�ـ :ا��t ا����> ا�=���> ... !�=Aى ا���4ت

Then Rs.Close

RS.Open SQLs,DB,adOpenKeySet,adLockPessimistic

RS.Open SQLs

RS.Open SQLs,DB,

adOpenKeySet,adLockPessimistic

Page 81: احترف قواعد البيانات فى فيجوال بيسك 6

�� آـ .. إ��"y ا���5 ا����C ا���ر أ(ه8 ر=B) اRهCursor �5� " ��S! "

: ا<�=�Bم�Aاع 7; ���> أ��?Aر�� �

� �4\�هRا ا�?Aر�� (A0م ����� ���D> �0>� و(�6/، !�'\ ��?8 تا� � . <t��! : 5��0>هbR ا�، ووه; � د ا���4ت ! ا�?Aر�� (�6/ ���0 ا<�=�Bم� � ¡O=�)

د ���D اآ=\ هRا ا� Aع !� ا�?Aر���0>و�?; '�ى ا� ، � (" Cursorا�ـ B� adOpenKeySet.

� هRا ا�?Aر�� أ!"� 8!��ÇB ا�?Aر��ات ��~ � (> ���D> 7; ، ما<�=�B 7; ا������ت آ

و�?� �B� ! ��� 8�Aا هbR ا�$�(0> !��!4; ا�A4�Oال ����V ذا�دري �أ1 ،،، ا<�=�Bم �7A=! Aه� م هRا ا�?Aر�� إذن.. !^=�� adLockPessimistic � ) آ�!A?' ;?� 8ن � . ا�4 ول ��� ا������ت

� ��� �W(0> ا.. �bR5 ا�$�(0> 7�B' "=ذج !� ��آA ء ا�� ا�4 ول 7=�و ) ا1'��1ت ��آ> (�=0�ت ���� ة ا���N �! ..د إذنA?ا� <�� .. � ?8 ر��= � !/ آ=

"ن �Aف �A0م �?=��> ا�?Aد 7; ا�Lر ا�) 6 " Command1

���� ��� ا�Lر � �NCommand1 ;?� دوجL! �CT �=Oد'ــA?ة ا�R7�� V� :

adOpenKeySet

adLockPessimistic

Page 82: احترف قواعد البيانات فى فيجوال بيسك 6

�Aف '4 هRا ا�?Aد

" هRا ا�Lر ا�" إذن،، وهRا هA ه�?8 ا�Lر ) ا���C ���" أي " 6 � "=5! Click R�O ' �=) 5� أي (ا��A0ل �7اغ إ وهA ، ا�� ث�B4)"]ر��A?' ;?� <7ن !7> <§�5T 84� ) 6( ،، 8B�

:ذ�V اآ=\ هRا ا�?Aد

Private Sub Command1_Click() ' ه � �Aف (ـ?=\ ا�?Aد End Sub

Page 83: احترف قواعد البيانات فى فيجوال بيسك 6

���ذا � آ=Text1.Text = " " س ا�� ا�ـ� ؟Text ؟ ��� أي أ�

:ا�A4اب

5� ��� ا� Aذج BTل ا�=; '� وA0إ�� ا�� �t�ا�� .. ا " Text1 "ا��t دا8E ا��80 و�Aف '4 . ��Name ا�� ا���E �! 80ل ا�^�'� <�D�C' /�$=، ووهRا ا�� ا��80

<t��! : 80ا�� ا�� Aوض 7; ا��80 ه�B! Aه�ر�� (?Aن ا��1 ا��Bوض 7; ا��80 ! ��~ !

�+! Text1 "و�?� ا� Name: txtID ل���8 ا�+� ���

<�D�� (?Aن ا��80 هA ا� �� Nameو�Rا (4\ ا�=�آ !� ا�E �! ��1ل ا�^! � .

:ا�!� إذن

; B) / 8B6رغ ا��80 إ�7 " "

� و��� ،7; ا� Aذجا�=; اآ8 ��N; ا�?Aد ��� ��\ � د ا��A0ل ! � هRا ا�=^ +) � ;76 ��; إذن ..�A0ل=�� : �Aف (?Aن ا�?Aد آ

Text1.Text = " "

Page 84: احترف قواعد البيانات فى فيجوال بيسك 6

" !� ا�Lر �5 ��=ان ا�) 6 " . b وهA زر �8 إ�� ا�Lر ا�ـ0ـ�=ا B� ;" ¡O� "

�R7ة ا�?Aدـ=ـO'ـاL! �CT "��� �CTدوج �?; -� VB! �

�ر ��<أو�=Eن ا�?!b دA?ة ا�R7� : !� �Eل �

�ر�=Eا ا�L4ء ا�^�ص �?=��> ا�?Aد ��Lر ا�B ; أو �Aف 'V� �5t ا� �R7ة bو�

<��� :آ� 7; ا����> ا�=

Private Sub Command1_Click() Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " End Sub

Page 85: احترف قواعد البيانات فى فيجوال بيسك 6

<t��! : زر" ¡O� " "ا� Command2=ا (4\ ا�Rت � و�� ,� �Aف إذن.. آ !� '��> ا�?4 هRا ا�L4ء ا�^�ص ���Lر� :

;��=�� :7; هRا ا�L4ء �=?Aن !5=" آ

• � �ت �O¡ ا���C ��� ا�Lر �Aف (=� ���� . ا�• � 7�رغ �80 ا���C ��� ا�Lر وآ�ن ه �ك � <�� 1 (?� '�ك ��" �Aف '�5t ر�

.ا��80 7�رغ• �! �'�DA�Eو <�E �ت ا������ص� ا� �"!=��� ا��A? �Nن ا�^� " ��O�Aأي " ا�

�ح (أ�" =O! ;���ت '?�ار ) 1� �?�A�"ف '�5t ر���> � ) ا����� . ا��7>ا<��> A�RS� ;7ف ��=^ م !=��C ا�ـ •T ا�ـ ��C=! � �N �4 ول وآ�� RS ") �

4���,� ا�=�?� ��E�4ت ا�ول وا�.

أ �?=��> ا�?Aد إذن�7; � ة ��ذج (=?�ر �Aف أ�" ا�?Aد ���\ ا 7; ه�LRا�=�آ(4\ ،،، � .

Private Sub Command2_Click() End Sub

Page 86: احترف قواعد البيانات فى فيجوال بيسك 6

: �R5ا ا�?Aد7�رغ ا��80 '�ك � م ا��=^ م ��� 4��ـ� �Aف : أو1 -

� (?Aن ا��80 7�رغ ���=^ م ر���> ��Bض �?; msgboxا� ا�> �Aف ��=^ م ! � .. ;��=�� ..� ?8 ا�?Aد ��?Aن آ

�,> ا<N إ�� �t�لإ� آ) �' �=) � ..ه�إ�5�ر ا��اد ا�����> �Aع ا�=�0�,; وه

Page 87: احترف قواعد البيانات فى فيجوال بيسك 6

• ��,8 أ�Aاع � ة ! 5����: � <)�)R�' � �$E � "!A�B! �Sال �

��; Msgboxا��5?8 ��ـ =�� : آmsgbox " <�� ا�A Bان " ،ا� � ا'4�S� + bال - ! <)�)R�' - "!A�B�Aع ا�����>،" �� ا���

<������ "

;��=����> آ���� ;,� :�?; (?Aن ا��?8 ا� 5

MsgBox " Type Your Text Here ",Kind Message(Information,...)+Allignment, " Title For Message "

Page 88: احترف قواعد البيانات فى فيجوال بيسك 6

��� ��ح !

7�رغ 1 آ�ن ا��80 ر�N إذا.. ;�� : ا�8 ا�=

��M ا� � ا���و5�7 ���=^ م E$� ر���> أ��5:

��B" !� هRا ا<ا�Eج=�� .�6اء و�0' 1 � 5�� If 6�> ا�ـ >(

ا�=B�إذن :::B� ف ��� ا�ـMsgbox ،�بآA�$! ��ت وه � ر هRا ا�?Aد ��� ��\ ا�=$���; �Aآ~ !�4�ت 6 =�� : �?; (?Aن ا�?Aد ا� 5�,; آ

Private Sub Command2_Click() If Text1 = " " Then MsgBox " Sorry,Type Name ", vbCritical+ vbMsgBoxRight," Error "

Exit Sub End if

End Sub

If Text1 = " " Then

MsgBox " Sorry,Type Name ", vbCritical+ vbMsgBoxRight," Error "

Exit Sub

End if

Page 89: احترف قواعد البيانات فى فيجوال بيسك 6

: آ�!� وهRا هA ا�?Aد

Page 90: احترف قواعد البيانات فى فيجوال بيسك 6

- B� >=ا�ء��ر ا��=^ م !� إ !� 5��ت إ6�����ل ا�Eد � !A6Aده8 هA ، ��� ا���N ا� �V� 8Eا�=�'; وyN �ن ( ا�-0� 1 ؟ أم !�

:�8O ا�?Aد ا����M أاآ=\ هRا ا�?Aد

If Text1 = " " Then MsgBox " Sorry,Type Name ", vbCritical+ vbMsgBoxRight," Error "

Exit Sub End if

If Text2 = " " Then MsgBox " Sorry,Type Name ", vbCritical+ vbMsgBoxRight," Error "

Exit Sub End if

If Text3 = " " Then MsgBox " Sorry,Type Name ", vbCritical+ vbMsgBoxRight," Error "

Exit Sub End if

If Text4 = " " Then MsgBox " Sorry,Type Name ", vbCritical+ vbMsgBoxRight," Error "

Exit Sub End if

If Text5 = " " Then MsgBox " Sorry,Type Name ", vbCritical+ vbMsgBoxRight," Error "

Exit Sub End if

If Text6 = " " Then MsgBox " Sorry,Type Name ", vbCritical+ vbMsgBoxRight," Error "

Exit Sub End if

Page 91: احترف قواعد البيانات فى فيجوال بيسك 6

:��ح !��� ��?Aد

�� وا�T أ !�ا� أنا�� D ..

��C=!لA�?�" ا��ا�4 bR8 هو ا� V) � �5�LE. 5� ;7 ¡�1� ' " & Text5 & " '> ا�4�> (

�ت ا����Cة �5� '�¢�� آ+�� و!5" 6 ا !�Bا� bRه. � ا�ـ ذا� � :'; ه �� (ا��Sال BTو Text5 ت�!�Bا� bRه ���� ؟ ' " & & " ' !

SQLs = " Select * From Emp where EmpNo = ' " & Text5 & " ' " If RS.State = adStateOpen Then RS.Close RS.Open SQLs, DB, adOpenKeySet, adLockPessimistic

If RS.EOF Then

GoTo OkAddNew : Else MsgBox " Sorry,The Number Exist Before", vbCritical+ vbMsgBoxRight," Error " Exit Sub End If

OkAddNew :

SQLs = " Select * From Emp where EmpNo = ' " & Text5 & " ' "

Page 92: احترف قواعد البيانات فى فيجوال بيسك 6

:ا�A4اب

8!�B=ا�7; ا�AN /! \4) ت�������A0ا��� �0 ـ=ـ'ن أ ا��D�5� > ا�^� . �7>ا< ��� �B=' ;?�SQLف 6�> ا�ـ T م أي�B=ا ���ط ا�Rم !� ا���ط وه �E" ا��=^) �ت ، و� " V�R�� ��E" 80ل '?�A� yآ~ !�Bا� bRه <�� .. (V��� \4 آ=

ة 7; ا��80 آ�ن إذا، ا�� 80�Aع ��� ��\إ�� ! ..1 ..و�?� ��~ آ�5� '?Aن �R5ا ا��?8 ��N

�ت���� ..�� !� �Aع ا�

��TA'آ+� أ

: 'A0ل ا<�=�Bم7; 6�> ��O�Aول ا� 6 �! � � ��B=طا���� " ��وي ا��� �NAد ���ط " ا�5�م ا�?�م ه �)�+! 10

� W�� � ).. وآRا آRا (��وي ان (?Aن �7ن �Aد ���ط (ه

�ت 8ا�D 7; ا�BAدهRا ���� ة ا���N ;7 ؟ "�A� Aه�� هRا .. ! ��+! ;7EmpNo "�A� " �� "

� ��ت Textن (?Aن ا�ـ أ (SQL \4 ــ7; آ=��> 6�> ا�، �� أ�"و�!�Bا� bRه ����! ' " & & " '

��; ر �N�Aع آ�ن ا��80 !� إذا !�أ �=�� ) ' ' ( > ا�R��!�Bف �A0م " & & " A?�7ن آ

�ر(� �Aع ا��80 !� إذا �!أ �' ;��=��6 ا �85 ا�!� .. #" & & "# A?�7ن آ ��Dا

..� ?8 ��ح ا�?Aد

� ) ة ا<�=�Bم ا�4 ول !� �Eل 6�> ا7=� ،ا�?Aد ا��Bوف وا���Aف ��� و!� �Eل ا�0 د ���D وآ�!8 ا������ت ا�?Aر��و�Aع .. '��لا< ! 5� 0;�=ـا��.

� هRا ا�? ��� ) ��� �"�.. ذن ا �Aف (?Aن !5OAم ´و�?� �.. Aد 6=B) ر��A?ا� Cursor. ) EOF End OF File( و8D إ�� #Cursor 84� �E ا�?Aر�� هA0) : 8ل��طوهRا

و�� (4 �;ء ؟

�م ��� أيN "�> أ�ء !� 6� ؟ أ و�� (4 ا<�=�Bم��c �� ا���N ا�Rي 6� :�6اء و�Aف (�ى هRا ا�?Aد �Aف ( 8E دا8E ا< ..ا���ط '�M0 إذا

If RS.State = adStateOpen Then RS.Close RS.Open SQLs, DB, adOpenKeySet, adLockPessimistic

If RS.EOF Then

Page 93: احترف قواعد البيانات فى فيجوال بيسك 6

: '; إ��� '�M0 ا���ط (إذا

; B) اR> إذه\.. وهإ�� ا�?� " : OkAddNEW " . /T$�/ و�أي'ن أ ���ط > آ�A?' 1 . 7; ا�A4�Oال ����A4�! Vزة

� (� ��� هR ا�?Aد (B ; �� (� إ�� 6�> ! Elseو� � رCursor /6 ا�ـ أي( � ا�R5� ��O�Aا ا���N أ و6 (B ; .. ط �� (=�M0 ا���إذاو � �<�0 (

م ا�����> هA�) �5t�� bRف (� ��� هRا ا�?Aد ^=��� (:

!�A6A! �E# ��Aد ا���N هRا �ن�'^��ك وه; �Aف

��B" !� ا<ا�Eج=�� �6اء و�0' 1 �

5�� if> 6�> ا�ـ (

5� هbR ه; ا�?�> � � �N ;=0.. ا��=) �! :ا�?Aد هRا (� ��� �Aف M ا���ط ـ� GoTo OkAddNew :

� �B8 ،و�bR5 ا�$�(0> N A8 : وه�N<7�Tإ ��B! 84� \4) ن (=� أ ��~� هRا ا��Nأن!� ا�=�آ

ة A6A! ;7د��N ت����� ا���O�A �ا��...

م � آ�ن !6Aإذا، و �� (?� !A6Aد �Aف (��� �84 إذا^=��� <�� � 1�A"د هRا ا���5t' �N ر��7>ا<(?� T .

ا<-B� =� �! ء� : ��� ا���N �?; 1 (=?�ر ��'; ��=��; وه�V� Aا�=�5

- <7�Tت إ����� ة ا���N ;7 ) 6 84�

�7>آ=\ ا�?Aد ا�=��; �B��> اT84 إ� ) 6

�6 ا �?; �5OL6،اء أ�Aف �0�� ا�?Aد إ�� " � �أو1 -! � 8B4� فA�Cزر (=� ا�� ��� ¡O� ،' � ��� � 'و <�� م ر�^=��� ;' " / 1��B ؟ آ !� ���> ا��O¡� !=أ�yه8 "

�ر -=^) �! ��B� .. ¡Oا�� �=). �ر -=^) �! .�6اء (^�ج !� ا< . �1

GoTo OkAddNew :

MsgBox " Sorry,The Number Exist Before", vbCritical+ vbMsgBoxRight," Error "

Exit Sub

End If

GoTo OkAddNew :

Page 94: احترف قواعد البيانات فى فيجوال بيسك 6

م '�=Aي ���##^=��� <�� " /1��B" و " ا�����> �� " هRا ا��5t' ;?� 8?�5 ر� ��� ��ح !

��C=! اR" .. ها� MSGSave ا�ـ ¡O�) فA� MsgBox ) � ".

V���� الA4�Oا� <C� ;7 �B�Wع ـ آإذاA� �! ��C=! )�' y String ;�� ،)�� V� م أ ن '�=^ ;7 �5�7�B' ��] �! ات��C=تا�� )) .String ا� �Aص(( ا�ـ �07. ا�=��(�

( هRا ا�=��C �إذن� ¡O�) فA" ا�ـ MsgBox

��TA'آ+�أ: �C=ا�ـ�MSGSave ) فA�� <�� ..¡ �7" ـOـ��b و(�=أ ا�?Aد أوRE هbR ا��� /! �07 8!�B=� ;?� �C=ت ا���وط �ـا����� ;7 ..

�t�إ�� ا ��C=ن إذا ( .. ا���وي MSGSave ا�=��C آ�) vbYes( !� ؟ B) vbYes ; ذا

; B)"�أ � �! �C�) م و(� دا8E ا���ط Mـ(=�A� 0ف ا�����> ���Yes ;7 زر ا��=^ " ا�Rي �Aف (?Aن آAد ا��O¡ "ا�?Aد

MSGSave = MsgBox " Are You Sure To Save This Information?", vbQuestion+ vbMsgBoxRight+ vbYesNo, " Save "

If MSGSave = vbYes Then ¡Oا�� � 'ه End If

MSGSave =

MSGSave = MsgBox " Are You Sure To Save This Information?", vbQuestion+ vbMsgBoxRight+ vbYesNo, " Save "

If MSGSave = vbYes Then

Page 95: احترف قواعد البيانات فى فيجوال بيسك 6

5�� If> 6�> ا�ـ (

���O¡ن �Aف �A0م �?=��> ا�?Aد ا�^�ص ا� -� ;��=���ت وهA آ���� ة ا���N ;7 :

.��ح !��� ��?Aد

� 7; [ا�!�) <�A5�ا� < .. �0� م !�^=��� �5t' ;=ا� <����'; إ�� ���> ، �0 '� ��ح ا����7>ا<T ول . 7; ا�4

End If

MSGSave = MsgBox " Are You Sure To Save This Information?", vbQuestion+ vbMsgBoxRight+ vbYesNo, " Save "

If MSGSave = vbYes Then

¡Oا�� � 'ه

RS.AddNew

If Not Text1 = " " Then RS![FirsName] = Text1 If Not Text2 = " " Then RS![FatherName] = Text2 If Not Text3 = " " Then RS![GrandName] = Text3 If Not Text4 = " " Then RS![FamliyName] = Text4 If Not Text5 = " " Then RS![EmpNo] = Text5 If Not Text6 = " " Then RS![Job] = Text6

RS.Update

MsgBox " The Information Has Been Saved ", vbInformation+ vbMsgBoxRight, " Save "

End If

RS.AddNew

Page 96: احترف قواعد البيانات فى فيجوال بيسك 6

; B' .." y�أ �) RS " اصAE V) 7;" وا���4تا�4 اول ا�Rي �) 6 84� � ه�¾ � . O) �07=� �84 وا� ا�!�هRا و" Empا�4 ول ـ

� ��ح ا�?Aد ���

7�Text1 ;T �� (?� ا�ـ إذا ..) ; B) y�?=ت �7" ا������ ( Then;�� ¢� ا�8 ا�=

��C=! �! \�$�اول FirsName ;7 إ�� ا��Text1 80 ا�ـ �N>ن (� أ RS وا���4ت ا�4 !! =� ���> ا��O¡'ـن �� إ�� ا� .. Empا�4 ول

M�� Text2 & Text3 & Text4 & Text5 & Text6... �ـ ��N; ا�?Aد �O~ ا�?Aد ا��

� (c ا��84 ونا� ، )) RS (( ل وا���4تاو �A0ل �=��C ا�4 ا��O¡ه �=� �N ا¡O� ت����� . ا�

�آ �0� م .. '� ���" !�^=��� �5t' <�� أي " AD< vbInformationرة !A�B! "هbR ر�5� /��ت '=!A�B! <���ر�) ¡O��� الS�ا� <�� > ر�

) If MSGSave = vbYes Then ا�ـ >(��5 أي (

�B' <0)�$ا� bR5�0> و)�W � ¡O� 84� ) �ت 6���� ة ا���N ;7

" �O¡ "وهRا ا�?Aد ا�?�!8 7; زر

MsgBox " The Information Has Been Saved ", vbInformation+ vbMsgBoxRight, " Save "

RS![FirsName] = Text1

RS.Update

Page 97: احترف قواعد البيانات فى فيجوال بيسك 6

If Text1 = " " Then MsgBox " Sorry,Type Name ", vbCritical+ vbMsgBoxRight," Error "

Exit Sub End if

If Text2 = " " Then MsgBox " Sorry,Type Name ", vbCritical+ vbMsgBoxRight," Error "

Exit Sub End if

If Text3 = " " Then MsgBox " Sorry,Type Name ", vbCritical+ vbMsgBoxRight," Error "

Exit Sub End if

If Text4 = " " Then MsgBox " Sorry,Type Name ", vbCritical+ vbMsgBoxRight," Error "

Exit Sub End if

If Text5 = " " Then MsgBox " Sorry,Type Name ", vbCritical+ vbMsgBoxRight," Error "

Exit Sub / 5 � 0 � If Text6 = " " Then MsgBox " Sorry,Type Name ", vbCritical+ vbMsgBoxRight," Error "

Exit Sub End if

SQLs = " Select * From Emp where EmpNo = ' " & Text5 & " ' " � �

RS.State = adStateOpen Then RS.Close RS.Open SQLs, DB, adOpenKeySet, adLockPessimistic

� � RS.EOF Then

GoTo OkAddNew : / � � � MsgBox " Sorry,The Number Exist Before", vbCritical+ vbMsgBoxRight," Error " Exit Sub / 5 � � �

OkAddNew : MSGSave = MsgBox " Are You Sure To Save This Information?", vbQuestion+ vbMsgBoxRight+ vbYesNo, " Save " � �

MSGSave = vbYes Then RS.AddNew

� � Not Text1 = " " Then RS![FirsName] = Text1 � � Not Text2 = " " Then RS![FatherName] = Text2 � � Not Text3 = " " Then RS![GrandName] = Text3 � � Not Text4 = " " Then RS![FamliyName] = Text4 � � Not Text5 = " " Then RS![EmpNo] = Text5 � � Not Text6 = " " Then RS![Job] = Text6

RS.Update MsgBox " The Information Has Been Saved ", vbInformation+ vbMsgBoxRight, " Save "

/ 5 � � �

Page 98: احترف قواعد البيانات فى فيجوال بيسك 6

" �Eوج "ن ار6/ إ�� ه�§> ا�=��� و'6A" إ�� زر ا�:::

��; 'ــOـL! �CTدوج �?; " �Eوج "ا�CT ��� زر =���R7ة ا�?Aد آ� V� �=:

- ;�� ..!5" ا�?Aد ا�Rي �Aف �?=�" هA ا�^�وج !� ا� Aذج ا�� اآ=\ هRا اآAد

; B) Aوه;C; ا���اآ�ة !� '�Rا� ..

Unload Me

Page 99: احترف قواعد البيانات فى فيجوال بيسك 6

!! آ�" ا���وع !� �5 ��=ا ا�8Dو ! ;7�Aذج 7; ا���وع أول�5 � !� �=او�bR5 ا�$�(0> �V ؟ آ�� ذ

5�7� ا�?Aد و�Aف (?Aن ا�?Aد !A5Oم و'�85 (=?�ر��N; ا� �ذج �Aف V��� <��Bا�

%% 6A'" ) 8ـ=ـ0ـ�إ ( Aوه b B� يRذج ا�A �� frmChangePass %%

ا� Aذج (ــV� �=OاL! �CT "��� �CTدوج �?;

Page 100: احترف قواعد البيانات فى فيجوال بيسك 6

:هRا ا� Aذج !5=" C'� ��<�?(> ا���ا�=��� <��� م ا��^ ،،، ا��=^ م ��� هRا ا� Aذج (4\ ���" �8 دAEل�

;�� :ا�=

� <�� >ا�0 ( ا��� >آ� آ=� <�� ة ا��� آ�> آ=) ا�4� '� ة ا��� آ�> آ�) ..ا�4

> ـ�Aف �A0م ���!4> ا� Aذج �bR5 ا�$�(0

� C' .>���D ا�0 (> (>ا��� >ا�?� أن ���=�آ (A0م أو1 - (>ا��� ا�?�>�� �� ة ا��� >آ� أن آ �ا�= �) ��0> ا�4$! ة ا��� >آ� �=�آ�) . ا�4� c) �ت '����� ة ا��� آ�> و�O¡ ا�) 7; 6 ول ا�ـ ا�4 USERS.

�R7ة ا�?Aد 'ـOـ=ـا�CT ��� ا� Aذج L! �CTدوج �?; � VB! � ..

()A� Form_Loadف �?=\ آAد 7; ا�AOرم �Aد

�!: ��� ا� ا8E ا��=^ م RE ا��� ( Text1�8B4 ا�ـ أو1 •��� .ا� . ا� و(8'��ل !� ا<0;ـ��= •

Page 101: احترف قواعد البيانات فى فيجوال بيسك 6

اآ=\ هRا ا�?Aد 7; ا�AOرم �Aد

��� ��ح !

�NA� � RE<ف (ا�=��CهRا ، UserNames ا�=�N RE��C � <�Label1) "�B4�� ا��Bض �!: ��� ا� ا8E ا��=^ م��� AEل ا�^�ص ا� Aذج7; ( .. ا��� ا�=A� ��Cف '=�Bف ��� هRا �

.)آ�� أ��?8

�0��! "��� �' ��1تا< ��آ> !� '��لا< 0;ـ(�=آ�'

�R7ة ا�=��� وا�CT ��� زر إار6/ � ��"¡O� " Command1 دوجL! �CT

��> هRا ا�?Aد =?� �Nو:

Private Sub Form_Load()

Label1.Caption = UserNames PoolConnection

End Sub

Label1.Caption = UserNames

PoolConnection

Page 102: احترف قواعد البيانات فى فيجوال بيسك 6

�ر ا��=^ م ��� إ أو1 -���0> [��أو 7�ر[> '�ك ا��A0ل � م6$=! ��!<t:

Text2 Aه >آ� ��ا� ) >ا�0Text3 Aه>آ� ��ة ا� ) ا�4Text4 Aه ة ا��� >آ� '�آ�) ا�4

��� ..��ح ! ة وه; ) 6 دا�> وا� ة 6A' �?و� � ا ��� ) 6 ~�� M�� :ا�?Aد ا��

; B' ;8: وهB6�إ+! ��� Lا�=�آ� " Text2.SetFocus " 8إ أيB6 807; ا�� <��!��S ا�?= ;�� ) Text2 (ا�+

- B�رإ��7�ر[> '�ك ا��A0ل � م ا�=�^ م ��� 6 ؟ 1م أ ���D> ا�0 (> ا��ور >آ� هV� 8ـ�ـ�=�اإ�� ن ��'; ا� -

;�� :اآ=\ ا�?Aد ا�=

If Text2 = " " Then MsgBox " Please Type Old Password ", vbCritical+ vbMsgBoxRight, " Error "

Text2.SetFocus Exit Sub

End If If Text3 = " " Then MsgBox " Please Type New Password ", vbCritical+ vbMsgBoxRight, " Error "

Text3.SetFocus Exit Sub

End If If Text4 = " " Then MsgBox " Please Type ReNew Password ", vbCritical+ vbMsgBoxRight, " Error "

Text4.SetFocus Exit Sub

End If If Text3 <> Text4 Then MsgBox " Sorry,The Old Password Not Equel New Password ", vbCritical+ vbMsgBoxRight, " Error "

Exit Sub End If

SetFocus

Page 103: احترف قواعد البيانات فى فيجوال بيسك 6

��� ��ح !

: ' � ��� ا��?�Aل6�> �! ;� ��B=ول ا� 6��! ا�=��C ا�Rي (�8 ا�� ( (��وي ���ط ا�� ا��=^ م ا��=^

�ما� ا8Eا�=�^ م t �� (و ) ور>آ��ا� �'� ) 2 ي ا��80و

8�N �! ��ر.. '� ���5�=Eا ) �N 8C�=� "�4ا� (

م أ��5، و�� (4 �E# 84� b إ�� ا�ـ��S و8D إذا^=��� <�� ا�0 (> �ا�� آ�> �AOا " ر�<§W�E " . �¢ج�E!� ا<ا > '�6��6اء و1 '�0 �=?<b B� يRد ا�A?ا� .

SQLs = "Select * FROM Users Where UserName = ' " & UserNames & " ' and Password = ' " & Text2 & " ' " If RS.State = adStateOpen Then RS.Close RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic If RS.EOF Then MsgBox " Sorry,The Old Password Wrong ! ", vbCritical+ vbMsgBoxRight, " Error " Exit Sub Else

GoTo OKs : End If

OKs :

SQLs = "Select * FROM Users Where UserName = ' " & UserNames & " ' and Password = ' " & Text2 & " ' "

If RS.State = adStateOpen Then RS.Close RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

If RS.EOF Then MsgBox " Sorry,The Old Password Wrong ! ", vbCritical+ vbMsgBoxRight, " Error " Exit Sub

Page 104: احترف قواعد البيانات فى فيجوال بيسك 6

V( أي.. [�� ذ� >آ� ��دة ا�A6A! 8BO�� ) ا�=�^ م وا��، � OKs إ�� إذه\

5�� If> ا�ـ (

OKs 6�' /��=) ;?� � : ا�?Aد ا�=��; >(�8 إ�� ه

إذن -B� =ـ�ـا��V� ��� >آ� ��م ا�� و ا� �ت '� (cن دور '; ا�� (ا��=^���� ، ا�B�M0�=ا�

. !A6Aد(� ���8BO ا��� >آ�و ا��1 أن

��� :��ح ! � ه ) 6 آAد 6A) 1لإA�?� > ا�ـ�1 6

��� � '.. 6 ول c) �=� �N��! ��� AAد ث� ، ا��=^� ���ط ا�� 4 ا��80 �وي(�" إ�B6 وردوا�

�ويا��=^ م �) " ��C=ا� <�N UserName "� ¡O=�ا� "

Else GoTo OKs :

End If OKs :

MSGSave = MsgBox " Are You Sure To Change This Password?", vbQuestion+ vbMsgBoxRight+ vbYesNo, " Change Password " If MSGSave = vbYes Then ' Update Password

SQLs = "Update[Users]Set[Password]=' " & Text4 & " ' Where [UserName]=' " & UserName & " ' "

If RS.State = adStateOpen Then RS.Close RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic MsgBox " The Old Password Has Been Changed ! ", vbCritical+ vbMsgBoxRight," Save "

End If

SQLs = "Update[Users]Set[Password]=' " & Text4 & " ' Where [UserName]=' " & UserName & " ' "

Page 105: احترف قواعد البيانات فى فيجوال بيسك 6

Update '�آ�\ 6�> ا�ـ �1¡

) ا�=� (yUpdate )c '?=\ 6�> و�� �AN[ ]� Aاس �A6Aد ا�ا<�=�Bم'^=�� �� 6�> .ن '?Aن هbR ا�=�آ��" أ � A��$E !1ف (AN ، V�$Bاس � ون هbR ا�

�N; ا�?Aد �� (=� ���" � ،،،�0��! "��� �' 0�

�E " Command2وج " ار6/ إ�� ��§> ا�=��� وا�CT ��� ا�Lر :::

وT/ هRا ا�?Aد

Unload Me اآ�ةR8 !� ا��ء ا�=��Cإ� Aوه..

"frmChangePass " وهRا هA ا�?Aد آ�! �� 8Aذج :::

Update[Users]Set[Password]

Page 106: احترف قواعد البيانات فى فيجوال بيسك 6

Private Sub Command1_Click() If Text2 = "" Then MsgBox " Please Type Old Password ", vbCritical+ vbMsgBoxRight, " Error "

Text2.SetFocus Exit Sub

End If

If Text3 = "" Then MsgBox " Please Type New Password ", vbCritical+ vbMsgBoxRight, " Error "

Text3.SetFocus Exit Sub

End If If Text4 = "" Then MsgBox " Please Type ReNew Password ", vbCritical+ vbMsgBoxRight, " Error "

Text4.SetFocus Exit Sub

End If If Text3 <> Text4 Then MsgBox " Sorry,The Old Password Not Equel New Password ", vbCritical+ vbMsgBoxRight, " Error "

Exit Sub End If

SQLs = "Select * FROM Users Where UserName = ' " & UserNames & " ' and Password = ' " & Text2 & " ' " If RS.State = adStateOpen Then RS.Close RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic If RS.EOF Then MsgBox " Sorry,The Old Password Wrong ! ", vbCritical+ vbMsgBoxRight, " Error " Exit Sub Else

GoTo OKs : End If

OKs : MSGSave = MsgBox " Are You Sure To Change This Password?", vbQuestion+ vbMsgBoxRight+ vbYesNo, " Change Password " If MSGSave = vbYes Then ' Update Password

SQLs = "Update[Users]Set[Password]=' " & Text4 & " ' Where [UserName]=' " & UserName & " ' "

If RS.State = adStateOpen Then RS.Close RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic MsgBox " The Old Password Has Been Changed ! ", vbCritical+ vbMsgBoxRight," Save " End If End Sub

Page 107: احترف قواعد البيانات فى فيجوال بيسك 6

C=� مA0) :!���� � ا��� ���=^ م ا����; >�� آ��و�bR5 ا�$�(0> ��

^^ ¡Oل إ��E �! وع��أ( ا�<�A0 ¡Oا�� Save= � ;?� ة ا�=ـ0ـA$^8 إ�� ا���� <:

" frmCheckUser " إ�� ا� Aذج ا�Rي ا�" إذه\

5t) ;?� دوجL! �CT "��� �CTا ;��=�� :� ا� Aذج آ

Private Sub Command2_Click() Unload Me End Sub '-------------------------------------- Private Sub Form_Load()

Label1.Caption = UserNames PoolConnection

End Sub

Page 108: احترف قواعد البيانات فى فيجوال بيسك 6

- 5!< :!����� (=� '�8C ا�! إ���ء !�ة (�5t هRا ا� Aذج و($�\ ول� هRا ا� Aذج � �م t ا� �) !) Administrator (.

;�� :�Aف �B8 ا�=

. ا� و(8 !� ا1'��ل ��=0; � .USERS�O=� ا�4 ول � . LoginAذج ا� AEل هA �، و �Aذج #�E إ�5�ر �7" !�=^ م (=� ا�4 ول آ�ن إذا �� \4) ¡Oم إ7; ا�� �ت ��� ا��=^�����ل ا�Eد. �ت 7; ����� . ا������ت 6�/ ا��=^ م �$�ءإو ا�4 ول(=� �O¡ ا�

����C ��� ا� Aذج L! �CTدوج �?; � �Nـ=ـ�Oد 'ـA?ة ا�R7�� V� ،،

��> هRا ا�?Aد 7; =?� �NرمAOد ا�A� ،، 8��=ث ا� � ;7Form_Load

Private Sub Form_Load()

PoolConnection SQLs = " Select * From Users "

If RS.State = adStateOpen Then RS.Close

RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic �OD �4ت�د ا� !�� >--إذا �� (?� �^=�! 6A) "�ا ; B) اRه '

If Not RS.RecordCount = 0 Then frmLogin.show Unload me

End if End Sub

Page 109: احترف قواعد البيانات فى فيجوال بيسك 6

ة ا�آAاد�Aف (=� ��ح ،، ��ح ا�?Aد ) �07 ا�4

د ا���4ت ا�Rي ر6/ �5� ا�ـ إذا� �?) �� Cursor = �OD ،، ;�� :ا�8 ا�=� ا� ا�> B�WRecordCount ا�ـ � د ا���4ت ا�=; !� ���5� � A0' Cursorم �´ر6�ع �

� �Aذجأ��5 � " frmLogin "

OEأ� ;" ; �Cاآ�ة !� ا�Rا� "

��B�� �07 ،، ذجA 8 ا�?� Aا هRهfrmLogin ، B� � :�Aف ��'; �" �7

If Not RS.RecordCount = 0 Then

frmLogin.show

Unload Me

Page 110: احترف قواعد البيانات فى فيجوال بيسك 6

L! �CTدوج" ��CT "¡O ��� زر ا وfrmCheckUser ار �� /6Aذج

7�ر[> ا��A0ل '�ك � م ا��=^ م !� �4�� �Aف أو1،، اآ=\ هRا ا�?Aد دا8E ا�Lر V�Rوآ \4)M�� ا��� >آ� آ� �' !/ ا��� >آ� '$

<t��! :

Text1 - م ا�� ا��=^Text2 - "ور آ��ا� Text3 - ا��ور آ�" '�آ�

If Text1 = " " Then MsgBox " Sorry, You Must Type Username ", vbCritical+ vbMsgBoxRight, " Error "

Text1.SetFocus Exit Sub

End If If Text2 = " " Then MsgBox " Please Type Old Password ", vbCritical+ vbMsgBoxRight, " Error "

Text2.SetFocus Exit Sub

End If If Text2.text <> Text3.text Then MsgBox " Sorry,The Old Password Not Equel New Password ", vbCritical+ vbMsgBoxRight, " Error "

Exit Sub End If

Page 111: احترف قواعد البيانات فى فيجوال بيسك 6

�07 ) 4�� ��� ��ح !

"!�Bا� <> ; B' 1وي��)

ا�:::B� م إن �ر ا�=�^�5�7� ـ�، 6 ¡O��� <�� \ 1��5t: �B ر� B�ر و��=Eا �B�ت����� �Aف (=� �O¡ ا�- �)L^' �=) �¢م ا�� ��C=! UserNames 7; ا��=^5� 7; ا��ور >وآ� - )L^' �=) ��C=! UserPassword - �=) Vذ� B� �¢ر� MDIForm1 ا��,��; ا� Aذج إ�5

اآ=\ هRا ا�?Aد

If Text2.Text <> Text3.Text Then

SaveMsg = MsgBox " Are You Sure To Create Administrator ?", vbQuestion+ vbMsgBoxRight+ vbYesNo, " Save Data " � �

SaveMsg = vbYes Then RS.AddNew RS![UserName]=Text1 RS![Password]=Text2

RS![GAdd] = True RS![GEdit] = True RS![GPrint] = True

RS![GCreateUser] = True RS.Update

MsgBox " The Information Has Been Saved ", vbInformation+ vbMsgBoxRight, " Saved " ' Save This Informations UserNames = Text1 UserPassword = Text2 ' Long Main

Set RS = Nothing Set DB = Nothing

MDIForm1.Show Unload me / 5 � 0 �

Page 112: احترف قواعد البيانات فى فيجوال بيسك 6

ة آAاد ا���ح ا�،، ��ح ا�?Aد ) 4�07

80��� ة � د�� �Aع ا���N True ، 80GAdd <ا� �� وهRا A�Yes/No '��¡ 7; '��� ا�0 ; B)True / False

...��O" أ ���80 وآV�R ا��80 ا�Rي �0>د ا� ��إ�Aف (=� ��� ذا� ���80 ؟ �N True> أ�

� : ا�A4اب 4!��م ا� AEل 7; �����=^ ! ا������ت�Aف ��=^ م 7; ���t �� ت� وا������7>ا< -ه; T - 8) B=ا� - <��� . ا��=^ !��إ���ء - ا�$

M�� :و�?; '=�?� 7; هbR ا�^��D> (4\ �8 ا��

8B6ا� إ��C= ص�4 اول� ا�^���لا< وآ��C=! V�R �;ء �N 1=" �توا��4 �' !� (B ; 1 �;ء ؟ ذا

� (=� ا�=�Bم �� 6 ول 7! ="�N و'?Aن ا<�=�Bم¡ ��0> ـ�O=ـ وا���4ت (ا�4 اول��C !=´ن� y���Null اRو� ،، )�' �! �O�ــن 'أ � '� > هbR ا�4�>غ !�7; ا�=A0' ��Cم �?

Set ��C=ا� = Nothing �," !� ا�Rاآ�ة ( ا� Aذج ا����; أOE;و ، ا� Aذج ا��,��; ��5اCإ� (

&& ار6/ إ�� ��§> ا�=��� &&

اL! �CT "��� �CTدوج " �Eوج "� د ا�Lر

RS![GAdd] = True

RS![GAdd] = True RS![GEdit] = True RS![GPrint] = True

RS![GCreateUser] = True

Set RS = Nothing Set DB = Nothing

MDIForm1.Show Unload me

Page 113: احترف قواعد البيانات فى فيجوال بيسك 6

اآ=\ هRا ا�?Aد

�مإ���ء "وهRا هA ا�?Aد آ�! �� 8Aذج t� �) ! "

Unload me

Private Sub Command1_Click() � � Text1 = "" Then

MsgBox " Sorry, You Must Type Username ", vbCritical+ vbMsgBoxRight, " Error " Text1.SetFocus

Exit Sub / 5 � � � � �

Text2 = "" Then MsgBox " Please Type Old Password ", vbCritical+ vbMsgBoxRight, " Error "

Text2.SetFocus Exit Sub / 5 � � �

� � Text2.text <> Text3.text Then

MsgBox " Sorry,The Old Password Not Equel New Password ", vbCritical+ vbMsgBoxRight, " Error " Exit Sub / 5 � � �

SaveMsg = MsgBox " Are You Sure To Create Administrator ?", vbQuestion+ vbMsgBoxRight+ vbYesNo, " Save Data " � �

SaveMsg = vbYes Then RS.AddNew RS![UserName]=Text1 RS![Password]=Text2

RS![GAdd] = True RS![GEdit] = True RS![GPrint] = True

RS![GCreateUser] = True RS.Update

MsgBox " The Information Has Been Saved ", vbInformation+ vbMsgBoxRight, " Saved " ' Save This Informations

UserNames = Text1 UserPassword = Text2 ' Long Main

Set RS = Nothing Set DB = Nothing

MDIForm1.Show Unload me / 5 � 0 �/ 5 � � � �

Page 114: احترف قواعد البيانات فى فيجوال بيسك 6

::: ¡Oل إ��E �! وع��أ( ا�<�A0 ¡Oا�� Save= � ;?� ي (��"ـ0ـRذج ا�A �� 8

" frmCreateUsers " إ�� ا� Aذج ا�Rي ا�" \إذه

اL! �CT �CTدوج ��� ا�� ا� Aذج �?; (V� �5t 7; ��§> ا�=���

Private Sub Command2_Click() Unload me

End sub

Private Sub Form_Load()

PoolConnection

SQLs = " Select * From Users "

If RS.State = adStateOpen Then RS.Close

RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic �OD �4ت�د ا� !�� هRا (B ; ا�>--إذا �� (?� �^=�! 6A) "'

If Not RS.RecordCount = 0 Then frmLogin.show Unload me

End if

End Sub

Page 115: احترف قواعد البيانات فى فيجوال بيسك 6

;�� :" ا��=^ !�� و! � ا������تإ���ء�Aذج "� B8 7; هRا ا� Aذج ا�=

.ا1'��1ت ��آ>ا�=0�ء ا� Aذج !� -- ��! 7=� 6 ول ا��=^. �ر ا��=^ م -��ت إ6�����ل ا�Eم !� إد 7�رغ '�ك ا��80 و�. ��0> ا��ور آ�>أن !� آ �ا�= -$! . ا��ور> آ��=�آ� ة ا��=^ م ا�� أن�V ��� �ا�=� -�� آ�ن !A6Aد �Aف إذا، و ا����; ��~ !A6Aد 7; ا�0

� <���ت�ن'�5t �" ر����� ة ا���N ;7 دA6A! ��1ا اRه . ة -���ت 7; ا�0���� .ا������ت/ !.. �O¡ ا�

Form_Load ا�ـا�=��8 7; � ث ا�CT ��� ا� Aذج L! �CTدوج واآ=\ هRا ا�?Aد

PoolConnection

Page 116: احترف قواعد البيانات فى فيجوال بيسك 6

: واآ=\ هRا ا�?AدO� " Command1¡ "ار6/ ��� ��§> ا�=��� و� د ا�Lر

� � Text1 = "" Then

MsgBox " Sorry, You Must Type Username ", vbCritical+ vbMsgBoxRight, " Error " Exit Sub / 5 � � �

� � Text2 = "" Then

MsgBox " Please Type Old Password ", vbCritical+ vbMsgBoxRight, " Error " Exit Sub / 5 � � �

SQLs = "Select * FROM Users Where UserName = ' " & Text1 & " ' " If RS.State = adStateOpen Then RS.Close RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic If RS.EOF Then

GoTo SaveOK: Else MsgBox " Sorry,The Username Is Exist Befor ", vbCritical+ vbMsgBoxRight, " Error " Exit Sub End If SaveOK: � �

Text2.Text <> Text3.Text Then MsgBox " Sorry,The Old Password Not Equel New Password ", vbCritical+ vbMsgBoxRight, " Error "

Exit Sub / 5 � � � SaveMsg = MsgBox " Are You Sure To Save This Informations ?", vbQuestion+ vbMsgBoxRight+ vbYesNo, " Save Data " � �

SaveMsg = vbYes Then RS.AddNew

RS![UserName]=Text1 RS![Password]=Text2

<���D <7�T>ا' If Check1.Value = True Then

RS![GAdd] = True Else

RS![GAdd] = False End If

8) B=ا� <���D' If Check2.Value = True Then

RS![GEdit] = True Else

RS![GEdit] = False End If

Page 117: احترف قواعد البيانات فى فيجوال بيسك 6

ة ..��ح ا�?Aد ) �07 ا1آAاد ا�4

; B) اRه،، �رb ؟ Check1ه8 ا�ـ =^!

� آإذاy� �B� ) bر�=^! ( ;�� Thenا�8 ا�=

�7>ا< ���D> "ا� إ�� �80 T " >ا��0 " True "

Vذ� ��]) y��� bر�=^! (

����D <7> "ا� إ�� �80 T>>ا� " ا�0 " False "

<���D��! ' إ���ء ا��=^ If Check3.Value = True Then

RS![GCreateUser] = True Else

RS![GCreateUser] = False End If <���D<��� ' ا�$

If Check4.Value = True Then RS![GPrint] = True

Else RS![GPrint] = False

End If

RS.Update MsgBox " The Information Has Been Saved ", vbInformation+ vbMsgBoxRight, " Saved "

End If

If Check1.Value = True Then

RS![GAdd] = True Else

RS![GAdd] = False

End If

RS![GAdd] = True

RS![GAdd] = False

Else

Page 118: احترف قواعد البيانات فى فيجوال بيسك 6

%% ار6/ إ�� ��§> ا�=��� %%

�,� د ا�?�Check3 -- ء� ا��=^ !�� إ��

�R7ة ا�?Aد � V� �=O' ;?� دوجL! �CT �,� :ا�CT ��� ا�?

Page 119: احترف قواعد البيانات فى فيجوال بيسك 6

��> هRا ا�?Aد 7; =?� �Nث ��;Click ا�ـ �=�� : آ

..��ح ا�?Aد !� (B ; هRا ؟ ذا

)�' �! مـن 'أ� ^=�! ;$B�! <���D " ء� 6�V /ن '?Aن � (أ (4\ " ��ا��=^ ! إ����B; … ا������تW /Nا واRوه

If Check3.Value = True Then Check1.Value = True Check2.Value = True Check4.Value = True Check3.Value = True Else Check1.Value = False Check2.Value = False Check4.Value = False Check3.Value = False End If

Page 120: احترف قواعد البيانات فى فيجوال بيسك 6

ا�?Aد ( � ���

د (!^=�ر " ا��=^ !�� إ���ء " آ�ن ا�?�,� إذا�! – �' bر��=Eا ( ;�� :ا�8 ا�=

8B6إ <����ت ا�= ,��ر " ��N ا�?=^!b "

V" أي ([�� ذ��ر ��~ أ�=^! (

8B6تإ� ,��رb [�� ا�=���> ��N ا�?=^!

: واآ=\ هRا ا�?Aد � ا�E " "�Eوج "ار6/ إ�� ��§> ا�=��� و� د ا��ز ::

7; هRا ا� Aذج و�N �=��أ::: ) "" =�T زر 6) 6 " ;��=�� : آ

If Check3.Value = True Then

Check1.Value = True Check2.Value = True Check4.Value = True Check3.Value = True

Esle

Check1.Value = False Check2.Value = False Check4.Value = False Check3.Value = False

Unload Me

Page 121: احترف قواعد البيانات فى فيجوال بيسك 6

"�T هRا ا�?Aد دا8E زر أ) 6 ":

; B) اR/ �; ا�7غوه�ل 6A0ا�� ،��ر [�� " �;ء 1, �ت �N> وآV�R ا�$; ا�?=^! "

:) ا��=^ !�� إ���ء ( وهRا هA ا�?Aد ا�?�! � 8Aذج

Text1 = " " Text2 = " " Text3 = " "

Check1.Value = False Check2.Value = False Check4.Value = False Check3.Value = False

Page 122: احترف قواعد البيانات فى فيجوال بيسك 6

Private Sub Check3_Click() If Check3.Value = True Then Check1.Value = True Check2.Value = True Check4.Value = True Check3.Value = True Else Check1.Value = False Check2.Value = False Check4.Value = False Check3.Value = False End If End Sub Private Sub Command1_Click() � �

Text1 = "" Then MsgBox " Sorry, You Must Type Username ", vbCritical+ vbMsgBoxRight, " Error "

Exit Sub / 5 � � � � �

Text2 = "" Then MsgBox " Please Type Old Password ", vbCritical+ vbMsgBoxRight, " Error "

Exit Sub / 5 � � � SQLs = "Select * FROM Users Where UserName = ' " & Text1 & " ' " If RS.State = adStateOpen Then RS.Close RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic If RS.EOF Then

GoTo SaveOK: Else MsgBox " Sorry,The Username Is Exist Befor ", vbCritical+ vbMsgBoxRight, " Error " Exit Sub End If SaveOK: � �

Text2.Text <> Text3.Text Then MsgBox " Sorry,The Old Password Not Equel New Password ", vbCritical+ vbMsgBoxRight, " Error "

Exit Sub / 5 � � � SaveMsg = MsgBox " Are You Sure To Save This Informations ?", vbQuestion+ vbMsgBoxRight+ vbYesNo, " Save Data " � �

SaveMsg = vbYes Then RS.AddNew

RS![UserName]=Text1 RS![Password]=Text2

Page 123: احترف قواعد البيانات فى فيجوال بيسك 6

<7�T>ا <���D'

If Check1.Value = True Then RS![GAdd] = True

Else RS![GAdd] = False

End If

8) B=ا� <���D'

If Check2.Value = True Then RS![GEdit] = True

Else RS![GEdit] = False

End If

<���D��! ' إ���ء ا��=^

If Check3.Value = True Then RS![GCreateUser] = True

Else RS![GCreateUser] = False

End If

<���D<��� ' ا�$

If Check4.Value = True Then RS![GPrint] = True

Else RS![GPrint] = False

End If

RS.Update MsgBox " The Information Has Been Saved ", vbInformation+ vbMsgBoxRight, " Saved "

End If End Sub

Private Sub Command2_Click() Unload Me End Sub

Private Sub Command3_Click()

Text1 = "" Text2 = "" Text3 = "" Check1.Value = False Check2.Value = False Check4.Value = False Check3.Value = False End Sub

Page 124: احترف قواعد البيانات فى فيجوال بيسك 6

:::¡Oل إ��E �! وع��أ( ا�<�A0¡Oا�� Save A 6" إ�� ا�A=� ;?�;�� ذج ا�=

"frmEditEmp " إ�� ا� Aذج ا�Rي ا�" إذه\

�CTا ��7; ��§> ا�=� V� �5t) ;?� ذجA دوج ��� ا�� ا�L! �CT

Private Sub Form_Load() PoolConnection

End Sub

Page 125: احترف قواعد البيانات فى فيجوال بيسك 6

• ;7 8B ذج�A� " 8) B' ت����� ��O�Aا� " ;�� :ا�= �1تا< ��آ> ا� Aذج !� ا�=0�ء -�' 7=� 6 ول -��O�Aا� �ر -��ل !� ا��=^ م إ6Eتا إد�����7�رغ ا��80 '�ك و� م � (8 ���"ا� ا���N ا��اد أن��� ��Vا�=� -B= ~�� دA6A! ا�� ، وإذا آ�ن �^�ص�

�ت�ن�Aف '�5t �" ر���> �!A6Aد ���� ة ا���N ;7 دA6A! �Nا ا��Rه - 8) B' ة ���ت 7; ا�0���� ..ا�4 اول� ا�^�ص ا�=A� Rss ��Cف ��=^ م ا�ـ -���'?� ا�Rي وا���4ت " � ;7 � >(اا� �Aف ا� Aذج -=B) ��� ذجA ا� �Eا� Aذج وهA� c�� 6�> (�=0; �?; ..ا�

(8 ا��� c�Aذج !� SQLs ا�ـ B=� ��O�Aا� frmSearchEditEmp

:'A��� ��TAرة

1- ; B) اRذج هA ص ا����c ا�^��� frmSearchEditEmp ��B! �Nر � �$B) فA� يRا�

��4> �" 7;�?; (=� ا�B ذجA� " 8) B' ��O�Aا� " 2- <�6 bRلهA�?�ذج7; .. ا�A� c��5� ��� ��\ ا�,� . !��B ا�� أو !��B رA� �Nف (=� �

8�N �! � �N ���> ��C=! SQLsآ+� Aن هL^! 86 "�7 نL^) لA�?�و ا� ، �)L^' �=) فA� �ه ..!��B ر�N �� ا��=�Bم � ا��?�Aل6�>

;7 ��+!���; ا��?�Aل هRا 6�> =�� : آ

5� ´!7�B" �ا���?Aل 6�> إذن�Public أي ) "!��إ��5 ا�ADAل (�=$�ABن ا� �ذج آ8 ) � �دةوا<O=� �! نL^7; ا� �5�Eدا ..

ة'��ل ا< !� �Eل ا<�=�Bم (=� -3��0���.

SQLs = " Select * FROM Emp Where EmpNum = ' 20 ' "

Page 126: احترف قواعد البيانات فى فيجوال بيسك 6

�ت �6\(=� -4����5� ا�BT7; ا�ـ وو Data Grid ا��A� "��� �Cف (=� . ا���?>� ـ ��" ��CD زر " �Aف '��¡ 7Data Gird; ا�ـ -5 �

�داة �Aذج !" 8) B' ��O�Aف ( =" ا�A� رLا� ��� �Cا�� (8 "8 إ�� �Aذج ـ0ـ � B' ��O�A> " ا��لو6A�?�ا� <�AO�! ;7 Rآ�ةاا� ..

(8 " 7; ا� Aذج ا���?Aل6�> -6B' ��O�Aن " ا�A?' فA�" <�T�7 " � .. 1 �;ء 5�7 '�� 8�Aذج -7 � " 8) B' ��O�Aاآ�ة " ا�Rف (=� ،7; ا�A� <,��1تا< ��آ> !� ا�=0�' .

:وه; .. ا�^L�" 7; ا�Rاآ�ة ا��?�Aل �Aا�$> 6�> ا�4 ولو7=�

أ cursor !���> ا�ـ '=��ه � �Aف ,�7� ��C=! �)�B' RS , Rss(� ةآ+� و! ( " 8�Aذج ا�� -8B' ��O�Aا� " ��y أ ا�O?�ة -Dحآ+� أATو .. � 4!���� 8? �..

7; � ث ا�=��L! �CT 8دوج واآ=\ هRا ا�?AدfrmAddEmpا�CT ��� ا� Aذج Form_Load

<t��! : "� �ÇB �7" و�?� " frmAddEmp " ا� Aذج آAد �O�" هA، ا�?Aد ا�Rي �Aف �?=

7�ت<ا�=E

SQLs = " Select * FROM Emp Where EmpNum = ' 20 ' "

Dim EmpNo As String Sub FillData()

On Error Resume Next

If Not IsNull(RS![FirsName]) Then Text1 = RS![FirsName]

If Not IsNull(RS![FatherName]) Then Text2 = RS![FatherName] If Not IsNull(RS![GrandName]) Then Text3 = RS![GrandName]

If Not IsNull(RS![FamliyName]) Then Text4 = RS![FamliyName] If Not IsNull(RS![EmpNo]) Then Text5 = RS![EmpNo]

y�?=> ا�=; !� ا�ن ا��0LE ��C=!�) y�أ '

EmpNo = Text5

If Not IsNull(RS![Job]) Then Text6 = RS![Job]

End Sub

Page 127: احترف قواعد البيانات فى فيجوال بيسك 6

Private Sub Command1_Click() � �

Text1 = "" Then MsgBox " Please You Must Type Name ", vbCritical+ vbMsgBoxRight, " Error Name "

Exit Sub / 5 � � � � �

Text2 = "" Then MsgBox " Please Type Father Name ", vbCritical+ vbMsgBoxRight, " Error Father Name "

Exit Sub / 5 � � � � �

Text3 = "" Then MsgBox " Please You Must Type Grandfather Name ", vbCritical+ vbMsgBoxRight, " Error Grandfather Name "

Exit Sub / 5 � � � � �

Text4 = "" Then MsgBox " Please Type Family Name ", vbCritical+ vbMsgBoxRight, " Error Family Name "

Exit Sub / 5 � � � � �

Text5 = "" Then MsgBox " Please You Must Type Employee Number ", vbCritical+ vbMsgBoxRight, " Error Employee Number "

Exit Sub / 5 � � � � �

Text6 = "" Then MsgBox " Please Type Job ", vbCritical+ vbMsgBoxRight, " Error Job "

Exit Sub / 5 � � �

� � EmpNo = Text5 Then

GoTo � � 5 1 � ; � � � �

: / 5 � � �----- Here We Use Rss Variable ----- '

SQLs = "Select * From Emp Where EmpNo = ' " & Text5 & " ' "

If Rss.State = adStateOpen Then Rss.Close Rss.Open SQLs, DB, adOpenKeyset, adLockPessimistic If Rss.EOF Then

GoTo � � , � � � / �

: Else MsgBox " Sorry,The Employee Number Is Exist Befor ", vbCritical+ vbMsgBoxRight, " Error " Exit Sub End If

Page 128: احترف قواعد البيانات فى فيجوال بيسك 6

OkAddNEW : ------------------------------------ '

Dont_Check : SaveMsg = MsgBox " Are You Sure To Save This Informations ?", vbQuestion+ vbMsgBoxRight+ vbYesNo, " Save Data "

If SaveMsg = vbYes Then

RS.AddNew

If Not Text1 = " " Then RS![FirsName] = Text1

If Not Text2 = " " Then RS![FatherName] = Text2 If Not Text3 = " " Then RS![GrandName] = Text3 If Not Text4 = " " Then RS![FamliyName] = Text4

If Not Text5 = " " Then RS![EmpNo] = Text5 If Not Text6 = " " Then RS![Job] = Text6

RS.Update

MsgBox " The Information Has Been Saved ", vbInformation+ vbMsgBoxRight, " Saved "

End If

End Sub

Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() PoolConnection

' SQLs = " It is Coming From From Search "

If RS.State = adStateOpen Then RS.Close RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

' Go To This Sub

FillData End Sub

Page 129: احترف قواعد البيانات فى فيجوال بيسك 6

..��ح !��� ��?Aد

� �=�B(� أو1 N ��C=! ;7 ت أ��R7ة ا�?Aد 7; ا�=��(�� ���General �� ؟ ا�=��C هRا ذا

: ا�A4اب �ض ���N ا� �Aف (A0م ��<ا�=��CهRا O=� ��A، �0��! � �� � 1 (=?�ر ر�N ا���A أ�" آ

Aحوه�=O! أ;���ح إذن . �=Oا ا�Rت ه��¢ ��� <t7�� هRا ��.. (4\ ا�� 7��C=ا� ¡O=�) ;?� ��Aا� �N�� .. ��O^=��� 1 .. ا�Rي ��~ �" دا�; ا<�=�Bم �� �����Cو�Aف �A0م �! �

"� ~�� 8) B=ذج ا�A� ;7 ��Aا� �Nر ��C' ��A! �� c���� هRا أ��~! دا�; ان (A0م ����D ؟ ������ (?Aن ا��80 .. �! � ) �Nر ��Aا� ( ��C=! ��]أي�C' �=) �� � ~�� bك�� دا�;ه c��ذا آ�ن ا���N '� إ!� أ .. ا�^�b<�Dو�bR5 ا�$�(0> '�=$�/ ا���$�ة ��� ه�V .. Rوا�=�� ��

�C'� b�، "B! "�ر� !A6Aد ��B آ�نإذا ؟ ..م 1 أ� ا�A6A!� ��O�Aد�N ا�� ه8 هRا.. (=� ا�0 <�� ..=� ���> ا��A�'¡Oف !A6Aد (?� �� إذا!� أ ، ا�A6A! ��Aد�ن�.. �Aف '�5t ر�

���?Aد L6ء أ�����ه � ¡O=�)وا �" " FillData " �ء '?Aن !A5O!" أ�07 آ=��> .. ا�=��" 1 '�5 � ،�B' ;?�� B� � هRا ا�L4ء وا�O��A> ذا�ف �7

... ��?Aد

ة هRا ا�L4ء إذا,�7� ؟ � ��ح ! from_load هRا ا�L4ء (=� ! �دا'" !� �Eل ا� Aذج 7; ا�AOرم �Aد

"' ,��و7B' Aلة � هA0ول !� ا�� �ت REأ ( أي .. ا�4����5� ا�4 ول !� ا�Tل 7; و��A0ا��.. (

; B' ..ث إذا � �$E�=ا�

Dim EmpNo As String

Sub FillData()

On Error Resume Next

If Not IsNull(RS![FirsName]) Then Text1 = RS![FirsName] If Not IsNull(RS![FatherName]) Then Text2 = RS![FatherName] If Not IsNull(RS![GrandName]) Then Text3 = RS![GrandName]

If Not IsNull(RS![FamliyName]) Then Text4 = RS![FamliyName] If Not IsNull(RS![EmpNo]) Then Text5 = RS![EmpNo]

y�?=> ا�=; !� ا�ن ا��0LE ��C=!�) y�أ '

EmpNo = Text5

If Not IsNull(RS![Job]) Then Text6 = RS![Job]

End Sub

On Error Resume Next

Page 130: احترف قواعد البيانات فى فيجوال بيسك 6

آ+� أ� 8�O ا�?Aد

; B) اRرغ إذا ه� " .. FirsName ; B) Not Null ا��80 ا�Rي 7; ا�4 ول " �� (?� ا��7 80 �¢8B6ا��80 إ :

�N FirsName> ا�BAد (��وي= Text1 ا��80 إ8B6 .. أي��ة 7; ا��80 B=���ت !�BوT" 7; ا��A0) ;?�Text1 80م ����� .. و'?Aن ا�

� اأ! ~O� �57 ;N�� " ا�� ا��C=� �07 ��� " 80>ا����0ا�$�(0> �

�0��! ��C=ا� ��هRا ا�=A0) ��Cم ��<، EmpNoآ� ذآ��O=ظ���Aا� �N�� ا<�=�Bم�?; '?Aن ���" � ة ����ت �=8��0

<t��! : ا�أ \�]� .. آAاد �� (=� ���5) ..�07 ذآ� ا�4

) 8) B=د ) 7; زر ا�A?ا� Aت ه����� (8 ا�B=�"�O� ذجA� ;7 يR7> ا��Tإ ) �ت 6����

�' �07C'ا���� ÇB� ء���..

(78; زر B' " �=)فR�<ا� " ا� ا� ا�> هA0' bRم �=�5§>ن�) 6 84� ¡O��� �07 � (8 وه B=�� أي ) update ( 'ت����� (c ا�� .

�ت �1¡���� (8 ا�B' دA7; آ :

� ا�=��C ا�Rي (�=�N�� ¡O ا���A ه � ا�=^ ! .. ؟ Text5 ا��80(��وي EmpNo ا�=��Cه8 : '; �ه � ا��Sال (

: GoTo Dont_Check إ�� إذه\ أي ��B آ�ن إذا

�ح ��� ��V=��� ا<�=�Bم �� 6�L <ـ0ـOـ���(A0م .. ا����8وهRا =Oا�ا� ;���

If Not IsNull(RS![FirsName]) Then Text1 = RS![FirsName]

If Not IsNull(RS![FirsName])

Then Text1 = RS![FirsName]

EmpNo = Text5

RS.AddNew

If EmpNo = Text5 Then GoTo Dont_Check :

End If

Page 131: احترف قواعد البيانات فى فيجوال بيسك 6

;7 Form_Load�Aذج ا�ــ �?�Aل 6�> ا�ـ �1¡

5� أن �1¡��N ) ' ( أي� ) 6�M��B' < ( ا�4�A� <ف (=� '4�ه�5

ا�=; .. ا�Rاآ�ة ا�^L��E �! SQLs ;7 "ل 6�> ا�ـ ا<�=�Bم أو .. 7=� ا�4 وله � �Aف (=� �Aذج ا���y'c !� أ

Private Sub Form_Load() PoolConnection

' SQLs = " It is Coming From Form Search "

If RS.State = adStateOpen Then RS.Close RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

' Go To This Sub

FillData End Sub

' SQLs = " It is Coming From Form Search "

RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

Page 132: احترف قواعد البيانات فى فيجوال بيسك 6

�b 4هRا ا� � ا�Rي آ=) � وL ..�Nء ا�40��! " � ��ت أ�" ������ة ا�B' �=) "��E �! <t��! : ءL6 8� ��تووT/ �7" ا�?Aد ا�� ����B! Sub~ ا�Lا!������ة ا�B=� M�� ! 1 ..

>� ا�=�'�\ وا�= ��M 7; ا���!4> 1 (�5 و�?� !� ��با�!�وهRا . !?�ن وBT" 7; ا�AOرم �Aد�

(8 ا " هRا ا�?Aد ا� 5�,; �� Aذج إذاB'��O�A� "

' Go To This Sub

FillData

Dim EmpNo As String Sub FillData()

On Error Resume Next

If Not IsNull(RS![FirsName]) Then Text1 = RS![FirsName] If Not IsNull(RS![FatherName]) Then Text2 = RS![FatherName] If Not IsNull(RS![GrandName]) Then Text3 = RS![GrandName]

If Not IsNull(RS![FamliyName]) Then Text4 = RS![FamliyName] If Not IsNull(RS![EmpNo]) Then Text5 = RS![EmpNo]

y�?=> ا�=; !� ا�ن ا��0LE ��C=!�) y�أ '

EmpNo = Text5

If Not IsNull(RS![Job]) Then Text6 = RS![Job] End Sub � 0 � � 1 � � � � ; � � � � 5 � � � ; � 0 � � � �

� � Text1 = "" Then

MsgBox " Please You Must Type Name ", vbCritical+ vbMsgBoxRight, " Error Name " Exit Sub / 5 � � �

� � Text2 = "" Then

MsgBox " Please Type Father Name ", vbCritical+ vbMsgBoxRight, " Error Father Name " Exit Sub / 5 � � �

� � Text3 = "" Then

MsgBox " Please You Must Type Grandfather Name ", vbCritical+ vbMsgBoxRight, " Error Grandfather Name "

Exit Sub / 5 � � � � �

Text4 = "" Then MsgBox " Please Type Family Name ", vbCritical+ vbMsgBoxRight, " Error Family Name "

Exit Sub / 5 � � � � �

Text5 = "" Then MsgBox " Please You Must Type Employee Number ", vbCritical+ vbMsgBoxRight, " Error Employee Number "

Exit Sub / 5 � � �

Page 133: احترف قواعد البيانات فى فيجوال بيسك 6

� � Text6 = "" Then

MsgBox " Please Type Job ", vbCritical+ vbMsgBoxRight, " Error Job " Exit Sub / 5 � � �

� �

EmpNo = Text5 Then GoTo

� � 5 1 � ; � � � �: / 5 � � �

----- Here We Use Rss Variable ----- ' SQLs = "Select * From Emp Where EmpNo = ' " & Text5 & " ' "

If Rss.State = adStateOpen Then Rss.Close Rss.Open SQLs, DB, adOpenKeyset, adLockPessimistic If Rss.EOF Then

GoTo OkAddNEW : Else MsgBox " Sorry,The Employee Number Is Exist Befor ", vbCritical+ vbMsgBoxRight, " Error " Exit Sub End If

OkAddNEW :

------------------------------------ ' Dont_Check :

SaveMsg = MsgBox " Are You Sure To Save This Informations ?", vbQuestion+ vbMsgBoxRight+ vbYesNo, " Save Data "

If SaveMsg = vbYes Then

RS.AddNew

If Not Text1 = "" Then RS![FirsName] = Text1

If Not Text2 = "" Then RS![FatherName] = Text2 If Not Text3 = "" Then RS![GrandName] = Text3 If Not Text4 = "" Then RS![FamliyName] = Text4

If Not Text5 = "" Then RS![EmpNo] = Text5 If Not Text6 = "" Then RS![Job] = Text6

RS.Update

MsgBox " The Information Has Been Saved ", vbInformation+ vbMsgBoxRight, " Saved "

End If

End Sub

Private Sub Command2_Click() Unload Me End Sub

Page 134: احترف قواعد البيانات فى فيجوال بيسك 6

::: ¡Oل إ��E �! وع��أ( ا�<�A0 ¡Oا�� Save = � ;?� ي (��"ـ0ـRذج ا�A �� 8

"frmEditUsers " إ�� ا� Aذج ا�Rي ا�" إذه\

ا� Aذج �?; (V� �5t 7; ��§> ا�=���اL! �CT �CTدوج ��� ا��

Private Sub Form_Load )( PoolConnection

' SQLs = " It is Coming From Form Search "

If RS.State = adStateOpen Then RS.Close RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

' Go To This Sub

FillData End Sub

Page 135: احترف قواعد البيانات فى فيجوال بيسك 6

(8 ا��=^ !�� و! � ا������ت "� B8 7; هRا ا� Aذج B' ذجA� " ;�� :ا�=

�1ت��آ> ا<ا�=0�ء ا� Aذج !� -�'.

7=� 6 ول -��! .ا��=^

�ر -��ت ا��=^ م إ6�����ل ا�Eم '�ك !� إد 7�رغ ا��80 و�.

ة !A6Aد ��~ ا����; ما�� ا��=^ أن ��� �Vا�=�� -�� �Aف !A6Aد آ�ن إذا ، و7; ا�0� <���ت!A6Aد ا��1 هRا �ن'�5t �" ر����� ة ا���N ;7 .

- ¡O� ;7 ت����� ةا��� .ا������ت!/ .. ا�0

��! (8 ا��=^B' ةR7���> هRا ا�?Aد 7; �=?� �N ..

Page 136: احترف قواعد البيانات فى فيجوال بيسك 6

Dim UserNa As String � � �

� 0 � � � � 1 �

() On Error Resume Next

If Not IsNull(RS![UserName]) Then Text1 = RS![UserName]

UserNa = Text1

If Not IsNull(RS![Password]) Then Text2 = RS![Password]

<7�T>ا <���D '

If RS![GAdd] = True Then Check1.Value = True Else Check1.Value = False End If 8) B=ا� <���D '

If RS![GEdit] = True Then Check2.Value = True Else Check2.Value = False End If ��! ' ���D> إ���ء ا��=^

If RS![GCreateUser] = True Then Check3.Value = True Else Check3.Value = False

End If <��� ' ���D> ا�$

If RS![GPrint] = True Then Check4.Value = True Else Check4.Value = True End If / 5 � � � �

� 0 � � 1 � � � � ; � � � � # � ; � 0 � � � �

� � Check3.Value = True Then

Check1.Value = True Check2.Value = True Check4.Value = True Check3.Value = True

/ � � �

Check1.Value = False Check2.Value = False Check4.Value = False Check3.Value = False

/ 5 �

� � / 5 � � � �

Page 137: احترف قواعد البيانات فى فيجوال بيسك 6

Private Sub Command1_Click() � � Text1 = "" Then

MsgBox " Sorry, You Must Type Username ", vbCritical+ vbMsgBoxRight, " Error " Exit Sub / 5 � � �

� � Text2 = "" Then

MsgBox " Sorry, You Must Type Password ", vbCritical+ vbMsgBoxRight, " Error " Exit Sub / 5 � � �

� � UserNa = Text1 Then

GoTo Dont_Check: / 5 � � �SQLs = "Select * From Users Where UserName = ' " & Text1 & " ' "

� � Rss.State = adStateOpen Then Rss.Close

Rss.Open SQLs, DB, adOpenKeyset, adLockPessimistic � �

Rss.EOF Then

GoTo SaveOK : / � � � MsgBox " Sorry,The Username Is Exist Befor ", vbCritical+ vbMsgBoxRight, " Error " Exit Sub / 5 � � �

SaveOK : Dont_Check: SaveMsg = MsgBox " Are You Sure To Update This Informations ?", vbQuestion+ vbMsgBoxRight+ vbYesNo, " Update Data "

� � SaveMsg = vbYes Then

RS.AddNew ' RS![UserName] = Text1 RS![Password] = Text2 <7�T>ا <���D '

� � Check1.Value = True Then

RS![GAdd] = True

/ � � � RS![GAdd] = False / 5 � � �8) B=ا� <���D '

� � Check2.Value = True Then

RS![GEdit] = True

/ � � � RS![GEdit] = False / 5 � � �

Page 138: احترف قواعد البيانات فى فيجوال بيسك 6

��! ' ���D> إ���ء ا��=^

� � Check3.Value = True Then

RS![GCreateUser] = True

/ � � � RS![GCreateUser] = False / 5 � � �<��� ' ���D> ا�$

� �

Check4.Value = True Then RS![GPrint] = True

/ � � � RS![GPrint] = False / 5 � � � RS.Update MsgBox " The Information Has Been Saved ", vbInformation+ vbMsgBoxRight, " Saved "

/ 5 � � � / 5 � � � � � 0 � � 1 � � � � ; � � � � 5 � � � ; � 0 � � � � Unload Me / 5 � � � � � 0 � � 1 � � � � ; � � � � 5 � # � ; � 0 � � � � On Error Resume Next RS.MoveLast FillData / 5 � � � � � 0 � � 1 � � � � ; � � � � 5 � � � ; � 0 � � � � On Error Resume Next RS.MoveNext If RS.EOF Then RS.MoveLast Beep End If FillData / 5 � � � � � 0 � � 1 � � � � ; � � � � 5 � � � ; � 0 � � � � On Error Resume Next RS.MovePrevious If RS.BOF Then RS.MoveFirst Beep End If FillData / 5 � � � �

Page 139: احترف قواعد البيانات فى فيجوال بيسك 6

:��ح ا�?Aد �� � 7��C=! � :> وهA(ا 7; ا�

ة هRا ,�7��C=ما< ا� �ظ ���� ا�=�^O=� �=' ;?� "��� <4��B8 ا���وط ا�8��0، و�=� <��� .. ا��; 1 دا�; �5� ا<�=�Bم

�ص ���C=!Rss ا�ـ E Aه �0��! " � � ¢ �' ��,� RE � آ�Eاول ة هRا ا���4تا�4,� و7

;��=�� :ا�=��C هA آ

� �A0م �! � (?Aن ، (A0م ���=��ك إ�� ا��84 ا�$�Aب cursorا�?Aر�� ، �<�=�Bم� ! و� �ت ه � '?� !�?�> ا����� 8) B' "�7 ذجA� � ) أيو(4\ ��� � ا�=^ م !=Rss ، �)��Cـ �

RS,Rss ) ( <$�ة ��� ��آ��ا� �=) ;?� ا�ـ cursor ���D 8?�� ت����� .. و��(�ن ا�

(�O � "��� 8ض ا��1 B=�� ��B! ا�� <��� (A0م ا��^� �?=! B7" ali " �م ا��=^ م �=b��C إ�� Nو" Sys " > ا�ـ�ن 6A?=7 sql ل���8 ا�+� ���

ة و7; هbR ا����> �Aف (�6/ � � ا�A6A! ��] ��Sد Sys ا�� أ�" و�1¡�� cursor 7; ا�0 <�0��OD .. � ذا'5�� <�?�! ��=B' bRوه ..

(8 ا���O�A �8 هbR ا��?�> 7; إذنB' ذجA� 8أي أو) B=ا� <�D�E "�7 6A) ذجA� �07 �)��C=! /T4\ و)RS,Rss

��أ� ) � L6ء 6���� �FillData ءL4ا ا�ـRل ه�E �! sub �?)�B'� ة إ�� ��ة ا��A0ل !� ا�0

�ت 7;ا��80���� Text ا�ـ �?; '�5t ا�

� 0 � � 1 � � � � ; � � � � 5 � � � ; � 0 � � � � On Error Resume Next RS.MoveFirst FillData / 5 � � � �

� 0 � � 1 � � � � � � � � � � � � � � PoolConnection SQLs = "Select * FROM Users" � �

RS.State = adStateOpen Then RS.Close RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

FillData

/ 5 � � � �Dim UserNa As String

Select * From Emp Where Ename = ' Sys ';

Sub FillData()

Page 140: احترف قواعد البيانات فى فيجوال بيسك 6

<t��! : ف (=� ��حAاد�Aة ا�آ ) �07 ا�4

"ولا��84 ا� "زر

ث E$� ا�=� إذا� .. ��C=!اول ا��84 ا�=��; إ�� cursorك ا�ـ �� وا���4تا�4

�تا��ض�����ت إ�� ا��A0ل ( .. ا����� FillData ا��; هA ) ا'�8 ���L4ء ا�^�ص ��Bض ا�

" ا��84 ا����M " زر

ث E$� ا�=� إذا� .. ��C=! اول ا��84 ا����M إ�� cursor ��ك ا�ـ وا���4تا�4

�84أول ا�Cursor ��S آ�ن ا�ـ إذا

��C=! اول ولا��84 ا� إ�� cursor ��ك ا�ـ وا���4تا�4 ر ADت أD" \�� "

�تأ�����ت إ�� ا��A0ل.. ��ض ا����� ا'�8 ���L4ء ا�^�ص ��Bض ا�

" ا��84 ا�=��; " زر

��C=! اول ا��84 ا�=��; إ�� cursor ��ك ا�ـ وا���4تا�4

On Error Resume Next RS.MoveFirst FillData

On Error Resume Next RS.MovePrevious

If RS.EOF Then

RS.MoveFirst

Beep

End If FillData

On Error Resume Next RS.MoveNext

Page 141: احترف قواعد البيانات فى فيجوال بيسك 6

:ا�8 ا�=��;....... #Cursor 84� �E آ�ن ا�ـ إذا

8B6ا�ـ إCursor 84� �E#

ر ADت Dا" \�� " �تأ�����ت إ�� ا��A0ل.. ��ض ا����� ا'�8 ���L4ء ا�^�ص ��Bض ا�

" ��Eا�ا��84 "زر

��C=! �4ت�اول وا� ��Eا��84 ا� إ�� cursor ��ك ا�ـ ا�4

::: ¡Oل إ��E �! وع��أ( ا�<�A0¡Oا�� Save= � ;?� ذجـ0ـA �� 8"��) يRا�

" frmLogin " إ�� ا� Aذج ا�Rي ا�" إذه\

اL! �CT �CTدوج ��� ا�� ا� Aذج �?; (V� �5t 7; ��§> ا�=���

If RS.EOF Then

RS.MoveLast

Beep

End If FillData

On Error Resume Next RS.MoveLast

FillData

Page 142: احترف قواعد البيانات فى فيجوال بيسك 6

�م "� B8 7; هRا ا� Aذج t ل ��� ا�AE :ا�=��; " �Aذج '�8�4 ا��1ت��آ> ا<ا�=0�ء ا� Aذج !� -�'. - �=7��! 6 ول ا��=^. �ر -��تا��=^ م إ6�����ل ا�Eم !� إد 7�رغ '�ك ا��80 و�. ةأن��� �Vا�=�� -�� �Aف ��~ !A6Aد آ�ن إذاو، ا�� ا��=^ م ا����; !A6Aد 7; ا�0

� <�� ة A6A! ��] ;7د هRا ا��1 �ن'�5t �" ر���N ت����� .ا�- ¡Oم� .ا�=��Cات 7; ا��ور>وآ� ا�� ا�=�^

��> هRا ا�?Aد 7; ��R7ة '��4=?� �N لAE :8 ا�

� 0 � � 1 � � � � ; � � � � 5 � � � ; � 0 � � � �

� � Text1 = "" Or Text2 = "" Then

MsgBox " Sorry,You Must Type The Username And Password ", vbCritical+ vbMsgBoxRight, " Error Login " Exit Sub / 5 � � �

SQLs = "Select * From User Where UserName = ' " & Text1 & " ' And Password = ' " & Text2 & " ' "

� � RS.State = adStateOpen Then RS.Close

RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

� �

RS.EOF Then MsgBox " Sorry, The Username And Password Is Wrong ! ", vbCritical+ vbMsgBoxRight, " Error Login " / � � �' Save This Inforamtion UserNames = Text1 UserPassword = Text2 ' Long Main Set RS = Nothing Set DB = Nothing MDIForm1.Show Unload Me / 5 � � �/ 5 � � � �

Page 143: احترف قواعد البيانات فى فيجوال بيسك 6

:آAاد ح ا���

��=�آ !� '�M0 ا���ط وه; ، ا���6If<�W�> ا�ـ � ا� ا�> ! " أو "B ; ' وه; Orوه � ا�=^

� (?Aن ا��80 ا�أي! 7�رغ أو ول � ;��� ا�����>أ��5 ا�+ � Msgbox

: ��� ' �ا��?�Aل6�> �! � � ��B=ا���! ولا��80 ا� (��وي ا�� ا��=^ مأن ���ط 6 ول ا��=^

ا��80 ا�+��; يو� '� ا��ور>آ� و

��S8 ا�Dه8 وCursor 84 إ��� �E# ؟ b و�� (4 ا��ور E$� > ا��=^ م وآ��ن � � ر���> �أ��5

Vذ� ��]

� 0 � � 1 � � � � ; � � � � 5 � � � ; � 0 � � � �Unload Me / 5 � � � � � 0 � � 1 � � � � � � � � � � � � � � PoolConnection / 5 � � � � � 0 � � 1 � � � � � � � 1 � � � � � � � � � � � � � , � � 0 0 , � � 5 1 � � � � � �

KeyAscii = 13 Then Text2.SetFocus / 5 � � �/ 5 � � � � � 0 � � 1 � � � � � � � 1 � � � � � � � � � � � � � , � � 0 0 , � � 5 1 � � � � � �

KeyAscii = 13 Then Command1_Click / 5 � � �/ 5 � � � �

� � Text1 = "" Or Text2 = "" Then

MsgBox " Sorry,You Must Type The Username And Password ", vbCritical+ vbMsgBoxRight, " Error Login " Exit Sub / 5 � � �

SQLs = "Select * From User Where UserName = ' " & Text1 & " ' And Password = ' " & Text2 & " ' " � �

RS.EOF Then MsgBox " Sorry, The Username And Password Is Wrong ! ", vbCritical+ vbMsgBoxRight, " Error Login " / � � �

Page 144: احترف قواعد البيانات فى فيجوال بيسك 6

��C=! ��� زرAا�� ¡Oإ�Aا� � ا� � 1 ا��A6 80د 7; �

��C=! وردA�� 2 ا��80 � � ا� � ا�A6Aد 7;إ�O¡ ا��Aزر �

8B6إ ��C=! اول .. و[��bا<�=�Bم!� ����ت ) 7�رغ ( �"�N> 1 وا���4تا�4

8B6إ ��C=! >تا����� ة ا��� [�� !�ACل ��;ء ) 7�رغ ( '��ل �0

..ا� Aذج ا��,��; � � أ��5

;OEذج أA� ;�� " '�8�4 ا� AEل "ا� Aذج ا��

ث ا�ـ �KeyPress ،ا� R�O ' �=) اRوه ��� �Cا�� ا�?��AردأزرارآAاد � �'�� أ هKeyAscii bRا�ـ Oم ا��Nر) ��B! �Nرد �" رA��ح 7; ا�?�=O! 8آ ( ..

. KeyAscii 7; ا�ـ 13رN�Enter " �=!+8 زر ا<

ا�!�وهRا

�8 ا�=��; إ) ��= �CT ا��=^ م ��� زر ا<إذا (� ��� ( ث ��� آ�L�� Vر ا'�8 �

Text2.SetFocus !+8 ) ا�=�آ�?' ��� L��E# y �80 ( !+8 (?� أن (A0م �B�E# 8 أو

�Nا��80 ر ��� L8 ا�=�آ�B4) 2 " أي أوا� /TA� مA0' 80� رL� 80 =�� <0)�$ا� bRم ه و'�=^ .. A0ل � ��� ا���=ا<

: '�8�4 ا� AEلوهRا هA ا�?Aد ا�?�!8 ا� 5�,; � Aذج

' Save This Inforamtion UserNames = Text1

UserPassword = Text2

' Long Main Set RS = Nothing

Set DB = Nothing

MDIForm1.Show

Unload Me � 0 � � 1 � � � � � � � 1 � � � � � � � � � � � � � , � � 0 0 , � � 5 1 � � � � � �

KeyAscii = 13 Then Command1_Click / 5 � � �/ 5 � � � �

� � KeyAscii = 13 Then

Command1_Click

Page 145: احترف قواعد البيانات فى فيجوال بيسك 6

� 0 � � 1 � � � � ; � � � � 5 � � � ; � 0 � � � �

� � Text1 = "" Or Text2 = "" Then

MsgBox " Sorry,You Must Type The Username And Password ", vbCritical+ vbMsgBoxRight, " Error Login " Exit Sub / 5 � � �

SQLs = "Select * From User Where UserName = ' " & Text1 & " ' And Password = ' " & Text2 & " ' "

� � RS.State = adStateOpen Then RS.Close

RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

� �

RS.EOF Then MsgBox " Sorry, The Username And Password Is Wrong ! ", vbCritical+ vbMsgBoxRight, " Error Login " / � � � ' Save This Inforamtion UserNames = Text1 UserPassword = Text2 ' Long Main Set RS = Nothing

Set DB = Nothing MDIForm1.Show Unload Me / 5 � � �/ 5 � � � �

� 0 � � 1 � � � � ; � � � � 5 � � � ; � 0 � � � �Unload Me / 5 � � � � � 0 � � 1 � � � � � � � � � � � � � � PoolConnection / 5 � � � � � 0 � � 1 � � � � � � � 1 � � � � � � � � � � � � � , � � 0 0 , � � 5 1 � � � � � �

KeyAscii = 13 Then Text2.SetFocus / 5 � � �/ 5 � � � � � 0 � � 1 � � � � � � � 1 � � � � � � � � � � � � � , � � 0 0 , � � 5 1 � � � � � �

KeyAscii = 13 Then Command1_Click / 5 � � �/ 5 � � � �

Page 146: احترف قواعد البيانات فى فيجوال بيسك 6

::: ¡Oل إ��E �! وع��أ( ا�<�A0 ¡Oا�� Save= � ;?� ي (��"ـ0ـRذج ا�A �� 8

" frmPrintReport " إ�� ا� Aذج ا�Rي ا�" إذه\

�� ا� Aذج �?; (V� �5t 7; ��§> ا�=���اL! �CT �CTدوج ��� ا

Page 147: احترف قواعد البيانات فى فيجوال بيسك 6

��> "� B8 7; هRا ا� Aذج �W ��O�A! / ��A! " ;�� :ا�=�ت�=0�ء إ -���� ة ا�����ـ ( ا<'��ل �0� <D�E ADODC (. - ��O�Aول ا� 6 �=7EMP. 8 !� 6 ول ا���O�A ا�=�Bم -!�7; � ث ا�=�Cا�O��A>و ا���Nو ����1 آ �� . �إ�5�ر -���ت 7; ��?> ا��Bض ا�� DataGrid . - <���W�)�0' ) �)�0=داة ا�� ! DREmp ( �0��! b� D يRا�. د ا���4تإ�5�ر -� .

:�W frmPrintReport(0> �8 ا� Aذج

�! ��Aا� �� c�����7 ����A0)cم ا��=^ م �A=ل ا��E )8!����1 آ� - �Nا�� - <O��Aا� (

�?> ا��Bض 7; �ا���ء¢� (=� ��ض DataGrid <���W م ه� (�=$�/ ا��=^B�و����C ��� ا�Lر� ������> " ا��Bوض ��W " ، ��> �^� وا��W ة أو أ�^�ص�

أ �?=��> إذن� ا�آAاد � ) ����C ��� ا� Aذج L! �CTدوج �?; .. 7; هRا ا� Aذج ا�4� �N

�R7ة ا� Aذج ��?Aد � V� �5t'

<���ت ا�^�ص � آAد ا<�Aف �A0م �?=���� ة ا�����داة'��ل �0 ADODC ، ول و6 �=7�ت���� 7; ا���O�A و��ض ا�)�N � DataGrid ا� ا'

Page 148: احترف قواعد البيانات فى فيجوال بيسك 6

��ح ا�?Aد

� �� 8�N �! ���ـ '��1تإ��آ> آ � <D�E ADO ، � ! ا�داةو�?� ه � 7; هRا ا� Aذج ا�=^ADODC

C�=و�� bRداةا8 ه�D��ت ا�^����� � " آ+��ا '�B(� ا<!� 1� > �A0ا� ا� ¢ �ل ا�Rي '��'"' ,�7� ة !� �Eل إ إ���ء!� �Eل ا�?Aد ا����M '�=$�/ ،و!�� ADODC ا�داة'��ل !/ ا�0

On Error Resume Next Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\Data.mdb;Persist Security Info=False" SQLs = "SELECT FirsName+' '+FatherName+' '+GrandName+' '+FamliyName As FullNames , " &_ "EmpNo,Job FROM Emp" Adodc1.RecordSource = SQLs Set DataGrid1.DataSource = Adodc1 DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False lblCount.Caption = " Number The Records Is" & " " & Adodc1.Recordset.RecordCount & " " & "Record" Adodc1.Refresh

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\Data.mdb;Persist Security Info=False"

Page 149: احترف قواعد البيانات فى فيجوال بيسك 6

ا���?Aل�1¡ 6�>

� B6 �� (=� أي ( !� �Eل 6�> ا�=�Bم ا�� ةه ! 7; ا��1 آ�!T8/ (=� وا<�=�Bم � �b وهA آ� �Aد وه;� �Aف (�5t ا��1 ��� ���8 ا�+�ل �FullNames ( bR5 إ��" أ�

. ali jassim ali albasri ا�$�(0> ة ا��اد 6� ;7 �5BAد وه; وا� �Ãإ� �د ه; As >آ��

�ت وه; Adodc1.RecordSource ا� ا�> ���� ر ا��! ; B' ،ت� (=� أ(!� ( أي����� )�6\ ا�

�� ��ت أ�" ��?Aل7 � 7; ا�ـ ه �����Aف و. !� 6 ول ا���O�Aا<�=�Bم (?Aن !� !� ر ا� ¡O=�'ا�داة ADODC �5� "�A�4ت ا��������� .

SETا� )�N � ا'�� DataGrid 8B6ت إ��� ر ���! DataSource )�N � �0> ا�(��وي ا� ا' �5��� y��� ;=ا�داةا� adodc .أيB=ت ا�=; ا������ �Aف (� ه� ا�داة �5� وا'�� ytOy ا� ���Bض)�N ��ت 7; ��?> ا��Bض ( .. �� ا'���� .) �?; (=� ��ض ا�

<��6 <�D�E )�N ��' <7��� /�$=�V .. 7; ا� ا'Tإ )�N � !� �Eل ا� ا') و�?� 6 84� . ;7� �=B$�8 هbR ا�^��D> و N اRه � +) ��� 5� أ� �<�N False �=) 1 ;?�<7�Tة 7; إ ) �ت 6����

c����> ا��

$� <�D� (c ��� ا���84 �ه� وه; ـوآV�R هbR ا�^�'

bRا�داةه lblCount.Caption ;7 8Dا� Aه � آ y إذا ��� ا�" 7; ا�=���[� و�?� 8ـ�� ا�0�رئ أR=';Eآ�

)) �! b���C' �' Label9 إ�� lblCount ((

SQLs = "SELECT FirsName+' '+FatherName+' '+GrandName+' '+FamliyName As FullNames , " &_ "EmpNo,Job FROM Emp" Adodc1.RecordSource = SQLs

SQLs = "SELECT FirsName+' '+FatherName+' '+GrandName+' '+FamliyName As FullNames , "

Set DataGrid1.DataSource = Adodc1

DataGrid1.AllowAddNew = False

DataGrid1.AllowUpdate = False

lblCount.Caption = " Number The Records Is" & " " & Adodc1.Recordset.RecordCount & " " & "Record" Adodc1.Refresh

Page 150: احترف قواعد البيانات فى فيجوال بيسك 6

O �د �ـA?�5 أ8 ا�O�� �+آ:

8B6إ ������T<7 أ و & " � د ا���4ت " (��وي = ) ����E8;اا� � ا� ( ا�?�! " " Adodc1.Recordset.RecordCountدرج � � ا� ا�> أ & و

د ا���4ت ا�Rي ـ'وهbR ا� ا�> � � � /6�yـtـOا�=ـ � Adodc ا�داة �5 V�Rأوآ �T! <7��& " " & " 84� "

� أي � 8� : ا�$�(R5� b <0ا<�=�Bم�?Aن �?8 ا���

) Records Number The Records Is 10 Record /( ��4ت/�84 10 ا���4ت � د

lblCount.Caption = " Number The Records Is" & " " & Adodc1.Recordset.RecordCount & " " & "Record"

Page 151: احترف قواعد البيانات فى فيجوال بيسك 6

�N; ا�?Aد� <�?'

�شإ أي ر�7ش�8 إB� ت������� ) 8B6 V�Rا�ـ وآ Cursor ;7 84أول� (

8� � هRا ��( +) : ا�=��; 7; هRا ا� Aذج 7; �

إ�5�ر (=� ) ا�O��A> ا���N ا��1 (� ا���c 7; ا��A0ل -)�N ��ت 7; ا� ا'���� . ا� .�=�Bم �Change¹ ا�=A����Cف ��=^ م � ث -

�W(0> �8 ا�4�bR5� < ا�$�(0>

� (?=\ ا��=^ م -! ة (=� !A6Aدة>آ� !� ��فأول !� > آ�أول � ��7; ا�05��=�BإTأول أو ! ا�Nمرا� !� ر�N دةA6Aء !� ا��أول أو.. ! ا�� �=� (=� ا��

<�O�'ة ���ت ا�����> ا�A6Aدة ���8BO 7; ا�0�����ت إ�� ا����� !! ا�

L! �CTدوج Text1ا�CT ��� ا��80

�R7ة ا�?Aد 'ـOـ=��?; � V� ،'و� ث ا�ـ أ�ــVآ� ��� Change

Adodc1.Refresh

Page 152: احترف قواعد البيانات فى فيجوال بيسك 6

��> هRا ا�=?� �N دA? ;7���C=ث ا� � y�?=��

� �

Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" Then SQLs = "Select FirsName+' '+FatherName+' '+GrandName+' '+FamliyName As FullNames , " & _

"EmpNo,Job FROM Emp"

Adodc1.RecordSource = SQLs Adodc1.Refresh

lblCount.Caption = " Number The Records Is " & " " & Adodc1.Recordset.RecordCount & " " &

"Record/Records"

Exit Sub / 5 � � �

SQLs = "Select FirsName+' '+FatherName+' '+GrandName+' '+FamliyName As FullNames , " & _ "EmpNo,Job FROM Emp" & _ "where FirsName Like '" & Text1 & "%'AND FatherName Like '" & Text2 & "%'AND GrandName Like '" & Text3 & "%'AND FamliyName Like '" & Text4 & "%'AND EmpNo Like '" & Text5 & "%'AND Job Like '" & Text6 & "%'" Adodc1.RecordSource = SQLs Adodc1.Refresh lblCount.Caption = " Number The Records Is " & " " & Adodc1.Recordset.RecordCount & " " & "Record/Records"

Page 153: احترف قواعد البيانات فى فيجوال بيسك 6

��� :��ح ا�?Aد ��?8 !

���N إ�� ��د ( 0A?ا�.. � :: ولا� ! " " ?Aن ا��A0ل آ��5 7�ر[��'�

;�� (=� ' R�O ا�?Aد ا�=

�� (?Aن ا��80 !�أه ! 7�ر[�� (ا���دسوا�^�!~ وا��ا�/ وا�+��c وا�+��; و ولا�� R�O ' �= : ا�=��;ا�!�

��B=ا� �� � � 8!�" (�=�B6 ¡Oاو adodc ا�داة إ�� ا<�=�Bم � أ وا�O��A>وا���N وا��1 آ���<�0

� �N 8Bشإ أي ر�7ش�B� ت������� ) 8B6 V�Rا�ـ وآ Cursor ;7 84 ا�ول�ا� (

د ا���4ت � � أ��5� .. <� '� ��ح �W(0> ا�=�آ�Nو

� ا�0�� أ!;��� 1 :: ا�+! B7 ا���ط M�=) ، نA?) �! � � !AC�! R�O ' �=) ��Bل� ا��A0ل أ�

85 6 ا . ا�!�هRا � A8 وه)AW ~�� دA?ا ا�Rج إ��( �07 ه�=� Lد إ�� .. '�آ�A?ء ا�L4� فA��م أ� ة �N:

sql 6�> ا�ـ أو1

: ' � ��� ا�=��; >ا�4��,�> وا�� ا�4 و ا�با�� و ا��1 � � =��Bا�B�5ا�� ا�BT; 7; ود وهA� "ا� ���87

FullNames ، و��B=د ا�A� �! ��م ا���O�A أ � Nور�,��Aا� �!��O�Aول ا� : ���ط 6��7" ا�=?�y ا��1! "���7" ا�=?�y ا�با�� و 1 (�! "�� 7; [ا�!�و... �� إ 2 (�)<�A5�ا� <

� � Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" Then

SQLs = "Select FirsName+' '+FatherName+' '+GrandName+' '+FamliyName As FullNames , " & _ "EmpNo,Job FROM Emp"

Adodc1.RecordSource = SQLs

Adodc1.Refresh

lblCount.Caption = " Number The Records Is " & " " & Adodc1.Recordset.RecordCount & " " & "Record/Records"

Exit Sub / 5 � � �

SQLs = "Select FirsName+' '+FatherName+' '+GrandName+' '+FamliyName As FullNames , " & _ "EmpNo,Job FROM Emp" & _ "where FirsName Like '" & Text1 & "%'AND FatherName Like '" & Text2 & "%'AND GrandName Like '" & Text3 & "%'AND FamliyName Like '" & Text4 & "%'AND EmpNo Like '" & Text5 & "%'AND Job Like '" & Text6 & "%'"

Page 154: احترف قواعد البيانات فى فيجوال بيسك 6

�� c��ا ; B) اRي ا��1 هRا� "��) �! <�ن (?Aن أ (4\ أ�"'B ; ' %وهbR ا��B!> ا��1 �� ..L6ء ا�?�>

5" �� (=� ���5� ��?Aلو��N; 6�> ا�ـ ���=! ..

7; � ث ا�=���C ( ا�?Aد ا����M وBT" 7; 6�/ ا��A0ل ا��� Change (

� "ار6/ إ�� ��§> ا�=��� و� د ا�Lر W<�� " Command1

��> .. ا�CT ��� ا�Lر L! �CTدوج �$�� ا�Rي � �داة ا�= ;?��)�0�A0م �?=��> ا�?Aد ا�^�ص ��0��! "��=� � N . دA?ا ا�Rاآ=\ ه

FirsName Like ' " & Text1 & " % '

Text1 ,Text2,Text3,Text4,Text5,Text6

Set DREmp.DataSource = Adodc1 DREmp.Show 1

Page 155: احترف قواعد البيانات فى فيجوال بيسك 6

��ح ا�?Aد

�تا� ������=�0(� ا�^�ص �� ر ا�� ) �B6وي" إ��ت (��� ) Adodc ا�داة !� ر ��

show 1 .. ��� دا,�أي .. A7ق ا�4�/" إ�B6 و�ا�=�0( أ��5

� !� هRا ا� Aذج �=إوه?Rا �5 ..

��> !4�A> !� ا���O�A "وهRا هA ا�?Aد ا�?�! � 8Aذج �W / ��A! "

Set DREmp.DataSource = Adodc1

DREmp.Show 1

Page 156: احترف قواعد البيانات فى فيجوال بيسك 6

� 0 � � 1 � � � � ; � � � � 5 � � � ; � 0 � � � �Set DREmp.DataSource = Adodc1 DREmp.Show 1 / 5 � � � � � 0 � � 1 � � � � � � � � � � � � � � On Error Resume Next Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\Data.mdb;Persist Security Info=False" SQLs = "SELECT FirsName+' '+FatherName+' '+GrandName+' '+FamliyName As FullNames , " &_ "EmpNo,Job FROM Emp" Adodc1.RecordSource = SQLs Set DataGrid1.DataSource = Adodc1 DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False lblCount.Caption = " Number The Records Is" & " " & Adodc1.Recordset.RecordCount & " " & "Record" Adodc1.Refresh / 5 � � � �

� 0 � � 1 � � � � � � � 1 � � ; � � 5 � � � �

� � Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" Then

SQLs = "Select FirsName+' '+FatherName+' '+GrandName+' '+FamliyName As FullNames , " & _

"EmpNo,Job FROM Emp"

Adodc1.RecordSource = SQLs Adodc1.Refresh

lblCount.Caption = " Number The Records Is " & " " & Adodc1.Recordset.RecordCount & " " &

"Record/Records"

Exit Sub / 5 � � �

SQLs = "Select FirsName+' '+FatherName+' '+GrandName+' '+FamliyName As FullNames , " & _ "EmpNo,Job FROM Emp" & _ "where FirsName Like '" & Text1 & "%'AND FatherName Like '" & Text2 & "%'AND GrandName Like '" & Text3 & "%'AND FamliyName Like '" & Text4 & "%'AND EmpNo Like '" & Text5 & "%'AND Job Like '" & Text6 & "%'" Adodc1.RecordSource = SQLs Adodc1.Refresh lblCount.Caption = " Number The Records Is " & " " & Adodc1.Recordset.RecordCount & " " & "Record/Records"

/ 5 � � � �

Page 157: احترف قواعد البيانات فى فيجوال بيسك 6

� 0 � � 1 � � � � � � � 1 � � ; � � 5 � � � �

� � Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" Then

SQLs = "Select FirsName+' '+FatherName+' '+GrandName+' '+FamliyName As FullNames , " & _

"EmpNo,Job FROM Emp"

Adodc1.RecordSource = SQLs Adodc1.Refresh

lblCount.Caption = " Number The Records Is " & " " & Adodc1.Recordset.RecordCount & " " &

"Record/Records"

Exit Sub / 5 � � �

SQLs = "Select FirsName+' '+FatherName+' '+GrandName+' '+FamliyName As FullNames , " & _ "EmpNo,Job FROM Emp" & _ "where FirsName Like '" & Text1 & "%'AND FatherName Like '" & Text2 & "%'AND GrandName Like '" & Text3 & "%'AND FamliyName Like '" & Text4 & "%'AND EmpNo Like '" & Text5 & "%'AND Job Like '" & Text6 & "%'" Adodc1.RecordSource = SQLs Adodc1.Refresh lblCount.Caption = " Number The Records Is " & " " & Adodc1.Recordset.RecordCount & " " & "Record/Records"

/ 5 � � � �� 0 � � 1 � � � � � � � 1 # � ; � � 5 � � � �

� � Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" Then

SQLs = "Select FirsName+' '+FatherName+' '+GrandName+' '+FamliyName As FullNames , " & _ "EmpNo,Job FROM Emp"

Adodc1.RecordSource = SQLs Adodc1.Refresh

lblCount.Caption = " Number The Records Is " & " " & Adodc1.Recordset.RecordCount & " " & "Record/Records"

Exit Sub / 5 � � �

SQLs = "Select FirsName+' '+FatherName+' '+GrandName+' '+FamliyName As FullNames , " & _ "EmpNo,Job FROM Emp" & _ "where FirsName Like '" & Text1 & "%'AND FatherName Like '" & Text2 & "%'AND GrandName Like '" & Text3 & "%'AND FamliyName Like '" & Text4 & "%'AND EmpNo Like '" & Text5 & "%'AND Job Like '" & Text6 & "%'"

Adodc1.RecordSource = SQLs Adodc1.Refresh

lblCount.Caption = " Number The Records Is " & " " & Adodc1.Recordset.RecordCount & " " & "Record/Records" / 5 � � � �

Page 158: احترف قواعد البيانات فى فيجوال بيسك 6

� 0 � � 1 � � � � � � � 1 � � ; � � 5 � � � �

� � Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" Then

SQLs = "Select FirsName+' '+FatherName+' '+GrandName+' '+FamliyName As FullNames , " & _

"EmpNo,Job FROM Emp"

Adodc1.RecordSource = SQLs Adodc1.Refresh

lblCount.Caption = " Number The Records Is " & " " & Adodc1.Recordset.RecordCount & " " &

"Record/Records"

Exit Sub / 5 � � �

SQLs = "Select FirsName+' '+FatherName+' '+GrandName+' '+FamliyName As FullNames , " & _ "EmpNo,Job FROM Emp" & _ "where FirsName Like '" & Text1 & "%'AND FatherName Like '" & Text2 & "%'AND GrandName Like '" & Text3 & "%'AND FamliyName Like '" & Text4 & "%'AND EmpNo Like '" & Text5 & "%'AND Job Like '" & Text6 & "%'" Adodc1.RecordSource = SQLs Adodc1.Refresh lblCount.Caption = " Number The Records Is " & " " & Adodc1.Recordset.RecordCount & " " & "Record/Records"

/ 5 � � � �� 0 � � 1 � � � � � � � 1 � � ; � � 5 � � � �

� � Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" Then

SQLs = "Select FirsName+' '+FatherName+' '+GrandName+' '+FamliyName As FullNames , " & _ "EmpNo,Job FROM Emp"

Adodc1.RecordSource = SQLs Adodc1.Refresh

lblCount.Caption = " Number The Records Is " & " " & Adodc1.Recordset.RecordCount & " " & "Record/Records"

Exit Sub / 5 � � �

SQLs = "Select FirsName+' '+FatherName+' '+GrandName+' '+FamliyName As FullNames , " & _ "EmpNo,Job FROM Emp" & _ "where FirsName Like '" & Text1 & "%'AND FatherName Like '" & Text2 & "%'AND GrandName Like '" & Text3 & "%'AND FamliyName Like '" & Text4 & "%'AND EmpNo Like '" & Text5 & "%'AND Job Like '" & Text6 & "%'"

Adodc1.RecordSource = SQLs Adodc1.Refresh lblCount.Caption = " Number The Records Is " & " " & Adodc1.Recordset.RecordCount & " " & "Record/Records" / 5 � � � �

Page 159: احترف قواعد البيانات فى فيجوال بيسك 6

<t��! : ¡��' فAأ� <���'��Bآ+��ة � ون آAد أ�A0' Vم �?=! ��M)�W وهRا هA آAادا� �? !! ... 7; ا���!4>�=�افا<

::: ¡Oل إ��E �! وع��أ( ا�<�A0 ¡Oا�� Save �� 80= � ;?� "��) يRذج ا�A

" frmSearchEditEmp " إ�� ا� Aذج ا�Rي ا�"إذه\

اL! �CT �CTدوج ��� ا�� ا� Aذج �?; (V� �5t 7; ��§> ا�=���

� 0 � � 1 � � � � � � � 1 � � ; � � 5 � � � �� � Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" Then

SQLs = "Select FirsName+' '+FatherName+' '+GrandName+' '+FamliyName As FullNames , " & _

"EmpNo,Job FROM Emp"

Adodc1.RecordSource = SQLs Adodc1.Refresh

lblCount.Caption = " Number The Records Is " & " " & Adodc1.Recordset.RecordCount & " " &

"Record/Records"

Exit Sub / 5 � � �

SQLs = "Select FirsName+' '+FatherName+' '+GrandName+' '+FamliyName As FullNames , " & _ "EmpNo,Job FROM Emp" & _ "where FirsName Like '" & Text1 & "%'AND FatherName Like '" & Text2 & "%'AND GrandName Like '" & Text3 & "%'AND FamliyName Like '" & Text4 & "%'AND EmpNo Like '" & Text5 & "%'AND Job Like '" & Text6 & "%'" Adodc1.RecordSource = SQLs Adodc1.Refresh lblCount.Caption = " Number The Records Is " & " " & Adodc1.Recordset.RecordCount & " " & "Record/Records" / 5 � � � �

Page 160: احترف قواعد البيانات فى فيجوال بيسك 6

�ت ا�B �" ��O�A8 7; هRا ا� Aذج ���� 8) B' c�� " ;�� :ا�=

�تا<'��ل�=0�ء إ -���� ة ا�����ـ ( �0� <D�E ADODC (. - �=7 �Aول ا� 6��O EMP. 7; � ث 6 ول ا���O�A!� ا�O��A>وا���N وا��1 �� ا�=�Bم - C=ا���� . �ت 7; ��?> ا��Bض إ�5�ر -���� .DataGrid ا� (8 ا� " ��O�A�Aذج ! �داة -B' " ��B! �^� ت����� 8) B' \�W �. د ا���4ت إ�5�ر -� .

:�WfrmSearchEditEmp(0> �8 ا� Aذج

� ا��=^ م(A0م �c��� c���� �7A=ل ا��E �! ��A��1 ( �� ا��� - �Nا�� - <O��Aا� ( �=) �¢

7; ��?> ا��Bض ا���ء��ض DataGrid، ��B! �^� ) ه� (�=$�/ ا��=^ م '�B�و �5t) فAزرو� ) ��CD ( �=) فA� "��� �Cا�� � �Nا�� \�� �Aذج! �داة�4

) ��O�A8 ا�) B' (

���ة �Aف �?=\ ا�?Aد آ�! 8!� إ1 و�� (=� ��ح "�� Aذج .. ) " �07 ا�4

Page 161: احترف قواعد البيانات فى فيجوال بيسك 6

� 0 � � 1 � � � � � � 1 � + 0 � � � � � 1 1 � 5 ; � 0 � � � � � � � � ; � � � 5 � � � , � � 5 1 � � � � On Error GoTo xxx Select Case ColIndex Case 0 SQLs = "SELECT * from Emp where EmpNo ='" & DataGrid1.Text & "'" End Select frmEditEmp.Show Unload Me xxx: / 5 � � � �

� 0 � � 1 � � � � � � � � � � � � � � On Error Resume Next

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\Data.mdb;Persist Security Info=False"

SQLs = "Select * From Emp"

Adodc1.RecordSource = SQLs

Set DataGrid1.DataSource = Adodc1

DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False

lblCount.Caption = " Number The Records Is" & " " & Adodc1.Recordset.RecordCount & " " & "Record" Adodc1.Refresh

DataGrid1.Columns.Item(0).Button = True / 5 � � � �� 0 � � 1 � � � � � � � 1 � � ; � � 5 � � � �

� �

Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" Then

SQLs = "Select * From Emp" Adodc1.RecordSource = SQLs Adodc1.Refresh lblCount.Caption = " Number The Records Is" & " " & Adodc1.Recordset.RecordCount & " " & "Record"

Exit Sub / 5 � � �

SQLs = "Select * From Emp Where FirsName Like '" & Text1 & "%'AND FatherName Like '" & Text2 &

"%'AND GrandName Like '" & Text3 & "%'AND FamliyName Like '" & Text4 & "%'AND EmpNo Like '" & Text5 & "%'AND Job Like '" & Text6 & "%'"

Adodc1.RecordSource = SQLs Adodc1.Refresh lblCount.Caption = " Number The Records Is" & " " & Adodc1.Recordset.RecordCount & " " & "Record"

DataGrid1.Columns.Item(0).Button = True / 5 � � � �

Page 162: احترف قواعد البيانات فى فيجوال بيسك 6

� 0 � � 1 � � � � � � � 1 � � ; � � 5 � � � �

� � Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" Then

SQLs = "Select * From Emp"

Adodc1.RecordSource = SQLs Adodc1.Refresh lblCount.Caption = " Number The Records Is" & " " & Adodc1.Recordset.RecordCount & " " & "Record"

Exit Sub / 5 � � �

SQLs = "Select * From Emp Where FirsName Like '" & Text1 & "%'AND FatherName Like '" & Text2 &

"%'AND GrandName Like '" & Text3 & "%'AND FamliyName Like '" & Text4 & "%'AND EmpNo Like '" & Text5 & "%'AND Job Like '" & Text6 & "%'"

Adodc1.RecordSource = SQLs Adodc1.Refresh lblCount.Caption = " Number The Records Is" & " " & Adodc1.Recordset.RecordCount & " " & "Record"

DataGrid1.Columns.Item(0).Button = True / 5 � � � � � 0 � � 1 � � � � � � � 1 # � ; � � 5 � � � �

� �

Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" Then

SQLs = "Select * From Emp" Adodc1.RecordSource = SQLs Adodc1.Refresh lblCount.Caption = " Number The Records Is" & " " & Adodc1.Recordset.RecordCount & " " & "Record"

Exit Sub / 5 � � �

SQLs = "Select * From Emp Where FirsName Like '" & Text1 & "%'AND FatherName Like '" & Text2 &

"%'AND GrandName Like '" & Text3 & "%'AND FamliyName Like '" & Text4 & "%'AND EmpNo Like '" & Text5 & "%'AND Job Like '" & Text6 & "%'"

Adodc1.RecordSource = SQLs Adodc1.Refresh lblCount.Caption = " Number The Records Is" & " " & Adodc1.Recordset.RecordCount & " " & "Record"

DataGrid1.Columns.Item(0).Button = True / 5 � � � �

Page 163: احترف قواعد البيانات فى فيجوال بيسك 6

� 0 � � 1 � � � � � � � 1 � � ; � � 5 � � � �

� � Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" Then

SQLs = "Select * From Emp"

Adodc1.RecordSource = SQLs Adodc1.Refresh lblCount.Caption = " Number The Records Is" & " " & Adodc1.Recordset.RecordCount & " " & "Record"

Exit Sub / 5 � � �

SQLs = "Select * From Emp Where FirsName Like '" & Text1 & "%'AND FatherName Like '" & Text2 &

"%'AND GrandName Like '" & Text3 & "%'AND FamliyName Like '" & Text4 & "%'AND EmpNo Like '" & Text5 & "%'AND Job Like '" & Text6 & "%'"

Adodc1.RecordSource = SQLs Adodc1.Refresh lblCount.Caption = " Number The Records Is" & " " & Adodc1.Recordset.RecordCount & " " & "Record"

DataGrid1.Columns.Item(0).Button = True / 5 � � � � � 0 � � 1 � � � � � � � 1 � � ; � � 5 � � � �� �

Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" Then

SQLs = "Select * From Emp" Adodc1.RecordSource = SQLs Adodc1.Refresh lblCount.Caption = " Number The Records Is" & " " & Adodc1.Recordset.RecordCount & " " & "Record"

Exit Sub / 5 � � �

SQLs = "Select * From Emp Where FirsName Like '" & Text1 & "%'AND FatherName Like '" & Text2 &

"%'AND GrandName Like '" & Text3 & "%'AND FamliyName Like '" & Text4 & "%'AND EmpNo Like '" & Text5 & "%'AND Job Like '" & Text6 & "%'"

Adodc1.RecordSource = SQLs Adodc1.Refresh lblCount.Caption = " Number The Records Is" & " " & Adodc1.Recordset.RecordCount & " " & "Record"

DataGrid1.Columns.Item(0).Button = True / 5 � � � �

Page 164: احترف قواعد البيانات فى فيجوال بيسك 6

ة �07 ��ح ا�) :آAاد ا�4

) وهAا�4)�N � ا'�� ) �07 � ث 6 � ) ث ا���C ��� ا�Lر ��

. هbR ا� ا�> '�=^ م �7�B" ر�N ا��Select Case ColIndex"7AO ا�ــ دا�> �! "7AO�أ ا� � ... ��إ 2 ¢� 1 ¢� 0 ا���N و'

bRا�>ه 5�> ا�=���B=' <Bف ��� ا��7AOا�� ) ; B�أن )�N �5�و >; !�7AOه ا� ا'� index( "BNA! ��Aا� �N+� ر7 A0 ه �OD7ا� أول أيAO�<

"7AO�ي �" !� ا�Rا� �Nد وا��ABف ��� ا��B=' <ا� ه � ا�

5�إ'?Aن !/ select ا� ا�>=E Case ) <7AO��� �N) �?; ا�� R�O '8ا�!�وي (�Rا�ـ ا� Case 1 أو 0 !+�

� 0 � � 1 � � � � � � � 1 � � ; � � 5 � � � �

� � Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" Then

SQLs = "Select * From Emp"

Adodc1.RecordSource = SQLs Adodc1.Refresh lblCount.Caption = " Number The Records Is" & " " & Adodc1.Recordset.RecordCount & " " & "Record"

Exit Sub / 5 � � �

SQLs = "Select * From Emp Where FirsName Like '" & Text1 & "%'AND FatherName Like '" & Text2 &

"%'AND GrandName Like '" & Text3 & "%'AND FamliyName Like '" & Text4 & "%'AND EmpNo Like '" & Text5 & "%'AND Job Like '" & Text6 & "%'"

Adodc1.RecordSource = SQLs Adodc1.Refresh lblCount.Caption = " Number The Records Is" & " " & Adodc1.Recordset.RecordCount & " " & "Record"

DataGrid1.Columns.Item(0).Button = True / 5 � � � �

� 0 � � 1 � � � � � � 1 � + 0 � � � � � 1 1 � 5 ; � 0 � � � � � � � � ; � � � 5 � � � , � � 5 1 � � � � On Error GoTo xxx Select Case ColIndex Case 0 SQLs = "SELECT * from Emp where EmpNo ='" & DataGrid1.Text & "'" End Select frmEditEmp.Show Unload Me xxx: / 5 � � � �

Page 165: احترف قواعد البيانات فى فيجوال بيسك 6

! � هRا ا�=^ +) � ;7 �07 � �07 وا� آ�~

��\ ا� ��N ;7 �5t) رLا� � � �Nد ا��A��07وه yNAا� ����=Eا اRو� ;�A�$ا�$�(0> ا� < .

� 0 ا��7AO" أي 7Case 0; ا�?�~ BTو;�� :) 6�A�?� <ل( ا�?Aد ا�=

و' � ��� ��B=ا� �! � � ��O�Aول ا� ; 7ولا�BAد ا� (��وي ر�N ا���A ���ط 6)�N � أي ( ا� ا'

7AO�ا�< �N0 ر ( 5�� Select ا���?y دا�> >(

(8 ا� ) ��O�A�Aذج أ��5B' (

�OEإ .. ;أ ;Cاآ�ة�Rا� �! ;�� '��8 ا� Aذج ا��

�ء!�� ة ا�$E .. ك�� (?Aن ه ! � �$E دح�7 ��B! .. :!���� �� ا�?Aد(LO0ن أ�$�\ !� ا� :xxx ا����8و(Rه\ إ��

<�D� 7;زرن '�/ أ '�=�$/ ا�!�!� �Eل هRا ( Button ا�^)�N � ) ا� ا' د !?�ن ا�Lرـو'� Item(0)د ا�AB7; ا� Aأو ؟ ول ه8 ه ;�� د ر�N (أي أ�V .. ا�� . ا�+�'

) ..ا��B�� "7AOAد

;N�5� ا�آAاد���� �=) �� .. \�� أ�"��0��! �5��� �'

::: ¡Oل إ��E �! وع��أ(ا�<�A0 ¡Oا�� Save = � ;?� ي (��"ـ0ـRذج ا�A �� 8

" MDIForm1 " إ�� ا� Aذج ا�Rي ا�" إذه\

Case 0 SQLs = "SELECT * from Emp where EmpNo =' " & DataGrid1.Text & " ' "

SQLs = "SELECT * from Emp where EmpNo =' " & DataGrid1.Text & " ' "

End Select

frmEditEmp.Show

Unload Me

On Error GoTo xxx

DataGrid1.Columns.Item(0).Button = True

Page 166: احترف قواعد البيانات فى فيجوال بيسك 6

اL! �CT �CTدوج ��� ا�� ا� Aذج �?; (V� �5t 7; ��§> ا�=���

�!: "� B8 7; هRا ا� Aذج ��� :ا�=��; " ا� Aذج ا��,��; �� ة ا<'��ل �=0�ءإ •���ت�0���� .ا�• �=7 ��! 6 ول ا��=^ Users. د ا�=�Bم •�� ;?� ��! . ا������ت!� 6 ول ا��=^ .StatusBar 7; ا�ـ ا�� ا��=^ م إ�5�ر •• 8�$B' زرارا���! . ) ا������ت ( ���=^�ص إ���ء •E ) . !� ا������ت�=�آ �L6ء 6

:�WMDIForm1(0> �8 ا� Aذج

�!:إ�� '�8�4 ا� AEل� ��� 'A�، �=) ;?� 8�$Bف (=� ا�=�آ !� ا������ت ���=^ م ا�

�إ��5 ا�=; 1 (?� ا�ADAل زراردوات وا�ا� ، /Tف (=� وA� V�Rموآ 7; ��(� ا�� ا��=^<�� AEل ا�=; ��~ �" و'B$�8 ا�A0ا,� StatusBar ا���� <���D �5��� .

Page 167: احترف قواعد البيانات فى فيجوال بيسك 6

�R7ة 'ـ L! �CTدوج �?; MDIForm1Aذج ا�CT ��� ا� ... � A0م �?=��> ا�?Aد إذن� V� �=O .. ا�?Aد

�=A��)�Bف �A0م . General و�Aف '?Aن 7; ا�=��(��ت��� ا� �R7ةأ�V 7; أ'�آ م ، �?; �^Lن 5�7� ��C=! ��Nات^=��� ��� .. ا�=; (�?5�ا������ت�?; �

أ�Aف (=� ���" ��?8 ... اآ=\ هRا ا�?Aد B� ��7 �� . .آ

Dim GAdd, GEdit, GPrint, GCreateUser As String

Page 168: احترف قواعد البيانات فى فيجوال بيسك 6

��� أ�� �= / ��ح !��)�B�?� ات��C=ا� < DIM ) اRإذاوه y آ V��� الA4�Oأن 7; ا� ��B'5� V��� \4) ��C=!< DIM آ=��> آ��?; 'ــ�Bف ��N.. ( .

Nـ� � = �)�BأB�ات>ر��C=! ;�� : وه� آ=

GAdd � )آ� ��L^< " <7ن � Tن " إA?) �! �D ا��=^ م � ى � E<� >7>ا�T GEdit � )آ� � (L^< " 8ن � B' " نA?) �! ��D>ا��=^ م � ى � E 8) B=ا�

GPrint � )آ� ���> " >^Lن � �W " نA?) �! ��D>ا��=^ م � ى� E <��� ا�$GCreateUser � )آ� �� (?Aن " !�=^ !�� إ���ء " >^Lن � ! ��D>ا��=^ م � ى� E

ا��=^ !�� إ���ء

ا<B�=� ات��C=ا� <����=� (A0م Sub ) L6ء (�Aف � �� .. 5�ء !� آ=��V� ��� ت� ا������7> ( > آ��=^L(�و(A0م T8 - إ) B' - <���W - ء� !�� إ��^=�! ( ا�=�آB� ات��C=أن7; ا�

م هRا هbR ا������ت ^=���

<t��! : دA?��� �5B! 8!�B=� ;?� <��Eت دا� '� ا�=� ث و .. ��A0ا,� '��N�� ;7 د هRا ا����8 ا�+�ل 7; ��ض ا�=��� و� د ��� إذه\��=Rآ�� �07 .. ا�A0ا,� إ���ء� :

�Eوج '�8�4 � !��

�R7ة ا�?Aد �?; '�ى ا�� ا�0�,ـOـا�CT ��� ا��1 �?; '� �=< �TA! Aه � : آ

Page 169: احترف قواعد البيانات فى فيجوال بيسك 6

ا�?Aد ا�=��أ�"���\ .. ��=Rآ�� هRا �07 إذن=B) فA� ��� ;ا,�أA0ء ا��دوات و��(� ا� �+��ت M Toolbarـا� ��8�$ 7; �B' �,اA0زرارا�وا� .

;7 �0��! � �N �� آ +) Generalا�ـ N�� � �6/ إ�� �

��> هRا ا�?Aد =?� �N :

� � � � � + � 5 1 � � � On Error Resume Next

GAdd = "" GEdit = "" GPrint = "" GCreateUser = ""

PoolConnection SQLs = "Select * FROM Users Where UserName='" & UserNames & "'and Password='" & UserPassword &

"'"

If RS.State = adStateOpen Then RS.Close RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

<7�Tإ'

� �

RS![GAdd] = True Then

AddEmpMu.Enabled = True

Toolbar1.Buttons(6).Enabled = True " <7�Tإ – GAdd = "

/ � � �

AddEmpMu.Enabled = False

Toolbar1.Buttons(6).Enabled = False / 5 � � �

Page 170: احترف قواعد البيانات فى فيجوال بيسك 6

8) B' '

� �

RS![GEdit] = True Then

EditEmpMu.Enabled = True

Toolbar1.Buttons(5).Enabled = True " 8) B' – GEdit = "

/ � � �

EditEmpMu.Enabled = False

Toolbar1.Buttons(5).Enabled = False / 5 � � �

<���W '

� �

RS![GPrint] = True Then

PrintReport.Enabled = True

Toolbar1.Buttons(4).Enabled = True " <���W – GPrint = "

/ � � �

PrintReport.Enabled = False

Toolbar1.Buttons(4).Enabled = False / 5 � � �

��! ' إ���ء !�=^

� �

RS![GCreateUser] = True Then

CrUser.Enabled = True

EdUser.Enabled = True " ��! " = GCreateUser – إ���ء !�=^

/ � � � CrUser.Enabled = False

EdUser.Enabled = False

/ 5 � � � / 5 �

� � �

Page 171: احترف قواعد البيانات فى فيجوال بيسك 6

:��ح !��� ��?Aد � L6ء ���� أ����MyGrants

!� �Eل 6 ول ا��=^ !�� ا<�=�Bم ( وه; �Aف '?Aن � "�7��sub < �B! <هRا ا�L4ء ا�ـ .. زراردوات وا�ا� 'B$��8?; (=� ) ا�=�Bف ��� ا������ت ا�A6Aدة ���=^ مو

ث إذا� �$E �=ف(´�1 '�0 .. ا��0 :!���� ا�

�N�´ات �7اغ��C=أي ا���0 ا�=; 7; ا� ،) �B6إ � ) �N> أي 1 '�8 7�ر[>5

�N���1تا<��آ> ( !� �Eل ��آ=" '��ل�=0�ء ا<�' (

: ' � ��� ا<�=�Bم6�>

� !� �Eل � ��B=ا���! �وي ا�� ا��=^ م ���ط 6 ول ا��=^�) ��C=ا� UserNames L^ UserPasswordن 7; ا�Rاآ�ةا�ي ا�=��C و� '� ا��ور>آ� طو��� ^Lن 7; ا�Rاآ�ةا�

�5��C�'> و�ا�4 R�O =� �N

7; '4�ه�5�(=� .. 6�M��B' < �و�ا�4�> ا� ... V���� الA4�Oا� ...

Sub MyGrants() ه � ا�?Aد ا�^�ص �R5ا ا<�6اء ' End Sub

On Error Resume Next

GAdd = " " GEdit = " " GPrint = " " GCreateUser = " "

PoolConnection

SQLs = "Select * FROM Users Where UserName='" & UserNames & "'and Password='" & UserPassword & "'"

If RS.State = adStateOpen Then RS.Close RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

�7> إT'

Page 172: احترف قواعد البيانات فى فيجوال بيسك 6

B�م�B=�>ا M0�=7> (ه8 ا��80 . (=� ا��T" ) إي ا�Rا� GAdd ول >�0 ا�" � (User 7; ا�4True اب إذا ؟A4ن ا�� ��B آ

�N��?=� <,��7> (( ا�0Tإ ((

<t��! : <�?ا�AddEmpMu bRه ) <,�� ا�� ا�00��! � ث � 5�=� � '� ��ح ) ا�=; آ Nو Vذ�

;7 � د ا���N ا�Rي (�8 ا�Lر Toolbar1ا�ـ ه ��7> ( �Tآ� .) إR=' �� أE;ر�! ا�0�رئ � ��� � < Index�77AO; ا�ر�N �?8 زر آ�ن Toolbar1 ا�ـ آ

¡�1�Nا�ـ ر Index �Nر Aر وهL�� 6 رLا ا�R5� ��?' 8� دA?ل ا��E �! \�$� � أي (، وه "��� �C��� 8��N "�B4) ( !?Ýم �ـ ^=���

��C=م ا�A0) ;?� �0��! "O)�B' �' يRا�ا� bRه ¡O��<�0 ;7> ( وه�Tإ ( �أي! �7> " > (� ا�?Aد ا�� هRا ا�� �Aف (=� �O¡ آ� � T7; " إ �5 )L^' �=)و ��C=ا� .

RS![GAdd] = True Then

AddEmpMu.Enabled = True

Toolbar1.Buttons(6).Enabled = True

"7�Tإ <– GAdd = "

Page 173: احترف قواعد البيانات فى فيجوال بيسك 6

(> ] GAdd[ ا��80 أي آ�ن ا���ط [�� ذ�V إذا � ~��<�N True أي False

:�Aف (=� ا� AEل ��� هRا ا�?Aد

�N=�8�$B <,��7> (( ا�0Tإ ((

�N=�8�$B رL7> ((ا��Tي )) إRا� �Nا�ـ رIndex "�6 5�� IF> 6�> ا�ـ (

0 ا؟B! زال� ه8 ��N; ا�?Aد !��5ا�آAاد��L 1 - ;N 7; ا�� (A� cف (?Aن ا�A4ابـÈ ا�0�رئ !�آأE; آ y إذا ا�A4اب�=! <

�07��C=' ;7 �5N�Wو �5=��'

آ=��> ا�?Aد �Aف �A0م �B��> إذنB� <7�T$إ��> � ��وه; .. ��� ا�=�T7>إ� �5NA7رة وAD 8���.

����8O ا� �R7ة أ�?; '?Aن ؟ ا��AرةهbR ذا!�' .. �5�B4�و �5�,��E 8) B=� مA0� فA8 أ�O� .ا� �R7ة

ا����8 ؟ ´ذا�5� ، و!� ¢��?; (=� وT/ ا������ت �7" T��

��N <7 �إذنT´ رةAD Picture1 . <��� :ا��t إ�� ا����> ا�=

C=� �N��,��E �� ;��=��5� آ : Picture1 �Align � 2 Align Bottom

: �?; '?Aن �R5ا ا��?8

Else

AddEmpMu.Enabled = False

Toolbar1.Buttons(6).Enabled = False

End If

Page 174: احترف قواعد البيانات فى فيجوال بيسك 6

� �N<7�T´ 8��� Label1 و ، ;��=���,�" آ�E 8) B=� �N:

Label� Name � lblGrant Alignment � 0 left justify

�?; (?Aن �R5ا ا��?8

�N�ا� ��8�8 � د آ��� !� ا���وف ( 7> ����) ;?�. .(

ا<B�=�>ا ��ء !� ا�=������C ��� ا� Aذج 5� �N ;7�TMDIForm1 دوجL! �CT ..

¡Oل زر ا���E �! وع��ا� ¡O�� �Nو save

�R7ة ا�AOرم �Aد � V� �=O' ;?�

Page 175: احترف قواعد البيانات فى فيجوال بيسك 6

��> ا�?Aد 7; ا�AOرم �Aد •=?� �NMDIForm_Load

Page 176: احترف قواعد البيانات فى فيجوال بيسك 6

:��ح !��� ��?Aد

M��B' <�6. ..1 � (=� ' R�Oه

ا������ت ا<�=�Bم (=� و �" �Aف (=� ا� AEل ��) �yا �6ي�! (ا�L4ء ا�Rي ا�" ) و'�

lblGrant.Caption �' يR8 ا���7هRا ا���Tا="إ�ES! ، لA0� ��8إ8B6 وه ��� ;�Eا ا� � ا�

��> هbR ا�4�> أي�$� �N :ت��7> : ا�����T8 ... إ) B' ..إ ��

\=?� ��7> وهB' bR � " " ¢� + ¢� ا�� ا�=��Cه �! �=) ;?� 8�Oا� ��C=و��� ا��Eا� ��C=ا� ��Cا ا���ح ا��Rه ��� =B) دA?ا� ;N� ..و�

\�$� � 5 ر�N >ا��7AO 7; ��(� ا����> 7; ا�� ا��=^ من (=� وT/ أه

' Show GRANT MyGrants ' View Grant lblGrant.Caption = " Rols : " + GAdd + " " + GEdit + " " + GPrint + " " + GCreateUser ' View User StatusBar1.Panels(5).Text = " Username : " + UserNames

' Show GRANT

MyGrants

lblGrant.Caption = " Rols : " + GAdd + " " + GEdit + " " + GPrint + " " + GCreateUser

" Rols : " + GAdd + " " + GEdit + " "

Page 177: احترف قواعد البيانات فى فيجوال بيسك 6

�وي8 ا� � ا� اB ;�Eا6، ) 5 ر�Nا��Aح ا�Rي (�8 ( ��(� ا����> أن�� د �)

- �N RE> ا�=��Cأ(=� - ��; ا����ي ���8 ا�+�ل��� : ا�� ا��=^ م

ا<B�=� ¡Oل زر ا���E �! وع��ا� ¡O�� �N ء�5 save

����C ��� ا�ـ ا�� �N نToolBar1<�� L! �CTدوج �?; 'V� �5t هbR ا��

��=Aل ��ر�^�ص �Aف �A0م �?=��> ا�?Aد ا� �! � �C�) ��� م .. زرار� ا�أ ا��=^��B! 8" و'�8�C ا� Aذج ا�^�ص �"O=ا� �=) .. ;�� اآ=\ ا�?Aد ا�=

�8 آ=��> ا�?AدN : <t��!<��� ا��t ا����> ا�=

StatusBar1.Panels(5).Text

= " Username : " + UserNames

Page 178: احترف قواعد البيانات فى فيجوال بيسك 6

Toolbar ا�=Aل ��ر �?; (=� ا�=�Bف ���" A� "�7;7ف ��=^ م ا��1 ا�A6Aد key ا�ـ �1¡

ا�?Aد ا�=��; اآ=\

Page 179: احترف قواعد البيانات فى فيجوال بيسك 6

: ��ح !��� ��?Aد

ة �Wق Select Caseا� ا�> B� �5B! 8!�B=ق =�� (=� ا�. (=� ا��$�B�6 �5� ، �=) فA� �?و�� هRا +) .�07 ذآ� ا�$�(0> ا�=; 7; �

��8 ا� ا�> O='Select Caseا !/ ا�?+�� !� ا�Rه � +) ��A� /! 8. دوات 7; �O=' رف� ا�=Aل �

) �' �=) �8 �� AEل 7; ا�?Aد !� �Eل ا�?; أي ا� ��8 ��� ا�?�~ أ�" Button.Key وه �� ا�Key رL�� ..ا�أي R�O ' �=) 7او�B! \�� ��� �!< /� ا��1 ا�^�ص ���?; و' R�O ا�?Aد ا�Rي (=

Case وآ8 آ�~ �keyـ '=�Bف ��� اSelect 6�> ا�ـ ا�=Aل ��ر � ا���C ��� أي .. �" . ا!�و و!� ¢� (=� ' R�O ا���?; ا�=; '�8 ا��1 ا�?�~(=� ا����Bkey . �� cف �7" ا�ـ !

key : addButt (�8 ا�� ول ا�ا�?�~� '�6/ 6�> ا�ـ ! � ; B) اRوهSelect ـ��� addButt 8Eي 7; داRد ا�A?ا� R�O ' �=) فA�

frmAddEmp.Show وهA ا�?�~�7>�ا� Aذج ا�^�ص أ��5 (أي T´��O�Aت ا������ (

M�� ..و��N; ا�?Aد �O~ ا��

Select Case Button.Key

Case " addButt " frmAddEmp.Show Case " EditButt " frmSearchEditEmp.Show Case " PrintButt " frmPrintReport.Show Case " HelpButt " ' Here type code ' to connect with File Help Case " aboutButt " frmAboutMe.Show

Case " ExitButt " ExitPro_Click

End Select

Select Case Button.Key

End Select

Case " addButt " frmAddEmp.Show

Page 180: احترف قواعد البيانات فى فيجوال بيسك 6

� (=� ا���C ��� زر ExitButt ا�?�~! ا�!�(=� ' R�O ا�=Aل ��ر ا�A6Aد �E ;7وج �

Aوه ;�Eا ExitPro_Click ا�0�,>(A0م ��< (أي �� ) " �Eوج " '��ل �

<t��! : ExitPro <,� > ا�=���(ا 7; ��ض ا�=��� 7; � ا�Rي '� آ=��=" ) �Eوج ( ا�� ا�0

¡Oإ� ¡Oل زر ا���E �! وع��ا� Save \إذه <,� ا�0) �=� �Nو ��إ�� ا�=� :

'��E 8�4وج � !��

;?� �5��� �CTا�=O' دA?ة ا�R7���> هRا ا�?Aد ا�^�ص ¢� . �=?� �N8�4 ا�^�وج�=�

��� ��?Aد ��ح! :

�N�7اغ´� �L^ات>ا���0 ا���C=( 7; ا� ���زر Aردو7; ا��A��� .) ا�

Case " ExitButt " ExitPro_Click

UserNames = " " UserPassword = " " Load frmLogin Unload Me frmLogin.Show

UserNames = " " UserPassword = " "

Page 181: احترف قواعد البيانات فى فيجوال بيسك 6

8��=� �NذجA� " لAE " 7; ا�Rاآ�ة '�8�4 ا�

�Nء�C�´� اآ�ةR; !� ا��ذج ا��,�A ا�

م " '�8�4 ا� AEل " �Aذج أ��5^=���

¡Oل زر إ��E �! وع��ا� ا�¡O� save

� �! <,� : اE=� ا�0 �Eوج � !��

:ا�CT ���" واآ=\ هRا ا�?Aد

;7 8�N �! <���ذج����ت '� ��ح هbR ا��� �� ¡Oا�� 6A) �?أ و� Aوه ) 6 !�أ!� وا�

; B) اRج وه�Eا :!����5�,; !� ا��8 ?�� !!

� �!<,� : اE=� ا�0<7�Tإ � ��O�Aت ا������ <7�Tإ

:آ=\ هRا ا�?Aدا�CT ���" وا

b� B! اRذج ( وهA� ض�B� �N ��O�Aت ا������ <7�Tإ (

� �!<,� : اE=� ا�08) B' � ��O�Aت ا������ 8) B'

:ا�CT ���" واآ=\ هRا ا�?Aد

b� B! اRذج ( وهA� ض�B� �N ��O�Aت ا������ 8) B' (

� �!<,� :اE=� ا�0 إ���ء ا��=^ !�� � أدوات

:اآ=\ هRا ا�?Aدا�CT ���" و

b� B! اRذج ( وهA� ض�B� �N ��! ) إ���ء ا��=^

Load frmLogin

Unload Me

frmLogin.Show

MSGExits = MsgBox("Are You Sure To Exit ? ", vbQuestion + vbMsgBoxRight + vbYesNo, " Exit ") If MSGExits = vbYes Then End End If

End

frmAddEmp.Show

frmSearchEditEmp.Show

frmCreateUsers.Show

Page 182: احترف قواعد البيانات فى فيجوال بيسك 6

� �!<,� :اE=� ا�0 (8 ا��=^ !�� � أدواتB'

:ا�CT ���" واآ=\ هRا ا�?Aد

b� B! اRذج (وهA� ض�B� �N ��! (8 ا��=^B' (

� �!<,� :اE=� ا�0 '���C آ�> ا��� � أدوات

: ا�CT ���" واآ=\ هRا ا�?Aد

b� B! اRذج ( وهA� ض�B� �N ��> ا�آ� ���C' (

� �!<,� :اE=� ا�00�ر(�' � ��A! <���W / ��O�A!

:ا�CT ���" واآ=\ هRا ا�?Aد

b� B! اRذج ( وهA� ض�B� �N ��A! <���W/ ��O�A! (

� �!<,� :اE=� ا�0�ت��B' � �� �ت ا���B=ا�

:ا�CT ���" واآ=\ هRا ا�?Aد

B� ��7 � �� (=� آ=��> آAد 7; هbR ا�^�A� <�Dف (=� ���5

� �!<,� :اE=� ا�0�ت��B' � :!���� �� ا�

:ا�CT ���" واآ=\ هRا ا�?Aد

b� B! اRذج ( وهA� ض�B� �N :!���Rة � ; (�� ا�� ( (

¡Oإ� ¡Oل زر ا���E �! وع��ا� save

�!: أن آ �وا�= ا�=4�ربو�?� ��A! .. ;Nر [�\ ا�أ !� �5 ��=إن ا������;ا�E �! ءا��$E

frmEditUsers.Show

frmChangePass.Show

frmPrintReport.Show

frmAboutMe.Show

Page 183: احترف قواعد البيانات فى فيجوال بيسك 6

: >ا�0�, !� إذه\Project � EmpInfromation Properties

<��5� �?; 'VB! �=O هbR ا����� �CTا:

د !� ا�ـ �Startup Object ذجA ا� " frmCheckUser " مA0) فA� يRا� ��=����V ��� ! � (?Aن ا�4 ول ��6 ول ا��=^! �م إ���ء(=� و، 7�رغ � t ا� �) ة !�� �� (?� إذاو، ��0

�=) V�Rرآ� . '�8�4 ا� AEل �Aذج إ�5

Page 184: احترف قواعد البيانات فى فيجوال بيسك 6

¡Oل زر ا���E �! وع��ا� ¡O�� �N Save

ا� Aذج ���8 ا�+�ل ��� Text ا� � ا�A6Aد 7; ا�ـ ��Rف�N ¢� 6�/ ا� �ذجO� �N=� ن ا�) <7�TإAت ا������ ��O� ( �t�إ��" ا :

5� !� �Eل … Text1,Text2,etc 7=�ا�T>ا���0 ا<��t إ�� ا��A0ل �Aف '�ى ا��� �N <�D� (. Textا�^) �=� �N80إذه\ ¢� ا��<�D� ) =; �7" ا��0> ا���RفText �¢ �N إ�� ا�^

��; �?; (?Aن ا�... 7; 6�/ ا� �ذج 7Text=�اT; ا� � ا� ا�E; ا<�Rفإ=�� :�? �� 8Aذج آ

Page 185: احترف قواعد البيانات فى فيجوال بيسك 6

ا<B�=�>ص اA� / ا��ف 6R� �! ء� ..7=�ا�T> 7; ا��A0ل 5 ¡Oإ� ¡Oل زر ا���E �! وع��ا� Save

ا� Aذج ) �=� �NfrmCheckUser " ء��مإ��t ا� �) ! "

<����� ا�^��D> ا�=Tا: StartUpPosition � 2-CenterScreen

�Wـ�� <��Bا� bRه M �! �ذج� آ� : ا�=���> ا�

frmLogin � '�8�4 ا� AEل �Aذج

���C' � frmChangePass ا�?�> ا���(> �Aذج

Page 186: احترف قواعد البيانات فى فيجوال بيسك 6

MDIForm1 إ�� ا� Aذج ا��,��; إذه\

: واE=� ا�0�,> إ�� إذه\ � '���C آ�> ا��� � أدوات

�R7ة ا�?Aد � �=O' ;?� �5��� �CTد.. اA?ا ا�Rف '�ى هA�:

�دة ��� ا�?Aد )Lا� bRه <��=?� �N �07:

�Tا �07 O �N1 ر ; B) اRع !� وهA�ذجأA ر ا�A5� اعA� Lن !�آA?) 1)�?>= ا�ل إ�� �0 1إ# �E�Aذج B� >=ا�ء�5" !

Bد ا�A?ا �?8 ا�Rل ���" ه:

¡Oوع إ���ا� ..Oل زر ا���E �! ¡Save

: ا� 5�,; �� Aذج ا��,��; آ�!8 هRا ا�?Aد

Private Sub ChanPass_Click() frmChangePass.Show End Sub

Private Sub ChanPass_Click() frmChangePass.Show 1

End Sub

Page 187: احترف قواعد البيانات فى فيجوال بيسك 6

Dim GAdd, GEdit, GPrint, GCreateUser As String � � � � � + � 5 1 � � �

On Error Resume Next

GAdd = "" GEdit = "" GPrint = "" GCreateUser = ""

PoolConnection SQLs = "Select * FROM Users Where UserName='" & UserNames & "'and Password='" & UserPassword &

"'"

If RS.State = adStateOpen Then RS.Close RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

<7�Tإ'

� �

RS![GAdd] = True Then

AddEmpMu.Enabled = True

Toolbar1.Buttons(6).Enabled = True " <7�Tإ – GAdd = "

/ � � �

AddEmpMu.Enabled = False

Toolbar1.Buttons(6).Enabled = False / 5 � � �

8) B' '

� �

RS![GEdit] = True Then

EditEmpMu.Enabled = True

Toolbar1.Buttons(5).Enabled = True " 8) B' – GEdit = "

/ � � �

EditEmpMu.Enabled = False

Toolbar1.Buttons(5).Enabled = False / 5 � � �

<���W '

� �

RS![GPrint] = True Then

PrintReport.Enabled = True

Toolbar1.Buttons(4).Enabled = True " <���W – GPrint = "

/ � � �

PrintReport.Enabled = False

Toolbar1.Buttons(4).Enabled = False / 5 � � �

Page 188: احترف قواعد البيانات فى فيجوال بيسك 6

��! ' إ���ء !�=^

� �

RS![GCreateUser] = True Then

CrUser.Enabled = True

EdUser.Enabled = True " ��! " = GCreateUser – إ���ء !�=^

/ � � � CrUser.Enabled = False

EdUser.Enabled = False

/ 5 � � � End Sub

Private Sub AboutMu_Click() frmAboutMe.Show End Sub

Private Sub AddEmpMu_Click() frmAddEmp.Show End Sub Private Sub ChanPass_Click() frmChangePass.Show 1

End Sub

Private Sub CrUser_Click()

frmCreateUsers.Show

End Sub

Private Sub EditEmpMu_Click()

frmSearchEditEmp.Show

End Sub

Private Sub EdUser_Click() frmEditUsers.Show End Sub

Page 189: احترف قواعد البيانات فى فيجوال بيسك 6

MSGExits = MsgBox("Are You Sure To Exit ? ", vbQuestion + vbMsgBoxRight + vbYesNo, " Exit ") If MSGExits = vbYes Then End End If End Sub

Private Sub Log_Off_Click()

UserNames = " " UserPassword = " " Load frmLogin Unload Me frmLogin.Show

End Sub

Private Sub MDIForm_Load()

' Show GRANT MyGrants ' View Grant lblGrant.Caption = " Rols : " + GAdd + " " + GEdit + " " + GPrint + " " + GCreateUser ' View User StatusBar1.Panels(5).Text = " Username : " + UserNames

End Sub

Private Sub PrintReport_Click()

frmPrintReport.Show

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Key

Case "addButt" frmAddEmp.Show

Case "EditButt" frmSearchEditEmp.Show

Case "PrintButt" frmPrintReport.Show

Case "HelpButt"

' Here type code ' to connect with File Help

Case "aboutButt" frmAboutMe.Show

Case "ExitButt" ExitPro_Click

End Select End Sub

Page 190: احترف قواعد البيانات فى فيجوال بيسك 6

� save ا���وع !� �Eل زر ا��O¡ إ�O¡... > (ا'� ��ح ا�?Aد ���=8��O !� ا�

�ر ا���وع �ف �A0م �ن �Aا��=E ..وع��8 ا�C�=� �N ���ر ا�=?�و�� ���� ا ا���tB ا�4�!: و!7�B .. ..ا�8��4����ر ا��=Eا Aوه �E# درس ��B=� فA� ��ء ا�>وه $E .

�ه�ة �Aف (=� '���� ا� tء ا��$E ..إذا .. و6

�N8�C�� ل زر�E �! وع��8 ا��C�=ا� ..

�ءأ 7; ا���وع � ة$E�� �=) فA� ا درسـRوه �5 7�B�<ء ا��$E

6A)�$E ذجA� ;7 " ��! (8 ا��=^B' " �$^ع ا�A� " ت� " �5t) 1 ا����� ) Run-time Error '380' Invalid property value ( ا�� ا�^$�

��ؤ(> ا�^$� Debugا�CT ��� زر

Page 191: احترف قواعد البيانات فى فيجوال بيسك 6

وا��t إ�� ا�����> ... Aد �OD ا�� د ��� ا�?ا��t إ�� ا��Aن ا�

� ��~ !A6Aدة �N> إ� �د '� �ن، E$� وه � ��N True �5> 1 ا���A� Vآ~ �B$; �ن!� �أه Vا��� �,��E ;7 !ا��8إذن Aه� ؟ !

�,� أن هA ا��8�E ه\ إ��R� Vا��� Check1 8B6 �=) ى آ����و Vا��� ) !�� "���< �D ( ..ا�,� .. ��t إ�� ا�^�

Check1.Value = True

Page 192: احترف قواعد البيانات فى فيجوال بيسك 6

�,�أ�" !� �Eل ا����> ا����0> ��ى نإذ�E �! ا�ـ Check> ا��0 Value Value = 0-Unchecked - V��! ��]

Value = 1-checked - "��� عATA!!��<�D Value = 2-Grayed - "��� عATA!!��<�D �?8 و�BO! ��]

<t��! : �Nام ا�� ��8 ا�+�ل .. �07 '�=$�/ ا�=^� ���:

) �N ) "���!��<�D=" إ8B6 ا���A� Vآ~ أنB ; هRا (

. [�� !���OD " 0 " ; B) V إذا

(8 ا�?Aد و�A0م �R5ا ا�=Cأ �8 ا��?�> إذنB=� مA0� � �� ;��=�� :�� آ

V!���� أ!! Aه � (8 آB=ا� B� دA?ا� �� :و(�

Check1.Value = 1

Page 193: احترف قواعد البيانات فى فيجوال بيسك 6

Dim UserNa As String Sub FillData() On Error Resume Next

If Not IsNull(RS![UserName]) Then Text1 = RS![UserName]

UserNa = Text1

If Not IsNull(RS![Password]) Then Text2 = RS![Password]

<7�T>ا <���D ' If RS![GAdd] = True Then Check1.Value = 1 Else Check1.Value = 0 End If 8) B=ا� <���D' If RS![GEdit] = True Then Check2.Value = 1 Else Check2.Value = 0 End If ��! '���D> إ���ء ا��=^ If RS![GCreateUser] = True Then Check3.Value = 1 Else Check3.Value = 0 End If <��� '���D> ا�$ If RS![GPrint] = True Then Check4.Value = 1 Else Check4.Value = 0 End If End Sub

Page 194: احترف قواعد البيانات فى فيجوال بيسك 6

(8 ا��=^ !�� " ;7� ~O�Aذج .. �Eى ا�ا��?�> •B' "

! : �Aع ا��?�> �� <���D ��� �Cء (=� ا���5�إ��B! 8��O=1 (=� ا� ��! 1 (=� ( ا��=^!�� /Tو<�5��� �D (. <�?�وا� M���,� �Ãإ� �د '� أ�" ه; آ� 7; ا���E ~�� داة

� �N True> إ� �د '� أي.. !A6Aدة 5�7

' Logical Error R�O ا� =�,:إ�5�رE$� 7; (�� ا�^$� وهRا � �5t) 1 �$^ا ا�Rوه :!�����!:(إ�5t ر���> E$� و(=� (أي .ا����ا!� [�� أو�� (=� ' R�O إو .. آ� ... 0�ف ا�

���D< .. ?�>إذن�8 ا�� :

(8 ا��=^ !�� " إ�� �Aذج إذه\ -B' " د -�Vء " ا���� " ا��=^ !��إ��

�R7ة ا�?Aد و�Aف '�ى هRا ا�?Aد .. اL! �CT "��� �CTدوج -� V� �5t' ;?�

Page 195: احترف قواعد البيانات فى فيجوال بيسك 6

�' � �N ��,� ا����N V> إ� �دوآ�E ;7 دةA6A! ��] � إ (B ; .. 0 أو 1!� إ ا��8 هA وT/ ا���0 إذن!�D أو V��! ��] .. ;�� :اآ=\ ا�?Aد ا�=

: Elseا� ا�> ��\ �Rف

' R�O ا�?Aد E$� ! $0;هRا (��\ : أو1 � .. ��� �) �! B7 Vم 3ا���A0) �D �?) و����N��وا� ��ط �$�,"إ: هA ا��?�> و�R�� ) ��?��! ��] �5�B4) ( .. 8ف ا������ت �� ا�

�V��! .. �N �=��V��N 3ا���V آ�ن إذا� ا�����وهRا هA ا��8 . � آ��5 ـ ا�

Private Sub Check3_Click() If Check3.Value = True Then Check1.Value = True Check2.Value = True Check4.Value = True Check3.Value = True Else Check1.Value = False Check2.Value = False Check4.Value = False Check3.Value = False End If End Sub

If Check3.Value = 1 Then Check1.Value = 1 Check2.Value = 1 Check4.Value = 1 Check3.Value = 1 End If

Page 196: احترف قواعد البيانات فى فيجوال بيسك 6

�Eا��: ا�^$� ا� <�� م آ=� Aا�ـ ه Text ذجA� ;7 �t�ا " ��! (8 ا��=^B' "

6 ا � 1ا�^$� �T?=\ أ !� وا�ن " Text1 " � � �?=\'���� ا�^$� إذن. Tex1 آ= " Text1 " ;��=�� :آ

� 'Rآ� !ــ آ y !�آإذا �¢ � ;7 L� ا���N 80RE�) < ��ا�=C وه A�8B4 .. ا�!� (B ; هRا ذا �N0 1ر�> ـ�?; ��م�8 !� ��B=�>ا ) ����=� Vد إذاA6A! م .) ؟م 1أ آ�ن هRا ا��=^

() 8�Aع ا��?�> �O~ !�?�> . " ا��=^ !��إ���ء "�Eى ;7�Aذج وآV�R ا��?�> ا�B'

��! ) ا��=^Bذج ا�A �� 8!�� '� ���" �"أل و�� (=� ا���ح ���\ �Aف اT/ ا�?Aد آ0��! (8 ا��=^ !�� " �Aذج 7;B' "

ا�Rف ا�?Aد ا����M وا��0" " ا��=^ !��إ���ء " ا��M هRا ا�?Aد ;7�Aذج

UserNa = Text1

Page 197: احترف قواعد البيانات فى فيجوال بيسك 6

� 0 � � 1 � � � � ; � � � � # � ; � 0 � � � �

� � Check3.Value = 1 Then

Check1.Value = 1 Check2.Value = 1 Check4.Value = 1 Check3.Value = 1 / 5 � � �

/ 5 � � � � � �

Text1 = "" Then MsgBox " Sorry, You Must Type Username ", vbCritical+ vbMsgBoxRight, " Error "

Exit Sub / 5 � � � � �

Text2 = "" Then MsgBox " Sorry, You Must Type Password ", vbCritical+ vbMsgBoxRight, " Error "

Exit Sub / 5 � � � SQLs = "Select * FROM Users Where UserName = ' " & Text1 & " ' " If RS.State = adStateOpen Then RS.Close RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

If RS.EOF Then

GoTo SaveOK:

Else MsgBox " Sorry,The Username Is Exist Befor ", vbCritical+ vbMsgBoxRight, " Error " Exit Sub End If SaveOK:

� � Text2.Text <> Text3.Text Then

MsgBox " Sorry,The Old Password Not Equel New Password ", vbCritical+ vbMsgBoxRight, " Error " Exit Sub / 5 � � �

SaveMsg = MsgBox " Are You Sure To Save This Informations ?", vbQuestion+ vbMsgBoxRight+ vbYesNo, " Save Data " � �

SaveMsg = vbYes Then RS.AddNew

RS![UserName] = Text1 RS![Password] = Text2

<7�T>ا <���D'

� � Check1.Value = 1 Then

RS![GAdd] = True

/ � � � RS![GAdd] = False / 5 � � �

Page 198: احترف قواعد البيانات فى فيجوال بيسك 6

<���D8) B=ا� '

� � Check2.Value = 1 Then

RS![GEdit] = True

/ � � � RS![GEdit] = False / 5 � � �

<���D��! ' إ���ء ا��=^

� � Check3.Value = 1 Then

RS![GCreateUser] = True

/ � � � RS![GCreateUser] = False / 5 � � �

<���D<��� ' ا�$

� � Check4.Value = 1 Then

RS![GPrint] = True

/ � � � RS![GPrint] = False / 5 � � � RS.Update

MsgBox " The Information Has Been Saved ", vbInformation+ vbMsgBoxRight, " Saved "

End If

/ 5 � � � �� 0 � � 1 � � � � ; � � � � 5 � � � ; � 0 � � � � Unload Me / 5 � � � � � 0 � � 1 � � � � ; � � � � 5 � # � ; � 0 � � � � Text1 = " " Text2 = " " Text3 = " " Check1.Value = 0 Check2.Value = 0 Check4.Value = 0 Check3.Value = 0 / 5 � � � �

� 0 � � 1 � � � � � � � � � � � � � �

PoolConnection / 5 � � � �

Page 199: احترف قواعد البيانات فى فيجوال بيسك 6

¡Oإ� ¡Oل زر ا���E �! وع��ا� Save Nوع <>� �=�4� و��ر ا���ء و�� ا��5$Eـ�5

�ت: �Aع ا��?�> " ا���>�� آ��' " C�Aذج7; : ا��?�> ا��Eى���� E$� 7; ��د ا� " ��t إ�� ا� Aذج و�Aف '=�Bف ��� ا�^$�ا "

�ا�$E ء: " ا�� ا��=^ م " >ا�� ا��=^ م ��ه� 7; ا�4 \ � ل آ� -1 ..7; ا���Aن (�5t ا�� ا��=^ م أ(4\ -23- 1�C' �?)�A��� ا���\ هA ا�=��C ��1 ا��=^ م [�� !?=Aب ��?���D 8..رد و� ا� (8 ��� ا�� ا��=^ م 7; ا�?�ن ا��TA وا���ر -4B=وا� <�� E$� وهRا إ��"(?� ا�?=

\4) �ا��=$�8 ا��TA 7; ا��Aرة هt��! .. ;7 A> .. ا�?=��> 7; ا��8O80ـNن (=� أو��5��8 !/ ا��=^ م��80 و�?� '� '8D " Cا�O=�� "�A� �� "B6ا�! V ?) < � 7; (ا � +) � <

: ا��8 هA اآ=\ ا�?Aد ا�=��; إذن.. ا�=��� ��=Rآ�� �07

Private Sub Command1_Click()

If Text2 = "" Then MsgBox " Please Type Old Password ", vbCritical+ vbMsgBoxRight, " Error "

Text2.SetFocus Exit Sub

End If

If Text3 = "" Then MsgBox " Please Type New Password ", vbCritical+ vbMsgBoxRight, " Error "

Text3.SetFocus Exit Sub

End If

If Text4 = "" Then MsgBox " Please Type ReNew Password ", vbCritical+ vbMsgBoxRight, " Error "

Text4.SetFocus Exit Sub

End If

Text3 <> Text4 Then MsgBox " Sorry,The Old Password Not Equel New Password ", vbCritical+ vbMsgBoxRight, " Error "

Exit Sub

Page 200: احترف قواعد البيانات فى فيجوال بيسك 6

آ� ول� د ا��80 ا�، ¢� " � ا�?�> ا���(>��Aذج '�C "ن ار6/ ��� ه�§> ا�=��� ا� -�ر �! Aه <��� :إ��" 7; ا��Aرة ا�=

SQLs = "Select * From Users Where UserName = ' " & UserNames & " ' and Password = ' " & Text2 & " ' " � �

RS.State = adStateOpen Then RS.Close RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic � �

RS.EOF Then MsgBox " Sorry,The Old Password Is Wrong ! ", vbCritical+ vbMsgBoxRight, " Error " Exit Sub

/ � � � GoTo OKs : / 5 � � �

OKs :

MSGSave = MsgBox " Are You Sure To Change This Password?", vbQuestion+ vbMsgBoxRight+ vbYesNo, " Change Password "

� � MSGSave = vbYes Then

' Update Password SQLs = "Update[Users]Set[Password]=' " & Text4 & " ' Where [UserName]=' " & UserNames & " ' "

� � RS.State = adStateOpen Then RS.Close

RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic MsgBox " The Old Password Has Been Changed ! ", vbCritical+ vbMsgBoxRight," Save "

/ 5 � � � / 5 � � � �� 0 � � 1 � � � � ; � � � � 5 � � � ; � 0 � � � � Unload Me

/ 5 � � � � � 0 � � 1 � � � � � � � � � � � � � �

Text1 = UserNames PoolConnection / 5 � � � �

Page 201: احترف قواعد البيانات فى فيجوال بيسك 6

� ;��=�� : ل ا�^��,� آLocked � True

�� ��� ا��80 ا�Rي �Aف (�8 ا�� ا��=^ م �=Cا�وهRا �?; 1 (=�

¡Oإ� ¡Oل زر ا���E �! وع��ا� Save��4=� �Nوع <> و��ر ا���ء و�� ا��5$Eــ�5

�!: "Aذج إ�� �إذه\��� " �� ا�

�R7ة ا�?Aد واآ=\ ا�?Aد ا�=��; 'ـ L! �CTدوج �?; " !AاM7 " ا�CT ��� زر� V� �=O:

Page 202: احترف قواعد البيانات فى فيجوال بيسك 6

6 ، �5�=ا وا���وع ��" ،، �;ء 7; ا���وع أين �� (��0 ا�إذنA' �?و�<t��! ة��CD �ذج ا�=���> 7; ���> ا��O¡ : وه; ��: - <7�Tإ��O�Aا� frmAddEmp frmCreateUsers ا��=^ !��إ���ء -

�B6لإA0إ�7اغ ا�� �=) ¡O> ا����ا�!� ! " 7; � ��BD ~�� إذا ���/ ا�� (c !� ا�=! y ا آ) <..

ا��O¡ و�Eوج ا�ـ أيB� msgbox\=د اآA?8 ا�B4) يRل ا�A0ر[> ا��� �?; (?Aن ا� Aذج 7¾�5!> <7�T �E# 84� .. <��Bه; ا�$�(0> ا� bRوه

!<t�� ى أ�E : �� c���ذج ا�� ;7 c��ا�داةا Adodc1 ��; و�=��5� آ�,��E ��� ل:

Visible � False وع��8 ا��C�' ء�5� [�� !�,�> أ¢ �B6أي أ

Unload Me

Page 203: احترف قواعد البيانات فى فيجوال بيسك 6

¡Oإ�¡Oل زر ا���E �! وع��ا� Save��4=� �Nوع <> و��ر ا���ء و�� ا��5$Eــ�5

ا<B�=� ����' �! ء��ءا�5$E���!: >B و!=����!: ا�.. ا������� ـ � آ�� �ـ و'�5�B�=إن ا��ءا�$E ..إذن <��� :ه; ا�^$Aة ا�=

/Tأ(و<�A0:!������ .. V8 ذ�Bو� /� : >ا�=���ا�^$Aات ا'

> !� ا�0�,إذه\Project � EmpInfromation Properties

�!: �Aف (�RE �ن��T �ه � (=� ا�=Icon A ا�ـ 8Make ¡�1 إ�� ا�=�A(\ ـ0�=ا��� A0�>أ(ا�5� " frmAddEmp " ا� Aذج ا�Rي ا�"�B4) ;?�)أ<�A0;,��!: ا� 5��� ا�

Okا�CT ��� زر �frmAddEmp) <7 إ�� �Aذجإذه\ -Tإ��O�Aت ا������ ( �,� ا� Aذج �?; '�ى هbR ا�^��D>إذه\ -�E إ�� Icon

Page 204: احترف قواعد البيانات فى فيجوال بيسك 6

O=� 'ـ �?; إ��"ا�CT ��� ا�Lر ا���ر •) �R7ة �Aار �=�� V�)أ<�A0 ذجA �� ..

) �=� �N)أ<�A0 �¢ ذجA �� ا¡Oل زر��E �! ذجA ا� ¡Oا�� save ��R�O ' Mي //$' :!���� وز " (B8 !� [�� ا�A4�Oال ����Vأي "8B6 ا��Aا� <§�� y�'

6�هB�� L8 ���"أي M��$' :!������B! 8" ا��=^ م EXE�8B4 ا�O=) ;?� .. ;�� :�B8 ذ�V ا'�/ ا�=

-,� > !� ا�0File � Make EmpInfromation.exe

��B! ن�?! ;7 :!����5� �?; 'V� �5t هbR ا� �bR7 و'$�\ ! O� V¡ ا���� �CTا

Page 205: احترف قواعد البيانات فى فيجوال بيسك 6

�C=� �N��T?; '�/ �" ا�� وا� ��ا�� ا� � ..� ����� 8Employee 2006 ا�+�ل B� �¢ ا�=$��M ا�= R�Oي=� '?OK) ;?� �)Aذ�V ا�CT ��� زر

�!: !/ ا�إذه\����!: ا�= R�Oي �?; '�ى �?8 ا���� آ� هA0 A�>( إ�� ا��4 ا�Rي �ytO �7" ا�

�TA!

�!: و� �," �=او�bR5 ا�$�(0> ���� !� '��� ا� �5... ��.. !��وع �Vأول إ���ء '� �0 وكوو!�!Cفـ�=�! �..

�س و!��ه '"إ�5�روه; 6 ا> !5ة وه; A$E..ه� A$Eة أ �� V4!���� ÇB� V,� وإ�$

�ت ���" وا<t��ا��)A$=�� ت��!N �+! 4=�ا���� 8B4' ;?و�V ز�(B) .. \48 7; آ56 8�)L�' :!������ 8B' أن V��� " Setup "

ك ��� ��6 ا�?+�� !� ا���ا!: ا�=; '�A)ءو��!Setup V4 !�� إ������Aف �A0م ���ح و . �

� Aوه :; وهA أ(ه� ����!: ��أ���!: وا�

��/ ا�ـ D :!��ت ���!A�B!setup :!���� Wise for Windows Installer - Professional Edition : ا�� ا�

:!���� NA! : com.wise.www://http/ ا�

Page 206: احترف قواعد البيانات فى فيجوال بيسك 6

�!: !� �Eل ا�NA/ ا����M و!� ¢� أ����!:�N �=��8 ا������ 8� Install ) ;7 \�� '56�زك ( :!���� ' ��\ ا�B� إذه\ إ��:

Start � All Programs � Wise Solutions �Wise for Windows Installer - Professional Edition

<����!: �?; 'V� �5t هbR ا����> ا�=��� 8C�=� �N ا�

Page 207: احترف قواعد البيانات فى فيجوال بيسك 6

� إ��5 ا���ر A0�>(ا�CT ��� ا�Import Visual Basic <�� :�?; 'V� �5t هbR ا��

ا���وع ��A4�Oال Browesا�CT ��� زر ) �' V ! \�$) ارA� /��! V� �5t) ;?� "��� 8B' يRا� V����. <��ا���وع ا�Rي �B8 ���" ا�" . آ� ه�TA! A 7; ا��

"EmpInfromation " زر ��� �CTا Open' ;?� وع��ا� ) �' �=) ;?� <����� /6� � و�ا�

Page 208: احترف قواعد البيانات فى فيجوال بيسك 6

:هbR ا����> ا�=���> �Next �5t' ;?� Vا�CT ��� زر

) �' V ! \�$) ��4 ا���وع � د !�4 ا���وع آV�R ه ! ��� �CTا �¢ Ok /6�' ;?�

� و������> ا�

Page 209: احترف قواعد البيانات فى فيجوال بيسك 6

;�� : �?; '�5t ا����> ا�=���> Nextا�CT ��� زر ا�=

��� �CTا " �B� " لA0' ;ه8 وه" )A?'وع و��ء ا�� إ��دة � )�' EXE؟ �5 ! �=Eا �B� �ت دوات ا�^�D>�?; (=� �8 ذ�V و�6\ ا����� ا<... ا�=0�ر(� و[��ه� و�A0ا� ا�B�=و�ء �5

<��� : �Aف 'V� �5t هbR ا����> ا�=

Page 210: احترف قواعد البيانات فى فيجوال بيسك 6

bRدواتا�ه���!4� ا�=; �+� ���5� ا���� ;7 "! �!: ا��=^��ت ه�! وه; O�!<ا 6 ، ، �CTا ;�� �?; 'V� �5t ا����> ا�=���> ���Next زر ا�=

Page 211: احترف قواعد البيانات فى فيجوال بيسك 6

/! :!�����!: وا�� ا��4 ا�Rي �Aف (�� ا���� ا�� ��) �' V ! \�$) ��ت ا�=; �+� ا�ه O��� هRا.. ���5 +) � ;7 �TA! Aه � Employee 2006 اآ=\ آ

�ء�5إ ا�CT ��� زر Finish <��� �?; 'V� �5t هbR ا����> ا�=

�t�ر أا�ا����> �Installation Expert �5t' ;?� V إ��"�8O ا����> وا�CT ��� ا��<��� : ا�=

�ر Files >ا�CT ��� آ��! Aه ��7> ا����> <V� �5t' ;?�b هR.. آT تا��O�

Page 212: احترف قواعد البيانات فى فيجوال بيسك 6

8��O'آ+� أ.. �Nـ' 71; ا�� ) ��وعا��4 ا��; !A6Aد �7" ا� ( ���وعا���وي �� د ا��4 �Nوعـ' 72; ا����دة !/ ا�A6Aت ا������ ة ا���N د م أدوات ـ آإذاو، �^=�' y ى أ�E�ت O�آtxt or dll /�$=�' إ �5=7�T

�N5 73; ا����� �C�' �¢ ة �� د ��� ���8 ا�+�ل ا�0�'�7=5� إ���Tا�ـ �?; (=� إ setup. �� هRا (5 +) � ;7<7�Tة �07 إ �� .. ا�0B� ف '�ى إA� �5=7�T5�أ� ��5ت 7; ا��Aآ~

.. ا��t ا����> ا�=���> �8Oا�

: ا����ر �?; '�ى هbR ا����> ا�=���> > 56إ�� إذه\

Page 213: احترف قواعد البيانات فى فيجوال بيسك 6

��� �CTإShortcuts /�' �5=5! bR?=\ إوها� �$� ��� � 4!�����ر ��=Eأي 7; أو �ن �?!b 5� �?; '�5t هbR ا����>إ .. �(��� �CT:

. RDeleteا ا��� ¢� ا�CT ��� زر � د ه - : �?; '�5t ا����> ا�=���> Addإ�CT ��� زر -

Page 214: احترف قواعد البيانات فى فيجوال بيسك 6

;�����ة ��� زر ا�=�! �CTاNextR�5 هt' ;?� b <�� :�V ا��

�TA! Aه ��!: آ��� د ا��" � 4!� ا�=��; ا�CT ��� زر Employee 2006 " ا�� ���Next <��� : �?; 'V� �5t ا����> ا�=

Page 215: احترف قواعد البيانات فى فيجوال بيسك 6

) ��!A?�� � V4ن ا<أ($�\ ! V ه ����ر ��=E..د � Desktop ��� �CTا �TA! Aه � آ;�� : �?; '�5t ا����> ا�=���> Finish زر ا�=

��Tا <��� :ا����ء ا�=

V4!��ر ����=Eر إ� :هRا !�Dest. Directory �B6إ "Windows\Profiles\Desktop

V4!�7; !�4 هRا !��ر ��� ����� :ام 7�(�Lا���و[��

Working Directory �B6إ "Program Files\Employee 2006

ا<B�=� زر ��� �CTء ا�5ok<�� :� و�=�6/ �����> ا� ، � ��^�وج !� هbR ا��

��:ـ�?; ' Dialogs إ�� ا����ر وا�CT ���إذه\B8 ا�?� ��C ـ�� setup

Page 216: احترف قواعد البيانات فى فيجوال بيسك 6

<��� :اV� �5t' ;?� "��� �CT ا����> ا�=

) ��: !� �Eل '�B8 ا�?� ��T /�$=�' � ذ�V ا�+�� � د. Theme ا�ـ ه B� �¢ \�� ا� 8O�< Compile �?; '�ى آ�'6A" إ�� ا�

Page 217: احترف قواعد البيانات فى فيجوال بيسك 6

: �?; 'V� �5t ا����> ا�=���> Compile >ا�CT ��� آ�

�ء ���8 ا�+�لواآ=\ ا�� ا��� ��� ، setupا�ـ !�� � د !?�ن �� Setup ،' �'و /NA! ) � . �?; (=� إ���," Save ا�CT ��� زر C ا�ـ ا��0ص 7; ���ءا<

Page 218: احترف قواعد البيانات فى فيجوال بيسك 6

�ء !�� ا�ـ � �=) � . C و'?A( " ووBT" 7; ا��0ص ا�ـ setupه

ا<B�=� V��� \4) ء��8 7; ا�?�ن ا�Rي � د'" أ ,"إ��� '� أ�"ن '=�آ أ5N �! y� ..

��> ا��t �07 7; ا���(� ا�� V� ���) A8 وهO� �TA! Aه � :ا��� آ

4�ح SETUP ا�ـ إ���ء '� أ�"��� هRا د��8 .. ������Aن ا� E$� > ��!أي �� '�ى إذا � .. SETUP=\ ��ى !�� ا��' �?; Cن إ�� ا��0ص ا�ـ " ا� '6Aإذن

Page 219: احترف قواعد البيانات فى فيجوال بيسك 6

56�ز ��~ �7" ا�A4�Oال ����Vأي ��� SETUPا�ـ !�� >ن 'A0م �=�4�أن (?� ا� ..

bR5�8 وB) فA� <0)�$ا� ا� V���� الA4�Oز 1 (�=�ط '�آ�\ ا���!: ��� آ56 8���.

Page 220: احترف قواعد البيانات فى فيجوال بيسك 6

0�ت��!

<§�B' <0)�W~آA� A�!A?ت ا��������� )) ComboBox ((

�A� Aآ~�N �´دراج !A?ذج ا�A 5 ( ��� ا���� �C�����Vد�8 آ�� ( V� �5t�� ;�����?8 ا�=�..

����C ��� ا� Aذج د�8 آ��V واآ=\ ا�?Aد� �N ;7 ) 8��=ث ا� � – Form_Load ( ..

<��� ..آ� 7; ا��Aرة ا�=

Page 221: احترف قواعد البيانات فى فيجوال بيسك 6

ا(> ا�� ��A� Aآ~اآ=\ 7; ا�!A?ع ا�A��ك ( � $0> !=B! دA?8 ا���O' رة ) و�=�ىA8 ا��+! <0���ر ا�^��ر ا�ول ... ا��=Eا" AddItem " .. �=7س¢� اAN <!�� �¢ " اد�واآ=\ ا� � ا�

;7 bرA5�~آA� A�!A?ا� M�]أ �¢ " ... <��� ..�=��TA ا�O?�ة ا��t ا��Aرة ا�=

�!� :وهRا هA ا�?Aد آ

آ=��> هRا ا�?Aد 7; B�8و�ث ا�=� � ��� �Cل ا���E �! :!���� !� 8�C�=� �N F5 ا� ..آ� '�ى ا� =�4> 7; ا��Aرة ا�=���> .. دوات��(� ا� !� �Eل زر ا�=�8�C 7; أوا�?��Aرد

� 0 � � 1 � � � � � � � � � � � � � � Combo1.AddItem (" Excellent ") Combo1.AddItem (" Very Good ") Combo1.AddItem (" Good ") Combo1.AddItem (" Failed ") Combo1.AddItem (" Poor ") / 5 � � � �

Page 222: احترف قواعد البيانات فى فيجوال بيسك 6

> 6 ا 7; هbR ا�داة 5! <�D�E ك� :وه; .. ه

ا(> ��A� Aآ~ أ¢ �ء '���C"ه8 '�( .. أ�� ����V 7; ا�!A?أن '?=\ 7; ا� ) Run (؟

..�Aف ا��Aرة هRي وراح '�Bف ا��0

�E ك�� ه B�W ;ي وهR$0> ه 7; ا� <�� :�D> ��ن ' / ا�?=

<�D��ر Style!� ا�^=Eا Dropdown List ;7 <���A� Aآ~ وهRي ' VB !� ا�?=!A?ا�

�رك �R5ا ا�^��ر �=��¡ �?8 �=Eا B�~آA� A�!A?ا� ��C'ا ) �B�W 8�C�=ء ا�� ..) أ¢

:�� ا��t إ�� ا��Aر'�� ا�=���=... هyt�1 8 ا��Oق ؟

<��=?�� 8��N <��=?�� 8��N ��]

Dropdown List Dropdown Combo

Page 223: احترف قواعد البيانات فى فيجوال بيسك 6

�ر(�=�� <��E /Tو <�Oآ�

V4!��ر(� 7; ���=�� <��E /Tو ..!+8 ا��Aرة ا�=���> ؟ ه8 '�(

أو

�ل � B8 ا�^$Aات ا��ز!> B' إذن...

ة) �7> أداة 6Tإ �! ة ا'�/ ا�^$Aات ا�=���>و�?��O> إ .. أو1 1�) �7> أداة 6T..

�CTا Ctrl+T أو �! <,�N Project ر�=Eا Components

\)A��,> اE=� ا�=N V� �5t=�Controls <��� .. و� د ا�داة ا�=

�ر�=Eا B�� ك�=Eداة اà M7اA! ;��=��5� ��� ��(� ا�دوات آBTA�..

Page 224: احترف قواعد البيانات فى فيجوال بيسك 6

��� (أ�T ا�داة ��� ا� Aذج ��5��� Vد�8 آ�� �C ( �Tوأ Label "و� ;��=�� ..آ

5� ا� Aذج و[�� !�7;ا�ن �N ��� ا�داة �,��E ;��=�� ..آ

<0�� '���C ا�^��D> ا��B� ) Mask( – ع� �=�ى �A5رb ��� ا� Aذج .. ا�0 ;��=�� ..آ

Page 225: احترف قواعد البيانات فى فيجوال بيسك 6

..ا�ن 8�C�=� �N ا� Aذج �=�ى ا� =�4> '��� ه?Rا

V�ر(� �7" �6ب ا�' \=?' .. ;��=�� ..و��?� ��� ���8 ا�+�ل آ

�ر(� 7; ا� Aذج ا�ن 6�ء دور' <��E ���' آ�� y�B' أن B� إ�7اغ <�O7> آ��B!� ) � �Oض أن � ( V�Aذج ����?8 ا�=��; و�7" ا�دوات ا�=���> ( ! ا��0> ا�A6Aدة 5�7

��� �C�4د ا��� �ت و!� ¢� (=�(=� �O¡ ا� زر �O¡ و'�(���� ة ا���N ;7 ت����� إ�7اغ) �ل !� 6E��5 �¹د=) ;?� ) ��y وا�T> ... ا��6 �! 80Dة أ�?Oا� ا�=0 ..ا�ن

" " = A?) .. Text1ن �R5ا ا��?8 ا�=?�A� yآ~ أ��B' yف أن إ�7اغ

��> ا�=�ر(� و�?� <�7اغE �0��! � ..ا�=?�A� yآ~ �� '^=��ا�=; أدر6 �ه bRإ�7اغوه <C�D �)ر� .. ا�^��> !� ا�=

MaskEdBox1.Text = "____/__/__"

MaskEdBox1 ... ذجA دة ��� ا�A6A! ;ا ا�� ا�داة ا��Rه �B�W .. /6را ;Tا71=�ا �5� وراح '�Aف أن هRا ا�5� �,�� �� �A0م �=b���C .. ا�^� ��.

Page 226: احترف قواعد البيانات فى فيجوال بيسك 6

!�B8 ا�����ن (=0�8 ! ; هRا اأوا��ل ا �L و86 E ;7 8��0س > ا��� �V�R أ ا وإن، ا� ��!�لN c�� 86و L� ا����� �ا��� �س �� � { ��� اÝ �� اA�ANو {

��tBا� ;�Bا� ق اD

�ت و6�A�' �! /ط �" � أوأ��ل ا !Sوا� �� !S/ ا��6 M7A) ن�)�N �! /�6و �� ـ= � �رة )Lء وا��� و#�" ا�$�ه�(�>وأ��ل ا ا�=A� ..ا��! M�� ت��1 إ A� 1ل وAN 1ة �"´ 7 .. وا�+

��tBا� ;�Bا� ��... �ت وا����� وا����ت أ !Sوا� �� !S/ ا��إ�� 6 ��C8 ا��Bا ا�Rي ه و����E وا� ي ه

�ص إ�� �L)Lي E �?و� ;,���,; وا�N Dا Lوأ� ;=��$E; و=; و�ي و� �;ووا� وا��� و���; �L)Lي ا�ــ �� ���� ا�$AعCا� V�R8 وآBا ا�Rح ه� ا��� ا�Rي ��رك !B; 7; إ�4

����ت إن ا �OB6 �� ���� ا�5 !Sوا� �� !S/ ا��ي و�; و�4 وأ��ل ا ��5 ا�=M�7A ا���!� ا و��B ا�Aآ�8.. ��/ ���� � و��

� وا�E1ة ; � 7إ�B6ا��O� ;7 .." �5¡ ا ا�?�(� �� �W" ا�Lه�اء و5�6� 7; ا� "

6��� ا����ي ;�� com.hotmail@sa_k_Norton net.vbteam.www

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

:' ��M و' M�N إ!�,; ا�5���ا���! ���� �OB6 �

com.hotmail@343Gafer

Created in : Saturday : 23/12/2006 Time : 2:54 PM