بسم الله الرحمن الرحيم
اللهم لا علم لنا إلا ما علمتنا، إنك أنت العليم الحكيم،
اللهم علمنا ما ينفعنا، وانفعنا بما علمتنا، وزدنا علما، وأرنا الحق حقاً وارزقنا اتباعه، وأرنا الباطل باطلاً وارزقنا اجتنابه،
واجعلنا ممن يستمعون القول فيتبعون أحسنه، وأدخلنا برحمتك في عبادك الصالحين
اما بعد اخواني الكرام
بوجود هذه القامات الكبيرة من ذوي الخبرة الكبيرة بلغة البرمجة الفيجوال بيسك بهذا المنتدى الرائع
خطرت ببالي فكرة جميلة ستعود باذن الله بالنفع على جميع الاخوة ممن يبحثون عن التعلم
وان شاء الله ان يجعلها في ميزان حسنات كل من يشارك بها وتكون باذن الله صدقة جارية الى يوم الدين
الفكرة عبارة عن انشاء مكتبة برمجية ملف (DLL) لجميع الدوال والاجراءات الممكنة لتكون مرجع لجميع
المبرمجين على اختلاف مستوياتهم حيث يمكن من خلال هذه المكتبة البرمجية توفير الجهد والوقت
على المبرمجين والمتعلمين.
لذا فانني من هذا المنتدى الجميل اناشد اخواني المبرمجين ان يكون هذا الموضوع هو نواة
الانطلاق لعمل كبير ومكتبة برمجية تكون الاولى من نوعها لتطرح بشكل مجاني.
وكبداية ساقوم بطرح بعض الدوال والاجراءات التي من الممكن عملها بهذا المكتبة
1. دالة لجلب رقم الترقيم التلقائي
2. تعبئة الكومبوبوكس
3. تعبئة الليست بوكس
4. تعبئة الداتا جرد فيو بالبيانات
5. حفظ البيانات
6. تعديل البيانات
7. حذف البيانات
8. تنظيف الادوات
9. دالة count
10. دالة Min
11. دالة Sum
12.دالة avg
13. نص الاتصال
هذه بعض الدوال والاجراءات التي خطرت ببالي
متمنيا" من الاخوة الكرام ذكر باقي الاجراءات والدوال
الاخ الجازي
احييك على الروح اللي تشدك الى اقتراح الفكرة واتمنى صادقا ان ارى يوم من الايام انه تم عمل فكرة مقترحة من قبل اعضاء المنتدى
سيكون هذا فال خير باننا بتنا اقرب العمل المشترك كمبرمجين لصالح الكل.
وبالنسبة لفكرتك فاني اقترح تعديل بسيط وه ان تكون على شكل برنامج بنك اكواد يقوم الاعضاء بتحميله ويغذى بالاكواد من الجميع
وعند وجود تحديث يتم تنزيله الى جميع البرامج لدى المستخدمين
بالتوفيق للجميع
على بركة الله نبدأ المشروع
وسابدأ بكود الترقيم التلقائي ليكون نقطة الانطلاق
دالة جلب كود الترقيم التلقائي (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
للمشاركة .. و طبعا هناك العديد من الطرق المتنوعّة
على مستوى الموديل العام .. لتعبئة الكومبوبوكس و الداتا جريد فيو تباعا ..
كود :
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")
تحياتي