美国留学

Imports System.Data.SqlClient

Public Class Form1

'连接数据库

Private connString As String = "Server=CW.shscth.com.cn;Database=SCTH;Integrated Security=True;"

Private da As SqlDataAdapter

Private dt As DataTable

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

InitializeDataGrisView()

End Sub

Private Sub InitializeDataGrisView()

’Datagridview初始化

DataGridView1.Columns.Clear()

DataGridView1.Columns.Add("部品番号", "部品番号")

DataGridView1.Columns.Add("数量", "数量")

DataGridView1.Columns.Add("库位号", "库位号")

DataGridView1.Columns("部品番号").Width = 150

DataGridView1.Columns("数量").Width = 100

DataGridView1.Columns("库位号").Width = 120

DataGridView1.Columns("数量").ValueType = GetType(Decimal)

End Sub

Private Sub Button保存_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button保存.Click

If Not ValidateData() Then

Return

End If

SaveDataToDatabase()

End Sub

Private Function ValidateData() As Boolean

If DataGridView1.Rows.Count = 0 Then

MessageBox.Show("没有需要保存的数据!")

Return False

End If

Return True

End Function

Private Sub SaveDataToDatabase()

Dim conn As New SqlConnection(connString)

conn.Open()

Try

Dim 入库日期 As Date = Date.Now

For Each row As DataGridViewRow In DataGridView1.Rows

If Not row.IsNewRow Then

Dim insertQuery As String = "INSERT INTO 历史入库(部品番号,入库数量,库位号,入库日期)VALUES(@部品番号,@入库数量,@库位号,@入库日期)"

Using cmd As New SqlCommand(insertQuery, conn)

cmd.Parameters.AddWithValue("@部品番号", GetCellValue(row.Cells("部品番号")))

cmd.Parameters.AddWithValue("@入库数量", Convert.ToDecimal(row.Cells("数量").Value))

cmd.Parameters.AddWithValue("@库位号", GetCellValue(row.Cells("库位号")))

cmd.Parameters.AddWithValue("@入库日期", 入库日期)

cmd.ExecuteNonQuery()

End Using

End If

Next

MessageBox.Show("保存成功！")

DataGridView1.Rows.Clear()

Catch ex As Exception

MessageBox.Show("保存失败:" & ex.Message)

End Try

End Sub

Private Function GetCellValue(ByVal cell As DataGridViewCell) As Object

If cell.Value Is Nothing Then

Return DBNull.Value

End If

Return cell.Value

End Function

版权声明：本文转载于今日头条，版权归作者所有，如果侵权，请联系本站编辑删除