SISTEM INFORMASI PENILAIAN SMK DENGAN BORLAND DELPHI 7

LAPORAN PRAKTEK KERJA INDUSTRI (PRAKERIN) SISTEM INFORMASI PENILAIAN SMK DENGAN BORLAND DELPHI 7 UPT. PUSAT KOMPUTER UNIVERSITAS SEBELAS MARET SURAKARTA

PROGRAM KEAHLIAN REKAYASA PERANGKAT LUNAK (RPL)

DISUSUN OLEH : 1. CANDRA WISNU KUSUMA. 2. LU LUKMAN APRIYANTO. 3. NANANG SAPUTRO.

(2753) (2762) (2768)

SMK NEGERI 2 KARANGANYAR Jl. Yos Sudarso, Bejen, Telp(0271)494549 Telp(0271)494549 / fax.(0271) 6498171 Karanganyar 57716 Web : http://www.smkn2kra.sch.id E-mail : [email protected]

2011

1

HALAMAN PENGESAHAN

Laporan ini telah disetujui dan disahkan oleh pihak UPT. Pusat Komputer Universitas Sebelas Maret pada: Hari

:

Tanggal

:

Surakarta,

April 2011

Pembimbing 1

Pembimbing 2

Tri Ani Susilowati.S.kom

Triyadi Joko P, S.Si

NIP.

NIP. 19730615 200501 1 019

Mengetahui, Kasubbag umum UPT Puskom UNS

Joko Paryanto S.Pd NIP. 19610314 198203 1 002

2

KATA PENGANTAR

Segala puji syukur atas kehadiran ALLAH Yang Maha Esa yang telah melimp melimpahk ahkan an rahmat rahmat dan karuni karunia-Ny a-Nya, a, sehing sehingga ga kami kami dapat dapat menyel menyelesa esaika ikan n Lapora Laporan n Prakte Praktek k Kerja Kerja Indus Industri tri (Prake (Prakerin rin)) yang yang berjud berjudul ul “Siste “Sistem m Inform Informasi asi Penilaian SMK Dengan Borland Delphi 7” Laporan ini kami susun sebagai hasil Prakerin kami di UPT. Puskom UNS selama 3 bulan yang berlangsung pada tanggal 31 Januari sampai dengan 30 April 2011. Dalam penyusunan laporan ini tidak lepas dari bimbingan dan bantuan dari berbagai pihak. Untuk itu kami ucapkan terima kasih kepada ALLAH SWT yang tela telah h

melim elimp pahk ahkan

karu arunia nia

sert sertaa

hiday idayah ah-N -Nya ya,,

seh sehing ingga

kam kami

dapa dapatt

menyelesaikan laporan ini dengan lancar. Bapak Drs. Wahyu Widodo, selaku Kepa Kepala la SMK SMK N 2 Karan Karanga gany nyar ar,, yang yang telah telah memb member erik ikan an kemu kemuda daha han n dala dalam m pelak pelaksan sanaan aan Praker Prakerin. in. Bapak Bapak Dr. Sutant Sutanto, o, S.Si, S.Si, DEA, DEA, selaku selaku Pimpin Pimpinan an UPT. UPT. Puskom UNS yang telah mengijinkan UPT. Puskom sebagai tempat Prakerin. Bapak Joko Paryanto S.Pd selaku Pembimbing di UPT. Puskom UNS yang telah banyak membimbing kami di tempat Prakerin. Pra kerin. Ibu Tri Ani Sulistyo, S.Kom selaku Pemb Pembim imbi bing ng Seko Sekola lah h yang yang tela telah h

memo memoni nito tori ring ng dan dan

tela telah h

memb membim imbi bing ng

pelaksanaan pelaksanaan Prakerin. Prakerin. Bapak dan Ibu Guru SMK Negeri 2 Karanganyar. Karanganyar. Kakakkaka kakak k SAT SAT Pusk Puskom om UNS UNS yang yang telah telah memb memban antu tu kami kami dala dalam m pela pelaks ksan anaan aan Prakerin. Kami menyadari bahwa laporan prakerin ini masih jauh dari sempurna, untu untuk k itu itu kami kami meng mengha hara rap p adan adanya ya sara saran, n, masu masuka kan n maup maupun un krit kritik ikan an yang yang memban membangun gun guna guna meleng melengkap kapii kekura kekuranga ngan n lapora laporan n ini. ini. Semoga Semoga lapora laporan n yang yang sederhana ini dapat memberi manfaat kepada kita semua.

Surakarta,

3

April 2011

Penyusun,

4

DAFTAR ISI

Halaman Judul................................................. Judul......................................................................................... ........................................ ...... 1 Halaman Pengesahan....................................................... Pengesahan............................................................................... ........................ ...... 2 Kata Pengantar........................................ Pengantar............................................................... ....................................................... ................................ 3 Daftar Isi........................................... Isi.................................................................. ....................................................... ................................ ...... 4 BAB I PENDAHULUAN............................ PENDAHULUAN................................................... .................................................. ........................... 5 A.

Teknologi Informasi bagi Sekolah Menengah Kejuruan (SMK)....... 5

B.

Pemanfaatan Teknologi Informasi di Sekolah Menengah Kejuruan. 7

C.

Perumusan / Batasan Masalah........................................................... 7

D.

Tujuan dan Sasaran OJT.................................... OJT.................................................................... ................................ 7

E.

Sistematika Laporan...................................... Laporan............................................................. ..................................... .............. 8

BAB II DUNIA INDUSTRI..................................... INDUSTRI.......................................................................... ..................................... 9 A.

Tentang UPT Puskom UNS.................. UNS......................................... ............................................ ..................... 9

B.

Organisasi Kelembagaan UPT Puskom............................................. Puskom............................................. 10

C.

Peran UPT Puskom dalam Peningkatan UNS................................... 16

BAB III PELAKSANAAN OJT......................................... OJT.................................................................... ........................... 18 A.

Beban Tugas OJT/Prakerin................................................................ OJT/Prakerin................................................................ 18

B.

Instalasi Delphi 7.................................................... 7................................................................... ........................... ............ 18

C.

Pembuatan program......................................... program........................................................................ ............................... ...

D. Hambatan atau Masalah.......................................... Masalah..................................................................... ........................... E. Pemecahan Masalah......................................... Masalah................................................................ .................................. ........... BAB IV PENUTUP............................... PENUTUP...................................................... ........................................................ ................................. A. Kesimpulan................................... Kesimpulan.......................................................... ................................................ ......................... ..... B. Saran........................................... Saran.................................................................. ......................................... .............................. .............. .. LAMPIRAN.................................. LAMPIRAN......................................................... .............................................. .......................................... ................... DAFTAR PUSTAKA................................... PUSTAKA.......................................................... ............................................... ........................ ..

5

BAB I PENDAHULUAN

A. Teknologi Teknologi Infor Informasi masi Bagi Sekolah Sekolah Menen Menengah gah Keju Kejuruan ruan

Teknologi Informasi dan Komunikasi (TIK), atau dalam bahasa Inggris dikenal dengan istilah Information and Communication Technologies (ICT), adalah payung besar terminologi terminologi yang mencakup seluruh peralatan teknis untuk memproses dan menyampaikan informasi. TIK TIK menc mencak akup up dua dua aspe aspek k yait yaitu u teknologi teknologi informasi informasi dan teknologi komunikasi. komunikasi. Teknologi informasi meliputi segala hal yang berkaitan dengan proses, penggunaan sebagai alat bantu, manipulasi, dan pengelolaan informasi. Sedangkan teknologi komunikasi adalah segala sesuatu yang berkaitan dengan penggunaan alat bantu untuk memproses dan mentransfer data dari perangkat yang yang satu satu ke lainny lainnya. a. Oleh Oleh karena karena itu, itu, tekno teknolog logii inform informasi asi dan teknol teknologi ogi komunikasi adalah dua buah konsep yang tidak ter pisahkan. Jadi Teknologi Informasi dan Komunikasi mengandung pengertian luas yait yaitu u

sega segala la

kegi kegiat atan an

yang yang

terk terkai aitt

deng dengan an

pepr pepros oses esan an,,

mani manipu pula lasi si,,

pengelolaan, pemindahan informasi antar media antar media.. Istilah TIK muncul setelah adanya perpaduan antara teknologi komputer (baik (baik perangkat keras maupun perangkat lunak ) dengan teknologi komunikasi pada pertengahan abad ke-20. Perpaduan Perpaduan kedua kedua teknologi teknologi tersebut tersebut berkembang berkembang pesat melampaui bidang bidang tekn teknol olog ogii lain lainny nya. a. Hing Hingga ga awal awal abad abad ke-2 ke-21 1 TI masi masih h teru teruss meng mengal alam amii berbagai perubahan dan belum terlihat titik jenuhnya. TI dibutuhakan dibutuhakan hampir hampir di semua bidang, bidang, lebih-lebih lebih-lebih di jaman yang serba modern ini. Dalam bidang pendidikan, selain untuk melakukan komunikasi dengan dengan teknol teknologi ogi canggi canggih, h, juga juga untuk untuk mendap mendapatk atkan an inform informasi asi yang yang tidak tidak mengenal jarak dan waktu. Begitu juga pada bidang pendidikan di Sekolah

6

Menengah Menengah Kejuruan, Kejuruan, TI banyak banyak digunakan digunakan untuk menjalankan menjalankan pembelajaran pembelajaran ataupun ataupun kegiat kegiatan an sekola sekolah h yang yang lebih lebih mudah. mudah. Karena Karena pada pada dasarn dasarnya, ya, TI memang memang digunakan digunakan untuk mempermuda mempermudah h pekerjaan pekerjaan manusia. manusia. Seperti Seperti pada lembaga pendidikan lainnya, di sekolah-sekolah kejuruan misalnya saja. Pada umumnya Sekolah Kejuruan memanfakan TI sesuai dengan program jurusan yang yang ada. ada. Pada Pada progra program m jurusa jurusan n Bisnis Bisnis Manaje Manajemen men TI banyak banyak diguna digunakan kan untu untuk k mela melaku kuka kan n kegi kegiata atan n bisn bisnis is dan dan keua keuang ngan an,, sepe sepert rtii MYOB MYOB untu untuk k Akunta Akuntansi nsi dan kegiata kegiatan n produk produk adverti advertisin sing g untuk untuk Pemasa Pemasaran ran.. Sedang Sedangkan kan untu untuk k juru jurusa san n tekni teknik k TI adal adalah ah mate materi ri yang yang dipe dipela laja jari ri seti setiap ap hari hariny nyaa khususnya untuk program yang berkaitan langsung dengan computer seperti misalnya jurusan TKJ. Selain dimanfatkan dalam proses pembelajaran, Ti juga digunakan dalam proses pengelolaan atau administrasi sekolah. Seperti websitae sekolah yang bertujuan bertujuan untuk untuk mengenalka mengenalkan n sekolah sekolah yang bersangkutan bersangkutan melalui melalui internet internet hingga sistem pendaftaran siswa siswa online yang sekarang ini banyak dilakukan oleh beberapa daerah. Selain itu juga digunakan dalam pengelolaan internal sekola sekolah, h, sepert sepertii pengel pengelola olaan an admini administr strasi asi seluru seluruh h kegiat kegiatan an sekola sekolah h yang yang mencangkup pembayaran, data siswa, dan sebagainya. Secara lebih terperinci, manfaaat TI di Sekolah Menengah Kejuruan antara lain : 1. Bagi Bagi sisw siswaa : a. Mengubah Mengubah peran peran siswa siswa dari dari penerima penerima informa informasi si yang yang pasif pasif menjadi menjadi partisipan aktif dalam proses pembelajaran. b. b. Meng Mengub ubah ah meto metode de pembe pembela laja jaran ran sisw siswaa yang yang

meng mengun ungk gkap apka kan n

kem kembali bali

dan dan

pen pengeta getahu huan an

men menjadi jadi

mengh enghas asil ilk kan

berb berbag agai ai

pengetahuan. c. Mengubah

cara

pem pembe belaj lajar aran an

secar secaraa

belajar

siswa

indi indivi vidu dual al

yang

(sol (solit iter) er)

semula menj menjad adii

melakukan pemb pembel elaj ajara aran n

berkolaboratif dengan siswa lain. d. Meng Mengem emba bang ngka kan n peng penget etah ahua uan n sisw siswaa yang yang semu semula la terb terbat atas as pada pada pendidikan formal di sekolah lewat internet. e. Menambah Menambah kreatifi kreatifitas tas siswa siswa dalam dalam hal hal teknolog teknologii dan komun komunikasi ikasi..

7

f. Dapat Dapat berkomu berkomunik nikasi asi dengan dengan para para ahli pendid pendidika ikan n tanpa dibata dibatasi si ruang dan waktu. g. Memp Memper ersi siap apka kan n sisw siswaa untu untuk k bers bersai aing ng di duni duniaa glob global al yang yang menuntut kita terjun dalam teknologi, sehingga terbiasa menggunakan teknologi dalam menjalani kehidupan. 2. Bagi Bagi guru guru : a. Mengub Mengubah ah peran peran guru dari penyam penyampai pai penget pengetahu ahuan, an, sumber sumber utama utama informasi, akhli materi, dan sumber segala jawaban, menjadi sebagai fasilitator pembelajaran, pelatih, kolaborator, navigator pengetahuan, dan mitra belajar. b. b. Semu Semula la guru guru meng mengen enda dali lika kan n dan dan meng mengar arah ahka kan n semu semuaa aspe aspek k pem pembe belaj lajar aran an,, menj menjad adii lebi lebih h bany banyak ak memb member erik ikan an lebi lebih h bany banyak ak alter alterna nati tiff dan dan tang tanggu gung ng jawa jawab b kepa kepada da seti setiap ap sisw siswaa dalam dalam pros proses es pembelajaran. c. Menjad Menjadika ikan n pembelaj pembelajaran aran secara secara efisien efisien dan efektif, efektif, memperk memperkecil ecil kes kesalah alahan an

pers persep epssi,

dan dan

meng engatas atasii

keku ekuran rangan gan

alat alat,,

sert sertaa

mengembangkan kemampuan TIK dengan belajar mandiri, berinisiatif, kreatif dan bertanggung jawab. d. Dapat berkom berkomunika unikasi si dengan dengan sesama sesama guru guru secara secara regional, regional, nasional nasional maupun internasional. e. Guru Guru dapat dapat memper memperole oleh h materi materi ajar secara secara cepat cepat dan dan murah murah dalam dalam upaya mengembangkan bahan ajar. 3.

Bagi kegiatan di sekolah : a. Memp Memper ermu muda dah h pros proses es pemb pembel elaja ajaran ran deng dengan an alatalat-al alat at tekn teknol olog ogii informasi seperti komputer, proyektor, dan sebagainya. Kegiatan yang dapat memanfaatkan TIK antara lain presentasi, demonstrasi, dan kelas virtual. b. Memper Mempermud mudah ah admini administr strasi asi sekolah sekolah dengan dengan pemngun pemngunan an server server sekola sekolah h yang yang bisa bisa berisi berisi admins adminstras trasii Data Data induk, induk, Data Data guru, guru, Data Data sisw siswa, a,

Keua Keuang ngan an,,

Psb, Psb, Adm Adm

akad akadem emik ik((

abse absens nsii

pela pelang ngga gara ran, n,

nilai/tugas dll), Fasek, Data lain-lain. Manfaat TIK untuk perpustakaan

8

Data buku, Data peminjam, Data pengunjung, dan E-book tanpa perlu data keras yang tidak efektif. c. Memp Memper ermu muda dah h komu komuni nika kasi si anta antarr eleme elemen n intr intras asek ekol olah ah maup maupun un dilu diluar ar seko sekola lah h deng dengan an medi mediaa komu komuni nika kasi si sepe sepert rtii emai email, l, laya layana nan n jejaring sosial, chat, dan sebagainya. B. Pemanfaa Pemanfaatan tan Teknolo Teknologi gi Informa Informasi si di Sekolah Sekolah Menengah Menengah Kejur Kejuruan uan

Telah kita ketahui sebelumnya bahwa Sekolah Menengah Kejuruan adalah sekolah yang dibangun untuk mempersiapkan tenaga yang siap kerja di jaman modern ini. Dengan perkambangan jaman maka teknologi pun akan semakin ber berke kemb mban ang g pula pula.. Dalam Dalam duni duniaa pend pendid idik ikan an,, khus khusus usny nyaa pada pada Seko Sekola lah h Kejuruan Kejuruan tidak akan pernah terlepas dengan Teknologi Teknologi Informasi. Informasi. Segala bentuk bentuk pembelajaran pembelajaran saat ini hampir semua menggunakan menggunakan Perangakat TI. Walaupun pemanfaatan TI di setiap sekolah berbeda-beda, pada dasarnya seti setiap ap seko sekola lah h meng menggu guna naka kan n TI. TI. Sepe Sepert rtii misa misaln lnya ya saja saja di SMKN SMKN 2 Karanganyar merupakan SMK yang mempunyai jurusan bisnis manajemen dan teknik. Di sana TI digunakan antara lain untuk : 1. Pemb Pembel elaja ajara ran n

deng dengan an mengg menggun unak akan an peran perangk gkat at TI seper seperti ti misal misalny nyaa

komp komput uter, er, tele telepo pon, n, proy proyek ekto tor, r, tv, tv, inte intern rnet et,, dan dan seba sebaga gain inya ya,, untu untuk k menunjang pembelajaran yang lebih efektif dan menarik. 2. Melaku Melakukan kan adminis administras trasii sekola sekolah h baik baik yang yang dilaku dilakukan kan oleh seluruh seluruh siswa, siswa, guru, ataupun perangkat sekolah yang lain. 3. Pengen Pengenalan alan sekolah sekolah kepada kepada masyar masyaraka akatt umum umum melalu melaluii perant perantara ara internet internet dengan dengan menggunaka menggunakan n website website yang berisi berisi kumpulan kumpulan informasi informasi mengenai mengenai sekolah. 4. Mela Melaku kuka kan n komu komuni nika kasi si deng dengan an ling lingku kung ngan an luar luar seko sekola lah h tanpa tanpa haru haruss bertat bertatap ap muka muka secara secara langsu langsung ng dengan dengan menggu menggunak nakan an perang perangkat kat atau atau media komunikasi. 5. Layana Layanan n internet internet 24 jam untuk untuk warga sekolah sekolah sehingg sehinggaa dapat dapat menambah menambah pengetahuan yang tidak diajarkan di sekolah.

9

C. Perumu Perumusan san / Bata Batasan san Masal Masalah ah

Laporan ini hanya akan membahas tentang pembuatan program Sistem Informasi Penilaian SMK.

Tujuan dan Sasaran OJT

Praktek Kerja Industri bertujuan untuk : 1. Menyia Menyiapka pkan n peserta peserta didik agar agar dapat bekerja bekerja,, baik secara secara mandiri mandiri atau mengisi lowongan pekerjaan yang ada di dunia usaha atau dunia industri sebaga sebagaii tenaga tenaga kerja kerja tingka tingkatt meneng menengah ah sesuai sesuai dengan dengan bidang bidang keahli keahlian an serta kompetensi yang diminati. 2. Membekali Membekali peserta peserta didik didik agar mampu mampu memilih memilih karier, karier, ulet ulet dan gigih gigih dalam dalam berkompet berkompetensi ensi dan mampu mengemban mengembangkan gkan sikap professional professional dalam bidang keahlian yang diminati. 3. Membek Membekali ali peserta peserta didik didik dengan dengan iptek agar mampu mampu mengemb mengembang angkan kan diri melalui jenjang pendidikan yang lebih tinggi. 4. Meningkatk Meningkatkan an organisas organisasii dan manajemen manajemen sekola sekolah h mengacu mengacu sesuai sesuai dengan dengan tuntutan standar mutu. 5. Meningkatk Meningkatkan an pelayanan pelayanan prima kepada kepada masyarakat. masyarakat. 6. Mening Meningkat katkan kan akunta akuntabil bilita itass kinerja kinerja sekolah sekolah.. 7. Meningkatk Meningkatkan an iklim iklim kerja sekolah sekolah yang yang kondusif. kondusif. 8. Mening Meningkat katkan kan kualit kualitas as pengenda pengendalia lian n sekolah. sekolah. 9. Meningkatk Meningkatkan an kualita kualitass Sumber Sumber Daya Manusia Manusia sekola sekolah. h.

D. Sist Sistem emat atik ika a Lapo Lapora ran n

Sistematika laporan ini terdiri dari 6 bagian, antara lain : 1. Bagian Bagian awal memuat memuat tentang tentang Halaman Halaman Judul, Judul, Halaman Halaman Pengesah Pengesahan, an, Kata Pengantar dan Daftar Isi.

10

2. BAB BAB I Pend Pendah ahul ulua uan, n, me53 me536m 6mua uatt tent tentan ang g Tekn Teknol olog ogii Info Inform rmas asii bagi bagi Sekolah Menengah Kejuruan, Pemanfaat Teknologi Informasi di Sekolah Menengah Kejuruan, Perumusan / Batasan Masalah, Tujuan dan Sasaran OJT, dan Sistematika Laporan. 3. BAB II Dunia Dunia Industri, Industri, memuat memuat tentang tentang UPT Puskom Puskom UNS, UNS, Organisa Organisasi si dan dan Kele Kelemb mbag agaa aan n UPT UPT Pusk Puskom om,, sert sertaa Pera Peran n UPT UPT Pusk Puskom om dala dalam m Peningkatan UNS. 4. BAB III Pelaks Pelaksana anaan an OJT, memuat memuat tentang tentang Beban Beban Tugas Tugas OJT, Kegaia Kegaiatan tan yang dilaporkan dilaporkan (Instalasi (Instalasi Debian server dan konfiguras konfigurasii mail server), Hambatan/Masalah, Pemecahan Masalah. 5. BAB IV Penutu Penutup p memuat memuat tentang tentang Kesimpu Kesimpula la dan Saran. 6. Bagian Bagian Akhir Akhir memuat memuat tentang tentang Lampir Lampiran an dan Daftar Pustaka. Pustaka.

11

BAB II DUNIA INDUSTRI

A. Te Tent ntan ang g UPT UPT Pusk Puskom om UNS UNS

UPT UPT Pusk Puskom om berd berdir irii berd berdas asar arka kan n Sura Suratt Kepu Keputu tusa san n Rekt Rektor or UNS UNS No.17/PT.40/1980 dengan nama Bagian Komputer/Pengelolaan Data UNS. Tiga Tiga tahu tahun n kemu kemudi dian an berd berdas asark arkan an Kepu Keputu tusa san n Ment Menteri eri Pend Pendid idik ikan an dan dan Kebudayaan RI No. 91916/C/1/83 Bagian Komputer/Pengelolaan Data UNS berub berubah ah nama nama menjad menjadii Unit Unit Pelaks Pelaksana anaan an Teknik Teknik Kompu Komputer ter Univer Universit sitas as Sebe Sebela lass Mare Maret. t. Kemu Kemudi dian an pada pada tahu tahun n 1994 1994 kelu keluar arla lah h Surat Surat Keput Keputus usan an Menteri Pendidikan Pendidikan dan Kebudayaan Kebudayaan RI No.44510/ No.44510/A2.1. A2.1.2/C1 2/C1/1994 /1994 yang menyebutkan bahwa Unit Pelaksanaan Teknik Komputer Universitas Sebelas Mare Marett beru beruba bah h nama nama menj menjad adii Pusa Pusatt Pela Pelaks ksan anaa aan n Tekn Teknik ik Komp Komput uter er Universitas Sebelas Maret. Hingga akhirnya delapan tahun kemudian dikeluarkan Surat Keputusan Rektor Rektor Universitas Universitas Sebelas Sebelas Maret No.315/J2 No.315/J27/KP/2 7/KP/2002 002 Pusat Pusat Pelaksanaan Pelaksanaan Teknik Komputer Universitas Sebelas Maret berubah nama menjadi UPT Pusa Pusatt Komp Komput uter er (PUS (PUSKO KOM) M) Univ Univer ersi sita tass Sebe Sebela lass Mare Maret. t. UPT UPT Pusa Pusatt Komputer berada di bawah dan bertanggung jawab langsung kepada rektor dan pembinaannya dilakukan oleh Pembantu Rektor I.

12

PEMBAGAIN TUGAS / JOB DISCRIPTIONS STAF TAHUN 2010 / 2011

Pimpinan UPT Pukom UNS

Kepala

: DR. Sutanto, S. Si, DEA

Sekretaris

: Sapto Hermawan, SH

Kepa Kepala la Sub Sub Bagi Bagian an Umu Umum m

: Joko Joko Pary Paryan anto to,, S. Pd. Pd.

NO

1

NAMA / NIP

STATUS /

BEBAN TUGAS

Joko Paryanto,

JABATAN Kepala Sub

1.

SPd

Bagian Umum

kerj kerjaa SubB SubBag agia ian n dan dan prog program ram kerj kerjaa

Men Menyusun rencana dan program ram

NIP 19610314

UPT. Pusat Komputer

198203 1 002

2.

Menghimpun

dan

mengkaji

peraturan perundang-undangan 3.

Mengu Mengump mpul ulka kan, n,me meng ngol olah ah dan dan

menganalisis data 4.

Meny Menyu usun sun lapor laporan an sub sub bagi bagian an dan dan

memper mempersia siapka pkan n

penyus penyusuna unan n

lapora laporan n

UPT.Pusat Komputer. 5. 2

Triyadi Joko P, Ssi.

PNS / Ketua Diklat

Melaksanakan

tugas

lain

diberikan oleh pemimpin. 1. Men Mengkoordinir seluruh ruh

yang

kegiatan

Diklat

NIP. 19730315

2.

Melaksankan

200501 1 019

Prak Prakti tiku kum m

kegiatan

Komp Komput uter er

mhs, mhs,

layanan Dikl Diklat at//

Pendidikan Profesi 3.

Mela Melaks ksan anak akan an kegi kegiat atan an - kegia kegiata tan n

yang yang berh berhub ubun unga gan n deng dengan an Prog Progra ram m

13

Kampus Agrement UNS 4.

Memb Membua uatt usula usulan n progr program am kegi kegiat atan an

Diklat kepada pimpinan 5.

Mem Membuat laporan rut rutin kegi egiatan

setiap bulan kepada pimpinan 6.

Membantu

pelaksanaan

Vidio/

telekonverence UNS 7. 3

4

Melaksanakan

tugas

lain

yang

lain

yang

Karmono

PNS /

dibebankan oleh pimpinan 1. Ditu Ditug gaska askan n Di SPMB SPMB

NIP 19561228

Administrasi

2.

198102 1 001 Iriyanto

PNS / Ketua

dibebankan oleh pimpinan UPT Puskom 1. Mengkoordinir personil dan

Suratman

Pengolahan Data

kegiata kegiatan n Pengol Pengolaha ahan n Data Data Elektr Elektroni onik k

Melaksankan

NIP 19620506

(PDE)

198203 1 001

2.

tugas

Bertanggung

jawab

terhadap

keberjalanan Software Pengolahan Data Calon Mhs UNS 3.

Bertanggung

jawab

terhadap

keberjalanan Software Akademik UNS secara Off line 4.

Bertanggung

kebe keberj rjal alan an

softw softwar aree

jawab

terhadap

keua keuang ngan an

ruti rutin n

UNS 5.

Bertanggung

jawab

terhadap

pelaporan data EPSBED 6.

Memb Membua uatt lapo lapora ran n tent tentan ang g PDE PDE dan dan

EPSBED secara rutin kepada pimpinan 7. 5

Melaksanakan

tugas

lain

yang

Sumantoro

PNS /

dibebankan oleh pimpinan UPT Puskom 1. Mem Membuat dokumentasi kegiatan

NIP 19600620

Administrasi

UPT Puskom

198303 1 003

2.

14

Memb Membua uatt Kar Kartu tu Alum Alumni ni UNS UNS

3.

Mem Membuat buat vali valid dasi asi data ata pelap elapor oran an

EPSBED UNS 4.

Memb Membua uatt Kart Kartu u Maha Mahasi sisw swaa S1 dan dan

Program Diploma UNS 5. 6

Sudaryono NIP 19590831

Melaksanakan

tugas

lain

yang

dibebankan oleh pimpinan UPT Puskom 1. Membuat Kartu Mahasiswa

PNS / Administrasi

198203 1 004

Program Pascasarjana UNS 2.

Memb Membua uatt pembu pembuat atan an Kart Kartu u Alumn Alumnii

UNS 3.

Melayani permintan dokumen /

cetakan Mahasiswa UNS 4.

Mem Membuat dokumen dan dan Back up

data Mahasiswa UNS 5. 7

Melaksanakan

tugas

lain

yang

Hadi Sugiarto,

PNS /

dibebankan oleh pimpinan 1. Mel Melaksanaan arusan perba rbaikan /

Amd.

Administrasi

troubel komputer di UPT Puskom

NIP 19690313

2.

200701 1 001

data mahasiswa UNs 3.

Membuat dokumen dan back up

Membu Membuat at kartu kartu maha mahasi sisw swaa pro progr gram am

Pascasarjana 4. 8

Melaksankan

tugas

lain

yang

Partiman

PNS /

dibebankan oleh pemimpin 1. Men Mengelo gelola la Adm Adminis inistr tras asii Bara Barang ng -

NIP 19600813

Administrasi

bar baran ang g Mili Milik k Nega Negara ra UPT UPT Pusk Puskom om

198103 1 002

(SAKBMN) 2.

Mela Melaks ksan anak akan an urus urusan an Bran Brang g Habis Habis

Pakai (BHP) UPT Puskom 3.

Mem Membuat lapran kerusakan : ala alat

-alat kantor, alat rumah tangga, alat alat alat lain lainny nyaa perbaikan

15

sert sertaa memb membua uatt

usul usulan an

4.

Bertanggung

jawab

terhadap

keberjalanan Genset UPT Puskom 5.

Melaksanakan

dibebankan 9

Andhy

PNS /

Koespriyadi

Administrasi

tugas

oleh

Puskom 1. Bertanggung

lain

yang

pemimpin

UPT

jawab

perjalanan

terhadap

komputer

dan

NIP 19561111

penyambu penyambungan ngan jaringan jaringan di lingkunga lingkungan n

198203 1 002

UNS 2.

Melaksanakan

back

up

data

akademik 3.

Bertanggung

jawab

terhadap

keberjalanan Genset UPT Puskom 4. 10

Tunggul

Melaksanakan

tugas

lain

yang

dibebankan oleh pimpinan UPT Puskom 1. Bertanggungjawab terhadap

PNS/Teknisi

Ardhi,Ssi

keberjalanan jaringan internet UNS

NIP 19741030

2.

200212 1 001

pen penge gelo lolaa laan n

Bertanggungjawab serv server er

terhadap dan dan

peng pengat atur uran an

nomor IP UNS 3.

Melaksanakan

pembagian

bandwitdh UNS sesuai ketentuan yang berlaku 4.

Bertanggungjawab

terhadap

pelaksanaan Video/telekonverence UNS 5.

Membuat

laporan

rutin

kondisi

jaringan kepada pimpinan 6. 11

Ardian M P,Ssi

PNS/Programer

Melaksanakan

tugas

lain

yang


NIP 19800322

keberjalanan software SIAKAD online

200501 1 002

UNS 2.

16

Bertanggungjawab

terhadap

keberjalanan software reg/ Heregistrasi secara online UNS 3.

Bertanggungjawab

terhadap

keberjalanan software web UNS 4.

Bertanggungjawab

kebe keberj rjal alan anan an

terhadap

softw oftwar aree

pend pendaf afta tara ran n

mahasiswa baru secara online UNS 5. 12

Winarno,Ssi

PNS/Programer

Melaksanakan

tugas

lain

yang

dibebankan oleh pimpinan UPT Puskom 1. Bert Bertan angg ggun ungj gjaw awab ab terh terhad adap ap data ata

NIP 19820520

mahasiswa secara online UNS

200604 1 001

2.

Bertanggungjawab

terhadap

keberjalanan software reg/ Heregistrasi secara online UNS 3.

Bertanggungjawab

kebe keberj rjal alan anan an

terhadap

soft softwa ware re

perp perpus usta taka kaan an

UNS 4.

Bertanggungjawab

terhadap

softwa software re pendaf pendaftar taran an mahasi mahasiswa swa baru baru secara online UNS 5. 13

Kamari

Melaksanakan

tugas

lain

yang


PNS/Arsiparis

NIP 19530929

pen penge gelo lola laan an

198303 1 003

Puskom 2.

arsi arsip p/do /dokume kumen n

UPT UPT

Mela Melak ksana sanak kan adm adminis inistr tras asii surat urat--

menyurat UPT Puskom 3.

Mem Membantu

peny enyusunan

laporan ran-

laporan UPT Puskom 4.

Membuat

laporan

rutin

kepada

pimpinan UPT Puskom 5.

Melaksanakan

tugas

lain

yang

dibebankan oleh pimpinan UPT Puskom

17

14

Endah Sri

PNS/Arsiparis

1.

Mengelola

Keuangan

dan

Mulyawati

administrasi keuangan UPT Puskom

NIP 19580222

2.

198303 2 001

UPT Puskom 3.

Melak Melaksa sana naka kan n uru urusa san n rum rumah ahta tang ngga ga

Mem Membuat buat lapo lapora ran n ruti rutin n keuan euanga gan n

kepada pimpinan UPT Puskom 4.

Memb Memban antu tu tuga tugass penge pengelo lola laan an arsip arsip

UPT Puskom 5. 15

Melaksanakan

tugas

lain

yang

Slamet

PNS/Administras

dibebankan oleh pimpinan UPT Puskom 1. Mela Melak ksana sanak kan pen pengiri girima man n surat urat--

NIP 19660301

i

surat UPT puskom

199403 1 002

2.

Memb Memban antu tu kela kelanc ncar aran an opera operasi sion onal al

genset 3.

Memba Membant ntu u tuga tugass admi admini nist stra rasi si sur surat at--

menyurat UPT Puskom 4. 16

Triwik Jatu

Kontrak/teknisi

Melaksanakan

tugas

lain

yang

dibebankan oleh pimpinan UPT Puskom 1. Mengk Mengkoo oord rdin inir ir keg kegia iata tan n maha mahasi sisw swaa

Parmaningsih,S

magang SAT

si

2.

Melaksanakan

administrasi

keuangan SAT UNS 3.

Membuat

laporan

se c a r a

rutin

lain

yang

kepada pimpinan 4. 17

Melaksanakan

tugas

Wastri

Kontrak/Adminis

dibebankan oleh pimpinan UPT Puskom 1. Melaksanakan humas & front

Murtini,SPd

trasi

office UPT Puskom 2.

Mela Melak ksana sanak kan adm adminis inistr tras asii dikla iklatt

dan pendidikan profesi 3.

Membuat

praktikum

jadwal komputer,

pendidikan profesi

18

kegiatan diklat

dan

4. 18

Tugimin

Melaksanakan

tugas

lain

yang

Kontrak/Penjaga

dibebankan oleh pimpinan UPT Puskom 1. Mel Melaksanakan penjagaan aan/park arkir

sepeda

sepeda UPT Puskom 2.

Memb Memban antu tu pela pelaks ksan anaa aan n kebe kebers rsih ihan an

lingkungan UPT Puskom 3.

Melaksanakan

tugas

lain

yang

dibebankan oleh pimpinan UPT Puskom

BAB III PELAKSANAAN OJT

F. Beb Beban an Tugas Tugas OJT/Pr OJT/Prake akerin rin

Sela Selama ma meng mengik ikut utii kegi kegiat atan an Prak Praker erin in di UPT UPT Pusk Puskom om UNS UNS terda terdapa patt beberapa tugas yang dibebankan kepada peserta Prakerin diantaranya : 1. Memban Membantu tu dalam dalam pelayanan pelayanan mahasi mahasiswa swa di SAT Puskom Puskom yang yang terletak terletak di lantai dua gedung Puskom UNS. Pelayanan yang disediakan antara lain;

19

jas jasaa

inte intern rnet et,,

ceta cetak k

doku dokume men, n,

regi regist stra rasi si

onli online ne

maha mahasi sisw swaa

baru baru

(spmb.uns.ac.id ), Heregistrasi online mahasiswa lama (siakad.uns.ac.id). 2. Melaku Melakukan kan perbaika perbaikan n labora laborator torium ium kompute komputer, r, yang yang melipu meliputi ti perbai perbaikan kan hardware dan software hingga dapat terkoneksi internet. 3. Melaks Melaksana anakan kan tugas tugas lain lain yang yang diber diberika ikan. n. 4. Membuat Membuat laporan laporan yang berisi berisi materi materi yang berhub berhubunga ungan n dengan dengan komputer, komputer, dalam dalam hal ini kami kami dari dari SMKN SMKN 2 Karanga Karanganya nyarr mendap mendapat at tugas tugas untuk untuk memb membua uatt lapo lapora ran n tent tentan ang g Sist Sistem em Info Inform rmas asii Peni Penilai laian an SMK SMK deng dengan an Borland Delphi 7. 5. Pada ada akhi akhirr masa asa Prake rakeri rin n semu semuaa peser eserat ataa OJT OJT di Pusk uskom haru arus mempresentasikan materi tersebut di depan pembimbing dan teman-teman sesama sesama siswa Prakerin. Prakerin. Ini adalah tugas wajib yang harus dipenuhi dipenuhi untuk mendapatkan nilai selama OJT di UPT Puskom. G. Insta Instalas lasii Borland Borland Delph Delphii 7

Borland Delphi 7 merupakan bahasa pemrograman berbasis Windows . Delphi 7 dapat membantu untuk membuat berbagai macam aplikasi yang berjalan di sistem operasi Windows , mulai dari sebuah program sederhana sampai dengan program yang berbasiska berbasiskan n client/server atau jaringan. jaringan. Delphi , termasuk aplikasi yang dapat digunakan untuk mengolah teks, grafik, angka, database dan aplikasi web. Untuk Untuk memper mempermud mudah ah pemrog pemrogram ram dalam dalam membua membuatt progra program m aplika aplikasi, si, Delphi menyediakan fasilitas pemrograman yang sangat lengkap. Fasilitas pemrograman terseb tersebut ut dibagi dibagi dalam dalam dua kelomp kelompok, ok, yaitu yaitu object dan bahasa bahasa pemrograman pemrograman.. Secara ringkas object adalah suatu komponen yang mempunyai bentuk fisik dan biasanya dapat dilihat ( visual ).

Object biasanya dipakai untuk melakukan tugas tertentu dan mempunyai batasan batasan tertentu. Sedangkan bahasa pemrograman secara singkat dapat disebut sebagai sekumpulan teks yang mempunyai arti tertentu dan disusun dengan aturan tertentu serta untuk menjalankan tugas tertentu. Gabungan dari object dan dan bahasa pemrograman ini sering disebut sebagai bahasa pemrograman berorientasi object

20

atau Object (OOP) Bahasa Bahasa pemrog pemrogram raman an Delphi Object Orient Oriented ed Progra Programmi mming ng (OOP) merupakan merupakan pengembang pengembangan an dari bahasa bahasa Pascal . Teta Tetapi pi buka bukan n bera berart rtii untu untuk k mempelajari mempelajari bahasa bahasa pemrograman pemrograman Delphi harus mempelajari mempelajari Pascal terlebih dahulu, karena Borland Delphi 7 sudah dirancang sedemikian rupa sehingga memudahkan bagi seorang pemula untuk merancang aplikasi berbasis Windows dengan Borland

Delphi7

.

Khusus untuk pemrograman database, Delphi menyediakan object yang sangat kuat, canggih dan lengkap, sehingga memudahkan pemrogram dalam merancang, membuat dan menyelesaikan aplikasi database yang diinginkan. Selain itu Delphi juga dapat menangani data dalam berbagai format database, misalnya format MsAccess, SyBase, Oracle, Interbase, FoxPro, Informix, DB2 dan lain-lain. Format database yang dianggap asli dari Delphi adalah Paradox dan dBase.

Langkah – Langkah instalasi Borland Delphi 7

1) Masukk Masukkan an Setup Setup CD Borland Borland Delphi Delphi 7 ke CD ROM Drive, Drive, lalu CD akan otomatis membuka jendela Delphi 7 Enterprise Suite Setup Launcher. Pilih Delphi 7 untuk memulai instalasi Borland Delphi 7.

2) Preparing Preparing to Install..., Install..., setup akan mengkonfi mengkonfiguras gurasii file-file setup yang ada pada CD maupun informasi aplikasi yang ada pada komputer, apakah sudah pernah diinstal Borland Delphi atau belum.

21

3) Welcome Welcome to Borland Delphi Delphi 7 Enterprise Enterprise Edition, Edition, Borland Borland Delphi Delphi 7 akan terinstal pada komputer, klik Next untuk melanjutkan instalasi.

4)

Serial Serial Number, Number, masukka masukkan n serial serial number number yang didapatk didapatkan an dari CD setup setup

tersebut dengan benar. Klik Next.

5) License Agreement, baca pernyataan yang ada lalu pilih I accept the terms of the license agreement lalu klik Next untuk melanjutkan proses proses instalasi.

6)

Important Important Installation Installation Informatio Information, n, baca konten yang yang ada pada informasi informasi

tersebut lalu klik Next untuk meneruskan instalasi.

22

7) Setup Type, Type, pilih Typical Typical untuk untuk mengin menginstal stal kompon komponen-kom en-komponen ponen aplikasi aplikasi standar, Compact untuk memilih memilih kebutuhan minimal proses proses instalasi, atau Custom untuk memilih komponen-komponen apa saja yang dibutuhkan oleh user. Untuk mempermudah dan mempercepat instalasi, pilih Typical lalu klik Next.

8) Choose VisiBroker, file ini adalah file pendukung aplikasi Borland Delphi Use VisiBroker/Corba Support, lalu klik Next untuk melanjutkan instalasi

9) Microsoft Office Controls, ada 3 versi Microsoft Office. Pilih salah salah satu dari ketiga versi tersebut. Pilih Office XP jika pada komputer komputer telah terinstal Office XP, pilih Office Office 2000 2000 jika jika menggu menggunak nakan an Office Office 2000, 2000, atau atau pilih pilih Office Office 97 jika jika yang yang digunakan adalah Office 97. Pada tahap ini dipilih Office XP, klik Next untuk melanjutkan instalasi.

23

10) Install Install Addition Additional al Componen Components, ts, klik klik pada pada kotak kotak Install Install InterBase InterBase Client Client untuk menginstalasi komponen tambahan pada Borland Delphi 7. klik Next untuk melanjutkan instalasi.

11) Destination Folder, file-file Borland Delphi (Program files, Shared files, BDE and SQL Links, Links, dan Databa Database se Deskto Desktop) p) akan akan terinst terinstala alasi si pada pada folder folder-fol -folder der yang yang sudah ditentukan oleh aplikasi setup atau jika menginginkan disimpan di folder yang lain dapat dapat dicari dicari dengan dengan mengkl mengklik ik tombol tombol Change Change... ... lalu lalu pilih pilih folder folder mana mana akan akan diletakkan file-file Borland Delphi. Klik Next untuk melanjutkan.

Default Folder untuk meletakkan Program Files, Shared Files, BDE and SQL links, dan Database Desktop.

24

12) Save Installation Database, Borland Delphi akan menyimpan file-file uninstall pada komputer apabila ingin me-remove aplikasi Delphi dari komputer tanpa harus menggunakan CD. File-file yang dikopikan ke harddisk sebesar 5MB. Klik pada Save installation database to hard drive (recommended), lalu klik Next.

13) Ready to Install the Program, Delphi 7 siap diinstal pada komputer, untuk kembali ke konfigurasi sebelumnya klik Back, untuk melanjutkan proses instalasi klik tombol Install, atau Cancel untuk membatalkan seluruhnya.

14)

Instal Installin ling g Borlan Borland d Delphi Delphi,, proses proses mengkopi mengkopikan kan file-file file-file instalas instalasii yang yang

dibutuhkan yang sebelumnya telah dikonfigurasi.

25

15) Welcome to the InterBase 6.5 Setup Wizard, InterBase 6.5 akan diinstal pada komputer untuk melengkapi proses instalasi Borland Delphi 7, klik Next untuk meneruskan proses ini.

16) Software Software License License Agreem Agreement ent,,

baca baca detail detail tentan tentang g lisesn lisesnsi si dari InterB InterBase ase

sebelum melanjutkan instalasi, klik Yes jika setuju dan ingin melanjutkan atau No jika tidak setuju dan ingin membatalkan proses instalasi InterBase.

17) Select Destination Directory, pilihan untuk memilih direktori mana yang akan diguna digunakan kan untuk untuk menyim menyimpan pan file-fi file-file le InterBa InterBase se pada pada harddr harddrive ive di komput komputer. er. Default folder terletak di C:\Program Files\Borland\InterBase. Klik pada drive drive lain jika ingin menempatkan pada drive lain. Klik Next untuk melanjutkan.

26

18) 18) Sele Select ct Comp Compon onen ents ts,, pili pilih h komp kompon onen en Inte InterB rBas asee mana mana saja saja yang yang akan akan digunakan oleh user, pilih Typical Typical Installation Installation pada drop-down drop-down list untuk memilih komponen komponen yang umum digunakan oleh user. Besar seluruh file komponen adalah 27,2 MB. Klik Next.

19) Select Start Start Menu Folder, pilih pilih folder yang yang digunakan digunakan untuk menyimp menyimpan an shortcut Inte InterB rBas ase, e, defau default lt Inter InterBa Base se.. Klik Klik Next Next untu untuk k mela melanj njut utka kan n ke konf konfig igur uras asii berikutnya.

20) Ready to Install, pastikan seluruh konfigurasi yang diberikan sudah benar. Klik Install untuk melanjutkan instalasi.

27

21)

Installing Installing..., ..., proses proses intalasi intalasi berjalan. berjalan. Tunggu Tunggu

hingga hingga seluruh seluruh kompo komponen nen

instalasi Borland Delphi terkopi lengkap ke harddrive.

22) Setup Interbase 6.5 Finished, instalasi InterBase 6.5 telah selesai, klik Finish untuk melanjutkan langkah instalasi selanjutnya.

23) VisiBr VisiBroke okerr instal installat lation ion,, klik klik OK untuk untuk melanj melanjutk utkan an instala instalasi si lalu lalu jendel jendelaa VisiBroker for for Cpp Cpp 4.5 4.5 akan akan terb terbuk ukaa dan dan akan akan munc muncul ul kotak kotak dial dialog og,, klik klik Next Next untu untuk k melanjutkan instalasi VisiBroker.

28

24) Software License Agreement, klik Yes untuk menyetujui pernyataan dan melanjutkan instalasi ini.

Software License Agreement 25) Choose Destination Location, pilih folder tujuan yang akan digunakan untuk menyim menyimpan pan file-fi file-file le VisiBr VisiBroke oker, r, defaul defaultt folder folder

di C:\Inp C:\Inpris rise\v e\vbro broker ker,, pilih pilih

Browse untuk mengganti folder. Klik Next untuk melanjutkan instalasi ini.

26) Select Components, pilih komponen yang akan digunakan untuk instalasi VisiBroker, baca deskripsi dari masing-masing komponen tersebut pada kotak Desc Descri ript ptio ion, n, klik klik Chan Change ge untu untuk k mela melaku kuka kan n peru peruba baha han, n, klik klik Next Next untu untuk k melanjutkan tanpa mengubah tanda cek pada komponen tersebut.

29

27) VisiBroker Installation, setup akan melakukan melakukan inisialisasi nilai parameter OSAGENT_PORT yang diberikan, jangkauan jangkauan nilai 5000 hingga 65535. VBROKER_ADM terletak pada folder C:\Inprise\vbroker\adm. Klik tombol Help untuk membaca petunjuk selengkapnya atau klik Next untuk melanjutkan.

28) Setup Options, memberikan pilihan modifikasi yang diinginkan, klik Next

29) Select Select Progra Program m Folder Folder,, pilih pilih folder folder yang yang diguna digunakan kan untuk untuk menjal menjalank ankan an VisiBroker,

default folder adalah VisiBroker, klik Next utntuk melanjutkan ke proses instalasi berikutnya. 30) Start Copying Files, setup telah mengumpulkan mengumpulkan informasi yang cukup cukup dari konfigurasi sebelumnya, klik Next untuk proses selanjutnya.

30

31) Proses Copying Files...

32) Setup Complete, klik Yes, I want to view the README file in my browser untuk membaca file readme di browser, atau langsung mengakhiri setup VisiBroker dengan mengklik Finish.

33)

Instal Instalasi asi Borland Borland Delphi Delphi 7 masih masih berlanjut berlanjut,, hingga hingga muncul muncul Instal Installat lation ion

Wizard Completed, klik Finish

Installation Wizard Completed

31

B. Pemb Pembua uata tan n Progr Program am

Dalam menbuat software yang di inginkan khususnya project ini . mempunyai tiga step penting yang harus di perhatikan Yaitu : 1. Form , adalah adalah suatu suatu tempat tempat atau template template yang di di gunakan gunakan untuk untuk meletakan berbagai accessories atau komponen.

Ini adalah form

2. Object inspec inspector, tor, adalah adalah suatu suatu properties properties yang yang di miliki miliki tiap tiap komponen. komponen.

Ini adalah Object ins ect ector

3. unit, unit unit berisi berisi berbagai berbagai perintah perintah untuk untuk menjalank menjalankan an komponen komponen itu itu atau yang disebut sintax .

32

Ini adalah unit

-Tampilan pada menu utama-



Ini adalah form untuk keamanan acces program

33

Dengan source code dibawah ini

//Tombol Login procedure TfLogin.BitBtn1Click(Sender: TObject); begin if md.adoUser.Locate('Username',edit1.Text,[])then begin if Edit2.Text=md.adoUser.FieldByNam Edit2.Text=md.adoUser.FieldByName('Password').AsString e('Password').AsString then begin if ComboBox1.Text=md.adoUser.FieldByName('Status').AsString ComboBox1.Text=md.adoUser.FieldByName('Status').AsString THEN begin if Combobox1.Text='ADMIN' then begin fmenuutama.Login1.Visible:=false; fmenuutama.Logout1.Visible:=true; fmenuutama.LihatUser1.Visible:=true; fmenuutama.ambahUser1.Visible:=true; fmenuutama.GantiPassword1.Visible:=true; fmenuutama.siswa1.Visible:=true; fmenuutama.guru1.Visible:=true; fmenuutama.kenaikkankelas1.Visible:=true; fmenuutama.inputnilai1.Visible:=true; fmenuutama.laporan1.Visible:=true; fmenuutama.ools1.Visible:=true; fmenuutama.help1.Visible:=true; fmenuutama.Label4.Caption:=edit1.Text; fmenuutama.Label5.Caption:=edit2.Text; fmenuutama.Label6.Caption:=combobox1.Text; flogin.Close; end else if Combobox1.Text='GURU' then begin fmenuutama.Login1.Visible:=false;

34

fmenuutama.Logout1.Visible:=true; fmenuutama.LihatUser1.Visible:=true; fmenuutama.ambahUser1.Visible:=false; fmenuutama.GantiPassword1.Visible:=true; fmenuutama.siswa1.Visible:=true; fmenuutama.guru1.Visible:=true; fmenuutama.kenaikkankelas1.Visible:=true; fmenuutama.inputnilai1.Visible:=true; fmenuutama.laporan1.Visible:=true; fmenuutama.ools1.Visible:=true; fmenuutama.help1.Visible:=true; fmenuutama.Label4.Caption:=edit1.Text; fmenuutama.Label5.Caption:=edit2.Text; fmenuutama.Label6.Caption:=combobox1.Text; flogin.Close; end else if Combobox1.Text='SISWA' then begin fmenuutama.Login1.Visible:=false; fmenuutama.Logout1.Visible:=true; fmenuutama.LihatUser1.Visible:=false; fmenuutama.ambahUser1.Visible:=false; fmenuutama.GantiPassword1.Visible:=false; fmenuutama.siswa1.Visible:=true; fmenuutama.guru1.Visible:=true; fmenuutama.kenaikkankelas1.Visible:=true; fmenuutama.inputnilai1.Visible:=false; fmenuutama.laporan1.Visible:=false; fmenuutama.ools1.Visible:=true; fmenuutama.help1.Visible:=true; fmenuutama.Label4.Caption:=edit1.Text; fmenuutama.Label5.Caption:=edit2.Text; fmenuutama.Label6.Caption:=combobox1.Text; flogin.Close; end; end else begin messagedlg('Status anda salah...',mterror,[mbYes],0); edit1.SetFocus; end; end else begin messagedlg('Password anda salah...',mterror,[mbYes],0); edit1.SetFocus; end; end else begin

35

messagedlg('Username anda belum terdaftar...',mterror,[mbYes],0); edit1.SetFocus; end; end; 

Ini adalah form untuk mengganti password login

Dengan source code dibawah ini //Tombol Simpan procedure TfGantiPassword.BitBtn1Click(Sender: TObject); begin if fmenuutama.Label5.Caption=edit2.Text then begin if edit3.Text=edit4.Text then begin md.adoUser.Edit; md.adoUser['Username']:=edit1.Text; md.adoUser['Password']:=edit3.Text; md.adoUser['Status']:=fmenuutama.Label6.Caption; fmenuutama.Label5.Caption:=edit3.Text; md.adoUser.Refresh; messagedlg('Password telah dirubah',mtInformation,[mbYes],0); formcreate(Sender); edit2.SetFocus; end else messagedlg('konfirmasi password salah...',mterror,[mbYes],0); edit2.SetFocus; end else messagedlg('Password lama salah...',mterror,[mbYes],0); edit2.SetFocus; end; end. 

Ini adalah form untuk menginput nilai siswa

36

Deangan source code dibawah ini // Tombol Mata pelajaran procedure TfInputNilai.BitBtn1Click(Sender: TObject); begin if combobox2.Text='RPL' then begin if combobox3.Text='H1' then begin fInputnilai.adoRPL.Edit; fInputnilai.adoRPL['H1']:=edit5.Text; fInputnilai.adoRPL.Post; fInputnilai.adoRPL.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='H2' then begin fInputnilai.adoRPL.Edit; fInputnilai.adoRPL['H2']:=edit5.Text; fInputnilai.adoRPL.Post; fInputnilai.adoRPL.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='H3' then begin fInputnilai.adoRPL.Edit; fInputnilai.adoRPL['H3']:=edit5.Text;

37

fInputnilai.adoRPL.Post; fInputnilai.adoRPL.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='UL1' then begin fInputnilai.adoRPL.Edit; fInputnilai.adoRPL['UL1']:=edit5.Text; fInputnilai.adoRPL.Post; fInputnilai.adoRPL.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='UL2' then begin fInputnilai.adoRPL.Edit; fInputnilai.adoRPL['UL2']:=edit5.Text; fInputnilai.adoRPL.Post; fInputnilai.adoRPL.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='UL3' then begin fInputnilai.adoRPL.Edit; fInputnilai.adoRPL['UL3']:=edit5.Text; fInputnilai.adoRPL.Post; fInputnilai.adoRPL.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='Semester1' then begin fInputnilai.adoRPL.Edit; fInputnilai.adoRPL['Semester1']:=edit5.Text; fInputnilai.adoRPL.Post; fInputnilai.adoRPL.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='Semester2' then begin fInputnilai.adoRPL.Edit; fInputnilai.adoRPL['Semester2']:=edit5.Text; fInputnilai.adoRPL.Post; fInputnilai.adoRPL.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='Semester3' then begin fInputnilai.adoRPL.Edit; fInputnilai.adoRPL['Semester3']:=edit5.Text;

38

fInputnilai.adoRPL.Post; fInputnilai.adoRPL.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; //////////////////////////////////// end else if combobox2.Text='MATEMATIKA' then begin if combobox3.Text='H1' then begin fInputnilai.adoMAT.Edit; fInputnilai.adoMAT['H1']:=edit5.Text; fInputnilai.adoMAT.Post; fInputnilai.adoMAT.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='H2' then begin fInputnilai.adoMAT.Edit; fInputnilai.adoMAT['H2']:=edit5.Text; fInputnilai.adoMAT.Post; fInputnilai.adoMAT.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='H3' then begin fInputnilai.adoMAT.Edit; fInputnilai.adoMAT['H3']:=edit5.Text; fInputnilai.adoMAT.Post; fInputnilai.adoMAT.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='UL1' then begin fInputnilai.adoMAT.Edit; fInputnilai.adoMAT['UL1']:=edit5.Text; fInputnilai.adoMAT.Post; fInputnilai.adoMAT.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='UL2' then begin fInputnilai.adoMAT.Edit; fInputnilai.adoMAT['UL2']:=edit5.Text; fInputnilai.adoMAT.Post; fInputnilai.adoMAT.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end;

39

if combobox3.Text='UL3' then begin fInputnilai.adoMAT.Edit; fInputnilai.adoMAT['UL3']:=edit5.Text; fInputnilai.adoMAT.Post; fInputnilai.adoMAT.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='Semester1' then begin fInputnilai.adoMAT.Edit; fInputnilai.adoMAT['Semester1']:=edit5.Text; fInputnilai.adoMAT.Post; fInputnilai.adoMAT.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='Semester2' then begin fInputnilai.adoMAT.Edit; fInputnilai.adoMAT['Semester2']:=edit5.Text; fInputnilai.adoMAT.Post; fInputnilai.adoMAT.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='Semester3' then begin fInputnilai.adoMAT.Edit; fInputnilai.adoMAT['Semester3']:=edit5.Text; fInputnilai.adoMAT.Post; fInputnilai.adoMAT.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; ///////////////////////////////////////////// end else if combobox2.Text='B.INDONESIA' then begin if combobox3.Text='H1' then begin fInputnilai.adoBI.Edit; fInputnilai.adoBI['H1']:=edit5.Text; fInputnilai.adoBI.Post; fInputnilai.adoBI.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='H2' then begin fInputnilai.adoBI.Edit; fInputnilai.adoBI['H2']:=edit5.Text;

40

fInputnilai.adoBI.Post; fInputnilai.adoBI.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='H3' then begin fInputnilai.adoBI.Edit; fInputnilai.adoBI['H3']:=edit5.Text; fInputnilai.adoBI.Post; fInputnilai.adoBI.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='UL1' then begin fInputnilai.adoBI.Edit; fInputnilai.adoBI['UL1']:=edit5.Text; fInputnilai.adoBI.Post; fInputnilai.adoBI.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='UL2' then begin fInputnilai.adoBI.Edit; fInputnilai.adoBI['UL2']:=edit5.Text; fInputnilai.adoBI.Post; fInputnilai.adoBI.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='UL3' then begin fInputnilai.adoBI.Edit; fInputnilai.adoBI['UL3']:=edit5.Text; fInputnilai.adoBI.Post; fInputnilai.adoBI.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='Semester1' then begin fInputnilai.adoBI.Edit; fInputnilai.adoBI['Semester1']:=edit5.Text; fInputnilai.adoBI.Post; fInputnilai.adoBI.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='Semester2' then begin fInputnilai.adoBI.Edit; fInputnilai.adoBI['Semester2']:=edit5.Text;

41

fInputnilai.adoBI.Post; fInputnilai.adoBI.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='Semester3' then begin fInputnilai.adoBI.Edit; fInputnilai.adoBI['Semester3']:=edit5.Text; fInputnilai.adoBI.Post; fInputnilai.adoBI.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; end else /////////////////////////////////////////// if combobox2.Text='B.NGGRIS' then begin if combobox3.Text='H1' then begin fInputnilai.adoINGG.Edit; fInputnilai.adoINGG['H1']:=edit5.Text; fInputnilai.adoINGG.Post; fInputnilai.adoINGG.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='H2' then begin fInputnilai.adoINGG.Edit; fInputnilai.adoINGG['H2']:=edit5.Text; fInputnilai.adoINGG.Post; fInputnilai.adoINGG.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='H3' then begin fInputnilai.adoINGG.Edit; fInputnilai.adoINGG['H3']:=edit5.Text; fInputnilai.adoINGG.Post; fInputnilai.adoINGG.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='UL1' then begin fInputnilai.adoINGG.Edit; fInputnilai.adoINGG['UL1']:=edit5.Text; fInputnilai.adoINGG.Post; fInputnilai.adoINGG.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end;

42

if combobox3.Text='UL2' then begin fInputnilai.adoINGG.Edit; fInputnilai.adoINGG['UL2']:=edit5.Text; fInputnilai.adoINGG.Post; fInputnilai.adoINGG.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='UL3' then begin fInputnilai.adoINGG.Edit; fInputnilai.adoINGG['UL3']:=edit5.Text; fInputnilai.adoINGG.Post; fInputnilai.adoINGG.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='Semester1' then begin fInputnilai.adoINGG.Edit; fInputnilai.adoINGG['Semester1']:=edit5.Text; fInputnilai.adoINGG.Post; fInputnilai.adoINGG.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='Semester2' then begin fInputnilai.adoINGG.Edit; fInputnilai.adoINGG['Semester2']:=edit5.Text; fInputnilai.adoINGG.Post; fInputnilai.adoINGG.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; if combobox3.Text='Semester3' then begin fInputnilai.adoINGG.Edit; fInputnilai.adoINGG['Semester3']:=edit5.Text; fInputnilai.adoINGG.Post; fInputnilai.adoINGG.Refresh; messagedlg('Data berhasil diupdate...',mtInformation,[mbYes],0 diupdate...',mtInformation,[mbYes],0); ); end; end; end; 

Ini adalah form laporan daftar guru

43




Ini adalah form laporan untuk nilai siswa



Ini adalah form melihat informasi guru

44

Dengan source code dibawah ini //Tombol Hapus procedure TfLihatGuru.BitBtn1Click(Sender: TObject); begin case messagedlg('Anda yakin ingin menghapus Siswa?',mtConfirmation,mbOKCancel,0) of mrCancel : abort; end; md.adoGuru.Delete; md.adoGuru.Refresh; end;

//Tombol Cari procedure TfLihatGuru.BitBtn3Click(Sender: TObject); begin if (edit2.Text<>'') then begin adoquery1.SQL.clear; adoquery1.SQL.Add('select adoquery1.SQL.Add('select * from f rom tGuru where Nama_Guru like "%'+edit2.Text+'%"'); adoquery1.ExecSQL; adoquery1.Active := True; if adoquery1.RecordCount > 0 then begin messagedlg('Data ditemukkan...',mtInformation,[mb ditemukkan...',mtInformation,[mbYes],0); Yes],0); end else messagedlg('Data tidak ditemukkan...',mtInformation,[mb ditemukkan...',mtInformation,[mbYes],0); Yes],0); end else messagedlg('Isikan nama terlebih dahulu...',mtInformation,[mb dahulu...',mtInformation,[mbYes],0); Yes],0); end;

45

//Tombol Seleksi procedure TfLihatGuru.ComboBox1Change(Sender: TObject); begin md.adoGuru.Filtered:=False; if combobox1.ItemIndex<>2 then begin md.adoGuru.Filter:='Pelajaran_Ampu=''' + combobox1.Text combobox1.Text + ''''; md.adoGuru.Filtered:=True; end else begin if combobox1.Text='SEMUA DATA' then md.adoGuru.Filtered:=False; end; end; //Tombol Home procedure TfLihatGuru.BitBtn6Click(Sender: TObject); begin md.adoGuru.First; end; //Tombol End procedure TfLihatGuru.BitBtn7Click(Sender: TObject); begin md.adoGuru.Last; end; //Tombol Next procedure TfLihatGuru.BitBtn4Click(Sender: TObject); begin md.adoGuru.Next; end; //Tombol Back procedure TfLihatGuru.BitBtn5Click(Sender: TObject); begin md.adoGuru.Prior; end; end.



Ini adalah form lihat nilai siswa

46

Dengan source code dibawah ini //Tombol kembali procedure TfLihatNilai.BitBtn2Click(Sender: TObject); begin close; formcreate(Sender); end;

//Tombol Mata Pelajaran procedure TfLihatNilai.ComboBox1Change(Sender: TObject); begin if combobox1.Text='RPL' then begin dbgrid1.DataSource:=finputnilai.dsRPL; end else if combobox1.Text='B.INDONESIA' then begin dbgrid1.DataSource:=finputnilai.dsBI; end else if combobox1.Text='B.INGGRIS' then begin dbgrid1.DataSource:=finputnilai.dsINGG; end else if combobox1.Text='MATEMATIKA' then begin dbgrid1.DataSource:=finputnilai.dsMAT; end; end; end.

47



Ini adalah form untuk melihat informasi siswa

Dengan source code dibawah ini //Tombol Hapus procedure TfLihatGuru.BitBtn1Click(Sender: TObject); begin case messagedlg('Anda yakin ingin menghapus Siswa?',mtConfirmation,mbOKCancel,0) of mrCancel : abort; end; md.adoGuru.Delete; md.adoGuru.Refresh; end;

//Tombol Cari procedure TfLihatGuru.BitBtn3Click(Sender: TObject); begin if (edit2.Text<>'') then begin adoquery1.SQL.clear; adoquery1.SQL.Add('select adoquery1.SQL.Add('select * from f rom tGuru where Nama_Guru like "%'+edit2.Text+'%"'); adoquery1.ExecSQL; adoquery1.Active := True; if adoquery1.RecordCount > 0 then begin messagedlg('Data ditemukkan...',mtInformation,[mb ditemukkan...',mtInformation,[mbYes],0); Yes],0); end else messagedlg('Data tidak ditemukkan...',mtInformation,[mb ditemukkan...',mtInformation,[mbYes],0); Yes],0); end else

48

messagedlg('Isikan nama terlebih dahulu...',mtInformation,[mb dahulu...',mtInformation,[mbYes],0); Yes],0); end; //Tombol Seleksi procedure TfLihatGuru.ComboBox1Change(Sender: TObject); begin md.adoGuru.Filtered:=False; if combobox1.ItemIndex<>2 then begin md.adoGuru.Filter:='Pelajaran_Ampu=''' + combobox1.Text combobox1.Text + ''''; md.adoGuru.Filtered:=True; end else begin if combobox1.Text='SEMUA DATA' then md.adoGuru.Filtered:=False; end; end; //Tombol Home procedure TfLihatGuru.BitBtn6Click(Sender: TObject); begin md.adoGuru.First; end; //Tombol End procedure TfLihatGuru.BitBtn7Click(Sender: TObject); begin md.adoGuru.Last; end; //Tombol Next procedure TfLihatGuru.BitBtn4Click(Sender: TObject); begin md.adoGuru.Next; end; //Tombol Back procedure TfLihatGuru.BitBtn5Click(Sender: TObject); begin md.adoGuru.Prior; end; end.



Ini adalah form untuk melihat pegguna program

49

Dengan source code dibawah ini //Tombol Hapus procedure TfLihatUser.BitBtn1Click(Sender: TObject); begin case messagedlg('Anda yakin ingin menghapus user?',mtConfirmation,mbOKCancel,0) of mrCancel : abort; end; md.adoUser.Delete; md.adoUser.Refresh; end; //Tombol Kembali procedure TfLihatUser.BitBtn2Click(Sender: TObject); begin close; end;

50



Ini adalah form untuk membuat laporan

Dengan source code dibawah ini //Tombol Preview procedure TfMenuLapGuru.BitBtn1Click(Sender: TObject); begin flapguru.QuickRep1.Preview; end;

//Tombol Print procedure TfMenuLapGuru.BitBtn2Click(Sender: TObject); begin flapguru.QuickRep1.Print; end; //Tombol Printer Setup procedure TfMenuLapGuru.BitBtn3Click(Sender: TObject); begin flapguru.QuickRep1.PrinterSetup; end; //Tombol Kembali procedure TfMenuLapGuru.BitBtn4Click(Sender: TObject); begin close; end;

51



Ini menu utama tampilan


procedure TfMenuUtama.FormCreate(Sender: TObject); begin x:=0; label3.Caption:=''; AnimateWindow(Handle,1000,AW_Center); Login1.Visible:=True; Logout1.Visible:=False; LihatUser1.Visible:=False; ambahUser1.Visible:=False; GantiPassword1.Visible:=False; siswa1.Visible:=False; guru1.Visible:=False; kenaikkankelas1.Visible:=False; inputnilai1.Visible:=False; laporan1.Visible:=False; ools1.Visible:=False; help1.Visible:=False; label4.Visible:=false; label5.Visible:=false; label6.Visible:=false;

52



ini adalah form untuk kenaikkan kelas

Dengan source code dibawah ini //Tombol Simpan procedure TfNaikKelas.BitBtn1Click(Sender: TObject); begin if edit2.Text<>combobox1.Text then begin begin //siswa md.adoSiswa.Edit; md.adoSiswa['Kelas']:=combobox1.Text; md.adoSiswa.Post; md.adoSiswa.Refresh; //nilai fInputNilai.adoRPL.Edit; fInputNilai.adoRPL['Kelas']:=combobox1.Text; fInputNilai.adoRPL.Post; fInputNilai.adoRPL.Refresh; messagedlg(edit1.Text+' '+'naik kelas'+' '+combobox1.Text,mtInformation, '+combobox1.Text,mtInformation, [mbYes],0); end; end else messagedlg('Maaf'+' '+edit1.Text+' '+'sudah kelas'+' '+combobox1.text,mtE '+combobox1.text,mtError, rror, [mbYes],0); end;

//Kembali procedure TfNaikKelas.BitBtn3Click(Sender: TObject); begin close; formcreate(Sender); end;

53



ini adalah form biodata program


procedure TFrm_About.Timer1Timer(Sender: TObject); begin if label1.Left=-label1.Width then label1.Left:=panel2.Width; label1.Left:=label1.Left-1; end;



ini adalah form penutup program


procedure TFrm_About.Timer1Timer(Sender: TObject);

54

begin if label1.Left=-label1.Width then label1.Left:=panel2.Width; label1.Left:=label1.Left-1; end; procedure TFrm_About.FormCreate(Sender: TObject); begin refresh; end; 

Ini adalah form untuk menambah guru


//Tombol Simpan procedure TfTambahGuru.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then begin if md.adoGuru['NIP']<>edit1.Text then begin if (edit1.Text<>'') then begin begin edit2.Enabled:=true; edit2.SetFocus; edit3.Enabled:=true; edit4.Enabled:=true; combobox1.Enabled:=true;

55

maskedit1.Enabled:=true; edit2.Color:=clWhite; combobox1.Color:=clwhite; edit3.Color:=clWhite; edit4.Color:=clWhite; maskedit1.Color:=clwhite; end; end else messagedlg('Isi NIP terlebih dahulu...',mterror,[mbYes],0); end else messagedlg('NIP Sudah ada..',mterror,[mbYes],0); end; end; //Tombol Bersihkan procedure TfTambahGuru.BitBtn2Click(Sender: TObject); begin formcreate(Sender); edit1.SetFocus; end; //Tombol Kembali procedure TfTambahGuru.BitBtn3Click(Sender: TObject); begin close; formcreate(Sender); end; 

Ini adalah form untuk tambah siswa


56

//Tombol Bersihkan procedure TfTambahSiswa.BitBtn2Click(Sender: TObject); begin formcreate(Sender); edit1.SetFocus; end; //Tombol Kembali procedure TfTambahSiswa.BitBtn3Click(Sender: TObject); begin close; formcreate(Sender); end; //Tombol Simpan procedure TfTambahSiswa.BitBtn1Click(Sender: TObject); begin if (edit1.Text<>'') and (edit2.Text<>'') and (combobox1.Text<>'') and (combobox2.Text<>'') and (edit3.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and (edit4.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and (edit7.Text<>'') and (edit8.Text<>'') ( edit8.Text<>'') and (maskedit1.Text<>'') and (edit9.Text<>'') then begin md.adoSiswa.Append; md.adoSiswa['NIS']:=edit1.Text; md.adoSiswa['Nama_Siswa']:=edit2.Text; md.adoSiswa['Kelas']:=combobox1.Text; md.adoSiswa['Jurusan']:=combobox2.Text; md.adoSiswa['Tanggal_Lahir']:=datetimepicker1.Date; md.adoSiswa['Tempat_Lahir']:=edit3.Text; md.adoSiswa['Agama']:=combobox3.Text; md.adoSiswa['Jenis_Kelamin']:=ComboBox4.Text; md.adoSiswa['Alamat']:=edit4.Text; md.adoSiswa['Nama_Ayah']:=edit5.Text; md.adoSiswa['Nama_Ibu']:=edit6.Text; md.adoSiswa['Pekerjaan_Ayah']:=edit7.Text; md.adoSiswa['Pekerjaan_Ibu']:=edit8.Text; md.adoSiswa['No_Telp']:=maskedit1.Text; md.adoSiswa['Asal_Sekolah']:=edit9.Text; md.adoSiswa.Post; md.adoSiswa.Refresh; formcreate(Sender); edit1.SetFocus; messagedlg('Siswa telah dsimpan...',mtInformation,[mb dsimpan...',mtInformation,[mbYes],0); Yes],0); end; end else messagedlg('Data belum lengkap...',mterror,[mbYes],0); edit1.SetFocus

57

end;



Ini adalah form untuk tambah user


//Tombol Tambah procedure TfTambahUser.BitBtn1Click(Sender: TObject); begin bitbtn2.Enabled:=True; bitbtn1.Enabled:=False; edit1.Color:=clWhite; edit1.Enabled:=True; edit2.Color:=clWhite; edit1.Enabled:=True; combobox1.Color:=clWhite; combobox1.Enabled:=True; edit1.SetFocus; end; //Tombol Simpan procedure TfTambahUser.BitBtn2Click(Sender: TObject); begin if md.adoUser.Locate('Username',edit1.Text,[])then begin messagedlg('Maaf username sudah digunakan..',mterror,[mbYes],0); edit1.SetFocus end else begin md.adoUser.Append; md.adoUser['Username']:=edit1.Text; md.adoUser['Password']:=edit2.Text;

58

md.adoUser['Status']:=ComboBox1.Text; md.adoUser.Refresh; formcreate(Sender); messagedlg('User telah tersimpan...',mtInformation,[mbYes],0); bitbtn1.SetFocus; end; end; //Tombol Kembali procedure TfTambahSiswa.BitBtn3Click(Sender: TObject); begin close; formcreate(Sender); end;

D. Hambatan atau Masalah

Dalam pembuatan program system penilaian ini banyak kendala atau masalah yang paling banyak pada faktor kesalahan sintax. Di bawah ini beberapa masalah : 1. Saat running program sintax pada form login banyak masalah karena tata letak “if” dan “then”. 2. penginputan nilai pada form “input nilai” gagal. Disebabkan banyak terjadinya kekosongan data / missing dan duplikasi data. 3. data report belum mengedit secara sendiri bila record di ubah. 4. kemampuan login yang kurang sempurna karena case sensitive. 5. nilai yang kami input hanya 4 mata pelajaran .untuk menabahkan mata pelajaran harus mengedit program. 6. tiap running proram di computer lain, database tidak di deteksi karena belum membuat autobuild. 7. Keti Ketida daks ksam amaa aan n antar antaraa teor teorii yang yang diaj diajar arka kan n di seko sekola laha han n deng dengan an ditempat Prakatik Kerja Industri atau Dunia Usaha.

59

8. Adanya Praktik atau Teori yang belum diberikan pada saat pelajaran pelajaran disekolah. 9. Penggunaan sarana-sarana yang belum belum dikenal

E. Pemecahan Masalah

Dalam penanganan masalah yang penulis hadapi tidak lain yaitu memina petunjuk kepada istruktur yang menganinya, bagaimana supaya masalah yang ada supaya supaya diseles diselesaik aikan an dengan dengan benar. benar. Selain Selain itu penuli penuliss juga juga harus harus mempun mempunyai yai kepercayaan diri atas solusi yang telah penulis dapatkan dati instruktur kerja. Semua tindakan tidak akan tercapai tanpa adanya keinginan, niat dan doâ

60

BAB IV PENUTUP

Dengan mengucap syukur alhamdulillah kehadirat Allah SWT, akhirnya satu periode magang di SAT telah saya jalani dengan baik dan lancar. Banyak bekal bekal dan pengal pengalaman aman yang yang insyaA insyaAlla llah h dapat dapat menjad menjadii modal modal saya saya ke depan, depan, dalam dalam berkar berkarir ir dan yang yang terpent terpenting ing dalam dalam pengab pengabdia dian n kepada kepada masyar masyaraka akat. t. Fasilitas di SAT telah banyak membantu saya dalam berimprovisasi dan dalam stud studii saya saya seba sebaga gaii maha mahasi sisw swa. a. Namu Namun, n, saya saya meny menyad adari ari tida tidak k sedi sediki kitt pula pula kesalahan dan kelalaian yang saya lakukan. Karena itu semoga dengan laporan ini, apa yang menjadi masalah dan kendala dalam kinerja saya selama ini dapat diselesaikan dan dijadikan acuan dalam organisasi SAT selanjutnya.

A. Ke Kesi simp mpul ulan an

Dari semua penjelasan di atas dapat disimpulkan bahwa : Pembuatan program penilaian smk ini digunakan untuk mempermudah guru Dalam memberikan nilai dan melihat informasi tentang siswa dan informasi tentang guru di sekolah. B. Saran a. Memperjelas dan mempertegas SOP kinerja baik secar teknis maupun non

teknis bagi SAT 2011. b. Perbaikan dan pengadaan perlengkapan SAT yang dibutuhkan. c. Memberi kesempatan yang luas untuk SAT dalam melaksanakan kegiatan

bag bagii maha mahasi sisw swaa lain lain,, term termas asuk uk di dalam dalamny nyaa : pela pelati tiha han, n, work worksh shop op,, mengembangkan konsep IT -preneurship dan sebagainya. d. Pengad Pengadaan aan rapat rapat secara secara berkal berkalaa sehing sehingga ga kinerj kinerjaa magang maganger er SAT 2011 2011

mudah dalam hal pemantauan optimalisasi kerja dan program kerja yang telah direncanakan sebelumnya dapat berjalan baik. e. Pendelegasian tugas sehingga pengkaderan berjalan baik. f.

Pengadaan Pengadaan diskusi bersama sehingga sehingga transfer transfer ilmu dapat terlaksana terlaksana antar sesama teman magang.

61

DAFTAR PUSTAKA •

http://www.scribd.com/doc/5036 http://www.scr ibd.com/doc/50363563/18/Instalasi3563/18/Instalasi-Borland-Delphi-7 Borland-Delphi-7

•

Buku Pemrograman Database dengan Delphi 7 Menggunakan Access ADO

62

SISTEM INFORMASI PENILAIAN SMK DENGAN BORLAND DELPHI 7

Recommend Documents