[asemshahen5]

نكمل الان نضيف فورم جديد و نسميه LoginAdminFrm و يكون كالتالي :

   

نضع الكود التالي بداخله :

PHP كود :

Public Class LoginAdminFrm
    Private Sub BtnLogin_Click(sender As Object, e As EventArgs) Handles BtnLogin.Click
        If Txt_UserName.Text = My.Settings.AdminUserID And Txt_Password.Text = My.Settings.AdminPassword Then
            Dim Frm As New CreateCompany
            Frm.ShowDialog()
            Close()
        Else
            MsgBox("اسم المستخدم أو كلمة المرور خاطئة")
        End If
    End Sub
    Private Sub BtnClose_Click(sender As Object, e As EventArgs) Handles BtnClose.Click
        Close()
    End Sub
End Class 


وبذالك نكون قد انهينا النافذة .

نعود لنافذة CompanysFrm و نبدأ بكتابة الاكواد :

   

في حدث تحميل الفورم Form1_Load نضع الكود التالي :

PHP كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        FindDBComName(DataGridView1)
        If DataGridView1.Rows.Count = 0 Then
            If My.Settings.AdminUserID.Length = 0 Or My.Settings.AdminPassword.Length = 0 Then
                Dim Frm As New AddAdminCompanys
                Frm.ShowDialog()
            Else
                Dim Frm As New LoginAdminFrm
                Frm.ShowDialog()
            End If
        End If
    End Sub 


و في زر BtnAddCompany نضع الكود التالي :

PHP كود :

       If My.Settings.AdminUserID.Length = 0 Or My.Settings.AdminPassword.Length = 0 Then
            Dim Frm As New AddAdminCompanys
            Frm.ShowDialog()
        Else
            Dim Frm As New LoginAdminFrm
            Frm.ShowDialog()
        End If 


و الان نأتي الى زر BtnDeleteCompany نضع نفس الكود السابق :

PHP كود :

   Private Sub BtnDeleteCompany_Click(sender As Object, e As EventArgs) Handles BtnDeleteCompany.Click
        If My.Settings.AdminUserID.Length = 0 Or My.Settings.AdminPassword.Length = 0 Then
            Dim Frm As New AddAdminCompanys
            Frm.ShowDialog()
        Else
            Dim Frm As New LoginAdminFrm
            Frm.ShowDialog()
        End If
    End Sub 


بقي أهم كود في البرنامج ككل كود زر BtnClose نضع الكود التالي :

PHP كود :

   Private Sub BtnClose_Click(sender As Object, e As EventArgs) Handles BtnClose.Click
        Close()
    End Sub 


و نكون بهذا انهينا النوافذ الخاصة بموضوع الشركات .

اعرف عندك سؤال كيف سأستفيد من كل هذا الموضوع الاساسي هو تسجل الدخول الى ملف قاعدة البيانات الخاص بشركة محددة و نص السؤال الاساسي ؟

نبدأ الان باذن الله .

نضيف مجلد جديد للمشروع نسميه CompanyForm نضع به :

نضيف الفورمات التالية و نسميهما MainForm - NewUserLogin - UserLogin .

و قبل البدا بعمل عليهم نسترجع بعض الذكرايات التالية :

كود ExecutesqlFile وو ظيفته     'يقرأ ملفات السكول سيرفر من ملفات التكست الموجودة في مسار البرنامج' لماذا هذا السب وضع الان سأقول لك نجهز سكربت كود

إنشاء الجداول التالية :

UserControl - AccountsTree ونعبئ جدول الشجرة المحاسبية بالسجلات وملف السكربت يوضع في مجلد Debug الخاص بالبرنامج .

سأرفق السكربت بالمرفقات .

نكمل بالحلقة القادمة .

---

ارني رسالة الخطأ و كود الاستدعاء و كود الاتصال على فكرة كل خطوة كتبتها طبقتها على مثال عندي قبل كتابتها .