+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم مقالات قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=42)
+--- الموضوع : مثال بسيط لاستخدام mdiparent بمثال ربط بقاعدة بيانات (/showthread.php?tid=4164)
مثال بسيط لاستخدام mdiparent بمثال ربط بقاعدة بيانات - سعود - 17-09-12
موديول
رمز برمجي:
كود :
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وسلامة انتم وياها طولين