Script Form Barang VB 6.0

Visual Basic 6 bisa dibilang adalah program yang lumayan jadul. OK sekarang qta akan membuat form barang, dimana koneksinya menggunakan Adodc dan data viewnya menggunakan Data Grid,

Codingnya bisa dilihat di bawah ini


Public Sub mati() "Prosedure"
Text1.Locked = True
Text2.Locked = True
Text3.Locked = True
Text4.Locked = True
tmbl(3).Enabled = False
tmbl(4).Enabled = False
End Sub
Public Sub hidup() "Prosedure"
Text1.Locked = False
Text2.Locked = False
Text3.Locked = False
Text4.Locked = False
tmbl(3).Enabled = True
tmbl(4).Enabled = True
End Sub
Navigasi perpindahan data yang menggunakan fungsi select case  karena commandnya di copy (jadi Array), ADODCnya saya ganti namanya menjadi ConBrg(Koneksi Barang)
Private Sub Command1_Click(Index As Integer)
Select Case Index
 Case 0
  ConBrg.Recordset.MoveFirst (koneksi barang.data.pindah ke record pertama)
 Case 1
  ConBrg.Recordset.MovePrevious (koneksi barang.data.pindah ke record sebelumnya)
  If ConBrg.Recordset.BOF Then (jk koneksi barang.data.brada di record awal)
   MsgBox "First Record", vbInformation + vbOKOnly (tampilkan pesan "First Record")
   ConBrg.Recordset.MoveLast (koneksi barang.data.pindah ke record terakhir)
  End If
 Case 2
  ConBrg.Recordset.MoveNext(koneksi barang.data.pindah ke record selanjutnya)
  If ConBrg.Recordset.EOF Then(jk koneksi barang.data.brada di record akhir)
   MsgBox "Last Record", vbInformation + vbOKOnly (tampilkan pesan "Last Record")
   ConBrg.Recordset.MoveFirst (koneksi barang.data.pindah ke record pertama)
  End If
 Case 3
 ConBrg.Recordset.MoveLast (koneksi barang.data.pindah ke record terakhir)
End Select
End Sub

Private Sub Command2_Click() Kita tidak membahas yang ini dulu
Unload Form1
DataReport1.Show
End Sub

Private Sub Command4_Click() Kita tidak membahas yang ini dulu
Form2.Show
End Sub

Private Sub Form_Load() "perintah yang akan dijalankan pertamakali saat form di RUN"
Call mati
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
 ConBrg.Recordset.Update
 Call mati
 ConBrg.Recordset.MoveFirst
 tmbl(0).Enabled = True
 tmbl(1).Enabled = True
 tmbl(2).Enabled = True
 tmbl(3).Enabled = False
 tmbl(4).Enabled = False
End If
End Sub

Private Sub tmbl_Click(Index As Integer)"Coding tombol pengaturan data barang, yang ni array uga"
Select Case Index
Case 0
 Call hidup
 tmbl(0).Enabled = False
 tmbl(1).Enabled = False
 tmbl(2).Enabled = False
 Text1.SetFocus
 ConBrg.Recordset.AddNew
Case 1
 ConBrg.Recordset.Delete
Case 2
 Call hidup
Case 3
 ConBrg.Recordset.Update
 Call mati
 ConBrg.Recordset.MoveFirst
 tmbl(0).Enabled = True
 tmbl(1).Enabled = True
 tmbl(2).Enabled = True
 tmbl(3).Enabled = False
 tmbl(4).Enabled = False
Case 4
 ConBrg.Recordset.MoveFirst
End Select
End Sub

Public Sub kosong() "Prosedure"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub