vb设计零件信息、用户信息、订货决策数据的增删改查窗体

好的，以下是一个简单的VB.NET代码示例，可以帮助您实现零件信息、用户信息和订货决策数据的增删改查窗体。请注意，此代码示例仅供参考，您需要根据自己的需求进行修改和优化。

首先，在您的VB.NET项目中创建一个窗体，并添加以下控件：

1. 一个DataGridView控件，用于显示数据库中的数据。
2. 一组TextBox控件，用于输入数据。
3. 一组Button控件，用于执行增删改查操作。

然后，您需要创建一个数据库连接，并编写适当的SQL语句来执行各种操作。以下是一个示例代码，可以帮助您开始：

Imports System.Data.SqlClient

Public Class Form1
    Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=YourDatabaseName;Integrated Security=True")

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '在窗体加载时，将数据加载到DataGridView控件中
        LoadData()
    End Sub

    '从数据库中加载数据到DataGridView控件中
    Private Sub LoadData()
        Dim cmd As New SqlCommand("SELECT * FROM YourTableName", con)
        Dim adapter As New SqlDataAdapter(cmd)
        Dim table As New DataTable()
        adapter.Fill(table)
        DataGridView1.DataSource = table
    End Sub

    '清空输入框中的数据
    Private Sub ClearData()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
    End Sub

    '执行添加操作
    Private Sub AddData()
        Dim cmd As New SqlCommand("INSERT INTO YourTableName (Column1, Column2, Column3, Column4) VALUES (@Value1, @Value2, @Value3, @Value4)", con)
        cmd.Parameters.AddWithValue("@Value1", TextBox1.Text)
        cmd.Parameters.AddWithValue("@Value2", TextBox2.Text)
        cmd.Parameters.AddWithValue("@Value3", TextBox3.Text)
        cmd.Parameters.AddWithValue("@Value4", TextBox4.Text)
        con.Open()
        If cmd.ExecuteNonQuery() > 0 Then
            MessageBox.Show("Data Added")
            ClearData()
            LoadData()
        Else
            MessageBox.Show("Data Not Added")
        End If
        con.Close()
    End Sub

    '执行更新操作
    Private Sub UpdateData()
        Dim cmd As New SqlCommand("UPDATE YourTableName SET Column1=@Value1, Column2=@Value2, Column3=@Value3, Column4=@Value4 WHERE ID=@ID", con)
        cmd.Parameters.AddWithValue("@ID", DataGridView1.SelectedRows(0).Cells(0).Value)
        cmd.Parameters.AddWithValue("@Value1", TextBox1.Text)
        cmd.Parameters.AddWithValue("@Value2", TextBox2.Text)
        cmd.Parameters.AddWithValue("@Value3", TextBox3.Text)
        cmd.Parameters.AddWithValue("@Value4", TextBox4.Text)
        con.Open()
        If cmd.ExecuteNonQuery() > 0 Then
            MessageBox.Show("Data Updated")
            ClearData()
            LoadData()
        Else
            MessageBox.Show("Data Not Updated")
        End If
        con.Close()
    End Sub

    '执行删除操作
    Private Sub DeleteData()
        Dim cmd As New SqlCommand("DELETE FROM YourTableName WHERE ID=@ID", con)
        cmd.Parameters.AddWithValue("@ID", DataGridView1.SelectedRows(0).Cells(0).Value)
        con.Open()
        If cmd.ExecuteNonQuery() > 0 Then
            MessageBox.Show("Data Deleted")
            ClearData()
            LoadData()
        Else
            MessageBox.Show("Data Not Deleted")
        End If
        con.Close()
    End Sub

    '在DataGridView控件中选择行时，将数据显示在输入框中
    Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        If e.RowIndex >= 0 Then
            Dim row As DataGridViewRow = DataGridView1.Rows(e.RowIndex)
            TextBox1.Text = row.Cells("Column1").Value.ToString()
            TextBox2.Text = row.Cells("Column2").Value.ToString()
            TextBox3.Text = row.Cells("Column3").Value.ToString()
            TextBox4.Text = row.Cells("Column4").Value.ToString()
        End If
    End Sub

    '执行添加按钮的单击事件
    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
        AddData()
    End Sub

    '执行更新按钮的单击事件
    Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
        UpdateData()
    End Sub

    '执行删除按钮的单击事件
    Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
        DeleteData()
    End Sub

    '执行搜索按钮的单击事件
    Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
        Dim cmd As New SqlCommand("SELECT * FROM YourTableName WHERE Column1 LIKE '%" & TextBox5.Text & "%'", con)
        Dim adapter As New SqlDataAdapter(cmd)
        Dim table As New DataTable()
        adapter.Fill(table)
        DataGridView1.DataSource = table
    End Sub
End Class

请注意，上面的代码示例仅支持单表操作，如果您需要操作多个表或执行更复杂的操作，请使用适当的SQL查询和代码逻辑来实现。