Cari Blog Ini

Jumat, 02 Desember 2011

Program Penjualan

assalammualaikum gan,,
saya dapet aspirasi setelah saya menunggu warung usaha ortu saya,,saya berkinginan membuatkan program penjualan,,wlaupn sederhana tp mudah2an berguna,,dan bagi yg bsa memperbagus bagi2 yh ilmu.a ^_^
langsung ajh saya kasih gambaran dan coding.n,,disini cuma ad 2 from yg pertama untuk barang dsna kita mnginput data2 /barng2 yg ingin kita jual dah d from penjualan untuk barang apa yg d sudah d jual,,
nie coding.a gan
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!kode = Text1.Text
Adodc1.Recordset!nama_barang = Text2.Text
Adodc1.Recordset!harga_barang = Text3.Text
Adodc1.Recordset!untung = Text4.Text

Adodc1.Recordset.Update
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text1.SetFocus
End Sub


Private Sub Command2_Click()
Adodc1.Recordset.Find "nama_barang='" + Text5.Text + "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
Text1.Text = Adodc1.Recordset!kode
Text2.Text = Adodc1.Recordset!nama_barang
Text3.Text = Adodc1.Recordset!harga_barang
Text4.Text = Adodc1.Recordset!untung
Else
MsgBox "Maaf, Data Tidak Ditemukan!"
End If
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.Delete
Adodc1.Refresh
End Sub


dan ini from yg ke 2 dan gambarnya
nie coding.a gan
Private Sub Command1_Click()
Adodc1.Recordset.Find "nama_barang='" + Text5.Text + "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
Text1.Text = Adodc1.Recordset!kode
Text2.Text = Adodc1.Recordset!nama_barang
Text3.Text = Adodc1.Recordset!harga_barang
Text4.Text = Adodc1.Recordset!untung
Else
MsgBox "Maaf, Data Tidak Ditemukan!"
Text5 = ""
End If
End Sub

Private Sub Command2_Click()
Adodc2.Recordset.AddNew
Adodc2.Recordset!kode = Text1.Text
Adodc2.Recordset!nama_barang = Text2.Text
Adodc2.Recordset!harga_barang = Text3.Text
Adodc2.Recordset!untung = Text4.Text

Adodc2.Recordset.Update
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text1.SetFocus
End Sub

cukup sekian gan yg bsa w kasih ke kalian,mudah2an bermanfaat bwt yg memerlukan program ini,,
wassalammualaikum wr.wb ^_^

Tidak ada komentar:

Posting Komentar