KODING SIMPAN, EDIT, HAPUS, KELUAR VB 6.0

                                      KODING SIMPAN, EDIT, HAPUS DAN KELUAR VB 6.0

CATATAN :

1. Jangan Lupa atur DSN di Control Panel
2. Jangan Lupa atur SUBMAIN di project
3. Jangan Lupa koneksi dengan ADODC1 di form
4. Jangan Lupa tambah icon Crystal Report
5. Jangan Lupa Mengganti name pada crystal report

(KODING PRINT)
Private Sub Command1_Click()
cr.ReportFileName = App.Path & "\lap_karyawan.rpt"
cr.RetrieveDataFiles
cr.WindowState = crptMaximized
cr.WindowShowPrintBtn = True
cr.WindowShowRefreshBtn = True
cr.WindowShowCloseBtn = True
cr.Action = 7
End Sub

(KODING MODULE)
Global db As Connection
Global rs As Recordset
Sub main()
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "dsnrental"
Form1.Show
End Sub

(KODING PILIH COMBO)
Private Sub Combo1_Click()
If Combo1.Text = "AGYA" Then
    Text3.Text = 25000
ElseIf Combo1.Text = "AVANZA" Then
    Text3.Text = 500000
ElseIf Combo1.Text = "INNOVA" Then
    Text3.Text = 800000
ElseIf Combo1.Text = "CAMRY" Then
    Text3.Text = 1000000
    End If
End Sub

(KODING PROSES HITUNG)
Private Sub Command1_Click()
Text5.Text = Val(Text3) * Val(Text4)
If Text4.Text <= 1 Then
    Text6.Text = 0 * Val(Text5)
ElseIf Text4.Text <= 5 Then
    Text6.Text = 0.05 * Val(Text5)
ElseIf Text4.Text <= 10 Then
    Text6.Text = 0.1 * Val(Text5)
ElseIf Text4.Text >= 11 Then
    Text6.Text = 0.25 * Val(Text5)
    End If
      
Text7.Text = Val(Text5) - Val(Text6)
End Sub

(KODING EXIT)
Private Sub Command2_Click()
End
End Sub

(KODING REFRESH)
Private Sub Command2_Click()
Unload Me
Form1.Show
Text1.SetFocus
End Sub

(KODING SIMPAN)
Private Sub Command3_Click()
Set rs = New Recordset
rs.Open "rental", db, adOpenDynamic, adLockOptimistic
rs.AddNew
rs.Fields("kode") = Text1
rs.Fields("nama") = Text2
rs.Fields("merk") = Combo1
rs.Fields("harga") = Text3
rs.Fields("lama") = Text4
rs.Fields("hargabayar") = Text5
rs.Fields("diskon") = Text6
rs.Fields("total") = Text7
rs.Update
Text1.SetFocus
MsgBox "Data Tersimpan", vbOKOnly, "Keterangan"
Set rs = Nothing
End Sub

(KODING EDIT)
Private Sub Command4_Click()
Set rs = New Recordset
rs.Open "SELECT*From rental where kode='" & Text1.Text & "'", db, adOpenDynamic, adLockOptimistic
rs.Fields("nama") = Text2
rs.Fields("merk") = Combo1
rs.Fields("harga") = Text3
rs.Fields("lama") = Text4
rs.Fields("hargabayar") = Text5
rs.Fields("diskon") = Text6
rs.Fields("total") = Text7
rs.Update
MsgBox "DATA TELAH DIEDIT !!!", vbOKOnly, "Keterangan"
Set rs = Nothing
Call KosongTextBox
Text1.SetFocus
End Sub

(KODING DELETE)
Private Sub Command5_Click()
Set rs = New Recordset
rs.Open "DELETE*From rental where kode='" & Text1.Text & "'", db, adOpenDynamic, adLockOptimistic
Text1.SetFocus
MsgBox "DATA TELAH DIHAPUS !!!", vbOKOnly, "Keterangan"
Set rs = Nothing
Call KosongTextBox
End Sub

(KODING BERSIH FORM)
Private Sub Form_Load()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
End Sub
(KODING PANGGIL KOSONGKAN)
Private Sub KosongTextBox()
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
End Sub

(KODING LIHAT TEXT1)
Private Sub Text1_Change()
Set rs = New Recordset
rs.Open "SELECT*From rental where kode='" & Text1.Text & "'", db, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
Text2.Text = rs.Fields("nama")
Combo1.Text = rs.Fields("merk")
Text3.Text = rs.Fields("harga")
Text4.Text = rs.Fields("lama")
Text5.Text = rs.Fields("hargabayar")
Text6.Text = rs.Fields("diskon")
Text7.Text = rs.Fields("total")
Else
Text2.Text = ""
Combo1.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
End If
Set rs = Nothing
End Sub



**REQUEST SILAHKAN KOMEN DIBAWAH**