VERSION 5.00 Begin VB.Form frmEmployee BackColor = &H00FFC0C0& Caption = "ملف الموظف Employee Master File" ClientHeight = 8595 ClientLeft = 60 ClientTop = 345 ClientWidth = 11880 LinkTopic = "Form1" RightToLeft = -1 'True ScaleHeight = 8595 ScaleWidth = 11880 StartUpPosition = 2 'CenterScreen Begin VB.Frame Frame5 BackColor = &H00FFC0C0& Height = 735 Left = 120 RightToLeft = -1 'True TabIndex = 43 Top = 7680 Width = 11655 Begin VB.TextBox Text1 Alignment = 1 'Right Justify Height = 375 Left = 6600 RightToLeft = -1 'True TabIndex = 67 Top = 240 Width = 735 End Begin VB.TextBox txtRec Alignment = 1 'Right Justify BackColor = &H00FFC0C0& BorderStyle = 0 'None ForeColor = &H00000080& Height = 405 Left = 1800 RightToLeft = -1 'True TabIndex = 66 Top = 240 Width = 855 End Begin VB.TextBox Text7 Alignment = 1 'Right Justify BackColor = &H00C0C0FF& Height = 375 Left = 120 RightToLeft = -1 'True TabIndex = 64 Text = "Text7" Top = 240 Visible = 0 'False Width = 735 End Begin VB.TextBox txtRecord Alignment = 1 'Right Justify BackColor = &H00FFC0C0& BorderStyle = 0 'None DataSource = "Data1" ForeColor = &H00C00000& Height = 375 Left = 4320 RightToLeft = -1 'True TabIndex = 48 Top = 240 Width = 855 End Begin VB.CommandButton cmdLast Caption = ">l" Height = 375 Index = 3 Left = 5880 RightToLeft = -1 'True TabIndex = 47 Top = 240 Width = 375 End Begin VB.CommandButton cmdNext Caption = ">" Height = 375 Index = 2 Left = 6240 RightToLeft = -1 'True TabIndex = 46 Top = 240 Width = 375 End Begin VB.CommandButton cmdPrevious Caption = "<" Height = 375 Index = 1 Left = 7320 RightToLeft = -1 'True TabIndex = 45 Top = 240 Width = 375 End Begin VB.CommandButton cmdMove Caption = "l<" Height = 375 Index = 0 Left = 7680 RightToLeft = -1 'True TabIndex = 44 Top = 240 Width = 375 End End Begin VB.Frame Frame4 BackColor = &H00FFC0C0& Height = 3975 Left = 120 RightToLeft = -1 'True TabIndex = 42 Top = 3360 Width = 3615 Begin VB.CommandButton cmdExit Caption = "عودة Exit" Height = 495 Index = 4 Left = 360 RightToLeft = -1 'True TabIndex = 17 Top = 3240 Width = 3135 End Begin VB.CommandButton cmdSave Caption = "حفظ Save" Height = 495 Index = 3 Left = 360 RightToLeft = -1 'True TabIndex = 16 Top = 2520 Width = 3135 End Begin VB.CommandButton cmdAdd Caption = "اضافة Add" Height = 495 Index = 2 Left = 360 RightToLeft = -1 'True TabIndex = 15 Top = 1800 Width = 3135 End Begin VB.CommandButton cmdEdit Caption = "تعديل Edit" Height = 495 Index = 1 Left = 360 RightToLeft = -1 'True TabIndex = 14 Top = 1080 Width = 3135 End Begin VB.CommandButton cmdDelete BackColor = &H00C00000& Caption = "حذف Delete" Height = 495 Index = 0 Left = 360 RightToLeft = -1 'True TabIndex = 13 Top = 360 Width = 3135 End End Begin VB.Frame Frame3 BackColor = &H00FFC0C0& Height = 3975 Left = 3840 RightToLeft = -1 'True TabIndex = 30 Top = 3360 Width = 7935 Begin VB.OptionButton Option4 Alignment = 1 'Right Justify BackColor = &H00FFC0C0& Caption = "12 شهراً" ForeColor = &H00000080& Height = 255 Left = 1440 RightToLeft = -1 'True TabIndex = 41 Top = 240 Width = 975 End Begin VB.OptionButton Option3 Alignment = 1 'Right Justify BackColor = &H00FFC0C0& Caption = "24 شهراً" ForeColor = &H00000080& Height = 255 Left = 3960 RightToLeft = -1 'True TabIndex = 40 Top = 240 Width = 975 End Begin VB.TextBox txtDept Alignment = 1 'Right Justify BackColor = &H00C0C0FF& DataField = "GOSTBase" DataSource = "AdoEmployee" Height = 285 Index = 12 Left = 3600 RightToLeft = -1 'True TabIndex = 12 Top = 3240 Width = 1335 End Begin VB.TextBox txtDept Alignment = 1 'Right Justify BackColor = &H00C0C0FF& DataField = "BankAccount" DataSource = "AdoEmployee" Height = 285 Index = 11 Left = 3600 RightToLeft = -1 'True TabIndex = 11 Top = 2760 Width = 1335 End Begin VB.TextBox txtDept Alignment = 1 'Right Justify BackColor = &H00C0C0FF& DataField = "FoodAllow" DataSource = "AdoEmployee" Height = 285 Index = 10 Left = 3600 RightToLeft = -1 'True TabIndex = 10 Top = 2040 Width = 1335 End Begin VB.TextBox txtDept Alignment = 1 'Right Justify BackColor = &H00C0C0FF& DataField = "Transportation" DataSource = "AdoEmployee" Height = 285 Index = 9 Left = 3600 RightToLeft = -1 'True TabIndex = 9 Top = 1680 Width = 1335 End Begin VB.TextBox txtDept Alignment = 1 'Right Justify BackColor = &H00C0C0FF& DataField = "HousingAllow" DataSource = "AdoEmployee" Height = 285 Index = 8 Left = 3600 RightToLeft = -1 'True TabIndex = 8 Top = 1320 Width = 1335 End Begin VB.TextBox txtDept Alignment = 1 'Right Justify BackColor = &H00C0C0FF& DataField = "BasicSalary" DataSource = "AdoEmployee" Height = 285 Index = 7 Left = 3600 RightToLeft = -1 'True TabIndex = 7 Top = 960 Width = 1335 End Begin VB.TextBox txtDept Alignment = 1 'Right Justify BackColor = &H00C0C0FF& DataField = "IstBS" DataSource = "AdoEmployee" Height = 285 Index = 6 Left = 3600 RightToLeft = -1 'True TabIndex = 6 Top = 600 Width = 1335 End Begin VB.Line Line29 BorderColor = &H00000080& X1 = 6120 X2 = 5520 Y1 = 3360 Y2 = 3360 End Begin VB.Line Line28 BorderColor = &H00000080& X1 = 6840 X2 = 5520 Y1 = 3000 Y2 = 3000 End Begin VB.Line Line27 BorderColor = &H00000080& X1 = 6840 X2 = 5520 Y1 = 2640 Y2 = 2640 End Begin VB.Line Line26 BorderColor = &H00000080& X1 = 6960 X2 = 5520 Y1 = 2160 Y2 = 2160 End Begin VB.Line Line25 BorderColor = &H00000080& X1 = 6720 X2 = 5520 Y1 = 1800 Y2 = 1800 End Begin VB.Line Line24 BorderColor = &H00000080& X1 = 6960 X2 = 5520 Y1 = 1440 Y2 = 1440 End Begin VB.Line Line23 BorderColor = &H00000080& X1 = 6600 X2 = 5520 Y1 = 1080 Y2 = 1080 End Begin VB.Line Line22 BorderColor = &H00000080& X1 = 6360 X2 = 5520 Y1 = 720 Y2 = 720 End Begin VB.Line Line21 BorderColor = &H00000080& X1 = 7080 X2 = 5520 Y1 = 360 Y2 = 360 End Begin VB.Line Line13 BorderColor = &H00000080& X1 = 1920 X2 = 3000 Y1 = 3360 Y2 = 3360 End Begin VB.Line Line12 BorderColor = &H00000080& X1 = 1800 X2 = 3000 Y1 = 2880 Y2 = 2880 End Begin VB.Line Line11 BorderColor = &H00000080& X1 = 1560 X2 = 3000 Y1 = 2160 Y2 = 2160 End Begin VB.Line Line10 BorderColor = &H00000080& X1 = 1920 X2 = 3000 Y1 = 1800 Y2 = 1800 End Begin VB.Line Line9 BorderColor = &H00000080& X1 = 1800 X2 = 3000 Y1 = 1440 Y2 = 1440 End Begin VB.Line Line8 BorderColor = &H00000080& X1 = 1560 X2 = 3000 Y1 = 1080 Y2 = 1080 End Begin VB.Line Line7 BorderColor = &H00000080& X1 = 1080 X2 = 3000 Y1 = 720 Y2 = 720 End Begin VB.Label txtGOST Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = ".G.O.S.T .Base" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 178 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 240 RightToLeft = -1 'True TabIndex = 63 Top = 3240 Width = 1575 End Begin VB.Label Label31 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "Bank Account" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 178 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 240 RightToLeft = -1 'True TabIndex = 62 Top = 2760 Width = 1455 End Begin VB.Label Label30 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "Food Allow" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 178 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 240 RightToLeft = -1 'True TabIndex = 61 Top = 2040 Width = 1215 End Begin VB.Label Label29 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "TransPortation Allow" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 178 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 375 Left = 120 RightToLeft = -1 'True TabIndex = 60 Top = 1680 Width = 1815 End Begin VB.Label Label28 Alignment = 1 'Right Justify BackColor = &H00FFFFC0& BackStyle = 0 'Transparent Caption = "Housing Allow" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 178 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 120 RightToLeft = -1 'True TabIndex = 59 Top = 1320 Width = 1575 End Begin VB.Label Label27 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "Basic Salary" DataField = "Basic Salary" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 178 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 120 RightToLeft = -1 'True TabIndex = 58 Top = 960 Width = 1455 End Begin VB.Label Label26 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "First.B.S" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 178 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 120 RightToLeft = -1 'True TabIndex = 57 Top = 600 Width = 975 End Begin VB.Label lblBank Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "رقم الحساب" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 178 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 6960 RightToLeft = -1 'True TabIndex = 39 Top = 2880 Width = 855 End Begin VB.Label Label16 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "طريقة الدفع" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 178 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 6960 RightToLeft = -1 'True TabIndex = 38 Top = 2520 Width = 855 End Begin VB.Label lblFood Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "بدل الطعام" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 178 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 6960 RightToLeft = -1 'True TabIndex = 37 Top = 2040 Width = 855 End Begin VB.Label lblTrans Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "بدل المواصلات" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 178 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 6600 RightToLeft = -1 'True TabIndex = 36 Top = 1680 Width = 1215 End Begin VB.Label lblGOST Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "اساسى حساب التأمينات الاجتماعية" ForeColor = &H00000080& Height = 375 Left = 6120 RightToLeft = -1 'True TabIndex = 35 Top = 3240 Width = 1695 End Begin VB.Label lblHuosing Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "بدل السكن" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 178 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 6960 RightToLeft = -1 'True TabIndex = 34 Top = 1320 Width = 855 End Begin VB.Label lblBasic Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "الراتب الاساسى" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 178 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 6480 RightToLeft = -1 'True TabIndex = 33 Top = 960 Width = 1335 End Begin VB.Label lblFirst Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "الراتب الاول للموظف" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 178 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 6360 RightToLeft = -1 'True TabIndex = 32 Top = 600 Width = 1455 End Begin VB.Label lblContract Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "نوع العقد" DataField = "نوع العقد" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 178 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 7080 RightToLeft = -1 'True TabIndex = 31 Top = 240 Width = 735 End End Begin VB.Frame Frame2 BackColor = &H00FFC0C0& Height = 1695 Left = 120 RightToLeft = -1 'True TabIndex = 22 Top = 1560 Width = 11655 Begin VB.ComboBox Stcom BackColor = &H00C0C0FF& DataField = "الحالة الاجتماعية" DataSource = "Data1" Height = 315 Left = 1320 RightToLeft = -1 'True TabIndex = 29 Top = 1320 Width = 1455 End Begin VB.OptionButton Option2 Alignment = 1 'Right Justify BackColor = &H00FFC0C0& Caption = "انثى" ForeColor = &H00000080& Height = 255 Left = 5280 RightToLeft = -1 'True TabIndex = 28 Top = 1320 Width = 855 End Begin VB.OptionButton Option1 Alignment = 1 'Right Justify BackColor = &H00FFC0C0& Caption = "ذكر" ForeColor = &H00000080& Height = 315 Left = 7560 RightToLeft = -1 'True TabIndex = 27 Top = 1320 Width = 1095 End Begin VB.TextBox txtDept Alignment = 1 'Right Justify BackColor = &H00C0C0FF& DataField = "Nationality" DataSource = "AdoEmployee" Height = 285 Index = 5 Left = 2760 RightToLeft = -1 'True TabIndex = 5 Top = 960 Width = 5895 End Begin VB.TextBox txtDept Alignment = 1 'Right Justify BackColor = &H00C0C0FF& DataField = "Name" DataSource = "AdoEmployee" Height = 285 Index = 4 Left = 2760 RightToLeft = -1 'True TabIndex = 4 Top = 600 Width = 5895 End Begin VB.TextBox txtDept Alignment = 1 'Right Justify BackColor = &H00C0C0FF& DataField = "Id" DataSource = "AdoEmployee" Height = 285 Index = 3 Left = 5280 RightToLeft = -1 'True TabIndex = 3 Top = 240 Width = 975 End Begin VB.Label Label2 Alignment = 1 'Right Justify BackColor = &H00FFC0C0& Caption = "الجنس" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 178 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 10920 RightToLeft = -1 'True TabIndex = 65 Top = 1320 Width = 615 End Begin VB.Line Line20 BorderColor = &H00000080& X1 = 10440 X2 = 9240 Y1 = 1440 Y2 = 1440 End Begin VB.Line Line19 BorderColor = &H00000080& X1 = 10800 X2 = 9240 Y1 = 1080 Y2 = 1080 End Begin VB.Line Line18 BorderColor = &H00000080& X1 = 10440 X2 = 9240 Y1 = 720 Y2 = 720 End Begin VB.Line Line17 BorderColor = &H00000080& X1 = 10440 X2 = 9240 Y1 = 360 Y2 = 360 End Begin VB.Line Line6 BorderColor = &H00000080& X1 = 1320 X2 = 2160 Y1 = 1080 Y2 = 1080 End Begin VB.Line Line5 BorderColor = &H00000080& X1 = 840 X2 = 2160 Y1 = 720 Y2 = 720 End Begin VB.Line Line4 BorderColor = &H00000080& X1 = 720 X2 = 2160 Y1 = 360 Y2 = 360 End Begin VB.Label Label25 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "M.Status" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 178 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 120 RightToLeft = -1 'True TabIndex = 56 Top = 1320 Width = 975 End Begin VB.Label Label24 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "sex" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 178 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 10560 RightToLeft = -1 'True TabIndex = 55 Top = 1320 Width = 375 End Begin VB.Label Label23 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "Nationality" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 178 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 120 RightToLeft = -1 'True TabIndex = 54 Top = 960 Width = 1095 End Begin VB.Label Label22 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "Name" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 178 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 120 RightToLeft = -1 'True TabIndex = 53 Top = 600 Width = 615 End Begin VB.Label Label21 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = ".I.D" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 178 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 120 RightToLeft = -1 'True TabIndex = 52 Top = 240 Width = 495 End Begin VB.Label lblMStatus Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "الحالة الاجتماعية" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 178 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 2880 RightToLeft = -1 'True TabIndex = 26 Top = 1440 Width = 1455 End Begin VB.Label lblNational Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "الجنسية" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 178 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 10800 RightToLeft = -1 'True TabIndex = 25 Top = 960 Width = 735 End Begin VB.Label lblName Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "اسم الموظف" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 178 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 10560 RightToLeft = -1 'True TabIndex = 24 Top = 600 Width = 975 End Begin VB.Label lblID Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "رقم الموظف" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 178 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 10560 RightToLeft = -1 'True TabIndex = 23 Top = 240 Width = 975 End End Begin VB.Frame Frame1 BackColor = &H00FFC0C0& Height = 1335 Left = 120 RightToLeft = -1 'True TabIndex = 18 Top = 120 Width = 11655 Begin VB.TextBox txtDept Alignment = 1 'Right Justify BackColor = &H00C0C0FF& DataField = "Location" DataSource = "AdoEmployee" Height = 285 Index = 2 Left = 2760 RightToLeft = -1 'True TabIndex = 2 Top = 960 Width = 5895 End Begin VB.TextBox txtDept Alignment = 1 'Right Justify BackColor = &H00C0C0FF& DataField = "Section" DataSource = "AdoEmployee" Height = 285 Index = 1 Left = 2760 RightToLeft = -1 'True TabIndex = 1 Top = 600 Width = 5895 End Begin VB.TextBox txtDept Alignment = 1 'Right Justify BackColor = &H00C0C0FF& DataField = "Dept" DataSource = "AdoEmployee" Height = 285 Index = 0 Left = 2760 RightToLeft = -1 'True TabIndex = 0 Top = 240 Width = 5895 End Begin VB.Line Line16 BorderColor = &H00000080& X1 = 10800 X2 = 9120 Y1 = 1080 Y2 = 1080 End Begin VB.Line Line15 BorderColor = &H00000080& X1 = 10800 X2 = 9120 Y1 = 720 Y2 = 720 End Begin VB.Line Line14 BorderColor = &H00000080& X1 = 10800 X2 = 9120 Y1 = 360 Y2 = 360 End Begin VB.Line Line3 BorderColor = &H00000080& X1 = 960 X2 = 2160 Y1 = 1080 Y2 = 1080 End Begin VB.Line Line2 BorderColor = &H00000080& X1 = 960 X2 = 2160 Y1 = 720 Y2 = 720 End Begin VB.Line Line1 BorderColor = &H00000080& X1 = 720 X2 = 2160 Y1 = 360 Y2 = 360 End Begin VB.Label Label20 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "Location" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 178 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 0 RightToLeft = -1 'True TabIndex = 51 Top = 960 Width = 975 End Begin VB.Label Label19 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "Section" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 178 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 0 RightToLeft = -1 'True TabIndex = 50 Top = 600 Width = 855 End Begin VB.Label Label18 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "Dept" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 178 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 375 Left = 120 RightToLeft = -1 'True TabIndex = 49 Top = 240 Width = 495 End Begin VB.Label lblLocation Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "الموقع" BeginProperty Font Name = "MS Sans Serif" Size = 12 Charset = 178 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 375 Left = 10920 RightToLeft = -1 'True TabIndex = 21 Top = 960 Width = 615 End Begin VB.Label lblJection Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "القسم" BeginProperty Font Name = "MS Sans Serif" Size = 12 Charset = 178 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 375 Left = 11040 RightToLeft = -1 'True TabIndex = 20 Top = 600 Width = 495 End Begin VB.Label Label1 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "الادارة" BeginProperty Font Name = "MS Sans Serif" Size = 12 Charset = 178 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 375 Left = 10800 RightToLeft = -1 'True TabIndex = 19 Top = 240 Width = 735 End End End Attribute VB_Name = "frmEmployee" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim EditORAdd As Boolean Dim rs As New ADODB.Recordset Dim db As New ADODB.Connection Private Sub cmdAdd_Click(Index As Integer) txtDept(0).Text = "" txtDept(1).Text = "" txtDept(2).Text = "" txtDept(3).Text = "" txtDept(4).Text = "" txtDept(5).Text = "" txtDept(6).Text = "" txtDept(7).Text = "" txtDept(8).Text = "" txtDept(9).Text = "" txtDept(10).Text = "" txtDept(11).Text = "" txtDept(12).Text = "" txtDept(0).SetFocus EditORAdd = True End Sub Private Sub cmdDelete_Click(Index As Integer) Del = MsgBox("هل تريد الحزف؟" & Dept, vbYesNo + vbDefaultButton2, "انتبه!!") If Del = vbYes Then rs.Delete End If End Sub Private Sub cmdEdit_Click(Index As Integer) Call EnabledUnEnabled(False) txtDept(0).SetFocus EditORAdd = False End Sub Private Sub cmdExit_Click(Index As Integer) ext = MsgBox("هل تود انهاء العمل؟", vbYesNo + vbMsgBoxRight + vbQuestion + vbDefaultButton1, "انهاء") If ext = vbYes Then frmPayRollsPersonal.Visible = True frmEmployee.Visible = False End If Call EnabledUnEnabled(True) Call ViewRecord End Sub Private Sub cmdFirst_Click() End Sub Private Sub cmdLast_Click(Index As Integer) If Not rs.EOF Then With rs .MovePrevious If rs.EOF And rs.RecordCount > 0 Then Beep End If Call ViewRecord End With End If End Sub Private Sub cmdNext_Click(Index As Integer) If Not rs.EOF Then rs.MoveNext If rs.EOF And rs.RecordCount > 0 Then Beep rs.MoveLast End If End If End Sub Private Sub cmdMove_Click(Index As Integer) If Not rs.BOF Then With rs .MoveFirst End With If rs.BOF And rs.RecordCount > 0 Then Beep End If Call ViewRecord End If End Sub Private Sub cmdPrevious_Click(Index As Integer) With rs If Not rs.BOF Then .MovePrevious End If If rs.BOF And rs.RecordCount > 0 Then Beep rs.MoveFirst End If Call ViewRecord End With End Sub Private Sub cmdSave_Click(Index As Integer) Save = MsgBox("هل انت متأكد من الحفظ؟" & Dept, vbYesNo + vbMsgBoxRight + vbApplicationModal + vbCritical + vbDefaultButton2, "تحزير") If Save = vbYes Then If Trim(txtDept(1).Text) = "" Then txtDept(0).SetFocus End If End If With rs If EditORAdd = True Then .AddNew ![Section] = Trim(txtDept(1).Text) If Not Trim(txtDept(4).Text) = "" Then ![Name] = Trim(txtDept(4).Text) .Update .Save rs.Requery rs.MoveLast Call EnabledUnEnabled(True) Call ViewRecord End If End If End With End Sub Private Sub Form_Load() db.Provider = "Microsoft.Jet.OLEDB.4.0;" db.Open App.Path & "\db1.mdb" rs.Open "[Employee]", db, adOpenStatic, adLockPessimistic Set txtDept(0).DataSource = rs Set txtDept(1).DataSource = rs Set txtDept(2).DataSource = rs Set txtDept(3).DataSource = rs Set txtDept(4).DataSource = rs Set txtDept(5).DataSource = rs Set txtDept(6).DataSource = rs Set txtDept(7).DataSource = rs Set txtDept(8).DataSource = rs Set txtDept(9).DataSource = rs Set txtDept(10).DataSource = rs Set txtDept(11).DataSource = rs Set txtDept(12).DataSource = rs txtDept(0).DataField = "Dept" txtDept(1).DataField = "Section" txtDept(2).DataField = "Location" txtDept(3).DataField = "ID" txtDept(4).DataField = "Name" txtDept(5).DataField = "Nationality" txtDept(6).DataField = "IstBS" txtDept(7).DataField = "BasicSalary" txtDept(8).DataField = "HousingAllow" txtDept(9).DataField = "TransPortation" txtDept(10).DataField = "FoodAllow" txtDept(11).DataField = "GOSTBase" End Sub Private Sub Option1_Click() 'وضع قيمة واحد التى تمثل ذكر Text7.Text = Str$(1) End Sub Private Sub Option2_Click() 'وضع قيمة صفر التى تمثل انه انثى Text7.Text = Str$(0) End Sub Private Sub ViewRecord() If Not rs.RecordCount = 0 Then txtDept(0).Text = "" txtDept(1).Text = "" txtDept(2).Text = "" txtDept(3).Text = "" txtDept(4).Text = "" txtDept(5).Text = "" txtDept(6).Text = "" txtDept(7).Text = "" txtDept(8).Text = "" txtDept(9).Text = "" txtDept(10).Text = "" txtDept(11).Text = "" txtDept(12).Text = "" End If End Sub Private Sub EnabledUnEnabled(n As Boolean) txtDept(0).Locked = n txtDept(1).Locked = n txtDept(2).Locked = n txtDept(3).Locked = n txtDept(4).Locked = n txtDept(5).Locked = n txtDept(6).Locked = n txtDept(7).Locked = n txtDept(8).Locked = n txtDept(9).Locked = n txtDept(11).Locked = n txtDept(12).Locked = n cmdMove(0).Enabled = True cmdPrevious(1).Enabled = True cmdNext(2).Enabled = True cmdLast(3).Enabled = True cmdDelete(0).Enabled = True cmdEdit(1).Enabled = True cmdAdd(2).Enabled = True cmdSave(3).Enabled = True cmdExit(4).Enabled = True If rs.RecordCount = 0 Then cmdEdit(1).Enabled = False cmdDelete(0).Enabled = False End If End Sub