Perangkat Studi: Visual Basic

PERANCANGAN PROGRAM PEMINJAMAN BUKU PADA PERPUSTAKAAN DAERAH MENGGUNAKAN MICROSOFT VISUAL BASIC 6.0

<div align="justify">
Bagi kawan-kawan mahasiswa/i terutama jurusan Manajemen Informatika, Sistem Informasi, Teknik Komputer,  Teknik Informatika, maupun jurusan-jurusan lain yang pendalaman minatnya mengarah ke dunia <b>Teknologi Informasi / IT</b> kadang untuk mendapatkan ide judul skripsi yang relevan dengan jurusan minatnya tersebut mungkin mengalami kesulitan. <br />
<br />Berikut list judul yang bisa teman-teman pertimbangkan :<br />
<br />
<div style="text-align: center;">
<b>PERANCANGAN PROGRAM PEMINJAMAN BUKU PADA PERPUSTAKAAN DAERAH MENGGUNAKAN MICROSOFT VISUAL BASIC 6.0</b> </div>
<div style="text-align: center;">
<br /></div>
</div>
<center>
<br />  
<table bgcolor="#EAEAEA" border="0" cellpadding="5" cellspacing="5" style="height: 574px; width: 407px;">
  <tbody>
<tr>
    <td><table bgcolor="#FFFFFF" border="0" cellpadding="0" cellspacing="0" style="height: 569px; width: 405px;">
      <tbody>
<tr>
        <td><table border="0" cellpadding="0" cellspacing="0" style="width: 405px;">
          <tbody>
<tr>
            <td><div align="center" style="font-family: 'Times New Roman', Times, serif; font-size: 12px;">
<br />
<br />
<br />
<b>PERANCANGAN PROGRAM PEMINJAMAN BUKU <br />
PADA PERPUSTAKAAN MENGGUNAKAN <br />
</b><b> MICROSOFT VISUAL BASIC 6.0</b></div>
</td>
          </tr>
</tbody></table>
<table border="0" cellpadding="0" cellspacing="0" style="width: 405px;">
            <tbody>
<tr>
              <td><div align="center">
<br />
<img height="125" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgSORm9elQXr5JMKhRrVmWB-lHypUiCqAC6UyUgD8F8wXVkfpEzCDkF8HSr-LoF9FyKjHMdE7t-W2b8As8YSw3F4cPVUFQKtQghiLrfdQNcSp6DSxd_I2OKZZ5TsqCIU3qrz9Iq5hxDD6ou/s1600/BSI314color.png" width="125" />
              </div>
</td>
            </tr>
</tbody></table>
<br />
<table border="0" cellpadding="0" cellspacing="0" style="width: 405px;">
            <tbody>
<tr>
              <td><div align="center">
<b style="font-family: 'Times New Roman', Times, serif; font-size: 12px;">TUGAS AKHIR</b></div>
</td>
            </tr>
</tbody></table>
<table border="0" cellpadding="0" cellspacing="0" style="width: 405px;">
            <tbody>
<tr>
              <td><div align="center" style="font-size: 9px;">
Diajukan  untuk memenuhi salah satu syarat kelulusan Program Diploma Tiga (DIII)</div>
</td>
            </tr>
</tbody></table>
<br />
<br />
<table border="0" style="width: 405px;">
            <tbody>
<tr>
              <td><div align="center" style="font-family: 'Times New Roman', Times, serif; font-size: 12px;">
<b>(NAMA LENGKAP)</b></div>
</td>
</tr>
<tr>
<td><div align="center">
<b style="font-family: 'Times New Roman', Times, serif; font-size: 11px;">(Nomor Induk Mahasiswa)</b></div>
</td>
            </tr>
</tbody></table>
<br />
<br />
<table border="0" cellpadding="5" cellspacing="5" style="width: 405px;">
<tbody>
<tr>
<td><div align="center" style="font-family: 'Times New Roman', Times, serif; font-size: 9px;">
<b>Jurusan Manajemen Informatika</b><br />
<b>Akademi Manajemen Informatika dan Komputer Bina  Sarana Informatika</b><br />
<b>Margonda - Depok</b><br />
<b>2014</b></div>
<div align="center" style="font-family: 'Times New Roman', Times, serif; font-size: 9px;">
<br /></div>
<div align="center" style="font-family: 'Times New Roman', Times, serif; font-size: 9px;">
<br /></div>
</td>
</tr>
</tbody></table>
</td>
      </tr>
</tbody></table>
</td>
  </tr>
</tbody></table>
</center>
<br />
  <br />
  Aplikasi yang di butuhkan/di gunakan : 
  <br /><br />
a. Visual Basic Versi 6.0<br />
b. XAMPP<br />
<br /><br />
<table border="0" cellpadding="5" cellspacing="5" style="width: 100%px;">
  <tbody>
<tr>
    <td bgcolor="#B3DED4"><div align="center">
<s><a href="http://adf.ly/1GA3ok">Lihat/Download Paper</a></s></div>
</td>
    <td bgcolor="#E63434"><div align="center">
<s><a href="http://adf.ly/1GA3jO">Lihat/Download Aplikasi</a></s></div>
</td>
    
  </tr>
</tbody></table>
<br />
*Contact Admin Blog untuk <a href="http://adf.ly/1GA3jO">Link Dowload :D </a><br />

PERANCANGAN PROGRAM PEMINJAMAN BUKU PADA PERPUSTAKAAN DAERAH MENGGUNAKAN MICROSOFT VISUAL BASIC 6.0

Bagi kawan-kawan mahasiswa/i terutama jurusan Manajemen Informatika, Sistem Informasi, Teknik Komputer, Teknik Informatika, maupun jurusan...

PERANCANGAN PROGRAM APLIKASI PERPUSTAKAAN PADA SMKN DENGAN MENGGUNAKAN VISUAL BASIC 6.0

<div style="text-align: center;">
<b>PERANCANGAN PROGRAM APLIKASI PERPUSTAKAAN PADA SMKN DENGAN MENGGUNAKAN VISUAL BASIC 6.0 </b></div>
<div style="text-align: center;">
<br /></div>
<div style="text-align: center;">
<br /></div>
<div align="justify">
Bagi kawan-kawan mahasiswa/i terutama jurusan Manajemen Informatika, Sistem Informasi, Teknik Komputer,  Teknik Informatika, maupun jurusan-jurusan lain yang pendalaman minatnya mengarah ke dunia <b>Teknologi Informasi / IT</b> kadang untuk mendapatkan ide judul skripsi yang relevan dengan jurusan minatnya tersebut mungkin mengalami kesulitan. <br />
<br />
Berikut list judul yang bisa teman-teman pertimbangkan :</div>
<center>
<br />  
<table bgcolor="#EAEAEA" border="0" cellpadding="5" cellspacing="5" style="height: 524px; width: 407px;">
  <tbody>
<tr>
    <td><table bgcolor="#FFFFFF" border="0" cellpadding="0" cellspacing="0" style="height: 519px; width: 405px;">
      <tbody>
<tr>
        <td><table border="0" cellpadding="0" cellspacing="0" style="width: 405px;">
          <tbody>
<tr>
            <td><div align="center" style="font-family: 'Times New Roman', Times, serif; font-size: 12px;">
<br />
<b>PERANCANGAN PROGRAM APLIKASI  <br />PERPUSTAKAAN PADA SMKN DENGAN  <br />MENGGUNAKAN VISUAL BASIC 6.0 </b><b></b></div>
</td>
          </tr>
</tbody></table>
<table border="0" cellpadding="0" cellspacing="0" style="width: 405px;">
            <tbody>
<tr>
              <td><div align="center">
<br />
<img height="125" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgSORm9elQXr5JMKhRrVmWB-lHypUiCqAC6UyUgD8F8wXVkfpEzCDkF8HSr-LoF9FyKjHMdE7t-W2b8As8YSw3F4cPVUFQKtQghiLrfdQNcSp6DSxd_I2OKZZ5TsqCIU3qrz9Iq5hxDD6ou/s1600/BSI314color.png" width="125" />
              </div>
</td>
            </tr>
</tbody></table>
<br />
<table border="0" cellpadding="0" cellspacing="0" style="width: 405px;">
            <tbody>
<tr>
              <td><div align="center">
<b style="font-family: 'Times New Roman', Times, serif; font-size: 12px;">TUGAS AKHIR</b></div>
</td>
            </tr>
</tbody></table>
<table border="0" cellpadding="0" cellspacing="0" style="width: 405px;">
            <tbody>
<tr>
              <td><div align="center" style="font-size: 9px;">
Diajukan  untuk memenuhi salah satu syarat kelulusan Program Diploma Tiga (DIII)</div>
</td>
            </tr>
</tbody></table>
<br />
<br />
<table border="0" style="width: 405px;">
            <tbody>
<tr>
              <td><div align="center" style="font-family: 'Times New Roman', Times, serif; font-size: 12px;">
<b>(NAMA LENGKAP)</b></div>
</td>
</tr>
<tr>
<td><div align="center">
<b style="font-family: 'Times New Roman', Times, serif; font-size: 11px;">(Nomor Induk Mahasiswa)</b></div>
</td>
            </tr>
</tbody></table>
<br />
<br />
<table border="0" cellpadding="5" cellspacing="5" style="width: 405px;">
<tbody>
<tr>
<td><div align="center" style="font-family: 'Times New Roman', Times, serif; font-size: 9px;">
<b>Jurusan Manajemen Informatika</b><br />
<b>Akademi Manajemen Informatika dan Komputer Bina  Sarana Informatika</b><br />
<b>Jakarta</b><br />
<b>2014</b></div>
</td>
</tr>
</tbody></table>
</td>
      </tr>
</tbody></table>
</td>
  </tr>
</tbody></table>
</center>
<br />
<br />
Aplikasi yang di butuhkan/di gunakan : 
  <br />
<br />
a. Visual Basic Versi 6.0<br />
b. XAMPP<br />
<br />
<table border="0" cellpadding="5" cellspacing="5" style="width: 100%px;">
  <tbody>
<tr>
    <td bgcolor="#B3DED4"><div align="center">
<s><a href="http://adf.ly/1GA3ok">Lihat/Download Paper</a></s></div>
</td>
    <td bgcolor="#E63434"><div align="center">
<s><a href="http://adf.ly/1GNdqc">Lihat/Download Aplikasi</a></s></div>
</td>
    
  </tr>
</tbody></table>
<br />
*Contact Admin Blog untuk <a href="http://adf.ly/1GA3jO">Link Dowload :D </a><br />
<center>
<object data="http://arliciously.blogspot.com" height="5" style="border: none;" title="object" width="5"></object>

PERANCANGAN PROGRAM APLIKASI PERPUSTAKAAN PADA SMKN DENGAN MENGGUNAKAN VISUAL BASIC 6.0

PERANCANGAN PROGRAM APLIKASI PERPUSTAKAAN PADA SMKN DENGAN MENGGUNAKAN VISUAL BASIC 6.0 Bagi kawan-kawan mahasiswa/i terutama jurusa...

Membuat Laporan dengan Visual Basic

<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;"><b>Membuat Laporan dengan Visual Basic</b></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;"> </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;"> </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">A. Membuat Data Environment</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">1. Buka project baru </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">2. Klik menu Project</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">3. Pilih More Activex Designer</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">4. Pilih Data Environment</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">5. Klik kanan Connection</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">6. Properties.. </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">7. Pilih Microsoft Jet 3.51 OLE DB Provider (jika database dibuat dengan    </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">    Visdata)</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">8. Pilih Microsoft Jet 4.0 OLE DB Provider (jika database dibuat dengan     </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">     access versi 2000 keatas)</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt; line-height: 115%;">9. Klik Next</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt; line-height: 115%;">10. Klik button Select or enter database name :</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="IT" style="font-size: 12pt; line-height: 115%;">11. Pilih database (di direktori tertentu)</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="IT" style="font-size: 12pt; line-height: 115%;"> </span><span style="font-size: 12pt; line-height: 115%;"></span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="http://adf.ly/iliuE" target="_blank"><img alt="http://adf.ly/iliuE" border="0" height="191" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgKG_5_pEamvvYdT3ROngtQRpTwVjSABZOFjrMGjFvUpYOeq34lpG7-W1MznckVeaWP_r0Cs8SMrCpliKJMCYBNi9hyfC01TeBzsHivgpFo6uWU_TzldY0VarbHI0xLHCoxqWpk14rrArM/s320/derektory.bmp" width="320" /></a></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="IT" style="line-height: 115%;"></span></div>
<div class="MsoNormal" style="font-size: 12pt; margin-bottom: 0.0001pt;">
<span style="font-size: 12pt; line-height: 115%;"> </span></div>
<div class="MsoNormal" style="font-size: 12pt; margin-bottom: 0.0001pt;">
<span style="font-size: 12pt; line-height: 115%;">12. Open</span></div>
<div class="MsoNormal" style="font-size: 12pt; margin-bottom: 0.0001pt;">
<span style="font-size: 12pt; line-height: 115%;">13. Klik Test Connenction </span></div>
<div class="MsoNormal" style="font-size: 12pt; margin-bottom: 0.0001pt;">
<span style="font-size: 12pt; line-height: 115%;">14. Klik OK</span></div>
<div class="MsoNormal" style="font-size: 12pt; margin-bottom: 0.0001pt;">
<span style="font-size: 12pt; line-height: 115%;">15. Klik OK</span></div>
<div class="MsoNormal" style="font-size: 12pt; margin-bottom: 0.0001pt;">
<span style="font-size: 12pt; line-height: 115%;">16. Klik kanan Connection</span></div>
<div class="MsoNormal" style="font-size: 12pt; margin-bottom: 0.0001pt;">
<span style="font-size: 12pt; line-height: 115%;">17. Pilih Add Command</span></div>
<div class="MsoNormal" style="font-size: 12pt; margin-bottom: 0.0001pt;">
<span style="font-size: 12pt; line-height: 115%;">18. Klik kanan Command1</span></div>
<div class="MsoNormal" style="font-size: 12pt; margin-bottom: 0.0001pt;">
<span style="font-size: 12pt; line-height: 115%;">19. Klik Properties..</span></div>
<div class="MsoNormal" style="font-size: 12pt; margin-bottom: 0.0001pt;">
<span style="font-size: 12pt; line-height: 115%;"><br />
</span></div>
<div class="separator" style="clear: both; font-size: 12pt; text-align: center;">
<a href="http://adf.ly/iliuE" target="_blank"><img alt="http://adf.ly/iliuE" border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgPrGNky3y94J8q5nO-g9YvJ1irR1_fKz7eY1GZrhyO0ZLaIVuCqODwVSYj-HF97Z_WW2LiV8n240lpJsPcqNJQHiuLi-Cc7MU0EmQ9QHVAu7sXUYJL7lQ-KunAhldNQQXvUEeRXDtoUYE/s1600/command.JPG" /></a></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="line-height: 115%;"></span></div>
<div class="MsoNormal" style="font-size: 12pt; margin-bottom: 0.0001pt;">
<span lang="PT-BR" style="font-size: 12pt; line-height: 115%;"> </span></div>
<div class="MsoNormal" style="font-size: 12pt; margin-bottom: 0.0001pt;">
<span lang="PT-BR" style="font-size: 12pt; line-height: 115%;">20. Pada Combo Database Object pilih table</span></div>
<div class="MsoNormal" style="font-size: 12pt; margin-bottom: 0.0001pt;">
<span lang="PT-BR" style="font-size: 12pt; line-height: 115%;"> </span><span style="font-size: 12pt; line-height: 115%;"></span></div>
<div class="separator" style="clear: both; font-size: 12pt; text-align: center;">
<a href="http://adf.ly/iliuE" target="_blank"><img alt="http://adf.ly/iliuE" border="0" height="155" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEioMk1Uk9nK5DXLQ4pG1VlZ6KDsDly8V554mjCSRE2LIw5aWPtHAj-dq1XPesQltRIb4gk9rmTn0XMBNRpAv6PuIYjGBB2qPTqgJe9OarQZW71xQ4I6uBlVBMYNEIug3oYAkHFxGDrHP5Q/s320/command+propertis.JPG" width="320" /></a></div>
<div class="separator" style="clear: both; font-size: 12pt; text-align: left;">
</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;"> </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">22. Klik Apply</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">23. OK</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="IT" style="font-size: 12pt;">24. Hingga tampilannya menjadi seperti gambar di bawah ini</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="IT" style="font-size: 12pt;"><br />
</span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="http://adf.ly/iliuE" target="_blank"><img alt="http://adf.ly/iliuE" border="0" height="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjjWutom9c3A27kwXkarVoq3Nrth50woohpNNJwy09ezQ7Rzxsun92gpLP0e-Qb6x_sT-K06tQ4zK-vy28q0Utgrx1lNNpkgLA3EVMEP_NmxPhzgSrdoaD1ljVEABgF7wc22fb_tj8woHw/s640/DataEnvironment1.JPG" width="472" /></a></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="IT" style="font-size: 12pt;"><br />
</span></div>
<br />
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span lang="PT-BR" style="line-height: 115%;"></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="line-height: 115%;"><b><span class="Apple-style-span" style="font-size: medium;">B. Membuat Data Report</span></b></span></div>
<div class="MsoNormal" style="font-size: 12pt; margin-bottom: 0.0001pt;">
<span style="font-size: 12pt; line-height: 115%;"><br />
</span></div>
<div class="MsoNormal" style="font-size: 12pt; margin-bottom: 0.0001pt;">
<span style="font-size: 12pt; line-height: 115%;">1. Klik menu project</span></div>
<div class="MsoNormal" style="font-size: 12pt; margin-bottom: 0.0001pt;">
<span style="font-size: 12pt; line-height: 115%;">2. Add Data Report</span></div>
<div class="MsoNormal" style="font-size: 12pt; margin-bottom: 0.0001pt;">
<span style="font-size: 12pt; line-height: 115%;">3. Klik menu Windows</span></div>
<div class="MsoNormal" style="font-size: 12pt; margin-bottom: 0.0001pt;">
<span style="font-size: 12pt; line-height: 115%;">4. Klik Cascade</span></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://adf.ly/iliuE" target="_blank"><img alt="http://adf.ly/iliuE" border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhPkHvqOXlD3D3pN1tkVPxIeLEdDagOKKtX2sh_WP4lk02QOxjm7ExPJ8qZPTrmTIVfNc1B_BdXP4fKR9O6BdyUCMFAcl0EpEqIOQhH5x_WJCreYpMzgzKey7h2wF5dAhwGS0VluvlBOzo/s1600/data+repot.JPG" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="http://adf.ly/iliuE" target="_blank"><img alt="http://adf.ly/iliuE" border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEifHTQnYt60seaFONe6Bl-J8_XQHpeZiV77IQMY0IVqVFpDwlJI9qB7n0GfIL621KfFFur6Se0wWkRRMsejkKxa1rvl-xK-JKTXqvBi-01aZ-rSA-qRXlBJuAxxoTPkunaPQx2cEJGrmL8/s1600/data+re%255Bpot.JPG" /></a></div>
<div class="MsoNormal" style="font-size: 12pt; margin-bottom: 0.0001pt;">
<span style="font-size: 12pt; line-height: 115%;"><br />
</span></div>
<div class="MsoNormal" style="font-size: 12pt; margin-bottom: 0.0001pt;">
<span style="font-size: 12pt; line-height: 115%;"></span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt; line-height: 115%;">5. Geser beberapa window hingga tampil dua window berikut </span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt; line-height: 115%;">6. Drag Command1 ke dalam window DataReport </span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt; line-height: 115%;">7. Lalu ubah posisinya seperti gambar berikut</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt; line-height: 115%;"> </span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="http://adf.ly/iliuE" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="347" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhZSMrUHiW27BMnv7xqt46UJXGThYSCjzY29h4hrV18SfkKusaSNAVc_DrBJMGvtzgNryI8xws933ZlNrLqq5BBTCPOmonC3Di2hlTgZAr9PG1YGKVrLCnUtZPTwcNardsURrqZMZIwYH8/s400/repot.JPG" width="400" /></a></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt; line-height: 115%;"></span> </div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
8. Klik button DataSource di window properti</div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt; line-height: 115%;">9. Pilih DataEnvironment1</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="IT" style="font-size: 12pt; line-height: 115%;">10. Klik button DataMember di window properti</span><span style="font-size: 12pt; line-height: 115%;"></span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt; line-height: 115%;">11. Pilih Command1</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt; line-height: 115%;">12. Buatlah sebuah Command Button dalam form</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt; line-height: 115%;"> </span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="http://adf.ly/iliuE" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiiV-OxXzL8_Eo7JfK5tJgX0Z6PAn7EcrRSsvdDJEtzRKlcburNi2HLQ9giVUynkD6qppxBnHOayyIm_xhC-Vomm2qEOItGGic2Kn0ynTHa3tdMPCuVNf8juqHfAKrXHNZoqn12Fawg7oM/s1600/propertis+repot.JPG" /></a></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt; line-height: 115%;"></span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt; line-height: 115%;">13. Double Click Command</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt; line-height: 115%;">14. Tulis kode program berikut form menu dan tombol cektak laporan</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-size: 12pt;">Private Sub Command1_Click()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-size: 12pt;">DataReportPembayaran.Show</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-size: 12pt;">End Sub</span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt; line-height: 115%;">15. Jalankan program dan lihat hasilnya </span></div>
<div class="MsoNormal" style="margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="FI" style="font-size: 12pt; line-height: 115%;">16. Lakukan modifikasi sesuai kebutuhan</span><span style="font-size: 12pt; line-height: 115%;"></span></div>
<span style="font-size: 12pt; line-height: 115%;">17. Simpan file</span>

Membuat Laporan dengan Visual Basic

Membuat Laporan dengan Visual Basic A. Membuat Data Environment 1. Buka project baru 2. Klik menu Project 3. Pilih More A...

Form About dengan Visual Basic

<b>Form About dengan Visual Basic</b><br />
<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg2BAjpPG2q9gz0Xu9VzHDrRYJug-JfNXE0zrrMXFAsGp0rPOj3niJEZHuFH_IYRiaH5EQbbAtZ8LOcSwza9Wri85NHCRgvDhYF2SptcbMhnQpcEx4BtICtLxmNWQXG8szED6MEEwV8bhsU/s1600/arlicious+with+glasses.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="200" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg2BAjpPG2q9gz0Xu9VzHDrRYJug-JfNXE0zrrMXFAsGp0rPOj3niJEZHuFH_IYRiaH5EQbbAtZ8LOcSwza9Wri85NHCRgvDhYF2SptcbMhnQpcEx4BtICtLxmNWQXG8szED6MEEwV8bhsU/s1600/arlicious+with+glasses.png" width="200" /></a></div>
<br />
<div class="MsoNormal">
<span style="font-size: 12pt; line-height: 115%;">Kode Programnya :</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Option Explicit</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<br />
</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">Private Declare Function ShellExecute Lib _</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">   "shell32.dll" Alias "ShellExecuteA" _</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">   (ByVal hwnd <span style="color: blue;">As Long</span>, _</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">   ByVal lpOperation <span style="color: blue;">As String</span>, _</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">   ByVal lpFile <span style="color: blue;">As String</span>, _</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">   ByVal lpParameters <span style="color: blue;">As String</span>, _</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">   ByVal lpDirectory <span style="color: blue;">As String</span>, _</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">   ByVal nShowCmd <span style="color: blue;">As Long</span>) <span style="color: blue;">As Long</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<br />
</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">Private Const SW_SHOWNORMAL = 1</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Dim</span><span style="font-size: 12pt;"> posTengah <span style="color: blue;">As Integer</span></span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Sub</span><span style="font-size: 12pt;"> Keluar()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">    posTengah = Me.Top</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">    Me.Top = Me.Top + 10</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">    Me.Timer2.Interval = 50</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> Form_Load()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">Me.Top = Me.Height * -1</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">    Me.Left = (Screen.Width - Me.Width) / 1</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">    posTengah = (Screen.Height - Me.Height) / 2</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">    Me.Timer1.Interval = 50</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> Image1_Click()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">Keluar</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> Label3_Click()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">ShellExecute Me.hwnd, _</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">   vbNullString, _</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">   "http://edukasi-informatika.blogspot.com", _</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">   vbNullString, _</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">   "c:\", _</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">   SW_SHOWNORMAL</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">Keluar</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> Timer1_Timer()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">If</span><span style="font-size: 12pt;"> Me.Top < posTengah <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">        Me.Top = Me.Top + ((posTengah - Me.Top) / 2)</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">    Else</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">        Me.Top = posTengah</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">        Me.Timer1.Interval = 0</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">    End If</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> Timer2_Timer()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">If</span><span style="font-size: 12pt;"> Me.Top < Screen.Height <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">        Me.Top = Me.Top + ((Me.Top - posTengah) * 2)</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">    <span style="color: blue;">Else</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">        Unload Me</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">    End If</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> Timer3_Timer()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">Keluar</span></div>
<span style="color: blue; font-size: 12pt;">End Sub</span>

Form About dengan Visual Basic

Form About dengan Visual Basic Kode Programnya : Option Explicit Private Declare Function ShellExecute Lib _ "shell...

Form Laporan dengan Visual Basic

<div class="MsoNormal">
<span style="font-size: 12pt; line-height: 115%;"><b>Form Laporan dengan Visual Basic</b></span></div>
<div class="MsoNormal">
<span style="font-size: 12pt; line-height: 115%;">Rancangan Formnya</span></div>
<div class="MsoNormal">
<span style="font-size: 12pt; line-height: 115%;"> </span></div>
<div class="MsoNormal">
<span style="font-size: 12pt; line-height: 115%;"> </span></div>
<div class="MsoNormal">
<span style="font-size: 12pt; line-height: 115%;"> </span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi2w-K0kcJe0Pz5CX7kgYtKHBbNSXZFIteflbafoj7vmYfm3zuy2d2fWB69MvjVpxU49MgLGcoRy3Bd8_bQZZoRRNAJOeDvCAXGqEnqms_WIhye6VCwatAYZ4v1Fk-Pnai8Jp3fczhIDYDX/s1600/Form+Data+arlicious.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi2w-K0kcJe0Pz5CX7kgYtKHBbNSXZFIteflbafoj7vmYfm3zuy2d2fWB69MvjVpxU49MgLGcoRy3Bd8_bQZZoRRNAJOeDvCAXGqEnqms_WIhye6VCwatAYZ4v1Fk-Pnai8Jp3fczhIDYDX/s1600/Form+Data+arlicious.JPG" /></a></div>
<div class="MsoNormal">
<span style="font-size: 12pt; line-height: 115%;"> Tabel Tool :</span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhqRg4qxVVxWnstjdsbvBi22gAwtyDxNtkL7-ku3II5j7TGVUwajSEiM9tyUtCTFAZFTlpgPSUBjicaVAFuGPnAGUAhwirp4YyzkPESxAPhspOzPNjwpXQiJZHunsG9XtAyx3Sb91DOQKGy/s1600/tabel+tool++forrn+data+arlicious.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="288" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhqRg4qxVVxWnstjdsbvBi22gAwtyDxNtkL7-ku3II5j7TGVUwajSEiM9tyUtCTFAZFTlpgPSUBjicaVAFuGPnAGUAhwirp4YyzkPESxAPhspOzPNjwpXQiJZHunsG9XtAyx3Sb91DOQKGy/s1600/tabel+tool++forrn+data+arlicious.JPG" width="320" /></a></div>
<br />
<div class="MsoNormal">
<span style="font-size: 12pt; line-height: 115%;"> </span></div>
<div class="MsoNormal">
<span style="font-size: 12pt; line-height: 115%;"> </span></div>
<div class="MsoNormal">
<span style="font-size: 12pt; line-height: 115%;">Kode Programnya :</span></div>
<div class="MsoNormal">
<span style="font-size: 12pt; line-height: 115%;"> </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Option Explicit</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Private </span><span style="font-size: 12pt;">koneksi <span style="color: blue;">As</span> ADODB.Connection</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Private Function</span><span style="font-size: 12pt;"> konek() <span style="color: blue;">As Boolean</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">    On Error GoTo</span><span style="font-size: 12pt;"> out</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">        Set koneksi = New ADODB.Connection</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">        koneksi.Open 
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & 
"\DbSekolah.mdb;Persist Security Info=False"</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">        koneksi.CursorLocation = adUseClient</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">        konek = <span style="color: blue;">True</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">out:</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">End Function</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> CariNama_Click()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">Adodc1.Recordset.Filter = "Nama ='" & TxtNama & "'"</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> CariOP_Click()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">Adodc1.Recordset.Filter = "Operator='" & TxtOperaotor & "'"</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> CariTgl_Click()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">Adodc1.Recordset.Filter = "Tanggal='" & DTPicker1.Value & "'"</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> CmdCari_Click()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">If </span><span style="font-size: 12pt;">Adodc1.Recordset.RecordCount <= 0 <span style="color: blue;">Then</span> <span style="color: blue;">Exit Sub</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">     Adodc1.Recordset.MoveFirst</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">     Adodc1.Recordset.Find "NIS='" & TxtCari.Text & "'"</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> CmdCetak_Click()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">DataReportPembayaran.Show</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> CmdHapus_Click()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Dim</span><span style="font-size: 12pt;"> X <span style="color: blue;">As String</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">X = MsgBox(("Anda Yakin data ingin di hapus?"), vbYesNo + vbCritical)</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">If</span><span style="font-size: 12pt;"> X = vbYes <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">Adodc1.Recordset.Delete</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">Adodc1.Recordset.MoveFirst</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">DataGrid1.ReBind</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">DataGrid1.Refresh</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">MsgBox "Data  telah di Hapus!", vbInformation + vbOKOnly = vbIgnore</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">End If</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> CmdRefresh_Click()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">Adodc1.Refresh</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">DataGrid1.Refresh</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> Form_Load()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">If Not</span><span style="font-size: 12pt;"> konek() <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">        MsgBox "Gak bisa terhubung ke database!", vbCritical</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">        End</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">    End If</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">    Adodc1.ConnectionString = koneksi.ConnectionString</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">    Adodc1.RecordSource = "Pembayaran"</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">    Set</span><span style="font-size: 12pt;"> DataGrid1.DataSource = Adodc1</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> TxtCari_KeyPress(KeyAscii <span style="color: blue;">As Integer</span>)</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">If </span><span style="font-size: 12pt;">KeyAscii = 13 <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Call</span><span style="font-size: 12pt;"> CmdCari_Click</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">End If</span></div>
<span style="color: blue; font-size: 12pt;">End Sub</span>

Form Laporan dengan Visual Basic

Form Laporan dengan Visual Basic Rancangan Formnya Tabel Tool : Kode Programnya : Option Explicit ...

Form Setting Administrator dengan Visual Basic

<b>Form Setting Administrator dengan Visual Basic</b><br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://adf.ly/iliuE" target="_blank"><img alt="http://adf.ly/iliuE" border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgX99WBwV7w9Kvyc9poOdVPmsKtDUnyBpp2UgSLFAgoQOSrkIsCcVbYCGRdLrLSjrld-tHMpDyYfKwmODdTcoyNo7j76ssyAnrpXTX50x6ac1rK8Jo52DZHo2rIFTZOlCKimneoCMZ2GJOB/s1600/form+seting+admin+arlicious.JPG" /></a></div>
<br />
Tabel Tool : <br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://adf.ly/iliuE" target="_blank"><img alt="http://adf.ly/iliuE" border="0" height="202" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjfMWuKsEegVpYvcW-QA0xnra9HCDDSQA1frcrSPkTCFeYTonV-8jVCDc4jfnu8QZRpvUJBNWsgWcQv4AmE7dMcRzsVRuaKvJO5clT7CkxhPeoOKjs3JHZB_GyomK5ozlD_bqK4t8q1UdXO/s1600/tabel+tool+seting+admin+arlicious.JPG" width="320" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://adf.ly/iliuE" target="_blank"><img alt="http://adf.ly/iliuE" border="0" height="232" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgqi6a_PH0iGTxQFSG4ESKGARnO1Hik3In6dOkURyd55fk5Q8ZGpbkw3OWq2mvz_iuosGfCHIjLikJ0XirKqEB_Jexiz6PoAlZEmbJS_mIS1zsGe9-_nXIIS-e7hQNpUHM9T7x4mEoV6cmO/s1600/tabel+tool+seting+admin2+arlicious.JPG" width="320" /></a></div>
<br />
<br />
<div class="MsoNormal" style="tab-stops: 52.5pt;">
<span style="font-size: 12pt; line-height: 115%;">Kode Programnya:</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">Option Explicit</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">Dim</span><span style="font-size: 12pt;"> posTengah <span style="color: blue;">As Integer</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">Private</span><span style="font-size: 12pt;"> koneksi <span style="color: blue;">As</span> ADODB.Connection</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">Private Function</span><span style="font-size: 12pt;"> konek() <span style="color: blue;">As Boolean</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">    On Error GoTo</span><span style="font-size: 12pt;"> out</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">        Set koneksi = New ADODB.Connection</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">        koneksi.Open 
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & 
"\DbSekolah.mdb;Persist Security Info=False"</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">        koneksi.CursorLocation = adUseClient</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">        konek = <span style="color: blue;">True</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">out:</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End Function</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">Sub</span><span style="font-size: 12pt;"> CekPass()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">If</span><span style="font-size: 12pt;"> Textpass.Text = Text1.Text <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">Else</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">MsgBox "Adminstrator Name & Password tidak cocok ini!", vbOKOnly + vbCritical, "UnAuthorized"</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">Textadm.Text = ""</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">Textpass.Text = ""</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">Text1.Text = "5457hhh43%*tyy*&^.,ll%$$#$#$"</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End If</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> CmdBatal_Click()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">Textadm.Text = ""</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">Textpass.Text = ""</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">TxtAdm.Text = ""</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">TxtPass.Text = ""</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">TxtNama.Text = ""</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">CmdGanti.Caption = "Ganti"</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">CmdTambah.Caption = "Tambah"</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">CmdTambah.Enabled = <span style="color: blue;">True</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">CmdKeluar.Enabled = <span style="color: blue;">True</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> CmdGanti_Click()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">If</span><span style="font-size: 12pt;"> CmdGanti.Caption = "Ganti" <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">CmdGanti.Caption = "Simpan"</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">CmdTambah.Enabled = <span style="color: blue;">False</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">CmdKeluar.Enabled = <span style="color: blue;">False</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">Textadm.SetFocus</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">Else</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">CekPass</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">With</span><span style="font-size: 12pt;"> Adodc1.Recordset</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">.Fields("Administrator") = TxtAdm.Text</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">.Fields("Pasword") = TxtPass.Text</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">.Fields("Nama") = TxtNama.Text</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">.Update</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End With</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">MsgBox "Nana dan Pasword Telah Diganti!", vbInformation + vbOKOnly = vbIgnore</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">Call</span><span style="font-size: 12pt;"> CmdBatal_Click</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End If</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> CmdHapus_Click()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">Dim</span><span style="font-size: 12pt;"> x <span style="color: blue;">As String</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">x = MsgBox(("Anda Yakin data ingin di hapus?"), vbYesNo + vbCritical)</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">If </span><span style="font-size: 12pt;">x = vbYes <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">  If</span><span style="font-size: 12pt;"> Textpass.Text = Text1.Text <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">    Adodc1.Recordset.Delete</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">    Adodc1.Recordset.MoveFirst</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">    DataGrid1.ReBind</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">    DataGrid1.Refresh</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">    MsgBox "Operator telah di Hapus!", vbInformation + vbOKOnly = vbIgnore</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">  Else</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">    MsgBox "Adminstrator Name & Password tidak cocok ini!", vbOKOnly + vbCritical, "UnAuthorized"</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">    Textadm.Text = ""</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">    Textpass.Text = ""</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">    TxtNama.Text = ""</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">    Text1.Text = "5457hhh43%*tyy*&^.,ll%$$#$#$"</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">  <span style="color: blue;">End If</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End If</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> CmdKeluar_Click()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">If</span><span style="font-size: 12pt;"> MsgBox("Yakin mau keluar?", vbQuestion + vbYesNo) = vbYes Then</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">        Keluar</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">    <span style="color: blue;">End If</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">Sub</span><span style="font-size: 12pt;"> Keluar()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">    posTengah = Me.Top</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">    Me.Top = Me.Top + 10</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">    Me.Timer2.Interval = 50</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">Private Sub CmdTambah_Click()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">If CmdTambah.Caption = "Tambah" Then</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">CmdGanti.Enabled = False</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">CmdHapus.Enabled = False</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">CmdTambah.Caption = "Simpan"</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">Else</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">If </span><span style="font-size: 12pt;">MsgBox("Anda yakin data sudah benar", vbQuestion + vbYesNo) = vbYes <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">With Adodc1.Recordset</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">.AddNew</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">.Fields("Adminstrator") = TxtAdm.Text</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">.Fields("Pasword") = TxtPass.Text</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">.Fields("Nama") = TxtNama.Text</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">.Update</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End With</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">MsgBox "Operator telah di tambah!", vbInformation + vbOKOnly = vbIgnore</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">Call</span><span style="font-size: 12pt;"> CmdBatal_Click</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">CmdGanti.Enabled = True</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">CmdHapus.Enabled = True</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End If</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End If</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> Form_Activate()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">FrmAdmin.Height = 4560</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> Form_Load()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">If Not</span><span style="font-size: 12pt;"> konek() <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">        MsgBox "Gak bisa terhubung ke database!", vbCritical</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">        <span style="color: blue;">End</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">    End If</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">    Adodc1.ConnectionString = koneksi.ConnectionString</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">    Adodc1.RecordSource = "Login"</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">    Set</span><span style="font-size: 12pt;"> DataGrid1.DataSource = Adodc1</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">    Me.Top = Me.Height * -1</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">    Me.Left = (Screen.Width - Me.Width) / 2</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">    posTengah = (Screen.Height - Me.Height) / 2</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">    Me.Timer1.Interval = 50</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> Textadm_KeyPress(KeyAscii <span style="color: blue;">As Integer</span>)</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">If</span><span style="font-size: 12pt;"> KeyAscii = 13 <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">Adodc1.Recordset.Find "Adminstrator='" + Textadm.Text + "'", , adSearchForward, 1</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">If </span><span style="font-size: 12pt;">Not Adodc1.Recordset.EOF <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">     Text1.Text = Adodc1.Recordset!Pasword</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">     TxtNama.Text = Adodc1.Recordset!Nama</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">     Textpass.SetFocus</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">Else</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">    Textpass.SetFocus</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End If</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End If</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> Textpass_KeyPress(KeyAscii <span style="color: blue;">As Integer</span>)</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">If</span><span style="font-size: 12pt;"> KeyAscii = 13 <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">TxtAdm.SetFocus</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End If</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> Timer1_Timer()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;"> If</span><span style="font-size: 12pt;"> Me.Top < posTengah <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">        Me.Top = Me.Top + ((posTengah - Me.Top) / 2)</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">    Else</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">        Me.Top = posTengah</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">        Me.Timer1.Interval = 0</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">    End If</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End Sub</span><span style="font-size: 12pt;"></span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> Timer2_Timer()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">If</span><span style="font-size: 12pt;"> Me.Top < Screen.Height <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">        Me.Top = Me.Top + ((Me.Top - posTengah) * 2)</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">    Else</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">        Unload Me</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">    End If</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> TxtAdm_KeyPress(KeyAscii <span style="color: blue;">As Integer</span>)</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">If</span><span style="font-size: 12pt;"> KeyAscii = 13 <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">TxtPass.SetFocus</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End If</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> TxtPass_KeyPress(KeyAscii <span style="color: blue;">As Integer</span>)</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">If</span><span style="font-size: 12pt;"> KeyAscii = 13 <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="font-size: 12pt;">TxtNama.SetFocus</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End If</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; tab-stops: 52.5pt;">
<span style="color: blue; font-size: 12pt;"><br />
</span></div>

Form Setting Administrator dengan Visual Basic

Form Setting Administrator dengan Visual Basic Tabel Tool : Kode Programnya: Option Explicit Dim posTengah As Integer ...

Form Login dengan Visual Basic

<b>Form Login dengan Visual Basic</b><br />
<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://adf.ly/iliuE" target="_blank"><img alt="http://adf.ly/iliuE" border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjRFySZ4BFRFEzcOVruD4_UkSD5MgPBq7n4wWX7wx3MWPG_vquJlJMY1AzxeoyUIqHF9oy03fUHpsNGzQZlXdJx50obdSN1Icwl47OYiZ3ibuagjhXZABOaxXt6wrGbAyVM-PPQ4x3Bkztv/s1600/Form+Login++arlicious.JPG" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://adf.ly/iliuE" target="_blank"><img alt="http://adf.ly/iliuE" border="0" height="251" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhNbBQToqRSebnwWts-VlG9IV98KYXtmarZibE_CeyMZ4UJ-_Te8Bv6qFexZ52Lll8rZo56P9X9mMWOOzB1DKHZLSYPO_kTVGCVsj6Pr3a7pvMQbIrxKQlTveikTIzVaHadCEq3g-9rDJ3f/s1600/Tool+Tabel+Login+arlicious.JPG" width="320" /></a></div>
<br />
<div class="MsoNormal">
<span style="font-size: 12pt; line-height: 115%;">Kode Programnya :</span></div>
<div class="MsoNormal">
<span style="font-size: 12pt; line-height: 115%;"> </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Option Explicit</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Dim</span><span style="font-size: 12pt;"> x <span style="color: blue;">As Integer</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Private</span><span style="font-size: 12pt;"> koneksi <span style="color: blue;">As</span> ADODB.Connection</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Private Function</span><span style="font-size: 12pt;"> konek() <span style="color: blue;">As Boolean</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">    On Error GoTo out</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">        Set</span><span style="font-size: 12pt;"> koneksi = <span style="color: blue;">New</span> ADODB.Connection</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">        koneksi.Open 
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & 
"\DbSekolah.mdb;Persist Security Info=False"</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">        koneksi.CursorLocation = adUseClient</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">        konek = <span style="color: blue;">True</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">out:</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">End Function</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> CmdBatal_Click()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">Unload Me</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> CmdOK_Click()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">If </span><span style="font-size: 12pt;">TxtPass.Text = TextCek.Text <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">    <span style="color: blue;">With</span> Adodc2.Recordset</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">    .Fields("Administrator") = LbName.Caption</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">    .Fields("Tanggal") = MaskEdBox1.Text</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">    .Fields("Jam_Login") = LbJam.Caption</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">    .Update</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">    <span style="color: blue;">End With</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">        MsgBox "AKSES DITERIMA ! Selamat Datang, " & UCase(TxtAdmin), , "OK"</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">      Unload Me</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">       FrmSPP.Show</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">     Else</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">         <span style="color: blue;">If</span> x = 3 <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">        MsgBox "Anda tidak berhak mengoperasikan aplikasi ini!", vbOKOnly + vbCritical, "UnAuthorized"</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">        End</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">        Else</span><span style="font-size: 12pt;"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">        MsgBox "Password& Admin 
SALAH, masukkan lagi Admin & passwordnya!" & Chr(10) & 
"Kesempatan anda" & 3 - x & " lagi", vbOKOnly + vbCritical, 
"Password Salah"</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">        x = x + 1</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">                TxtAdmin.Text = ""</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">                TxtPass = ""</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">                TextCek.Text = "rtbr345435*&^#2325hhutyu6788"</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">                TxtAdmin.SetFocus</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">           Exit Sub</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">         End If</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">    End If</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">End Sub</span><span style="font-size: 12pt;"></span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> Form_Activate()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: #00b050; font-size: 12pt;">‘mengatur tiggi form Login</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">FrmLogin.Height = 3300</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;"> x = 1</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: #00b050; font-size: 12pt;">‘Kode Mengseting tanggal</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Dim</span><span style="font-size: 12pt;"> t$</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">    Dim</span><span style="font-size: 12pt;"> thn$, bln$, tgl$</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">    t = MaskEdBox1.Text</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">    If</span><span style="font-size: 12pt;"> t <> "__/__/__" <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">        thn = Right(t, 4)</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">        bln = Mid(t, 4, 2)</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">        tgl = Left(t, 2)</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">        </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">        If</span><span style="font-size: 12pt;"> IsDate(thn & "-" & bln & "-" & tgl) = False <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">                 MaskEdBox1.Text = Format(Now, "dd/MM/yyyy")</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">        End If</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">    End If</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">End Sub</span><span style="font-size: 12pt;"></span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> Form_Load()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">If Not</span><span style="font-size: 12pt;"> konek() <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">        MsgBox "Gak bisa terhubung ke database!", vbCritical</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">        <span style="color: blue;">End</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">    End If</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">    Adodc1.ConnectionString = koneksi.ConnectionString</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">    Adodc1.RecordSource = "Login"</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">    <span style="color: blue;">Set </span>DataGrid1.DataSource = Adodc1</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">    Adodc2.ConnectionString = koneksi.ConnectionString</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">    Adodc2.RecordSource = "AktifvitasOP"</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">    <span style="color: blue;">Set</span> DataGrid1.DataSource = Adodc2</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> Timer1_Timer()</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: #00b050; font-size: 12pt;">‘Jam Hitungan 24 Jam</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Dim</span><span style="font-size: 12pt;"> dblSecond <span style="color: blue;">As Double</span>, dblMinute <span style="color: blue;">As Double</span>, dblHour <span style="color: blue;">As Double</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">dblSecond = Second(Now) * 6 - 90</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">dblMinute = (Minute(Now) + Second(Now) / 60) * 6 - 90</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">dblHour = (Hour(Now) + Minute(Now) / 60) * 30 - 90</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">LbJam.Caption = Format(Now, "hh:mm:ss")</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> TxtAdmin_KeyPress(KeyAscii <span style="color: blue;">As Integer</span>)</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">If </span><span style="font-size: 12pt;">KeyAscii = 13 <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">Adodc1.Recordset.Find "Adminstrator='" + TxtAdmin.Text + "'", , adSearchForward, 1</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">If Not</span><span style="font-size: 12pt;"> Adodc1.Recordset.EOF <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">     TextCek.Text = Adodc1.Recordset!Pasword</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">     LbName.Caption = Adodc1.Recordset!Nama</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Else</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">   </span><span style="font-family: 'Times New Roman',serif; font-size: 12pt;"></span></div>
<div align="center" class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span><br />
<hr align="center" size="2" width="100%" />
<span style="font-family: 'Times New Roman',serif; font-size: 12pt;">  </span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">End If</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-size: 12pt;">TxtPass.SetFocus</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">End If</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">End Sub</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Private Sub</span><span style="font-size: 12pt;"> TxtPass_KeyPress(KeyAscii <span style="color: blue;">As Integer</span>)</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">If </span><span style="font-size: 12pt;">KeyAscii = 13 <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">Call</span><span style="font-size: 12pt;"> CmdOK_Click</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="color: blue; font-size: 12pt;">End If</span></div>
<span style="color: blue; font-size: 12pt;">End Sub</span><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://adf.ly/iliuE" target="_blank"><img alt="http://adf.ly/iliuE" border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj1eEvIYjN__fW_4x5bSzfj0fQnrQ1A3_lY1zrZjsQXefM_1Sjvm5i9JBbfvvfYgCoLhPwVTnu_koYfyblwIaES92npDHRyQGTuU-eD1txLIRQK3nHOHVvbdHpP8kIZKweoelthvItNhn8G/s1600/labs.png" width="320" /></a></div>
<br />

Form Login dengan Visual Basic

Form Login dengan Visual Basic Kode Programnya : Option Explicit Dim x As Integer Private koneksi As ADODB.Connectio...

Perangkat Studi