كود :
Public Class frm00000
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
pos = 0
_1.ShowDialog()
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "")
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
pos = 1
_1.ShowDialog()
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "")
End Try
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Try
pos = 2
_1.ShowDialog()
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "")
End Try
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Try
pos = 3
_1.ShowDialog()
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "")
End Try
End Sub
End Class
كود :
Imports System.DataImports System.Data.OleDb
Imports System.IO
Imports System
Public Class _1
Dim DataAdapter1 As OleDbDataAdapter
Dim FileName As String = String.Empty
Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" & Application.StartupPath & "\sow.mdb"
Dim Conn As New OleDbConnection(ConStr)
Dim DataSet1 As New DataSet
Dim SQLstr As String = "SELECT * FROM table1"
Public Sub ChangePosition()
Label24.RightToLeft = Windows.Forms.RightToLeft.Yes
Label24.Text = "السجل " & Me.BindingContext(DataSet1, "table1").Position + 1 & _
" من " & Me.BindingContext(DataSet1, "table1").Count
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.BindingContext(DataSet1, "table1").Position = Me.BindingContext(DataSet1, "table1").Count - 1
ChangePosition()
End Sub
Private Sub _1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
DataAdapter1.Fill(DataSet1, "table1")
TextBox1.DataBindings.Clear()
TextBox2.DataBindings.Clear()
TextBox3.DataBindings.Clear()
TextBox4.DataBindings.Clear()
TextBox5.DataBindings.Clear()
TextBox6.DataBindings.Clear()
TextBox13.DataBindings.Clear()
TextBox14.DataBindings.Clear()
TextBox1.DataBindings.Add("Text", DataSet1, "table1.Sectionname")
TextBox2.DataBindings.Add("Text", DataSet1, "table1.floor")
TextBox3.DataBindings.Add("Text", DataSet1, "table1.side")
TextBox4.DataBindings.Add("Text", DataSet1, "table1.phone")
TextBox5.DataBindings.Add("Text", DataSet1, "table1.convert1")
TextBox6.DataBindings.Add("Text", DataSet1, "table1.fax")
TextBox13.DataBindings.Add("Text", DataSet1, "table1.email")
TextBox14.DataBindings.Add("Text", DataSet1, "table1.pic")
If TextBox14.Text = "" Then
PictureBox1.Image = Nothing
Else
On Error Resume Next
PictureBox1.Image = Image.FromFile(Application.StartupPath & "\pic\" & TextBox14.Text)
End If
Me.BindingContext(DataSet1, "table1").Position = pos
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If MsgBox("هل تريد إضافة معلومات قسم جديد ", vbYesNo + vbQuestion, "إضافة جديدة") = MsgBoxResult.Yes Then
Button1.Enabled = False
Button2.Enabled = True
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox13.Clear()
TextBox14.Clear()
End If
TextBox1.Focus()
End Sub
Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Try
My.Computer.FileSystem.CopyFile(TextBox14.Text, Application.StartupPath & "\pic\" & IO.Path.GetFileName(TextBox14.Text), True)
Catch ex As Exception
End Try
Try
Dim SavInto As New OleDb.OleDbCommand
If Conn.State = ConnectionState.Open Then Conn.Close()
SavInto.Connection = Conn
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "update table1 SET Sectionname = '" & Trim(TextBox1.Text) & "' , floor = '" & Trim(TextBox2.Text) & "' , side = '" & Trim(TextBox3.Text) & "' , phone = '" & Trim(TextBox4.Text) & "' , Convert1 = '" & Trim(TextBox5.Text) & "' , fax= '" & Trim(TextBox6.Text) & "' , email = '" & (TextBox13.Text) & "' , pic = '" & IO.Path.GetFileName(TextBox14.Text) & "' WHERE Sectionname = '" & (TextBox1.Text) & "'"
Conn.Open()
SavInto.ExecuteNonQuery()
Dim dataadapter As New OleDbDataAdapter(SQLstr, Conn)
DataSet1.Clear()
dataadapter.Fill(DataSet1, "table1")
Conn.Close()
MsgBox("تمت عملية التعديل بنجاح بنجاح")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'My.Computer.FileSystem.CopyFile(TextBox14.Text, Application.StartupPath & "\pic\" & IO.Path.GetFileName(TextBox14.Text))
Try
My.Computer.FileSystem.CopyFile(TextBox14.Text, Application.StartupPath & "\pic\" & IO.Path.GetFileName(TextBox14.Text), True)
Catch ex As Exception
End Try
Try
Dim SavInto As New OleDb.OleDbCommand
'Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\sow.mdb"
'Dim Conn As New OleDbConnection(ConStr)
If Conn.State = ConnectionState.Open Then Conn.Close()
SavInto.Connection = Conn
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "Insert Into table1(Sectionname,floor,side,phone,Convert1,fax,email,pic) Values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox13.Text & "','" & IO.Path.GetFileName(TextBox14.Text) & "')"
Conn.Open()
SavInto.ExecuteNonQuery()
Conn.Close()
MsgBox("تمت عملية الاضافة بنجاح")
Button1.Enabled = True
'Me.Close()
Catch ex As Exception
MsgBox(ex.ToString)
'Exit Sub
Button1.Enabled = True
End Try
End Sub
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim op As New OpenFileDialog
With op
.Title = "اختار صورة"
.Filter = "Jpg(*.jpg)|*.jpg|Bmp(*.bmp)|*.bmp|Png(*.png)|*.png|Gif(*.gif)|*.gif"
.ShowDialog()
End With
If op.FileName = Nothing Then
Exit Sub
Else
TextBox14.Text = op.FileName
PictureBox1.Image = Image.FromFile(op.FileName)
op.Dispose()
End If
End Sub
Private Sub Button8_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Me.BindingContext(DataSet1, "table1").Position = 0
ChangePosition()
End Sub
Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Me.BindingContext(DataSet1, "table1").Position += 1
ChangePosition()
End Sub
Private Sub Button7_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Me.BindingContext(DataSet1, "table1").Position -= 1
ChangePosition()
End Sub
Private Sub Button9_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Me.BindingContext(DataSet1, "table1").Position = Me.BindingContext(DataSet1, "table1").Count - 1
ChangePosition()
End Sub
Private Sub TextBox14_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox14.TextChanged
Try
If TextBox14.Text.Length > 0 Then
PictureBox1.Image = Image.FromFile(Application.StartupPath & "\pic\" & TextBox14.Text)
Else
PictureBox1.Image = Nothing
End If
Catch ex As Exception
End Try
End Sub
End Class