[ibr1233]

كيف اقوم بعمل كود لشاسة تظهر مرة واحدة عند فتح البرنامج لاول مرة تحتوى على Button1 وButton2 الاول يظهر شاسة اضافة مستخدم جديد والاخر يظهر شاسة الاتصال بالسرفر ( وبعد ذلك لا تظهر ثانية الا عند عدم وجود مستخدمين فى قاعدة البيانات )

[ibr1233]

اخوانى .. هل الامر صعب الى هذه الدرجة .. اين عباقرة البرمجة ..

[abubasilIraq]

لن نسقط عليك الرطب ولكن نقول لك هز جذع النخلة
ومن هنا الطريق ، تعمل متغير تحفظه في خانة اعدادات المشروع
ويكون من نوع منطقي وبحسب القيمة المحفوظة تظهر او لا تظهر الشاشة التي تريدها



تحت خانة name ضع اسم المتغير ، ويليه نوع المتغير - اختر منطقي
تابع هنا

[ibr1233]

جزاك الله خير على الرد وعلى ماقلت من الشعر .... ولكن اخى الرابط لا يعمل ..( اريد ان اهز جذع النخلة اكثر )

[asemshahen5]

هذا مثال قريب مما تريد .

سورس كود برنامج IT للعهدة والمستخدمين والاجهزة .

مثال عن BackgroundWorker وحفظ معلومات الاتصال .

[alshandodi]

   



تضيف في الإعدادات 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

أتمنى أن يكون ذو فائده لك

[جميل5]

اعمل استعلام عن مجموع عدد المستخدمين SELECT COUNT(*) FROM TBUsers
فإذا كانت النتيجة=0 فعندها أظهر شاسة اضافة مستخدم جديد

[ibr1233]

اشكر الجميع على المساعدة ولقد استفدت من المشاركات جيدا ووصلت الى حل احببت مشاركتة
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()