تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيفية عمل تعدد الشركات في البرنامج المحاسبي
#1
المطلوب فى شاشه دخول البرنامج يكون فى اختيار اى قاعده بيانات تريد الاتصال بها مثلا
لو برنامح محاسبه فكره التعامل مع اكثر من شركه
وشكرااا
الرد
تم الشكر بواسطة: سعود
#2
بالبداية يجب ان يكون عندك نافذة قبل نافذة تسجيل الدخول و هي نافذة اختيار الشركة و تكون كالتالي :

   

و يكون بالجدول عامود مخفي فيه اسم قاعدة البيانات و كل هذا يكون بجدول بقاعدة بيانات تختص بخصائص البرنامج .

و يكون الجدول كالتالي :

   

و عند اختيار سجل من الداتا غريد فيو يقوم بحفظ القيمة المحددة من العامود المخفي في السيتنغ بالكود التالي :

PHP كود :
       My.Settings.DatabaseName Dgv_Table.CurrentRow.Cells("DATABASENAME").Value
        My
.Settings.Save() 

و يكون كود الاتصال بقاعدة البيانات كالتالي :

PHP كود :
       Dim cn As New SqlConnection("Server =(local);database=" My.Settings.DatabaseName ";integrated security=true"

و الباقي اصبح سهلا موفق انشاء الله .
الرد
#3
(13-08-19, 09:43 PM)asemshahen5 كتب : بالبداية يجب ان يكون عندك نافذة قبل نافذة تسجيل الدخول و هي نافذة اختيار الشركة و تكون كالتالي :



و يكون بالجدول عامود مخفي فيه اسم قاعدة البيانات و كل هذا يكون بجدول بقاعدة بيانات تختص بخصائص البرنامج .

و يكون الجدول كالتالي :



و عند اختيار سجل من الداتا غريد فيو يقوم بحفظ القيمة المحددة من العامود المخفي في السيتنغ بالكود التالي :

PHP كود :
       My.Settings.DatabaseName Dgv_Table.CurrentRow.Cells("DATABASENAME").Value
        My
.Settings.Save() 

و يكون كود الاتصال بقاعدة البيانات كالتالي :

PHP كود :
       Dim cn As New SqlConnection("Server =(local);database=" My.Settings.DatabaseName ";integrated security=true"

و الباقي اصبح سهلا موفق انشاء الله .

شكرااا جزيلاً جارى التجربه وسوف اوضح ما وصلت اليه ان شاء الله
شكراا مره اخرى

هل ممكن إرفاق المثال الموضح
الرد
تم الشكر بواسطة: asemshahen5 , سعود , ابراهيم ايبو
#4
المثال الموضح برنامج محاسبة اعمل عليه .
الرد
تم الشكر بواسطة: سعود , ابراهيم ايبو
#5
(13-08-19, 10:20 PM)asemshahen5 كتب : المثال الموضح برنامج محاسبة اعمل عليه .

انا اسف لتكرار الأسئلة
هل ممكن تعطينى صيغه ابحث عنها عن فديوهات شرح او امثله توضيحيه لانى مبتدئ وشكرااا لك
الرد
تم الشكر بواسطة: سعود , ابراهيم ايبو
#6
مالذي لم تفهمه لأقوم بشرحه لك .
الرد
تم الشكر بواسطة: سعود , ابراهيم ايبو
#7
المطلوب هو فتح اكثر من شركة
ولا اريد سنوات مالية
هل انشئ قاعدة بيانات اسمها company مثلا
او انا كنت افكر فى فكرة هى ان اقوم مثلا بانشاء قاعدة البيانات فى السيكول اكثر من مرة
ولتكن stock01 , stock02 ,وهاكذا وعند الدخول يختار اى قاعدة ولكن هذا يتطلب تعديل لكود الاتصال حتى لايكون مثبت به اسم قاعده معينة اعتقد انه يجب ان يكون متغير
الرد
تم الشكر بواسطة: سعود , asemshahen5 , ابراهيم ايبو
#8
إبدأ بفورم فارغ و ضع عليه التالي :

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

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

   

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

نضع مديول جديد بالبرنامج و نسميه 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(StrSQLcn)
 
       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(StrSQLcn)
 
       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(StrSQLcon)
 
       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(StrSQLcon)
 
       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 

و دي أول خطوة لانشاء ملفات الشركات نكمل في الحلقة القادمة .
الرد
تم الشكر بواسطة: سعود , ابراهيم ايبو , محمد كريّم
#9
شكرااا جدا على تعبك معايا وجارى التطبيق ومنتظر باقى الحلقات ان شاء الله ?
الرد
تم الشكر بواسطة: سعود , asemshahen5 , ابراهيم ايبو
#10
قريبا باذن الله .
الرد
تم الشكر بواسطة: ابراهيم ايبو



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم