تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مثال بسيط لاستخدام mdiparent بمثال ربط بقاعدة بيانات
#1


موديول
رمز برمجي:
كود :
Module Module1
    Public ustr As String = ""
    Public con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0 ; data source=|datadirectory|\db.accdb")
End Module
الفورم الاب
رمز برمجي:
كود :
Public Class Form1

  

    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        End
    End Sub

  

  
    Private Sub mlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mlogin.Click
        login.MdiParent = Me
        login.Show()

    End Sub

    Private Sub mclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mclose.Click
        End
    End Sub

    Private Sub mexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mexit.Click
        ustr = ""
        mlogin.Enabled = True
        mexit.Enabled = False
        Me.Text = "  لايوجد مستخدم مسجل حاليا."
        numbergame.Enabled = False
        wg.Enabled = False
    End Sub

    Private Sub numbergame_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles numbergame.Click
        mynumbergame.MdiParent = Me
        mynumbergame.Show()
    End Sub

    Private Sub wg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles wg.Click
        mywordgame.MdiParent = Me
        mywordgame.Show()
    End Sub
End Class
فورم الدخول
رمز برمجي:
كود :
Public Class login

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text.Trim <> "" And Not IsNumeric(TextBox1.Text) Then
            ustr = TextBox1.Text
            Me.Hide()
            Form1.Text = "المستخدم الحالي: " & ustr
            Form1.mlogin.Enabled = False
            Form1.mexit.Enabled = True
            Form1.numbergame.Enabled = True
            Form1.wg.Enabled = True
        Else
            MsgBox("عفوا تاكد من بياناتك", MsgBoxStyle.Critical, "دخول")
        End If
    End Sub
End Class
فورم لعبة الارقم
رمز برمجي:
كود :
Public Class mynumbergame
    Dim n As Integer
    Dim s As Integer = 0
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text.Trim <> "" And IsNumeric(TextBox1.Text) Then
            n = TextBox1.Text
            Button2.Enabled = True
        Else
            MsgBox("تاكد من كتابتك لرقم", MsgBoxStyle.Critical, "تخزين رقم")
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim u As Integer = Int(Rnd() * 90)
        Timer1.Enabled = True
        Label2.Text = u

        If u = n Then
            MsgBox("ممتاز! لقد عرفت الرقم السري خخخخخخخخخخ", MsgBoxStyle.Information, "توليد رقم")
        End If

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        s += 1
        Label4.Text = ""
        Select Case s
            Case "1"
                Label4.Text = "سبحان الله"
            Case "2"
                Label4.Text = "الحمدلله"
            Case "3"
                Label4.Text = "لااله الا الله"
            Case "4"
                Label4.Text = "الله اكبر"
            Case Else
                s = 0
        End Select
    End Sub

End Class

فورم لعبة الكلمات وهي هنا ترجمة
رمز برمجي:
كود :
Public Class mywordgame
    Dim u As Integer = 0
    Dim tr As Integer = 0
    Dim fa As Integer = 0
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Select Case u
            Case "0"
                Label2.Text = "رجل"
            Case "1"
                Label2.Text = "شاب"
            Case "2"
                Label2.Text = "بنت"
            Case "3"
                Label2.Text = "امراة"
            Case "4"
                Label2.Text = "جد"
            Case "5"
                Label2.Text = "جدة"
            Case "6"
                Label2.Text = "أخ"
            Case Else
                MsgBox("انتهت اللعبة والدرجة اسفل", MsgBoxStyle.Exclamation, "")

        End Select
        u += 1
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text.Trim <> "" And Not IsNumeric(TextBox1.Text) Then
            Dim ds As New DataSet
            Dim da As New OleDb.OleDbDataAdapter("select * from tb where eng='" & TextBox1.Text & "'", con)
            ds.Clear()
            da.Fill(ds, "tb")
            If Me.BindingContext(ds, "tb").Count > 0 Then
                tr += 1
            Else
                fa += 1
            End If
            lw.Text = tr
            ll.Text = fa
        End If
        TextBox1.Clear()
        Button1.PerformClick()
    End Sub

  
End Class

وسلامة انتم وياها طولين
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحويل بيانات قاعدة على شكل جدول أبولجين 0 65 04-11-16, 11:52 AM
آخر رد: أبولجين
  ترحيل قاعدة بيانات اكسس من الجهاز الى قاعدة على الموقع-ACCESS->My SQL ابو ليلى 3 229 03-11-16, 11:35 AM
آخر رد: aksoft
  مثال بسيط علي الاضافه من جدولين ( الدول - والمدن ) mr_mgm 11 2,365 02-11-16, 01:02 PM
آخر رد: amersaeed2016
  مثال لادارة صلاحيات كل مستخدم لوحده سعود 18 4,760 22-10-16, 05:05 AM
آخر رد: solbi
  انشاء قاعدة بيانات باستخدام تقنية adox Sajad 10 2,120 02-06-16, 12:44 PM
آخر رد: CLARO
  ربط مشروع GIS بقاعدة بيانات SQL والتحكم بالبيانات من خلال VB.net khodor1985 1 662 02-06-16, 12:44 PM
آخر رد: CLARO
  الاصدرا 2 من مكتبة alysbisydata للاضافة لقاعدة بيانات اكسس و سيكوال alimse 4 1,281 02-06-16, 12:43 PM
آخر رد: CLARO
  مثال للعمليات علي قواعد البيانات مع الشرح mr_mgm 1 1,141 02-06-16, 12:34 PM
آخر رد: CLARO
  درس بسيط لعملية الإضافة والتعديل والبحث والحذف - Visual Basic.net 10 وMS Access أبوبكر سويدان 10 3,393 12-08-13, 06:04 PM
آخر رد: Omar Mekkawy
  التحكم فى قواعد بيانات اكسس القيصر بيلا 0 594 26-11-12, 07:31 PM
آخر رد: القيصر بيلا

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


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