Imports System.Data
Imports System.Data.SqlClient
Public Class Form2
Dim conn As New SqlConnection("data source = 127.0.0.1 & ; initial catalog = supermarket;user id = text;password = text;")
Public i As Integer
Public n As String
Public SP As String
Public DJ As Single
Public SL As Integer
Public ZS As Integer = 0
Public ZJ As Single = 0
Public XJ As Single = 0
Public FK As Single = 0
Public str As String
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
i = CInt(Now.DayOfYear & Now.Hour & Now.Minute & Now.Second)
ListBox1.Items.Add(" ")
ListBox1.Items.Add("ID:" & uid & "NO:" & i)
ListBox1.Items.Add(Now)
ListBox1.Items.Add("------------------------------------------------------")
ListBox1.Items.Add("商品名称" & " " & "单价" & " " & "数量" & " " & "小计")
Me.Text = "广西机电超市零售管理系统---"
Me.TextBox1.Select()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'Try
' ListBox1.Items.Add("----------------------------------------")
' ListBox1.Items.Add("数量:" & ZS & " 合计:" & ZJ)
' ListBox1.Items.Add("付款: " & "人民币现金 " & FK)
' ListBox1.Items.Add("找零: " & "人民币现金 " & FK - ZJ)
' ListBox1.Items.Add(" ")
' ListBox1.Items.Add(" 请保留好小票")
' ListBox1.Items.Add("七日内如有质量问题凭票退换")
' ListBox1.Items.Add(" 欢迎光临,谢谢惠顾!")
' MsgBox("发票已打印!")
' ListBox1.Items.Clear()
' TextBox2.Text = ""
' TextBox3.Text = ""
' TextBox4.Text = ""
' n = ""
' SP = ""
' DJ = 0
' SL = 0
' ZS = 0
' ZJ = 0
' XJ = 0
' FK = 0
' Me.Form2_Load(sender, e)
' TextBox1.Select()
'Catch ex As Exception
' MsgBox(ex.ToString)
'End Try
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
TextBox4.Text = ZJ
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Str = Label1.Text
Select Case str
Case "条形码"
Dim sql As String
sql = "select * from merchs where allowsell=1 and barcode = '" & TextBox1.Text & "' "
Dim cmd As New SqlCommand(sql, conn)
conn.Open()
Dim dr As SqlDataReader
dr = cmd.ExecuteReader
If dr.Read = True Then
conn.Close()
n = TextBox1.Text
TextBox1.Text = ""
Else
conn.Close()
MsgBox(" 条形码为" & TextBox1.Text & "的商品不存在," + Chr(13) + Chr(10) + "或已经禁止销售", , "警告!")
TextBox1.Text = ""
Exit Sub
End If
sql = "select merchname,unitprice from merchs where barcode= '" & n & "'"
Dim adp As New SqlDataAdapter(sql, conn)
Dim ds As New DataSet
Dim tb As New DataTable
adp.Fill(ds, "a")
tb = ds.Tables("a")
SP = tb.Rows(0).Item(0)
DJ = tb.Rows(0).Item(1)
Label1.Text = "数量"
Case "数量"
Dim ds As New DataSet
SL = CType(TextBox1.Text, Integer)
XJ = DJ * SL
ListBox1.Items.Add(SP & " " & DJ & " " & SL & " " & XJ)
ZS = ZS + SL
ZJ = ZJ + XJ
Label1.Text = "条形码"
TextBox1.Text = ""
Dim aaa As String = "update merchs set quantity = quantity - '" & SL & "' where barcode = '" & n & "'"
Dim bbb As String = " insert into sells(barcode,unitprice,quantity,TotalPrice,selldate,employeesid) values "
bbb &= "( '" & n & "','" & DJ & "','" & SL & "','" & XJ & "','" & Now.Date & "','" & uid & "')"
Dim adp1 As New SqlDataAdapter(aaa, conn)
Dim ds1 As New DataSet
adp1.Fill(ds, "a")
Dim dap2 As New SqlDataAdapter(bbb, conn)
dap2.Fill(ds, "b")
TextBox1.Select()
End Select
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox2.Text = "" Then
MsgBox("还没付款!")
Else
FK = TextBox2.Text
TextBox3.Text = FK - ZJ
Button3.Select()
End If
End Sub
'Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
' If Asc(e.KeyChar) = 13 Then
' Button1_Click_1(sender, e)
' Else
' Exit Sub
' End If
'End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
End
End Sub
End Class