تقييم الموضوع :
  • 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

وسلامة انتم وياها طولين
الرد }}}
تم الشكر بواسطة: ola


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ترحيل قاعدة بيانات اكسس من الجهاز الى قاعدة على الموقع-ACCESS->My SQL ابو ليلى 6 7,492 03-10-23, 01:46 AM
آخر رد: abiza
  [مقال] مشاركة البرنامج على أكثر من جهاز (قاعدة بيانات اكسيس) mr_hso 0 540 06-01-23, 05:21 AM
آخر رد: mr_hso
  مثال بسيط علي الاضافه من جدولين ( الدول - والمدن ) mr_mgm 14 10,823 12-12-21, 05:30 PM
آخر رد: سعود
  درس بسيط لعملية الإضافة والتعديل والبحث والحذف - Visual Basic.net 10 وMS Access أبوبكر سويدان 16 13,471 07-10-21, 12:24 AM
آخر رد: abdalaziz224
  خطأ في الاتصال بقاعدة البيانات djelloul 0 1,668 11-07-20, 04:21 PM
آخر رد: djelloul
  مثال للعمليات علي قواعد البيانات مع الشرح mr_mgm 2 5,119 21-11-18, 04:20 AM
آخر رد: Ebrahim5556
  انشاء قاعدة بيانات باستخدام تقنية adox Sajad 11 8,297 21-11-18, 04:12 AM
آخر رد: Ebrahim5556
  قواعد بيانات يمكن العمل بها تحت بيئة الـدوت نت viv 17 7,933 14-10-18, 10:10 PM
آخر رد: viv
  تحويل بيانات قاعدة على شكل جدول أبولجين 0 2,534 04-11-16, 11:52 AM
آخر رد: أبولجين
  مثال لادارة صلاحيات كل مستخدم لوحده سعود 18 11,001 22-10-16, 05:05 AM
آخر رد: solbi

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


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