---

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

---

---



      Dim db As New SqlConnectionDB

      Dim ds As New Data.DataSet

      Dim ds1 As New Data.DataSet

      Dim card_no As String

      Dim name As String

      Dim birth_date As Date

      Dim Gender As String

      Dim Image As Object

      Dim mobile_no As Integer

      Dim adress As String

 

 

 

 

      Try

          db.insertDB("insert into member(card_no,name,birth_date,Gender,mobile_no,adress) values ('" & ****Box1.**** & "','" & ****Box2.**** & "','" & ****Box3.**** & "','" & ****Box4.**** & "','" & ****Box6.**** & "','" & ****Box7.**** & "')")

 

      Catch ex As Exception

 

      End Try

 

      Program.Show()

 

      Program.TopMost = True

---

:confused: قمت بعمل مشروع التخرج وأنتهيت لكن أريد في كل شاشة عمل فكرة جديدة(تكسر الدنيا) والمشروع عبارة عن عيادة اسنان:confused:

الملفات المرفقة : لم يتم فحص هذه الملفات للتأكد من خلوها من فيروسات أو برامج تجسس ، يرجى استخدام برنامج لفحصها كي لا تؤدي للضرر ببياناتك وجهازك

تعديل.rar‏ (76.0 كيلوبايت)

---

TextBox1.Text = Int(Now.Subtract(MaskedTextBox1.Text).Days / 365.25)

---

السلام عليكم ورحمة الله

ارجو من الاخوة الكرام توضيخ كيفية تفعيل خاصية استخدام الماوس اليمين الـ Right Click في البرنامج لاضافة بعض الخواص مثل :
مسح الحقول
الخروج
الرجوع .. الخ

شاكر ومقدر ..

بسم الله الرحمن الرحيم

ارجو المساعد في جمع حقل الداتا جريد فيو في ليبل