تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] مكتبة برمجية بلغة الفيجوال بيسك
#1
بسم الله الرحمن الرحيم

اللهم لا علم لنا إلا ما علمتنا، إنك أنت العليم الحكيم،
اللهم علمنا ما ينفعنا، وانفعنا بما علمتنا، وزدنا علما، وأرنا الحق حقاً وارزقنا اتباعه، وأرنا الباطل باطلاً وارزقنا اجتنابه،
واجعلنا ممن يستمعون القول فيتبعون أحسنه، وأدخلنا برحمتك في عبادك الصالحين

اما بعد اخواني الكرام

بوجود هذه القامات الكبيرة من ذوي الخبرة الكبيرة بلغة البرمجة الفيجوال بيسك بهذا المنتدى الرائع
خطرت ببالي فكرة جميلة ستعود باذن الله بالنفع على جميع الاخوة ممن يبحثون عن التعلم
وان شاء الله ان يجعلها في ميزان حسنات كل من يشارك بها وتكون باذن الله صدقة جارية الى يوم الدين

الفكرة عبارة عن انشاء مكتبة برمجية ملف (DLL)  لجميع الدوال والاجراءات الممكنة لتكون مرجع لجميع
المبرمجين على اختلاف مستوياتهم حيث يمكن من خلال هذه المكتبة البرمجية توفير الجهد والوقت
على المبرمجين والمتعلمين.

لذا فانني من هذا المنتدى الجميل اناشد اخواني المبرمجين ان يكون هذا الموضوع هو نواة
الانطلاق لعمل كبير ومكتبة برمجية تكون الاولى من نوعها لتطرح بشكل مجاني.

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

1. دالة لجلب رقم الترقيم التلقائي
2. تعبئة الكومبوبوكس
3. تعبئة الليست بوكس
4. تعبئة الداتا جرد فيو بالبيانات
5. حفظ البيانات
6. تعديل البيانات
7. حذف البيانات
8. تنظيف الادوات
9. دالة count
10. دالة Min
11. دالة Sum
12.دالة avg
13. نص الاتصال

هذه بعض الدوال والاجراءات التي خطرت ببالي
متمنيا" من الاخوة الكرام ذكر باقي الاجراءات والدوال
الرد
#2
الاخ الجازي

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

وبالنسبة لفكرتك فاني اقترح تعديل بسيط وه ان تكون على شكل برنامج بنك اكواد يقوم الاعضاء بتحميله ويغذى بالاكواد من الجميع
وعند وجود تحديث يتم تنزيله الى جميع البرامج لدى المستخدمين

بالتوفيق للجميع

الرد
#3
على بركة الله نبدأ المشروع

وسابدأ بكود الترقيم التلقائي ليكون نقطة الانطلاق

دالة جلب كود الترقيم التلقائي (Sql Server)

كود :
Public Function Genarate_ID(TableName As String, FieldName As String, Con As SqlConnection)
       Dim Number As Integer
       Try
           Dim cmd As New SqlCommand(" Select Max(" & FieldName & ") From " & TableName & "  ", Con)
           If Con.State = 1 Then Con.Close()
           Con.Open()
           Number = cmd.ExecuteScalar
           Con.Close()
       Catch ex As Exception
           Number = 0
           Con.Close()
       End Try
       Number += 1
       Return Number
   End Function


دالة جلب كود الترقيم التلقائي (Access)

كود :
Public Function Genarate_ID(TableName As String, FieldName As String, Con As OleDbConnection)
       Dim Number As Integer
       Try
           Dim cmd As New OleDbCommand(" Select Max(" & FieldName & ") From " & TableName & "  ", Con)
           If Con.State = 1 Then Con.Close()
           Con.Open()
           Number = cmd.ExecuteScalar
           Con.Close()
       Catch ex As Exception
           Number = 0
           Con.Close()
       End Try
       Number += 1
       Return Number
   End Function
الرد
#4
للمشاركة .. و طبعا هناك العديد من الطرق المتنوعّة
على مستوى الموديل العام .. لتعبئة الكومبوبوكس و الداتا جريد فيو تباعا ..
كود :
   Public Sub Globale_Fill_ComboBox_List_From_Table(CmBox As ComboBox, TableName As String, DisplayValue As String)
       CmBox.Items.Clear()
       Dim Adp As New OleDb.OleDbDataAdapter("SELECT DISTINCT * From " & TableName & " Order By " & DisplayValue, Conne_2020)
       Dim Ds As New DataSet
       Adp.Fill(Ds)
       Dim Dt = Ds.Tables(0)
       For I = 0 To Dt.Rows.Count - 1
           CmBox.Items.Add(Dt.Rows(I).Item(DisplayValue))
       Next
   End Sub

كود :
  Public Sub Global_Fill_DataGridView(My_DatagridView As DataGridView, Sql As String)
       My_DatagridView.DataSource = Nothing
       Dim Adp = New OleDb.OleDbDataAdapter(Sql, Conne_2020)
       Dim Ds = New DataSet
       Adp.Fill(Ds)
       Dim Dt = Ds.Tables(0)
       My_DatagridView.DataSource = Dt.DefaultView
  End Sub
الاستدعاء بالفورم لود كمثال ..
كود :
Call Globale_Fill_ComboBox_List_From_Table(ComboBox1, "TBL_ITEMS", "ITEMS_Name")

كود :
       Call Global_Fill_DataGridView(DataGridView1, "SELECT ITEMS_Id , ITEMS_Code , ITEMS_Barcode , ITEMS_Name , ITEMS_Category , ITEMS_Prix_Achat , ITEMS_Prix_Vente From TBL_ITEMS")
تحياتي
الرد
#5
اذا اردت عمل مكتبة ديناميكية فانصحك بلغة السي شارب و السي بلس بلس وكمثال انظر الى كود هذه الكلاس بتمعن فهي كلاس تولد استعلام اضافة و تعديل من الداتا غريد فيو :

مشروع إضافة تعديل حذف مباشر على الداتا غريد فيو .
الرد
تم الشكر بواسطة: ابراهيم ايبو



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


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