 |
|
ขอโค้ด การตัดสต๊อกสินค้าและการเพิ่มสต๊อกหน่อยครับในเวลาซื้อ-ขาย |
|
 |
|
|
 |
 |
|
Code (VB.NET)
'ส่วนนี้เป็นโค้ด แก้ไขจำนวนคงเหลือในตาราง Product
'เอาจำนวนขาย -Stock
sb = New StringBuilder
sb.Append("SELECT Proid, Stock FROM Product")
sb.Append(" WHERE Proid=@Proid")
sqlAdd = sb.ToString()
exeCommand = New SqlCommand
With exeCommand
.CommandText = sqlAdd
.Connection = conn
.Parameters.Add("@Proid", SqlDbType.VarChar).Value = ListView1.Items(i).SubItems(0).Text
dr = .ExecuteReader()
If dr.HasRows Then
dr.Read()
dr.Close()
sb = New StringBuilder
sb.Append("UPDATE Product")
sb.Append(" SET Stock=@Stock")
sb.Append(" WHERE (ProID=@ProID)")
sqlAdd = sb.ToString()
With exeCommand
.CommandText = sqlAdd
.Parameters.Clear()
.Parameters.Add("@Stock", SqlDbType.Int).Value = CInt(ListView1.Items(i).SubItems(4).Text) - CInt(ListView1.Items(i).SubItems(5).Text)
.Parameters.Add("@ProID", SqlDbType.VarChar).Value = ListView1.Items(i).SubItems(0).Text
.ExecuteNonQuery()
End With
End If
ประมาณนี้ป่าวครับ
|
 |
 |
 |
 |
Date :
2012-08-02 13:37:09 |
By :
bill17259 |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
Code (VB.NET)
Private Sub btn_Add_Staff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Add_Staff.Click
If txtProID.Text.Trim = "" Or txtProName.Text.Trim = "" Or txtProPrice.Text.Trim = "" Then
MessageBox.Show("กรอกข้อมูลให้ครบทุกรายการ", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Exit Sub
End If
'............................
sb = New StringBuilder()
sb.Append("INSERT INTO Product(ProID, ProName, ProPrice)")
sb.Append(" VALUES (@ProID, @ProName, @ProPrice)")
Dim sqlAdd As String
sqlAdd = sb.ToString()
exeCommand = New SqlCommand()
'เพิ่มการตรวจสอบกรณีอาจเกิดการผิดพลาดที่ผู้ใช้กรอกข้อมูล ด้วย Try Catch
Try
With exeCommand
.CommandText = sqlAdd
.Connection = conn
'GenerateStaff_ID()
.Parameters.Add("@ProID", SqlDbType.NVarChar).Value = txtProID.Text.Trim()
.Parameters.Add("@ProName", SqlDbType.NVarChar).Value = txtProName.Text.Trim()
.Parameters.Add("@ProPrice", SqlDbType.Float).Value = txtProPrice.Text.Trim()
.ExecuteNonQuery() 'ประมวลผลการเพิ่มข้อมูล
End With
MessageBox.Show("เพิ่มข้อมูลลูกค้าลงฐานข้อมูลแล้ว", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch
MessageBox.Show("เกิดความผิดพลาดจากการกรอกข้อมูล รหัสลูกค้าอาจซ้ำ กรุณาตรวจสอบ", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
ClearData()
ShowData()
FormatDataGrid()
End Sub
ส่วนอันนี้จะเป็นการเพิ่ม สินค้าครับ อาจจะเล็กน้อยนะครับ แต่อยากช่วย ^^ VB.Net อ่ะ เหมือนกันป่าวไม่รุ ฮ่าๆ
|
ประวัติการแก้ไข 2012-08-02 13:55:38
 |
 |
 |
 |
Date :
2012-08-02 13:40:03 |
By :
bill17259 |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
น่าจะใช่มั้งครับ แต่ว่านี่ผมเป็น C# เลยไม่รู้ว่าเป็นไง แปลงโค้ดไม่เป็น เหอะๆ หัดเขียนไม่ถึงเดือนเองครับ
|
ประวัติการแก้ไข 2012-08-02 14:25:26
 |
 |
 |
 |
Date :
2012-08-02 14:23:59 |
By :
peteyothin |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|

แก้ยังไงอะครับให้กดเพิ่มได้หลายๆที
|
 |
 |
 |
 |
Date :
2017-03-05 23:19:32 |
By :
โอออออ |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
|
|