تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] مساعده في مشروع تخرج
#1
[/[b]b]صباح الخير
عندي مشروع تخرج بالفيجوال
واحتاج مساعدتكم  فيه
بالاكواد.
بليز

مشروعي عن مركز تنميه نسائي

صممت الواجهه الرئيسيه  

http://i.imgur.com/JqXpOFD.jpg

ابغا تحت النشاطات ليست بوكس
وتحت المتدربين. قريد داتا
ومو عارفه كيف  اربط واكتب الاكواد
وهينا ربطتها بقاعدة البيانات أكسس


Http://i.imgur.com/pwi4EIU.jpg      



كيف شاغلي ماشي صح
ادري انها اشياء بسيطه بس انا دراستي دبلوم  وم تعمقت كثير في. الفيجواال [/b]
الرد }}}}
تم الشكر بواسطة:
#2
هذا مثال تطبيقي صغير مع خاصية اضافة صورة الزبائن ان وجدت
كود :
Imports System.Data
Imports System.Data.OleDb
Imports System.IO

Public Class Form1
   Dim con As New OleDbConnection
   Dim cmd As New OleDbCommand
   Dim i As Integer


   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim str As String
       str = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=User.accdb"
       con = New OleDbConnection(str)
       con.Open()
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       On Error Resume Next
       OpenFileDialog1.Filter = "*.jpg|*.jpg"
       OpenFileDialog1.ShowDialog()
       Dim path As String = OpenFileDialog1.FileName
       pb1.Image = Image.FromFile(path)


   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim ms As New MemoryStream()
       Dim arrimage() As Byte
       If (pb1.Image IsNot Nothing) Then
           pb1.Image.Save(ms, pb1.Image.RawFormat)
           arrimage = ms.GetBuffer
           ms.Close()

       End If


       With cmd
           .Connection = con
           .CommandText = "INSERT INTO Info(Nom,sex,age,image) VALUES(@a0,@a1,@a2,@3)"
           .Parameters.Add("@a0", OleDbType.VarChar).Value = TextBox1.Text
           .Parameters.Add("@a1", OleDbType.VarChar).Value = TextBox2.Text
           .Parameters.Add("@a2", OleDbType.VarChar).Value = TextBox3.Text
           .Parameters.Add("@a3", OleDbType.Binary).Value = IIf(pb1.Image IsNot Nothing, arrimage, DBNull.Value)
           i = .ExecuteNonQuery()

           .Dispose()
con.close()
           If (i > 0) Then
               MsgBox("Save Seccess")
           End If

       End With



   End Sub
End Class

وهذا مشروع معمول عالسريع للافائدة
http://up.dev-point.com/download147027.html
الرد }}}}
تم الشكر بواسطة:
#3
[quote='hitman48' pid='53687' dateline='1423238657']
هذا مثال تطبيقي صغير مع خاصية اضافة صورة الزبائن ان وجدت

كود :
Imports System.Data
Imports System.Data.OleDb
Imports System.IO

Public Class Form1
  Dim con As New OleDbConnection
  Dim cmd As New OleDbCommand
  Dim i As Integer


  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Dim str As String
      str = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=User.accdb"
      con = New OleDbConnection(str)
      con.Open()
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      On Error Resume Next
      OpenFileDialog1.Filter = "*.jpg|*.jpg"
      OpenFileDialog1.ShowDialog()
      Dim path As String = OpenFileDialog1.FileName
      pb1.Image = Image.FromFile(path)


  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim ms As New MemoryStream()
      Dim arrimage() As Byte
      If (pb1.Image IsNot Nothing) Then
          pb1.Image.Save(ms, pb1.Image.RawFormat)
          arrimage = ms.GetBuffer
          ms.Close()

      End If


      With cmd
          .Connection = con
          .CommandText = "INSERT INTO Info(Nom,sex,age,image) VALUES(@a0,@a1,@a2,@3)"
          .Parameters.Add("@a0", OleDbType.VarChar).Value = TextBox1.Text
          .Parameters.Add("@a1", OleDbType.VarChar).Value = TextBox2.Text
          .Parameters.Add("@a2", OleDbType.VarChar).Value = TextBox3.Text
          .Parameters.Add("@a3", OleDbType.Binary).Value = IIf(pb1.Image IsNot Nothing, arrimage, DBNull.Value)
          i = .ExecuteNonQuery()

          .Dispose()
con.close()
          If (i > 0) Then
              MsgBox("Save Seccess")
          End If

      End With



  End Sub
End Class

وهذا مشروع معمول عالسريع للافائدة
http://up.dev-point.com/download147027.html
[/quot



الله يسعدك
بس المشروع م فتح تطلع لي علامات تعجب \
الرد }}}}
تم الشكر بواسطة:
#4
انا عاملوا على الاصدار العاشر visual basic 2010
كما يمكنك الذهاب وفتح ملف على ان تكون لاحقته او نهايته .vb وفتحه باي محرر ورايت الاكواد
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج مساعده مستعجله مجموع اجور العمليات لكل طبيب مهندس حيدر 5 189 02-09-16, 12:35 PM
آخر رد: مهندس حيدر
  [سؤال] المساعدة في مشروع عن مبيعات صيدلية romy mohamed 3 265 31-05-16, 04:48 PM
آخر رد: محمد كريّم
  كود الدخول للبرنامج بالادو كلاسيك و مساعده بالادو دوت نت كونيكتيد مود النظام المتصل emando 10 1,637 05-03-16, 10:50 PM
آخر رد: emando
  مساعده في عدم استجابة قاعدة البيانات الي التعديل في الداتا جريد فيو ِAbou Sama 4 412 25-12-15, 08:59 AM
آخر رد: silverlight
Exclamation [VB.NET] مشروع فيجوال بيسيك دوت نت مع قاعدة بيانات اكسس 2007 يعمل على جميع انظمة التشغيل eng.bassel 5 727 16-12-15, 11:35 PM
آخر رد: boudyonline
  [VB.NET] طلب مساعده بخصوص حفظ الصور بقاعدة البيانات moftah70 3 752 13-12-15, 07:21 AM
آخر رد: moftah70
  مساعده فى sql server mr-matrix464 0 246 10-08-15, 03:32 AM
آخر رد: mr-matrix464
  مساعده في الاستعلام عن صور sa86ra 10 1,540 05-03-15, 08:00 AM
آخر رد: ابو نجلاء
  [سؤال] مساعده scluay 2 379 16-04-14, 11:01 AM
آخر رد: scluay
  اخوان ممكن مساعدة في مشروع تخرجي ؟؟ محمد الريالي 2 496 22-03-14, 07:26 PM
آخر رد: ابو ليلى

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم