21-06-20, 02:32 PM
السلام عليكم ورحمة الله وبركاته
لدي فورم ف يالبرنامج اقوم بفتحه لكي اقوم بعرض الموظفين عن طريق البحث بي ID الموظف
ثم يعرضون في Label
قمت باضافة زر الموظف التالي وزر الموظف السابق ولكن لا يعملان
وايضا اريد اضافة كود لزر الموظف الاول وكود زر الموظف الاخير
واريد عند استدعاء البيانات وظهورها يقوم باظهر صورة الموظف ايضاء في الPictureBox
وشكرا
دي اكواد الفورم
ودي صورة الفورم
لدي فورم ف يالبرنامج اقوم بفتحه لكي اقوم بعرض الموظفين عن طريق البحث بي ID الموظف
ثم يعرضون في Label
قمت باضافة زر الموظف التالي وزر الموظف السابق ولكن لا يعملان
وايضا اريد اضافة كود لزر الموظف الاول وكود زر الموظف الاخير
واريد عند استدعاء البيانات وظهورها يقوم باظهر صورة الموظف ايضاء في الPictureBox
وشكرا
دي اكواد الفورم
كود :
Imports System.Data.OleDb
Imports System.IO
Imports System.Drawing.Image
Public Class viewemp
Dim Connectionstring As String = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\EMP.mdb;user id=admin;jet oledb:database password=343282"
Dim newconnection As New OleDbConnection(Connectionstring)
Dim DataSet1 As New DataSet
Dim SQLstr As String
Private Sub viewemp_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Guna.UI.Lib.GraphicsHelper.ShadowForm(Me)
Guna.UI.Lib.GraphicsHelper.DrawLineShadow(Me, Color.Black, 20, 10, Guna.UI.WinForms.VerHorAlign.HoriziontalTop)
Me.TopMost = True
End Sub
Public Sub ChangePosition()
Try
If Me.BindingContext(DataSet1, "DBET").Count = 0 Then
Label22.Text = "قاعده البيانات فارغه"
Exit Sub
End If
Label22.RightToLeft = Windows.Forms.RightToLeft.Yes
Label22.Text = "السجل " & Me.BindingContext(DataSet1, "DBET").Position & _
" من " & Me.BindingContext(DataSet1, "DBET").Count
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub GunaControlBox1_Click(sender As Object, e As EventArgs) Handles GunaControlBox1.Click
Me.Close()
End Sub
Private Sub GunaAdvenceButton2_Click(sender As Object, e As EventArgs) Handles GunaAdvenceButton2.Click
Me.BindingContext(DataSet1, "DBET").Position += 1
ChangePosition()
End Sub
Private Sub GunaAdvenceButton1_Click(sender As Object, e As EventArgs) Handles GunaAdvenceButton1.Click
Me.BindingContext(DataSet1, "DBET").Position -= 1
ChangePosition()
End Sub
Private Sub GunaAdvenceButton3_Click(sender As Object, e As EventArgs) Handles GunaAdvenceButton3.Click
If Search.Text = "" Then
Beep()
MsgBox("من فضلك اكتب كود الموظف الذى تريد عرض بياناته")
Exit Sub
End If
Try
'فتح الاتصال بقاعده البيانات ومن ثم الجدول وملا الداتا سيت بالبيانات وبعد ذلك اغلاق الاتصال
newconnection.Open()
SQLstr = "SELECT * FROM DBET WHERE eid LIKE '" & Search.Text & "'"
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, newconnection)
DataAdapter1.Fill(DataSet1, "DBET")
newconnection.Close()
'هنا عند وجود بيانات صحيحه تم البحث عنها يتم ملا التكست بوكس بما يماثله من الجدول
L1.DataBindings.Add("Text", DataSet1, "DBET.ename")
L2.DataBindings.Add("Text", DataSet1, "DBET.eid")
L3.DataBindings.Add("Text", DataSet1, "DBET.eage")
L4.DataBindings.Add("Text", DataSet1, "DBET.DateBirth")
L5.DataBindings.Add("Text", DataSet1, "DBET.Gender")
L6.DataBindings.Add("Text", DataSet1, "DBET.Nationality")
L7.DataBindings.Add("Text", DataSet1, "DBET.Qualification")
L8.DataBindings.Add("Text", DataSet1, "DBET.Address")
L9.DataBindings.Add("Text", DataSet1, "DBET.Phone")
L10.DataBindings.Add("Text", DataSet1, "DBET.nCompany")
L11.DataBindings.Add("Text", DataSet1, "DBET.Department")
L12.DataBindings.Add("Text", DataSet1, "DBET.TypeEmp")
L13.DataBindings.Add("Text", DataSet1, "DBET.Salary")
L14.DataBindings.Add("Text", DataSet1, "DBET.Dateemp")
TextBox1.DataBindings.Add("Text", DataSet1, "DBET.Notes")
photoadd.DataBindings.Add("Text", DataSet1, "DBET.Photo")
'Dim ms As New IO.MemoryStream(CType(DataBindings.Add("Text", DataSet1, "DBET.Photo").Value, Byte()))
'Dim returnImage As Image = Image.FromStream(ms)
'photoadd.Image = returnImage
'هنا اذا كانت المعلومات اللى بحثنا عنها غير موجوده او صفر نقول للمستخدم فى مسج بوكس لا توجد نتيجه
If Me.BindingContext(DataSet1, "DBET").Count = 0 Then
MsgBox("لا توجد نتيجة", 48, "تنبيه")
Exit Sub
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Search_TextChange(sender As Object, e As EventArgs) Handles Search.TextChange
'الاكمال التلقائى من قاعده البيانات
On Error Resume Next
DataSet1.Clear()
SQLstr = "select * from DBET where eid like '" & Search.Text & "%'"
Static m As Integer = 0
If Search.Text = Trim("") Then Exit Sub
newconnection.Open()
Dim dataadapter1 As New OleDbDataAdapter(SQLstr, newconnection)
dataadapter1.Fill(DataSet1, "DBET")
newconnection.Close()
' datagridview2.datasource = DataSet1
' datagridview2.datamember = "table1"
If Me.BindingContext(DataSet1, "DBET").Count = 0 Then
' MsgBox("لا توجد نتيجه,حاول مره اخرى ")
Exit Sub
End If
End Sub
Private Sub GunaAdvenceButton5_Click(sender As Object, e As EventArgs) Handles GunaAdvenceButton5.Click
Me.BindingContext(DataSet1, "DBET").Position = 0
End Sub
End Class
ودي صورة الفورم