Cara Membuat Billing Warnet

Transcript

4 Aplikasi Database dengan VB  untuk  Orang Awam Menu Utama ini berfungsi sebagai menu induk yang bertugas untuk menampilkan menu-menu anak lainnya, karena untuk menu utama Anda akan menggunakan MDIForm. Gambar 4.3 . Menu Utama Langkah-langkah membuat tampilan 1. Untuk menggunakan MDIform, Anda klik menu Project > Add MDI Form. Lihat  Gambar 4.4 Gambar 4.4 . Menggunakan MDI Form 2. Pada kotak dialog Add MDI Form, Anda pilih MDI Form kemudian klik tombol Open. Lihat  Gambar 4.5 1. Klik Menu Project  2. Klik Add MDI Form 5 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  Gambar 4.5  . Membuka MDI Form 3. Pastikan form MDI Form  dalam keadaan aktif, lalu Anda klik menu Menu Editor  , pada Toolbar.  Kemudian kotak dialog Menu Editor akan tampil. Lihat Gambar 4.6 Gambar 4.6  . Membuka kotak dialog Menu Editor  4. Untuk membuat menu File dapat dilakukan dengan menuliskan  ”&File” di bagian caption, dan “MnuF” di bagian Name. lalu klik tombol Next. Lihat Gambar 4.7 1. Klik MDI Form 2. Klik Open 1. Klik Menu Editor  2. Kotak Dialog Menu Editor  6 Aplikasi Database dengan VB  untuk  Orang Awam Gambar 4.7  . Membuat Menu FIle 5. Perhatikan Gambar 4.8.  Untuk membuat sub menu Monitor Client di bagian menu Fie, klik tombol , lalu ketik “Mo&nitor Client” pada bagian caption, dan “Mnumc” pada bagian Name. Pilih  “CTRL+M” pada bagian Shorcut. Klik tombol Next. Gambar 4.8  . Membuat sub Menu FIle 6. Untuk mempersingkat waktu Anda dapat melihat sub menu lainnya pada Gambar 4.9. Perhatian : Untuk pembuatan nama pada baris kolom Name Menu Editor, Anda dapat membuat nama sesuai dengan keinginan Anda dan nama tidak boleh sama. 2 7 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  Gambar 4.9 . Nama - nama Menu dan Sub Menu 7. Setelah selesai dengan pembuatan Menu Editor, Kemudian Anda tambahkan ke dalam lembar MDI Form beberapa komponen yaitu tiga Timer  , dua Adodc  , dan satu StatusBar.  Letakkan seperti pada gambar di bawah ini. Lihat Gambar 4.10 Gambar 4.10  . Membuat tampilan Menu Utama c. Membuat tampilan Menu Monitor Client Menu Monitor Client ini berfungsi sebagai menu yang dapat melihat komputer client yang sedang digunakan untuk internet. Setiap komputer client yang digunakan akan ditampilkan pada menu ini. Timer1 s.d Timer2 Menu Editor   Adodc1 s.d  Adodc2 StatusBar1 8 Aplikasi Database dengan VB  untuk  Orang Awam Gambar 4.11 . Menu Monitor Client Langkah-langkah membuat tampilan 1. Anda tambahkan form baru, klik menu Project > Add Form, pada kotak dialog  Add Form pilih  Dialog. Lalu klik   tombol  Open. Lihat   Gambar 4.12 Gambar 4.12  . Menambahkan Form baru 1. Klik Menu Project 2. Klik Add Form 3. Pilih Dialog 9 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  2. Anda aktifkan form dialog yang baru ditambahkan, kemudian pada lembar form tersebut Anda hapus dua komponen CommandButton, yang telah menempel pada lembar form tersebut. Lalu tambahkan beberapa komponen seperti satu MSFlexGrid  , satu label  , dua Adodc  , satu Image  dan satu Timer  , Anda aturlah posisinya seperti   Gambar 4.13 Gambar 4.13 . Membuat tampilan Menu Monirtor Client  d. Membuat tampilan Menu Input User Admin Menu Input User Admin ini berfungsi sebagai menu yang dapat menginput data user yang berhak untuk memakai aplikasi ini. Gambar 4.14 . Menu Input User Admin Langkah-langkah membuat tampilan 1. Anda tambahkan form baru, klik menu Project > Add Form, pada kotak dialog  Add Form pilih  Dialog. Lalu klik   tombol  Open. Seperti pada langkah sebelumnya. MSFlexGrid1 Timer1  Adodc1 s.d  Adodc2 Image1 Label1 10 Aplikasi Database dengan VB  untuk  Orang Awam 2. Sama seperti langkah sebelumnya Anda aktifkan form dialog yang baru ditambahkan, kemudian pada lembar form tersebut Anda hapus dua komponen CommandButton. Lalu tambahkan beberapa komponen seperti empat Label  , tiga TextBox  , dua Image , satu CheckBox  , dan satu Adodc  , Anda aturlah posisinya seperti pada Gambar 4.15 Gambar 4.15  . Membuat tampilan Menu Input User Admin e. Membuat tampilan Menu Pengaturan Menu Pengaturan ini berfungsi sebagai menu yang dapat mengatur harga rental komputer client berdasarkan durasi lama pemakaian komputer per jam. Gambar 4.16  . Membuat tampilan Menu Pengaturan CheckBox1 11 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  Langkah-langkah membuat tampilan 1. Anda tambahkan form baru, klik menu Project > Add Form, pada kotak dialog  Add Form pilih  Dialog. Lalu klik   tombol  Open. Seperti pada langkah sebelumnya. 2. Anda aktifkan form dialog yang baru ditambahkan, kemudian pada lembar form tersebut Anda hapus dua komponen CommandButton, Lalu tambahkan komponen  SSTab   , satu buah. Anda Lihat Gambar 4.17 Gambar 4.17  . Menambahkan komponen SSTab1 3. Kemudian pada komponen SSTab1 khususnya “Tab 0” Anda letakkan beberapa komponen seperti empat Label  , satu TextBox  , satu DataCombo , satu Image , satu Adodc  , satu DataGrid ,   dan satu Line . Kemudian aturlah posisinya seperti Gambar 4.18   Gambar 4.18  . Meletakkan Komponen Ke Dalam SSTab Tab 0  4. Pada Tab 1, Anda letakkan beberapa komponen seperti dua Label  , satu TextBox  , satu Image , satu Adodc  , satu DataGrid  , satu Line . Kemudian aturlah posisinya seperti pada Gambar 4.19. SSTab1 DataGrid1 DataCombo1 12 Aplikasi Database dengan VB  untuk  Orang Awam Gambar 4.19 . Meletakkan komponen ke dalam SSTab Tab 1 f. Membuat tampilan Menu Cetak Laporan Pendapatan Menu Cetak Laporan Pendapatan ini berfungsi sebagai menu yang dapat mencetak laporan transaksi, berdasarkan tanggal dan keseluruhan transaksi yang tersimpan di dalam database dengan menggunakan Crystal Report 8.5. Gambar 4.20  . Menu Cetak Laporan Pendapatan Langkah-langkah membuat tampilan 1. Anda tambahkan form baru, klik menu Project > Add Form, pada kotak dialog  Add Form pilih  Dialog. Lalu klik   tombol  Open. Seperti pada langkah sebelumnya. 2. Anda aktifkan form dialog yang baru ditambahkan, kemudian pada lembar form tersebut Anda hapus dua komponen CommandButton, Lalu tambahkan komponen   seperti dua Frame , tiga OptionBox  , dua DTPicker  , dua Label  , satu Image,  dan satu Adodc  . Kemudian aturlah posisinya seperti pada Gambar 4.21 DataGrid1 13 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  Gambar 4.21 . Mengatur posisi komponen 3. Masih pada area form Menu Cetak Laporan Pendapatan, kali ini Anda tambahkan lagi komponen seperti satu Frame  , satu DTPicker, dan satu Crystal Report  . Lalu aturlah posisinya seperti pada Gambar 4.22. Gambar 4.22  . Menambahkan komponen g. Membuat tampilan Menu Kirim Pesan Menu Kirim Pesan ini berfungsi sebagai menu yang dapat megirimkan pesan ke komputer client melalui Billing Server, sehingga Anda tidak perlu repot untuk menyampaikan informasi pesan yang ingin disampaikan. Gambar 4.23 . Menu Kirim Pesan OptionBox1 s.d OptionBox2 DTPicker1 DTPicker2 Frame3 Dan DTPicker3 (Di Tumpuk Di Atas Frame2) Crystal Report1 14 Aplikasi Database dengan VB  untuk  Orang Awam DataCombo1 TextBox1 Image2 Image1 Image3 Progressbar1 Label1 Langkah-langkah membuat tampilan 1. Anda tambahkan form baru, klik menu Project > Add Form, pada kotak dialog  Add Form pilih  Dialog. Lalu klik   tombol  Open. Seperti pada langkah sebelumnya. 2. Anda aktifkan form dialog yang baru ditambahkan, kemudian pada lembar form tersebut Anda hapus dua komponen CommandButton, Lalu tambahkan komponen   seperti dua Frame , satu DataCombo  , satu Label,  satu TextBox  , tiga Image,  satu Progressbar , dua Timer   dan dua Adodc  . Kemudian aturlah posisinya seperti pada Gambar 4.24 Gambar 4.24 . Membuat tampilan Menu Kirim Pesan h. Membuat tampilan Menu Client Log out Menu Client Log Out ini berfungsi sebagai menu yang dapat menampil- kan harga beserta durasi pemakaian internet melalui komputer client. Gambar 4.25  . Menu Client Log Out  15 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  Langkah-langkah membuat tampilan 1. Anda tambahkan form baru, klik menu Project > Add Form, pada kotak dialog  Add Form pilih  Dialog. Lalu klik   tombol  Open. Sep- erti pada langkah sebelumnya. 2. Anda aktifkan form dialog yang baru ditambahkan, kemudian pada lembar form tersebut Anda hapus dua komponen CommandBut-  ton , Lalu tambahkan beberapa komponen   seperti tiga Shape  , sebelas Label  , satu Image  dan dua Adodc  . Aturlah posisinya seperti pada Gambar 4.26. Gambar 4.26  . Membuat tampilan Menu Client Log Out  a. Membuat tampilan Menu Client Log In Menu Client Log In ini berfungsi sebagai menu yang dapat menginput data pelanggan yang akan menggunakan kemputer client. Setiap pelanggan yang ingin menggunakan komputer client terlebih dahulu harus melewati menu ini. Menu ini akan otomatis tampil pada saat komputer client dijalankan. Gambar 4.27.  Menu Client Log In 4.1.2 Membuat Tampilan Billing Warnet Client Shape1 Shape2 Shape3 16 Aplikasi Database dengan VB  untuk  Orang Awam Langkah-langkah membuat tampilan 1. Sebelum membuat tampilan Billing Warnet Client, sebaiknya Anda simpan terlebih dahulu tampilan Billing Warnet Server yang sudah Anda buat sebelumnya. Klik menu File > Save Project. 2. Kemudian Anda klik menu File > New Project . Lalu akan tampil kotak dialog New Project , pilih Standard Exe . Klik tombol Ok . Anda Lihat Gambar 4.28 Gambar 4.28  . Membuat project baru 3. Sebelum menambahkan komponen pada form yang masih kosong            File OCX dengan nama LVbuttons.ocx    pada CD Sertaan buku ini. 4. Setelah di copy anda paste ke dalam drive C:WINDOWS system32. 5. Anda aktifkan kembali program visual basic Anda, kemudian Anda klik menu Project > Components atau tekan Ctrl + T. 6. Pada kotak dialog Components, Anda klik tombol Browse... 7. Kemudian pada kotak dialog Add ActiveX Control,    ocx yang sudah anda copy. Kemudian pilih dan klik tombol Open. Lihat Gambar 4.29 Gambar 4.29.  Membuka le OCX LVbuttons.ocx  1. Klik File 2. Klik New Project 3. Pilih Standard EXE 1. Pilih File ocx LVbuttons.ocx  2. Klik Open 17 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  8. Lalu pada kotak dialog Components, Aktifkan tanda cek pada komponen LVbuttons  , lalu klik tombol Ok . Lihat Gambar 4.30. Gambar 4.30  . Membuka File Ocx LVbuttons.ocx  9. Kemudian dalam Toolbar General  , akan bertambah komponen baru dengan nama LaVolpeButton . Lihat Gambar 4.31. Gambar 4.31 . Komponen LaVolpeButton 10. Anda buka lagi kotak dialog Componets , Anda aktifkan beberapa tanda cek seperti Microsoft ADO Data Control 6.0 (OLE DB), Microsoft Windows Common Control 6.0 (SP6), Microsoft Winsock Control 6.0. 11. Pada form yang masih kosong Anda tambahkan beberapa komponen seperti satu TextBox  , dua LaVolpeButton , satu PictureBox , empat Timer  , satu Winsock , empat Adodc  , satu StatusBar. Aturlah posisinya seperti pada Gambar 4.32. Gambar 4.32  . Membuat tampilan Client Log In  Aktifkan Tanda Cek Ini LaVolpeButton LaVolpeButton1 LaVolpeButton2 PictureBox1 Winsock1 18 Aplikasi Database dengan VB  untuk  Orang Awam b. Membuat tampilan Menu Monitor Harga Client Menu Monitor Harga Client ini berfungsi sebagai menu yang dapat menghitung harga rental berdasarkan durasi waktu dan harga rental per jam, sehingga si pemakai komputer client dapat mengontrol berapa harga rental yang harus dibayar. Gambar 4.33 . Menu Monitor Harga Client  Langkah-langkah membuat tampilan 1. Anda tambahkan form baru, klik menu Project > Add Form, pada kotak dialog  Add Form pilih  Dialog. Lalu klik   tombol  Open. Seperti pada langkah sebelumnya. 2. Anda aktifkan form dialog yang baru ditambahkan, kemudian pada lembar form tersebut Anda hapus dua komponen CommandButton , Lalu tambahkan beberapa komponen   seperti tiga Shape  , dua belas Label  , dua Image , lima Timer  , satu Winsock  , dan tiga Adodc  . Aturlah posisinya seperti pada Gambar 4.34. Gambar 4.34 . Membuat tampilan Menu Monitor Client  Shape1 Shape2 Shape3 19 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  c. Membuat tampilan Menu Pesan Menu Pesan ini berfungsi sebagai menu yang dapat menyampaikan pesan tertulis yang di kirim oleh Operator melalui Billing Server. Gambar 4.35  . Menu Pesan Client  Langkah-langkah membuat tampilan 1. Anda tambahkan form baru, klik menu Project > Add Form, pada kotak dialog  Add Form pilih  Dialog. Lalu klik   tombol  Open. Seperti pada langkah sebelumnya. 2. Anda aktifkan form dialog yang baru ditambahkan, kemudian pada lembar form tersebut Anda hapus dua komponen CommandButton , Lalu tambahkan beberapa komponen   seperti satu Frame , lima Label  , satu TextBox  , satu Timer  , satu Winsock  , satu Image  dan satu Adodc  . Aturlah posisinya seperti pada Gambar 4.36. Gambar 4.36  . Membuat Tampilan Menu Pesan Client  TexBox1 20 Aplikasi Database dengan VB  untuk  Orang Awam Di bawah ini akan ditampilkan tabel nilai properties secara keseluruhan dari komponen yang telah diletakkan pada lembar form. a. Mengatur properties Menu User Admin Log In Nilai properties komponen yang melekat pada form Menu User Admin Log In secara keseluruhan, dapat Anda lihat pada Tabel 4.1. Tabel 4.1 . Properties Menu Admin Log In   4.2 Mengatur Properties 4.2.1 Mengatur Properties Billing Warnet Server   Form1 Name Log_In Caption Log In Maxi Warnet  ControlBox False  Height 2670  Width 3600  Label1 Caption Id User   Label2 Caption Nama  Label3 Caption Password  TextBox1 Name Id  Text (Dikosongkan)  TextBox2 Name Nama  Text (Dikosongkan)  TextBox3 Name Psw Text (Dikosongkan)  CommandButton1 Name CmdOk  Caption Ok  CommandButton2 Name CmdBtl  Caption Batal  Image1 Picture (Icon)  Stretch True  Timer1 Interval 100  Statusbar1 Font Tahoma  Adodc1 Visible False  Adodc2 Visible False  Adodc3 Visible False  Nama Control Properties Nilai Pengaturan Perhatian : Untuk pengaturan Properties pada seluruh komponen StatusBar1 Anda • bisa lihat pada CD Video Tutorial sertaan buku ini. Untuk Komponen Adodc Anda bisa lihat pada pembuatan Database. • 2 21 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  b. Mengatur properties Menu Utama Nilai properties komponen yang melekat pada form Menu Utama secara keseluruhan, dapat Anda lihat pada Tabel 4.2. Tabel 4.2  . Properties Menu Utama c. Mengatur properties Menu Monitor Client Nilai properties komponen yang melekat pada form Menu Monitor Client secara keseluruhan, dapat Anda lihat pada Tabel 4.3. Tabel 4.3 . Properties Menu Monitor Client   MDIForm Name Menu_Utama Caption Menu Bill Maxi Warnet  Height 9480  Width 11415  Timer1 Interval 100  Timer2 Interval 100  Timer3 Interval 100  Statusbar1 Font Tahoma  Adodc1 Visible False  Adodc2 Visible False Nama Control Properties Nilai Pengaturan  Dialog Name Monitor Caption Monitor Client  Height 6615  Width 9690  Label1 Caption Tutup  MSFlexGrid1 Name GridMonitor   BackColor &H00C0FFFF&  FixedCols 0  Height 6015  Width 8655  Image1 Picture (Icon)  Stretch True  Timer1 Interval 5000  Statusbar1 Font Tahoma  Adodc1 Visible False  Adodc2 Visible False Nama Control Properties Nilai Pengaturan 22 Aplikasi Database dengan VB  untuk  Orang Awam d. Mengatur properties Menu Input User Admin Nilai properties komponen yang melekat pada form Menu Input User Admin secara keseluruhan, dapat Anda lihat pada Tabel 4.4. Tabel 4.4 . Properties Menu Input User Admin e. Mengatur properties Menu Pengaturan Nilai properties komponen yang melekat pada form Menu Pengaturan secara keseluruhan, dapat Anda lihat pada Tabel 4.5. Tabel 4.5  . Properties Menu Pengaturan  Dialog1 Name User_Admin Caption Input User Admin  Height 2535  Width 4425  Label1 Caption Id User   Label2 Caption Nama User   Label3 Caption Password  Label4 Caption Ok  TextBox1 Name Id  Text (Dikosongkan)  TextBox2 Name Nama  Text (Dikosongkan)  TextBox3 Name Psw Text (Dikosongkan)  CheckBox1 Name Clhtpsw  Caption Cek Password  Image1 Picture (Icon)  Stretch True  Image2 Picture (Icon)  Stretch True  Adodc1 Visible False Nama Control Properties Nilai Pengaturan  Dialog2 Name Pengaturan Caption Pengaturan  Height 4350  Width 6810  SSTab1 Caption Input Harga  Tab 0  Caption Input PC Vip Nama Control Properties Nilai Pengaturan 23 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  f. Mengatur properties Menu Cetak Pendapatan Nilai properties komponen yang melekat pada form Menu Cetak Pendapatan secara keseluruhan, dapat Anda lihat pada Tabel 4.6. Tabel 4.6  . Properties Menu Cetak Pendapatan  Tab 1  Tabs 2  TabsPerRow 3  Label1 Caption Input Harga  Label2 Caption Type Pelanggan  Label3 Caption Harga Per Jam  Label4 Caption Ok  Label5 Caption Masukkan Nama PC  Label6 Caption Ok  Image1 Picture (Icon)  Stretch True  Image2 Picture (Icon)  Stretch True  DataCombo1 Name Ktg_Hrg  BackColor &H00C0E0FF&  RowSorces Adodc1  TextBox1 Name Hrg_Jam  Text (Dikosongkan)  TextBox2 Name Nama_PC  Text (Dikosongkan)  Line1 BorderWidth 2  Line2 BorderWidth 2  Adodc1 Visible False  Adodc2 Visible False DataGrid1 BackColor &H00FFFFC0&  BorderStyle 0 - dbgNoBorder DataSources Adodc1 DataGrid2 BackColor &H00FFFFC0&  BorderStyle 0 - dbgNoBorder DataSources Adodc2  Dialog3 Name Ctk_Pendapatan Caption Cetak Pendapatan  Height 2910  Width 5745  Frame1 Caption Pilih Option Cetak Frame2 Name FrmPeriode  Caption Pilih Tanggal Dari Dan Sampai Nama Control Properties Nilai Pengaturan 24 Aplikasi Database dengan VB  untuk  Orang Awam g. Mengatur properties Menu Kirim Pesan Nilai properties komponen yang melekat pada form Menu Kirim Pesan secara keseluruhan, dapat Anda lihat pada Tabel 4.7. Tabel 4.7  . Properties Menu Kirim Pesan  Frame3 Name FrmPeriode  Caption Pilih Tanggal  Label1 Caption S.D  Label2 Caption Ok  OptionButton1 Name Ctkslr   Caption Cetak Seluruh  OptionButton2 Name Ctkperperiode  Caption Cetak Per Periode  OptionButton3 Name CtkPerhari  Caption Cetak Per Hari DTPicker1 Name TglAwal  CostumFormat dd/MM/yyyy  Format 3 - dtpCustom  DTPicker2 Name TglSampai  CostumFormat dd/MM/yyyy  Format 3 - dtpCustom  DTPicker3 Name TglHari  CostumFormat dd/MM/yyyy  Format 3 - dtpCustom  Image1 Picture (Icon)  Stretch True  Crystal Report1 Name Cr1  Adodc1 Visible False Untuk pengaturan Properties selengkapnya pada komponen Crystal- • Report1 dapat Anda lihat pada saat pembuatan laporan dengan Crystal Report 8.5 2  Dialog4 Name Pesan Caption Kirim Pesan  Height 4350  Width 6810  Frame1 Caption Nama PC Client Frame2 Caption Isi Pesan  Label1 Caption Kirim  Nama Control Properties Nilai Pengaturan 25 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  h. Mengatur properties Menu Client Log Out Nilai properties komponen yang melekat pada form Menu Client Log Out secara keseluruhan, dapat Anda lihat pada Tabel 4.8. Tabel 4.8  . Properties Menu Client Log Out   DataCombo1 Name Ktg_Hrg  RowSorces Adodc1  TextBox1 Name Isi_Pesan  Appearance 0 - Flat  BorderStyle 1 - Fixed Single  MultiLine True  ScrollBars 2 - Vertikal  Text (Dikosongkan)  Image1 Picture (Icon)  Stretch True  Left 2400  Image2 Picture (Icon)  Stretch True  Image3 Picture (Icon)  Stretch True  Timer1 Interval 100  Timer2 Interval 900  Progressbar1 Appearance 0 - ccFlat  Max 3500  Adodc1 Visible False  Adodc2 Visible False Dialog5 Name Client_Log_Out Caption Client Log PO  Height 5220  Width 3090  Label1 Name LblNmPc  Font Tahoma  Label2 Name LblNmPlgn  Font Tahoma  Label3 Caption Jam Mulai :  Font System  Label4 Caption Jam Berhenti :  Font System  Label5 Caption Durasi :  Font System  Label6 Caption Harga :  Font System  Nama Control Properties Nilai Pengaturan 26 Aplikasi Database dengan VB  untuk  Orang Awam a. Mengatur properties Menu Client Log In Nilai properties komponen yang melekat pada form Menu Client Log In secara keseluruhan, dapat Anda lihat pada Tabel 4.9. Tabel 4.9 . Properties Menu Client Log In 4.2.2 Mengatur Properties Billing Warnet Client  Label7 Caption Ok  Font Tahoma  Label8 Name LblMulai  Font Tahoma  Label9 Name LblBerhenti  Font System  Label10 Name LblDurasi  Font System  Label11 Name LblHrg  Font System  Adodc1 Visible False  Adodc2 Visible False Form1 Name Login BorderStyle 0 - None  Caption (Dikosongkan)  ControlBox False  WindowsState 2 - Maximized TextBox Name TxtNama  Text (Dikosongkan)  LaVolpeButton1 Name CmdMulai  ButtonType 3 - Windows Xp  Caption Ok  ColorScheme 2 - Costum  LaVolpeButton2 Name CmdShutDown  ButtonType 3 - Windows Xp  Caption ShutDown  ColorScheme 2 - Costum  Timer1 Interval 100  Timer2 Interval 1  Timer3 Interval 250  Timer4 Interval 15000  Winsock1 Name Winsock1  Picture1 AutoRedraw True  BorderStyle 0 - None Nama Control Properties Nilai Pengaturan 27 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  b. Mengatur properties Menu Monitor Harga Client Nilai properties komponen yang melekat pada form Menu Client Log In secara keseluruhan, dapat Anda lihat pada Tabel 4.10. Tabel 4.10  . Properties Menu Monitor Harga Client   Picture (Icon)  StatusBar1 Font Tahoma  Adodc1 Visible False  Adodc2 Visible False  Adodc3 Visible False  Adodc4 Visible False Dialog Name Monitor_Harga Caption (Dikosongkan)  Height 5655  Width 2970  Label1 Caption Stop  Font Tahoma  Label2 Caption Kecilkan  Font Tahoma  Label3 Caption Harga :  Font System  Label4 Caption Durasi :  Font System  Label5 Caption Pukul :  Font System  Label6 Caption Mulai :  Font System  Label7 Name LblNmPlgn  Caption Nama User   Font System  Label8 Name LblNmPC  Caption (Dikosongkan)  Font System Label9 Name LblMulai  Caption Waktu  Font System Label10 Name LblWkt  Caption Waktu  Font System Label11 Name Lbldurasi  Caption 00:00:00  Font System Nama Control Properties Nilai Pengaturan 28 Aplikasi Database dengan VB  untuk  Orang Awam b. Mengatur properties Menu Isi Pesan Nilai properties komponen yang melekat pada form Menu Isi Pesan secara keseluruhan, dapat Anda lihat pada Tabel 4.11. Tabel 4.11 . Properties Menu Isi Pesan  Label12 Name LblHrg  Caption 0  Font System  Image1 Picture (Icon)  Stretch True  Image2 Picture (Icon)  Stretch True  Timer1 Interval 900  Timer2 Interval 100  Timer3 Interval 100  Timer4 Interval 2000  Timer5 Interval 1  Adodc1 Visible False  Adodc2 Visible False  Adodc3 Visible False  Shape1 Shape 2 - Oval  Shape2 Shape 2 - Oval  Shape3 Shape 5 - Rounded Square  Dialog1 Name Isi_Pesan Caption User Admin  Height 5655  Width 2970  Label1 Caption Nama PC :  Label2 Caption Pelanggan :  Label3 Caption Ok  Label4 Name Nplgn  Caption Nama Pelanggan  Label5 Name Np  Caption Nama PC Frame1 Caption Isi Pesan  TextBox1 Name Isi_Pesan  Appearance 0 - Flat  BorderStyle 1 - Fixed Single  MultiLine True  ScrollBars 2 - Vertikal  Text (Dikosongkan)  Image1 Picture (Icon)  Nama Control Properties Nilai Pengaturan 29 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  Anda buat database dengan nama MaxiWarnet, cara pembuatan database langkah - langkahnya sama seperti pada bab sebelumnya . Kemudian simpan ke dalam folder dengan nama Database Warnet  . Untuk nama - nama Tabel  database yang diperlukan dapat Anda lihat pada Tabel 4.12 Tabel 4.12  . Daftar nama tabel dan eld - eld   Stretch True  Timer1 Enabled False  Interval 500  Winsock1 Name Winsock1  Adodc1 Visible False  4.3 Membuat Database 4.3.1 Membuat Tabel  Client_Log_Out Nama_PC Text 20  Nama_Pelanggan Text 35  Jam_Mulai Text 8 Jam_Berhenti Single 8 Durasi Text 8  Total_Harga Double 8  Tanggal Text 10  Data_Client_ Nama_PC Text 20  Online Nama_Pelanggan Text 35  Jam_Mulai Text 8  Tanggal Text 10  Data_Harga Type_Pelanggan Text 20  Harga_Per_Jam Single 4  Jumlah_PC_ Jumlah Integer 2 Online Tanggal Text 10  Log_In Nama_PC Text 20  Nama_Pelanggan Text 35  Jam_Masuk Text 8 Monitor_Client Nama_PC Text 20  Nama_Pelanggan Text 35  Jam_Masuk Text 8  Kategori_Pelanggan Text 20 Nama Tabel Nama Field Type Ukuran 30 Aplikasi Database dengan VB  untuk  Orang Awam Sekarang Anda akan mengkoneksikan Database yang telah Anda buat ke ODBC (Open Database Conectivity). Dengan jenis koneksi  System DSN. Anda perhatikan langkah - langkah di bawah ini. Langkah-langkahnya sebagai berikut : 1. Anda klik tombol Start  pada Windows Taksbar, kemudian pilih All Programs > Administrative Tools > Data Sources (ODBC) . Lihat Gambar 4.37 Gambar 4.37  . Membuat Koneksi Database Ke ODBC  4.3.2 Koneksi Database Ke ODBC 1. Pilih ini 2. Pilih ini  Tanggal Text 10  Nama_PC_Vip Nama_PC Text 20  Pesan Tujuan Text 20  Nama_Pelanggan Text 35  Isi_Pesan Text 165  User_Admin Id_User Text 15  Nama_User Text 35  Password Text 10  User_Admin Tanggal Text 20  Login Id_User Text 15  Nama_User Text 35  Jam_Log_In Text 8  User_Admin Id_User Text 15  Online Nama_User Text 35 31 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  2. Kemudian kotak dialog ODBC Data Sources Administrator , akan tampil Anda klik tab System DSN  , Pada Sistem Data Sources Anda pilih Xtreme Sample Database . Lalu klik tombol Add. Lihat Gambar 4.38 Gambar 4.38  . Kotak dialog ODBC  3. Selanjutnya kotak dialog Create New DataSorces  akan tampil. Anda pilih Microsoft Acces Driver [*.mdb]  , kemudian klik tombol Finish . Lihat Gambar 4.39. Gambar 4.39 . Kotak dialog Create New Data Source 4. Pada kotak dialog ODBC Microsoft Access Setup, Pada kolom Data Sources Name Anda ketik nama MaxiWarnet  , Kemudian klik tombol Select . Lihat Gambar 4.40. 1. Klik Tab ini 3. Klik Tombol Add . 2. Pilih Ini 32 Aplikasi Database dengan VB  untuk  Orang Awam Gambar 4.40  . Kotak dialog ODBC Microsoft Access Setup 5. Pada kotak dialog Select Database, Anda cari database MaxiWarnet yang telah Anda simpan, kemudian klik tombol OK. Lihat  Gambar 4.41 Gambar 4.41 . Cari lokasi database 6. Anda akan kembali lagi pada kotak dialog ODBC Microsoft Access Setup, kali ini Anda langsung klik tombol  OK. 7. Pada kotak dialog ODBC, Anda klik tombol  OK. 8. Sampai disini Database MaxiWarnet sudah terkoneksi dengan ODBC. Klik Ini 1. Cari Lokasi 2. Pilih Database 33 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  Sekarang anda akan mengkoneksikan komponen Adodc ke ODBC, yang sebelumnya telah Anda koneksikan ke database. a. Mengatur properties Adodc Billing Warnet Server 1. Anda aktifkan form Log In , lalu Anda klik kanan pada komponen Adodc1 , kemudian pilih ADODC Properties. Lihat  Gambar 4.42 Gambar 4.42  . Properties ADODC  2. Kemudian kotak dialog Property Pages  akan tampil, pilih option Use ODBC Data Source Name . Lihat  Gambar 4.43.   Gambar 4.43 . Kotak dialog Property Pages 3. Kemudian Anda pilih Data Sources Name dengan nama MaxiWarnet,   sesuai dengan nama yang telah Anda ketikkan sebelumnya. Lihat Gambar 4.44. 4.3.3 Mengatur Properties Adodc 1. Klik Kanan 2. Pilih  ADODC Properties 34 Aplikasi Database dengan VB  untuk  Orang Awam Gambar 4.44 . Menentukan nama data sources name 4. Selanjutnya Anda klik tab RecordSorce,  pada pilihan Command  Type, Anda pilih 2 - adCmdTable dan pada pilihan Tabel or Stored Procedure Name Anda pilih tabel User_Admin. Kemudian klik  Tombol  OK. Lihat  Gambar 4.45. Gambar 4.45  . Menentukan nama tabel yang akan di koneksikan 5. Sampai disini pengaturan properties Adodc1 pada form Log in telah selesai. Untuk pengaturan seluruh komponen Adodc caranya sama seperti langka ke satu sampai ke empat hanya beda nama tabelnya saja. Untuk nama tabel apa saja yang akan dikoneksikan ke Adodc Anda bisa lihat pada  Tabel 4.13. Tabel 4.13 . Daftar nama tabel yang dikoneksikan ke Adodc  1. Klik Tab Ini 2. Pilih Ini 3. Pilih Tabel  Nama Form Nama Control Nama Tabel  Log_In Adodc1 User_Admin  Adodc2 User_Admin_Login 35 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  b. Mengatur properties Adodc Billing Warnet Client Caranya sama seperti sebelumnya hanya beda tabelnya saja, untuk mengetahui ke tabel apa saja komponen Adodc pada Menu Billing Warnet Client akan di koneksikan, Anda lihat pada Tabel 4.14 Tabel 4.14 . Daftar nama tabel yang dikoneksikan ke Adodc  Dalam subbab ini Anda akan menuliskan kode program yang dibutuhkan untuk mendukung jalannya Aplilkasi Database Billing Warnet. a. Membuat kode program Menu Log In 1. Pastikan Form Log In Billing Warnet Server aktif.  Adodc3 User_Admin_Online Menu_Utama Adodc1 Jumlah_PC_Online  Adodc2 User_Admin_Online Monitor Adodc1 Monitor_Client  Adodc2 Data_Client_Online User_Admin Adodc1 User_Admin Pengaturan Adodc1 Data_Harga  Adodc2 Nama_PC_Vip Ctk_Pendapatan Adodc1 Client_Log_Out Client_Log_Out Adodc1 Data_Client_Online  Adodc2 Monitor_Client  Nama Form Nama Control Nama Tabel  LogIn Adodc1 Log_In  Adodc2 Monitor_Client  Adodc3 Jumlah_PC-Online  Adodc4 Data_member Monitor_Harga Adodc1 Log_In  Adodc2 Client_Log_Out  Adodc3 Pesan Isi_Pesan Adodc1 Pesan  4.4 Membuat Kode Program 4.4.1 Membuat Kode Program Billing Server  36 Aplikasi Database dengan VB  untuk  Orang Awam 2. Kemudian Anda aktifkan Form Code dengan menekan tombol View Code  , kemudian ketikkan kode program seperti di bawah ini : 3. Selanjutnya buat Procedure  dengan nama koneksi,  kemudian ketikkan kode program seperti di bawah ini : 4. Selanjutnya buat Procedure  lagi dengan nama Log,  kemudian ketikkan kode program seperti di bawah ini :   • Baris 1 - 2  Merupakan fungsi untuk mendeklarasikan varia- bel Db   dan Rs   sebagai fungsi untuk mengkonek- sikan database ke form .  Baris 3 • Merupakan fungsi untuk mendeklarasikan varia- bel dengan nama Str   dengan   type data String  . Keterangan Kode Dim db As ADODB.Connection Dim rs As ADODB.Recordset Dim str As String  1  2  3 Sub koneksi() Set db = New ADODB.Connection Set rs = New ADODB.Recordset db.Open “DSN=Maxiwarnet” End Sub  1  2  3  4  5 Baris 1 • Membuat sub sendiri dengan nama koneksi. Baris 2 - 4 • Merupakan fungsi untuk membuka database yang telah dibuat berdasarkan nama DSN. Baris 5 • Akhir dari Sub koneksi Keterangan Kode Sub log() If Menu_Utama.Enabled = False Then cmdbtl.Enabled = False Else cmdbtl.Enabled = True End If End Sub  1  2  3  4  5  6 Baris 1 • Membuat sub sendiri dengan nama Log.   Keterangan Kode 37 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  5. Selanjutnya buat Procedure  lagi dengan nama Proses,  kemudian ketikkan kode program seperti di bawah ini : 6. Klik ganda pada lembar form , kemudian ketikkan kode program seperti di bawah ini: Baris 2 - 6 • Membuat perintah untuk mengaktifkan tombol Batal apabila form Menu_Utama pada properties Enabled bernilai True, dan sebaliknya menonakt- ifkan tombol Batal apabila Menu Utama pada pr- operties enabled bernilai False. Sub proses() koneksi str = “select * from user_admin” db.Execute (str) Adodc1.Refresh koneksi str = “select * from user_admin_login” db.Execute (str) Adodc2.Refresh koneksi str = “select * from user_Admin_online” db.Execute (str) Adodc3.Refresh End Sub  1  2  3  4  5  6  7  8  9  10  11  12  13  14 Baris 1 - 14 • Merupakan fungsi untuk merefresh seluruh tabel dalam database agar data selalu baru.   Keterangan Kode Private Sub Form_Load() StatusBar1.Panels(1) = Format(Date, “DD/MM/YYYY”) koneksi End Sub   1  2   Baris 1 • Mencetak tanggal menurut sistem komputer pada komponen StatusBar panel ke 1. Baris 2 • Merupakan fungsi untuk memanggil procedure Koneksi. Keterangan Kode 38 Aplikasi Database dengan VB  untuk  Orang Awam 7. Masih pada procedure Form_Load, kali ini pada pilihan procedure Anda ganti dengan Activate. Kemudian ketikkan kode program seperti di bawah ini : 8. Klik ganda pada komponen textbox dengan nama Id, kemudian ketikkan kode program seperti di bawah ini: 9. Masih pada kolom text dengan nama Id, kali ini pada pilihan Procedure Anda ganti dengan nama Keypress, kemudian ketikkan kode program seperti di bawah ini: Private Sub id_Change() koneksi str = “select * from user_admin where id_user = ‘” & id & “’” rs.Open str, db If rs.EOF = False Then Nama = rs.Fields(“nama_user”) Else Nama = “” End If End Sub   1  2  3  4  5  6  7  8  9   Baris 1 - • 9 Menampilkan nama user admin pada kolom text Nama bila id user ditemukan dan mengosongkan bila tidak ditemukan. Keterangan Kode Private Sub id_KeyPress(KeyAscii As Integer) If KeyAscii = 39 Then KeyAscii = 34 End If End Sub   1  2  3 Baris 1 - • 3 Mengganti karakter ASCII keyboard 39 dengan ASCII 34.   Keterangan Kode Private Sub Form_Activate() log End Sub   1   Baris 1 • Merupakan fungsi untuk memanggil procedure dengan nama Log. Keterangan Kode 39 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  Private Sub Nama_KeyPress(KeyAscii As Integer) KeyAscii = 0 End Sub   1   Baris 1 • Kolom teks tidak bisa diisi dengan karakter apapun   Keterangan Kode 10. Klik ganda kolom text Nama, Anda ganti pilihan Procedure dengan nama Keypress, kemudian ketikkan kode program seperti di bawah ini: 11. Klik ganda kolom text dengan nama Psw, Anda ganti pilihan Procedure dengan nama Keypress, kemudian ketikkan kode program seperti di bawah ini: Private Sub psw_KeyPress(KeyAscii As Integer) If KeyAscii = 39 Then KeyAscii = 34 Else If KeyAscii = 13 Then If id = “” Then id.SetFocus: Exit Sub If psw = “” Then psw.SetFocus: Exit Sub koneksi str = “select * from user_admin where id_user = ‘” & id & “’ and password = ‘” & psw & “’” rs.Open str, db If rs.EOF = False Then str = “insert into user_admin_login(tanggal,id_user,nama_ user,jam_log_in)values(‘” & StatusBar1.Panels(1) & “’,’” & id & “’,’” & Nama & “’,’” & StatusBar1.Panels(2) & “’)” db.Execute (str) koneksi str = “select * from user_admin_online” rs.Open str, db If rs.EOF = False Then str = “update user_admin_online set nama_user = ‘” & Nama & “’” db.Execute (str) proses Else str = “insert into user_admin_online(id_user,nama_user) values(‘” & id & “’,’” & Nama & “’)” db.Execute (str) proses End If   1  2  3  4  5  6  7  8   9  10  11   12  13  14  15  16  17   18  19  20  21   22  23  24 40 Aplikasi Database dengan VB  untuk  Orang Awam 12. Klik ganda pada CommandButton dengan caption OK, kemudian ketikkan kode program seperti di bawah ini : Private Sub Cmdok_Click() If id = “” Then id.SetFocus: Exit Sub If psw = “” Then psw.SetFocus: Exit Sub koneksi str = “select * from user_admin where id_user = ‘” & id & “’ and password = ‘” & psw & “’” rs.Open str, db If rs.EOF = False Then str = “insert into user_admin_login(tanggal,id_user,nama_ user,jam_log_in)values(‘” & StatusBar1.Panels(1) & “’,’” & id & “’,’” & Nama & “’,’” & StatusBar1.Panels(2) & “’)” db.Execute (str) koneksi str = “select * from user_admin_online” rs.Open str, db If rs.EOF = False Then str = “update user_admin_online set nama_user = ‘” & Nama & “’” db.Execute (str)   1  2  3  4  5  6  7  8  9  10  11  12  13   14 Unload Me Menu_Utama.Enabled = True Menu_Utama.Show Else MsgBox “Password Anda Salah”, vbCritical, “Maxi Warnet” End If End If End If End Sub  25  26  27  28  29  30  31  32   Baris 1 - • 3 Mengganti karakter ASCII keyboard 39 dengan 34 Baris 4 - • 28 Merupakan fungsi untuk membaca record yang tersimpan pada table User Admin apabila ada maka data user akan disimpan pada tabel User Admin Login dan User Admin Online. serta men- utup form log In dan menampilkan form Menu Utama. Baris 29- • 32 Merupakan fungsi untuk menampilkan Pesan ap- bila data user admin tidak ditemukan.   Keterangan Kode 41 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  13. Klik ganda pada CommandButton dengan caption Batal, kemudian ketikkan kode program seperti di bawah ini : 14. Klik ganda pada komponen Timer1, kemudian ketikkan kode program seperti di bawah ini : Private Sub cmdbtl_Click() End End Sub   1   Baris 1 • Merupakan fungsi untuk Mengakhiri Jalannya Aplikasi   Keterangan Kode Baris 1 - • 3 Mengganti karakter ASCII keyboard 39 dengan 34 Baris 4 - • 28 Merupakan fungsi untuk membaca record yang tersimpan pada table User Admin apabila ada maka data user akan disimpan pada tabel User Admin Login dan User Admin Online. serta men utup form log In dan menampilkan form Menu Utama. Baris 29- • 32 Merupakan fungsi untuk menampilkan Pesan ap- bila data user admin tidak ditemukan.   Keterangan Kode proses Else str = “insert into user_admin_online(id_user,nama_user) values(‘” & id & “’,’” & Nama & “’)” db.Execute (str) proses End If Unload Me Menu_Utama.Enabled = True Menu_Utama.Show Else MsgBox “Password Anda Salah”, vbCritical, “Maxi Warnet” End If End Sub  15  16   17  18  19  20  21  22  23  24  25   Private Sub Timer1_Timer() StatusBar1.Panels(2) = Format(Time, “HH:MM:SS”) End Sub   1   42 Aplikasi Database dengan VB  untuk  Orang Awam b. Membuat kode program Menu Utama 1. Anda aktifkan form Menu Utama Billing Warnet Server. 2. Kemudian Anda aktifkan Form Code dengan menekan tombol View Code  , kemudian ketikkan kode program seperti di bawah ini : 3. Selanjutnya buat Procedure  dengan nama koneksi,  kemudian ketikkan kode program seperti di bawah ini : 4. Selanjutnya buat Procedure  lagi dengan nama Proses,  kemudian ketikkan kode program seperti di bawah ini : Baris 1 • Merupakan fungsi untuk Menampilkan waktu menu- rut sistem komputer pada status bar panel ke dua.   Keterangan Kode   • Baris 1 - 2  Merupakan fungsi untuk mendeklarasikan varia- bel Db   dan Rs   sebagai fungsi untuk mengkonek- sikan database ke form .  Baris 3 • Merupakan fungsi untuk mendeklarasikan varia- bel dengan nama Str   dengan   type data String  . Keterangan Kode Dim db As ADODB.Connection Dim rs As ADODB.Recordset Dim str As String  1  2  3 Sub koneksi() Set db = New ADODB.Connection Set rs = New ADODB.Recordset db.Open “DSN=Maxiwarnet” End Sub  1  2  3  4  5 Baris 1 • Membuat sub sendiri dengan nama koneksi. Baris 2 - 4 • Merupakan fungsi untuk membuka database yang telah dibuat berdasarkan nama DSN. Baris 5 • Akhir dari Sub koneksi Keterangan Kode Sub proses() koneksi  1  2 43 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  5. Selanjutnya buat Procedure  lagi dengan nama  Jumlah_PC,  kemudian ketikkan kode program seperti di bawah ini : 6. Selanjutnya buat Procedure  lagi dengan nama User_Online,   kemudian ketikkan kode program seperti di bawah ini :   • Baris 2 - 8  Merupakan fungsi untuk memrefresh database agar data yang ditampilkan selalu terbaru   Keterangan Kode str = “select * from jumlah_pc_online” db.Execute (str) Adodc1.Refresh str = “select * from user_admin_online” db.Execute (str) Adodc2.Refresh End Sub  3  4  5  6  7  8  9   • Baris 2 - 11  Merupakan fungsi untuk menampilkan jumlah PC yang aktif ke dalam kolom StatusBar kolom ke tiga dengan terlebih dahulu membaca reco- rd yang tersimpan di dalam tabel  Jumlah_PC_- Online.   Keterangan Kode Sub Jumlah_pc() tgl = Format(Date, “DD/MM/YYYY”) koneksi str = “select * from jumlah_pc_online where Tanggal = ‘” & tgl & “’” rs.Open str, db If rs.EOF = False Then jumlah_online = rs.Fields(“jumlah”) StatusBar1.Panels(3) = “PC Online : “ & jumlah_online & “” Else StatusBar1.Panels(3) = “PC Online : 0” End If End Sub  1  2  3  4   5  6  7  8   9  10  11  12 Sub user_online() koneksi str = “select * from user_admin_online” rs.Open str, db  1  2  3  4 44 Aplikasi Database dengan VB  untuk  Orang Awam 7. Klik ganda pada lembar form , kemudian ketikkan kode program seperti di bawah ini: 8. Masih pada procedure MDIForm_Load, kali ini pada pilihan procedure Anda ganti dengan nama Activate. Kemudian ketikkan kode program seperti di bawah ini : If rs.EOF = False Then opr = rs.Fields(“Nama_User”) StatusBar1.Panels(2) = “Operator : “ & opr & “” End If End Sub  5  6  7  8  9 Baris 1-9 • Merupakan fungsi untuk Menampilkan nama User Admin yang aktif pada waktu itu ke StatusBar panel ke dua dengan terlebih dahulu membaca tabel User  _Admin_Online. Keterangan Kode Private Sub MDIForm_Load() StatusBar1.Panels(4) = Format(Date, “DD/MMMM/YYYY”) koneksi Jumlah_pc jalan = StatusBar1.Panels(1).Text End Sub   1  2  3  4   Baris 1 • Mencetak tanggal menurut sistem komputer pada komponen StatusBar panel ke 1. Baris 2 - 3 • Merupakan fungsi untuk memanggil procedure Koneksi dan Jumlah_PC Baris 4 • Mencetak text pada komponen StatusBar panel ke satu.   Keterangan Kode Private Sub MDIForm_Activate() proses Jumlah_pc user_online End Sub   1  2  3   Baris 1 • - 3 Merupakan fungsi untuk memanggil procedure Proses, Jumlah_PC, User_Online.   Keterangan Kode 45 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  9. Kemudian pada procedure Form_Activate, kali ini pada pilihan procedure Anda ganti dengan nama Unload. Kemudian ketikkan kode program seperti di bawah ini : 10. Klik ganda pada komponen Timer1, kemudian ketikkan kode program seperti di bawah ini: 11. Klik ganda pada komponen Timer2, kemudian ketikkan kode program seperti di bawah ini: 12. Klik ganda pada komponen Timer3, kemudian ketikkan kode program seperti di bawah ini: Private Sub MDIForm_Unload(Cancel As Integer) keluar = MsgBox(“Benar Anda Ingin Keluar ?”, vbQuestion + vbYesNo, “Maxi Warnet”) If keluar = vbYes Then Unload Me Else Cancel = 1 End If End Sub   1  2  3  4  5  6 7   Baris 1 • - 7 Merupakan fungsi untuk menampilkan pesan ya- ng apabila tombol Close window pada Menu Uta- ma di klik. Keterangan Kode Private Sub Timer1_Timer() StatusBar1.Panels(5) = Format(Time, “HH:MM:SS”) End Sub   1   Baris 1 • Merupakan fungsi untuk menampilkan waktu menurut sistem komputer pada komponen Stat- usBar panel ke lima.   Keterangan Kode Private Sub Timer2_Timer() Jumlah_pc End Sub   1   Baris 1 • Merupakan fungsi untuk memanggil procedure dengan nama Jumlah_PC   Keterangan Kode 46 Aplikasi Database dengan VB  untuk  Orang Awam 13. Selanjutnya Anda klik menu editor dengan nama Monitor_Client, kemudian ketikkan kode program seperti di bawah ini : 14. Anda klik menu editor dengan nama Input_User, kemudian ketikkan kode program seperti di bawah ini : 15. Anda klik menu editor dengan nama Input_User, kemudian ketikkan kode program seperti di bawah ini : Private Sub Timer3_Timer() On Error Resume Next a = Left(jalan, 1) c = Len(jalan) b = Right(jalan, c - 1) jalan = b + a StatusBar1.Panels(1).Text = jalan End Sub   1  2  3  4  5  6   Baris 1 • Merupakan fungsi untuk menampilkan animasi teks berjalan pada kolom StatusBar panels ke satu.   Keterangan Kode Private Sub Mnumc_Click() Monitor.Show End Sub   1   Baris 1 • Merupakan fungsi untuk menampilkan form Monitor Client.   Keterangan Kode Private Sub MnuIU_Click() User_Admin.Show End Sub   1   Baris 1 • Merupakan fungsi untuk menampilkan form Input User Keterangan Kode Private Sub mnupngr_Click() Pengaturan.Show End Sub   1   47 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  16. Anda klik menu editor dengan nama Cetak_Pendapatan, kemudian ketikkan kode program seperti di bawah ini : 17. Anda klik menu editor dengan nama Log Out, kemudian ketikkan kode program seperti di bawah ini : 18. Anda klik menu editor dengan nama Keluar, kemudian ketikkan kode program seperti di bawah ini : Baris 1 • Merupakan fungsi untuk menampilkan form Pengat- uran.   Keterangan Kode Private Sub MnuPndpt_Click() Ctk_Pendapatan.Show End Sub   1   Baris 1 • Merupakan fungsi untuk menampilkan form Cetak Pendapatan.   Keterangan Kode Private Sub Mnulg_Click() Log_In.Show Me.Enabled = False End Sub   1  2   Baris 1 • - 2 Merupakan fungsi untuk menampilkan form Log In dan menonaktifkan form Menu Utama.   Keterangan Kode Private Sub MnuKlr_Click() keluar = MsgBox(“Benar Anda Ingin Keluar ?”, vbQuestion + vbYesNo, “Maxi Warnet”) If keluar = vbYes Then Unload Me Else Exit Sub End If End Sub   1   2  3  4  5  6 Baris 1 • - 6 Merupakan fungsi untuk menampilkan pesan ya- ng apabila tombol Yes di klik maka aplikasi akan   Keterangan Kode 48 Aplikasi Database dengan VB  untuk  Orang Awam 19. Anda klik menu editor dengan nama Kirim Pesan, kemudian ketikkan kode program seperti di bawah ini : c. Membuat kode program Menu Monitor Client 1. Anda aktifkan form Menu Monitor Client Billing Warnet Server. 2. Kemudian Anda aktifkan Form Code dengan menekan tombol View Code  , Anda hapus teks Option Explicit,  kemudian ketikkan kode program seperti di bawah ini : 3. Selanjutnya buat Procedure  dengan nama koneksi,  kemudian ketikkan kode program seperti di bawah ini :   • ditutup namun bila sebaliknya maka aplikasi akan tetap berjalan. Private Sub MnuKp_Click() Pesan.Show End Sub   1   Baris 1 • -2 Merupakan fungsi untuk menampilkan form Pesan   Keterangan Kode   • Baris 1 - 2  Merupakan fungsi untuk mendeklarasikan varia- bel Db   dan Rs   sebagai fungsi untuk mengkonek- sikan database ke form .  Baris 3 • Merupakan fungsi untuk mendeklarasikan varia- bel dengan nama Str   dengan   type data String  . Keterangan Kode Dim db As ADODB.Connection Dim rs As ADODB.Recordset Dim str As String  1  2  3 Sub koneksi() Set db = New ADODB.Connection Set rs = New ADODB.Recordset db.Open “DSN=Maxiwarnet” End Sub  1  2  3  4  5 49 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  4. Selanjutnya buat Procedure  lagi dengan nama Proses,  kemudian ketikkan kode program seperti di bawah ini : 5. Selanjutnya buat Procedure  lagi dengan nama Grid_Properties,   kemudian ketikkan kode program seperti di bawah ini : Baris 1 • Membuat sub sendiri dengan nama koneksi. Baris 2 - 4 • Merupakan fungsi untuk membuka database yang telah dibuat berdasarkan nama DSN. Baris 5 • Akhir dari Sub koneksi Keterangan Kode   • Baris 2 - 7  Merupakan fungsi untuk me-refresh database agar data yang ditampilkan selalu terbaru   Keterangan Kode Sub proses() str = “select * from monitor_client” db.Execute (str) Adodc1.Refresh str = “select * from data_client_online” db.Execute (str) Adodc2.Refresh End Sub  1  2  3  4  5  6  7  8 Sub gridproperties() With GridMonitor  .Cols = 4  .Rows = 1  .FocusRect = fexFocusHeavy  .SelectionMode = fexSelectionFree  .ColWidth(0) = 1500  .ColWidth(1) = 3000  .ColWidth(2) = 1500  .ColWidth(3) = 2557  .Row = 0  .Col = 0  .Text = “Nama PC”  .Col = 1  .Text = “Nama Pelanggan”  .Col = 2  .Text = “Jam Mulai”  .Col = 3  .Text = “Kategory Pelanggan”  1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16  17  18  19 50 Aplikasi Database dengan VB  untuk  Orang Awam 6. Selanjutnya buat Procedure  lagi dengan nama Grid_Data,  kemudian ketikkan kode program seperti di bawah ini : 7. Selanjutnya buat Procedure  lagi dengan nama Data,  kemudian ketikkan kode program seperti di bawah ini : End With End Sub  20  21   • Baris 2-20  Merupakan fungsi untuk membuat kolom header sebanyak empat buah pada komponen MSFlexG- rid.   Keterangan Kode Sub Grid_Data() With GridMonitor  .AddItem “” & vbTab & “” & vbTab & “” End With End Sub  1  2  3  4  5   • Baris 2 - 4  Merupakan fungsi untuk membuat kolom item data pada komponene MSFlexGrid.   Keterangan Kode Sub data() gridproperties Grid_Data tgl = Format(Date, “dd/mm/yyyy”) koneksi str = “select * from monitor_client where tanggal = ‘” & tgl & “’” rs.Open str, db If rs.EOF = False Then rs.MoveFirst Do While Not rs.EOF GridMonitor.TextMatrix(GridMonitor.Row,0) = rs.Fields(“Nama_PC”) GridMonitor.TextMatrix(GridMonitor.Row,1) = rs.Fields(“Nama_pelanggan”) GridMonitor.TextMatrix(GridMonitor.Row,2) = rs.Fields(“Jam_Masuk”) GridMonitor.TextMatrix(GridMonitor.Row,3) = rs.Fields(“Kategori_Pelanggan”) rs.MoveNext GridMonitor.Rows = GridMonitor.Rows + 1  1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16 51 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  8. Selanjutnya buat Procedure  lagi dengan nama Posisi,  kemudian ketikkan kode program seperti di bawah ini : 9. Klik ganda pada lembar form , kemudian ketikkan kode program seperti di bawah ini: 10. Masih pada procedure Form_Load, kali ini pada pilihan procedure Anda ganti dengan nama Activate. Kemudian ketikkan kode program seperti di bawah ini : GridMonitor.Row = GridMonitor.Row + 1 Loop GridMonitor.Rows = GridMonitor.Rows - 1 End If End Sub  17  18  19  20  21 Baris 2 - 3 • Merupakan fungsi untuk memanggil procedure dengan nama gridproperties dan griddata. Baris 2 - 20 • Merupakan fungsi untuk menampilkan record data yang tersimpan pada tabel monitor_client ke kolom MSFlexGrid.   Keterangan Kode Sub posisi() Me.Left = 0 Me.Top = 0 End Sub  1  2  3  4 • Baris 2 - 3  Merupakan fungsi untuk mengatur posisi form Monitor Client tepat berada di atas sudut kiri form Menu Utama   Keterangan Kode Private Sub Form_Load() koneksi gridproperties Grid_Data End Sub   1  2  3   • Baris 1 - 3  Merupakan fungsi untuk memanggil procedure dengan nama koneksi, gridproperties, grid_data.   Keterangan Kode 52 Aplikasi Database dengan VB  untuk  Orang Awam 11. Klik ganda pada komponen MSFlexGrid, pada pilihan procedure Anda ganti dengan nama DblClick, kemudian ketikkan kode program seperti di bawah ini: Private Sub Form_Activate() posisi proses data End Sub   1  2  3   • Baris 1 - 3  Merupakan fungsi untuk memanggil procedure dengan nama posisi, proses, data.   Keterangan Kode Private Sub Gridmonitor_DblClick() koneksi str = “select * from client_log_out where nama_pc =’” & Grid- Monitor.TextMatrix(GridMonitor.Row, 0) & “’ and nama_pe- langgan = ‘” & GridMonitor.TextMatrix(GridMonitor.Row, 1) & “’and jam_mulai = ‘” & GridMonitor.TextMatrix(GridMonitor. Row, 2) & “’” rs.Open str, db If rs.EOF = False Then tgl = Format(Date, “dd/mm/yyyy”) str = “delete from data_client_online where nama_pc =’” & GridMonitor.TextMatrix(GridMonitor.Row, 0) & “’ and nama_pelanggan = ‘” & GridMonitor.TextMatrix(GridMonitor. Row, 1) & “’and jam_mulai = ‘” & GridMonitor. TextMatrix(GridMonitor.Row, 2) & “’” db.Execute (str) str = “insert into data_client_online(nama_pc,nama_ pelanggan,jam_mulai,tanggal)values(‘” & GridMonitor. TextMatrix(GridMonitor.Row, 0) & “’,’” & GridMonitor. TextMatrix(GridMonitor.Row, 1) & “’,’” & GridMonitor. TextMatrix(GridMonitor.Row, 2) & “’,’” & tgl & “’)” db.Execute (str) proses Monitor.Enabled = False Client_Log_Out.Show Else Exit Sub End If End Sub   1  2   3  4  5  6  7  8  9  10  11  12  13  14  15   53 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  12. Klik ganda pada komponen Image1, kemudian ketikkan kode program seperti di bawah ini : 13. Masih pada komponen Image1, pada pilihan procedure Anda ganti dengan nama MouseDown, kemudian ketikkan kode program seperti di bawah ini : 14. Masih pada komponen Image1, pada pilihan procedure Anda ganti lagi dengan nama MouseUp, kemudian ketikkan kode program seperti di bawah ini : Baris 1 - 13 • Merupakan fungsi untuk membaca record yang tersimpan di dalam tabel Client_Log_Out apab- ila ditemukan maka data yang pernah disimpan berdasarkan Nama_Pc akan dihapus dan disim- pan kembali. Baris 14- 15 • Merupakan fungsi kebalikan dari perintah seb- elumnya yang apabila tidak ditemukan maka perintah untuk keluar dari procedure dijalankan   Keterangan Kode Private Sub Image1_Click() Unload Me End Sub   1   • Baris 1 Merupakan fungsi untuk menutup form Menu Monitor Client.   Keterangan Kode Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Image1.BorderStyle = 1 Label1.ForeColor = vbRed  End Sub   1  2   • Baris 1 - 2  Merupakan fungsi untuk merubah properties Bo- rderStyle dan merubah warna Label1 menjadi warna merah.   Keterangan Kode Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Image1.BorderStyle = 0   1 54 Aplikasi Database dengan VB  untuk  Orang Awam 15. Klik ganda pada komponen Timer1, kemudian ketikkan kode program seperti di bawah ini : d. Membuat kode program Menu Input User Admin 1. Anda aktifkan form Menu Input User Admin Billing Warnet Server. 2. Kemudian Anda aktifkan Form Code dengan menekan tombol View Code  , Anda hapus teks Option Explicit,  kemudian ketikkan kode program seperti di bawah ini : 3. Selanjutnya buat Procedure  dengan nama koneksi,  kemudian ketikkan kode program seperti di bawah ini : Label1.ForeColor = vbBlack End Sub  2   • Baris 1 - 2  Merupakan fungsi untuk merubah properties Bo- rderStyle dan merubah warna Label1 menjadi warna hitam.   Keterangan Kode Private Sub Timer1_Timer() data End Sub   1   • Baris 1 Merupakan fungsi untuk memanggil procedure dengan nama data.   Keterangan Kode   • Baris 1 - 2  Merupakan fungsi untuk mendeklarasikan varia- bel Db   dan Rs   sebagai fungsi untuk mengkonek- sikan database ke form .  Baris 3 • Merupakan fungsi untuk mendeklarasikan varia- bel dengan nama Str   dengan   type data String  . Keterangan Kode Dim db As ADODB.Connection Dim rs As ADODB.Recordset Dim str As String  1  2  3 55 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  4. Selanjutnya buat Procedure  lagi dengan nama Proses,  kemudian ketikkan kode program seperti di bawah ini : 5. Selanjutnya buat Procedure  lagi dengan nama Posisi,  kemudian ketikkan kode program seperti di bawah ini : Sub koneksi() Set db = New ADODB.Connection Set rs = New ADODB.Recordset db.Open “DSN=Maxiwarnet” End Sub  1  2  3  4  5 Baris 1 • Membuat sub sendiri dengan nama koneksi. Baris 2 - 4 • Merupakan fungsi untuk membuka database yang telah dibuat berdasarkan nama DSN. Baris 5 • Akhir dari Sub koneksi Keterangan Kode Sub proses() koneksi str = “select * from user_admin” db.Execute (str) Adodc1.Refresh ID.Enabled = True ID.SetFocus ID = “” Nama = “” Psw = “” End Sub  1  2  3  4  5  6  7  8  9  10  11 Baris 2 - 5 • Merupakan fungsi untuk merefresh tabel User_- Admin agar data yang ditampilkan selalu terbaru. Baris 6 -10 • Merupakan fungsi untuk mengosongkan seluruh komponen Text dan membuat kursor fokus ke kolom Teks dengan nama ID. Keterangan Kode Sub posisi() Me.Left = 0 Me.Top = 0 End Sub  1  2  3  4 56 Aplikasi Database dengan VB  untuk  Orang Awam 6. Klik ganda pada lembar form , kemudian ketikkan kode program seperti di bawah ini: 7. Masih pada procedure Form_Load, kali ini pada pilihan procedure Anda ganti dengan nama Activate. Kemudian ketikkan kode program seperti di bawah ini : 8. Klik ganda pada komponen TextBox dengan nama ID, pada pilihan procedure Anda ganti dengan nama Keypress, kemudian ketikkan kode program seperti di bawah ini:   • Baris 2 - 3  Merupakan fungsi untuk mengatur posisi form Monitor Client tepat berada di atas sudut kiri form Menu Utama   Keterangan Kode Private Sub Form_Load() koneksi End Sub   1   Baris 1 • Merupakan fungsi untuk memanggil procedure den- gan nama koneksi. Keterangan Kode Private Sub Form_Activate() posisi ID.SetFocus End Sub   1  2   Baris 1 • Merupakan fungsi untuk memanggil procedure den- gan nama posisi dan membuat kursor fokus ke kol- om teks ID. Keterangan Kode Private Sub psw_KeyPress(KeyAscii As Integer) If KeyAscii = 39 Then KeyAscii = 34: Exit Sub End Sub   1   Baris 1 • Mengganti karakter ASCII keyboard 39 dengan ASCII 34.   Keterangan Kode 57 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  9. Klik ganda pada komponen TextBox dengan nama PSW, kemudian ketikkan kode program seperti di bawah ini: 10. Klik ganda pada komponen TextBox dengan nama PSW, pada pilihan procedure Anda ganti dengan nama Keypress, kemudian ketikkan kode program seperti di bawah ini: 11. Klik ganda pada komponen CheckBox dengan nama ClhtPsw, kemudian ketikkan kode program seperti di bawah ini: Private Sub psw_Change() If Psw = “” Then Clhtpsw.Enabled = False Else Clhtpsw.Enabled = True End If End Sub   1  2  3  4  5 Baris 1 - • 5 Merupakan fungsi logika if   yang apabila kolom teks password kosong maka komponen checkb- ox akan dinonaktifkan, namun bila sebaliknya maka komponen checkbox akan diaktifkan.   Keterangan Kode Private Sub psw_KeyPress(KeyAscii As Integer) If KeyAscii = 39 Then KeyAscii = 34: Exit Sub End Sub   1   Baris 1 • Mengganti karakter ASCII keyboard 39 dengan ASCII 34.   Keterangan Kode Private Sub Clhtpsw_Click() If Clhtpsw.Value = 0 Then Psw.PasswordChar = “*” Else Psw.PasswordChar = “” End If End Sub   1  2  3  4  5 Baris 1 • Merupakan fungsi logika if yang apabila kompo- nen checkbox bernilai nol, maka kolom teks Psw properties passwordchar akan diaktifkan   Keterangan Kode 58 Aplikasi Database dengan VB  untuk  Orang Awam 12. Klik ganda pada komponen Image1, kemudian ketikkan kode program seperti di bawah ini: 13. Masih pada komponen Image1, kali ini pada pilihan procedure Anda ganti dengan nama MouseDown, kemudian ketikkan kode program seperti di bawah ini:   • Namun bila sebaliknya maka properties Passwor- Char akan dinonaktifkan Private Sub Image1_Click() If ID = “” Then ID.SetFocus: Image1.BorderStyle = 0: La- bel4.ForeColor = vbBlack: Exit Sub If Nama = “” Then Nama.SetFocus: Image1.BorderStyle = 0: Label4.ForeColor = vbBlack: Exit Sub If Psw = “” Then Psw.SetFocus: Image1.BorderStyle = 0: Label4.ForeColor = vbBlack: Exit Sub koneksi str = “select * from user_admin where id_user = ‘” & ID & “’” rs.Open str, db If rs.EOF = False Then MsgBox “Id User Sudah Ada”, vbCritical, “Maxi Warnet” SendKeys “{home}+{end}” ID.SetFocus Else str = “insert into user_admin(id_user,nama_user,password) values(‘” & ID & “’,’” & Nama & “’,’” & Psw & “’)” db.Execute (str) proses End If End Sub   1   2  3  4  5  6  7  8  9  10  11  12   13  14  15   Baris 1 - 4 • Merupakan fungsi yang apabila seluruh kolom te- ks kosong maka label4 akan berwarna hitam. Baris 4-15 • Merupakan fungsi untuk membaca record tabel User Admin berdasarkan ID User pada kolom teks ID, yang apabila ditemukan maka pesan akan ta- mpil namun bila sebaliknya maka data akan disi- mpan.   Keterangan Kode Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)   59 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  14. Masih pada komponen Image1, kali ini pada pilihan procedure Anda ganti dengan nama MouseUp, kemudian ketikkan kode program seperti di bawah ini: e. Membuat kode program Menu Pengaturan 1. Anda aktifkan form Menu Pengaturan Billing Warnet Server. 2. Kemudian Anda aktifkan Form Code dengan menekan tombol View Code  , Anda hapus teks Option Explicit,  kemudian ketikkan kode program seperti di bawah ini : Image1.BorderStyle = 1 Label4.ForeColor = vbRed End Sub  1  2 Baris 1 - 2 • Merupakan fungsi yang apabila komponen Image1 diklik maka properties BorderStyle bernilai Satu, dan label4 akan berwarna merah.   Keterangan Kode Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Image1.BorderStyle = 0 Label4.ForeColor = vbBlack End Sub   1  2 Baris 1 - 2 • Merupakan fungsi yang apabila komponen Image1 diklik maka properties BorderStyle bernilai Nol, dan label4 akan berwarna hitam.   Keterangan Kode   • Baris 1 - 2  Merupakan fungsi untuk mendeklarasikan varia- bel Db   dan Rs   sebagai fungsi untuk mengkonek- sikan database ke form .  Baris 3 • Merupakan fungsi untuk mendeklarasikan varia- bel dengan nama Str   dengan   type data String  . Keterangan Kode Dim db As ADODB.Connection Dim rs As ADODB.Recordset Dim str As String  1  2  3 60 Aplikasi Database dengan VB  untuk  Orang Awam 3. Selanjutnya buat Procedure  dengan nama koneksi,  kemudian ketikkan kode program seperti di bawah ini : 4. Selanjutnya buat Procedure  lagi dengan nama Proses,  kemudian ketikkan kode program seperti di bawah ini : 5. Selanjutnya buat Procedure  lagi dengan nama Posisi,  kemudian ketikkan kode program seperti di bawah ini : Sub koneksi() Set db = New ADODB.Connection Set rs = New ADODB.Recordset db.Open “DSN=Maxiwarnet” End Sub  1  2  3  4  5 Baris 1 • Membuat sub sendiri dengan nama koneksi. Baris 2 - 4 • Merupakan fungsi untuk membuka database yang telah dibuat berdasarkan nama DSN. Baris 5 • Akhir dari Sub koneksi Keterangan Kode Sub proses() str = “select * from data_harga” db.Execute (str) Adodc1.Refresh DataGrid1.Refresh str = “select * from nama_pc_vip” db.Execute (str) Adodc2.Refresh DataGrid2.Refresh Hrg_Jam = “” Ktg_Hrg = “” Nama_PC = “” End Sub  1  2  3  4  5  6  7  8  9  10  11  12  13 Baris 1 - 13 • Merupakan fungsi untuk merefresh record yang tersimpan didalam tabel database MaxiWarnet agar data yang ditampilkan selalu terbaru serta mengosongkan seluruh komponen teks. Keterangan Kode Sub posisi() Me.Left = 0 Me.Top = 0 End Sub  1  2  3  4 61 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  6. Klik ganda pada lembar form , kemudian ketikkan kode program seperti di bawah ini: 7. Masih pada procedure Form_Load, kali ini pada pilihan procedure Anda ganti dengan nama Activate. Kemudian ketikkan kode program seperti di bawah ini : 8. Klik ganda komponen DataCombo1, pada pilihan procedure Anda ganti dengan nama Change. Kemudian ketikkan kode program seperti di bawah ini : Baris 2 - 3 • Merupakan fungsi untuk mengatur posisi form Pengaturan tepat berada di atas sudut kiri form Menu Utama   Keterangan Kode Private Sub Form_Load() koneksi End Sub   1   Baris 1 • Merupakan fungsi untuk memanggil procedure dengan nama koneksi.   Keterangan Kode Private Sub Form_Activate() posisi TabAtur.Tab = 0 End Sub   1  2 Baris 1 • Merupakan fungsi untuk memanggil procedure dengan nama posisi. Baris 2 • Merupakan fungsi untuk mengaktifkan komponen  Tab dengan nilai properties Tab sama dengan Nol.   Keterangan Kode Private Sub Ktg_Hrg_Change() koneksi str = “select * from data_harga where type_pelanggan = ‘” & Ktg_Hrg & “’” rs.Open str, db If rs.EOF = False Then Hrg_Jam = rs.Fields(“Harga_Per_Jam”) Else   1  2   3  4  5  6 62 Aplikasi Database dengan VB  untuk  Orang Awam 9. Klik ganda komponen TextBox1 dengan nama Hrg_Jam, pada pilihan procedure Anda ganti dengan nama Keypress. Kemudian ketikkan kode program seperti di bawah ini : 10. Klik ganda pada komponen Image1, kemudian ketikkan kode program seperti di bawah ini: Baris 1 - 8 • Merupakan fungsi untuk menampilkan record tabel Data_Harga berdasarkan Type Pelanggan ke dalam kotak teks harga dan apabila data tidak ditemukan maka kolom teks harga akan dikoso- ngkan.   Keterangan Kode Hrg_Jam = “” End If End Sub  7  8 Baris 1 - 12 • Hanya bisa diisi dengan angka dan tombol Backspace.   Keterangan Kode Private Sub Hrg_Jam_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 48 To 57 SendKeys “{end}” Hrg_Jam.SetFocus Case 8 If Len(Hrg_Jam.Text) > 0 Then Hrg_Jam.Text = Left(Hrg_Jam.Text, (Len(Hrg_Jam.Text)- 1))  SendKeys “{end}” End If Case Else KeyAscii = 0 End Select End Sub   1  2  3  4  5  6  7   8  9  10  11  12 Private Sub Image1_Click() If Ktg_Hrg = “” Then Ktg_Hrg.SetFocus: Image2.BorderStyle = 0: Label5.ForeColor = vbBlack: Exit Sub If Hrg_Jam = “” Then Hrg_Jam.SetFocus: Image2.BorderStyle = 0: Label5.ForeColor = vbBlack: Exit Sub koneksi   1   2 3 63 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  11. Masih pada komponen Image1, kali ini pada pilihan procedure Anda ganti dengan nama MouseDown, kemudian ketikkan kode program seperti di bawah ini: 12. Masih pada komponen Image1, kali ini pada pilihan procedure Anda ganti dengan nama MouseUp, kemudian ketikkan kode program seperti di bawah ini: str = “select * from data_harga where Type_pelanggan = ‘” & Ktg_Hrg.Text & “’” rs.Open str, db If rs.EOF = False Then str = “update data_harga set harga_per_jam = ‘” & Hrg_Jam & “’ where type_pelanggan = ‘” & Ktg_Hrg & “’” db.Execute (str) proses Else str = “insert into data_harga(type_pelanggan,harga_per_ jam)values(‘” & Ktg_Hrg & “’,’” & Hrg_Jam & “’)” db.Execute (str) proses End If End Sub  4   5 6  7  8  9  10  11  12  13  14 Baris 1 - 2 • Merupakan fungsi yang apabila pada kolom teks masih ada teks kosong maka properties image1 BorderStyle bernilai Nol dan Label4 berwarna hi- tam. Baris 3 -14 • Merupakan fungsi untuk membaca record data_- harga berdasarkan Type_Pelanggan, yang apabi- la ditemukan maka data akan diperbaiki namun bila sebaliknya maka ada akan diinput baru.   Keterangan Kode Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Image1.BorderStyle = 1 Label4.ForeColor = vbRed End Sub   1  2 Baris 1 - 2 • Merupakan fungsi yang apabila komponen Image1 diklik maka properties BorderStyle bernilai Satu, dan label4 akan berwarna merah.   Keterangan Kode 64 Aplikasi Database dengan VB  untuk  Orang Awam 13. Klik ganda pada komponen DataGrid1, pada pilihan procedure Anda ganti dengan nama DblClick, kemudian ketikkan kode program seperti di bawah ini: 14. Klik ganda pada komponen TextBox2, kemudian ketikkan kode program seperti di bawah ini: 15. Masih pada komponen TextBox2, pada pilihan procedure Anda ganti dengan nama Keypress, kemudian ketikkan kode program seperti di bawah ini: Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Image1.BorderStyle = 0 Label4.ForeColor = vbBlack End Sub   1  2 Baris 1 - 2 • Merupakan fungsi yang apabila komponen Image1 diklik maka properties BorderStyle bernilai Nol, dan label4 akan berwarna hitam.   Keterangan Kode Private Sub DataGrid1_DblClick() koneksi str = “delete from data_harga where type_pelanggan = ‘” & DataGrid1.Columns(0) & “’” db.Execute (str) proses End Sub   1  2   3  4 Baris 1 - 4 • Merupakan fungsi untuk menghapus data harga berdasarkan Type Pelanggan pada DataGrid1 ko- lom pertama.   Keterangan Kode Private Sub Nama_PC_Change() Nama_PC = UCase(Nama_PC) SendKeys “{end}” Nama_PC.SetFocus End Sub   1  2  3   Baris 1 - 2 • Merupakan fungsi untuk merubah huruf menjadi huruf besar dan menempatkan huruf tepat di depan kolom teks. Keterangan Kode 65 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  16. Klik ganda pada komponen Image2, kemudian ketikkan kode program seperti di bawah ini: 17. Masih pada komponen Image2, kali ini pada pilihan procedure Anda ganti dengan nama MouseDown, kemudian ketikkan kode program seperti di bawah ini: Private Sub Nama_PC_KeyPress(KeyAscii As Integer) If KeyAscii = 39 Then KeyAscii = 34 End If   1  2   Baris 1 - 2 • Merupakan fungsi untuk merubah ASCII 39 men-  jadi ASCII 34.   Keterangan Kode Private Sub Image2_Click() If Nama_PC = “” Then Nama_PC.SetFocus: Image1.BorderStyle = 0: Label1.ForeColor = vbBlack: Exit Sub koneksi str = “select * from nama_pc_vip where nama_pc = ‘” & Nama_PC.Text & “’” rs.Open str, db If rs.EOF = False Then str = “update nama_pc_vip set nama_pc = ‘” & Nama_PC & “’ where nama_pc = ‘” & Nama_PC.Text & “’” db.Execute (str) proses Else str = “insert into nama_pc_vip(Nama_pc)values(‘” & Nama_ PC & “’)” db.Execute (str) proses End If End Sub   1   2  3   4  5  6  7  8  9  10  11  12  13 Baris 1 • Merupakan fungsi yang apabila komponen Image2 di klik maka properties BorderStyle bernilai Nol, dan label4 akan berwarna hitam. Baris 3 -13 • Merupakan fungsi untuk membaca record data_- PC_Vip berdasarkan Nama_PC, yang apabila data ditemukan maka data tersebut akan diperbaiki namun bila sebaliknya maka data akan disimpan.   Keterangan Kode 66 Aplikasi Database dengan VB  untuk  Orang Awam 18. Masih pada komponen Image2, kali ini pada pilihan procedure Anda ganti dengan nama MouseUp, kemudian ketikkan kode program seperti di bawah ini: 19. Klik ganda pada komponen DataGrid2, pada pilihan procedure Anda ganti dengan nama DblClick, kemudian ketikkan kode program seperti di bawah ini: Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Image2.BorderStyle = 1 Label6.ForeColor = vbRed End Sub   1  2 Baris 1 - 2 • Merupakan fungsi yang apabila komponen Image2 diklik maka properties BorderStyle bernilai Satu, dan Label6 akan berwarna merah.   Keterangan Kode Private Sub Image2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Image2.BorderStyle = 0 Label6.ForeColor = vbBlack End Sub   1  2 Baris 1 - 2 • Merupakan fungsi yang apabila komponen Image2 diklik maka properties BorderStyle bernilai Nol, dan Label6 akan berwarna hitam.   Keterangan Kode Private Sub DataGrid2_DblClick() koneksi str = “delete from nama_pc_vip where nama_pc = ‘” & Da- taGrid2.Columns(0) & “’” db.Execute (str) proses End Sub   1  2  3  4   Baris 1 - 4 • Merupakan fungsi untuk menghapus Nama PC Vip berdasarkan Nama PC pada DataGrid2 kolom pertama.   Keterangan Kode 67 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  f. Membuat kode program Menu Cetak Pendapatan 1. Anda aktifkan form Menu Cetak Pendapatan Billing Warnet Server. 2. Kemudian Anda aktifkan Form Code dengan menekan tombol View Code  , Anda hapus teks Option Explicit,  kemudian ketikkan kode program seperti di bawah ini : 3. Selanjutnya buat Procedure  dengan nama koneksi,  kemudian ketikkan kode program seperti di bawah ini : 4. Selanjutnya buat Procedure  lagi dengan nama Proses,  kemudian ketikkan kode program seperti di bawah ini : Sub koneksi() Set db = New ADODB.Connection Set rs = New ADODB.Recordset db.Open “DSN=Maxiwarnet” End Sub  1  2  3  4  5 Baris 1 • Membuat sub sendiri dengan nama koneksi. Baris 2 - 4 • Merupakan fungsi untuk membuka database yang telah dibuat berdasarkan nama DSN. Baris 5 • Akhir dari Sub koneksi Keterangan Kode   • Baris 1 - 2  Merupakan fungsi untuk mendeklarasikan varia- bel Db   dan Rs   sebagai fungsi untuk mengkonek- sikan database ke form .  Baris 3 • Merupakan fungsi untuk mendeklarasikan varia- bel dengan nama Str   dengan   type data String  . Keterangan Kode Dim db As ADODB.Connection Dim rs As ADODB.Recordset Dim str As String  1  2  3 Sub proses() koneksi str = “select * from client_log_out” db.Execute (str) Adodc1.Refresh End Sub  1  2  3  4  5  6 68 Aplikasi Database dengan VB  untuk  Orang Awam 5. Klik ganda pada komponen Option1, dengan nama caption Cetak Seluruh , kemudian ketikkan kode program seperti di bawah ini: 6. Klik ganda pada komponen Option2, dengan nama caption Cetak Per Periode , kemudian ketikkan kode program seperti di bawah ini: 7. Klik ganda pada komponen Option3, dengan nama caption Cetak Per Hari  , kemudian ketikkan kode program seperti di bawah ini: 8. Klik ganda pada komponen Image1, kemudian ketikkan kode program seperti di bawah ini: Private Sub Ctkslr_Click() FrmHari.Visible = False Frmperiode.Visible = False End Sub   1  2   Baris 1 - 2 • Merupakan fungsi untuk menhilangkan tampilan komponen Frame dengan nama FrmHari dan Frmperiode.   Keterangan Kode Private Sub CtkPerperiode_Click() FrmHari.Visible = False Frmperiode.Visible = True End Sub   1  2   Baris 1 - 2 • Merupakan fungsi untuk menghilangkan tampilan komponen Frame dengan nama FrmHari dan Menampilkan Frmperiode.   Keterangan Kode Private Sub Ctkperhari_Click() FrmHari.Visible = True Frmperiode.Visible = False End Sub   1  2   Baris 1 - 2 • Merupakan fungsi untuk menampilkan komponen Frame dengan nama FrmHari, dan menghilangkan FrmPeriode.   Keterangan Kode Private Sub Image1_Click() If Ctkperhari.Value = False And Ctkslr.Value = False And CtkPerperiode.Value = False Then Exit Sub   1   69 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  If Ctkslr.Value = True Then cr1.Reset cr1.ReportFileName = App.Path & “LaporanLaporan Penda- patan Warnet.rpt” cr1.WindowState = crptMaximized cr1.RetrieveDataFiles cr1.PrintReport Else If CtkPerperiode.Visible = True Then koneksi str = “select * from client_log_out where tanggal >=’” & Format(TglAwal, “dd/mm/yyyy”) & “’ and tanggal <= ‘” & Format(TglSampai, “dd/mm/yyyy”) & “’” rs.Open str, db If rs.EOF = False Then cr1.Reset cr1.ReportFileName = App.Path & “LaporanLaporan Penda- patan Warnet.rpt” cr1.WindowState = crptMaximized cr1.SelectionFormula = “{client_log_out.tanggal} >= ‘” & Format(TglAwal, “dd/mm/yyyy”) & “’ and {client_log_out. tanggal} <= ‘” & Format(TglSampai, “dd/mm/yyyy”) & “’” cr1.RetrieveDataFiles cr1.PrintReport End If Else If Ctkperhari.Visible = True Then proses koneksi str = “select * from client_log_out where tanggal = ‘” & Format(TglHari, “dd/mm/yyyy”) & “’” rs.Open str, db If rs.EOF = False Then cr1.Reset cr1.ReportFileName = App.Path & “LaporanLaporan Penda- patan Warnet.rpt” cr1.WindowState = crptMaximized cr1.SelectionFormula = “{client_log_out.Tanggal}= ‘” & Format(TglHari, “dd/mm/yyyy”) & “’” cr1.RetrieveDataFiles cr1.PrintReport End If End If End If End If  2  3  4   5  6  7  8  9  10  11   12  13  14  15  16  17  18   19  20  21  22  23  24  25  26   27  28  29  30   31  32   33  34  35  37  38  39 70 Aplikasi Database dengan VB  untuk  Orang Awam 9. Masih pada komponen Image1, kali ini pada pilihan procedure Anda ganti dengan nama MouseDown, kemudian ketikkan kode program seperti di bawah ini : 10. Masih pada komponen Image1, kali ini pada pilihan procedure Anda ganti dengan nama MouseUp, kemudian ketikkan kode program seperti di bawah ini : Exit Sub End Sub  41 Baris 1 • Merupakan fungsi untuk keluar dari sub procedu- re apabila dalam ketiga Option tersebut tidak ada yang dipilih. Baris 2 - 7 • Merupakan fungsi if yang apabila Option1 dengan nama caption Cetak Seluruh di pilih maka Laporan Pendapatan warnet secara keseluruhan akan dice- tak. Baris 8-21 • Merupakan fungsi if yang apabila Option2 dengan nama caption Cetak Per Periode dipilih maka Lap- oran Pendapatan warnet secara perperiode akan dicetak Baris 22-41 • Merupakan fungsi if yang apabila Option3 deng- an nama caption Cetak Per Hari dipilih maka lap- oran Pendapatan Warnet secara perhari akan dic- etak.   Keterangan Kode Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Image1.BorderStyle = 1 Label2.ForeColor = vbRed End Sub   1  2 Baris 1 - 2 • Merupakan fungsi yang apabila komponen Image1 diklik maka properties BorderStyle bernilai Satu, dan label2 akan berwarna merah.   Keterangan Kode Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Image1.BorderStyle = 0   1 71 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  11. Klik ganda pada lembar form, kemudian ketikkan kode program seperti di bawah ini: 12. Masih pada procedure Form_Load, kali ini pada pilihan procedure Anda ganti dengan nama Activate. Kemudian ketikkan kode program seperti di bawah ini : Baris 1 - 2 • Merupakan fungsi yang apabila komponen Image1 diklik maka properties BorderStyle bernilai Nol, dan label4 akan berwarna hitam.   Keterangan Kode Label2.ForeColor = vbBlack End Sub  2 • Baris 1 Merupakan fungsi untuk memanggil procedure den- gan nama koneksi.   Keterangan Kode Private Sub Form_Load() koneksi End Sub   1   • Baris 1 - 3  Merupakan fungsi untuk memformat tanggal pa- da komponen DTPicker, menurut sistem kompu- ter.  Baris 4 - 5 • Merupakan fungsi untuk tidak menampilkan ko- mponen frame dengan nama FrmHari dan Frmp- eriode.   Keterangan Kode Private Sub Form_Activate() TglAwal = Format(Date, “mm/dd/yyyy”) TglSampai = Format(Date, “mm/dd/yyyy”) TglHari = Format(Date, “mm/dd/yyyy”) FrmHari.Visible = False Frmperiode.Visible = False posisi Ctkslr.Value = False CtkPerperiode.Value = False Ctkperhari.Value = False End Sub   1  2  3  4  5  6  7  8  9 72 Aplikasi Database dengan VB  untuk  Orang Awam g. Membuat kode program Menu Kirim Pesan 1. Anda aktifkan form Menu Kirim Pesan Billing Warnet Server. 2. Kemudian Anda aktifkan Form Code dengan menekan tombol View Code  , Anda hapus teks Option Explicit,  kemudian ketikkan kode program seperti di bawah ini : 3. Selanjutnya buat Procedure  dengan nama koneksi,  kemudian ketikkan kode program seperti di bawah ini : 4. Selanjutnya buat Procedure  lagi dengan nama bersih,  kemudian ketikkan kode program seperti di bawah ini : Sub bersih() DBNmPC = “Klik ----- >”  1  2 • Baris 1 - 2  Merupakan fungsi untuk mendeklarasikan varia- bel Db   dan Rs   sebagai fungsi untuk mengkonek- sikan database ke form .  Baris 3 • Merupakan fungsi untuk mendeklarasikan varia- bel dengan nama Str   dengan   type data String  . Keterangan Kode Dim db As ADODB.Connection Dim rs As ADODB.Recordset Dim str As String  1  2  3 Sub koneksi() Set db = New ADODB.Connection Set rs = New ADODB.Recordset db.Open “DSN=Maxiwarnet” End Sub  1  2  3  4  5 Baris 1 • Membuat sub sendiri dengan nama koneksi. Baris 2 - 4 • Merupakan fungsi untuk membuka database yang telah dibuat berdasarkan nama DSN. Baris 5 • Akhir dari Sub koneksi Keterangan Kode   • Baris 7 - 9  Merupakan fungsi untuk memanggil procedure dengan nama posisi, dan memberikan nilai False pada seluruh komponen Option. 73 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  5. Selanjutnya buat Procedure  lagi dengan nama proses,  kemudian ketikkan kode program seperti di bawah ini : 6. Selanjutnya buat Procedure  lagi dengan nama posisi,  kemudian ketikkan kode program seperti di bawah ini : 7. Klik ganda pada lembar form, kemudian ketikkan kode program seperti di bawah ini: Sub proses() str = “select * from monitor_client” db.Execute (str) Adodc1.Refresh str = “select * from pesan” db.Execute (str) Adodc2.Refresh End Sub  1  2  3  4  5  6  7  8 Baris 2 - 7 • Merupakan fungsi untuk merefresh atau memper- baharui data yang tersimpan didalam tabel Monit- or_Client dan Pesan pada database MaxiWarnet.   Keterangan Kode Sub posisi() Me.Left = 0 Me.Top = 0 End Sub  1  2  3  4 Baris 2 - 3 • Merupakan fungsi untuk mengatur posisi form Pesan tepat berada di atas sudut kiri form Menu Utama   Keterangan Kode Baris 2 - 3 • Merupakan fungsi untuk memberikan teks pada komponen DataCombo1 dan mengosongkan kol- om teks dengan nama Isi_Pesan.   Keterangan Kode isi_pesan = “” End Sub  3  4 Private Sub Form_Load() koneksi End Sub   1   74 Aplikasi Database dengan VB  untuk  Orang Awam 8. Masih pada procedure Form_Load, kali ini pada pilihan procedure Anda ganti dengan nama Activate. Kemudian ketikkan kode program seperti di bawah ini : 9. Klik ganda pada komponen Datacombo1, kemudian ketikkan kode program seperti di bawah ini: 10. Masih pada procedure Click, komponen DataCombo1, kali ini pada pilihan procedure Anda ganti dengan nama Keypress. Kemudian ketikkan kode program seperti di bawah ini :   • Baris 1 Merupakan fungsi untuk memanggil procedure den- gan nama koneksi.   Keterangan Kode   • Baris 1 - 2  Merupakan fungsi untuk memanggil procedure dengan nama Posisi dan Proses.   Keterangan Kode Private Sub Form_Activate() posisi proses End Sub   1  2   • Baris 1 - 4  Merupakan fungsi untuk merefresh data pada tabel Data_Client_Online.   Keterangan Kode Private Sub DBNmPC_Click(Area As Integer) koneksi str = “select * from data_client_online” db.Execute (str) Adodc1.Refresh End Sub   1  2  3  4   • Baris 1 Merupakan fungsi untuk memblok ASCII pada keyboard.   Keterangan Kode Private Sub DBNmPC_KeyPress(KeyAscii As Integer) KeyAscii = 0 End Sub   1   75 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  11. Masih pada procedure Keypress, kompoenen DataCombo1, kali ini pada pilihan procedure Anda ganti dengan nama Change. Kemudian ketikkan kode program seperti di bawah ini : 12. Klik ganda pada komponen TextBox1 dengan nama Isi_Pesan, pada pilihan Procedure Anda ganti dengan nama Keypress, kemudian ketikkan kode program seperti di bawah ini : 13. Klik ganda pada komponen Image3, kemudian ketikkan kode program seperti di bawah ini:   • Baris 1 Merupakan fungsi untuk menempatkan kursor fokus pada kolom teks Isi Pesan.   Keterangan Kode Private Sub DBNmPC_Change() isi_pesan.SetFocus End Sub   1   • Baris 1 - 3  Merupakan fungsi untuk mengganti ASCII keybo- ard 39 dengan ASCII 34.   Keterangan Kode Private Sub isi_pesan_KeyPress(KeyAscii As Integer) If KeyAscii = 39 Then KeyAscii = 34 End If End Sub   1  2  3 Private Sub Image3_Click() If DBNmPC = “Klik ----- >” Then DBNmPC.SetFocus: Exit Sub ProgressBar1.Visible = True For a = 0 To ProgressBar1.Max  ProgressBar1 = a Next a ProgressBar1.Visible = False koneksi str = “select * from monitor_client where nama_pc = ‘” & DBNmPC & “’” rs.Open str, db If rs.EOF = False Then nplgn = rs.Fields(“nama_pelanggan”) End If str = “insert into pesan(tujuan,nama_pelanggan,isi_pesan) values(‘” & DBNmPC & “’,’” & nplgn & “’,’” & isi_pesan & “’)”   1   2  3  4  5  6  7  8  9  10  11  12  13 76 Aplikasi Database dengan VB  untuk  Orang Awam 14. Masih pada komponen Image3, kali ini pada pilihan procedure Anda ganti dengan nama MouseDown, kemudian ketikkan kode program seperti di bawah ini : 15. Masih pada komponen Image3, kali ini pada pilihan procedure Anda ganti dengan nama MouseDown, kemudian ketikkan kode program seperti di bawah ini : 16. Klik ganda pada komponen Timer1, kemudian ketikkan kode program seperti di bawah ini:   • Baris 1 - 6  Merupakan fungsi untuk meenjalankan kompon- en Progressbar1 dan menempatkan kursor ke Komponen DataCombo1 apabila teks pada Data- Combo1 tidak berubah.   Keterangan Kode db.Execute (str) Adodc2.Refresh proses bersih End Sub  14  15  16  17 Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Image3.BorderStyle = 1 Label1.ForeColor = vbRed End Sub   1  2 Baris 1 - 2 • Merupakan fungsi yang apabila komponen Image3 diklik maka properties BorderStyle bernilai Satu, dan label1 akan berwarna merah.   Keterangan Kode Private Sub Image3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Image3.BorderStyle = 0 Label1.ForeColor = vbBlack End Sub   1  2 Baris 1 - 2 • Merupakan fungsi yang apabila komponen Image3 diklik maka properties BorderStyle bernilai Nol, dan Label1 akan berwarna hitam.   Keterangan Kode 77 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  17. Klik ganda pada komponen Timer2, kemudian ketikkan kode program seperti di bawah ini: a. Membuat kode program Menu Log In Client 1. Anda aktifkan form Menu Log In Billing Warnet Client. 2. Kemudian Anda aktifkan Form Code dengan menekan tombol View Code  , kemudian ketikkan kode program seperti di bawah ini : Private Sub Timer1_Timer() Image1.Left = Val(Image1.Left) - 120 If Image1.Left = 480 Then Image1.Left = 2400 End If End Sub   1  2  3  4 Baris 1 - 4 • Merupakan fungsi untuk membuat animasi berge- dari kiri ke kanan pada komponen Image1   Keterangan Kode Private Sub Timer2_Timer() If Image2.Visible = False Then Image2.Visible = True Else Image2.Visible = False End If End Sub   1  2  3  4 Baris 1 - 4 • Merupakan fungsi untuk membuat animasi berke- lip pada komponen Image2   Keterangan Kode 4.4.2 Membuat Kode Program Billing Client Option Explicit Const HWND_TOPMOST = -1 Const HWND_NOTOPMOST = -2 Const SWP_NOSIZE = &H1 Const SWP_NOMOVE = &H2 Const SWP_NOACTIVATE = &H10 Const SWP_SHOWWINDOW = &H40  1  2  3  4  5  6  7 78 Aplikasi Database dengan VB  untuk  Orang Awam 3. Selanjutnya buat Procedure  dengan nama koneksi,  kemudian ketikkan kode program seperti di bawah ini : Private Declare Sub SetWindowPos Lib “user32” (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) Private Declare Function Putfocus Lib “user32” Alias “Set- Focus” (ByVal hwnd As Long) As Long Private Declare Function ShowCursor Lib “user32” (ByVal bShow As Long) As Long Private Declare Function ShowWindow Lib “user32” (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWin- dowName As String) As Long Private Declare Function BringWindowToTop Lib “user32” (ByVal hwnd As Long) As Long Private Declare Function PaintDesktop Lib “user32” (ByVal hdc As Long) As Long Dim db As ADODB.Connection Dim rs As ADODB.Recordset Dim str, tgl, jmlonline, noonline, ket As String  8  9  10  11  12  13  14  15 Baris 1 • Merupakan fungsi yang akan mewajibkan Anda untuk mendeklarasikan semua variabel. Baris 2 - 7 • Merupakan fungsi yang akan mengatur posisi form agar selalu berada diatas. Baris 8 - 11 • Merupakan fungsi API yang akan mendukung deklarasi dari kode baris ke dua sampai ke tujuh. Baris 12 • Merupakan fungsi API yang akan mencetak tampilan dekstop pada lembar form. Baris 13-14 • Merupakan fungsi untuk mendeklarasikan varia- bel Db   dan Rs   sebagai fungsi untuk mengkonek- sikan database ke form . Baris 15 • Merupakan fungsi untuk mendeklarasikan varia- bel Str, tgl, jmlonline, noonline, ket dengan tipe data String.   Keterangan Kode 79 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  5. Klik ganda pada komponen TextBox1 dengan nama TxtNama, kemudian ketikkan kode program seperti di bawah ini: 6. Klik ganda pada komponen LaVolpeButton1 dengan nama caption Ok, kemudian ketikkan kode program seperti di bawah ini: Sub koneksi() Set db = New ADODB.Connection Set rs = New ADODB.Recordset db.Open “DSN=Maxiwarnet” End Sub  1  2  3  4  5 Baris 1 • Membuat sub sendiri dengan nama koneksi. Baris 2 - 4 • Merupakan fungsi untuk membuka database yang telah dibuat berdasarkan nama DSN. Baris 5 • Akhir dari Sub koneksi Keterangan Kode Private Sub TxtNama_Change() If TxtNama.Text = “” Then Timer4.Enabled = True Else Timer4.Enabled = False End If End Sub   1  2  3  4  5 Baris 1 - 5 • Merupakan fungsi untuk mengaktifkan Timer4 apabila kolom teks Txtnama kosong dan sebalik- nya menonaktifkan Timer4 apabila kolom teks dengan nama TxtNama tidak kosong. Keterangan Kode Private Sub CmdMulai_Click() If TxtNama = “” Then TxtNama.SetFocus: Exit Sub str = “Delete from log_in” db.Execute (str) str = “delete from pesan where tujuan = ‘” & Winsock1. LocalHostName & “’” db.Execute (str) proses tgl = StatusBar1.Panels(3) koneksi str = “select * from jumlah_pc_online where Tanggal = ‘” & tgl & “’”   1  2  3  4   5 4  5  6  7   80 Aplikasi Database dengan VB  untuk  Orang Awam Baris 1 • Merupakan fungsi apabila kolom teks dengan nama TxtNama kosong maka kursor akan fokus. Baris 2 - 13 • Merupakan fungsi untuk menghapus seluruh isi berdasarkan nama tujuan dan menampilkan ju- mlah PC Online pada kolom StatusBar1 Panels ke tiga berdaasarkan tanggal. Baris 14-24 • Merupakan fungsi untuk menginput jumlah PC Online, menginput data Client ke dalam tabel Monitor Client dan Log In Client. Baris 25-27 • Merupakan fungsi untuk memanggil procedure proses, keluar dari form Log In dan menampilk- an Menu Monitor Harga.   Keterangan Kode rs.Open str, db If rs.EOF = False Then jmlonline = rs.Fields(“Jumlah”) noonline = Val(jmlonline) + 1 str = “Update jumlah_pc_online set jumlah = ‘” & noonline & “’ where tanggal = ‘” & tgl & “’” db.Execute (str) Else tgl = StatusBar1.Panels(3) noonline = 1 str = “insert into jumlah_pc_online(jumlah,tanggal)val- ues(‘” & noonline & “’,’” & tgl & “’)” db.Execute (str) End If ket = “Umum” str = “insert into monitor_client(Tanggal,Nama_pc,nama_ pelanggan,jam_masuk,kategori_pelanggan)values(‘” & Sta- tusBar1.Panels(3) & “’,’” & Winsock1.LocalHostName & “’,’” & TxtNama.Text & “’,’” & StatusBar1.Panels(4) & “’,’” & ket & “’)” db.Execute (str) str = “insert into log_in (Nama_pc,Nama_pelanggan,jam_ masuk)values(‘” & Winsock1.LocalHostName & “’,’” & Txt- Nama.Text & “’,’” & StatusBar1.Panels(4) & “’)” db.Execute (str) proses Unload Me Monitor_Harga.Show End Sub  8  9  10  11  12   13  14  15  16  17  18  19  20  21  22 23  24  25  26  27 81 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  7. Klik ganda pada komponen LaVolpeButton2 dengan nama caption ShutDown, kemudian ketikkan kode program seperti di bawah ini: 8. Klik ganda pada komponen Picture1, kemudian ketikkan kode program seperti di bawah ini: 9. Masih pada komponen Picture1, kali ini pada pilihan procedure Anda ganti dengan nama MouseMove, kemudian ketikkan kode program seperti di bawah ini: 10. Klik ganda pada komponen Timer1, kemudian ketikkan kode program seperti berikut ini: Private Sub CmdShutDown_Click() Shell “shutdown -s -f -t 0” End Sub   1 Baris 1 • Merupakan fungsi untuk mematikan Komputer.   Keterangan Kode Private Sub Picture1_Click() Timer4.Enabled = True Picture1.BorderStyle = 1 TxtNama.Visible = True CmdMulai.Visible = True TxtNama.SetFocus End Sub   1  2  3  4  5 Baris 1 • Merupakan fungsi untuk mengaktifkan Timer4 Baris 2 - 5 • Merupakan fungsi untuk mengatur BorderStyle Dari Picture1, menampilkan TextBox dengan nama TxtNama dan tombol LaVolpeButton1 den- gan nama CmdMulai. Serta membuat kursor fok- us ke kolom teks TxtNama.   Keterangan Kode Private Sub Picture1_MouseMove(Button As Integer, Shift  As Integer, X As Single, Y As Single) Timer3.Enabled = True End Sub   1   Baris 1 • Merupakan fungsi untuk mengaktifkan Timer3   Keterangan Kode 82 Aplikasi Database dengan VB  untuk  Orang Awam 11. Klik ganda pada komponen Timer2, kemudian ketikkan kode program seperti berikut ini: 12. Klik ganda pada komponen Timer3, kemudian ketikkan kode program seperti berikut ini: Private Sub Timer1_Timer() StatusBar1.Panels(4) = Format(Time, “hh:mm:ss”) End Sub   1   Baris 1 • Merupakan fungsi untuk menampilkan waktu pada komponen StatusBar1 Panel ke empat.   Keterangan Kode Private Sub Timer2_Timer() PaintDesktop Me.hdc BringWindowToTop Me.hwnd SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOAC- TIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE Dim H As Long  H = FindWindow(“#32770”, “Windows Task Manager”) If H Then ShowWindow H, 0  H = FindWindow(“#32771”, vbNullString) If H Then ShowWindow H, 0  H = FindWindow(“BaseBar”, vbNullString) If H Then ShowWindow H, 0  H = FindWindow(“Shell_TrayWnd”, vbNullString) If H Then ShowWindow H, 0 Rem ShowCursor False End Sub   1  2  3  4  5  6  7 8  9  10  11  12  13   Baris 1 • Merupakan fungsi API yang akan mencetak tam- pilan dekstop ke lembar form Log In client. Baris 2 - 3 • Merupakan fungsi API yang akan mengatur tam- pilan form agar selalu berada di atas. Baris 4 - 13 • Merupakan fungsi API yang akan memblok tam- pilan Windows Task manager   dan Basebar  .   Keterangan Kode Private Sub Timer3_Timer() If Picture1.BackColor = vbRed Then Picture1.BackColor = vbBlack Else Picture1.BackColor = vbRed   1  2  3  4 83 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  13. Klik ganda pada komponen Timer4, kemudian ketikkan kode program seperti berikut ini: b. Membuat kode program Menu Monitor Harga Client 1. Anda aktifkan form Menu Monitor Harga Billing Warnet Client. 2. Kemudian Anda aktifkan Form Code dengan menekan tombol View Code  , Anda hapus teks Option Explicit,  kemudian ketikkan kode program seperti di bawah ini : End If End Sub  5   Baris 1-5 • Merupakan fungsi untuk membuat animasi berkel pada properties BackColor komponen Picture1. Keterangan Kode Private Sub Timer4_Timer() If TxtNama.Text = “” Then TxtNama.Visible = False CmdMulai.Visible = False End If End Sub   1  2  3  4 Baris 1-4 • Merupakan fungsi untuk menghilangkan TextBox1 dengan nama TxtNama dan LaVolpeButton1 dengan caption Ok, apabila kolom teks dengan na- ma TxtNama.   Keterangan Kode   • Baris 1 - 2  Merupakan fungsi untuk mendeklarasikan varia- bel Db   dan Rs   sebagai fungsi untuk mengkonek- sikan database ke form .   Keterangan Kode Dim db As ADODB.Connection Dim rs As ADODB.Recordset Dim str As String Dim mulai As Date Dim durasi As Double  1  2  3  4  5 84 Aplikasi Database dengan VB  untuk  Orang Awam 3. Selanjutnya buat Procedure  dengan nama koneksi,  kemudian ketikkan kode program seperti di bawah ini : 4. Selanjutnya buat lagi Procedure  dengan nama Proses,  kemudian ketikkan kode program seperti di bawah ini : 5. Selanjutnya buat Procedure  lagi dengan nama Identitas,  kemudian ketikkan kode program seperti di bawah ini :   • Baris 3 - 5  Merupakan fungsi untuk mendeklarasikan varia- bel str   dngan tipe data String  , mulai dengan tipe data Date , dan Durasi dengan tipe data Double . Sub koneksi() Set db = New ADODB.Connection Set rs = New ADODB.Recordset db.Open “DSN=Maxiwarnet” End Sub  1  2  3  4  5 Baris 1 • Membuat sub sendiri dengan nama koneksi. Baris 2 - 4 • Merupakan fungsi untuk membuka database yang telah dibuat berdasarkan nama DSN. Baris 5 • Akhir dari Sub koneksi Keterangan Kode Sub proses() koneksi str = “select * from jumlah_pc_online” db.Execute (str) Adodc1.Refresh str = “select * from client_log_out” db.Execute (str) Adodc2.Refresh str = “select * from pesan” db.Execute (str) Adodc3.Refresh End Sub  1  2  3  4  5  6  7  8  9  10  11 Baris 1-11 • Merupakan fungsi untuk merefresh tabel Jumlah_- pc_online, Client_Log_Out, dan Pesan.   Keterangan Kode Sub identitas() LblNmPC = Winsock1.LocalHostName  1  2 85 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  6. Selanjutnya buat Procedure  lagi dengan nama Nama_Plgn,   kemudian ketikkan kode program seperti di bawah ini : 7. Selanjutnya buat Procedure  lagi dengan nama Tampil_Pesan,   kemudian ketikkan kode program seperti di bawah ini : 8. Selanjutnya buat Procedure  lagi dengan nama Perhitungan_Harga,   kemudian ketikkan kode program seperti berikut ini : End Sub 3 Sub nama_plgn() koneksi str = “select * from log_in” rs.Open str, db If rs.EOF = False Then Lblnmplgn = rs.Fields(“nama_pelanggan”) lblmulai = rs.Fields(“jam_masuk”) End If End Sub  1  2  3  4  5  6  7  8  9 Baris 1 - 9 • Merupakan fungsi untuk menampilkan nama pel- anggan dan jam masuk pada komponen Lblnmpl- gn dan Lblmulai berdasarkan record yang sudah tersimpan di Menu Log In.   Keterangan Kode Sub tampil_pesan() koneksi str = “select * from pesan where tujuan = ‘” & LblNmPC & “’” rs.Open str, db If rs.EOF = False Then Isi_Pesan.Show Else Exit Sub End If End Sub  1  2  3  4  5  6  7  8  9  10 Baris 1 - 9 • Merupakan fungsi untuk menampilkan nama pel- anggan dan jam masuk pada komponen Lblnmpl- gn dan Lblmulai berdasarkan record yang sudah tersimpan di Menu Log In.   Keterangan Kode 86 Aplikasi Database dengan VB  untuk  Orang Awam 9. Klik ganda pada komponen Image1, kemudian ketikkan kode program seperti di bawah ini: Sub perhitungan_harga() koneksi ta = “select * from data_harga “ rs.Open ta, db If rs.EOF = False Then hrgperjam = rs.Fields(“harga_per_jam”) lbldurasi1 = Format(lbldurasi, “hhmmss”) harga = hrgperjam * lbldurasi1 / 6000 Lblhrg = Format(harga, “Rp #,#””,00”) End If End Sub  1  2  3  4  5  6  7  8  9  10 Baris 1 - 10 • Merupakan fungsi untuk meghitung total harga berdasarkan durasi pemakaian per jam.   Keterangan Kode Private Sub Image1_Click() tgl = Format(Date, “DD/MM/YYYY”) koneksi str = “select * from jumlah_pc_online where Tanggal = ‘” & tgl & “’” rs.Open str, db If rs.EOF = False Then jml_online = rs.Fields(“Jumlah”) no_online = Val(jml_online) - 1 str = “Update jumlah_pc_online set jumlah = ‘” & no_online & “’ where tanggal = ‘” & tgl & “’” db.Execute (str) Lblhrg1 = Mid(Lblhrg, 4, 20) Lblhrg2 = Format(Lblhrg1, “#”) Lblhrg3 = Val(Lblhrg2) / 100 str = “insert into client_log_out (Nama_PC,Nama_ Pelanggan,Jam_Mulai,Jam_Berhenti,Durasi,total_ harga,Tanggal)values(‘” & LblNmPC & “’,’” & Lblnmplgn & “’,’” & lblmulai & “’,’” & Lblwkt & “’,’” & lbldurasi & “’,’” & Lblhrg3 & “’,’” & tgl & “’)” db.Execute (str) proses End If Shell “shutdown -r -f -t 0” End Sub   1  2  3   4  5  6  7  8   9  10  11  12  13  14  15  16  17   87 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  10. Masih pada komponen Image1, kali ini pada pilihan procedure Anda ganti dengan nama MouseDown, kemudian ketikkan kode program seperti di bawah ini: 11. Masih pada komponen Image1, kali ini pada pilihan procedure Anda ganti dengan nama MouseUp, kemudian ketikkan kode program seperti di bawah ini: 12. Klik ganda pada komponen Image2, kemudian ketikkan kode program seperti di bawah ini: Baris 1 - 17 • Merupakan fungsi untuk mengakhiri Bill Client, dengan terlebih dahulu menginput data client yang berhenti. Baris 18 • Merupakan fungsi untuk merestart komputer.   Keterangan Kode Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Image1.BorderStyle = 1 Label1.ForeColor = vbRed End Sub   1  2   • Baris 1 - 2  Merupakan fungsi untuk merubah properties Bo- rderStyle dan merubah warna Label1 menjadi warna merah.   Keterangan Kode Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Image1.BorderStyle = 0 Label1.ForeColor = vbBlack End Sub   1  2   • Baris 1 - 2  Merupakan fungsi untuk merubah properties Bo- rderStyle dan merubah warna Label1 menjadi warna hitam.   Keterangan Kode Private Sub Image2_Click() Me.WindowState = 1 End Sub   1   88 Aplikasi Database dengan VB  untuk  Orang Awam 13. Masih pada komponen Image2, kali ini pada pilihan procedure Anda ganti dengan nama MouseDown, kemudian ketikkan kode program seperti di bawah ini: 14. Masih pada komponen Image2, kali ini pada pilihan procedure Anda ganti dengan nama MouseUp, kemudian ketikkan kode program seperti di bawah ini: 15. Klik ganda pada komponen Timer1, kemudian ketikkan kode program seperti di bawah ini:   • Baris 1 Merupakan fungsi untuk membuat menu Monitor Harga menjadi Minimize.   Keterangan Kode Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Image2.BorderStyle = 1 Label2.ForeColor = vbRed End Sub   1  2   • Baris 1 - 2  Merupakan fungsi untuk merubah properties Bo- rderStyle dan merubah warna Label2 menjadi warna merah.   Keterangan Kode Private Sub Image2MouseUp(Button As Integer, Shift As In- teger, X As Single, Y As Single) Image2.BorderStyle = 0 Label2.ForeColor = vbBlack End Sub   1  2   • Baris 1 - 2  Merupakan fungsi untuk merubah properties Bo- rderStyle dan merubah warna Label2 menjadi warna hitam.   Keterangan Kode Private Sub Timer1_Timer() Me.WindowState = 1 Timer1.Enabled = False End Sub   1  2 89 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  16. Klik ganda pada komponen Timer2, kemudian ketikkan kode program seperti di bawah ini: 17. Klik ganda pada komponen Timer3, kemudian ketikkan kode program seperti di bawah ini: 18. Klik ganda pada komponen Timer4, kemudian ketikkan kode program seperti di bawah ini: 19. Klik ganda pada komponen Timer5, kemudian ketikkan kode program seperti di bawah ini:   • Baris 1 - 2  Merupakan fungsi untuk meminimize menu dan menonaktifkan fungsi Timer1.   Keterangan Kode Private Sub Timer2_Timer() Lblwkt = Format(Time, “HH:MM:SS”) End Sub   1   • Baris 1 Merupakan fungsi untuk menampilkan waktu menurut sistem komputer   Keterangan Kode Private Sub Timer3_Timer() Timer3.Enabled = False End Sub   1   • Baris 1 Merupakan fungsi untuk menonaktifkan fungsi  Timer3   Keterangan Kode Private Sub Timer4_Timer() tampil_pesan End Sub   1   • Baris 1 Merupakan fungsi untuk memanggil procedure  Tampil Pesan.   Keterangan Kode Private Sub Timer5_Timer() mulai = Format(lblmulai, “hh:mm:ss”) durasi = Time - mulai   1  2 90 Aplikasi Database dengan VB  untuk  Orang Awam c. Membuat kode program Menu Isi Pesan 1. Anda aktifkan form Menu Isi Pesan Billing Warnet Client. 2. Kemudian Anda aktifkan Form Code dengan menekan tombol View Code  , Anda hapus teks Option Explicit,  kemudian ketikkan kode program seperti di bawah ini : 3. Selanjutnya buat Procedure  dengan nama koneksi,  kemudian ketikkan kode program seperti di bawah ini : lbldurasi = Format(durasi, “hh:mm:ss”) End Sub  3   • Baris 1 - 3  Merupakan fungsi untuk menampilkan durasi pemakaian komputer.   Keterangan Kode   • Baris 1 - 2  Merupakan fungsi untuk mendeklarasikan varia- bel Db   dan Rs   sebagai fungsi untuk mengkonek- sikan database ke form .  Baris 3 • Merupakan fungsi untuk mendeklarasikan varia- bel dengan nama Str   dengan   type data String  . Keterangan Kode Dim db As ADODB.Connection Dim rs As ADODB.Recordset Dim str As String  1  2  3 Sub koneksi() Set db = New ADODB.Connection Set rs = New ADODB.Recordset db.Open “DSN=Maxiwarnet” End Sub  1  2  3  4  5 Baris 1 • Membuat sub sendiri dengan nama koneksi. Baris 2 - 4 • Merupakan fungsi untuk membuka database yang telah dibuat berdasarkan nama DSN. Baris 5 • Akhir dari Sub koneksi Keterangan Kode 91 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  4. Selanjutnya buat Procedure  dengan nama  Proses,  kemudian ketikkan kode program seperti di bawah ini : 5. Selanjutnya buat Procedure  dengan nama  Nama_Pc,  kemudian ketikkan kode program seperti di bawah ini : 6. Selanjutnya buat Procedure  dengan nama  Tampil_Pesan,  kemudian ketikkan kode program seperti di bawah ini : Sub proses() koneksi str = “select * from pesan” db.Execute (str) Adodc1.Refresh End Sub  1  2  3  4  5  6 Baris 1 • Membuat sub sendiri dengan nama koneksi. Baris 2 - 4 • Merupakan fungsi untuk membuka database yang telah dibuat berdasarkan nama DSN. Baris 5 • Akhir dari Sub koneksi Keterangan Kode Sub nama_pc() np = Winsock1.LocalHostName End Sub  1  2  3 Baris 1 • Merupakan fungsi untuk menampilkan nama sist- em komputer   Keterangan Kode Sub tampil_pesan() nama_pc proses koneksi str = “select * from pesan where tujuan = ‘” & np & “’” rs.Open str, db If rs.EOF = False Then pesan = rs.Fields(“isi_pesan”) Nplgn = rs.Fields(“nama_pelanggan”) End If End Sub  1  2  3  4  5  6  7 Baris 1 • Merupakan fungsi untuk menampilkan isi pesan dengan terlebih dahulu menampilkan procedure   Keterangan Kode 92 Aplikasi Database dengan VB  untuk  Orang Awam 7. Klik ganda pada komponen TextBox1 dengan nama Pesan, pada pilihan Procedure Anda pilih Keypress, kemudian ketikkan kode program seperti di bawah ini: 8. Klik ganda pada komponen Image1, pada pilihan Procedure Anda pilih Keypress, kemudian ketikkan kode program seperti di bawah ini: 9. Masih pada komponen Image1, kali ini pada pilihan procedure Anda ganti dengan nama MouseDown, kemudian ketikkan kode program seperti di bawah ini: 10. Masih pada komponen Image1, kali ini pada pilihan procedure Anda ganti dengan nama MouseUp, kemudian ketikkan kode program seperti di bawah ini: Private Sub pesan_KeyPress(KeyAscii As Integer) KeyAscii = 0 End Sub  1  2  3 Baris 1 • Merupakan fungsi untuk memblok seluruh ASCII pada keyboard   Keterangan Kode Private Sub Image1_Click() str = “delete from pesan where tujuan = ‘” & np & “’” db.Execute (str) proses Unload Me End Sub   1  2  3  4 Baris 1 • -4 Merupakan fungsi untuk menghapus isi pesan be- dasarkan tujuan.   Keterangan Kode Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Image1.BorderStyle = 1 Label3.ForeColor = vbRed End Sub   1  2   • Baris 1 - 2  Merupakan fungsi untuk merubah properties Bo- rderStyle dan merubah warna Label3 menjadi warna merah.   Keterangan Kode 93 B  a  b  4  A   p l   i   k   a  s  i     B  i   l   l   i   n  g W  a r  n  e t  Sebagai bahan latihan, Aplikasi Billing Warnet ini masih sederhana dengan sistem keamanan yang masih rendah. Untuk mengembangkan lebih baik lagi Anda dapat mencoba soal di bawah ini, atau Anda bisa berkreasi sendiri sesuai dengan keinginan Anda. A. Membuat Harga Berdasarkan Durasi Dan record Data Harga Pada aplikasi Billing Warnet ini, Anda buat suatu perhitungan biaya rental berdasarkan record data harga per jam dari tabel Data_Harga dengan perbedaan tipe pelanggan dan lamanya durasi. b. Membuat Harga Berdasarkan Durasi Dan Kategori Pelanggan Pada aplikasi Billing Warnet ini, Anda buat suatu perhitungan biaya rental berdasarkan record tabel Data Harga. Dan harga ditentukan dari tabel record Data Harga berdasarkan kategori pelanggan baik itu berdasarkan Nama PC Vip ataupun yang lainya. Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Image1.BorderStyle = 0 Label3.ForeColor = vbBlack End Sub   1  2   • Baris 1 - 2  Merupakan fungsi untuk merubah properties Bo- rderStyle dan merubah warna Label3 menjadi warna hitam.   Keterangan Kode Perhatian :  Aplikasi Billing Warnet ini belum memiliki keamanan yang kuat, maksud • dari pembuatan aplikasi ini adalah untuk membahas kinerja dari pem- buatan Billing Warnet sederhana pada umumnya. Untuk pembuatan laporan dengan menggunakan Crystal Report 8.5 •  Anda bisa lihat pada CD Video Tutorial  sertaan buku ini. 2  4.5 Soal