前台POS

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