小型超市管理系统设计与实现 - 图文(6)

Dim conn As New OleDbConnection Dim cmd As New OleDbCommand Dim dv As New DataView

Dim daap As New OleDbDataAdapter Dim ds As New DataSet Dim i As Integer Sub bind()

If txt库存数量.Text < 20 Then

If MsgBox(\该货物库存数量不足20件，是否补充商品？\MsgBoxResult.Ok Then

o = txt商品号.Text Me.Close()

添加订货单.MdiParent = 管理员界面 添加订货单.Show()

管理员界面.ToolStripLabel1.Text = \添加订货单\ 添加订货单.txt商品号.Text = o 添加订货单.txt订单号.Focus() End If End If End Sub

Private Sub 库存查询_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

conn.ConnectionString = \超市管理系统.mdb\

cmd.Connection = conn

cmd.CommandText = \订货单表.订单号, 订货单表.商品号, 商品表.商品名, 商品表.类别号, 类别表.类别名, 库存表.库存数量, 订货单表.单位, 订货单表.进价, 供应商表.供应商名 FROM (类别表 INNER JOIN 商品表 ON 类别表.类别号 = 商品表.类别号) INNER JOIN ((供应商表 INNER JOIN 订货单表 ON 供应商表.供应商号 = 订货单表.供应商号) INNER JOIN 库存表 ON 订货单表.订单号 = 库存表.订单号) ON 商品表.商品号 = 订货单表.商品号 ORDER BY 订货单表.订单号;\ conn.Open()

daap.SelectCommand = cmd daap.Fill(ds, \库存表\

dg.DataSource = ds.Tables(\库存表\ dv = ds.Tables(\库存表\

Dim dtkey() As DataColumn = {ds.Tables(0).Columns(\订单号\ ds.Tables(0).PrimaryKey = dtkey dg.DataSource = ds.Tables(0) If dv.Count = 0 Then

MsgBox(\暂无可操作数据！\ Return End If i = 0

txt订单号.Text = ds.Tables(0).Rows(i).Item(\订单号\

第22页 共40页

txt商品号.Text = ds.Tables(0).Rows(i).Item(\商品号\ txt商品名.Text = ds.Tables(0).Rows(i).Item(\商品名\ txt类别号.Text = ds.Tables(0).Rows(i).Item(\类别号\ txt类别名.Text = ds.Tables(0).Rows(i).Item(\类别名\ txt库存数量.Text = ds.Tables(0).Rows(i).Item(\库存数量\ txt单位.Text = ds.Tables(0).Rows(i).Item(\单位\ txt进价.Text = ds.Tables(0).Rows(i).Item(\进价\

txt供应商名.Text = ds.Tables(0).Rows(i).Item(\供应商名\ conn.Close() Call bind() End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click i = 0

txt订单号.Text = ds.Tables(0).Rows(i).Item(\订单号\ txt商品号.Text = ds.Tables(0).Rows(i).Item(\商品号\ txt商品名.Text = ds.Tables(0).Rows(i).Item(\商品名\ txt类别号.Text = ds.Tables(0).Rows(i).Item(\类别号\ txt类别名.Text = ds.Tables(0).Rows(i).Item(\类别名\ txt库存数量.Text = ds.Tables(0).Rows(i).Item(\库存数量\ txt单位.Text = ds.Tables(0).Rows(i).Item(\单位\ txt进价.Text = ds.Tables(0).Rows(i).Item(\进价\

txt供应商名.Text = ds.Tables(0).Rows(i).Item(\供应商名\ Call bind() End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

If i = 0 Then

MsgBox(\已经到达第一条记录\ Else

i = i - 1

txt订单号.Text = ds.Tables(0).Rows(i).Item(\订单号\ txt商品号.Text = ds.Tables(0).Rows(i).Item(\商品号\ txt商品名.Text = ds.Tables(0).Rows(i).Item(\商品名\ txt类别号.Text = ds.Tables(0).Rows(i).Item(\类别号\ txt类别名.Text = ds.Tables(0).Rows(i).Item(\类别名\ txt库存数量.Text = ds.Tables(0).Rows(i).Item(\库存数量\ txt单位.Text = ds.Tables(0).Rows(i).Item(\单位\ txt进价.Text = ds.Tables(0).Rows(i).Item(\进价\

txt供应商名.Text = ds.Tables(0).Rows(i).Item(\供应商名\ Call bind() End If End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

第23页 共40页

Button7.Click

If i = ds.Tables(0).Rows.Count - 1 Then MsgBox(\已经到达最后一条记录\ Else

i = i + 1

txt订单号.Text = ds.Tables(0).Rows(i).Item(\订单号\ txt商品号.Text = ds.Tables(0).Rows(i).Item(\商品号\ txt商品名.Text = ds.Tables(0).Rows(i).Item(\商品名\ txt类别号.Text = ds.Tables(0).Rows(i).Item(\类别号\ txt类别名.Text = ds.Tables(0).Rows(i).Item(\类别名\ txt库存数量.Text = ds.Tables(0).Rows(i).Item(\库存数量\ txt单位.Text = ds.Tables(0).Rows(i).Item(\单位\ txt进价.Text = ds.Tables(0).Rows(i).Item(\进价\

txt供应商名.Text = ds.Tables(0).Rows(i).Item(\供应商名\ Call bind() End If End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

i = ds.Tables(0).Rows.Count - 1

txt订单号.Text = ds.Tables(0).Rows(i).Item(\订单号\ txt商品号.Text = ds.Tables(0).Rows(i).Item(\商品号\ txt商品名.Text = ds.Tables(0).Rows(i).Item(\商品名\ txt类别号.Text = ds.Tables(0).Rows(i).Item(\类别号\ txt类别名.Text = ds.Tables(0).Rows(i).Item(\类别名\ txt库存数量.Text = ds.Tables(0).Rows(i).Item(\库存数量\ txt单位.Text = ds.Tables(0).Rows(i).Item(\单位\ txt进价.Text = ds.Tables(0).Rows(i).Item(\进价\

txt供应商名.Text = ds.Tables(0).Rows(i).Item(\供应商名\ Call bind() End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() 空白界面.Show()

管理员界面.ToolStripLabel1.Text = \请选择操作界面！\ a = 1 End Sub

Private Sub dg_RowEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dg.RowEnter Try

Dim row As Integer row = e.RowIndex If Not row = -1 Then

第24页 共40页

txt订单号.Text = dg.Rows(e.RowIndex).Cells(0).Value txt商品号.Text = dg.Rows(e.RowIndex).Cells(1).Value txt商品名.Text = dg.Rows(e.RowIndex).Cells(2).Value txt类别号.Text = dg.Rows(e.RowIndex).Cells(3).Value txt类别名.Text = dg.Rows(e.RowIndex).Cells(4).Value txt库存数量.Text = dg.Rows(e.RowIndex).Cells(5).Value txt单位.Text = dg.Rows(e.RowIndex).Cells(6).Value txt进价.Text = dg.Rows(e.RowIndex).Cells(7).Value txt供应商名.Text = dg.Rows(e.RowIndex).Cells(8).Value Call bind()

添加订货单.MdiParent = 管理员界面 添加订货单.Show() End If

Catch ex As Exception End Try End Sub

Private Sub txt订单号新_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt订单号新.TextChanged

dv.RowFilter = \订单号 like '%\订单号新.Text & \ If dv.Count = 0 Then

MsgBox(\此商品不存在,请重新输入!\库存\ txt订单号新.Text = \ End If End Sub

Private Sub txt商品名新_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt商品名新.TextChanged

dv.RowFilter = \商品名 like '%\商品名新.Text & \ If dv.Count = 0 Then

MsgBox(\此商品不存在,请重新输入!\库存\ txt商品名新.Text = \ End If End Sub

End Class

8.库存添加界面，本界面进入前，系统会自动进行选择查询，只显示已到货但未入库的订单商品。如图4-11所示：

第25页 共40页

图4-11 库存添加界面

9.柜存查询界面，本界面设有快速查询功能，并会在所显示的商品柜存数量不足5时，自动弹出提示框，询问用户是否进入柜存添加界面补充该商品。如图4-12所示：

图4-12 柜存查询界面

10.柜存添加界面，本界面的商品上柜分为两类：一是已有商品上柜，在输入该批商品的订单号时会自动搜索该数据并显示相应内容，用户只需输入上柜数量即可；二是新增商品上柜，当输入订单号时在柜存表中找不到该商品的数据记

第26页 共40页