billing by yusy

VIEWS: 1,759 PAGES: 93

									                            Bab 4

Aplikasi
Billing Warnet


• Membuat Tampilan
• Mengatur Properties
• Membuat Database
• Membuat Kode Program
• Membuat Laporan Dengan Crystal Report 8.5
• Soal
Aplikasi Database dengan VB untuk Orang Awam

Pada bab ini kita akan membahas tentang Aplikasi Database Billing
Warnet. Aplikasi Billing Warnet ini adalah sebuah aplikasi yang dapat
digunakan untuk menghitung perincian biaya yang dikeluarkan untuk
pemakaian internet dari komputer client, berdasarkan waktu lama
pemakaian komputer tersebut dan harga yang telah ditetapkan.

 4.1 Membuat Tampilan
Aplikasi Billing ini memiliki dua bagian masing masing memiliki menu
yang digunakan untuk memanipulasi data. di bawah ini akan di jelaskan
bagian-bagian aplikasi dan menu-menu yang akan Anda buat.

1. Aplikasi Billing Warnet Server. Terdiri dari 8 menu, yaitu :
•       Menu User Admin Log In
•       Menu Utama
•       Menu Monitor Client
•       Menu Input User Admin
•       Menu Pengaturan
•       Menu Cetak Laporan Pendapatan
•       Menu Kirim Pesan
•       Menu Client Log Out

2. Aplikasi Billing Warnet Client. Terdiri dari 3 menu, yaitu :
•       Menu Log in Client
•       Menu Monitor Harga Client
•       Menu Isi Pesan

Untuk penggunaan komponen pada aplikasi ini tidak ada yang berbeda
pada aplikasi-aplikasi sebelumnya, hanya beda cara penggunaannya
saja.

4.1.1 Membuat Tampilan Billing Warnet Server
a. Membuat tampilan Menu User Admin Log In
Menu User Log ini berfungsi untuk membatasi pemakaian Billing Server
berdasarkan nama user admin yang terdaftar saja dengan memberikan
password sebagai pengaman agar tidak bisa di pakai oleh orang lain.



    2
                    Gambar 4.1. Menu Log In User Admin
Langkah-langkah membuat tampilan

1. Bukalah program aplikasi Visual Basic 6.0 Anda.
2. Setelah tampil form kosong, Anda tampilkan kotak dialog
   Components, dengan mengklik menu Project kemudian Pilih
   Components atau tekan tombol Ctrl + T pada keyboard.
3. Lalu pada kotak dialog Componets, Anda aktifkan beberapa tanda
   cek seperti Crystal Report Control, Microsoft ADO Data Control
   6.0 (OLE DB), Microsoft DataGrid Control 6.0 (OLEDB), Microsoft
   DataList Control 6.0, Microsoft FlexGrid Control 6.0, Microsoft




                                                                            Bab 4 Aplikasi Billing Warnet
   Tabbed Dialog Control 6.0, Microsoft Windows Common Control
   6.0 (SP6), Microsoft Windows Common Control-2 6.0.
4. Kemudian Anda letakkan ke dalam form tiga Label, tiga TextBox,
   dua CommandButton, tiga Adodc, satu Timer, satu Image dan satu
   StatusBar        , lalu Anda atur posisinya seperti Gambar 4.2




       Label1 s.d                                   TextBox1
       Label3                                       s.d TextBox3

          Image1                                    CommandButton1
                                                    s.d CommandButton3
           Timer1
                                                    Adodc1 s.d Adodc3

       StatusBar1
        Gambar 4.2. Membuat tampilan Menu User Admin Log In

b. Membuat tampilan Menu Utama


                                                                        3
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
                1. Klik Menu Project



                                        2. Klik
                                        Add MDI Form


               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




 4
     1. Klik
     MDI Form



                                                        2. Klik Open




                   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


                                    2. Kotak Dialog Menu Editor




                                                                           Bab 4 Aplikasi Billing Warnet
              1. Klik
         Menu Editor




           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




                                                                       5
    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.




2
    Perhatian :
    Untuk pembuatan nama pada baris kolom Name Menu Editor, Anda dapat
    membuat nama sesuai dengan keinginan Anda dan nama tidak boleh sama.



      6
            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

    Menu Editor

     Adodc1 s.d
       Adodc2                                        Timer1 s.d
                                                     Timer2




                                                                      Bab 4 Aplikasi Billing Warnet
       StatusBar1


             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.




                                                                  7
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
                                    1. Klik Menu Project
                                                           3. Pilih Dialog




  2. Klik Add Form




                     Gambar 4.12. Menambahkan Form baru




  8
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




  MSFlexGrid1




       Timer1
                                                         Image1
   Adodc1 s.d
      Adodc2                                             Label1

          Gambar 4.13. Membuat tampilan Menu Monirtor Client

d. Membuat tampilan Menu Input User Admin




                                                                        Bab 4 Aplikasi Billing Warnet
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.




                                                                  9
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




                                                     CheckBox1




        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




 10
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




       SSTab1




            Gambar 4.17. Menambahkan komponen SSTab1
3. Kemudian pada komponen SSTab1 khususnya “Tab 0” Anda




                                                                        Bab 4 Aplikasi Billing Warnet
   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




                                                        DataGrid1




                   DataCombo1

      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.



                                                                11
Aplikasi Database dengan VB untuk Orang Awam




      DataGrid1




       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




 12
       OptionBox1
   s.d OptionBox2


       DTPicker1                                         DTPicker2


                 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.




                                                         Crystal
     Frame3 Dan                                          Report1
       DTPicker3
      (Di Tumpuk




                                                                        Bab 4 Aplikasi Billing Warnet
           Di Atas
         Frame2)
                     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



                                                                   13
Aplikasi Database dengan VB untuk Orang Awam

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


         DataCombo1


            TextBox1



                                              Progressbar1
              Image2                          Image3
                                              Label1
                                Image1
          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



 14
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.


                     Shape1
                     Shape2



                     Shape3




                                                                        Bab 4 Aplikasi Billing Warnet
         Gambar 4.26. Membuat tampilan Menu Client Log Out


4.1.2 Membuat Tampilan Billing Warnet Client
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



                                                                15
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
         1. Klik File
                                           2. Klik New
                                           Project



                      3. Pilih
               Standard EXE



                         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




     1. Pilih File ocx
     LVbuttons.ocx
                                                             2. Klik Open




                Gambar 4.29. Membuka file OCX LVbuttons.ocx



 16
8. Lalu pada kotak dialog Components, Aktifkan tanda cek pada
   komponen LVbuttons, lalu klik tombol Ok. Lihat Gambar 4.30.




     Aktifkan Tanda
             Cek Ini

              Gambar 4.30. Membuka File Ocx LVbuttons.ocx
9. Kemudian dalam Toolbar General, akan bertambah komponen
   baru dengan nama LaVolpeButton   . Lihat Gambar 4.31.




                                 LaVolpeButton

                  Gambar 4.31. Komponen LaVolpeButton
10. Anda buka lagi kotak dialog Componets, Anda aktifkan beberapa




                                                                          Bab 4 Aplikasi Billing Warnet
    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.




          PictureBox1

                                                    LaVolpeButton1

                                                    Winsock1
      LaVolpeButton2



               Gambar 4.32. Membuat tampilan Client Log In




                                                                     17
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.


                   Shape1
                   Shape2



                   Shape3




          Gambar 4.34. Membuat tampilan Menu Monitor Client



 18
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.




                                                                        Bab 4 Aplikasi Billing Warnet
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.




           TexBox1




          Gambar 4.36. Membuat Tampilan Menu Pesan Client




                                                                19
    Aplikasi Database dengan VB untuk Orang Awam


     4.2 Mengatur Properties
    Di bawah ini akan ditampilkan tabel nilai properties secara keseluruhan
    dari komponen yang telah diletakkan pada lembar form.

    4.2.1 Mengatur Properties Billing Warnet Server
    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

      Nama Control      Properties       Nilai Pengaturan
      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




2
    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.



     20
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

  Nama Control       Properties       Nilai Pengaturan
  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


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




                                                                     Bab 4 Aplikasi Billing Warnet
  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




                                                              21
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

  Nama Control      Properties       Nilai 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

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

  Nama Control      Properties       Nilai Pengaturan
  Dialog2           Name             Pengaturan
                    Caption          Pengaturan
                    Height           4350
                    Width            6810
  SSTab1            Caption          Input Harga
                    Tab              0
                    Caption          Input PC Vip




 22
                       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&




                                                                             Bab 4 Aplikasi Billing Warnet
                       BorderStyle      0 - dbgNoBorder
                       DataSources      Adodc1
     DataGrid2         BackColor        &H00FFFFC0&
                       BorderStyle      0 - dbgNoBorder
                       DataSources      Adodc2


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

     Nama Control      Properties       Nilai Pengaturan
     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




                                                                        23
    Aplikasi Database dengan VB untuk Orang Awam


         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




2
    •	    Untuk pengaturan Properties selengkapnya pada komponen Crystal-
          Report1 dapat Anda lihat pada saat pembuatan laporan dengan Crystal
          Report 8.5



    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

         Nama Control          Properties       Nilai Pengaturan
         Dialog4               Name             Pesan
                               Caption          Kirim Pesan
                               Height           4350
                               Width            6810
         Frame1                Caption          Nama PC Client
         Frame2                Caption          Isi Pesan
         Label1                Caption          Kirim




         24
  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


h. Mengatur properties Menu Client Log Out
Nilai properties komponen yang melekat pada form Menu Client Log




                                                                   Bab 4 Aplikasi Billing Warnet
Out secara keseluruhan, dapat Anda lihat pada Tabel 4.8.
                 Tabel 4.8. Properties Menu Client Log Out

  Nama Control       Properties        Nilai Pengaturan
  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




                                                              25
Aplikasi Database dengan VB untuk Orang Awam


   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


4.2.2 Mengatur Properties Billing Warnet Client
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

  Nama Control     Properties        Nilai Pengaturan
  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




 26
                     Picture          (Icon)
  StatusBar1         Font             Tahoma
  Adodc1             Visible          False
  Adodc2             Visible          False
  Adodc3             Visible          False
  Adodc4             Visible          False


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

  Nama Control      Properties       Nilai Pengaturan
  Dialog            Name             Monitor_Harga
                    Caption          (Dikosongkan)
                    Height           5655
                    Width            2970
  Label1            Caption          Stop
                    Font             Tahoma
  Label2            Caption          Kecilkan
                    Font             Tahoma
  Label3            Caption          Harga :




                                                                      Bab 4 Aplikasi Billing Warnet
                    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




                                                               27
Aplikasi Database dengan VB untuk Orang Awam


  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

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

  Nama Control    Properties       Nilai Pengaturan
  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)




 28
                     Stretch            True
  Timer1             Enabled            False
                     Interval           500
  Winsock1           Name               Winsock1
  Adodc1             Visible            False


4.3 Membuat Database
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.

4.3.1 Membuat Tabel
Untuk nama - nama Tabel database yang diperlukan dapat Anda lihat
pada Tabel 4.12
               Tabel 4.12. Daftar nama tabel dan field - field

 Nama Tabel          Nama Field                Type              Ukuran
  Client_Log_Out     Nama_PC                    Text             20
                     Nama_Pelanggan             Text             35
                     Jam_Mulai                  Text             8




                                                                               Bab 4 Aplikasi Billing Warnet
                     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




                                                                          29
Aplikasi Database dengan VB untuk Orang Awam


                     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

4.3.2 Koneksi Database Ke ODBC
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

               1. Pilih ini
                                                   2. Pilih ini




         Gambar 4.37. Membuat Koneksi Database Ke ODBC



 30
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
  1. Klik Tab ini

                                                          3. Klik Tombol
                                                          Add.

      2. Pilih Ini




                     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.




                                                                           Bab 4 Aplikasi Billing Warnet


             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.




                                                                    31
Aplikasi Database dengan VB untuk Orang Awam




        Klik Ini




         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



        2. Pilih
      Database




                                                       1. Cari Lokasi
                   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.




 32
4.3.3 Mengatur Properties Adodc
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




         1. Klik
         Kanan




                                                    2. Pilih
                                                    ADODC Properties




                                                                            Bab 4 Aplikasi Billing Warnet
                       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.



                                                                       33
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.
                                1. Klik Tab Ini




              2. Pilih Ini



          3. Pilih Tabel




        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

     Nama Form               Nama Control         Nama Tabel
     Log_In                  Adodc1               User_Admin
                             Adodc2               User_Admin_Login




 34
                           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

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

 Nama Form                 Nama Control        Nama Tabel
 LogIn                     Adodc1              Log_In
                           Adodc2              Monitor_Client




                                                                         Bab 4 Aplikasi Billing Warnet
                           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
Dalam subbab ini Anda akan menuliskan kode program yang dibutuhkan
untuk mendukung jalannya Aplilkasi Database Billing Warnet.

4.4.1 Membuat Kode Program Billing Server
a. Membuat kode program Menu Log In

1. Pastikan Form Log In Billing Warnet Server aktif.




                                                                    35
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 :

  1     Dim db As ADODB.Connection
  2     Dim rs As ADODB.Recordset
  3     Dim str As String

       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.

3. Selanjutnya buat Procedure dengan nama koneksi, kemudian
   ketikkan kode program seperti di bawah ini :

  1    Sub koneksi()
  2    Set db = New ADODB.Connection
  3    Set rs = New ADODB.Recordset
  4    db.Open “DSN=Maxiwarnet”
  5    End Sub

       Keterangan Kode
  •	    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
4. Selanjutnya buat Procedure lagi dengan nama Log, kemudian
   ketikkan kode program seperti di bawah ini :

  1    Sub log()
  2    If Menu_Utama.Enabled = False Then
  3    cmdbtl.Enabled = False
  4    Else
  5    cmdbtl.Enabled = True
  6    End If
       End Sub

       Keterangan Kode
 •	    Baris 1    Membuat sub sendiri dengan nama Log.




 36
 •	    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.

5. Selanjutnya buat Procedure lagi dengan nama Proses, kemudian
   ketikkan kode program seperti di bawah ini :

  1    Sub proses()
  2    koneksi
  3    str = “select * from user_admin”
  4    db.Execute (str)
  5    Adodc1.Refresh
  6    koneksi
  7    str = “select * from user_admin_login”
  8    db.Execute (str)
  9    Adodc2.Refresh
  10   koneksi
  11   str = “select * from user_Admin_online”
  12   db.Execute (str)
  13   Adodc3.Refresh
  14   End Sub




                                                                      Bab 4 Aplikasi Billing Warnet
       Keterangan Kode
  •	    Baris 1 - 14 Merupakan fungsi untuk merefresh seluruh tabel
                     dalam database agar data selalu baru.
6. Klik ganda pada lembar form, kemudian ketikkan kode program
   seperti di bawah ini:

       Private Sub Form_Load()
  1    StatusBar1.Panels(1) = Format(Date, “DD/MM/YYYY”)
  2    koneksi
       End Sub


       Keterangan Kode
 •	    Baris 1    Mencetak tanggal menurut sistem komputer pada
                  komponen StatusBar panel ke 1.
 •	    Baris 2    Merupakan fungsi untuk memanggil procedure
                  Koneksi.




                                                                37
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 :

       Private Sub Form_Activate()
  1    log
       End Sub

       Keterangan Kode
  •	   Baris 1   Merupakan fungsi untuk memanggil procedure
                 dengan nama Log.
8. Klik ganda pada komponen textbox dengan nama Id, kemudian
   ketikkan kode program seperti di bawah ini:

        Private Sub id_Change()
   1    koneksi
   2    str = “select * from user_admin where id_user = ‘” & id
   3    & “’”
   4    rs.Open str, db
   5    If rs.EOF = False Then
   6    Nama = rs.Fields(“nama_user”)
   7    Else
   8    Nama = “”
   9    End If
        End Sub

       Keterangan Kode
  •	    Baris 1 - 9 Menampilkan nama user admin pada kolom text
                    Nama bila id user ditemukan dan mengosongkan
                    bila tidak ditemukan.
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_KeyPress(KeyAscii As Integer)
  1    If KeyAscii = 39 Then
  2    KeyAscii = 34
  3    End If
       End Sub

       Keterangan Kode
  •	   Baris 1 - 3 Mengganti karakter ASCII keyboard 39 dengan
                   ASCII 34.




 38
10. Klik ganda kolom text Nama, Anda ganti pilihan Procedure dengan
    nama Keypress, kemudian ketikkan kode program seperti di bawah
    ini:

       Private Sub Nama_KeyPress(KeyAscii As Integer)
  1    KeyAscii = 0
       End Sub

       Keterangan Kode
  •	   Baris 1   Kolom teks tidak bisa diisi dengan karakter apapun
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)
  1    If KeyAscii = 39 Then
  2    KeyAscii = 34
  3    Else
  4    If KeyAscii = 13 Then
  5    If id = “” Then id.SetFocus: Exit Sub
  6    If psw = “” Then psw.SetFocus: Exit Sub
  7    koneksi
  8    str = “select * from user_admin where id_user = ‘” & id &




                                                                      Bab 4 Aplikasi Billing Warnet
       “’ and password = ‘” & psw & “’”
  9    rs.Open str, db
  10   If rs.EOF = False Then
  11   str = “insert into user_admin_login(tanggal,id_user,nama_
       user,jam_log_in)values(‘” & StatusBar1.Panels(1) & “’,’”
       & id & “’,’” & Nama & “’,’” & StatusBar1.Panels(2) &
       “’)”
  12   db.Execute (str)
  13   koneksi
  14   str = “select * from user_admin_online”
  15   rs.Open str, db
  16   If rs.EOF = False Then
  17   str = “update user_admin_online set nama_user = ‘” & Nama
       & “’”
  18   db.Execute (str)
  19   proses
  20   Else
  21   str = “insert into user_admin_online(id_user,nama_user)
       values(‘” & id & “’,’” & Nama & “’)”
  22   db.Execute (str)
  23   proses
  24   End If




                                                                39
Aplikasi Database dengan VB untuk Orang Awam


  25   Unload Me
  26   Menu_Utama.Enabled = True
  27   Menu_Utama.Show
  28   Else
  29   MsgBox “Password Anda Salah”, vbCritical, “Maxi Warnet”
  30   End If
  31   End If
  32   End If
       End Sub

       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.
12. Klik ganda pada CommandButton dengan caption OK, kemudian
    ketikkan kode program seperti di bawah ini :

       Private Sub Cmdok_Click()
  1    If id = “” Then id.SetFocus: Exit Sub
  2    If psw = “” Then psw.SetFocus: Exit Sub
  3    koneksi
  4    str = “select * from user_admin where id_user = ‘” & id &
       “’ and password = ‘” & psw & “’”
  5    rs.Open str, db
  6    If rs.EOF = False Then
  7    str = “insert into user_admin_login(tanggal,id_user,nama_
       user,jam_log_in)values(‘” & StatusBar1.Panels(1) & “’,’”
       & id & “’,’” & Nama & “’,’” & StatusBar1.Panels(2) &
       “’)”
  8    db.Execute (str)
  9    koneksi
  10   str = “select * from user_admin_online”
  11   rs.Open str, db
  12   If rs.EOF = False Then
  13   str = “update user_admin_online set nama_user = ‘” & Nama
       & “’”
  14   db.Execute (str)




 40
  15 proses
  16 Else
     str = “insert into user_admin_online(id_user,nama_user)
     values(‘” & id & “’,’” & Nama & “’)”
  17 db.Execute (str)
  18 proses
  19 End If
  20 Unload Me
  21 Menu_Utama.Enabled = True
  22 Menu_Utama.Show
  23 Else
  24 MsgBox “Password Anda Salah”, vbCritical, “Maxi Warnet”
  25 End If
     End Sub

      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.




                                                                    Bab 4 Aplikasi Billing Warnet
 •	   Baris 29-32 Merupakan fungsi untuk menampilkan Pesan ap-
                  bila data user admin tidak ditemukan.
13. Klik ganda pada CommandButton dengan caption Batal, kemudian
    ketikkan kode program seperti di bawah ini :

      Private Sub cmdbtl_Click()
  1   End
      End Sub

      Keterangan Kode
 •	   Baris 1 Merupakan fungsi untuk Mengakhiri Jalannya Aplikasi
14. Klik ganda pada komponen Timer1, kemudian ketikkan kode
    program seperti di bawah ini :

      Private Sub Timer1_Timer()
  1   StatusBar1.Panels(2) = Format(Time, “HH:MM:SS”)
      End Sub




                                                              41
Aplikasi Database dengan VB untuk Orang Awam


       Keterangan Kode
 •	    Baris 1 Merupakan fungsi untuk Menampilkan waktu menu-
               rut sistem komputer pada status bar panel ke dua.

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 :

  1     Dim db As ADODB.Connection
  2     Dim rs As ADODB.Recordset
  3     Dim str As String

       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.

3. Selanjutnya buat Procedure dengan nama koneksi, kemudian
   ketikkan kode program seperti di bawah ini :

   1    Sub koneksi()
   2    Set db = New ADODB.Connection
   3    Set rs = New ADODB.Recordset
   4    db.Open “DSN=Maxiwarnet”
   5    End Sub

       Keterangan Kode
  •	    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
4. Selanjutnya buat Procedure lagi dengan nama Proses, kemudian
   ketikkan kode program seperti di bawah ini :

   1    Sub proses()
   2    koneksi




 42
  3     str = “select * from jumlah_pc_online”
  4     db.Execute (str)
  5     Adodc1.Refresh
  6     str = “select * from user_admin_online”
  7     db.Execute (str)
  8     Adodc2.Refresh
  9     End Sub

       Keterangan Kode
 •	      Baris 2 - 8 Merupakan fungsi untuk memrefresh database
                     agar data yang ditampilkan selalu terbaru

5. Selanjutnya buat Procedure lagi dengan nama Jumlah_PC, kemudian
   ketikkan kode program seperti di bawah ini :

  1  Sub Jumlah_pc()
  2  tgl = Format(Date, “DD/MM/YYYY”)
  3  koneksi
  4  str = “select * from jumlah_pc_online where Tanggal = ‘”
     & tgl & “’”
  5 rs.Open str, db
  6 If rs.EOF = False Then
  7 jumlah_online = rs.Fields(“jumlah”)
  8 StatusBar1.Panels(3) = “PC Online : “ & jumlah_online &




                                                                       Bab 4 Aplikasi Billing Warnet
     “”
  9 Else
  10 StatusBar1.Panels(3) = “PC Online : 0”
  11 End If
  12 End Sub

       Keterangan Kode
  •	     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.

6. Selanjutnya buat Procedure lagi dengan nama User_Online,
   kemudian ketikkan kode program seperti di bawah ini :

  1     Sub user_online()
  2     koneksi
  3     str = “select * from user_admin_online”
  4     rs.Open str, db




                                                                  43
Aplikasi Database dengan VB untuk Orang Awam


  5    If rs.EOF = False Then
  6    opr = rs.Fields(“Nama_User”)
  7    StatusBar1.Panels(2) = “Operator : “ & opr & “”
  8    End If
  9    End Sub

      Keterangan Kode
 •	    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.
7. Klik ganda pada lembar form, kemudian ketikkan kode program
   seperti di bawah ini:

      Private Sub MDIForm_Load()
  1   StatusBar1.Panels(4) = Format(Date, “DD/MMMM/YYYY”)
  2   koneksi
  3   Jumlah_pc
  4   jalan = StatusBar1.Panels(1).Text
      End Sub

      Keterangan Kode
 •	   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.
8. Masih pada procedure MDIForm_Load, kali ini pada pilihan
   procedure Anda ganti dengan nama Activate. Kemudian ketikkan
   kode program seperti di bawah ini :

       Private Sub MDIForm_Activate()
  1    proses
  2    Jumlah_pc
  3    user_online
       End Sub

      Keterangan Kode
 •	    Baris 1 - 3 Merupakan fungsi untuk memanggil procedure
                   Proses, Jumlah_PC, User_Online.



 44
9. Kemudian pada procedure Form_Activate, kali ini pada pilihan
   procedure Anda ganti dengan nama Unload. Kemudian ketikkan
   kode program seperti di bawah ini :

        Private Sub MDIForm_Unload(Cancel As Integer)
  1     keluar = MsgBox(“Benar Anda Ingin Keluar ?”, vbQuestion +
  2     vbYesNo, “Maxi Warnet”)
  3     If keluar = vbYes Then
  4     Unload Me
  5     Else
  6     Cancel = 1
  7     End If
        End Sub

       Keterangan Kode
 •	     Baris 1 - 7 Merupakan fungsi untuk menampilkan pesan ya-
                    ng apabila tombol Close window pada Menu Uta-
                    ma di klik.
10. Klik ganda pada komponen Timer1, kemudian ketikkan kode
    program seperti di bawah ini:

       Private Sub Timer1_Timer()
  1    StatusBar1.Panels(5) = Format(Time, “HH:MM:SS”)
       End Sub




                                                                    Bab 4 Aplikasi Billing Warnet
       Keterangan Kode
 •	    Baris 1     Merupakan fungsi untuk menampilkan waktu
                   menurut sistem komputer pada komponen Stat-
                   usBar panel ke lima.
11. Klik ganda pada komponen Timer2, kemudian ketikkan kode
    program seperti di bawah ini:

        Private Sub Timer2_Timer()
  1     Jumlah_pc
        End Sub

       Keterangan Kode
  •	    Baris 1    Merupakan fungsi untuk memanggil procedure
                   dengan nama Jumlah_PC
12. Klik ganda pada komponen Timer3, kemudian ketikkan kode
    program seperti di bawah ini:




                                                              45
Aplikasi Database dengan VB untuk Orang Awam


        Private Sub Timer3_Timer()
  1     On Error Resume Next
  2     a = Left(jalan, 1)
  3     c = Len(jalan)
  4     b = Right(jalan, c - 1)
  5     jalan = b + a
  6     StatusBar1.Panels(1).Text = jalan
        End Sub

       Keterangan Kode
  •	    Baris 1   Merupakan fungsi untuk menampilkan animasi
                  teks berjalan pada kolom StatusBar panels ke
                  satu.
13. Selanjutnya Anda klik menu editor dengan nama Monitor_Client,
    kemudian ketikkan kode program seperti di bawah ini :

        Private Sub Mnumc_Click()
  1     Monitor.Show
        End Sub

       Keterangan Kode
  •	    Baris 1 Merupakan fungsi untuk menampilkan form Monitor
                Client.
14. Anda klik menu editor dengan nama Input_User, kemudian ketikkan
    kode program seperti di bawah ini :

       Private Sub MnuIU_Click()
  1    User_Admin.Show
       End Sub

       Keterangan Kode
 •	    Baris 1 Merupakan fungsi untuk menampilkan form Input
               User
15. Anda klik menu editor dengan nama Input_User, kemudian ketikkan
    kode program seperti di bawah ini :

        Private Sub mnupngr_Click()
  1     Pengaturan.Show
        End Sub




 46
      Keterangan Kode
 •	    Baris 1 Merupakan fungsi untuk menampilkan form Pengat-
               uran.
16. Anda klik menu editor dengan nama Cetak_Pendapatan, kemudian
    ketikkan kode program seperti di bawah ini :

      Private Sub MnuPndpt_Click()
  1   Ctk_Pendapatan.Show
      End Sub

      Keterangan Kode
 •	   Baris 1 Merupakan fungsi untuk menampilkan form Cetak
              Pendapatan.
17. Anda klik menu editor dengan nama Log Out, kemudian ketikkan
    kode program seperti di bawah ini :

      Private Sub Mnulg_Click()
  1   Log_In.Show
  2   Me.Enabled = False
      End Sub




                                                                      Bab 4 Aplikasi Billing Warnet
      Keterangan Kode
 •	    Baris 1 - 2 Merupakan fungsi untuk menampilkan form Log
                   In dan menonaktifkan form Menu Utama.
18. Anda klik menu editor dengan nama Keluar, kemudian ketikkan
    kode program seperti di bawah ini :

       Private Sub MnuKlr_Click()
  1    keluar = MsgBox(“Benar Anda Ingin Keluar ?”, vbQuestion +
       vbYesNo, “Maxi Warnet”)
  2    If keluar = vbYes Then
  3    Unload Me
  4    Else
  5    Exit Sub
  6    End If
       End Sub

      Keterangan Kode
 •	    Baris 1 - 6 Merupakan fungsi untuk menampilkan pesan ya-
                   ng apabila tombol Yes di klik maka aplikasi akan




                                                                47
Aplikasi Database dengan VB untuk Orang Awam


 •	                ditutup namun bila sebaliknya maka aplikasi
                   akan tetap berjalan.

19. Anda klik menu editor dengan nama Kirim Pesan, kemudian
    ketikkan kode program seperti di bawah ini :

        Private Sub MnuKp_Click()
  1     Pesan.Show
        End Sub

       Keterangan Kode
 •	     Baris 1-2 Merupakan fungsi untuk menampilkan form Pesan

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 :

  1    Dim db As ADODB.Connection
  2    Dim rs As ADODB.Recordset
  3    Dim str As String

      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.

3. Selanjutnya buat Procedure dengan nama koneksi, kemudian
   ketikkan kode program seperti di bawah ini :

  1     Sub koneksi()
  2     Set db = New ADODB.Connection
  3     Set rs = New ADODB.Recordset
  4     db.Open “DSN=Maxiwarnet”
  5     End Sub




 48
       Keterangan Kode
 •	     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
4. Selanjutnya buat Procedure lagi dengan nama Proses, kemudian
   ketikkan kode program seperti di bawah ini :

  1    Sub proses()
  2    str = “select * from monitor_client”
  3    db.Execute (str)
  4    Adodc1.Refresh
  5    str = “select * from data_client_online”
  6    db.Execute (str)
  7    Adodc2.Refresh
  8    End Sub

       Keterangan Kode
  •	     Baris 2 - 7 Merupakan fungsi untuk me-refresh database
                     agar data yang ditampilkan selalu terbaru
5. Selanjutnya buat Procedure lagi dengan nama Grid_Properties,




                                                                       Bab 4 Aplikasi Billing Warnet
   kemudian ketikkan kode program seperti di bawah ini :

  1 Sub gridproperties()
  2 With GridMonitor
  3   .Cols = 4
  4   .Rows = 1
  5   .FocusRect = flexFocusHeavy
  6   .SelectionMode = flexSelectionFree
  7   .ColWidth(0) = 1500
  8   .ColWidth(1) = 3000
  9   .ColWidth(2) = 1500
  10  .ColWidth(3) = 2557
  11  .Row = 0
  12  .Col = 0
  13  .Text = “Nama PC”
  14  .Col = 1
  15  .Text = “Nama Pelanggan”
  16  .Col = 2
  17  .Text = “Jam Mulai”
  18  .Col = 3
  19  .Text = “Kategory Pelanggan”




                                                                  49
Aplikasi Database dengan VB untuk Orang Awam


  20 End With
  21 End Sub

       Keterangan Kode
 •	      Baris 2-20 Merupakan fungsi untuk membuat kolom header
                    sebanyak empat buah pada komponen MSFlexG-
                    rid.
6. Selanjutnya buat Procedure lagi dengan nama Grid_Data, kemudian
   ketikkan kode program seperti di bawah ini :

  1     Sub Grid_Data()
  2     With GridMonitor
  3       .AddItem “” & vbTab & “” & vbTab & “”
  4     End With
  5     End Sub

       Keterangan Kode
  •	     Baris 2 - 4 Merupakan fungsi untuk membuat kolom item
                     data pada komponene MSFlexGrid.
7. Selanjutnya buat Procedure lagi dengan nama Data, kemudian
   ketikkan kode program seperti di bawah ini :

  1     Sub data()
  2     gridproperties
  3     Grid_Data
  4     tgl = Format(Date, “dd/mm/yyyy”)
  5     koneksi
  6     str = “select * from monitor_client where tanggal = ‘” &
        tgl & “’”
  7     rs.Open str, db
  8     If rs.EOF = False Then
  9     rs.MoveFirst
  10    Do While Not rs.EOF
  11    GridMonitor.TextMatrix(GridMonitor.Row,0)
        = rs.Fields(“Nama_PC”)
  12    GridMonitor.TextMatrix(GridMonitor.Row,1)
        = rs.Fields(“Nama_pelanggan”)
  13    GridMonitor.TextMatrix(GridMonitor.Row,2)
        = rs.Fields(“Jam_Masuk”)
  14    GridMonitor.TextMatrix(GridMonitor.Row,3)
        = rs.Fields(“Kategori_Pelanggan”)
  15    rs.MoveNext
  16    GridMonitor.Rows = GridMonitor.Rows + 1




 50
  17    GridMonitor.Row = GridMonitor.Row + 1
  18    Loop
  19    GridMonitor.Rows = GridMonitor.Rows - 1
  20    End If
  21    End Sub

       Keterangan Kode
  •	    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.

8. Selanjutnya buat Procedure lagi dengan nama Posisi, kemudian
   ketikkan kode program seperti di bawah ini :

  1     Sub posisi()
  2     Me.Left = 0
  3     Me.Top = 0
  4     End Sub

       Keterangan Kode




                                                                           Bab 4 Aplikasi Billing Warnet
 •	      Baris 2 - 3 Merupakan fungsi untuk mengatur posisi form
                     Monitor Client tepat berada di atas sudut kiri
                     form Menu Utama
9. Klik ganda pada lembar form, kemudian ketikkan kode program
   seperti di bawah ini:

        Private Sub Form_Load()
  1     koneksi
  2     gridproperties
  3     Grid_Data
        End Sub

       Keterangan Kode
  •	     Baris 1 - 3 Merupakan fungsi untuk memanggil procedure
                     dengan nama koneksi, gridproperties, grid_data.
10. Masih pada procedure Form_Load, kali ini pada pilihan procedure
    Anda ganti dengan nama Activate. Kemudian ketikkan kode
    program seperti di bawah ini :




                                                                      51
Aplikasi Database dengan VB untuk Orang Awam


        Private Sub Form_Activate()
  1     posisi
  2     proses
  3     data
        End Sub

       Keterangan Kode
  •	     Baris 1 - 3 Merupakan fungsi untuk memanggil procedure
                     dengan nama posisi, proses, data.
11. Klik ganda pada komponen MSFlexGrid, pada pilihan procedure
    Anda ganti dengan nama DblClick, kemudian ketikkan kode
    program seperti di bawah ini:

        Private Sub Gridmonitor_DblClick()
  1     koneksi
  2     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) & “’”
  3     rs.Open str, db
  4     If rs.EOF = False Then
  5     tgl = Format(Date, “dd/mm/yyyy”)
  6     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) & “’”
  7     db.Execute (str)
  8     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 & “’)”
  9     db.Execute (str)
  10    proses
  11    Monitor.Enabled = False
  12    Client_Log_Out.Show
  13    Else
  14    Exit Sub
  15    End If
        End Sub




 52
      Keterangan Kode
 •	    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
12. Klik ganda pada komponen Image1, kemudian ketikkan kode
    program seperti di bawah ini :

       Private Sub Image1_Click()
  1    Unload Me
       End Sub

      Keterangan Kode
 •	     Baris 1    Merupakan fungsi untuk menutup form Menu
                   Monitor Client.
13. Masih pada komponen Image1, pada pilihan procedure Anda ganti
    dengan nama MouseDown, kemudian ketikkan kode program




                                                                      Bab 4 Aplikasi Billing Warnet
    seperti di bawah ini :

       Private Sub Image1_MouseDown(Button As Integer, Shift As
       Integer, X As Single, Y As Single)
  1    Image1.BorderStyle = 1
  2    Label1.ForeColor = vbRed
       End Sub

      Keterangan Kode
 •	     Baris 1 - 2 Merupakan fungsi untuk merubah properties Bo-
                    rderStyle dan merubah warna Label1 menjadi
                    warna merah.
14. Masih pada komponen Image1, pada pilihan procedure Anda ganti
    lagi dengan nama MouseUp, kemudian ketikkan kode program
    seperti di bawah ini :

       Private Sub Image1_MouseUp(Button As Integer, Shift As
       Integer, X As Single, Y As Single)
  1    Image1.BorderStyle = 0




                                                                53
Aplikasi Database dengan VB untuk Orang Awam


  2     Label1.ForeColor = vbBlack
        End Sub

       Keterangan Kode
 •	      Baris 1 - 2 Merupakan fungsi untuk merubah properties Bo-
                     rderStyle dan merubah warna Label1 menjadi
                     warna hitam.
15. Klik ganda pada komponen Timer1, kemudian ketikkan kode
    program seperti di bawah ini :

        Private Sub Timer1_Timer()
  1     data
        End Sub

       Keterangan Kode
 •	      Baris 1   Merupakan fungsi untuk memanggil procedure
                   dengan nama data.

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 :

  1     Dim db As ADODB.Connection
  2     Dim rs As ADODB.Recordset
  3     Dim str As String

       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.

3. Selanjutnya buat Procedure dengan nama koneksi, kemudian
   ketikkan kode program seperti di bawah ini :




 54
  1    Sub koneksi()
  2    Set db = New ADODB.Connection
  3    Set rs = New ADODB.Recordset
  4    db.Open “DSN=Maxiwarnet”
  5    End Sub

       Keterangan Kode
 •	    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
4. Selanjutnya buat Procedure lagi dengan nama Proses, kemudian
   ketikkan kode program seperti di bawah ini :

  1    Sub proses()
  2    koneksi
  3    str = “select * from user_admin”
  4    db.Execute (str)
  5    Adodc1.Refresh
  6    ID.Enabled = True
  7    ID.SetFocus
  8    ID = “”




                                                                       Bab 4 Aplikasi Billing Warnet
  9    Nama = “”
  10   Psw = “”
  11   End Sub

       Keterangan Kode
 •	     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.
5. Selanjutnya buat Procedure lagi dengan nama Posisi, kemudian
   ketikkan kode program seperti di bawah ini :

  1    Sub posisi()
  2    Me.Left = 0
  3    Me.Top = 0
  4    End Sub




                                                                 55
Aplikasi Database dengan VB untuk Orang Awam


       Keterangan Kode
  •	     Baris 2 - 3 Merupakan fungsi untuk mengatur posisi form
                     Monitor Client tepat berada di atas sudut kiri
                     form Menu Utama
6. Klik ganda pada lembar form, kemudian ketikkan kode program
   seperti di bawah ini:

        Private Sub Form_Load()
  1     koneksi
        End Sub

       Keterangan Kode
  •	    Baris 1 Merupakan fungsi untuk memanggil procedure den-
                gan nama koneksi.
7. Masih pada procedure Form_Load, kali ini pada pilihan procedure
   Anda ganti dengan nama Activate. Kemudian ketikkan kode
   program seperti di bawah ini :

        Private Sub Form_Activate()
  1     posisi
  2     ID.SetFocus
        End Sub

       Keterangan Kode
 •	     Baris 1 Merupakan fungsi untuk memanggil procedure den-
                gan nama posisi dan membuat kursor fokus ke kol-
                om teks ID.
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:

       Private Sub psw_KeyPress(KeyAscii As Integer)
  1    If KeyAscii = 39 Then KeyAscii = 34: Exit Sub
       End Sub

       Keterangan Kode
 •	     Baris 1     Mengganti karakter ASCII keyboard 39 dengan
                    ASCII 34.




 56
9. Klik ganda pada komponen TextBox dengan nama PSW, kemudian
   ketikkan kode program seperti di bawah ini:

      Private Sub psw_Change()
  1   If Psw = “” Then
  2   Clhtpsw.Enabled = False
  3   Else
  4   Clhtpsw.Enabled = True
  5   End If
      End Sub

      Keterangan Kode
 •	   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.
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:

      Private Sub psw_KeyPress(KeyAscii As Integer)
  1   If KeyAscii = 39 Then KeyAscii = 34: Exit Sub
      End Sub




                                                                    Bab 4 Aplikasi Billing Warnet
      Keterangan Kode
 •	   Baris 1    Mengganti karakter ASCII keyboard 39 dengan
                 ASCII 34.
11. Klik ganda pada komponen CheckBox dengan nama ClhtPsw,
    kemudian ketikkan kode program seperti di bawah ini:

      Private Sub Clhtpsw_Click()
  1   If Clhtpsw.Value = 0 Then
  2   Psw.PasswordChar = “*”
  3   Else
  4   Psw.PasswordChar = “”
  5   End If
      End Sub

      Keterangan Kode
 •	   Baris 1    Merupakan fungsi logika if yang apabila kompo-
                 nen checkbox bernilai nol, maka kolom teks Psw
                 properties passwordchar akan diaktifkan




                                                               57
Aplikasi Database dengan VB untuk Orang Awam



 •	               Namun bila sebaliknya maka properties Passwor-
                  Char akan dinonaktifkan
12. Klik ganda pada komponen Image1, kemudian ketikkan kode
    program seperti di bawah ini:

       Private Sub Image1_Click()
  1    If ID = “” Then ID.SetFocus: Image1.BorderStyle = 0: La-
       bel4.ForeColor = vbBlack: Exit Sub
  2    If Nama = “” Then Nama.SetFocus: Image1.BorderStyle = 0:
       Label4.ForeColor = vbBlack: Exit Sub
  3    If Psw = “” Then Psw.SetFocus: Image1.BorderStyle = 0:
       Label4.ForeColor = vbBlack: Exit Sub
  4    koneksi
  5    str = “select * from user_admin where id_user = ‘” & ID
       & “’”
  6    rs.Open str, db
  7    If rs.EOF = False Then
  8    MsgBox “Id User Sudah Ada”, vbCritical, “Maxi Warnet”
  9    SendKeys “{home}+{end}”
  10   ID.SetFocus
  11   Else
  12   str = “insert into user_admin(id_user,nama_user,password)
       values(‘” & ID & “’,’” & Nama & “’,’” & Psw & “’)”
  13   db.Execute (str)
  14   proses
  15   End If
       End Sub

       Keterangan Kode
 •	    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.
13. Masih pada komponen Image1, kali ini pada pilihan procedure
    Anda ganti dengan nama MouseDown, kemudian ketikkan kode
    program seperti di bawah ini:

       Private Sub Image1_MouseDown(Button As Integer, Shift As
       Integer, X As Single, Y As Single)




 58
  1     Image1.BorderStyle = 1
  2     Label4.ForeColor = vbRed
        End Sub

       Keterangan Kode
 •	    Baris 1 - 2 Merupakan fungsi yang apabila komponen Image1
                   diklik maka properties BorderStyle bernilai Satu,
                   dan label4 akan berwarna merah.
14. Masih pada komponen Image1, kali ini pada pilihan procedure
    Anda ganti dengan nama MouseUp, kemudian ketikkan kode
    program seperti di bawah ini:

       Private Sub Image1_MouseUp(Button As Integer, Shift As
       Integer, X As Single, Y As Single)
  1    Image1.BorderStyle = 0
  2    Label4.ForeColor = vbBlack
       End Sub

       Keterangan Kode
 •	    Baris 1 - 2 Merupakan fungsi yang apabila komponen Image1
                   diklik maka properties BorderStyle bernilai Nol,
                   dan label4 akan berwarna hitam.




                                                                       Bab 4 Aplikasi Billing Warnet
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 :

  1     Dim db As ADODB.Connection
  2     Dim rs As ADODB.Recordset
  3     Dim str As String

       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.




                                                                 59
Aplikasi Database dengan VB untuk Orang Awam

3. Selanjutnya buat Procedure dengan nama koneksi, kemudian
   ketikkan kode program seperti di bawah ini :

  1    Sub koneksi()
  2    Set db = New ADODB.Connection
  3    Set rs = New ADODB.Recordset
  4    db.Open “DSN=Maxiwarnet”
  5    End Sub

      Keterangan Kode
 •	    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
4. Selanjutnya buat Procedure lagi dengan nama Proses, kemudian
   ketikkan kode program seperti di bawah ini :

  1    Sub proses()
  2    str = “select * from data_harga”
  3    db.Execute (str)
  4    Adodc1.Refresh
  5    DataGrid1.Refresh
  6    str = “select * from nama_pc_vip”
  7    db.Execute (str)
  8    Adodc2.Refresh
  9    DataGrid2.Refresh
  10   Hrg_Jam = “”
  11   Ktg_Hrg = “”
  12   Nama_PC = “”
  13   End Sub

       Keterangan Kode
 •	    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.
5. Selanjutnya buat Procedure lagi dengan nama Posisi, kemudian
   ketikkan kode program seperti di bawah ini :

  1    Sub posisi()
  2    Me.Left = 0
  3    Me.Top = 0
  4    End Sub




 60
       Keterangan Kode
 •	  Baris 2 - 3 Merupakan fungsi untuk mengatur posisi form
                 Pengaturan tepat berada di atas sudut kiri form
                 Menu Utama
6. Klik ganda pada lembar form, kemudian ketikkan kode program
   seperti di bawah ini:

        Private Sub Form_Load()
  1     koneksi
        End Sub

       Keterangan Kode
  •	    Baris 1   Merupakan fungsi untuk memanggil procedure
                  dengan nama koneksi.
7. Masih pada procedure Form_Load, kali ini pada pilihan procedure
   Anda ganti dengan nama Activate. Kemudian ketikkan kode
   program seperti di bawah ini :

        Private Sub Form_Activate()
  1     posisi
  2     TabAtur.Tab = 0
        End Sub




                                                                     Bab 4 Aplikasi Billing Warnet
       Keterangan Kode
  •	    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.
8. Klik ganda komponen DataCombo1, pada pilihan procedure Anda
   ganti dengan nama Change. Kemudian ketikkan kode program
   seperti di bawah ini :

        Private Sub Ktg_Hrg_Change()
  1     koneksi
  2     str = “select * from data_harga where type_pelanggan = ‘”
        & Ktg_Hrg & “’”
  3     rs.Open str, db
  4     If rs.EOF = False Then
  5     Hrg_Jam = rs.Fields(“Harga_Per_Jam”)
  6     Else




                                                               61
Aplikasi Database dengan VB untuk Orang Awam


  7   Hrg_Jam = “”
  8   End If
      End Sub

      Keterangan Kode
 •	   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.
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 :

     Private Sub Hrg_Jam_KeyPress(KeyAscii As Integer)
  1  Select Case KeyAscii
  2  Case 48 To 57
  3  SendKeys “{end}”
  4  Hrg_Jam.SetFocus
  5  Case 8
  6  If Len(Hrg_Jam.Text) > 0 Then
  7  Hrg_Jam.Text = Left(Hrg_Jam.Text, (Len(Hrg_Jam.Text)-
     1))
  8      SendKeys “{end}”
  9 End If
  10 Case Else
  11 KeyAscii = 0
  12 End Select
     End Sub

      Keterangan Kode
 •	   Baris 1 - 12 Hanya bisa diisi dengan angka dan tombol
                   Backspace.
10. Klik ganda pada komponen Image1, kemudian ketikkan kode
    program seperti di bawah ini:

      Private Sub Image1_Click()
  1   If Ktg_Hrg = “” Then Ktg_Hrg.SetFocus: Image2.BorderStyle
      = 0: Label5.ForeColor = vbBlack: Exit Sub
  2   If Hrg_Jam = “” Then Hrg_Jam.SetFocus: Image2.BorderStyle
      = 0: Label5.ForeColor = vbBlack: Exit Sub
  3   koneksi




 62
  4    str = “select * from data_harga where Type_pelanggan = ‘”
       & Ktg_Hrg.Text & “’”
  5    rs.Open str, db
  6    If rs.EOF = False Then
  7    str = “update data_harga set harga_per_jam = ‘” & Hrg_Jam
       & “’ where type_pelanggan = ‘” & Ktg_Hrg & “’”
  8    db.Execute (str)
  9    proses
  10   Else
  11   str = “insert into data_harga(type_pelanggan,harga_per_
       jam)values(‘” & Ktg_Hrg & “’,’” & Hrg_Jam & “’)”
  12   db.Execute (str)
  13   proses
  14   End If
       End Sub

       Keterangan Kode
 •	    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-




                                                                       Bab 4 Aplikasi Billing Warnet
                   la ditemukan maka data akan diperbaiki namun
                   bila sebaliknya maka ada akan diinput baru.
11. Masih pada komponen Image1, kali ini pada pilihan procedure
    Anda ganti dengan nama MouseDown, kemudian ketikkan kode
    program seperti di bawah ini:

       Private Sub Image1_MouseDown(Button As Integer, Shift As
       Integer, X As Single, Y As Single)
  1    Image1.BorderStyle = 1
  2    Label4.ForeColor = vbRed
       End Sub

       Keterangan Kode
 •	    Baris 1 - 2 Merupakan fungsi yang apabila komponen Image1
                   diklik maka properties BorderStyle bernilai Satu,
                   dan label4 akan berwarna merah.
12. Masih pada komponen Image1, kali ini pada pilihan procedure
    Anda ganti dengan nama MouseUp, kemudian ketikkan kode
    program seperti di bawah ini:



                                                                 63
Aplikasi Database dengan VB untuk Orang Awam


      Private Sub Image1_MouseUp(Button As Integer, Shift As
      Integer, X As Single, Y As Single)
  1   Image1.BorderStyle = 0
  2   Label4.ForeColor = vbBlack
      End Sub

      Keterangan Kode
 •	   Baris 1 - 2 Merupakan fungsi yang apabila komponen Image1
                  diklik maka properties BorderStyle bernilai Nol,
                  dan label4 akan berwarna hitam.
13. Klik ganda pada komponen DataGrid1, pada pilihan procedure
    Anda ganti dengan nama DblClick, kemudian ketikkan kode
    program seperti di bawah ini:
      Private Sub DataGrid1_DblClick()
  1   koneksi
  2   str = “delete from data_harga where type_pelanggan = ‘” &
      DataGrid1.Columns(0) & “’”
  3   db.Execute (str)
  4   proses
      End Sub

      Keterangan Kode
 •	    Baris 1 - 4 Merupakan fungsi untuk menghapus data harga
                   berdasarkan Type Pelanggan pada DataGrid1 ko-
                   lom pertama.
14. Klik ganda pada komponen TextBox2, kemudian ketikkan kode
    program seperti di bawah ini:

      Private Sub Nama_PC_Change()
  1   Nama_PC = UCase(Nama_PC)
  2   SendKeys “{end}”
  3   Nama_PC.SetFocus
      End Sub

      Keterangan Kode
 •	   Baris 1 - 2 Merupakan fungsi untuk merubah huruf menjadi
                   huruf besar dan menempatkan huruf tepat di
                   depan kolom teks.
15. Masih pada komponen TextBox2, pada pilihan procedure Anda
    ganti dengan nama Keypress, kemudian ketikkan kode program
    seperti di bawah ini:



 64
       Private Sub Nama_PC_KeyPress(KeyAscii As Integer)
  1    If KeyAscii = 39 Then
  2    KeyAscii = 34
       End If

       Keterangan Kode
 •	    Baris 1 - 2 Merupakan fungsi untuk merubah ASCII 39 men-
                   jadi ASCII 34.
16. Klik ganda pada komponen Image2, kemudian ketikkan kode
    program seperti di bawah ini:

       Private Sub Image2_Click()
  1    If Nama_PC = “” Then Nama_PC.SetFocus: Image1.BorderStyle
       = 0: Label1.ForeColor = vbBlack: Exit Sub
  2    koneksi
  3    str = “select * from nama_pc_vip where nama_pc = ‘” &
       Nama_PC.Text & “’”
  4    rs.Open str, db
  5    If rs.EOF = False Then
  6    str = “update nama_pc_vip set nama_pc = ‘” & Nama_PC & “’
       where nama_pc = ‘” & Nama_PC.Text & “’”
  7    db.Execute (str)
  8    proses




                                                                     Bab 4 Aplikasi Billing Warnet
  9    Else
  10   str = “insert into nama_pc_vip(Nama_pc)values(‘” & Nama_
       PC & “’)”
  11   db.Execute (str)
  12   proses
  13   End If
       End Sub

       Keterangan Kode
 •	    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.
17. Masih pada komponen Image2, kali ini pada pilihan procedure
    Anda ganti dengan nama MouseDown, kemudian ketikkan kode
    program seperti di bawah ini:



                                                                65
Aplikasi Database dengan VB untuk Orang Awam


      Private Sub Image2_MouseDown(Button As Integer, Shift As
      Integer, X As Single, Y As Single)
  1   Image2.BorderStyle = 1
  2   Label6.ForeColor = vbRed
      End Sub

      Keterangan Kode
 •	   Baris 1 - 2 Merupakan fungsi yang apabila komponen Image2
                  diklik maka properties BorderStyle bernilai Satu,
                  dan Label6 akan berwarna merah.
18. Masih pada komponen Image2, kali ini pada pilihan procedure
    Anda ganti dengan nama MouseUp, kemudian ketikkan kode
    program seperti di bawah ini:

      Private Sub Image2_MouseUp(Button As Integer, Shift As
      Integer, X As Single, Y As Single)
  1   Image2.BorderStyle = 0
  2   Label6.ForeColor = vbBlack
      End Sub

      Keterangan Kode
 •	   Baris 1 - 2 Merupakan fungsi yang apabila komponen Image2
                  diklik maka properties BorderStyle bernilai Nol,
                  dan Label6 akan berwarna hitam.
19. Klik ganda pada komponen DataGrid2, pada pilihan procedure
    Anda ganti dengan nama DblClick, kemudian ketikkan kode
    program seperti di bawah ini:

      Private Sub DataGrid2_DblClick()
  1   koneksi
  2   str = “delete from nama_pc_vip where nama_pc = ‘” & Da-
      taGrid2.Columns(0) & “’”
  3   db.Execute (str)
  4   proses
      End Sub

      Keterangan Kode
 •	   Baris 1 - 4 Merupakan fungsi untuk menghapus Nama PC
                  Vip berdasarkan Nama PC pada DataGrid2 kolom
                  pertama.




 66
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 :

     1     Dim db As ADODB.Connection
     2     Dim rs As ADODB.Recordset
     3     Dim str As String

          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.
3. Selanjutnya buat Procedure dengan nama koneksi, kemudian
   ketikkan kode program seperti di bawah ini :

     1    Sub koneksi()
     2    Set db = New ADODB.Connection




                                                                        Bab 4 Aplikasi Billing Warnet
     3    Set rs = New ADODB.Recordset
     4    db.Open “DSN=Maxiwarnet”
     5    End Sub

          Keterangan Kode
     •	    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
4. Selanjutnya buat Procedure lagi dengan nama Proses, kemudian
   ketikkan kode program seperti di bawah ini :

     1    Sub proses()
     2    koneksi
     3    str = “select * from client_log_out”
     4    db.Execute (str)
     5    Adodc1.Refresh
     6    End Sub




                                                                  67
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:

       Private Sub Ctkslr_Click()
  1    FrmHari.Visible = False
  2    Frmperiode.Visible = False
       End Sub

       Keterangan Kode
 •	   Baris 1 - 2 Merupakan fungsi untuk menhilangkan tampilan
                  komponen Frame dengan nama FrmHari dan
                  Frmperiode.
6. Klik ganda pada komponen Option2, dengan nama caption Cetak
   Per Periode, kemudian ketikkan kode program seperti di bawah
   ini:
       Private Sub CtkPerperiode_Click()
  1    FrmHari.Visible = False
  2    Frmperiode.Visible = True
       End Sub

       Keterangan Kode
  •	  Baris 1 - 2 Merupakan fungsi untuk menghilangkan tampilan
                  komponen Frame dengan nama FrmHari dan
                  Menampilkan Frmperiode.
7. Klik ganda pada komponen Option3, dengan nama caption Cetak
   Per Hari, kemudian ketikkan kode program seperti di bawah ini:

       Private Sub Ctkperhari_Click()
  1    FrmHari.Visible = True
  2    Frmperiode.Visible = False
       End Sub

       Keterangan Kode
  •	   Baris 1 - 2 Merupakan fungsi untuk menampilkan komponen
                   Frame dengan nama FrmHari, dan menghilangkan
                   FrmPeriode.
8. Klik ganda pada komponen Image1, kemudian ketikkan kode
   program seperti di bawah ini:

       Private Sub Image1_Click()
  1    If Ctkperhari.Value = False And Ctkslr.Value = False And
       CtkPerperiode.Value = False Then Exit Sub




 68
2    If Ctkslr.Value = True Then
3    cr1.Reset
4    cr1.ReportFileName = App.Path & “\Laporan\Laporan Penda-
     patan Warnet.rpt”
5    cr1.WindowState = crptMaximized
6    cr1.RetrieveDataFiles
7    cr1.PrintReport
8    Else
9    If CtkPerperiode.Visible = True Then
10   koneksi
11   str = “select * from client_log_out where tanggal >=’” &
     Format(TglAwal, “dd/mm/yyyy”) & “’ and tanggal <= ‘” &
     Format(TglSampai, “dd/mm/yyyy”) & “’”
12   rs.Open str, db
13   If rs.EOF = False Then
14   cr1.Reset
15   cr1.ReportFileName = App.Path & “\Laporan\Laporan Penda-
16   patan Warnet.rpt”
17   cr1.WindowState = crptMaximized
18   cr1.SelectionFormula = “{client_log_out.tanggal} >= ‘” &
     Format(TglAwal, “dd/mm/yyyy”) & “’ and {client_log_out.
     tanggal} <= ‘” & Format(TglSampai, “dd/mm/yyyy”) & “’”
19   cr1.RetrieveDataFiles
20   cr1.PrintReport
21




                                                                Bab 4 Aplikasi Billing Warnet
     End If
22   Else
23   If Ctkperhari.Visible = True Then
24   proses
25   koneksi
26   str = “select * from client_log_out where tanggal = ‘” &
     Format(TglHari, “dd/mm/yyyy”) & “’”
27   rs.Open str, db
28   If rs.EOF = False Then
29   cr1.Reset
30   cr1.ReportFileName = App.Path & “\Laporan\Laporan Penda-
     patan Warnet.rpt”
31   cr1.WindowState = crptMaximized
32   cr1.SelectionFormula = “{client_log_out.Tanggal}= ‘” &
     Format(TglHari, “dd/mm/yyyy”) & “’”
33   cr1.RetrieveDataFiles
34   cr1.PrintReport
35   End If
37   End If
38   End If
39   End If




                                                          69
Aplikasi Database dengan VB untuk Orang Awam


   41 Exit Sub
      End Sub


       Keterangan Kode
 •	    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-41Merupakan fungsi if yang apabila Option3 deng-
                  an nama caption Cetak Per Hari dipilih maka lap-
                  oran Pendapatan Warnet secara perhari akan dic-
                  etak.
9. Masih pada komponen Image1, kali ini pada pilihan procedure
   Anda ganti dengan nama MouseDown, kemudian ketikkan kode
   program seperti di bawah ini :

       Private Sub Image1_MouseDown(Button As Integer, Shift As
       Integer, X As Single, Y As Single)
  1    Image1.BorderStyle = 1
  2    Label2.ForeColor = vbRed
       End Sub

       Keterangan Kode
  •	  Baris 1 - 2 Merupakan fungsi yang apabila komponen Image1
                  diklik maka properties BorderStyle bernilai Satu,
                  dan label2 akan berwarna merah.
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 Image1_MouseUp(Button As Integer, Shift As
       Integer, X As Single, Y As Single)
  1    Image1.BorderStyle = 0




 70
  2     Label2.ForeColor = vbBlack
        End Sub

       Keterangan Kode
 •	     Baris 1 - 2 Merupakan fungsi yang apabila komponen Image1
                    diklik maka properties BorderStyle bernilai Nol,
                    dan label4 akan berwarna hitam.
11. Klik ganda pada lembar form, kemudian ketikkan kode program
    seperti di bawah ini:

        Private Sub Form_Load()
  1     koneksi
        End Sub

       Keterangan Kode
  •	     Baris 1 Merupakan fungsi untuk memanggil procedure den-
                gan nama koneksi.
12. Masih pada procedure Form_Load, kali ini pada pilihan procedure
    Anda ganti dengan nama Activate. Kemudian ketikkan kode
    program seperti di bawah ini :




                                                                       Bab 4 Aplikasi Billing Warnet
        Private Sub Form_Activate()
  1     TglAwal = Format(Date, “mm/dd/yyyy”)
  2     TglSampai = Format(Date, “mm/dd/yyyy”)
  3     TglHari = Format(Date, “mm/dd/yyyy”)
  4     FrmHari.Visible = False
  5     Frmperiode.Visible = False
  6     posisi
  7     Ctkslr.Value = False
  8     CtkPerperiode.Value = False
  9     Ctkperhari.Value = False
        End Sub

       Keterangan Kode
 •	      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.




                                                                 71
Aplikasi Database dengan VB untuk Orang Awam


 •	     Baris 7 - 9 Merupakan fungsi untuk memanggil procedure
                    dengan nama posisi, dan memberikan nilai False
                    pada seluruh komponen Option.

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 :

  1    Dim db As ADODB.Connection
  2    Dim rs As ADODB.Recordset
  3    Dim str As String

      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.
3. Selanjutnya buat Procedure dengan nama koneksi, kemudian
   ketikkan kode program seperti di bawah ini :
  1    Sub koneksi()
  2    Set db = New ADODB.Connection
  3    Set rs = New ADODB.Recordset
  4    db.Open “DSN=Maxiwarnet”
  5    End Sub

       Keterangan Kode
 •	     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
4. Selanjutnya buat Procedure lagi dengan nama bersih, kemudian
    ketikkan kode program seperti di bawah ini :
  1     Sub bersih()
  2     DBNmPC = “Klik ----- >”




 72
  3    isi_pesan = “”
  4    End Sub

      Keterangan Kode
 •	    Baris 2 - 3 Merupakan fungsi untuk memberikan teks pada
                   komponen DataCombo1 dan mengosongkan kol-
                   om teks dengan nama Isi_Pesan.
5. Selanjutnya buat Procedure lagi dengan nama proses, kemudian
   ketikkan kode program seperti di bawah ini :
  1   Sub proses()
  2   str = “select * from monitor_client”
  3   db.Execute (str)
  4   Adodc1.Refresh
  5   str = “select * from pesan”
  6   db.Execute (str)
  7   Adodc2.Refresh
  8   End Sub

      Keterangan Kode
 •	   Baris 2 - 7 Merupakan fungsi untuk merefresh atau memper-
                  baharui data yang tersimpan didalam tabel Monit-




                                                                     Bab 4 Aplikasi Billing Warnet
                  or_Client dan Pesan pada database MaxiWarnet.
6. Selanjutnya buat Procedure lagi dengan nama posisi, kemudian
   ketikkan kode program seperti di bawah ini :

  1    Sub posisi()
  2    Me.Left = 0
  3    Me.Top = 0
  4    End Sub

      Keterangan Kode
 •	   Baris 2 - 3 Merupakan fungsi untuk mengatur posisi form
                  Pesan tepat berada di atas sudut kiri form Menu
                  Utama
7. Klik ganda pada lembar form, kemudian ketikkan kode program
   seperti di bawah ini:

       Private Sub Form_Load()
  1    koneksi
       End Sub




                                                               73
Aplikasi Database dengan VB untuk Orang Awam


       Keterangan Kode
  •	     Baris 1 Merupakan fungsi untuk memanggil procedure den-
                gan nama koneksi.
8. Masih pada procedure Form_Load, kali ini pada pilihan procedure
   Anda ganti dengan nama Activate. Kemudian ketikkan kode
   program seperti di bawah ini :

        Private Sub Form_Activate()
  1     posisi
  2     proses
        End Sub

       Keterangan Kode
  •	     Baris 1 - 2 Merupakan fungsi untuk memanggil procedure
                     dengan nama Posisi dan Proses.
9. Klik ganda pada komponen Datacombo1, kemudian ketikkan kode
   program seperti di bawah ini:

        Private Sub DBNmPC_Click(Area As Integer)
  1     koneksi
  2     str = “select * from data_client_online”
  3     db.Execute (str)
  4     Adodc1.Refresh
        End Sub

       Keterangan Kode
  •	     Baris 1 - 4 Merupakan fungsi untuk merefresh data pada
                     tabel Data_Client_Online.
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 :

        Private Sub DBNmPC_KeyPress(KeyAscii As Integer)
  1     KeyAscii = 0
        End Sub

       Keterangan Kode
 •	      Baris 1   Merupakan fungsi untuk memblok ASCII pada
                   keyboard.




 74
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 :

       Private Sub DBNmPC_Change()
  1    isi_pesan.SetFocus
       End Sub

      Keterangan Kode
 •	     Baris 1   Merupakan fungsi untuk menempatkan kursor
                  fokus pada kolom teks Isi Pesan.
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 :

       Private Sub isi_pesan_KeyPress(KeyAscii As Integer)
  1    If KeyAscii = 39 Then
  2    KeyAscii = 34
  3    End If
       End Sub

      Keterangan Kode
 •	     Baris 1 - 3 Merupakan fungsi untuk mengganti ASCII keybo-




                                                                    Bab 4 Aplikasi Billing Warnet
                    ard 39 dengan ASCII 34.
13. Klik ganda pada komponen Image3, kemudian ketikkan kode
    program seperti di bawah ini:
       Private Sub Image3_Click()
  1    If DBNmPC = “Klik ----- >” Then DBNmPC.SetFocus:
       Exit Sub
  2    ProgressBar1.Visible = True
  3    For a = 0 To ProgressBar1.Max
  4                 ProgressBar1 = a
  5    Next a
  6    ProgressBar1.Visible = False
  7    koneksi
  8    str = “select * from monitor_client where nama_pc = ‘” &
       DBNmPC & “’”
  9    rs.Open str, db
  10   If rs.EOF = False Then
  11   nplgn = rs.Fields(“nama_pelanggan”)
  12   End If
  13   str = “insert into pesan(tujuan,nama_pelanggan,isi_pesan)
       values(‘” & DBNmPC & “’,’” & nplgn & “’,’” & isi_pesan &
       “’)”




                                                             75
Aplikasi Database dengan VB untuk Orang Awam


  14   db.Execute (str)
  15   Adodc2.Refresh
  16   proses
  17   bersih
       End Sub

       Keterangan Kode
 •	    Baris 1 - 6 Merupakan fungsi untuk meenjalankan kompon-
                   en Progressbar1 dan menempatkan kursor ke
                   Komponen DataCombo1 apabila teks pada Data-
                   Combo1 tidak berubah.
14. Masih pada komponen Image3, kali ini pada pilihan procedure
    Anda ganti dengan nama MouseDown, kemudian ketikkan kode
    program seperti di bawah ini :

        Private Sub Image3_MouseDown(Button As Integer, Shift As
        Integer, X As Single, Y As Single)
  1     Image3.BorderStyle = 1
  2     Label1.ForeColor = vbRed
        End Sub

       Keterangan Kode
  •	  Baris 1 - 2 Merupakan fungsi yang apabila komponen Image3
                  diklik maka properties BorderStyle bernilai Satu,
                  dan label1 akan berwarna merah.
15. Masih pada komponen Image3, kali ini pada pilihan procedure
    Anda ganti dengan nama MouseDown, kemudian ketikkan kode
    program seperti di bawah ini :

       Private Sub Image3_MouseUp(Button As Integer, Shift As
       Integer, X As Single, Y As Single)
  1    Image3.BorderStyle = 0
  2    Label1.ForeColor = vbBlack
       End Sub

       Keterangan Kode
 •	     Baris 1 - 2 Merupakan fungsi yang apabila komponen Image3
                    diklik maka properties BorderStyle bernilai Nol,
                    dan Label1 akan berwarna hitam.
16. Klik ganda pada komponen Timer1, kemudian ketikkan kode
    program seperti di bawah ini:




 76
       Private Sub Timer1_Timer()
  1    Image1.Left = Val(Image1.Left) - 120
  2    If Image1.Left = 480 Then
  3    Image1.Left = 2400
  4    End If
       End Sub

       Keterangan Kode
 •	    Baris 1 - 4 Merupakan fungsi untuk membuat animasi berge-
                   dari kiri ke kanan pada komponen Image1
17. Klik ganda pada komponen Timer2, kemudian ketikkan kode
    program seperti di bawah ini:

       Private Sub Timer2_Timer()
  1    If Image2.Visible = False Then
  2    Image2.Visible = True
  3    Else
  4    Image2.Visible = False
       End If
       End Sub

       Keterangan Kode




                                                                       Bab 4 Aplikasi Billing Warnet
  •	   Baris 1 - 4 Merupakan fungsi untuk membuat animasi berke-
                   lip pada komponen Image2


4.4.2 Membuat Kode Program Billing Client
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 :

  1    Option Explicit
  2    Const HWND_TOPMOST = -1
  3    Const HWND_NOTOPMOST = -2
  4    Const SWP_NOSIZE = &H1
  5    Const SWP_NOMOVE = &H2
  6    Const SWP_NOACTIVATE = &H10
  7    Const SWP_SHOWWINDOW = &H40




                                                               77
Aplikasi Database dengan VB untuk Orang Awam


  8    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)
  9    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
  10   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
  11   Private Declare Function BringWindowToTop Lib “user32”
       (ByVal hwnd As Long) As Long
  12   Private Declare Function PaintDesktop Lib “user32” (ByVal
       hdc As Long) As Long
  13   Dim db As ADODB.Connection
  14   Dim rs As ADODB.Recordset
  15   Dim str, tgl, jmlonline, noonline, ket As String

       Keterangan Kode
 •	    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.
3. Selanjutnya buat Procedure dengan nama koneksi, kemudian
   ketikkan kode program seperti di bawah ini :




 78
  1    Sub koneksi()
  2    Set db = New ADODB.Connection
  3    Set rs = New ADODB.Recordset
  4    db.Open “DSN=Maxiwarnet”
  5    End Sub

      Keterangan Kode
 •	    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
5. Klik ganda pada komponen TextBox1 dengan nama TxtNama,
   kemudian ketikkan kode program seperti di bawah ini:

      Private Sub TxtNama_Change()
  1   If TxtNama.Text = “” Then
  2   Timer4.Enabled = True
  3   Else
  4   Timer4.Enabled = False
  5   End If
      End Sub




                                                                   Bab 4 Aplikasi Billing Warnet
      Keterangan Kode
 •	   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.
6. Klik ganda pada komponen LaVolpeButton1 dengan nama caption
   Ok, kemudian ketikkan kode program seperti di bawah ini:

       Private Sub CmdMulai_Click()
  1    If TxtNama = “” Then TxtNama.SetFocus: Exit Sub
  2    str = “Delete from log_in”
  3    db.Execute (str)
  4    str = “delete from pesan where tujuan = ‘” & Winsock1.
       LocalHostName & “’”
  5    db.Execute (str)
  4    proses
  5    tgl = StatusBar1.Panels(3)
  6    koneksi
  7    str = “select * from jumlah_pc_online where Tanggal = ‘”
       & tgl & “’”




                                                              79
Aplikasi Database dengan VB untuk Orang Awam


 8    rs.Open str, db
 9    If rs.EOF = False Then
 10   jmlonline = rs.Fields(“Jumlah”)
 11   noonline = Val(jmlonline) + 1
 12   str = “Update jumlah_pc_online set jumlah = ‘” & noonline
      & “’ where tanggal = ‘” & tgl & “’”
 13   db.Execute (str)
 14   Else
 15   tgl = StatusBar1.Panels(3)
 16   noonline = 1
 17   str = “insert into jumlah_pc_online(jumlah,tanggal)val-
      ues(‘” & noonline & “’,’” & tgl & “’)”
 18   db.Execute (str)
 19   End If
 20   ket = “Umum”
 21   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 & “’)”
 22   db.Execute (str)
 23   str = “insert into log_in (Nama_pc,Nama_pelanggan,jam_
      masuk)values(‘” & Winsock1.LocalHostName & “’,’” & Txt-
      Nama.Text & “’,’” & StatusBar1.Panels(4) & “’)”
 24   db.Execute (str)
 25   proses
 26   Unload Me
 27   Monitor_Harga.Show
      End Sub

      Keterangan Kode
 •	   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.




80
7. Klik ganda pada komponen LaVolpeButton2 dengan nama caption
   ShutDown, kemudian ketikkan kode program seperti di bawah ini:

        Private Sub CmdShutDown_Click()
  1     Shell “shutdown -s -f -t 0”
        End Sub

       Keterangan Kode
  •	    Baris 1   Merupakan fungsi untuk mematikan Komputer.


8. Klik ganda pada komponen Picture1, kemudian ketikkan kode
   program seperti di bawah ini:

       Private Sub Picture1_Click()
  1    Timer4.Enabled = True
  2    Picture1.BorderStyle = 1
  3    TxtNama.Visible = True
  4    CmdMulai.Visible = True
  5    TxtNama.SetFocus
       End Sub

       Keterangan Kode
 •	    Baris 1     Merupakan fungsi untuk mengaktifkan Timer4




                                                                     Bab 4 Aplikasi Billing Warnet
 •	    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.
9. Masih pada komponen Picture1, kali ini pada pilihan procedure
   Anda ganti dengan nama MouseMove, kemudian ketikkan kode
   program seperti di bawah ini:

       Private Sub Picture1_MouseMove(Button As Integer, Shift
       As Integer, X As Single, Y As Single)
  1    Timer3.Enabled = True
       End Sub

       Keterangan Kode
 •	    Baris 1     Merupakan fungsi untuk mengaktifkan Timer3

10. Klik ganda pada komponen Timer1, kemudian ketikkan kode
    program seperti berikut ini:




                                                                81
Aplikasi Database dengan VB untuk Orang Awam


       Private Sub Timer1_Timer()
  1    StatusBar1.Panels(4) = Format(Time, “hh:mm:ss”)
       End Sub

       Keterangan Kode
 •	    Baris 1   Merupakan fungsi untuk menampilkan waktu pada
                 komponen StatusBar1 Panel ke empat.
11. Klik ganda pada komponen Timer2, kemudian ketikkan kode
    program seperti berikut ini:

       Private Sub Timer2_Timer()
  1    PaintDesktop Me.hdc
  2    BringWindowToTop Me.hwnd
  3    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOAC-
       TIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
  4    Dim H As Long
  5       H = FindWindow(“#32770”, “Windows Task Manager”)
  6    If H Then ShowWindow H, 0
  7       H = FindWindow(“#32771”, vbNullString)
  8    If H Then ShowWindow H, 0
  9       H = FindWindow(“BaseBar”, vbNullString)
  10   If H Then ShowWindow H, 0
  11      H = FindWindow(“Shell_TrayWnd”, vbNullString)
  12   If H Then ShowWindow H, 0
  13   Rem ShowCursor False
       End Sub

       Keterangan Kode
 •	    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.
12. Klik ganda pada komponen Timer3, kemudian ketikkan kode
    program seperti berikut ini:

        Private Sub Timer3_Timer()
  1     If Picture1.BackColor = vbRed Then
  2     Picture1.BackColor = vbBlack
  3     Else
  4     Picture1.BackColor = vbRed




 82
  5     End If
        End Sub

       Keterangan Kode
 •	    Baris 1-5 Merupakan fungsi untuk membuat animasi berkel
                 pada properties BackColor komponen Picture1.

13. Klik ganda pada komponen Timer4, kemudian ketikkan kode
    program seperti berikut ini:

       Private Sub Timer4_Timer()
  1    If TxtNama.Text = “” Then
  2    TxtNama.Visible = False
  3    CmdMulai.Visible = False
  4    End If
       End Sub

      Keterangan Kode
 •	    Baris 1-4 Merupakan fungsi untuk menghilangkan TextBox1
                 dengan nama TxtNama dan LaVolpeButton1
                 dengan caption Ok, apabila kolom teks dengan na-
                 ma TxtNama.




                                                                     Bab 4 Aplikasi Billing Warnet
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 :

  1     Dim   db As ADODB.Connection
  2     Dim   rs As ADODB.Recordset
  3     Dim   str As String
  4     Dim   mulai As Date
  5     Dim   durasi As Double


      Keterangan Kode
 •	     Baris 1 - 2 Merupakan fungsi untuk mendeklarasikan varia-
                    bel Db dan Rs sebagai fungsi untuk mengkonek-
                    sikan database ke form.




                                                               83
Aplikasi Database dengan VB untuk Orang Awam



 •	     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.

3. Selanjutnya buat Procedure dengan nama koneksi, kemudian
   ketikkan kode program seperti di bawah ini :

  1    Sub koneksi()
  2    Set db = New ADODB.Connection
  3    Set rs = New ADODB.Recordset
  4    db.Open “DSN=Maxiwarnet”
  5    End Sub

      Keterangan Kode
 •	    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
4. Selanjutnya buat lagi Procedure dengan nama Proses, kemudian
   ketikkan kode program seperti di bawah ini :

  1    Sub proses()
  2    koneksi
  3    str = “select * from jumlah_pc_online”
  4    db.Execute (str)
  5    Adodc1.Refresh
  6    str = “select * from client_log_out”
  7    db.Execute (str)
  8    Adodc2.Refresh
  9    str = “select * from pesan”
  10   db.Execute (str)
  11   Adodc3.Refresh
       End Sub

       Keterangan Kode
 •	    Baris 1-11 Merupakan fungsi untuk merefresh tabel Jumlah_-
                  pc_online, Client_Log_Out, dan Pesan.
5. Selanjutnya buat Procedure lagi dengan nama Identitas, kemudian
   ketikkan kode program seperti di bawah ini :
  1    Sub identitas()
  2    LblNmPC = Winsock1.LocalHostName




 84
  3    End Sub

6. Selanjutnya buat Procedure lagi dengan nama Nama_Plgn,
   kemudian ketikkan kode program seperti di bawah ini :

  1    Sub nama_plgn()
  2    koneksi
  3    str = “select * from log_in”
  4    rs.Open str, db
  5    If rs.EOF = False Then
  6    Lblnmplgn = rs.Fields(“nama_pelanggan”)
  7    lblmulai = rs.Fields(“jam_masuk”)
  8    End If
  9    End Sub

       Keterangan Kode
  •	   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.
7. Selanjutnya buat Procedure lagi dengan nama Tampil_Pesan,
   kemudian ketikkan kode program seperti di bawah ini :




                                                                    Bab 4 Aplikasi Billing Warnet
  1    Sub tampil_pesan()
  2    koneksi
  3    str = “select * from pesan where tujuan = ‘” & LblNmPC &
  4    “’”
  5    rs.Open str, db
  6    If rs.EOF = False Then
  7    Isi_Pesan.Show
  8    Else
  9    Exit Sub
  10   End If
       End Sub

       Keterangan Kode
  •	   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.
8. Selanjutnya buat Procedure lagi dengan nama Perhitungan_Harga,
   kemudian ketikkan kode program seperti berikut ini :




                                                             85
Aplikasi Database dengan VB untuk Orang Awam


  1    Sub perhitungan_harga()
  2    koneksi
  3    ta = “select * from data_harga “
  4    rs.Open ta, db
  5    If rs.EOF = False Then
  6    hrgperjam = rs.Fields(“harga_per_jam”)
  7    lbldurasi1 = Format(lbldurasi, “hhmmss”)
  8    harga = hrgperjam * lbldurasi1 / 6000
  9    Lblhrg = Format(harga, “Rp #,#””,00”)
  10   End If
       End Sub

       Keterangan Kode
 •	    Baris 1 - 10 Merupakan fungsi untuk meghitung total harga
                    berdasarkan durasi pemakaian per jam.

9. Klik ganda pada komponen Image1, kemudian ketikkan kode
   program seperti di bawah ini:

       Private Sub Image1_Click()
  1    tgl = Format(Date, “DD/MM/YYYY”)
  2    koneksi
  3    str = “select * from jumlah_pc_online where Tanggal = ‘”
       & tgl & “’”
  4    rs.Open str, db
  5    If rs.EOF = False Then
  6    jml_online = rs.Fields(“Jumlah”)
  7    no_online = Val(jml_online) - 1
  8    str = “Update jumlah_pc_online set jumlah = ‘” & no_online
       & “’ where tanggal = ‘” & tgl & “’”
  9    db.Execute (str)
  10   Lblhrg1 = Mid(Lblhrg, 4, 20)
  11   Lblhrg2 = Format(Lblhrg1, “#”)
  12   Lblhrg3 = Val(Lblhrg2) / 100
  13   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 & “’)”
  14   db.Execute (str)
  15   proses
  16   End If
  17   Shell “shutdown -r -f -t 0”
       End Sub




 86
       Keterangan Kode
 •	     Baris 1 - 17 Merupakan fungsi untuk mengakhiri Bill Client,
                     dengan terlebih dahulu menginput data client
                     yang berhenti.
 •	     Baris 18    Merupakan fungsi untuk merestart komputer.
10. Masih pada komponen Image1, kali ini pada pilihan procedure
    Anda ganti dengan nama MouseDown, kemudian ketikkan kode
    program seperti di bawah ini:

        Private Sub Image1_MouseDown(Button As Integer, Shift As
        Integer, X As Single, Y As Single)
   1    Image1.BorderStyle = 1
   2    Label1.ForeColor = vbRed
        End Sub

       Keterangan Kode
  •	     Baris 1 - 2 Merupakan fungsi untuk merubah properties Bo-
                     rderStyle dan merubah warna Label1 menjadi
                     warna merah.
11. Masih pada komponen Image1, kali ini pada pilihan procedure
    Anda ganti dengan nama MouseUp, kemudian ketikkan kode




                                                                       Bab 4 Aplikasi Billing Warnet
    program seperti di bawah ini:

        Private Sub Image1_MouseUp(Button As Integer, Shift As
        Integer, X As Single, Y As Single)
  1     Image1.BorderStyle = 0
  2     Label1.ForeColor = vbBlack
        End Sub

       Keterangan Kode
 •	      Baris 1 - 2 Merupakan fungsi untuk merubah properties Bo-
                     rderStyle dan merubah warna Label1 menjadi
                     warna hitam.
12. Klik ganda pada komponen Image2, kemudian ketikkan kode
    program seperti di bawah ini:

        Private Sub Image2_Click()
  1     Me.WindowState = 1
        End Sub




                                                                  87
Aplikasi Database dengan VB untuk Orang Awam


      Keterangan Kode
 •	     Baris 1   Merupakan fungsi untuk membuat menu Monitor
                  Harga menjadi Minimize.
13. Masih pada komponen Image2, kali ini pada pilihan procedure
    Anda ganti dengan nama MouseDown, kemudian ketikkan kode
    program seperti di bawah ini:

       Private Sub Image2_MouseDown(Button As Integer, Shift As
       Integer, X As Single, Y As Single)
  1    Image2.BorderStyle = 1
  2    Label2.ForeColor = vbRed
       End Sub

      Keterangan Kode
 •	     Baris 1 - 2 Merupakan fungsi untuk merubah properties Bo-
                    rderStyle dan merubah warna Label2 menjadi
                    warna merah.
14. Masih pada komponen Image2, kali ini pada pilihan procedure
    Anda ganti dengan nama MouseUp, kemudian ketikkan kode
    program seperti di bawah ini:

       Private Sub Image2MouseUp(Button As Integer, Shift As In-
       teger, X As Single, Y As Single)
  1    Image2.BorderStyle = 0
  2    Label2.ForeColor = vbBlack
       End Sub

      Keterangan Kode
 •	     Baris 1 - 2 Merupakan fungsi untuk merubah properties Bo-
                    rderStyle dan merubah warna Label2 menjadi
                    warna hitam.
15. Klik ganda pada komponen Timer1, kemudian ketikkan kode
    program seperti di bawah ini:

       Private Sub Timer1_Timer()
  1    Me.WindowState = 1
  2    Timer1.Enabled = False
       End Sub




 88
      Keterangan Kode
 •	     Baris 1 - 2 Merupakan fungsi untuk meminimize menu dan
                    menonaktifkan fungsi Timer1.

16. Klik ganda pada komponen Timer2, kemudian ketikkan kode
    program seperti di bawah ini:

       Private Sub Timer2_Timer()
  1    Lblwkt = Format(Time, “HH:MM:SS”)
       End Sub

      Keterangan Kode
 •	     Baris 1    Merupakan fungsi untuk menampilkan waktu
                   menurut sistem komputer

17. Klik ganda pada komponen Timer3, kemudian ketikkan kode
    program seperti di bawah ini:

       Private Sub Timer3_Timer()
  1    Timer3.Enabled = False
       End Sub

      Keterangan Kode




                                                                      Bab 4 Aplikasi Billing Warnet
 •	     Baris 1    Merupakan fungsi untuk menonaktifkan fungsi
                   Timer3
18. Klik ganda pada komponen Timer4, kemudian ketikkan kode
    program seperti di bawah ini:

        Private Sub Timer4_Timer()
  1     tampil_pesan
        End Sub

      Keterangan Kode
 •	      Baris 1   Merupakan fungsi untuk memanggil procedure
                   Tampil Pesan.
19. Klik ganda pada komponen Timer5, kemudian ketikkan kode
    program seperti di bawah ini:

       Private Sub Timer5_Timer()
  1    mulai = Format(lblmulai, “hh:mm:ss”)
  2    durasi = Time - mulai




                                                                 89
Aplikasi Database dengan VB untuk Orang Awam


  3     lbldurasi = Format(durasi, “hh:mm:ss”)
        End Sub

       Keterangan Kode
 •	      Baris 1 - 3 Merupakan fungsi untuk menampilkan durasi
                     pemakaian komputer.

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 :

   1    Dim db As ADODB.Connection
   2    Dim rs As ADODB.Recordset
   3    Dim str As String

       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.
3. Selanjutnya buat Procedure dengan nama koneksi, kemudian
   ketikkan kode program seperti di bawah ini :

  1     Sub koneksi()
  2     Set db = New ADODB.Connection
  3     Set rs = New ADODB.Recordset
  4     db.Open “DSN=Maxiwarnet”
  5     End Sub

       Keterangan Kode
  •	    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




 90
4. Selanjutnya buat Procedure dengan nama Proses, kemudian
   ketikkan kode program seperti di bawah ini :

  1   Sub proses()
  2   koneksi
  3   str = “select * from pesan”
  4   db.Execute (str)
  5   Adodc1.Refresh
  6   End Sub

      Keterangan Kode
 •	   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
5. Selanjutnya buat Procedure dengan nama Nama_Pc, kemudian
   ketikkan kode program seperti di bawah ini :
  1   Sub nama_pc()
  2   np = Winsock1.LocalHostName
  3   End Sub

      Keterangan Kode




                                                                   Bab 4 Aplikasi Billing Warnet
 •	   Baris 1   Merupakan fungsi untuk menampilkan nama sist-
                em komputer
6. Selanjutnya buat Procedure dengan nama Tampil_Pesan, kemudian
   ketikkan kode program seperti di bawah ini :
  1   Sub tampil_pesan()
  2   nama_pc
  3   proses
  4   koneksi
  5   str = “select * from pesan where tujuan = ‘” & np & “’”
  6   rs.Open str, db
  7   If rs.EOF = False Then
      pesan = rs.Fields(“isi_pesan”)
      Nplgn = rs.Fields(“nama_pelanggan”)
      End If
      End Sub

      Keterangan Kode
 •	   Baris 1   Merupakan fungsi untuk menampilkan isi pesan
                dengan terlebih dahulu menampilkan procedure




                                                            91
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:

  1    Private Sub pesan_KeyPress(KeyAscii As Integer)
  2    KeyAscii = 0
  3    End Sub

       Keterangan Kode
 •	    Baris 1    Merupakan fungsi untuk memblok seluruh ASCII
                  pada keyboard
8. Klik ganda pada komponen Image1, pada pilihan Procedure Anda
   pilih Keypress, kemudian ketikkan kode program seperti di bawah
   ini:

       Private Sub Image1_Click()
  1    str = “delete from pesan where tujuan = ‘” & np & “’”
  2    db.Execute (str)
  3    proses
  4    Unload Me
       End Sub

       Keterangan Kode
 •	    Baris 1-4 Merupakan fungsi untuk menghapus isi pesan be-
                 dasarkan tujuan.
9. Masih pada komponen Image1, kali ini pada pilihan procedure
   Anda ganti dengan nama MouseDown, kemudian ketikkan kode
   program seperti di bawah ini:

        Private Sub Image1_MouseDown(Button As Integer, Shift As
        Integer, X As Single, Y As Single)
  1     Image1.BorderStyle = 1
  2     Label3.ForeColor = vbRed
        End Sub

       Keterangan Kode
  •	     Baris 1 - 2 Merupakan fungsi untuk merubah properties Bo-
                     rderStyle dan merubah warna Label3 menjadi
                     warna merah.
10. Masih pada komponen Image1, kali ini pada pilihan procedure
    Anda ganti dengan nama MouseUp, kemudian ketikkan kode
    program seperti di bawah ini:



 92
            Private Sub Image1_MouseUp(Button As Integer, Shift As
            Integer, X As Single, Y As Single)
      1     Image1.BorderStyle = 0
      2     Label3.ForeColor = vbBlack
            End Sub

           Keterangan Kode
      •	     Baris 1 - 2 Merupakan fungsi untuk merubah properties Bo-
                         rderStyle dan merubah warna Label3 menjadi
                         warna hitam.



2
    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.


     4.5 Soal




                                                                               Bab 4 Aplikasi Billing Warnet
    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.




                                                                       93

								
To top