[asemshahen5]

إبدأ بفورم فارغ و ضع عليه التالي :

داتا غريد فيو - زر إضافة شركة - حذف شركة - فتح شركة محددة .

لتكون كالشكل التالي :

   

و الان نقوم بالتالي :

نضع مديول جديد بالبرنامج و نسميه CompanyInformation .

نضع به كود البحث عن قاعدة بيانات الشركات في حال غير موجودة يقوم بانشائها مع جدول الشركات ثم يعبئ الجدول في الفورم التي انشانها كالتالي :

PHP كود :

Module CompanyInformation
    Dim cn As New System.Data.SqlClient.SqlConnection("Server =(local);database=master;integrated security=true")
    Dim con As New System.Data.SqlClient.SqlConnection("Server =(local);database=Companys;integrated security=true")
    Public Sub FindDBComName(Dgv As DataGridView)
        Dim StrSQL As String = "select name from sysdatabases where name='Companys'"
        Dim da As New System.Data.SqlClient.SqlDataAdapter(StrSQL, cn)
        Dim dt As New DataTable
        da.Fill(dt)
        If dt.Rows.Count = 0 Then
            CreateDatabaseCompanys(Dgv)
        Else
            LoadDgv(Dgv)
        End If
    End Sub
    Sub CreateDatabaseCompanys(Dgv As DataGridView)
        Dim StrSQL As String = "Create database Companys"
        Dim da As New System.Data.SqlClient.SqlDataAdapter(StrSQL, cn)
        Dim dt As New DataTable
        da.Fill(dt)
        CreateTable(Dgv)
    End Sub
    Sub CreateTable(Dgv As DataGridView)
        Dim StrSQL As String = "CREATE TABLE [dbo].[CompanyName](" _
 & "ID int Not Null," _
 & "CompanyName nvarchar(255) Not Null," _
 & "StartDate date Not Null," _
 & "EndDate date Not Null," _
 & "CompanyCase bit Not Null," _
 & "ServerName nvarchar(255) Not Null," _
 & "DatabaseName nvarchar(255) Not Null" _
 & ") ON [PRIMARY]"
        Dim da As New System.Data.SqlClient.SqlDataAdapter(StrSQL, con)
        Dim dt As New DataTable
        da.Fill(dt)
    End Sub
    Sub LoadDgv(Dgv As DataGridView)
        Dim StrSQL As String = "Select * From CompanyName"
        Dim da As New System.Data.SqlClient.SqlDataAdapter(StrSQL, con)
        Dim dt As New DataTable
        da.Fill(dt)
        For Each row As DataRow In dt.Rows
            Dgv.Rows.Add(row.ItemArray)
        Next
    End Sub
End Module 


و دي أول خطوة لانشاء ملفات الشركات نكمل في الحلقة القادمة .