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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ربط مشروع GIS بقاعدة بيانات SQL والتحكم بالبيانات من خلال VB.net khodor1985 3 1,414 19-09-17, 11:19 AM
آخر رد: Sajad
  مثال بسيط علي الاضافه من جدولين ( الدول - والمدن ) mr_mgm 12 3,140 08-08-17, 01:56 PM
آخر رد: البطل السيناوي
  درس بسيط لعملية الإضافة والتعديل والبحث والحذف - Visual Basic.net 10 وMS Access أبوبكر سويدان 11 4,037 06-07-17, 06:41 AM
آخر رد: ffmmffmm
  تحويل بيانات قاعدة على شكل جدول أبولجين 0 430 04-11-16, 11:52 AM
آخر رد: أبولجين
  ترحيل قاعدة بيانات اكسس من الجهاز الى قاعدة على الموقع-ACCESS->My SQL ابو ليلى 3 914 03-11-16, 11:35 AM
آخر رد: aksoft
  مثال لادارة صلاحيات كل مستخدم لوحده سعود 18 5,639 22-10-16, 05:05 AM
آخر رد: solbi
  انشاء قاعدة بيانات باستخدام تقنية adox Sajad 10 2,861 02-06-16, 12:44 PM
آخر رد: CLARO
  الاصدرا 2 من مكتبة alysbisydata للاضافة لقاعدة بيانات اكسس و سيكوال alimse 4 1,617 02-06-16, 12:43 PM
آخر رد: CLARO
  مثال للعمليات علي قواعد البيانات مع الشرح mr_mgm 1 1,570 02-06-16, 12:34 PM
آخر رد: CLARO
  التحكم فى قواعد بيانات اكسس القيصر بيلا 0 789 26-11-12, 07:31 PM
آخر رد: القيصر بيلا

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


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