Membuat Data Base Excel by iwq94251

VIEWS: 2,081 PAGES: 76

Membuat Data Base Excel document sample

More Info
									“ PEMBUATAN DATABASE GURU DI SMP NEGERI 24 SEMARANG “



                         TUGAS AKHIR

       Diajukan Dalam Rangka Penyelesaian Studi Diploma III
                Untuk Mencapai Gelar Ahli Madya




                          Disusun oleh :

               Nama             : Untung Gunawan

               NIM              : 5352303501

               Program Studi    : D3 Teknik Elektro

               Jurusan          : Teknik Elektro




                      FAKULTAS TEKNIK

             UNIVERSITAS NEGERI SEMARANG

                               2007



                                i
                        HALAMAN PENGESAHAN



Laporan Tugas Akhir ini telah dipertahankan di hadapan sidang penguji Tugas
Akhir Fakultas Teknik Universitas Negeri Semarang


Pada hari     : Rabu
Tanggal       : 15 Agustus 2007


                                                      Pembimbing




                                                      Drs. Agus Suryanto, M.T
                                                      NIP. 131993878


Penguji II                                            Penguji I




Riana Defi Mahadji P. S.T, M.T                        Drs. Agus Suryanto, M.T
NIP. 132307547                                        NIP. 131993878


Ketua Jurusan Teknik Elektro,                         Kaprodi DIII Teknik Elektro,




Drs. Djoko Adi Widodo, M.T                            Drs. Agus Murnomo, M.T
NIP. 131570064                                        NIP. 131616610


                                       Dekan,




                                 Prof. Dr. Soesanto
                                 NIP. 130 875 753




                                        ii
                            KATA PENGANTAR




Assalamu’alaikum Wr. Wb.

        Syukur Alhamdulillah Kehadirat Alloh SWT yang telah melimpahkan

rahmat dan hidayah-Nya sehingga Tugas Akhir ini dapat terselesaikan. Sholawat

dan salam semoga senantiasa tercurah kepada Nabi Agung Muhammad SAW.

        Tugas akhir ini disusun dalam rangka penyelesaian studi Diploma III

untuk mencapai gelar Ahli Madya Fakultas Teknik Universitas Negri Semarang.

Tugas Akhir ini tidak akan selesai tanpa bantuan berbagai pihak. Oleh karena itu,

diucapkan terima kasih kepada :

    1. Bpk. Prof. Dr. Soesanto selaku Dekan Fakultas Teknik.

    2. Bpk. Drs. Djoko Adi Widodo, M.T selaku Ketua Jurusan Teknik Elektro.

    3. Bpk. Drs. Agus Murnomo, M.T selaku Kaprodi D III Teknik Elektro.

    4. Bpk. Drs. Agus Suryanto, M.T selaku Dosen Pembimbing Tugas Akhir.

    5. Bapak dan Ibu Dosen Jurusan Teknik Elektro UNNES.

    6. Abah yai Asmuni (Pengasuh PonPes Miftahul Falah Kebumen), abah yai

        Masruhan (Pengasuh PonPes ASWAJA Semarang), abah yai Basyir

        (Pengasuh PonPes Darul Falah Kudus).

    7. Untuk keluargaku Kebumen terutama bapak, ibu, adik-adik, om, tante

        dan semua pihak yang tidak dapat disebutkan satu-persatu, yang telah

        memberi doa dan dorongan moral maupun materiil, Matur suwun do’a

        pangestunipun...!




                                       iii
    8. Teman-teman Pondok ASWAJA kang Salim, kang Widodo, kang Warno

        mba khotimatul izah, mba Uswatun dan semua santri ( kange dan mbae).

    9. Teman-teman kost dan yang punya kost ( Mbah Sukimah & Mas Kino)

        yang senantiasa memberi do’a dan dorongan dalam penyelesaian Tugas

        Akhir ini.

    10. Joko Pitoyo dan Teguh yang senantiasa membantu.

    11. Rekan-rekan yang tak bisa penyusun sebutkan satu persatu yang telah

        banyak membantu dalam penyusunan laporan ini.

    12. Almamaterku Universitas Negeri Semarang (UNNES).

        Atas bantuan dan bimbingan yang telah diberikan kepada penulis selama

penulis menyelesaikan pembuatan tugas akhir & selama penulis kuliah.

       Semoga Alloh SWT memberi balasan atas segala budi baik dan

bantuannya dengan pahala yang lebih besar dari yang telah mereka berikan

kepada penulis.

        Penulis juga mohon saran dan kritik yang membangun dari pembaca

untuk kesempurnaan laporan Tugas Akhir ini. Semoga laporan ini dapat

bermanfaat bagi penulis dan pembaca semuanya . Amin.

Wassalamu’alaikum Wr. Wb.




                                                             Semarang,


                                                               Penulis




                                      iv
                       MOTTO DAN PERSEMBAHAN

Motto
        Aku bersaksi bahwa tiada tuhan salain Alloh dan aku bersaksi bahwa nabi
        Muhammad itu utusan Alloh
        Ingat para nabi adalah ibadah, Ingat para sholihin itu mengurangi /
        menghapus dosa, Ingat kubur itu mendekatkan kamu ke sorga
        Sumber ketenangan hidup: Agamo (Agama), Pakaryo (Pekerjaan),
        Turonggo (Kendaraan), Garwo (Suami/Istri), Putro (Anak/Keturunan),
        Wismo (Rumah/Tempat Tinggal)
        Pendampingku adalah orang yang rajin beribadah mau bekerja keras dan
        selalu berpegang teguh pada ajaran agama




               “Segala sesuatu yang hidup akan mati. Dan Kami (Alloh) akan
        memberikan keburukan dan kebaikan sebagai ujian. Dan kepada Kamilah
        (Alloh) kalian akan di kembalikan”                (QS. Al Anbiyaa: 35 )
        Indahnya Menggarap PR Surga.                      Abah Yai Masruhan




                     Persembahan
                     Karya ini kupersembahkan untuk:
                         Syukur Alhamdulillah Thanks, Alloh!
                         Ayah (Bpk Hisom), Ibu (Bu Sularti) & Adik2ku
                         (Amin,Andi&Nurma)         yang   tercinta,   yang   selalu
                         mendo’akan dan menyayangiku, I Love U For All
                         Joko Pitoyo yang selalu membantu Thank’s For All
                         Iryani atas do’a dan dukungannya Thank’s
                         Teman-teman TIK’03 UNNES Thank’s a lot




                                       v
                                  ABSTRAK


Untung Gunawan. 2007. Pembuatan Data Base Guru Di Sekolah SMP Negeri
24 Semarang. Tugas Akhir. D3 Teknik Elektro. Teknik Elektro. Fakultas Teknik.
Universitas Negeri Semarang.


       Sekolah adalah sebuah lembaga formal yang bertujuan untuk
mencerdaskan kehidupan bangsa. Dalam kegiatan sekolah tidak lepas dari data-
data yang dapat berubah sewaktu-waktu dengan jumlah data yang sangat besar.
Perubahan data tersebut harus tersimpan dengan baik. Dalam pengelolaan data
kebanyakan dari pihak sekolah menggunakan sistem pemrosesan manual. Dimana
data yang ada berupa setumpuk rekaman yang disimpan dalam rak berkas.
       Dalam kegiatan ini tidak seluruh keadministrasian yang ada di sekolah
dibuat program basis datanya. Tetapi berdasarkan pertimbangan waktu maka
hanya dibuat basis data guru, mata pelajaran dan wali kelas dari SMP Negeri 24
Semarang.
       Metode yang dilakukan dalam kegiatan ini adalah merancang dan
membuat basis data sistem administrasi sekolah melalui beberapa tahapan.
Tahapan-tahapan tersebut antara lain membuat rancangan diagram alir program,
menterjemahkan diagram alir program ke dalam tata bahasa program Microsoft
Visual Basic 6.0, membuat program, dan menguji program.
       Hasil kegiatan ini adalah sebuah basis data yang dapat membantu pihak
sekolah dalam melakukan pengelolaan data guru, mata pelajaran, dan wali kelas.
Basis data yang dibuat adalah basis data sistem administrasi sekolah di SMP
Negeri 24 Semarang.
       Basis data sistem administrasi sekolah yang dibuat programnya adalah
untuk guru berisi basis data biodata guru. Basis data mata pelajaran berisi basis
data mata pelajaran dan pengampunya. Basis data wali kelas berisi basis data
kelas dan wali kelasnya. Berdasarkan hasil kegiatan diatas disarankan kepada
pihak sekolah supaya menggunakan teknologi komputer dalam melakukan
kegiatan administrasi sekolah untuk mendapatkan keefektifan dan kecepatan
dalam kegiatan. Selain itu kepada pihak lain diharapkan melakukan
pengembangan software-software basis data sekolah untuk meningkatkan kualitas
pengelolaan sekolah.




                                       vi
                                                 DAFTAR ISI



                                                                                                            Halaman
HALAMAN JUDUL............................................................................................... i
HALAMAN PENGESAHAN ............................................................................... ii
KATA PENGANTAR .......................................................................................... iii
MOTO DAN PERSEMBAHAN.......................................................................... iv
ABSTRAK.............................................................................................................. v
DAFTAR ISI ......................................................................................................... vi
DAFTAR GAMBAR .......................................................................................... viii
DAFTAR TABEL................................................................................................. ix
DAFTAR LAMPIRAN ......................................................................................... x
BAB I. PENDAHULUAN ..................................................................................... 1
          A. Latar Belakang ....................................................................................... 1
          B . Permasalahan.......................................................................................... 4
          C . Pembatasan Masalah .............................................................................. 4
          D. Tujuan..................................................................................................... 4
          E . Manfaat................................................................................................... 4
          F . Sistematika Laporan Tugas Akhir .......................................................... 5
BAB II. KAJIAN TEORI ..................................................................................... 7
          A. Manajemen Sekolah .............................................................................. 7
                     a. Pengertian Manajemen Sekolah ................................................ 7
                     b. Fungsi-fungsi Manajemen Sekolah ........................................... 7
          B. Basis Data .............................................................................................. 7
                     a. Data dan Informasi .................................................................... 8
                     b. Hirarki Data ............................................................................... 9
                     c.    Sejarah Basis Data .................................................................... 9
                     d. Pengertian Basis Data................................................................ 9
                     e    Hirarki Data Dalam Basis Data ............................................... 10
                     f. Data Base Manahement system (DBMS) ............................... 11




                                                          vii
                     g. Perancangan Basis Data .......................................................... 12
          C. Visual Basic 6.0 ................................................................................... 13
                     a. Pemahaman Bahasa Pemrograman.......................................... 14
                     b. Tampilan Visual Basic 6.0 Pada Windows .............................. 21
          D. Kerangka Berfikir ................................................................................ 22
BAB III METODE PENELITIAN .................................................................... 24
          A. Ruang Lingkup Penelitian .................................................................. 24
          B. Variabel dan Cara Pengambilan Data.................................................. 26
                     a. Variabel Penelitian .................................................................. 26
                     b. Cara Pengambilan Data ........................................................... 26
          C. Perancangan Sistem ............................................................................. 27
          D. Analisis Data ....................................................................................... 28
BAB IV HASIL RANCANGAN PEMROGRAM ............................................ 29
          A. Pengembangan Sistem......................................................................... 29
                     a. Tahap Studi Kelayakan............................................................ 29
                     b. Tahap Rencana Pendahuluan................................................... 29
                     c. Tahap Perancangan Sistem ...................................................... 30
                     d. Tahap Implementasi Sistem .................................................... 33
          B. Hasil Pengujian dan Pembahasan ........................................................ 34
                     a. Uji Modul ................................................................................ 35
                     b. Uji Pengembangan .................................................................. 36
                     c. Uji Operasional........................................................................ 37
                     d. Pembahasan ............................................................................. 45
BAB III. PENUTUP ............................................................................................ 46
          A. Kesimpulan.......................................................................................... 46
          B. Saran .................................................................................................... 47
          C. Keterbatasan Program ......................................................................... 47
DAFTAR PUSTAKA .......................................................................................... 48
LAMPIRAN ......................................................................................................... 49




                                                         viii
                                     DAFTAR GAMBAR

                                                                                           Halaman
Gambar 1. Tampilan IDE Visual Basic 6.0 ......................................................... 21
Gambar 2. Struktur Organisasi SMP Negeri 24 Semarang................................. 25
Gambar 3. Diagram Alir Data (Flowchart)......................................................... 30
Gambar 4. Bagan Struktur Menu Awal................................................................ 31
Gambar 5. Bagan Struktur Menu Utama ............................................................. 31
Gambar 6. Bagan Struktur Menu File ................................................................. 32
Gambar 7. Bagan Struktur Menu Input ............................................................... 32
Gambar 8. Bagan Struktur Menu Cari................................................................. 32
Gambar 9. Bagan Struktur Menu Edit ................................................................. 33
Gambar 10. Bagan Struktur Menu Cetak............................................................. 33
Gambar 11. Tampilan Form Awal Program........................................................ 37
Gambar 12. Tampilan Form Manu Utama .......................................................... 38
Gambar 13. Tampilan Form Input Data Guru .................................................... 39
Gambar 14. Tampilan Form Iput Data Wali Kelas ............................................. 39
Gambar 15. Tampilan Form Input Data Mata Pelajaran ................................... 40
Gambar 16. Tampilan Form Cari Data guru ...................................................... 40
Gambar 17. Tampilan Form Cari Data Wali Kelas ............................................ 41
Gambar 18 Tampilan Form Cari Data Mata Pelajaran...................................... 41
Gambar 19. Tampilan Form Edit Data guru ....................................................... 42
Gambar 20. Tampilan Form Edit Data Wali Kelas ............................................. 42
Gambar 21. Tampilan Form Edit Data Mata Pelajaran ..................................... 43
Gambar 22. Tampilan Form Cetak Data guru .................................................... 43
Gambar 23. Tampilan Form Cetak Data Wali Kelas .......................................... 44
Gambar 24. Tampilan Form Cetak Data Mata Pelajaran................................... 44




                                                  ix
                                           DAFTAR TABEL

                                                                                                     Halaman
Tabel 1. Tipe data pada Visual Basic ................................................................... 17
Tabel 2. Operator matematik................................................................................ 19
Tabel 3. Operator logika ...................................................................................... 20
Tabel 4. Hasil Uji Modul ...................................................................................... 35
Tabel 5. Hasil Uji Pengembangan........................................................................ 36




                                       DAFTAR LAMPIRAN



Lampiran 1. Listing Program
Lampiran 2. Surat Tugas Dosen Pembimbing
Lampiran 3. Surat Selesai Bimbingan
Lampiran 4. Surat Observasi
Lampiran 5. Data Guru SMP Negri 24 Semarang




                                                        x
                                                                                1




                                      BAB I

                                  PENDAHULUAN



A. Latar Belakang

          Dalam kehidupan masyarakat terdapat sebuah lembaga formal dan non

   formal. Dimana lembaga tersebut bertujuan untuk meningkatkan sumber daya

   manusia yang berkualitas. Pendidikan formal adalah pendidikan sekolah

   sedangkan pendidikan non formal adalah pendidikan di luar sekolah.

          Dalam sekolah terjadi proses pendidikan yaitu proses yang berkenaan

   dengan perkembangan dan perubahan tingkah laku anak didik, pengetahuan,

   ketrampilan, kepercayaan, dan kemampuan. Apabila seorang murid kurang atau

   tidak bisa mengalami perubahan dan perkembangan seperti di atas, murid tersebut

   akan dinyatakan tinggal kelas karena dirasa belum mampu untuk melanjutkan ke

   tingkatan yang lebih tinggi.

          Dalam kegiatan sekolah tidak lepas dari data-data yang dapat berubah

   sewaktu-waktu dan dalam jumlah data yang sangat besar. Perubahan data tersebut

   harus tersimpan dengan baik. Dalam pengolahan data, kebanyakan sekolah

   menggunakan sistem pemrosesan manual, yaitu data yang ada berupa setumpuk

   kertas atau arsip yang disimpan dalam rak berkas.

          Seiring dengan kemajuan teknologi yang mampu memecahkan masalah

   bukan hanya dari segi perhitungan tetapi juga dalam kemampuannya menyimpan

   dan memberikan informasi. Walaupun demikian dalam masyarakat modern
                                                                               2




komputer lebih banyak dimanfaatkan sebagai pusat data (database) dibandingkan

penggunaan lainnya.

       Perkembangan basis data tidak lepas dari perkembangan perangkat keras

dan perangkat lunak. Salah satu perangkat lunak pengembangan aplikasi yang

populer adalah Microsoft Visual Basic 6.0 yaitu suatu bahasa pemrograman yang

berbasis Micdosoft Windows. Sebagai bahasa pemrograman yang mutakhir,

Microsoft Visual Basic 6.0 didesain untuk dapat memanfaatkan fasilitas yang

tersedia dalam Microsoft Windows.

       Penggunaan bahasa pemrograman Visual Basic dalam penanganan basis

data merupakan kemajuan teknologi dalam perkembangan basis data. Dalam

menangani data yang besar, pemrograman Visual Basic 6.0 sangat efektif

dibandingkan dengan sistem pemrosesan manual yang dilakukan. Di SMP Negeri

24 Semarang pengolahan basis datanya masih menggunakan Microsoft Access

dan Microsoft Excel. Kedua program tersebut mempunyai beberapa kelemahan

dalam pengolahan basis data antara lain dalam Microsoft Access hasil program

yang dibuat harus disertakan software access tidak dapat berdiri sendiri dan menu

pilihannya sudah tersusun dalam program tanpa perlu dibuat sendiri. Sedangkan

Visual Basic 6.0 terdapat fasilitas menu pilihan yang bisa diatur sesuai dengan

kebutuhan. Kelemahan dalam Microsoft Excel adalah dalam proses pencarian data

kurang cepat dan dalam proses pengeditan harus memblok data yang akan diedit

kemudian dihapus dan baru proses pengeditan dapat berlangsung. Visual Basic

6.0 memberi kemudahan dalam proses pencarian data, proses dapat diatur sesuai
                                                                                3




yang diinginkan tanpa memblok data yang akan diedit melalui bahasa

pemrograman.

       Dari ilusrasi diatas, maka dalam pembuatan proyek tugas akhir ini akan

membuat program basis data guru. Adapun yang menjadi obyek dalam pembuatan

basis data adalah guru SMP Negeri 24 Semarang pada tahun ajaran 2006/2007.
                                                                                 4




B. Permasalahan

            Permasalahan yang ada dalam penulisan dan pembuatan tugas akhir ini

  adalah:

  Bagaimana merancang dan membangun sebuah program basis data guru di SMP

  Negeri 24 Semarang dengan bantuan Visual Basic 6.0 ?



C. Pembatasan Masalah

            Untuk menghindari salah penafsiran dalam permasalahan maka diberikan

  pembatasan masalah yaitu pembuatan basis data guru di SMP Negeri 24

  Semarang dengan bantuan Visual Basik 6.0.



D. Tujuan

            Tujuan yang ingin dicapai dalam penulisan dan pembuatan tugas akhir ini

  adalah:

  Membuat program basis data guru di SMP Negeri 24 Semarang dengan bantuan

  Visual Basic 6.0



E. Manfaat

            Dari pembuatan tugas akhir ini diharapkan dapat bermanfaat diantaranya

  adalah:

  1. Dapat mempermudah dalam penanganan basis data guru di SMP Negeri 24

     Semarang.
                                                                                   5




   2. Menciptakan suatu paket program yang efektif dan efisien dalam pendataan

      dengan komputerisasi

   3. Dapat diaplikasikan secara nyata dalam penanganan basis data guru di SMP

      Negeri 24 Semarang.

F. Sistematika Laporan Tugas Akhir

              Penyusunan tugas akhir ini dibuat dan dipaparkan dalam bentuk

      laporan. Sistematika dalam penulisan laporan tugas akhir ini adalah sebagai

      berikut :

      1. Bagian Awal

          Bagian ini terdiri dari halaman judul, pengesahan, abstrak, motto dan

          persembahan, kata pengantar, daftar isi, daftar gambar, daftar tabel, dan

          daftar lampiran.

      2. Bagian Isi Tugas Akhir terdiri:

          BAB I PENDAHULUAN

          Bab ini menjelaskan tentang latar belakang, permasalahan, pembatasan

          masalah, tujuan, manfaat, dan sistematika tugas akhir.

          BAB II LANDASAN TEORI

          Pada Bab ini berisi teori-teori yang mendukung tentang pengususnan

          laporan tugas akhir, teori tersebut meliputi teori manajemen sekolah, basis

          data, microsoft Visual Basic 6.0 dan kerangka berfikir.
                                                                     6




BAB III PERENCANAAN DAN PEMBUATAN

Bab ini berisi tentang metode-metode dalam pelaksanaan kegiatan yang

meliputi ruang lingkup penelitian, variabel dan cara pengambilan data,

perancangan sistem dan alisis data.

BAB IV HASIL DAN PEMBAHASAN

Bab ini berisi tentang hasil rancangan program dan pembahasan

BAB V PENUTUP

Bab ini berisi kesimpulan dan saran

Bagian Akhir Tugas Akhir terdiri dari daftar pustaka dan lampiran.
                                                                         7




                                BAB II

                            KAJIAN TEORI



A. MANAJEMEN SEKOLAH

  1. Pengertian Manajemen Sekolah

            Istilah manajemen memiliki banyak arti, tergantung pada orang

     yang mengartikannya, istilah manajemen sekolah dibandingkan dengan

     istilah administrasi sekolah. Manajemen diartikan dengan pengelolaan.

     Manajemen sekolah pada hakikatnya mempunyai pengertian yang hampir

     sama dengan manajemen pendidikan.

            Manajemen pendidikan mengandung arti sebagai suatu proses kerja

     sama yang sistematis, sistemik dan komprehensif dalam rangka

     mewujudkan tujuan.

  2. Fungsi-fungsi Manajemen Sekolah

     a. Perencanaan

     b. Pelaksanaan

     c. Pengawasan

     d. Pembinaan



B. BASIS DATA

            Perkembangan teknologi informasi telah banyak mendukung

  kemajuan di berbagai bidang. Banyak kesulitan atau masalah dapat

  dipermudah atau diatasi dengan teknologi informasi. Seperti penyimpanan
                                                                            8




data dan pengolahan data dapat dilakukan dengan cepat serta efisien

dibandingkan system penyimpanan konvensional atau secara manual. Di

dalam teknologi informasi system penyimpanan data lebih dikenal dengan

data base system.

1. Data dan Informasi

   a. Data

          Adalah fakta mengenai obyek, orang dan lain-lain. Data juga dapat

       didefinisikan sebagai bahan keterangan tentang kejadian-kejadian

       nyata atau fakta-fakta yang dirumuskan dalam sekelompok lambang-

       lambang tertentu yang tidak acak yang menunjukan jumlah, tindakan

       atau hal.

   b. Informasi

          Informasi merupakan hasil pengolahan data sehingga menjadi

       bentuk yang penting bagi penerimanya dan mempunyai kegunaan

       sebagai dasar dalam pengambilan keputusan yang dapat dirasakan

       akibatnya saat itu juga atau secara tidak langsung pada saat mendatang

          Informasi adalah hasil analisis dan sintesis terhadap data. Dengan

       kata lain, informasi dapat dikatakan sebagai data yang telah

       diorganisasikan ke dalam bentuk yang sesuai dengan kebutuhan, entah

       itu menejer, staf, ataupun orang lain dalam suatu organisasi atau

       perusahaan.
                                                                            9




2. Hirarki Data

           Data disusun berdasarkan system hirarki yaitu elemen data,

   rekaman, berkas dan berkas. Elemen data adalah suatu elemen yang tidak

   dapat di pecah lagi menjadi unit yang bermakna. Rekaman data adalah

   gabungan elemen data dalam bentuk basis. Sedangkan basis adalah

   himpunan dari seluruh rekaman yang mempunyai bentuk yang sama

   seperti aslinya.



3. Sejarah Basis Data

           Pada awalnya system penerapan komputer, sekelompok rekaman

   disimpan pada sejumlah berkas secara terpisah, system ini memiliki

   kelebihan dari pada system manual yaitu dalam keakuratan dan

   kecepatannya. Untuk kelemahannya masih disesuaikan pada kebutuhan

   individu pengguna, adapun kelemahan system pemrosesan berkas adalah

   kemubaziran data, keterbatasan data dan ketidakluwesan data.



4. Pengertian Basis Data

           Istilah basis data dapat menimbulkan interpresi yang berbeda. Pada

   saat maraknya perangkat lunak dBASE II Plus, sebagai sebuah berkas

   (dengan ekstensi DBF) biasa di sebut istilah basis data. Istilah yang tidak

   tepat ini, meskipun telah merasuk kesejumlah pemrogram, akhirnya

   diluruskan kembali oleh pencipta perangkat lunak basis data yang lain.
                                                                          10




          Basis data adalah sejumlah system berkas terpadu yang dirancang

   terutama untuk meminimalkan pengulangan data. Pengguna system basis

   data bisa melakukan berbagai operasi sebagai berikut.

   a. Menambah file baru ke system basis data

   b. Mengosongkan berkas

   c. Menyisipkan data kesuatu berkas

   d. Mengambil data yang ada pada suatu berkas

   e. Menegubah data yang ada pada suatu berkas

   f. Menghapus data yang ada pada suatu berkas

   g. Menyajikan suatu informasi yang diambil dari sejumlah berkas



5. Hirarki Data dalam Basis Data

          System hirarki tidak hanya dikenal di data, dalam basis data. Data

   disusun berdasarkan system hirarki yaitu

   a. Database adalah kumpulan file yang saling terkait satu sama lain

   b. File adalah kumpulan record yang saling terkait dan memiliki format

      yang sejenis

   c. Record adalah kumpulan field yang menggambarkan suatu unit data

      individu tertentu

   d. Field adalah atribut dari record yang menunjukan suatu item dari data.
                                                                       11




6. Data Base Management system (DBMS)

   a. Pengertian

          Definisi database management system pada sebuah literature

      sangat berfariasi. DBMS adalah kumpulan file yang saling terkaitan

      bersama dengan program untuk pengelolaannya. DBMS terdiri dari

      database dan program, pengelola untuk menambah data, menghapus

      data, memanggil dan membaca data. DBMS yang merupakan basis

      data dan perangkat lunak (software). DBMS adalah suatu program

      komputer yang digunakan untuk memasukan, mengubah, menghapus,

      memanipulasi dan memperoleh data informasi dengan praktis dan

      efisien.

          Keuntungan system basis data dibanding system pemrosesan data,

      konsistensi data, berbagai data, sekuritas data dan menggunakan data

      lebih mudah. Pada umumnya DBMS menyediakan makanisme

      pengaturan sekuritas terhadap basis data berdasarkan unsure

      penggunanya. Sekuritas data sangat penting pada basis data untuk

      menghindari pengaksesan data sensitive oleh orang yang tidak berhak.

      Pada beberapa DBMS tersedia fasilitas query yang memudahkan

      pengguna untuk memperoleh informasi. Pengguna yang tidak memiliki

      kemampuan pemrograman denngan mudah bisa menggunakan fasilitas

      query tersebut.
                                                                        12




   b. Komponen utama database manajemen system (DBMS)

      1. Perangkat keras

                  Perangkat keras berupa komputer dan bagian-bagian

          dalamnya sperti prosesor, memori dan harddisk. Komputer inilah

          yang malakukan pemrosesan juga untuk penyimpanan basis data

      2. Data

                  Data di dalam basis data mempunyai sifat terpadu berarti

          bahwa berkas-berkas data yang ada pada basis data dapat saling

          terkait, tetapi kemubaziran data tidak akan terjadi atau hanya

          terjadi sedikit sekali.



7. Perancangan Basis Data

          Proses perancangan basis data dibagi tiga tahapan yaitu:

   a. Perancangan basis data konseptual yaitu membuat model yang masih

      bersifat konsep yang dibagi menjadi tiga yaitu penentuan entitas pada

      basis data, pendefinisian hubungan antara entitas dan penerjemahan

      hubungan ke dalam entitas.

   b. Perancangan basis data secara logis perancangan basis data adalah

      untuk membentuk model konseptual atau model basis data yang akan

      di pergunakan

   c. Perancangan basis data secara fisis yaitu tahapan menuangkan basis

      data yang bersifat logis menjadi basis data fisis yang tersimpan pada

      media penyimpanan eksternal.
                                                                                   13




C. Visual Basic (VB)

          Pemanfaatan       komputer   sebagai    pusat   kendali   pada      dasarnya

   melibatkan empat buah aspek/elemen-elemen untuk menciptakan suatu sistem

   yang interaktif dan bekerja secara sempurna. Keempat aspek/elemen tersebut

   adalah data, software, hardware, dan brainware. Software atau perangkat

   lunak adalah sekumpulan bahasa pemrograman yang dibangun untuk

   mengendalikan suatu aplikasi tertentu, diantaranya adalah Visual Basic.

           Visual   Basic    mempunyai     arti   sebagai   berikut,   kata     Visual

   menunjukkan cara yang digunakan untuk membuat graphical user interface

   (GUI). Dengan cara ini pemrogram tidak lagi menuliskan instruksi

   pemrograman dalam bentuk kode baris, melainkan dengan melakukan drag

   dan drop untuk menentukan jenis objek-objek yang akan digunakan.

   Sedangkan kata Basic merupakan bagian bahasa BASIC berasal dari

   kependekan dari Beginners All Purpose Symbolic Instruction Code, yaitu

   salah satu bahasa pemrograman tingkat tinggi yang cukup sederhana dan

   mudah dipelajari.

          Visual basic (VB) 6.0        adalah salah satu bahasa pemrograman

   berorientasi objek yang dikembangkan oleh microsoft. Karena bekerja pada

   lingkungan operasi windows, maka dapat dibangun sebuah program aplikasi

   dengan tampilan grafis yang lebih menarik. Program aplikasi dapat berupa

   database, program grafis, program pengendali, dsb.
                                                                          14




       Berikut ini adalah keunggulan menggunakan visual basic 6.0

dibanding dengan jenis bahasa pemrograman yang lain:

a. Karena berorientasi objek, maka dapat dibangun sebuah program aplikasi

   dengan tampilan grafis yang menarik.

b. Visual basic 6.0 dibuat oleh microsoft, sehingga memudahkan mengakses

   pustaka (library) yang tersedia dalam operasi windows.



1. Pemahaman Bahasa Pemrograman

       Bahasa pemrograman adalah susunan prosedur yang harus dijalankan

untuk menghasilkan perintah tertentu saat program dijalankan (run),

diantaranya yaitu:

a. Kontrol Program

           Kontrol program adalah untuk mengendalikan alur eksekusi

   program dan menentukan keputusan apa yang harus dikerjakan oleh

   program pada kondisi tertentu. Kekuatan pemrograman ditentukan pada

   kontrol program ini. Berikut adalah beberapa jenis kontrol program yang

   disediakan Visual Basic:

   1. If.....Then

           Kalimat pernyataan ini berfungsi untuk men-tes suatu kondisi

   tertentu dan kemudian menentukan suatu tindakan jika kondisi tersebut

   telah terpenuhi.

           Syntak penulisan kontrol program ini adalah sebagai berikut:

                    If <syarat kondisi> Then <pernyataan>
                    End If
                                                                        15




2. If.....Then.......Else

        Pernyataan ini hampir sama dengan pernyataan If...Then, yang

membedakan pada pernyataan ini adalah terdapat dua kondisi atau lebih.

Jika kondisi pertama tidak terpenuhi maka alur program akan

mengeksekusi kondisi berikutnya.

        Syntak penulisan kontrol program ini adalah sebagai berikut:

               If <syarat kondisi 1> Then <pernyataan pertama>
               ElseIf <syarat kondisi 2> Then <pernyataan kedua>
                  -
               Else <pernyataan>
               End If


3. For.....Next

        Pernyataan ini digunakan untuk melakukan proses perulangan yang

dapat ditentukan nilai awal dan nilai akhir perulangan serta kenaikannya

penulisan kontrol program ini adalah sebagai berikut:

               For    <nama_variabel>   =   <nilai      awal>   To   <nilai
               akhir>
                  <blok pernyataan>
               Next <nama_variabel>


4. Select.....Case

          Pernyataan ini digunakan untuk mengeksekusi suatu kondisi dari

beberapa pilihan kondisi dengan penulisan yang lebih ringkas. Syntak

penulisan kontrol program ini adalah sebagai berikut

        Select Case <kondisi yang diuji>
        Case <syarat kondisi 1>
                  <blok pernyataan pertama>
        Case <syarat kondisi 2>
                                                                            16




                    <blok pernyataan kedua>
                    -
            Case Else
                    <blok pernyataan ke-n>
            End Select


   5. Do…Loop

            Pernyataan ini digunakan untuk perulangan suatu kondisi sampai

   dipenuhinya syarat kondisi tertentu. Penulisan program ini adalah:

            Do
            <blok pernyataan>
            Loop Until <syarat kondisi>



b. Variabel

         Setiap melakukan pemrograman akan selalu diperlukan tempat untuk

menyimpan data, misalnya untuk menampung hasil perhitungan, menampung

hasil logika, dll. Tempat penyimpanan itu dinamakan variabel. Untuk dapat

menggunakan variabel harus mempunyai nama dan tipe data. Nama variabel

menunjuk pada suatu tempat dalam memori komputer, sedangkan tipe data

digunakan untuk menentukan besarnya memori yang disediakan untuk

variabel tersebut. Semakin besar ukuran memori suatu tipe data, maka

semakin besar jangkauan yang dimilikinya serta semakin teliti nilai yang dapat

ditampungnya.

         Berikut ini adalah tipe data pada visual basic beserta ukuran byte dan

range:
                                                                                        17




           Tipe data             Ukuran byte                       Range
    Integer                2 byte                    -32.768 s/d 32.767
    Long Integer           4 byte                    -2.147.483.648 s/d 2.147.483.647
    Single precision
                           4 byte                    -3,402823E38 s/d 3,402823E38
    floating point
    Double precision                                 -1,79769313486232D308 s/d
                           8 byte
    floating point                                   1,79769313486232D308
                                                     -922337203685477,5808 s/d
    Currency               8 byte
                                                     922337203685477,5807
    String                 1 byte per karakter       0 s/d 65.535
    Boolean                2 byte                    True atau False
                                                     1 Januari 100 s/d 31 Desember
    Date                   8 byte
                                                     9999
    Byte                   1 byte                    0 s/d 255
                           16 byte untuk angka; 22
    Variant                byte + 1 byte per         Semua tipe data
                           karakter untuk string


                            Tabel 1. Tipe data pada Visual Basic

       Pada saat menulis program dengan melibatkan variabel, terlebih

dahulu harus mendeklarasikan variabel tersebut dengan maksud nama dan tipe

data dalam variabel tersebut dapat dibaca oleh visual basic. Ada dua cara

untuk mendeklarasikan sebuah variabel, yaitu cara Implisit dan Eksplisit.

              Penulisan deklarasi eksplisit adalah sebagai berikut:

              Dim <nama variable> As <type data>

              contoh: Dim Siswa As String.

                       Dim Tombol_siswa As integer

       Sedangkan deklarasi implisit menggunakan simbol nama dibelakang

nama variabel . contoh : Angka& = 2147483647000, Harga$: 200

       Selain deklarasi, dalam visual basic juga dikenal konstanta. Konstanta

adalah variabel yang nilainya tetap dan tidak dapat diubah selama program

berjalan. Contoh: Vbgreen, yang merupakan kontstanta untuk warna hijau
                                                                          18




       Setiap penuisan variabel dan konstanta harus memperhatikan aturan-

aturan penamaan, diantaranya yaitu:

1. Variabel atau konstanta harus didahului dengan huruf, variable atau

   konstanta tidak boleh menggunakan nama yang sama dalam satu ruang

   lingkup yang sama.

2. Maksimum 255 karakter, tetapi visual basic hanya akan menggunakan 40

   karakter pertama yang akan digunakan, sedangkan selebihnya akan

   diabaikan.

3. Tidak boleh menggunakan spasi jika penamaan terdiri dari dua kata,

   sebagai gantinya dengan menggunakan tanda garis bawah.

4. Tidak boleh menggunakan karakter logika dan tanda baca seperti +, -, ’, ”,

   *, <, >, dll



c. Prosedur

       Prosedur digunakan untuk memudahkan penulisan program yang

sifatnya berulang-ulang kedalam blok-blok yang lebih kecil dengan tugas yang

sama atau bermaksud membagikannya pada program yang lain.

1. Sub Procedure

           Sub prosedur adalah blok kode yang dijalankan sebagai tanggapan

   atas terbentuknya even, even yaitu eksekusi program yang sedang

   dijalankan. Even dapat berupa pemanggilan dari prosedur laian maupun

   even yang terjadi dari pemakai program, misal even penekanan tombol kiri

   mouse. Syntak penulisan sub procedure adalah sebagai berikut:
                                                                                   19




                 [Private/Public] [Static] Sub
                 <nama_prosedur> (argumen)
                 <blok pernyataan>
                  End Sub
           Setiap kali suatu sub prosedur dipanggil, maka blok pernyataan
   diantara sub dan end sub tersebut yang akan dijalankan.


2. Operator

           Operator digunakan untuk memanipulasi data maupun untuk

   melakukan perhitungan. Berikut adalah beberapa jenis operator:

   a) Operator Aritmatika

           Operator     aritmatika     digunakan     untuk     melakukan      operasi

   matematika atau perhitungan. Operator aritmatika mempunyai derajat

   yang paling tinggi dibanding jenis operasi lainya, sehingga operator

   aritmatika akan pertama kali dikerjakan terlebih dahulu jika dalam satu

   ekspresi beberapa jenis operator.

           Berikut adalah operator aritmatika yang dimulai dari hierarki

   paling tinggi ke paling rendah:



      Operator          Operasi                       Contoh pemakaian
    ^            Pemangkatan            Nilai% = 2^2 ‘menghasilkan 4
    -            Tanda negative         Nilai% = -5 ‘menghasilkan negatif 5
                 Perkalian dan
    *, /                                Nilai% = (2*3)/6 ‘menghasilkan 1
                 pembagian
    \            Pembagian integer      Nilai% = 13\4 ‘menghasilkan 3
                 Modulus (sisa
    Mod                                 Nilai% = 10 Mod 5 ‘menghasilkan 2
                 pembagian)
                 Penambahan dan
    +, -                                Nilai% = 6 + 2 - 4 ‘menghasilkan 4
                 pengurangan
    &            Penggabungan string    Teks$ = “ab” & “cd” ‘menghasilkan “abcd”
                                                                               20




b) Operator Logika

       Operator logika digunakan untuk mengekpresikan satu atau lebih

ekspresi logika yang akan menghasilkan nilai boolean. Hasil dari operator

ini adalah ekspresi boolean (benar atau salah):

                                                    Tabel Kebenaran Operasi
 Operator              Keterangan
                                                       Operan          Hasil
            Akan menghasilkan nilai kebalikan   Not True             False
 Not
            dari nilai operan                   Not False            True
                                                True And True        True
            Akan menghasilkan True jika kedua   True And False       False
 And
            operan-nya berlogika True           False And True       False
                                                False And False      False
                                                True Or True         True
            Akan menghasilkan True jika salah   True Or False        True
 Or
            satu operan-nya berlogika True      False Or True        True
                                                False Or False       False
                                                True Xor True        False
            Akan menghasilkan True jika         True Xor False       True
 Xor
            operan-nya berlogika berbeda        False Xor True       True
                                                False Xor False      False
                                                True Eqv True        True
            Akan menghasilkan True jika         True Eqv False       False
 Eqv
            operan-nya berlogika sama           False Eqv True       False
                                                False Eqv False      True



                              Tabel 3. Operator Logika



c) Operator Perbandingan

       Operator perbandingan digunakan untuk membandingkan suatu

ekspresi dengan ekspresi yang lain. Hasil dari operator perbandingan

adalah sebuah nilai Boolean (true atau false). Syarat supaya sebuah nilai

dapat dibandingkan adalah harus memiliki tipe data yang sama.
                                                                    21




2. Tampilan Visual Basic 6.0 pada Windows

      Langkah pertama sebelum mendesain sebuah program pengendali

adalah mengatur objek-objek yang akan digunakan pada layar tampilan

(Integrated Development Environment (IDE).

      Berikut adalah tampilan IDE visual basic 6.0 :




              Gambar 1. Tampilan IDE Visual Basic 6.0

Keterangan:

   a) Toolbox: Toolbox merupakan tempat kontrol-kontrol objek yang akan

      digunakan untuk membantu pembuatan program aplikasi diantaranya

      yaitu command button, frame, label, dll. Jenis toolbox dapat

      ditampilkan dengan cara klik komponen dan pilih program yang akan

      ditambahkan.
                                                                           22




       b) Menu: Berfungsi untuk menampilkan pilihan sub menu perintah dalam

           visual basic

       c) Toolbar: Mempunyai fungsi yang sama dengan menu, hanya saja

           berupa icon-icon gambar dan digunakan sebagai jalan pintas. .

       d) Project Explorer: Merupakan tempat yang digunakan untuk melihat

           daftar forms, modules, class modules, dan designers.

       e) Properties Window: Berfungsi untuk mengatur properti dari setiap

           objek kontrol atau form. Pada Properties Window semua objek kontrol

           dapat diatur karakteristiknya.

       f) Form layout window: Berfungsi untuk melihat atau mengetahui posisi

           tampilan form saat program dijalankan.

       g) Form objek: Digunakan untuk menempatkan atau meletakkan objek

           dari kontrol-kontrol yang akan digunakan untuk merancang dan

           membuat program aplikasi.

       h) Form kode: Digunakan sebagai tempat untuk menulis kode-kode

           program aplikasi.



D. Kerangka Berfikir

       Melihat beberapa yang terdapat didalam program Visual Basic 6.0 yang

diantaranya :

a. Dapat digunakan untuk membuat aplikasi windows.

b. Mampu digunakan untuk operasi data base

c. Tampilan program akhir mampu didesain sesuai kreatifitas programer.
                                                                         23




       Maka penulis berinisiatif untuk memanfatkan visual basic sebagai

penyusun sebuah software data base guru di SMP Negeri 24 Semarang. Ide dasar

dari software ini adalah data yang dapat berubah sewaktu – waktu dan

memerlukan penanganan khusus untuk pelaporan atau sebagai arsip. Sehingga

akan tercipta sebuah program aplikasi data base guru dengan tampilan menarik

dan dapat dioperasikan pada sistem operasi windows.
                                                                       24




                                   BAB III

                       METODE PENELITIAN



A. Ruang Lingkup Penelitian

          Objek yang diambil dalam pembuatan program basis data guru,

   mata pelajaran dan wali kelas adalah SMP Negeri 24 Semarang yang

   beridentitas sebagai berikut:

   1. Nomor Statistik Sekolah (NSS) : 20 1 3 63 03 125

   2. Nama Sekolah                       : SMP Negeri 24 Semarang

   3. Status Sekolah                     : Negeri

   4. Rombongan Belajar                  : 17

   5. Jumlah Siswa                       : 701

   6. Alamat                             : Jl. Pramuka 1

   7. Kelurahan                          : Sumurrejo

   8. Kecamatan                          : Gunungpati

   9. Kabupaten                          : Semarang

   10. Nomor Telp.                       : (024) 6921570

          Pada saat ini yang menjabat sebagai kepala sekolah di SMP Negeri

   24 Semarang adalah Drs. Widodo, M.Pd dan wakil kepala sekolah adalah

   Kumaedi, S. Pd. Struktur Organisasi SMP Negeri 24 Semarang adalah

   sebagai barikut:
                                                                                 25


    Komite Sekolah                     Kepala Sekolah




                                        Wakil Kepsek



                                                               Koordinator



                    Perpustakaan                           Laboratorium




Seksi Humas         Seksi Sarana              Seksi          Seksi               Seksi
                    dan Prasarana           Kurikulum      Kesiswaan         Koordinator BK




                 Wali Kelas I           Wali Kelas II       Wali Kelas III




                                     Guru Mata Pelajaran




                                              Siswa


                     Gambar 2. Struktur Organisasi SMP Negeri 24 Semarang



                     Fokus dalam kegiatan ini adalah pembuatan basis data guru SMP

              Negeri 24 Semarang dengan menggunakan bahasa pemrograman

              Microsoft Visual Basic 6.0.
                                                                         26




B. Variabel Dan Cara Pengambilan Data

   1. Variabel Penelitian

             Dalam pembuatan basis data terdapat variable yang akan

      menjadi focus dari penelitian ini. Adapun program yang dibuat adalah.

      a. Identitas guru

      b. Data mata pelajaran dan guru pengampu

      c. Data wali kelas dan guru pengampu.



   2. Cara Pengambilan Data

             Metode pengambilan data yang dilakukan dalam penelitian ini

      meliputi metode literature, wawancara dan observasi.

      a. Metode Literature

                 Metode ini digunakan untuk mendapatkan data-data serta

          teori-teori yang mendukung dalam pembuatan basis data. Metode

          ini dilakukan dengan mencari literature yang dapat mendukung

          penelitian. Literature berasal dari SMP Negeri 24 Semarang

          maupun dari pihak lain yang relevan dengan penelitian.

      b. Metode Wawancara

                 Metode ini digunakan untuk mendapatkan kejelasan dari

          data yang diperoleh melalui literature. Wawancara dilakukan

          dengan pihak yang berkaitan langsung dengan data.
                                                                        27




      c. Metode Observasi

                 Metode ini dilakukan untuk mengetahui atau mendapatkan

          data yang tidak mungkin didapat melalui metode literature maupun

          wawancara. Metode observasi dilakukan dengan cara malaukan

          pengamatan langsung ke lapangan mengenai pengelolaan data-data

          yang ada di SMP Negeri 24 Semarang



C. Perancangan Sistem

          Metode yang dilakukan dalam penelitian ini adalah merancang dan

   membuat program basis data system informasi dengan langkah antara lain:

   1. Mempersiapkan alat dan bahan yang diperlukan

   2. Membuat rancangan basis data,

   3. Menerjemahkan diagram alir program ke dalam bahasa pemrograman

      Microsoft visual basic

   4. Membuat program basis data pada mocrosoft visual basic 6.0,

   5. Mengkompliasi program,

   6. Menguji program,

   7. Merevisi program apabila diperlukan.

          Metode penelitian dalam hal ini meliputi perancangan yang

   kemudian diwujudkan dengan menggunakan Software Microsoft Visual

   Basic 6.0.
                                                                       28




D. Analisis Data

          Hasil perancangan dan pembuatan diuraikan secara deskriptif

   naratif (gambaran secara umum). Selanjutnya dalam pembuatan program

   menggunakan Microsoft Visual Basic 6.0. Penarikan kesimpulan

   dilakukan berdasarkan tiap-tiap langkah dalam pembuatan program.

   Sedangkan untuk kesimpulan akhir ditentukan dengan berhasil tidaknya

   program yang dibuat. Indikator keberhasilan didasarkan pada penerapan

   rancangan basis data pada bagian basis data guru yang ada di SMP Negeri

   24 Semarang yaitu dengan membandingkan sebelum memakai rancangan

   basis data dengan sesudah memakai rancangan basis data.
                                                                          29




                                 BAB IV

                 HASIL KEGIATAN DAN PEMBAHASAN



A. PENGEMBANGAN SISTEM

  1. Tahap Studi Kelayakan

             Pada tahapan studi kelayakan identifikasi terhadap kebutuhan

     sistem baru mulai dilakukan. Identifikasi tidak hanya didasarkan oleh

     kebutuhan–kebutuhan baru yang dikehendaki oleh manajemen ( yang

     selama ini belum terpenuhi ), tetapi juga harus memperhatikan kebutuhan

     pada sistem yang sudah ada. Dalam hal ini di SMP Negeri 24 Semarang

     masih menggunakan sistem manual. Jadi sistem komputerisasi merupakan

     sistem baru yang akan diterapkan.



  2. Tahap Rencana Pendahuluan

             Tahap rencana pendahuluan dilakukan untuk menentukan lingkup

     proyek yang ditangani, dan selanjutnya dijabarkan dalam bentuk diagram

     alir. Diagram alir adalah sebuah proses yang membentuk siklus yang dapat

     mempermudah dalam merancang sistem basis data.

             Pembuatan basis data di SMP Negeri 24 Semarang pada tahap

     rencana pendahuluan dilakukan dengan membuat diagram alir sebagai

     berikut :
                                                     30




                 Login




                  Pilih
                Program




             Data Guru /
             Wali Kelas /
            Mata Pelajaran                   Cetak




                 Proses
          (Cari, Edit,Simpan)




                 End
 Tidak
           Ya


                Selesai




Gambar 3. Flowchart Program (Diagram Alir)
                                                                      31




3. Tahap Perancangan Sistem

   a. Bagan Struktur System

             Hasil dari perancangan proses adalah dokumentasi perancangan

      dalam bentuk struktur system yang memperlihatkan seluruh program

      data system serta hakiki kontrol terhadap program-program tersebut

      yang kemudian sering disebut sebagai bagan struktur system.

             Pada rancangan basis data untuk SMP Negeri 24 Semarang ini,

      bagian struktur system terbagi menjadi beberapaa bagian :

      1. Bagan stuktur Menu Awal


                                    Login




                 Keluar                             Masuk


                Gambar 4. Bagan Struktur Menu Awal



      2. Bagan Struktur Menu Utama



                                       Menu Utama




         File             Input             Cari            Edit            Cetak



                Gambar 5. Bagan Struktur Menu Utama
                                                                   32




3. Bagan Struktur Menu File


                                 File




              Login




          Gambar 6. Bagan Struktur Menu File



4.   Bagan Struktur Menu Input

                                                  Input Guru

           Input
                                                Input Wali Kelas


                                                  Input Mapel


          Gambar 7. Bagan Struktur Menu Input



5. Bagan Struktur Menu Cari

                                                  Cari Guru

           Cari
                                                Cari Wali Kelas


                                                  Cari Mapel

          Gambar 8. Bagan Struktur Menu Cari
                                                                       33




      6. Bagan Struktur Menu Edit

                                                        Edit Guru

                Edit
                                                     Edit Wali Kelas


                                                       Edit Mapel

                Gambar 9. Bagan Struktur Menu Edit



      7. Bagan Struktur Menu Cetak

                                                       Cetak Guru

                Cetak
                                                     Cetak WaliKelas


                                                       Cetak Mapel


              Gambar 10. Bagan Struktur Menu Cetak



4. Tahap Implementasi Sistem

   a. Hasil Penuangan Rancangan Menjadi Bahasa Pemrograman

             Diagram alir data dibuat untuk menjelaskan dan mempermudah

      dalam merancang suatu program data base. Diagram alir data

      merupakan inplementasi dari program yang akan dibuat. Dengan

      diagram alir data, maka logika berfikir dalam membuat program dapat

      disusun secara baik berdasarkan urutan yang sesuai dengan yang

      direncanakan. Dari diagram alir data yang sudah dibuat pada tahap

      perancangan system, pada tahap implementasi system ini akan
                                                                             34




         dilakukan    penterjemahan     menjadi    kata-kata   dalam     bahasa

         pemrograman visual basic 6.0. agar komputer dapat malakukan apa

         yang kita inginkan. Hasil penjabaran bahasa pemrograman dari

         diagram alir data secara lengkap dapat dilihat pada lampiran-lampiran.

     b. Cara kerja program

                Cara kerja program didasarkan pada bagan alir system dari

         program yang telah dibuat. Pada tahap analisis system telah

         digambarkan bagan alir system basis data SMP Negeri 24 Semarang.

                Saat program dieksekusi, maka yang akan lebih dahulu tampil

         adalah menu awal yang merupakan judul dan password dari program

         tersebut yang dirangkai dengan tampilan form. Dalam sebuah aplikasi,

         form akan selalu ditampilkan ketika program dijalankan. Begitu juga,

         dengan form-form lainnya akan selalu ditampilkan.

                Untuk menu input data, pengguna dapat menambah data baru

         dengan cara tekan tombol tambah, masukan data baru, selanjutnya

         tekan tombol simpan, maka secara otomatis data akan kesimpan dan

         dapat dilihat dimenu cari. Pengguna juga dapat mengubah data yang

         ada, dengan cara membuka menu edit.



B. HASIL PENGUJIAN PROGRAM DAN PEMBAHASAN

         Suatu program yang telah berjalan, belum tentu hasil yang diperoleh

  benar, karena sifat dari bahasa pemrograman yang hanya dapat melakukan apa

  yang diinginkan oleh sang operator. Komputer sifatnya hanya memproses.
                                                                          35




Bila dianggap memenuhi ketentuan dalam bahasa pemrograman maka visual

basic 6.0 akan menjalankan dan menampilkan hasilnya. Untuk itu diperlukan

beberapa pengujian terhadap program yang telah dibuat. Pengujian yang dapat

dilakukan oleh operator, diantaranya adalah Uji Modul, Uji Pengembangan,

dan Uji Operasional.

1. Uji Modul

               Pengujian ini mengenai keandalan dari modul pribadi, tiap-tiap

   bagian dari program diuji untuk mengetahui apakah tiap bagian tersebut

   dapat bekerja dengan baik atau tidak. Indikator untuk mengetahui bahwa

   bagian tersebut sudah sesuai adalah apabila program dapat bekerja sesuai

   dengan diagram alir program dimana diagram alir itu sendiri        dibuat

   berdasarkan urutan penanganan data base secara sistematis. Pengujian

   dilakukan pada lima bagian penting dari program yaitu menu utama, menu

   input data, menu cari data, menu edit data dan menu cetak data. Hasil

   yang diperoleh disajikan pada tabel berikut:



    No    Bagian                      Keterangan
    1.    Menu Utama                  Sesuai Perancangan
    2.    Menu Input Data             Sesuai Perancangan
    3.    Menu Cari Data              Sesuai Perancangan
    4.    Menu Edit Data              Sesuai Perancangan
    5.    Menu Cetak Data             Sesuai Perancangan


                               Tabel 4. Hasil Uji Modul
                                                                      36




2. Uji Pengembangan

             Pengujian ini diterapkan pada saat modul atau bagian-bagian

  program dipadukan ke dalam seluruh paket program, atau pengujian

  dilakukan setelah masing-masing modul dipadukan. Cara efektif untuk

  melakukannya adalah dengan pendekatan puncak-bawah yang dimulai

  dengan modul pertama dan bergerak kebawah sepanjang program dalam

  runtutan eksekusi. Pengujian dalam hal ini dilakukan mulai bagian atas

  sampai akhir program dengan urutan seperti pada tabel berikut :



   No. Prosedur                            Keterangan
   1.    Form Utama                        Bekerja Sesuai Perancangan (BSP)
   2.    Form File                         BSP
   3.    Form Input Data Guru              BSP
   4.    Form Input Data Mata Pelajaran    BSP
   5.    Form Input Data Wali Kelas        BSP
   6.    Form Cari Data Guru               BSP
   7.    Form Cari Data Mata Pelajaran     BSP
   8.    Form Cari Data Wali Kelas         BSP
   9.    Form Edit Data Guru               BSP
   10.   Form Edit Data Mata Pelajaran     BSP
   11.   Form Edit Data Wali Kelas         BSP
   12.   Form Cetak Data Guru              BSP
   13.   Form Cetak Data Mata Pelajaran BSP
   14.   Form Cetak Data Wali Kelas        BSP



                         Tabel 5. Hasil Uji Pengembangan
                                                                       37




3. Uji Operasional

              Pengujian ini didesain untuk memeriksa bagaimana program

   bertindak dalam keadaan realistis. Pengujian ini dilakukan dengan

   menjalankan program kemudian mengaktifkan setiap bagian sesuai dengan

   urutan yang diberikan pada menu-menu dan perintah-perintah yang ada

   pada saat program dijalankan. Secara operasional program yang telah

   dibuat dapat beroperasi dengan baik dan sudah sesuai dengan yang telah

   dirancang pada bagian bagan alir data.

          Berdasarkan beberapa pengujian yang telah dilakukan diatas maka

   program yang telah dibuat dapat bekerja dengan baik dan telah sesuai

   dengan rancangan yang telah dibuat.

          Bagian awal dari program ini (setelah program dipanggil atau

   dieksekusi), memberikan tampilan tentang judul dari program data base

   SMP Negeri 24 Semarang Tampilan dari bagian awal sebagai berikut.




                     Gambar 10. Tampilan Form Awal Program.
                                                                         38




          Sebelum masuk ke program terlebih dahulu masukan password.

Menu utama terdiri dari menu input, menu cari, menu edit dan menu cetak,

serta tambahan tombol yaitu berupa tombol kalkulator, tombol kalender

dan tombol programer. Tampilan dari menu utama sebagai berikut :




                     Gambar 11. Tampilan Form Menu Utama



          Tambahan tombol visi,misi, struktur organisasi dan kalender bisa

digunakan sesuai fungsinya dengan cara menekan tombol tersebut terlebih

dahulu.

          Menu Input digunakan untuk menginput data guru, data wali kelas

dan data mata pelajaran.
                                                                   39




1. Input Data Guru

      Tampilan form input data guru adalah sebagai berikut




               Gambar 15. Tampilan Form Input Data Guru.


2. Input Data Wali Kelas.

      Tampilan form input data wali kelas adalah sebagai berikut




           Gambar 16. Tampilan Form Input Data Wali Kelas
                                                                        40




3. Input Data Mata Pelajaran

       Tampilan form input data mata pelajaran adalah sebagai berikut




          Gambar 17. Tampilan Form Input Data Mata Pelajaran

       Menu Cari digunakan untuk mencari data guru, data wali kelas dan

data mata pelajaran.

1. Cari Data Guru

       Tampilan form cari data guru adalah sebagai berikut




         Gambar 18. Tampilan Form Cari Data Guru.
                                                                      41




2. Cari Data Wali Kelas

      Tampilan form cari data wali kelas adalah sebagai berikut




        Gambar 19. Tampilan Form Cari Data Wali Kelas



3. Cari Data Mata Pelajaran

      Tampilan form cari data mata pelajaran adalah sebagai berikut




      Gambar 20. Tampilan Form Cari Data Mata Pelajaran
                                                                      42




       Menu Edit digunakan untuk mengubah data guru, wali kelas dan

mata pelajaran.

1. Edit Data Guru

       Tampilan form edit data guru adalah sebagai berikut




           Gambar 21. Tampilan Form Edit Data Guru.
2. Edit Data Wali Kelas

       Tampilan form edit data wali kelas adalah sebagai berikut




         Gambar 22. Tampilan Form Edit Data Wali Kelas
                                                                        43




3. Edit Data Mata Pelajaran

       Tampilan form edit data mata pelajaran adalah sebagai berikut




      Gambar 23. Tampilan Form Edit Data Mata Pelajaran

       Menu Cetak terdiri dari cetak data guru, cetak wali kelas dan cetak

mata pelajaran.

1. Cetak Data Guru

       Tampilan form cetak data guru adalah sebagai berikut




         Gambar 24. Tampilan Form Cetak Data Guru
                                                                       44




2. Cetak Data Wali Kelas

      Tampilan form cetak data wali kelas adalah sebagai berikut




       Gambar 25. Tampilan Form Cetak Data Wali Kelas

3. Cetak Data Mata Pelajaran

      Tampilan form cetak data mata pelajaran adalah sebagai berikut




       Gambar 26. Tampilan Form Cetak Data Mata Pelajaran
                                                                        45




4. Pembahasan

         Hasil dari program basis data sekolah SMP Negeri 24 Semarang

  telah dibuat dan dapat dijalankan. Program basis data ini memiliki

  beberapa keunggulan dibandingkan dengan cara pengolahan yang

  dilakukan secara manual. Program basis data yang telah dibuat diantaranya

  adalah pengolahan data guru, data wali kelas dan data mata pelajaran.

  Dengan adanya program basis data ini diharapkan dapat meningkatkan

  keefektifitasan dan keefesiensian dalam pengolahan data guru di sekolah

  SMP Negeri 24 Semarang.
                                                                           46




                                           BAB V

                                          PENUTUP

A. Simpulan

         Berdasarkan dari uraian di atas, dapat diambil beberapa kesimpulan

  yang penting yaitu sebagai berikut :

     1. Hasil pembuatan basis data guru di SMP Negeri 24 Semarang dengan

         aplikasi Microsoft Visual Basic 6.0 telah selesai dan dapat digunakan

         secara langsung serta dirancang dengan maksud memberikan alternatif

         penyimpanan dan penginformasian data guru, data mata pelajaran, dan

         data wali kelas.

     2. Data dalam program ini meliputi Data guru yang terdiri dari identitas

         guru, Data wali kelas terdiri dari NIP, nama guru, wali dikelas dan

         Data mata pelajaran terdiri dari kode mata pelajaran, nama mata

         pelajaran dan pengampu.

     3. Dari data identitas guru ada yang kosong dikarenakan penyusun dalam

         observasi tidak mendapatkan data tersebut.

     4. Hasil cetak secara keseluruhan.
                                                                               47




B. Saran

   1. Dalam sistem program basis data ini masih dapat dikembangkan

      diantaranya dengan menambah data siswa yang berupa data identitas

      siswa, data absensi siswa, data pembayaran siswa. Dan lain-lain yang

      bersangkutan dengan administrasi sekolah.

   2. Keberadaan komputer saat ini diharapkan dapat dimanfaatkan secara

      maksimal agar dapat mempermudah pengelolaan basis datanya.

   3. Bagan sistem pengelolaan data yang baru, pemakai disarankan untuk

      memperhatikan kekurangan dan kelemahan sistem agar dapat segera dicari

      pemecahan masalahnya dan dapat segera diperbaiki kembali.

   4. Hasil cetak sebaiknya dibuat tiap tampilan/perguru.

   5. Penyusun tugas akhir hendaknya belajar lebih banyak agar dapat

      memperbaiki kekurangan-kekurangan yang ada pada program ini.



C. Keterbatasan Program.

           Program ini masih sangat terbatas, diantaranya adalah sebagai berikut :

   1. Program yang dibuat hanya digunakan untuk memasukan data baru,

      melihat data yang ada dan mengubah data yang ada.

   2. Dengan keterbatasan dari penyusun, sehingga program yang dibuat masih

      sangat sederhana.
                                                                            48




                            DAFTAR PUSTAKA



Firdaus, 2005. Pemrograman Database dengan Visual Basic 6.0 untuk Orang
         Awam. Palembang: Maxikom.

Kurniawan, Tjandra. 2005. Tip Trik Unik Visual Basic Buku Ketiga. Jakarta: PT.
       Elex Media Komputindo.

Madcoms, 2005. Aplikasi Pemrograman Database dengan Visual Basic 6.0 dan
      Crystal Report. Yogyakarta : Andi.

Prasetia, Retna, Catur Edi Widodo. 2004. Teori dan Praktek Interfacing Port
         Paralel dan Port Serial Komputer dengan Visual Basic 6.0. Yogyakarta :
         Andi.

Ramadhan, Arief. 2004. Seri Penuntun Praktis Microsoft Visual Basic 6. Jakarta:
      PT. Elex Media Komputindo.

Sanjaya, Ridwan. 2006. Pemrograman Database Visual Basic 6.0 dan Access
        2000/XP/2003 Tingkat Lanjut, Jakarta: PT. Elex Media Komputindo.


----------------, Buku Bimbingan Tugas Akhir Program Diploma 3. Semarang :
           Fakultas Teknik, Universitas Negeri Semarang.
                            DAFTAR PUSTAKA



Firdaus, 2005. Pemrograman Database dengan Visual Basic 6.0 untuk Orang
         Awam. Palembang: Maxikom.

Kurniawan, Tjandra. 2005. Tip Trik Unik Visual Basic Buku Ketiga. Jakarta: PT.
       Elex Media Komputindo.

Madcoms, 2005. Aplikasi Pemrograman Database dengan Visual Basic 6.0 dan
      Crystal Report. Yogyakarta : Andi.

Prasetia, Retna, Catur Edi Widodo. 2004. Teori dan Praktek Interfacing Port
         Paralel dan Port Serial Komputer dengan Visual Basic 6.0. Yogyakarta :
         Andi.

Ramadhan, Arief. 2004. Seri Penuntun Praktis Microsoft Visual Basic 6. Jakarta:
      PT. Elex Media Komputindo.

Sanjaya, Ridwan. 2006. Pemrograman Database Visual Basic 6.0 dan Access
        2000/XP/2003 Tingkat Lanjut, Jakarta: PT. Elex Media Komputindo.


----------------, Buku Bimbingan Tugas Akhir Program Diploma 3. Semarang :
           Fakultas Teknik, Universitas Negeri Semarang.




                                      48
49
                         LISTING PROGRAM

Form 1 ( Listing Menu Login )
Dim text As String
Private Sub form_load()
Skin1.LoadSkin App.Path & ("\SKIN\B-Studio.skn")
Skin1.ApplySkin (hWnd)
text = "LOGIN                     "
End Sub
Private Sub Timer1_Timer()
a = Left(text, 1)
c = Len(text)
b = Right(text, c - 1)
text = b + a
Form1.Caption = text
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command2_Click()
If Text1.text = "1" Then
     Text1.text = ""
     Form1.Hide
     Form2.Show
   ElseIf Text1.text = "" Then
     MsgBox "Silahkan isi password untuk masuk pada pengisian data/informasi
SMPN24 Ungaran", , "Peringatan"
   Else
     MsgBox "Password yang Anda masukan salah, Coba Ulangi!", , "Peringatan"
     Text1.text = ""
     Text1.SetFocus
   End If
End Sub


Form 2 ( Listing Menu Utama )
Dim text As String
Private Sub form_load()
Skin1.LoadSkin App.Path & ("\SKIN\B-Studio.skn")
Skin1.ApplySkin (hWnd)
text = "MENU UTAMA                      "
End Sub
Private Sub mnCetakGuru_Click()
DataReport1.Show
End Sub
Private Sub mnCetakMapel_Click()
DataReport2.Show
End Sub
Private Sub mnCetakWaliKelas_Click()
DataReport3.Show
End Sub
Private Sub Timer1_Timer()
a = Left(text, 1)
c = Len(text)
b = Right(text, c - 1)
text = b + a
Form2.Caption = text
End Sub
Private Sub mnCariGuru_Click()
Form6.Show
End Sub
Private Sub mnCariMapel_Click()
Form8.Show
End Sub
Private Sub mnEditMapel_Click()
Form11.Show
End Sub
Private Sub mnEditWaliKelas_Click()
Form10.Show
End Sub
Private Sub mnGuru_Click()
Form9.Show
End Sub
Private Sub mnInputGuru_Click()
Form3.Show
End Sub
Private Sub mnInputWaliKelas_Click()
Form5.Show
End Sub
Private Sub mnLog_Click()
End
End Sub
Private Sub mnLogin_Click()
Form1.Show
End Sub
Private Sub mnMapel_Click()
Form4.Show
End Sub
Private Sub mnWaliKelas_Click()
Form7.Show
End Sub
Form 3 ( Listing Input Data Guru )
Dim text As String
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Text1.SetFocus
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Update
Adodc1.Recordset.MoveFirst
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text2.SetFocus
  End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text3.SetFocus
  End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text4.SetFocus
  End If
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text5.SetFocus
  End If
End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text6.SetFocus
  End If
End Sub
Private Sub Text6_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text7.SetFocus
  End If
End Sub
Private Sub Text7_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text8.SetFocus
  End If
End Sub
Private Sub Text8_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text9.SetFocus
  End If
End Sub
Private Sub Text9_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text10.SetFocus
  End If
End Sub
Private Sub Text10_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text11.SetFocus
  End If
End Sub
Private Sub Text11_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text12.SetFocus
  End If
End Sub
Private Sub Text12_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text13.SetFocus
  End If
End Sub
Private Sub Text13_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text14.SetFocus
  End If
End Sub
Private Sub Text14_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text15.SetFocus
  End If
End Sub
Private Sub Text15_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Command2.SetFocus
  End If
End Sub
Private Sub form_load()
Skin1.LoadSkin App.Path & ("\SKIN\B-Studio.skn")
Skin1.ApplySkin (hWnd)
text = "DATA GURU SMP NEGERI 24 SEMARANG
"
End Sub
Private Sub Timer1_Timer()
a = Left(text, 1)
c = Len(text)
b = Right(text, c - 1)
text = b + a
Form3.Caption = text
End Sub


Form 4 ( Listing Input Data Mata Pelajaran )
Dim text As String
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
   If KeyAscii = vbKeyReturn Then
      Text2.SetFocus
   End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
   If KeyAscii = vbKeyReturn Then
      Text3.SetFocus
   End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
   If KeyAscii = vbKeyReturn Then
      Command2.SetFocus
   End If
End Sub
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Text1.SetFocus
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Update
Adodc1.Recordset.MoveFirst
End Sub
Private Sub form_load()
Skin1.LoadSkin App.Path & ("\SKIN\B-Studio.skn")
Skin1.ApplySkin (hWnd)
text = "DAFTAR MATA PELAJARAN SMPN24 SEMARANG
"
End Sub
Private Sub Timer1_Timer()
a = Left(text, 1)
c = Len(text)
b = Right(text, c - 1)
text = b + a
Form4.Caption = text
End Sub


Form 5 ( Listing Input Data Wali Kelas )
Dim text As String
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
   If KeyAscii = vbKeyReturn Then
      Text2.SetFocus
   End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
   If KeyAscii = vbKeyReturn Then
      Text3.SetFocus
   End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
   If KeyAscii = vbKeyReturn Then
      Command2.SetFocus
   End If
End Sub
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Text1.SetFocus
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Update
Adodc1.Recordset.MoveFirst
End Sub
Private Sub form_load()
Skin1.LoadSkin App.Path & ("\SKIN\B-Studio.skn")
Skin1.ApplySkin (hWnd)
text = "NAMA WALI KELAS SMPN24 SEMARANG
"
End Sub
Private Sub Timer1_Timer()
a = Left(text, 1)
c = Len(text)
b = Right(text, c - 1)
text = b + a
Form5.Caption = text
End Sub


Form 6 ( Listing Cari Data Guru )
Dim text As String
Private Sub Command1_Click(Index As Integer)
End Sub
Private Sub Command3_Click()
Dim NIPCari As String
Dim MSyarat As String
Pesan$ = "Mencari Data Guru di SMPN 24 Ungaran, Masukkan NIP"
Adodc1.Recordset.MoveFirst
NIPCari = InputBox(Pesan$, "Mencari Data")
MSyarat = "NIP='" & NIPCari & "'"
Adodc1.Recordset.Find MSyarat
If Adodc1.Recordset.EOF Then
   x = MsgBox("Data tidak ditemukan", vbOKOnly, "Pencarian NIP")
Adodc1.Recordset.MoveFirst
End If
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
   If KeyAscii = vbKeyReturn Then
      Text2.SetFocus
   End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
   If KeyAscii = vbKeyReturn Then
      Text3.SetFocus
   End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
   If KeyAscii = vbKeyReturn Then
      Text4.SetFocus
   End If
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
   If KeyAscii = vbKeyReturn Then
      Text5.SetFocus
   End If
End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text6.SetFocus
  End If
End Sub
Private Sub Text6_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text7.SetFocus
  End If
End Sub
Private Sub Text7_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text8.SetFocus
  End If
End Sub
Private Sub Text8_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text9.SetFocus
  End If
End Sub
Private Sub Text9_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text10.SetFocus
  End If
End Sub
Private Sub Text10_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text11.SetFocus
  End If
End Sub
Private Sub Text11_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text12.SetFocus
  End If
End Sub
Private Sub Text12_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text13.SetFocus
  End If
End Sub
Private Sub Text13_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text14.SetFocus
  End If
End Sub
Private Sub Text14_KeyPress(KeyAscii As Integer)
   If KeyAscii = vbKeyReturn Then
      Text15.SetFocus
   End If
End Sub
Private Sub Text15_KeyPress(KeyAscii As Integer)
   If KeyAscii = vbKeyReturn Then
      Command1.SetFocus
   End If
End Sub
Private Sub form_load()
Skin1.LoadSkin App.Path & ("\SKIN\B-Studio.skn")
Skin1.ApplySkin (hWnd)
text = "MENCARI DATA GURU SMPN24 SEMARANG
"
End Sub
Private Sub Timer1_Timer()
a = Left(text, 1)
c = Len(text)
b = Right(text, c - 1)
text = b + a
Form6.Caption = text
End Sub


Form 7 ( Listing Cari Wali Kelas )
Dim text As String
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text2.SetFocus
  End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text3.SetFocus
  End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Command1.SetFocus
  End If
End Sub
Private Sub Command1_Click()
Dim NIPCari As String
Dim MSyarat As String
Pesan$ = "Mencari Wali Kelas di SMPN 24 Ungaran, Masukkan NIP"
Adodc1.Recordset.MoveFirst
NIPCari = InputBox(Pesan$, "Mencari Data")
MSyarat = "NIP='" & NIPCari & "'"
Adodc1.Recordset.Find MSyarat
If Adodc1.Recordset.EOF Then
   x = MsgBox("Data tidak ditemukan", vbOKOnly, "Pencarian NIP")
Adodc1.Recordset.MoveFirst
End If
End Sub
Private Sub form_load()
Skin1.LoadSkin App.Path & ("\SKIN\B-Studio.skn")
Skin1.ApplySkin (hWnd)
text = "MENCARI WALI KELAS SMPN24 SEMARANG
"
End Sub
Private Sub Timer1_Timer()
a = Left(text, 1)
c = Len(text)
b = Right(text, c - 1)
text = b + a
Form7.Caption = text
End Sub


Form 8 ( Listing Cari Mata Pelajaran )
Dim text As String
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text2.SetFocus
  End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text3.SetFocus
  End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Command1.SetFocus
  End If
End Sub
Private Sub Command1_Click()
Dim KodMapelCari As String
Dim MSyarat As String
Pesan$ = "Mencari Mata Pelajaran di SMPN 24 Semarang, Masukkan Kode Mata
Pelajaran"
Adodc1.Recordset.MoveFirst
KodMapelCari = InputBox(Pesan$, "Mencari Data")
MSyarat = "KODEMAPEL='" & KodMapelCari & "'"
Adodc1.Recordset.Find MSyarat
If Adodc1.Recordset.EOF Then
   x = MsgBox("Data tidak ditemukan", vbOKOnly, "Pencarian Mata Pelajaran")
Adodc1.Recordset.MoveFirst
End If
End Sub
Private Sub form_load()
Skin1.LoadSkin App.Path & ("\SKIN\B-Studio.skn")
Skin1.ApplySkin (hWnd)
text = "MENCARI MATA PELAJARAN
"
End Sub
Private Sub Timer1_Timer()
a = Left(text, 1)
c = Len(text)
b = Right(text, c - 1)
text = b + a
Form8.Caption = text
End Sub


Form 9 ( Listing Edit Mata Pelajaran )
Dim text As String
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text2.SetFocus
  End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text3.SetFocus
  End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text4.SetFocus
  End If
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text5.SetFocus
  End If
End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text6.SetFocus
  End If
End Sub
Private Sub Text6_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text7.SetFocus
  End If
End Sub
Private Sub Text7_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text8.SetFocus
  End If
End Sub
Private Sub Text8_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text9.SetFocus
  End If
End Sub
Private Sub Text9_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text10.SetFocus
  End If
End Sub
Private Sub Text10_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text11.SetFocus
  End If
End Sub
Private Sub Text11_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text12.SetFocus
  End If
End Sub
Private Sub Text12_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text13.SetFocus
   End If
End Sub
Private Sub Text13_KeyPress(KeyAscii As Integer)
   If KeyAscii = vbKeyReturn Then
      Text14.SetFocus
   End If
End Sub
Private Sub Text14_KeyPress(KeyAscii As Integer)
   If KeyAscii = vbKeyReturn Then
      Text15.SetFocus
   End If
End Sub
Private Sub Text15_KeyPress(KeyAscii As Integer)
   If KeyAscii = vbKeyReturn Then
      Command2.SetFocus
   End If
End Sub
Private Sub Command3_Click()
Dim NIPCari As String
Dim MSyarat As String
Pesan$ = "Mencari data guru SMPN 24 Semarang, Masukkan NIP"
Adodc1.Recordset.MoveFirst
NIPCari = InputBox(Pesan$, "Mencari Data")
MSyarat = "NIP='" & NIPCari & "'"
Adodc1.Recordset.Find MSyarat
If Adodc1.Recordset.EOF Then
   x = MsgBox("Data tidak ditemukan", vbOKOnly, "Pencarian NIP")
Adodc1.Recordset.MoveFirst
End If
End Sub
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Text1.SetFocus
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Update
Adodc1.Recordset.MoveFirst
End Sub
Private Sub Command4_Click()
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveFirst
End Sub
Private Sub form_load()
Skin1.LoadSkin App.Path & ("\SKIN\B-Studio.skn")
Skin1.ApplySkin (hWnd)
text = "EDIT GURU SMP NEGERI 24 SEMARANG
"
End Sub
Private Sub Timer1_Timer()
a = Left(text, 1)
c = Len(text)
b = Right(text, c - 1)
text = b + a
Form9.Caption = text
End Sub


Form 10 (Listing Edit Wali Kelas )
Dim text As String
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text2.SetFocus
  End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text3.SetFocus
  End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Command2.SetFocus
  End If
End Sub
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Text1.SetFocus
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Update
Adodc1.Recordset.MoveFirst
End Sub
Private Sub Command3_Click()
Dim NIPCari As String
Dim MSyarat As String
Pesan$ = "Mencari Wali Kelas di SMP Negeri 24 Semarang, Masukkan NIP"
Adodc1.Recordset.MoveFirst
NIPCari = InputBox(Pesan$, "Mencari Data")
MSyarat = "NIP='" & NIPCari & "'"
Adodc1.Recordset.Find MSyarat
If Adodc1.Recordset.EOF Then
   x = MsgBox("Data tidak ditemukan", vbOKOnly, "Pencarian NIP")
Adodc1.Recordset.MoveFirst
End If
End Sub
Private Sub Command4_Click()
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveFirst
End Sub
Private Sub form_load()
Skin1.LoadSkin App.Path & ("\SKIN\B-Studio.skn")
Skin1.ApplySkin (hWnd)
text = "EDIT WALI KELAS SMP NEGERI 24 SEMARANG
"
End Sub
Private Sub Timer1_Timer()
a = Left(text, 1)
c = Len(text)
b = Right(text, c - 1)
text = b + a
Form10.Caption = text
End Sub


Form 11 ( Listing Edit Mata Pelajaran )
Dim text As String
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text2.SetFocus
  End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Text3.SetFocus
  End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
     Command2.SetFocus
  End If
End Sub
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Text1.SetFocus
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Update
Adodc1.Recordset.MoveFirst
End Sub
Private Sub Command3_Click()
Dim KodeCari As String
Dim MSyarat As String
Pesan$ = "Mencari Mata Pelajaran di SMP Negeri 24 Semarang, Masukkan Kode
Mata Pelajaran"
Adodc1.Recordset.MoveFirst
KodeCari = InputBox(Pesan$, "Mencari Data")
MSyarat = "KODEMAPEL='" & KodeCari & "'"
Adodc1.Recordset.Find MSyarat
If Adodc1.Recordset.EOF Then
   x = MsgBox("Data tidak ditemukan", vbOKOnly, "Pencarian NIP")
Adodc1.Recordset.MoveFirst
End If
End Sub
Private Sub Command4_Click()
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveFirst
End Sub
Private Sub form_load()
Skin1.LoadSkin App.Path & ("\SKIN\B-Studio.skn")
Skin1.ApplySkin (hWnd)
text = "EDIT MATA PELAJARAN
"
End Sub
Private Sub Timer1_Timer()
a = Left(text, 1)
c = Len(text)
b = Right(text, c - 1)
text = b + a
Form11.Caption = text
End Sub

								
To top