كيف اقوم بعمل كود لشاسة تظهر مرة واحدة عند فتح البرنامج لاول مرة تحتوى على Button1 وButton2 الاول يظهر شاسة اضافة مستخدم جديد والاخر يظهر شاسة الاتصال بالسرفر ( وبعد ذلك لا تظهر ثانية الا عند عدم وجود مستخدمين فى قاعدة البيانات )
اخوانى .. هل الامر صعب الى هذه الدرجة .. اين عباقرة البرمجة ..
لن نسقط عليك الرطب ولكن نقول لك هز جذع النخلة
ومن هنا الطريق ، تعمل متغير تحفظه في خانة اعدادات المشروع
ويكون من نوع منطقي وبحسب القيمة المحفوظة تظهر او لا تظهر الشاشة التي تريدها
تحت خانة name ضع اسم المتغير ، ويليه نوع المتغير - اختر منطقي
تابع هنا
جزاك الله خير على الرد وعلى ماقلت من الشعر .... ولكن اخى الرابط لا يعمل ..( اريد ان اهز جذع النخلة اكثر )
[
attachment=23870]
تضيف في الإعدادات Saveform
يمكن ان تجعل هذا في الفورم الرئيسي
كود :
If My.Settings.Saveform = 0 Then
Form2.ShowDialog()
End If
وهذا الكود تضعه في Button
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
My.Settings.Saveform = 1
My.Settings.Save()
End Sub
أتمنى أن يكون ذو فائده لك
اعمل استعلام عن مجموع عدد المستخدمين SELECT COUNT(*) FROM TBUsers
فإذا كانت النتيجة=0 فعندها أظهر شاسة اضافة مستخدم جديد
اشكر الجميع على المساعدة ولقد استفدت من المشاركات جيدا ووصلت الى حل احببت مشاركتة
Dim cmd As New SqlCommand("select * from tblUsers ", Con)
Con.Open()
Dim dr As SqlDataReader = cmd.ExecuteReader
dr.Read()
If dr.HasRows > 0 Then
FrmLogIn.Show()
'MsgBox(" اهلا بك --->>>" + dr(2))
Else
frm_newuser.Show()
End If
dr.Close()
Con.Close()