Stock of Item using a VB program

Previously, for those of you who are familiar with this visualbasic is a simple programthat I want to share with the general public, in fact it is the duty of my lectures when I was a semester 4. Simply open your VB 6 then create an interface on the form asshown in the picture below

After the Properties settings for each button, datagrid like the following :

Label1 Caption : Kode Barang

Label2 Caption : Nama Barang

Label3 Caption : Harga Barang

Label4 Caption : Jumlah Barang

Label5 Name :lblStatus, Caption : Label5

Untuk Btn ganti name menjadi cmdExit.cmdSave,cmdDelete,CmdAdd,CmdCari,cmdUpdate, cmdFirst.cmdPrevious,cmdNext,cmdLast dan sesuaikan captionnya sesuai gambar.

Begitu juga untuk text1-text4 ganti name menjadi : txtKdBrg,txtNmBrg,txtJmlhBrg,dan txtHrgBrg 

After that input this code in the form :

Dim WithEvents rsBrg As ADODB.Recordset
Dim vKdbrg As String

Private Sub cmdAdd_Click()
Dim sqlMax As String
Dim rsMax As New ADODB.Recordset
sqlMax = " select Max ( cast(right(kodebr,4)as int))"
as maxkodebr from barang
Set rsMax = dbConn.Execute(sqlMax)
If IsNull(rsMas("maxkodebr")) Then kodebr = "N001"
Else
kodebr = rsMax("maxkodebr")
kodebr = "N" & "00" & (kodebr + 1),4)
End If
txtkodebr.Text = kodebr




End Sub

Private Sub cmdCari_Click()
Dim sqlCari As String
Dim rsCari As New ADODB.Recordset

sqlCari = "select * from barang where kdbrg='" & txtKdbrg & "'"
Set rsCari = dbConn.Execute(sqlCari)

If rsCari.EOF Then
    MsgBox "Data tidak ada"
    txtKdbrg.SetFocus
Else
    rsBrg.Find "kdbrg='" & txtKdbrg & "'", 1
'    txtKdbrg.Text = rsCari(0)
'    txtNmbrg.Text = rsCari("Nmbrg")
'    txtHrgbrg.Text = rsCari(2)
'    txtJmlbrg.Text = rsCari("Jmlbrg")
End If
End Sub

Private Sub cmdDelete_Click()
Dim sqlDel As String

sqlDel = "DELETE FROM Barang WHERE KdBrg='" & txtKdbrg & "'"
dbConn.Execute sqlDel
rsBrg.Requery
End Sub

Private Sub CmdExit_Click()
Unload Me
End Sub

Private Sub cmdFirst_Click()
rsBrg.MoveFirst
End Sub

Private Sub cmdLast_Click()
rsBrg.MoveLast
End Sub

Private Sub cmdNext_Click()
rsBrg.MoveNext
End Sub

Private Sub cmdPrevious_Click()
rsBrg.MovePrevious
End Sub

Private Sub cmdSave_Click()
Dim sqlSave As String
sqlSave = "INSERT INTO Barang VALUES('" & txtKdbrg & "','" & txtNmbrg & "'," & txtHrgbrg & "," & txtJmlbrg & ")"
dbConn.Execute sqlSave
rsBrg.Requery
End Sub

Private Sub cmdUpdate_Click()
Dim sqlUpdate As String

sqlUpdate = "update barang set kdbrg='" & txtKdbrg & "',nmbrg='" & txtNmbrg & "',hrgbrg=" & txtHrgbrg & ",jmlbrg=" & txtJmlbrg & " where kdbrg='" & vKdbrg & "'"
dbConn.Execute sqlUpdate
rsBrg.Requery

End Sub

Private Sub Form_Load()
Call konekDB

Dim sqlBrg As String
sqlBrg = "SELECT * FROM Barang"
Set rsBrg = dbConn.Execute(sqlBrg)
Set DataGrid1.DataSource = rsBrg
End Sub

Private Sub rsBrg_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If rsBrg.BOF Then rsBrg.MoveFirst
If rsBrg.EOF Then rsBrg.MoveLast
txtKdbrg.Text = rsBrg(0)
txtNmbrg.Text = rsBrg("nmbrg")
txtHrgbrg.Text = rsBrg(2)
txtJmlbrg.Text = rsBrg("Jmlbrg")
lblStatus.Caption = rsBrg.AbsolutePosition & " of " & rsBrg.RecordCount
vKdbrg = rsBrg("kdbrg")
End Sub

Previously created database with the sql :

CREATE DATABASE Toko
Go

USE Toko

CREATE TABLE Barang(
KdBrg CHAR(4) PRIMARY KEY,
NmBrg VARCHAR(30) NOT NULL,
HrgBrg MONEY DEFAULT 0,
JmlBrg Int DEFAULT 0)

INSERT INTO Barang VALUES('B001','Keyboard',50,20)
INSERT INTO Barang VALUES('B002','RAM',70,50)
INSERT INTO Barang VALUES('B003','VGA',100,30)
INSERT INTO Barang VALUES('B004','Monitor',20,25)
INSERT INTO Barang VALUES('B005','Hardisk',60,35)

Create a module for database conection, contents the following code :

Public dbConn As New ADODB.Connection
Public strConn As String
Public Sub konekDB()
strConn = "Driver={SQL Server};Server=ASPIRE-4530 '(Sesuaikan dengan server PC/Laptop anda)' ; Database=Toko; uid=; pwd=;"
dbConn.CursorLocation = adUseClient
If dbConn.State = adStateClosed Then
    dbConn.Open strConn
End If
End Sub

Run the program and I hope useful

SHARE

Alit Satya N.

Hi. I’m Video Editor. I'm StartUp Enthusiast, I'm Diecast Enthusiast, Blog Writer and Videographer/Photographer sometimes. Inspired to make my life looks better.

• 
• 
• 
• 
•