frmdepinfo.vb

使用的人力资源管理系统

        Me.SqlInsertCommand1.CommandText = "INSERT INTO 组织机构编码表(类别, 拼音编码, 单位地址, 单位电话号码, 开户银行, 帐号, 开户全称, 单位编号) VALUES (@类别, @拼" & _
        "音编码, @单位地址, @单位电话号码, @开户银行, @帐号, @开户全称, @单位编号); SELECT 类别, 拼音编码, 单位地址, 单位电话号码, 开" & _
        "户银行, 帐号, 开户全称, 单位编号 FROM 组织机构编码表 WHERE (单位编号 = @单位编号)"
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@类别", System.Data.SqlDbType.VarChar, 100, "类别"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@拼音编码", System.Data.SqlDbType.VarChar, 50, "拼音编码"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@单位地址", System.Data.SqlDbType.VarChar, 100, "单位地址"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@单位电话号码", System.Data.SqlDbType.VarChar, 50, "单位电话号码"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@开户银行", System.Data.SqlDbType.VarChar, 100, "开户银行"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@帐号", System.Data.SqlDbType.VarChar, 50, "帐号"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@开户全称", System.Data.SqlDbType.VarChar, 100, "开户全称"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@单位编号", System.Data.SqlDbType.VarChar, 20, "单位编号"))
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT 类别, 拼音编码, 单位地址, 单位电话号码, 开户银行, 帐号, 开户全称, 单位编号 FROM 组织机构编码表"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "UPDATE 组织机构编码表 SET 类别 = @类别, 拼音编码 = @拼音编码, 单位地址 = @单位地址, 单位电话号码 = @单位电话号码, 开户银行 =" & _
        " @开户银行, 帐号 = @帐号, 开户全称 = @开户全称, 单位编号 = @单位编号 WHERE (单位编号 = @Original_单位编号) AND (" & _
        "单位地址 = @Original_单位地址 OR @Original_单位地址 IS NULL AND 单位地址 IS NULL) AND (单位电话号码 = " & _
        "@Original_单位电话号码 OR @Original_单位电话号码 IS NULL AND 单位电话号码 IS NULL) AND (帐号 = @Orig" & _
        "inal_帐号 OR @Original_帐号 IS NULL AND 帐号 IS NULL) AND (开户全称 = @Original_开户全称 OR @O" & _
        "riginal_开户全称 IS NULL AND 开户全称 IS NULL) AND (开户银行 = @Original_开户银行 OR @Original_开" & _
        "户银行 IS NULL AND 开户银行 IS NULL) AND (拼音编码 = @Original_拼音编码 OR @Original_拼音编码 IS NU" & _
        "LL AND 拼音编码 IS NULL) AND (类别 = @Original_类别 OR @Original_类别 IS NULL AND 类别 IS NU" & _
        "LL); SELECT 类别, 拼音编码, 单位地址, 单位电话号码, 开户银行, 帐号, 开户全称, 单位编号 FROM 组织机构编码表 WHERE (单位编" & _
        "号 = @单位编号)"
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@类别", System.Data.SqlDbType.VarChar, 100, "类别"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@拼音编码", System.Data.SqlDbType.VarChar, 50, "拼音编码"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@单位地址", System.Data.SqlDbType.VarChar, 100, "单位地址"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@单位电话号码", System.Data.SqlDbType.VarChar, 50, "单位电话号码"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@开户银行", System.Data.SqlDbType.VarChar, 100, "开户银行"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@帐号", System.Data.SqlDbType.VarChar, 50, "帐号"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@开户全称", System.Data.SqlDbType.VarChar, 100, "开户全称"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@单位编号", System.Data.SqlDbType.VarChar, 20, "单位编号"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_单位编号", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "单位编号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_单位地址", System.Data.SqlDbType.VarChar, 100, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "单位地址", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_单位电话号码", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "单位电话号码", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_帐号", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "帐号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_开户全称", System.Data.SqlDbType.VarChar, 100, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "开户全称", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_开户银行", System.Data.SqlDbType.VarChar, 100, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "开户银行", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_拼音编码", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "拼音编码", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_类别", System.Data.SqlDbType.VarChar, 100, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "类别", System.Data.DataRowVersion.Original, Nothing))
        '
        'DataSet11
        '
        Me.DataSet11.DataSetName = "DataSet1"
        Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'frmDepInfo
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(520, 273)
        Me.Controls.Add(Me.dgdDepInfo)
        Me.Controls.Add(Me.ToolBar1)
        Me.Name = "frmDepInfo"
        Me.Text = "机构详细信息"
        CType(Me.dgdDepInfo, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub frmDepInfo_Load(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dt As DataTable
        dt = DataSet11.Tables("组织机构编码表")
        '定义一个DataGrid表样式
        Dim ts As New DataGridTableStyle
        Dim aColumnTextColumn As DataGridTextBoxColumn
        Dim numCols As Integer = dt.Columns.Count
        Dim i As Integer
        For i = 0 To numCols - 2
            aColumnTextColumn = New DataGridTextBoxColumn
            aColumnTextColumn.MappingName = _
            dt.Columns(i).ColumnName
            If i = 0 Then
                aColumnTextColumn.HeaderText = "单位名称"
            Else
                aColumnTextColumn.HeaderText = _
                dt.Columns(i).ColumnName
            End If
            aColumnTextColumn.NullText = ""
            ts.GridColumnStyles.Add(aColumnTextColumn)
        Next
        ts.AlternatingBackColor = Color.LightGray
        ts.AllowSorting = False
        dgdDepInfo.TableStyles.Add(ts)
        SqlConnection1.ConnectionString = DataBase.sConn
        SqlDataAdapter1.Fill(DataSet11, "组织机构编码表")
        '设置dgdDepInfo的数据源
        ts.MappingName = dt.TableName
        dt.DefaultView.AllowDelete = False
        dt.DefaultView.AllowNew = False
        dgdDepInfo.DataSource = dt.DefaultView
    End Sub

    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, _
        ByVal e As ToolBarButtonClickEventArgs) _
        Handles ToolBar1.ButtonClick
        Dim row As Integer
        row = dgdDepInfo.CurrentCell.RowNumber
        dgdDepInfo.CurrentCell = New DataGridCell(row + 1, 0)
        Try
            '判断DataSet11的数据是否有变化
            '即DataGrid控件上是否有数据更改
            If DataSet11.HasChanges Then
                '通过SqlDataAdapter1更新数据库数据
                SqlDataAdapter1.Update(DataSet11)
                DataSet11.Tables("组织机构编码表"). _
                DefaultView.RowFilter = ""
                MessageBox.Show("数据修改成功!")
            Else
                MessageBox.Show("无修改的数据!")
            End If
        Catch ex As Exception
            MessageBox.Show("修改的数据出错")
        End Try
    End Sub
End Class