If Txt商品号.Text.Length = 4 Then If dv柜存.Count = 0 Then
MsgBox(\此货号不存在,请重新输入!\销售\ Txt商品号.Text = \ Label5.Text = \ Lab单价.Text = \ Txt数量.Text = \ Txt商品号.Focus()
Else : Label5.Text = dv柜存.Item(0).Item(\商品名\ Lab单价.Text = dv柜存.Item(0).Item(\售价\ Label7.Text = dv柜存.Item(0).Item(\订单号\ End If Else
Label5.Text = \ Lab单价.Text = \ Txt实收.Text = \ Lab找零.Text = \ Txt数量.Text = \ End If
If Txt商品号.Text.Length > 4 Then
MsgBox(\此货号不存在,请重新输入!\销售\ Txt商品号.Text = \ Label5.Text = \ Lab单价.Text = \ Txt数量.Text = \ Txt商品号.Focus() End If End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dr As DataRow
If Txt数量.Text.Length = \
MsgBox(\购买数量不能为空，请重新输入。\MsgBoxStyle.OkOnly, \警告\
ElseIf Val(Txt数量.Text) = 0 Then
MsgBox(\购买数量不能为0，请重新输入。\MsgBoxStyle.OkOnly, \警告\
Else : Dim i As Integer = MsgBox(\确认，去付款\确认\ If i = 1 Then
dr = ds.Tables(\销售表\ dr.Item(\商品号\商品号.Text dr.Item(\商品名\ dr.Item(\售价\单价.Text dr.Item(\数量\数量.Text)
第32页 共40页
dr.Item(\姓名\销售人员.Text dr.Item(\销售日期\ ds.Tables(\销售表\
Lab合计.Text = Val(Lab合计.Text) + Lab单价.Text * Val(Txt数量.Text) Txt商品号.Text = \ Txt数量.Text = \ Label7.Text = \ Label5.Text = \ Lab单价.Text = \ Txt商品号.Focus() Else
ds.Tables(\销售表\ End If End If
Txt实收.Text = 0 End Sub
Private Sub Txt实收_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Txt实收.KeyPress If e.KeyChar = ChrW(13) Then
Lab找零.Text = Val(Txt实收.Text) - Val(Lab合计.Text) End If End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Txt实收.Text = \
MsgBox(\请您输入实收金额！\警告\
ElseIf Txt实收.Text < Lab合计.Text Then
MsgBox(\您付款的金额不足！\警告\
Txt实收.Text = 0 Txt实收.Focus() Else
Dim i As Integer = MsgBox(\确认付款?\付款\ If i = 1 Then Dim b As Integer
For b = 0 To ds.Tables(\销售表\ Dim cmd As New OleDbCommand conn.Open()
cmd.Connection = conn
cmd.CommandText = \销售表(订单号,商品号,售货员号,数量,售价,总价,销售日期) values ('\柜存表\订单号\销售表\商品号\销售表\数量\销售表\售价\
第33页 共40页
Val(ds.Tables(\销售表\售价\* Val(ds.Tables(\销售表\数量\& \
cmd.ExecuteNonQuery()
cmd.CommandText = \柜存表 set 柜存数量=柜存数量-'\销售表\数量\订单号='\柜存表\订单号\
cmd.ExecuteNonQuery() conn.Close() Next
Txt商品号.Text = \ Txt数量.Text = \ Label7.Text = \ Txt数量.Text = \ Label5.Text = \ Lab单价.Text = \ Txt商品号.Focus()
Lab找零.Text = Val(Txt实收.Text) - Val(Lab合计.Text) Else
ds.Tables(\销售表\ End If End If 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 Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ds.Tables(\销售表\
dv销售 = ds.Tables(\销售表\ dg1.DataSource = dv销售 Lab合计.Text = \ Lab找零.Text = \ Txt实收.Text = \ Txt商品号.Focus() End Sub
End Class
2.退货界面，本界面首先需要输入退货商品的商品号、出售该商品的售货员名、销售日期，点击确定后进入数据库查找相应的数据记录，如果有显示退货界
第34页 共40页
面，没有则弹出提示框。在进入退后界面工作人员只需输入退货数量和退货原因即可。如图4-21所示：
图4-21 退货界面
3.每日结算界面（售货员），本界面是售货员工作一天后，查看本日本人的所有销售情况，并直接给出销售总额以便向管理员交款。如图4-22所示：
图4-22 每日结算（售货员）界面
4.密码修改界面，本界面进入后会直接显示该用户的密码问题，待用户的问题答案回答正确后方能进行密码修改，在修改密码时两次输入的新密码必须完全一样。如图4-23所示：
第35页 共40页
图4-23 密码修改界面
第36页 共40页