Cara ganti password wifi Speedy (Tp-Link)

Untuk memasok kebutuhan internet di rumah saya, saya mengandalkan pasokan internet dari Speedy, dengan tarif bulanan Rp 75.000. Kebetulan paket speedy yang saya pasang adalah paket promo terbaru dengan menggunakan wifi modem router, bukan menggunakan router biasa seperti speedy lama, jadi selain bisa digunakan untuk menyalurkan koneksi internet di komputer kamar, juga bisa untuk menyalurkan koneksi internet via wifi sampai radius 20 meter dari rumah (maksimal).

Beberapa teman sengaja saya beritahu password wifi rumah saya agar kalau main ke rumah saya, bisa betah dan mau berlama-lama, yah, lumayan, buat teman ngobrol. Tapi ndak tahu kenapa, akhir-akhir ini, password wifi saya mudah tersebar kemana-mana, kemungkinan besar sih nyebar karena gethuk tular alias dari mulut ke mulut, maka dari itu, saya sekarang jadi rajin mengganti password wifi saya.

Nah, jika anda punya masalah serupa dengan saya tapi tak tahu bagaimana cara mengubah password wifi speedy, nih saya kasih tahu.

Pertama, silahkan ketikkan 192.168.1.1 di browser anda, nantinya server akan meminta nama pengguna dan sandi. silahkan isi nama pengguna dan sandi anda sesuai dengan registrasi instalasi yang sudah anda masukkan, jika anda merasa tidak pernah mengubah nama pengguna ataupun password server ini, silahkan isi dengan data standar, nama pengguna diisi "admin" (tanpa tanda petik), dan passwordnya juga "admin" (tanpa tanda petik).



Masuk ke menu interface Setup, kemudian pilih submenu Wireless





Untuk mengganti password wireless, ada pada menu WPA2-PSK, pada kolom Pre-Shared Key, silahkan ubah password Wifi speedy anda sesuka hati, password terdiri dari 8-32 karakter.



Jika sudah, arahkan kursor ke bawah dan klik save. Dan Selesai, Password speedy anda kini sudah berubah. jangan lupa untuk rutin mengganti password wifi anda setidaknya sebulan sekali, yah, untuk menghindari pemakai-pemakai yang tidak kita kehendaki.

Read More

MENGATASI TOMBOL FN KEYBOARD YANG MENYALA TERUS

Betapa repotnya saat mengalami masalah tombol fn keyboard laptop yang menyala terus, untuk mengetik huruf k munculnya angka 2 jika tombol fn tidak di tekan yang seharusnya kebalikannya untuk angka 2 seharusnya menekan tombol fn karena angka 2 nya yang berwarna biru demikian juga angka 0 kalau fn nya tidak di tekan keluarnya tanda *.

Cara mengatasinya hanya dengan menekan kombinasi tombol keyboard saja, neh cara-caranya: Tekan fn+F11+num lock [berbarengan ya...] kalo tidak bisa juga, masih ada alternatifnya yaitu: Tekan shift+ctrl+num lock

selamat mencoba....

Read More

Membuat Home / Index pada HTML

Tugas Siswa : 2 RPL

1. Buatlah Program HTML dengan tampilan  berikut ini :

- Menggunakan Tabel
- Menggunakan Link
- Membuat Domain dan Hosting
- Publikasikan...
- Alamat Domain adalah Nama Siswa Masing2.

Read More

ENTITY RELATIONSHIP DIAGRAM

Contoh :

1. ERD Perpustakaan

Read More

Membuat Aplikasi Persewaan VCD menggunakan VB 6.0 ( Tugas Siswa )

1.       Database :  Persewaan_VCD.mdb

Tabel  dengan Relasi sbb :

 

3.       Layout 

            

4.        

form Login

Dim kesempatan As Integer
Private Sub Command1_Click()
    kesempatan = kesempatan + 1
    If (LCase(Text1.Text) = "vcd_ok") And (kesempatan <= 3) Then
        Image1.Visible = True
        Text1.Enabled = False
        Command1.Enabled = False
        Menu.Show
    Else
        MsgBox "Passwordnya Salah !"
        If kesempatan < 3 Then
            Text1.Text = ""
            Text1.SetFocus
        Else
            MsgBox "Maaf, Anda tidak ada hak Akses untuk masuk program ini, silahkan hub. Programmer !"
            End
        End If
    End If
End Sub
Private Sub Timer1_Timer()
Label2.Caption = Format(Now, "HH:MM:SS")
End Sub


Form Anggota

Private Sub Awal()
Command1.Caption = "Tambah"
Command2.Caption = "Hapus"
Command3.Caption = "Keluar"
End Sub
Private Sub AktifTombol()
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
End Sub
Private Sub Command1_Click()
Aktif
Bersih
Text1.SetFocus
Command1.Enabled = False
Command2.Caption = "Simpan"
Command3.Caption = "Batal"
End Sub

Private Sub Command2_Click()
Select Case Command2.Caption
Case "Hapus"
Adodc1.Recordset.Delete
DataGrid1.Refresh
Case "Simpan"
Adodc1.Recordset.AddNew
Adodc1.Recordset!No_Anggota = Text1.Text
Adodc1.Recordset!Nama_Anggota = Text2.Text
Adodc1.Recordset!Alm_Anggota = Text3.Text
Adodc1.Recordset!Telp_Anggota = Text4.Text

DataGrid1.Refresh
End Select
Bersih
Awal
AktifTombol
End Sub

Private Sub Command3_Click()
Select Case Command3.Caption
Case "Batal"
Bersih
Awal
AktifTombol
Case "Keluar"
Unload Me
End Select
End Sub
Private Sub Form_Load()
TidakAktif
Buka_DB
Adodc1.ConnectionString = Conn.ConnectionString
Adodc1.RecordSource = "Select*From anggota"
Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1
End Sub

Private Sub Bersih()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

Private Sub Aktif()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
End Sub
Private Sub TidakAktif()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
End Sub

Form Pinjam

Private Sub Command1_Click()
Dim frm As DetailPinjam
Set frm = New DetailPinjam
Set frm.Adodc2.Recordset = Adodc2.Recordset.Clone
frm.Text1.Text = Text1.Text
frm.Label6.Caption = Text3.Text
frm.Show vbModal
Adodc1.Recordset.Requery
Adodc2.Recordset.Requery
End Sub

Private Sub Command2_Click()
Aktif
Bersih
Text1.SetFocus
Text2.Text = Label9.Caption
Command3.Caption = "Batal"
End Sub

Private Sub Command3_Click()
Select Case Command3.Caption
Case "Batal"
TidakAktif
Bersih
Case "Keluar"
Unload Me
End Select
Command3.Caption = "Keluar"
End Sub

Private Sub Command4_Click()
Adodc2.Recordset.AddNew
Adodc2.Recordset("No_Pinjam") = Text1.Text
Adodc2.Recordset("Tgl_Pinjam") = Text2.Text
Adodc2.Recordset("Total_Pinjam") = Text3.Text
Adodc2.Recordset("No_Anggota") = Text4.Text
Adodc2.Recordset("Kode_petugas") = Text5.Text
Adodc2.Recordset("Total_Harga") = Text6.Text
Adodc2.Recordset("DiBayar") = Text7.Text
Adodc2.Recordset("Kembali") = Text8.Text
Command3.Caption = "Keluar"
End Sub

Private Sub Command5_Click()
Bersih
TidakAktif
End Sub

Private Sub DataGrid2_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
If (Not Adodc2.Recordset.BOF And Not Adodc2.Recordset.EOF) Then
FilterDetPinjam Adodc2.Recordset("No_Pinjam")
End If
End Sub

Private Sub Form_Load()
Bersih
TidakAktif
Buka_DB
Adodc1.ConnectionString = Conn.ConnectionString
Adodc1.RecordSource = "Select*From DetailPinjam"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1

Adodc2.ConnectionString = Conn.ConnectionString
Adodc2.RecordSource = "Select*from Pinjam"
Adodc2.Refresh
Set DataGrid2.DataSource = Adodc2

Adodc3.ConnectionString = Conn.ConnectionString
Adodc3.RecordSource = "Select*from Anggota"
Adodc3.Refresh
Set DataGrid3.DataSource = Adodc3

Adodc4.ConnectionString = Conn.ConnectionString
Adodc4.RecordSource = "Select*from Petugas"
Adodc4.Refresh
Set DataGrid4.DataSource = Adodc4
Text9.Enabled = False
Text10.Enabled = False
End Sub

Private Sub Bersih()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
End Sub

Private Sub Aktif()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
End Sub
Private Sub TidakAktif()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
End Sub

Private Sub Text1_LostFocus()
Adodc2.Recordset.MoveFirst
Adodc2.Recordset.Find "No_Pinjam='" & Text1.Text & " ' "
If (Not Adodc2.Recordset.BOF And Not Adodc2.Recordset.EOF) Then
MsgBox "Nomor Pinjam Sudah ada"
Text1.Text = ""
Text1.SetFocus
End If
End Sub

Private Sub FilterDetPinjam(no As String)
Adodc1.Recordset.Filter = "No_Pinjam='" & no & "'"
End Sub



Private Sub Text4_LostFocus()
Adodc3.Recordset.MoveFirst
Adodc3.Recordset.Find "No_Anggota='" & Text4.Text & "'"
If (Adodc3.Recordset.BOF Or Adodc3.Recordset.EOF) Then
MsgBox "ID Anggota tidak di Temukan"
Text4.Text = ""
Text4.SetFocus
Else
Text9.Text = Adodc3.Recordset("Nama_Anggota")
End If
End Sub

Private Sub Text5_LostFocus()
Adodc4.Recordset.MoveFirst
Adodc4.Recordset.Find "Kode_Petugas='" & Text5.Text & "'"
If (Adodc4.Recordset.BOF Or Adodc4.Recordset.EOF) Then
MsgBox "ID Petugas tidak di Temukan"
Text5.Text = ""
Text5.SetFocus
Else
Text10.Text = Adodc4.Recordset("Nama_Petugas")
End If
End Sub

Private Sub Text6_Change()
Text6.Enabled = False
End Sub

Private Sub Text7_Change()
Text8.Text = Val(Text7.Text) - Val(Text6.Text)
End Sub

Private Sub Text8_Change()
Text8.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label9.Caption = Format(Now, "MM/DD/YYYY")
Label10.Caption = Format(Now, "HH:MM:SS")
End Sub

Form detail  Pinjam

Option Explicit
Public TanggalPinjam As String
Public NomerFilm As String

Private Sub Command1_Click()
Bersih
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.Delete
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset("No_Pinjam") = Text1.Text
Adodc1.Recordset("No_Film") = Text2.Text
Adodc1.Recordset("Jumlah_Film") = Text3.Text
Adodc1.Recordset.Update

Adodc1.Recordset.Requery
Adodc1.Recordset.Filter = "No_Pinjam='" & Text1.Text & "'"
Bersih
Adodc2.Recordset.MoveFirst
End Sub


Private Sub Command6_Click()
Unload Me
End Sub

Private Sub GridText()
Text1.Text = Adodc1.Recordset("No_Pinjam")
Text3.Text = Adodc1.Recordset("Jumlah_Film")
End Sub

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
If (Not Adodc1.Recordset.BOF And Not Adodc1.Recordset.EOF) Then
GridText
End If
End Sub

Private Sub Form_Load()
Buka_DB
Adodc1.ConnectionString = Conn.ConnectionString
Adodc1.RecordSource = "Select*From DetailPinjam"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1

Adodc2.ConnectionString = Conn.ConnectionString
Adodc2.RecordSource = "Select*From Pinjam"
Adodc2.Refresh
Set DataGrid2.DataSource = Adodc2

Adodc3.ConnectionString = Conn.ConnectionString
Adodc3.RecordSource = "Select*From Film"
Adodc3.Refresh
Set DataGrid3.DataSource = Adodc3
ImageNotActived
Text4.Enabled = False
End Sub
Private Sub Bersih()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub


Private Sub Text2_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Adodc3.Recordset.MoveFirst
Adodc3.Recordset.Find "No_Film='" & Text2.Text & "'"
If (Adodc3.Recordset.BOF Or Adodc3.Recordset.EOF) Then
 MsgBox "No Film Tidak di Temukan"
 Text2.Text = ""
 Text2.SetFocus
Else
Text4.Text = Adodc3.Recordset("Judul")
Label7.Caption = Adodc3.Recordset("Stok")
Label11.Caption = Adodc3.Recordset("Tarif")
End If
End If
Text3.Text = Val(Label7.Caption) - Val(Label6.Caption)
Label12.Caption = Val(Label11.Caption) * Val(Label6.Caption)

Pinjam.Text6.Text = Label12.Caption
End Sub

Private Sub Text4_Change()
Select Case Text4.Text
Case "Jhon Carter"
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Case "Iron Man I"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = True
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Case "Iron Man II"
Image1.Visible = False
Image2.Visible = True
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Case "Iron Man III"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = True
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Case "300"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = True
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Case "Eyeshield 21"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = True
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Case "Bleach"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = True
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Case "Naruto:Road To Ninja"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = True
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Case "Prince Of Persia"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = True
Image10.Visible = False
Image11.Visible = False
Case "Pirates Of Carribean"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = True
Image11.Visible = False
Case "Fast and Furios 6"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = True
End Select
End Sub

Private Sub ImageNotActived()
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
End Sub


Form KEmbali

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Command4_Click()
Adodc2.Recordset.AddNew
Adodc2.Recordset("No_Kembali") = Text1.Text
Adodc2.Recordset("Tgl_Kembali") = Text2.Text
Adodc2.Recordset("Total_Kembali") = Text3.Text
Adodc2.Recordset("No_Anggota") = Text4.Text
Adodc2.Recordset("Kode_petugas") = Text5.Text
Adodc2.Recordset("Denda") = Text6.Text
Adodc2.Recordset("DiBayar") = Text7.Text
Adodc2.Recordset("Kembali") = Text8.Text
End Sub

Private Sub Form_Load()
Bersih
TidakAktif
Buka_DB
Adodc1.ConnectionString = Conn.ConnectionString
Adodc1.RecordSource = "Select*From DetailKembali"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1

Adodc2.ConnectionString = Conn.ConnectionString
Adodc2.RecordSource = "Select*from Kembali"
Adodc1.Refresh
Set DataGrid2.DataSource = Adodc2

Adodc3.ConnectionString = Conn.ConnectionString
Adodc3.RecordSource = "Select*from Anggota"
Adodc3.Refresh
Set DataGrid3.DataSource = Adodc3

Adodc4.ConnectionString = Conn.ConnectionString
Adodc4.RecordSource = "Select*from Petugas"
Adodc4.Refresh
Set DataGrid4.DataSource = Adodc4
Text9.Enabled = False
Text10.Enabled = False
End Sub
Private Sub Command1_Click()
Dim frm As Form1
Set frm = New Form1
Set frm.Adodc2.Recordset = Adodc2.Recordset.Clone
frm.Text1.Text = Text1.Text
frm.Label7.Caption = Text3.Text
frm.Show vbModal
Adodc1.Recordset.Requery
Adodc2.Recordset.Requery
End Sub

Private Sub Command2_Click()
Aktif
Bersih
Text1.SetFocus
Text2.Text = Label9.Caption
End Sub

Private Sub DataGrid2_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
If (Not Adodc2.Recordset.BOF And Not Adodc2.Recordset.EOF) Then
FilterDetKembali Adodc2.Recordset("No_Kembali")
End If
End Sub
Private Sub Bersih()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
End Sub

Private Sub Aktif()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text7.Enabled = True
End Sub
Private Sub TidakAktif()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text7.Enabled = False
End Sub

Private Sub Text1_LostFocus()
Adodc2.Recordset.MoveFirst
Adodc2.Recordset.Find "No_Kembali='" & Text1.Text & " ' "
If (Not Adodc2.Recordset.BOF And Not Adodc2.Recordset.EOF) Then
MsgBox "Nomor Pengembalian tidak di Temukan"
Text1.Text = ""
Text1.SetFocus
End If
End Sub

Private Sub FilterDetKembali(no As String)
Adodc1.Recordset.Filter = "No_Kembali='" & no & "'"
End Sub

Private Sub Text4_LostFocus()
Adodc3.Recordset.MoveFirst
Adodc3.Recordset.Find "No_Anggota='" & Text4.Text & "'"
If (Adodc3.Recordset.BOF Or Adodc3.Recordset.EOF) Then
MsgBox "Kode Anggota tidak di Temukan"
Text4.Text = ""
Text4.SetFocus
Else
Text9.Text = Adodc3.Recordset("Nama_Anggota")
End If
End Sub

Private Sub Text5_LostFocus()
Adodc4.Recordset.MoveFirst
Adodc4.Recordset.Find "Kode_Petugas='" & Text5.Text & "'"
If (Adodc4.Recordset.BOF Or Adodc4.Recordset.EOF) Then
MsgBox "Kode Petugas tidak di Temukan"
Text5.Text = ""
Text5.SetFocus
Else
Text10.Text = Adodc4.Recordset("Nama_Petugas")
End If
End Sub

Private Sub Text6_Change()
Text6.Enabled = False
End Sub

Private Sub Text7_Change()
Text8.Text = Val(Text7.Text) - Val(Text6.Text)
End Sub

Private Sub Text8_Change()
Text8.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label9.Caption = Format(Now, "DD/MM/YYYY")
End Sub

form Login

Dim kesempatan As Integer
Private Sub Command1_Click()
    kesempatan = kesempatan + 1
    If (LCase(Text1.Text) = "vcd_ok") And (kesempatan <= 3) Then
        Image1.Visible = True
        Text1.Enabled = False
        Command1.Enabled = False
        Menu.Show
    Else
        MsgBox "Passwordnya Salah !"
        If kesempatan < 3 Then
            Text1.Text = ""
            Text1.SetFocus
        Else
            MsgBox "Maaf, Anda tidak ada hak Akses untuk masuk program ini, silahkan hub. Programmer !"
            End
        End If
    End If
End Sub
Private Sub Timer1_Timer()
Label2.Caption = Format(Now, "HH:MM:SS")
End Sub


Form Anggota

Private Sub Awal()
Command1.Caption = "Tambah"
Command2.Caption = "Hapus"
Command3.Caption = "Keluar"
End Sub
Private Sub AktifTombol()
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
End Sub
Private Sub Command1_Click()
Aktif
Bersih
Text1.SetFocus
Command1.Enabled = False
Command2.Caption = "Simpan"
Command3.Caption = "Batal"
End Sub

Private Sub Command2_Click()
Select Case Command2.Caption
Case "Hapus"
Adodc1.Recordset.Delete
DataGrid1.Refresh
Case "Simpan"
Adodc1.Recordset.AddNew
Adodc1.Recordset!No_Anggota = Text1.Text
Adodc1.Recordset!Nama_Anggota = Text2.Text
Adodc1.Recordset!Alm_Anggota = Text3.Text
Adodc1.Recordset!Telp_Anggota = Text4.Text

DataGrid1.Refresh
End Select
Bersih
Awal
AktifTombol
End Sub

Private Sub Command3_Click()
Select Case Command3.Caption
Case "Batal"
Bersih
Awal
AktifTombol
Case "Keluar"
Unload Me
End Select
End Sub
Private Sub Form_Load()
TidakAktif
Buka_DB
Adodc1.ConnectionString = Conn.ConnectionString
Adodc1.RecordSource = "Select*From anggota"
Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1
End Sub

Private Sub Bersih()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

Private Sub Aktif()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
End Sub
Private Sub TidakAktif()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
End Sub

Form Pinjam

Private Sub Command1_Click()
Dim frm As DetailPinjam
Set frm = New DetailPinjam
Set frm.Adodc2.Recordset = Adodc2.Recordset.Clone
frm.Text1.Text = Text1.Text
frm.Label6.Caption = Text3.Text
frm.Show vbModal
Adodc1.Recordset.Requery
Adodc2.Recordset.Requery
End Sub

Private Sub Command2_Click()
Aktif
Bersih
Text1.SetFocus
Text2.Text = Label9.Caption
Command3.Caption = "Batal"
End Sub

Private Sub Command3_Click()
Select Case Command3.Caption
Case "Batal"
TidakAktif
Bersih
Case "Keluar"
Unload Me
End Select
Command3.Caption = "Keluar"
End Sub

Private Sub Command4_Click()
Adodc2.Recordset.AddNew
Adodc2.Recordset("No_Pinjam") = Text1.Text
Adodc2.Recordset("Tgl_Pinjam") = Text2.Text
Adodc2.Recordset("Total_Pinjam") = Text3.Text
Adodc2.Recordset("No_Anggota") = Text4.Text
Adodc2.Recordset("Kode_petugas") = Text5.Text
Adodc2.Recordset("Total_Harga") = Text6.Text
Adodc2.Recordset("DiBayar") = Text7.Text
Adodc2.Recordset("Kembali") = Text8.Text
Command3.Caption = "Keluar"
End Sub

Private Sub Command5_Click()
Bersih
TidakAktif
End Sub

Private Sub DataGrid2_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
If (Not Adodc2.Recordset.BOF And Not Adodc2.Recordset.EOF) Then
FilterDetPinjam Adodc2.Recordset("No_Pinjam")
End If
End Sub

Private Sub Form_Load()
Bersih
TidakAktif
Buka_DB
Adodc1.ConnectionString = Conn.ConnectionString
Adodc1.RecordSource = "Select*From DetailPinjam"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1

Adodc2.ConnectionString = Conn.ConnectionString
Adodc2.RecordSource = "Select*from Pinjam"
Adodc2.Refresh
Set DataGrid2.DataSource = Adodc2

Adodc3.ConnectionString = Conn.ConnectionString
Adodc3.RecordSource = "Select*from Anggota"
Adodc3.Refresh
Set DataGrid3.DataSource = Adodc3

Adodc4.ConnectionString = Conn.ConnectionString
Adodc4.RecordSource = "Select*from Petugas"
Adodc4.Refresh
Set DataGrid4.DataSource = Adodc4
Text9.Enabled = False
Text10.Enabled = False
End Sub

Private Sub Bersih()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
End Sub

Private Sub Aktif()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
End Sub
Private Sub TidakAktif()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
End Sub

Private Sub Text1_LostFocus()
Adodc2.Recordset.MoveFirst
Adodc2.Recordset.Find "No_Pinjam='" & Text1.Text & " ' "
If (Not Adodc2.Recordset.BOF And Not Adodc2.Recordset.EOF) Then
MsgBox "Nomor Pinjam Sudah ada"
Text1.Text = ""
Text1.SetFocus
End If
End Sub

Private Sub FilterDetPinjam(no As String)
Adodc1.Recordset.Filter = "No_Pinjam='" & no & "'"
End Sub



Private Sub Text4_LostFocus()
Adodc3.Recordset.MoveFirst
Adodc3.Recordset.Find "No_Anggota='" & Text4.Text & "'"
If (Adodc3.Recordset.BOF Or Adodc3.Recordset.EOF) Then
MsgBox "ID Anggota tidak di Temukan"
Text4.Text = ""
Text4.SetFocus
Else
Text9.Text = Adodc3.Recordset("Nama_Anggota")
End If
End Sub

Private Sub Text5_LostFocus()
Adodc4.Recordset.MoveFirst
Adodc4.Recordset.Find "Kode_Petugas='" & Text5.Text & "'"
If (Adodc4.Recordset.BOF Or Adodc4.Recordset.EOF) Then
MsgBox "ID Petugas tidak di Temukan"
Text5.Text = ""
Text5.SetFocus
Else
Text10.Text = Adodc4.Recordset("Nama_Petugas")
End If
End Sub

Private Sub Text6_Change()
Text6.Enabled = False
End Sub

Private Sub Text7_Change()
Text8.Text = Val(Text7.Text) - Val(Text6.Text)
End Sub

Private Sub Text8_Change()
Text8.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label9.Caption = Format(Now, "MM/DD/YYYY")
Label10.Caption = Format(Now, "HH:MM:SS")
End Sub

Form detail  Pinjam

Option Explicit
Public TanggalPinjam As String
Public NomerFilm As String

Private Sub Command1_Click()
Bersih
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.Delete
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset("No_Pinjam") = Text1.Text
Adodc1.Recordset("No_Film") = Text2.Text
Adodc1.Recordset("Jumlah_Film") = Text3.Text
Adodc1.Recordset.Update

Adodc1.Recordset.Requery
Adodc1.Recordset.Filter = "No_Pinjam='" & Text1.Text & "'"
Bersih
Adodc2.Recordset.MoveFirst
End Sub


Private Sub Command6_Click()
Unload Me
End Sub

Private Sub GridText()
Text1.Text = Adodc1.Recordset("No_Pinjam")
Text3.Text = Adodc1.Recordset("Jumlah_Film")
End Sub

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
If (Not Adodc1.Recordset.BOF And Not Adodc1.Recordset.EOF) Then
GridText
End If
End Sub

Private Sub Form_Load()
Buka_DB
Adodc1.ConnectionString = Conn.ConnectionString
Adodc1.RecordSource = "Select*From DetailPinjam"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1

Adodc2.ConnectionString = Conn.ConnectionString
Adodc2.RecordSource = "Select*From Pinjam"
Adodc2.Refresh
Set DataGrid2.DataSource = Adodc2

Adodc3.ConnectionString = Conn.ConnectionString
Adodc3.RecordSource = "Select*From Film"
Adodc3.Refresh
Set DataGrid3.DataSource = Adodc3
ImageNotActived
Text4.Enabled = False
End Sub
Private Sub Bersih()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub


Private Sub Text2_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Adodc3.Recordset.MoveFirst
Adodc3.Recordset.Find "No_Film='" & Text2.Text & "'"
If (Adodc3.Recordset.BOF Or Adodc3.Recordset.EOF) Then
 MsgBox "No Film Tidak di Temukan"
 Text2.Text = ""
 Text2.SetFocus
Else
Text4.Text = Adodc3.Recordset("Judul")
Label7.Caption = Adodc3.Recordset("Stok")
Label11.Caption = Adodc3.Recordset("Tarif")
End If
End If
Text3.Text = Val(Label7.Caption) - Val(Label6.Caption)
Label12.Caption = Val(Label11.Caption) * Val(Label6.Caption)

Pinjam.Text6.Text = Label12.Caption
End Sub

Private Sub Text4_Change()
Select Case Text4.Text
Case "Jhon Carter"
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Case "Iron Man I"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = True
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Case "Iron Man II"
Image1.Visible = False
Image2.Visible = True
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Case "Iron Man III"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = True
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Case "300"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = True
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Case "Eyeshield 21"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = True
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Case "Bleach"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = True
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Case "Naruto:Road To Ninja"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = True
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Case "Prince Of Persia"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = True
Image10.Visible = False
Image11.Visible = False
Case "Pirates Of Carribean"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = True
Image11.Visible = False
Case "Fast and Furios 6"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = True
End Select
End Sub

Private Sub ImageNotActived()
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
End Sub


Form KEmbali

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Command4_Click()
Adodc2.Recordset.AddNew
Adodc2.Recordset("No_Kembali") = Text1.Text
Adodc2.Recordset("Tgl_Kembali") = Text2.Text
Adodc2.Recordset("Total_Kembali") = Text3.Text
Adodc2.Recordset("No_Anggota") = Text4.Text
Adodc2.Recordset("Kode_petugas") = Text5.Text
Adodc2.Recordset("Denda") = Text6.Text
Adodc2.Recordset("DiBayar") = Text7.Text
Adodc2.Recordset("Kembali") = Text8.Text
End Sub

Private Sub Form_Load()
Bersih
TidakAktif
Buka_DB
Adodc1.ConnectionString = Conn.ConnectionString
Adodc1.RecordSource = "Select*From DetailKembali"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1

Adodc2.ConnectionString = Conn.ConnectionString
Adodc2.RecordSource = "Select*from Kembali"
Adodc1.Refresh
Set DataGrid2.DataSource = Adodc2

Adodc3.ConnectionString = Conn.ConnectionString
Adodc3.RecordSource = "Select*from Anggota"
Adodc3.Refresh
Set DataGrid3.DataSource = Adodc3

Adodc4.ConnectionString = Conn.ConnectionString
Adodc4.RecordSource = "Select*from Petugas"
Adodc4.Refresh
Set DataGrid4.DataSource = Adodc4
Text9.Enabled = False
Text10.Enabled = False
End Sub
Private Sub Command1_Click()
Dim frm As Form1
Set frm = New Form1
Set frm.Adodc2.Recordset = Adodc2.Recordset.Clone
frm.Text1.Text = Text1.Text
frm.Label7.Caption = Text3.Text
frm.Show vbModal
Adodc1.Recordset.Requery
Adodc2.Recordset.Requery
End Sub

Private Sub Command2_Click()
Aktif
Bersih
Text1.SetFocus
Text2.Text = Label9.Caption
End Sub

Private Sub DataGrid2_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
If (Not Adodc2.Recordset.BOF And Not Adodc2.Recordset.EOF) Then
FilterDetKembali Adodc2.Recordset("No_Kembali")
End If
End Sub
Private Sub Bersih()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
End Sub

Private Sub Aktif()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text7.Enabled = True
End Sub
Private Sub TidakAktif()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text7.Enabled = False
End Sub

Private Sub Text1_LostFocus()
Adodc2.Recordset.MoveFirst
Adodc2.Recordset.Find "No_Kembali='" & Text1.Text & " ' "
If (Not Adodc2.Recordset.BOF And Not Adodc2.Recordset.EOF) Then
MsgBox "Nomor Pengembalian tidak di Temukan"
Text1.Text = ""
Text1.SetFocus
End If
End Sub

Private Sub FilterDetKembali(no As String)
Adodc1.Recordset.Filter = "No_Kembali='" & no & "'"
End Sub

Private Sub Text4_LostFocus()
Adodc3.Recordset.MoveFirst
Adodc3.Recordset.Find "No_Anggota='" & Text4.Text & "'"
If (Adodc3.Recordset.BOF Or Adodc3.Recordset.EOF) Then
MsgBox "Kode Anggota tidak di Temukan"
Text4.Text = ""
Text4.SetFocus
Else
Text9.Text = Adodc3.Recordset("Nama_Anggota")
End If
End Sub

Private Sub Text5_LostFocus()
Adodc4.Recordset.MoveFirst
Adodc4.Recordset.Find "Kode_Petugas='" & Text5.Text & "'"
If (Adodc4.Recordset.BOF Or Adodc4.Recordset.EOF) Then
MsgBox "Kode Petugas tidak di Temukan"
Text5.Text = ""
Text5.SetFocus
Else
Text10.Text = Adodc4.Recordset("Nama_Petugas")
End If
End Sub

Private Sub Text6_Change()
Text6.Enabled = False
End Sub

Private Sub Text7_Change()
Text8.Text = Val(Text7.Text) - Val(Text6.Text)
End Sub

Private Sub Text8_Change()
Text8.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label9.Caption = Format(Now, "DD/MM/YYYY")
End Sub

Read More

Membuat Aplikasi Tabungan Bank dengan VB 6.0 ( Tugas Siswa )

                                              

Salah satu tugas siswa tingkat 1 RPL ( Rekayatsa Perangkat Lunak ) adalah membuat "Project Aplikasi menggunakan Visual Basic 6.0. Berikut Hasil Karyanya :

1. Nama Database : BANK.mdb

    Tabelnya adalah sbb :

 

2. User Interface / Design Form

3. Menu Aplikasi

4. Laporan
     - Lap. Nasabah
     - Lap. Teller
     - Lap Penyetoran
     - Lap. Penarikan

5. Coding-nya adalah sbb :

Form Nasabah

Private Sub cmdedit_Click()

Data1.Recordset.Edit

Data1.Recordset!no_rekening = Text1.Text

Data1.Recordset!nama_nasabah = Text2.Text

Data1.Recordset!jenis_kelamin = Text3.Text

Data1.Recordset!alamat = Text4.Text

Data1.Recordset!saldo = Text5.Text

Data1.Recordset.Update

Data1.Refresh

DBGrid1.Refresh

cmdedit.Enabled = False

End Sub

Private Sub cmdend_Click()

X = MsgBox("yakin ingin keluar?", vbQuestion + vbOKCancel, "konfirmasi")

If X = vbOK Then

Unload Me

End If

End Sub

Private Sub cmdhapus_Click()

If MsgBox("Apakah Yakin Barang " + Txtnmbrg + "Akan dihapus ?", vbQuestion + vbYesNo) = vbYes Then

    Data1.Recordset.Delete

    Call bersih

    End If

End Sub

Private Sub cmdsimpan_Click()

Data1.Recordset.AddNew

Data1.Recordset!no_rekening = Text1.Text

Data1.Recordset!nama_nasabah = Text2.Text

Data1.Recordset!jenis_kelamin = Text3.Text

Data1.Recordset!alamat = Text4.Text

Data1.Recordset!saldo = Text5.Text

Data1.Recordset.Update

Data1.Refresh

DBGrid1.Refresh

Call bersih

cmdsimpan.Enabled = False

cmdtambah.Enabled = True

Call nonaktif

End Sub

Private Sub cmdtambah_Click()

Call aktif

cmdtambah.Enabled = False

cmdedit.Enabled = False

cmdhapus.Enabled = False

Text1.SetFocus

End Sub

Private Sub DBGrid1_Click()

Text1.Text = Data1.Recordset!no_rekening

Text2.Text = Data1.Recordset!nama_nasabah

Text3.Text = Data1.Recordset!jenis_kelamin

Text4.Text = Data1.Recordset!alamat

Text5.Text = Data1.Recordset!saldo

cmdedit.Enabled = True

cmdsimpan.Enabled = True

cmdhapus.Enabled = True

cmdtambah.Enabled = True

End Sub

Sub nonaktif()

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

Text4.Enabled = False

Text5.Enabled = False

DBGrid1.Enabled = False

cmdsimpan.Enabled = False

cmdedit.Enabled = False

cmdhapus.Enabled = False

End Sub

Sub aktif()

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

Text4.Enabled = True

Text5.Enabled = True

Call bersih

DBGrid1.Enabled = True

cmdsimpan.Enabled = True

cmdedit.Enabled = True

cmdhapus.Enabled = True

End Sub

Sub bersih()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

End Sub

Private Sub form_load()

Call nonaktif

End Sub

Form Teller

Private Sub cmdedit_Click()

Data1.Recordset.Edit

Data1.Recordset!ID_teller = Text1.Text

Data1.Recordset!nama_teller = Text2.Text

Data1.Recordset!jenis_kelamin = Text3.Text

Data1.Recordset!no_telepon = Text4.Text

Data1.Recordset!alamat = Text5.Text

Data1.Recordset.Update

Data1.Refresh

DBGrid1.Refresh

cmdedit.Enabled = False

End Sub

Private Sub cmdend_Click()

X = MsgBox("yakin ingin keluar?", vbQuestion + vbOKCancel, "konfirmasi")

If X = vbOK Then

Unload Me

End If

End Sub

Private Sub cmdhapus_Click()

If MsgBox("Apakah Yakin Barang " + Txtnmbrg + "Akan dihapus ?", vbQuestion + vbYesNo) = vbYes Then

    Data1.Recordset.Delete

    Call bersih

    End If

End Sub

Private Sub cmdsimpan_Click()

Data1.Recordset.AddNew

Data1.Recordset!ID_teller = Text1.Text

Data1.Recordset!nama_teller = Text2.Text

Data1.Recordset!jenis_kelamin = Text3.Text

Data1.Recordset!no_telepon = Text4.Text

Data1.Recordset!alamat = Text5.Text

Data1.Recordset.Update

Data1.Refresh

DBGrid1.Refresh

Call bersih

cmdsimpan.Enabled = False

cmdtambah.Enabled = True

Call nonaktif

End Sub

Private Sub cmdtambah_Click()

Call aktif

cmdtambah.Enabled = False

cmdedit.Enabled = False

cmdhapus.Enabled = False

Text1.SetFocus

End Sub

Private Sub DBGrid1_Click()

Text1.Text = Data1.Recordset!ID_teller

Text2.Text = Data1.Recordset!nama_teller

Text3.Text = Data1.Recordset!jenis_kelamin

Text4.Text = Data1.Recordset!no_telepon

Text5.Text = Data1.Recordset!alamat

cmdedit.Enabled = True

cmdsimpan.Enabled = True

cmdhapus.Enabled = True

cmdtambah.Enabled = True

End Sub

Sub nonaktif()

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

Text4.Enabled = False

Text5.Enabled = False

DBGrid1.Enabled = False

cmdsimpan.Enabled = False

cmdedit.Enabled = False

cmdhapus.Enabled = False

End Sub

Sub aktif()

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

Text4.Enabled = True

Text5.Enabled = True

Call bersih

DBGrid1.Enabled = True

cmdsimpan.Enabled = True

cmdedit.Enabled = True

cmdhapus.Enabled = True

End Sub

Sub bersih()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

End Sub

Private Sub form_load()

Call nonaktif

End Sub

Form Setor

Private Sub DBGrid2_Click()

DBrekening.Text = Data1.Recordset!no_rekening

Text10.Text = Data1.Recordset!alamat

Text11.Text = Data1.Recordset!jenis_kelamin

Text5.Text = Data1.Recordset!nama_nasabah

Text8.Text = Data1.Recordset!saldo

End Sub

Private Sub cmdedit_Click()

Data3.Recordset!no_setoran = Text1.Text

Data3.Recordset!ID_teller = DBteller.Text

Data3.Recordset!no_rekening = DBrekening.Text

Data3.Recordset!tanggal_setor = Text3.Text

Data3.Recordset!jam_setor = Text4.Text

Data3.Recordset!jumlah_setor = "Rp." & Text7.Text

Data3.Recordset!saldo_akhir = "Rp." & Text8.Text

Data3.Recordset.Update

DBGrid1.Refresh

cmdedit.Enabled = False

End Sub

Private Sub cmdhapus_Click()

If MsgBox("yakin ingin menghapus data?", vbQuestion + vbOKCancel, "konfirmasi") = vbOK Then

Data3.Recordset.Delete

cmdedit.Enabled = False

Me.Data3.Refresh

End If

End Sub

Private Sub cmdkeluar_Click()

X = MsgBox("Are You Sure To Quit?", vbQuestion + vbOKCancel, "konfirmation")

If X = vbOK Then

Unload Me

End If

End Sub

Private Sub cmdok_Click()

Data1.Recordset.Edit

Data1.Recordset!no_rekening = DBrekening.Text

Data1.Recordset!nama_nasabah = Text5.Text

Data1.Recordset!jenis_kelamin = Text11.Text

Data1.Recordset!alamat = Text10.Text

Data1.Recordset!saldo = Text8.Text

Data1.Recordset.Update

DBGrid2.Refresh

End Sub

 

Private Sub cmdsimpan_Click()

Data3.Recordset.AddNew

Data3.Recordset!no_setoran = Text1.Text

Data3.Recordset!ID_teller = DBteller.Text

Data3.Recordset!no_rekening = DBrekening.Text

Data3.Recordset!tanggal_setor = Text3.Text

Data3.Recordset!jam_setor = Text4.Text

Data3.Recordset!jumlah_setor = "Rp." & Text7.Text

Data3.Recordset!saldo_akhir = "Rp." & Text8.Text

Data3.Recordset.Update

DBGrid1.Refresh

Call bersih

cmdsimpan.Enabled = False

cmdtambah.Enabled = True

Call non_aktif

End Sub

Private Sub cmdtambah_Click()

Call aktif

cmdtambah.Enabled = False

cmdedit.Enabled = False

cmdhapus.Enabled = False

Text3.Text = Format(Date, "DD/MM/YYYY")

Text4.Text = Format(Now, "h:mm:ss")

Text1.SetFocus

End Sub

Private Sub DBGrid1_Click()

Text1.Text = Data3.Recordset!no_setoran

DBteller.Text = Data3.Recordset!ID_teller

DBrekening.Text = Data3.Recordset!no_rekening

Text3.Text = Data3.Recordset!tanggal_setor

Text4.Text = Data3.Recordset!jam_setor

Text7.Text = Data3.Recordset!jumlah_setor

Text8.Text = Data3.Recordset!saldo_akhir

Text3.Enabled = False

Text4.Enabled = False

cmdedit.Enabled = True

cmdsimpan.Enabled = False

cmdtambah.Enabled = True

cmdhapus.Enabled = True

End Sub

Private Sub DBrekening_Change()

Data1.Recordset.Index = "no_rekening"

Data1.Recordset.Seek "=", DBrekening.Text

If Not Data1.Recordset.NoMatch Then

Text6.Text = Data1.Recordset!saldo

End If

End Sub

Private Sub DBteller_Change()

Data2.Recordset.Index = "ID_teller"

Data2.Recordset.Seek "=", DBteller.Text

If Not Data2.Recordset.NoMatch Then

Text2.Text = Data2.Recordset!nama_teller

End If

End Sub

Private Sub form_load()

Call non_aktif

End Sub

Private Sub Text7_Change()

Text8.Text = Val(Text6.Text) + Val(Text7.Text)

End Sub

Private Sub timer1_timer()

lblwaktu.Caption = Format(Now, "hh:mm:ss")

End Sub

Sub non_aktif()

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

Text4.Enabled = False

Text5.Enabled = False

Text6.Enabled = False

Text7.Enabled = False

Text8.Enabled = False

Text10.Enabled = False

Text11.Enabled = False

DBteller.Enabled = False

DBrekening.Enabled = False

cmdhapus.Enabled = False

cmdsimpan.Enabled = False

cmdedit.Enabled = False

DBGrid1.Enabled = False

DBGrid2.Enabled = False

End Sub

Sub aktif()

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

Text4.Enabled = True

Text5.Enabled = True

Text6.Enabled = True

Text7.Enabled = True

Text8.Enabled = True

Text10.Enabled = True

Text11.Enabled = True

DBteller.Enabled = True

DBrekening.Enabled = True

Call bersih

DBGrid1.Enabled = True

DBGrid2.Enabled = True

cmdhapus.Enabled = True

cmdsimpan.Enabled = True

End Sub

Sub bersih()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text10.Text = ""

Text11.Text = ""

DBteller.Text = ""

DBrekening.Text = ""

End Sub

Form Tarik

Private Sub DBGrid2_Click()

DBrekening.Text = Data1.Recordset!no_rekening

Text10.Text = Data1.Recordset!alamat

Text11.Text = Data1.Recordset!jenis_kelamin

Text5.Text = Data1.Recordset!nama_nasabah

Text8.Text = Data1.Recordset!saldo

End Sub

Private Sub cmdedit_Click()

Data3.Recordset.Edit

Data3.Recordset!no_penarikan = Text1.Text

Data3.Recordset!ID_teller = DBteller.Text

Data3.Recordset!no_rekening = DBrekening.Text

Data3.Recordset!tanggal_penarikan = Text3.Text

Data3.Recordset!jam_penarikan = Text4.Text

Data3.Recordset!jumlah_penarikan = "Rp." & Text7.Text

Data3.Recordset!saldo_akhir = "Rp." & Text8.Text

Data3.Recordset.Update

DBGrid1.Refresh

cmdedit.Enabled = False

End Sub

Private Sub cmdhapus_Click()

If MsgBox("yakin ingin menghapus data?", vbQuestion + vbOKCancel, "konfirmasi") = vbOK Then

Data3.Recordset.Delete

cmdedit.Enabled = False

Me.Data3.Refresh

End If

End Sub

Private Sub cmdkeluar_Click()

X = MsgBox("Are You Sure To Quit?", vbQuestion + vbOKCancel, "konfirmation")

If X = vbOK Then

Unload Me

End If

End Sub

Private Sub cmdok_Click()

Data1.Recordset.Edit

Data1.Recordset!no_rekening = DBrekening.Text

Data1.Recordset!nama_nasabah = Text5.Text

Data1.Recordset!jenis_kelamin = Text11.Text

Data1.Recordset!alamat = Text10.Text

Data1.Recordset!saldo = Text8.Text

Data1.Recordset.Update

DBGrid2.Refresh

End Sub

Private Sub cmdsimpan_Click()

Data3.Recordset.AddNew

Data3.Recordset!no_penarikan = Text1.Text

Data3.Recordset!ID_teller = DBteller.Text

Data3.Recordset!no_rekening = DBrekening.Text

Data3.Recordset!tanggal_penarikan = Text3.Text

Data3.Recordset!jam_penarikan = Text4.Text

Data3.Recordset!jumlah_penarikan = "Rp." & Text7.Text

Data3.Recordset!saldo_akhir = "Rp." & Text8.Text

Data3.Recordset.Update

DBGrid1.Refresh

Call bersih

cmdsimpan.Enabled = False

cmdtambah.Enabled = True

Call non_aktif

End Sub

Private Sub cmdtambah_Click()

Call aktif

cmdtambah.Enabled = False

cmdedit.Enabled = False

cmdhapus.Enabled = False

Text3.Text = Format(Date, "DD/MM/YYYY")

Text4.Text = Format(Now, "h:mm:ss")

Text1.SetFocus

End Sub

Private Sub DBGrid1_Click()

Text1.Text = Data3.Recordset!no_penarikan

DBteller.Text = Data3.Recordset!ID_teller

DBrekening.Text = Data3.Recordset!no_rekening

Text3.Text = Data3.Recordset!tanggal_penarikan

Text4.Text = Data3.Recordset!jam_penarikan

Text7.Text = Data3.Recordset!jumlah_penarikan

Text8.Text = Data3.Recordset!saldo_akhir

Text3.Enabled = False

Text4.Enabled = False

cmdedit.Enabled = True

cmdsimpan.Enabled = False

cmdtambah.Enabled = True

cmdhapus.Enabled = True

End Sub

Private Sub DBrekening_Change()

Data1.Recordset.Index = "no_rekening"

Data1.Recordset.Seek "=", DBrekening.Text

If Not Data1.Recordset.NoMatch Then

Text6.Text = Data1.Recordset!saldo

End If

End Sub

Private Sub DBteller_Change()

Data2.Recordset.Index = "ID_teller"

Data2.Recordset.Seek "=", DBteller.Text

If Not Data2.Recordset.NoMatch Then

Text2.Text = Data2.Recordset!nama_teller

End If

End Sub

Private Sub form_load()

Call non_aktif

End Sub

Private Sub Text7_Change()

Text8.Text = Val(Text6.Text) - Val(Text7.Text)

End Sub

Private Sub timer1_timer()

lblwaktu.Caption = Format(Now, "hh:mm:ss")

End Sub

Sub non_aktif()

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

Text4.Enabled = False

Text5.Enabled = False

Text6.Enabled = False

Text7.Enabled = False

Text8.Enabled = False

Text10.Enabled = False

Text11.Enabled = False

DBteller.Enabled = False

DBrekening.Enabled = False

cmdhapus.Enabled = False

cmdsimpan.Enabled = False

cmdedit.Enabled = False

DBGrid1.Enabled = False

DBGrid2.Enabled = False

End Sub

Sub aktif()

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

Text4.Enabled = True

Text5.Enabled = True

Text6.Enabled = True

Text7.Enabled = True

Text8.Enabled = True

DBteller.Enabled = True

DBrekening.Enabled = True

Call bersih

DBGrid1.Enabled = True

DBGrid2.Enabled = True

cmdhapus.Enabled = True

cmdsimpan.Enabled = True

End Sub

Sub bersih()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

DBteller.Text = ""

DBrekening.Text = ""

End Sub

Read More