+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ظهور فورم معين حسب الشرط (/showthread.php?tid=32074)
ظهور فورم معين حسب الشرط - محمد خيري - 12-11-19
السلام عليكم.اريد من فضلكم عندي mdiparent1 و المشروع ينفتح على هذه mdiparent
عندي فورم 1 لتسجيل بيانات المؤسسة و فورم 2 لتسجيل الدخول اسم مستخدم و كلمة المرور . اريد اذا كان حقل table_ users فارغ تماما من اي مستخدمين عند فتح المشروع تنعرض الفورم 1 وسط mdiparent1 واذا جدول المستخدمين فيه مستخدم واحد على الاقل ينعرض الفورم 2 وسط mdiparent كيف اعمل العملية وبارك الله فيكم
RE: ظهور فورم معين حسب الشرط - علي نوري - 12-11-19
وعليكم السلام
قم بأنشاء هذه الدالة
PHP كود :
Function users_count()
Dim cmd As New OleDbCommand("select count(*) from users", con)
If con.State = ConnectionState.Open Then
con.Close()
End If
Dim count As Integer = 0
con.Open()
count = cmd.ExecuteScalar()
con.Close()
If count = 0 Then
Return True
Else
Return False
End If
End Function
حدث الفورم لود (الفورم الرئيسي) \\ لازم تكون الخاصية IsMdiContainer = True
PHP كود :
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
form1.MdiParent = Me
Form2.MdiParent = Me
If users_count() = True Then
MsgBox("لايوجد هناك مستخدميين في البرنامج سيتم إضافتك كمستخدم رئيسي", MsgBoxStyle.Information)
form1.StartPosition = FormStartPosition.CenterScreen
form1.Show()
Else
Form2.StartPosition = FormStartPosition.CenterScreen
Form2.Show()
Exit Sub
End If
End Sub
الدالة users_count ماخوذة من احد امثلة الاخ Lo3i حسب ما اذكر الاسم
حمل المشروع من المرفقات
RE: ظهور فورم معين حسب الشرط - محمد خيري - 12-11-19
بارك الله فيك اخي نوري على المثال الرائع و هو ما طلبته الهي يسترك و يرضى عليك الف شكر
RE: ظهور فورم معين حسب الشرط - علي نوري - 12-11-19
تدلل اخي العزيز