تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
رجاء ا ..اضافة داتاغريد على الفورم
#1
السلام عليكم.اخوتي املي بعد اذنكم المساعدة بخصوص اضافة datagridview الى الفورم 1 وجعل عندما اضغط اضافة ينضاف الاسم و بياناتو على الداتا غريد مباشرة.و تنكتب بالتاكست بوكس 1 العبارة : ........السجل مثلا 2 من 5 سجلات ..........حسب الاسم الطالع يلي اخترتو ..بارك الله فيكم ومقدر تعبكم


الملفات المرفقة
.rar   datagrid.rar (الحجم : 1.6 م ب / التحميلات : 43)
الرد
تم الشكر بواسطة:
#2
للرفع .. رفع الله قدركم يا سادة يا كرام ..خلّصوني من هاي العقبة الله يخلّصكم من كل بلاء
الرد
تم الشكر بواسطة:
#3
PHP كود :
Imports System.Data.OleDb
Module Module1

    Public con 
As New OleDbConnection("provider=Microsoft.Ace.OLEDB.12.0;Data Source=|DataDirectory|\data.accdb")

End Module 


PHP كود :
Imports System.Data.OleDb

Public Class Form1

    Dim InfoAdapter 
As New OleDbDataAdapter("SELECT * FROM EmpInfo ORDER BY LastName"con)
 
   Dim InfoTable As New DataTable
    Dim WithEvents myBindingSource 
As New BindingSource

    Dim InfoState 
As String


    Private Sub frmAddEmp_Load
(ByVal sender As ObjectByVal e As EventArgsHandles MyBase.Load

        myBindingSource
.DataSource InfoTable
        InfoAdapter
.Fill(InfoTable)

 
       txtEmpNo.DataBindings.Add("Text"myBindingSource"ID")
 
       txtFirstName.DataBindings.Add("Text"myBindingSource"FirstName")
 
       txtLastName.DataBindings.Add("Text"myBindingSource"LastName")
 
       DateTimePicker1.DataBindings.Add("Text"myBindingSource"BirthDate")
 
       ComboBox1.DataBindings.Add("Text"myBindingSource"ScCart")
 
       txtjop.DataBindings.Add("Text"myBindingSource"Grade")
 
       txtHomePhone.DataBindings.Add("Text"myBindingSource"HomePhone")

 
       txtStep.DataBindings.Add("Text"myBindingSource"step")
 
       txtDep.DataBindings.Add("Text"myBindingSource"department")
 
       txtadress.DataBindings.Add("Text"myBindingSource"adress")

 
       lblPhotoFile.DataBindings.Add("Text"myBindingSource"PictureFile")

 
       DataGridView1.DataSource myBindingSource

    End Sub

    Private Sub lblPhotoFile_TextChanged
(ByVal sender As ObjectByVal e As System.EventArgsHandles lblPhotoFile.TextChanged
        Try
            PictureBox1
.Image Nothing
            PictureBox1
.Image Image.FromFile(lblPhotoFile.Text)
 
       Catch ex As Exception
        End 
Try
 
   End Sub

    Sub txtFirstName_KeyPress
(ByVal sender As ObjectByVal e As KeyPressEventArgsHandles txtFirstName.KeyPress
        If e
.KeyChar ControlChars.Cr Then
            txtLastName
.Focus()
 
       End If
 
   End Sub



    Private Sub btnFirst_Click
(ByVal sender As ObjectByVal e As EventArgsHandles btnFirst.Click
        myBindingSource
.MoveFirst()
 
   End Sub
    Private Sub btnPrevious_Click
(ByVal sender As ObjectByVal e As EventArgsHandles btnPrevious.Click
        myBindingSource
.MovePrevious()
 
   End Sub
    Private Sub btnNext_Click
(ByVal sender As ObjectByVal e As EventArgsHandles btnNext.Click
        myBindingSource
.MoveNext()
 
   End Sub
    Private Sub btnLast_Click
(ByVal sender As ObjectByVal e As EventArgsHandles btnLast.Click
        myBindingSource
.MoveLast()
 
   End Sub
    Private Sub myBindingSource_PositionChanged
(ByVal sender As ObjectByVal e As EventArgsHandles myBindingSource.PositionChanged
        TextBox1
.Text myBindingSource.Position " / " myBindingSource.Count
    End Sub



    Private Sub btnAdd_Click
(ByVal sender As ObjectByVal e As EventArgsHandles btnAdd.Click
        myBindingSource
.AddNew()
 
       ComboBox1.SelectedIndex = -1
        lblGrade
.Text "1"
 
   End Sub
    Private Sub btnCancel_Click
(ByVal sender As ObjectByVal e As EventArgsHandles btnCancel.Click
        myBindingSource
.CancelEdit()
 
   End Sub


    Private Sub btnSave_Click
(ByVal sender As ObjectByVal e As EventArgsHandles btnSave.Click
        If txtEmpNo
.Text.Trim "" Or txtFirstName.Text.Trim "" Or txtLastName.Text.Trim "" Or ComboBox1.SelectedIndex = -Or txtjop.Text.Trim "" Or txtStep.Text.Trim "" Or txtDep.Text.Trim "" Or txtadress.Text.Trim "" Or txtHomePhone.Text.Trim "" Then
            MessageBox
.Show("من فضلك يرجى عدم ترك حقل فارغ""إدخال خاطىء"MessageBoxButtons.OKMessageBoxIcon.Information)
 
           Exit Sub
        End 
If
 
       Dim SavedItem As String txtLastName.Text
        Dim SavedRow 
As Integer
        myBindingSource
.EndEdit()
 
       InfoTable.DefaultView.Sort "LastName"
 
       SavedRow InfoTable.DefaultView.Find(SavedItem)
 
       MsgBox("تمت عملية الأضافة بنجاح"MsgBoxStyle.Information"حفظ")
 
   End Sub

    Private Sub btnDelete_Click
(ByVal sender As ObjectByVal e As EventArgsHandles btnDelete.Click
        If MessageBox
.Show("هل أنت متأكد من أنك تريد حذف هذا السجل" _
        
"Delete"MessageBoxButtons.YesNoMessageBoxIcon.Question_
        MessageBoxDefaultButton
.Button2) = Windows.Forms.DialogResult.Yes Then

            myBindingSource
.RemoveCurrent()

 
       End If
 
       MsgBox("تمت عملية ألحذف بنجاح"MsgBoxStyle.Information"حفظ")
 
   End Sub






    Private Sub btnExit_Click
(ByVal sender As ObjectByVal e As EventArgsHandles btnExit.Click
        Close
()
 
   End Sub


    Private Sub frmInfo_FormClosing
(ByVal sender As ObjectByVal e As FormClosingEventArgsHandles Me.FormClosing
        If InfoState 
"Edit" Or InfoState "Add" Then
            MessageBox
.Show("!!!  لايمكنك الخروج هكذا لانك لم تكمل ألأضافة أو إضغط زر تراجع  """MessageBoxButtons.OKMessageBoxIcon.Information)
 
           e.Cancel True
        Else
            
'Try
            Dim InfoAdapterCommands As New OleDbCommandBuilder(InfoAdapter)
            InfoAdapter.Update(InfoTable)
            InfoTable = New DataTable()
            InfoAdapter.Fill(InfoTable)
            DataGridView1.DataSource = InfoTable
        End If
    End Sub


    Private Sub btnLoadPhoto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoadPhoto.Click
        OpenFileDialog1.Filter = "Images (*.jpg,*.png,*.gif)|*.jpg;*.jpeg;*.png;*.gif"
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Try
                PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
                lblPhotoFile.Text = OpenFileDialog1.FileName
            Catch ex As Exception
                lblPhotoFile.Text = ""
            End Try
        End If
    End Sub

End Class 

     Updated
الرد
تم الشكر بواسطة: العيدروس
#4
السلام عليكم.الهي ينصرك و ينصر دينك يا رب . ليس لي ما اعبر به عن شكري لك استاذ أحمد.اخرجتني من متاهه و دوامه كنت محتار بيها.بارك الله فيك على الاستجابة ربي يسعدك بالدنيا و بالاخرة و يستجيب ليك بكل ما تحبه .بارك الله فيك
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اضافة فلتر الى داتا قريد فيو مصطفى محمود 1 39 منذ 11 ساعة مضت
آخر رد: mero5000
  عرض الفورم في مكان محدد المتألق9 12 281 19-09-18, 01:23 PM
آخر رد: elgokr
  بطـــىء قليـــل عنـــد تنفيــــد الفورم wweecw 3 111 18-08-18, 06:53 PM
آخر رد: elgokr
  [VB.NET] اضافة بيانات الفاتورة عبدالرحمن بشري عمر 6 186 18-08-18, 07:41 AM
آخر رد: ابراهيم ايبو
  اضافة فورم داخل فورم آخر الميامن 6 1,816 15-08-18, 09:31 PM
آخر رد: Ali Naser
  [VB.NET] ضبط حجم الفورم مع دقة الشاشة mos3ab 5 947 15-08-18, 08:44 PM
آخر رد: Ali Naser
  كود ضبط حجم الفورم 100% Marwan9990 3 175 11-08-18, 01:31 AM
آخر رد: elgokr
  كيف التخلي عن شكل الفورم العادي معاذ العامري 4 165 29-07-18, 10:41 AM
آخر رد: معاذ العامري
  [سؤال] كيفية اضافة signalr للفيجوال 2010 alims 2 107 27-07-18, 02:21 PM
آخر رد: mero5000
  طباعة ليبل من الفورم نور الهدى الهدى 10 309 26-07-18, 09:02 PM
آخر رد: نور الهدى الهدى

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


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