frmzhanghu.vb

vb.net+SQL开发工具 是一个很好的管理系统的源码

        Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2
        Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "系统参数表", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("编号", "编号"), New System.Data.Common.DataColumnMapping("参数名称", "参数名称"), New System.Data.Common.DataColumnMapping("取值", "取值")})})
        Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
        '
        'SqlDeleteCommand2
        '
        Me.SqlDeleteCommand2.CommandText = "DELETE FROM 系统参数表 WHERE (编号 = @Original_编号) AND (参数名称 = @Original_参数名称 OR @Origin" & _
        "al_参数名称 IS NULL AND 参数名称 IS NULL) AND (取值 = @Original_取值 OR @Original_取值 IS NULL" & _
        " AND 取值 IS NULL)"
        Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_编号", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "编号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.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.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_取值", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "取值", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlInsertCommand2
        '
        Me.SqlInsertCommand2.CommandText = "INSERT INTO 系统参数表(参数名称, 取值) VALUES (@参数名称, @取值); SELECT 编号, 参数名称, 取值 FROM 系统参数表 W" & _
        "HERE (编号 = @@IDENTITY)"
        Me.SqlInsertCommand2.Connection = Me.SqlConnection1
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@参数名称", System.Data.SqlDbType.VarChar, 20, "参数名称"))
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@取值", System.Data.SqlDbType.Int, 4, "取值"))
        '
        'SqlSelectCommand2
        '
        Me.SqlSelectCommand2.CommandText = "SELECT 编号, 参数名称, 取值 FROM 系统参数表"
        Me.SqlSelectCommand2.Connection = Me.SqlConnection1
        '
        'SqlUpdateCommand2
        '
        Me.SqlUpdateCommand2.CommandText = "UPDATE 系统参数表 SET 参数名称 = @参数名称, 取值 = @取值 WHERE (编号 = @Original_编号) AND (参数名称 = @Or" & _
        "iginal_参数名称 OR @Original_参数名称 IS NULL AND 参数名称 IS NULL) AND (取值 = @Original_取值 O" & _
        "R @Original_取值 IS NULL AND 取值 IS NULL); SELECT 编号, 参数名称, 取值 FROM 系统参数表 WHERE (编号" & _
        " = @编号)"
        Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@参数名称", System.Data.SqlDbType.VarChar, 20, "参数名称"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@取值", System.Data.SqlDbType.Int, 4, "取值"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_编号", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "编号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand2.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.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_取值", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "取值", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@编号", System.Data.SqlDbType.Int, 4, "编号"))
        '
        'ToolBar1
        '
        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbbSave})
        Me.ToolBar1.DropDownArrows = True
        Me.ToolBar1.ImageList = Me.ImageList1
        Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
        Me.ToolBar1.Name = "ToolBar1"
        Me.ToolBar1.ShowToolTips = True
        Me.ToolBar1.Size = New System.Drawing.Size(560, 28)
        Me.ToolBar1.TabIndex = 6
        '
        'ImageList1
        '
        Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        '
        'tbbSave
        '
        Me.tbbSave.ImageIndex = 0
        Me.tbbSave.ToolTipText = "保存修改后表格的数据"
        '
        'frmZhangHu
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(560, 273)
        Me.Controls.Add(Me.ToolBar1)
        Me.Controls.Add(Me.dgdRight)
        Me.Controls.Add(Me.dgdLeft)
        Me.Controls.Add(Me.grbSearch)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "frmZhangHu"
        Me.Text = "帐户录入(期出数据录入)"
        Me.grbSearch.ResumeLayout(False)
        CType(Me.dgdLeft, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.dgdRight, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
    Private Sub SetLeftDataGrid()
        Me.SqlConnection1.ConnectionString = DataBase.sConn
        SqlDataAdapter1.Fill(DataSet11)
        dtLeft = DataSet11.Tables("帐簿初始化表")
        Dim ts As New DataGridTableStyle
        Dim aColumnTextColumn As DataGridTextBoxColumn
        Dim numCols As Integer = dtLeft.Columns.Count
        Dim i As Integer
        For i = 0 To numCols - 1
            aColumnTextColumn = New DataGridTextBoxColumn
            aColumnTextColumn.MappingName = _
            dtLeft.Columns(i).ColumnName
            aColumnTextColumn.HeaderText = _
            dtLeft.Columns(i).ColumnName
            aColumnTextColumn.NullText = ""
            aColumnTextColumn.Width = 60
            aColumnTextColumn.ReadOnly = True
            If i > 2 Then
                aColumnTextColumn.ReadOnly = False
                aColumnTextColumn.HeaderText += "(可编辑)"
                aColumnTextColumn.Width = 105
            End If
            ts.GridColumnStyles.Add(aColumnTextColumn)
        Next
        ts.AlternatingBackColor = Color.LightGray
        ts.AllowSorting = False
        ts.MappingName = dtLeft.TableName
        dgdLeft.TableStyles.Add(ts)
        Dim dv As DataView = dtLeft.DefaultView
        dv.AllowNew = False
        dv.AllowDelete = False
        'dv.AllowEdit = False
        '设置数据源
        dgdLeft.DataSource = dtLeft.DefaultView
    End Sub
    Private Sub SetRightDataGrid()
        Me.SqlConnection1.ConnectionString = DataBase.sConn
        SqlDataAdapter2.Fill(DataSet11)
        dtRight = DataSet11.Tables("系统参数表")
        Dim ts As New DataGridTableStyle
        Dim aColumnTextColumn As DataGridTextBoxColumn
        Dim numCols As Integer = dtRight.Columns.Count
        Dim i As Integer
        For i = 0 To numCols - 1
            aColumnTextColumn = New DataGridTextBoxColumn
            aColumnTextColumn.MappingName = _
            dtRight.Columns(i).ColumnName
            aColumnTextColumn.HeaderText = _
            dtRight.Columns(i).ColumnName
            aColumnTextColumn.NullText = ""
            If i = 0 Then
                aColumnTextColumn.Width = 30
            Else
                aColumnTextColumn.Width = 60
            End If
            aColumnTextColumn.ReadOnly = True
            If i = 2 Then
                aColumnTextColumn.ReadOnly = False
                aColumnTextColumn.HeaderText += "(可编辑)"
                aColumnTextColumn.Width = 80
            End If
            ts.GridColumnStyles.Add(aColumnTextColumn)
        Next
        ts.AlternatingBackColor = Color.LightGray
        ts.AllowSorting = False
        ts.MappingName = dtRight.TableName
        dgdRight.TableStyles.Add(ts)
        Dim dv As DataView = dtRight.DefaultView
        dv.AllowNew = False
        dv.AllowDelete = False
        'dv.AllowEdit = False
        '设置数据源
        dgdRight.DataSource = dtRight.DefaultView
    End Sub
    Private Sub frmZhangHu_Load(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        SetLeftDataGrid()
        SetRightDataGrid()
    End Sub
    Private Sub ToolBar1_ButtonClick(ByVal sender As Object, ByVal _
    e As ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
        Dim row As Integer
        row = dgdLeft.CurrentCell.RowNumber
        dgdLeft.CurrentCell = _
        New DataGridCell((row + 1) _
        Mod DataSet11.Tables("帐簿初始化表").Rows.Count, 0)
        row = dgdRight.CurrentCell.RowNumber
        dgdRight.CurrentCell = New DataGridCell((row + 1) _
        Mod DataSet11.Tables("系统参数表").Rows.Count, 0)
        If DataSet11.HasChanges = True Then
            Try
                SqlDataAdapter1.Update(DataSet11)
                SqlDataAdapter2.Update(DataSet11)
            Catch ex As Exception
                MessageBox.Show("更新数据出错!")
            End Try
        End If
    End Sub
    Private Sub btnNew_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnNew.Click
        Dim dlgResult As DialogResult = _
        MessageBox.Show("是否清除原账簿信息,并初始化新帐簿？", _
        "删除", MessageBoxButtons.OKCancel)
        If dlgResult = DialogResult.OK Then
            Dim db As DataBase = New DataBase
            db.RunDelOrInsSQL("exec sf_初始化帐户")
            db.Dispose()
        End If
        SqlDataAdapter1.Fill(DataSet11)
        dtLeft = DataSet11.Tables("帐簿初始化表")
        dgdLeft.DataSource = dtLeft
    End Sub
    Private Sub btnStart_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnStart.Click
        Dim dlgPingHeng As frmPingHeng = New frmPingHeng
        If dlgPingHeng.CalPingHeng(0) <> True Then
            MessageBox.Show("初始数据试算不平衡,请检查数据", _
            "确认", MessageBoxButtons.OK)
            Return
        End If
        Dim strMsg As String = "试算结果平衡,"
        strMsg += "启用新帐簿将删除所有历史数据,是否继续?"
        MessageBox.Show(strMsg, "确认", MessageBoxButtons.OK)
        '调用sf_初始化帐户存储过程建立新帐簿
        Dim db As DataBase = New DataBase
        db.RunDelOrInsSQL("exec sf_启用帐户")
        strMsg = "新帐簿成功启用"
        MessageBox.Show(strMsg, "确认", MessageBoxButtons.OK)
        dlgPingHeng.Dispose()
    End Sub
    Private Sub btnTry_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnTry.Click
        Dim dlgPingHeng As frmPingHeng = New frmPingHeng
        dlgPingHeng.ShowDialog()
        dlgPingHeng.Dispose()
    End Sub
End Class