Visual Basic 2010 数据库开发之销售管理系统07货品信息设置

在数据源窗体中把“货品编号”，“货品名称”，“规格”，“单位”拖入窗体

窗体下面会自动添加一些组件

打开数据集设计器

添加三个查询“DeleteQuery”，“FillByCondition”，“UpdateQuery”

DELETE FROM 货品信息
WHERE 货品编号 = @货品编号SELECT 货品编号, 货品名称, 规格, 单位 
FROM 货品信息
WHERE 货品编号=@货品编号 OR 货品名称=@货品名称UPDATE 货品信息 
SET 货品名称= @货品名称, 规格 = @规格, 单位 = @单位 
WHERE 货品编号 = @货品编号

窗体代码

Imports System.Data.SqlClient
Imports 销售管理系统.xiaoshouxtDataSet
Public Class frmHuoPinInfoPrivate Sub SetControlDisable()GroupBox1.Enabled = FalseEnd SubPrivate Sub SetControlEnable()GroupBox1.Enabled = TrueEnd SubPrivate Sub SetControlEmpty()货品编号TextBox.Text = ""货品名称TextBox.Text = ""规格TextBox.Text = ""单位TextBox.Text = ""End SubPrivate Sub SetControlDebug()货品编号TextBox.Text = "00001"货品名称TextBox.Text = "显示器"规格TextBox.Text = "21寸"单位TextBox.Text = "台"End SubDim dt As 货品信息DataTableDim dv As DataViewDim bmdata As CurrencyManagerPrivate Sub FillDataAndView()dt = New 货品信息DataTable货品信息TableAdapter.Fill(dt)dv = New DataView(dt)bmdata = Me.BindingContext(dv)End SubPrivate Sub bindFields()货品编号TextBox.DataBindings.Clear()货品名称TextBox.DataBindings.Clear()规格TextBox.DataBindings.Clear()单位TextBox.DataBindings.Clear()货品编号TextBox.DataBindings.Add("text", dv, "货品编号")货品名称TextBox.DataBindings.Add("text", dv, "货品名称")规格TextBox.DataBindings.Add("text", dv, "规格")单位TextBox.DataBindings.Add("text", dv, "单位")End SubPrivate Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClickDim intIndex As Integer = e.RowIndexTry货品编号TextBox.Text = DataGridView1.Rows(intIndex).Cells(0).Value货品名称TextBox.Text = DataGridView1.Rows(intIndex).Cells(1).Value规格TextBox.Text = DataGridView1.Rows(intIndex).Cells(2).Value单位TextBox.Text = DataGridView1.Rows(intIndex).Cells(3).ValueCatch ex As ExceptionExit SubEnd TryEnd SubPrivate Sub frmHuoPinInfo_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DisposedMe.Close()frmMain.Show()End SubPrivate Sub frmHuoPinInfo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadSetControlDisable()FillDataAndView()bindFields()lblcounts.Text = dt.Rows.CountDataGridView1.DataSource = dtEnd SubPrivate Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Clickflag = "add"SetControlEnable()SetControlDebug()End SubPrivate Sub btnModify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnModify.Clickflag = "modify"SetControlEnable()End SubPrivate Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.ClickIf flag = "add" ThenTry货品编号TextBox.Text = CInt(BindingContext(dv).Current("货品编号").ToString) + 1货品编号TextBox.Text = Format(CInt(货品编号TextBox.Text), "000000")货品信息TableAdapter.Insert(货品编号TextBox.Text, 货品名称TextBox.Text, 规格TextBox.Text, 单位TextBox.Text)Catch ex As ExceptionMsgBox(ex.Message)End TryElseIf flag = "modify" Then货品信息TableAdapter.UpdateQuery(货品名称TextBox.Text, 规格TextBox.Text, 单位TextBox.Text, 货品编号TextBox.Text)ElseExit SubEnd IfSetControlDisable()FillDataAndView()bindFields()lblcounts.Text = dt.Rows.CountDataGridView1.DataSource = dtEnd SubPrivate Sub btnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDel.ClickIf MessageBox.Show("确定删除吗？", "提示信息", MessageBoxButtons.YesNo, MessageBoxIcon.Stop) = DialogResult.Yes Then货品信息TableAdapter.DeleteQuery(货品编号TextBox.Text)End IfFillDataAndView()bindFields()lblcounts.Text = dt.Rows.CountDataGridView1.DataSource = dtEnd SubPrivate Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Clickdt = New 货品信息DataTable货品信息TableAdapter.FillByCondition(dt, txtCondition.Text, txtCondition.Text)DataGridView1.DataSource = dtEnd SubPrivate Sub btnRef_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRef.ClickfrmHuoPinInfo_Load(sender, e)End SubPrivate Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.ClickfrmHuoPinReport.Show()End SubPrivate Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.ClickMe.Close()frmMain.Show()End Sub
End Class

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！