Contoh UTS VB

Pelajaran VB nih, agak sedikit Susah Gitu...
Mungkin contoh programnya ini...

CODE MODULE:
<br />Public cn As ADODB.Connection<br />Public rs As ADODB.Recordset<br /><br />Sub buka()<br />On Error GoTo cek<br />Set cn = New ADODB.Connection<br />cn.CursorLocation = adUseClient<br />cn.Open "MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=LP3I"<br /> Exit Sub<br />cek: MsgBox "Ada Error : " & Err.Description, vbCritical<br />End Sub<i>

CODE FORM:
<br />Sub kosong()<br />txtkode = ""<br />txtnama = ""<br />txtharga = ""<br />txt_find = ""<br />End Sub<br /><br />Sub teks(x As Boolean)<br />txtkode.Enabled = x<br />txtnama.Enabled = x<br />txtharga.Enabled = x<br />End Sub<br /><br />Sub tampil()<br />x = " select * from barang order by kodebrg"<br />Set rs = New ADODB.Recordset<br />rs.Open x, cn, adOpenStatic, adLockOptimistic<br />Me.MSHFlexGrid1.Clear<br />Set rs = cn.Execute(x)<br />Set Me.MSHFlexGrid1.DataSource = rs<br />End Sub<br /><br />Sub muncul()<br />On Error Resume Next<br />With Me.MSHFlexGrid1<br />txtkode = .TextMatrix(.Row, 1)<br />txtnama = .TextMatrix(.Row, 2)<br />harga = .TextMatrix(.Row, 3)<br />End With<br />End Sub<br /><br />Private Sub cmd_Add_Click()<br />cr = InputBox("Masukkan Kode Barang :")<br />x = " Select * from barang where kodebrg='" & Trim(cr) & "'"<br />Set rs = New ADODB.Recordset<br />rs.Open x, cn, adOpenStatic, adLockOptimistic<br /><br />If Not rs.EOF Then<br />MsgBox "Kode Barang Sudah Digunakan.", vbInformation<br />rs.Close<br />Set rs = Nothing<br />Exit Sub<br />End If<br /><br />rs.Close<br />Set rs = Nothing<br /><br />teks (True)<br />kosong<br /><br />txtkode = cr<br />txtnama.SetFocus<br />End Sub<br /><br />Private Sub cmd_Close_Click()<br />End<br />End Sub<br /><br />Private Sub cmd_Del_Click()<br />If MsgBox("Apakah Data Akan Dihapus ?", vbQuestion + vbYesNo) = vbNo Then Exit Sub<br /><br />x = ""<br />x = "delete from barang where kodebrg='" & Trim(txtkode) & "'"<br />cn.Execute x<br />MsgBox "Data Sudah Dihapus"<br />tampil<br />End Sub<br /><br />Private Sub cmd_Save_Click()<br />If MsgBox("Apakah Data Sudah Benar ?", vbQuestion + vbYesNo) = vbNo Then Exit Sub<br /><br />If txtkode = "" Or txtnama = "" Or txtharga = "" Then<br />MsgBox "Tidak Boleh Ada Field Kosong", vbCritical<br />Exit Sub<br />End If<br /><br />x = ""<br />x = "insert into barang values ('"<br />x = x & Trim(txtkode) & "','"<br />x = x & Trim(txtnama) & "',"<br />x = x & Trim(txtharga) & ")"<br />cn.Execute x<br /><br />MsgBox "Data Sudah Disimpan"<br />tampil<br />End Sub<br /><br />Private Sub txt_find_Change()<br />x = " Select * from barang where kodebrg='" & Trim(txt_find) & "'"<br />Set rs = New ADODB.Recordset<br />rs.Open x, cn, adOpenStatic, adLockOptimistic<br /><br />If Not rs.EOF Then<br />txtkode = rs.Fields("kodebrg")<br />txtnama = rs.Fields("namabrg")<br />txtharga = rs.Fields("harga")<br />Exit Sub<br />End If<br />rs.Close<br />Set rs = Nothing<br />End Sub<br /><br />Private Sub Form_Load()<br />Call buka<br />teks (False)<br />tampil<br />End Sub<br /><br />Private Sub MSHFlexGrid1_Click()<br />muncul<br />End Sub

TAMPILAN:

Pertama

Kedua