Imports System.IO
Imports System.Data.OleDb
Public Class FrmYuangong
Dim bmdata As BindingManagerBase '定义一个公有变量
Private Sub settextboxfalse() '设置捆绑的控件都不可用
Textbianhao.Enabled = False
Comxingbie.Enabled = False
Textdianhua.Enabled = False
Textxiangpian.Enabled = False
Textxingming.Enabled = False
Textyouxiang.Enabled = False
Textzhuzhi.Enabled = False
Butxuantu.Enabled = False
End Sub
Private Sub settextboxtrue()
'设置捆绑的控件都可用
Comxingbie.Enabled = True
Textdianhua.Enabled = True
Textxiangpian.Enabled = True
Textxingming.Enabled = True
Textyouxiang.Enabled = True
Textzhuzhi.Enabled = True
Butxuantu.Enabled = True
End Sub
Private Sub tupianJZ()
Try
Dim ImgByt() As Byte
Dim ImgMS As IO.MemoryStream
Dim i As Integer
i = bmdata.Position
ImgByt = CType(DataSet61.Tables("员工").Rows(i).Item("相片"), Byte())
ImgMS = New IO.MemoryStream(ImgByt)
PictureBox1.Image = Drawing.Image.FromStream(ImgMS)
Catch ex As Exception
PictureBox1.Image = Image.FromFile(Application.StartupPath & "\无图.jpg")
End Try
End Sub
Private Sub updatedatasource(ByVal changedrows As DataSet) '更新数据源的自定义过程
Try
If (Not (changedrows) Is Nothing) Then
OleDbConnection1.Open()
OleDbDataAdapter1.Update(changedrows) '把数据集changedrows对象中的数据更新到数据源
End If
Catch updateexception As System.Exception
Throw updateexception
Finally
OleDbConnection1.Close()
End Try
End Sub
Public Sub updatedataset() '更新数据集自定义过程
Dim datasetchanges As DataSet '创建一个新数据集来保存对主数据集所做的更改
bmdata.EndCurrentEdit() '停止当前的任何编辑
datasetchanges = CType(DataSet61.GetChanges, DataSet) '获得对主数据的更改
If (Not (datasetchanges) Is Nothing) Then '检查是否做了任何更改
Try