.jpg)
DATABASE DALAM M vfr9.0
Jika kita merancang database dan meng implementasika nya pada perangkat lunak database, operasi dasar database dengan menggunakan m vfr9.0 tahapan ini dengan menggunakan satu tabel saja.
Penginputan data dengan satu tabel
Langkahnya adalah sebagai berikut :
1. Buka project baru pada m vfr9.0.
2. Klik folder docoment tempat penyimpanan dan klik forms.
3. Klik New...
4. Setelah muncul jendela new form, kemudian klik folder form.
5. Atur properti tabel tersebut, sebagai contoh di bawah ini :
OBJEK PROPERTI NILAI
Form Caption Input Siswa
Label1 Caption Siswa
Label1 Autosize T (true)
Label1 FontBolt T (true)
Label1 FontSize 16
Shape1 Name Shape1
Label2 Caption NIS
Label2 AutoSize T (true)
Label2 FontBold T (true)
Label3 Caption Nama
Label3 AutoSize T (true)
Label3 FontBold T (true)
Label4 Caption Jenis Kelamin
Label4 AutoSize T (true)
Label4 FontBold T (true)
Label5 Caption Agama
Label5 AutoSize T (true)
Label5 FontBold T (true)
Label6 Caption Alamat
Label6 AutoSize T (true)
Label6 FontBold T (true)
Label7 Caption Telepon
Label7 AutoSize T (true)
Label7 FontBold T (true)
Text1 Name TxtNis
Text1 MaxLeght 8
Text2 Format !
OptGrp1/ Caption Laki
Option1 Name OptLaki
OptGrp1/ Caption Perempuan
Option2 Name OptPer
Combo1 Name CmdAgama
Text3 Name TxtAlamat
Text3 Format !
Text4 Name TxtTelepon
Text4 Format !
Cmd1 Caption Batal
Cmd1 Name CmdBatal
Cmd2 Caption Simpan
Cmd2 Name CmdSimpan
Cmd3 Caption Selesai
Cmd3 Name Cmdselesai
6. Buat Method atau Procedure Batal, Simpan, Selesai , dalam keadaan project terbuka, pilih menu form, kemudian New Method, Klik add. Dan ketikan procedure tersebut.
7. Isi Method Batal dengan mengklik ganda pada objek tersebut, dan isikan perintahnya sebagai berikut :
WITH Thisform
.TxtNis.Value=” “
.TxtNama.Value=” “
.CmbAgama.Value=” “
.TxtAlamat.Value=” “
.TxtTelepon.Value=” “
.aktivf(.F.)
.TxtNis.setFocos
ENDWITH
Maksudanya dalah untuk mengosongkan semua objek text box dan combo box, serta menjalankan metode aktif dengan mengirimkan farameter .F. dan kursor di fokos ke objek text box TxtNis.
8. Simpan dengan menekan Ctrl+W.
9. Buat Method Aktif dan isikan perintanya sebagai berikut :
PARAMETERS Keadaan
WITH Thisform
.TxtNis.Enabled=.not. Keadaan
.TxtNama.Enabled=Keadaan
.Optiongroup1.OptLaki.Enableb=Keadaan
.Optiongroup1.OptPer.Enabled=Keadaan
.CmbAgama.Enabled=Keadaan
.TxtAlamat.Enabled=Keadaan
.TxtTelepon.Enabled=Keadaan
.CmdSimpan.Enabled=Keadaan
.CmdBatal.Enabled=Keadaan
.CmdSelesai.Enabled=Keadaan
ENDWITH
Arti perintah diatas adalah untuk mengaktifkan objek menggunakan properties Enabled tergantung pada parameters yang dikirim, apakah False (tidak aktif) atau True (aktif).
10. Simpan dengan menekan Ctrl+W.
11. Isi Method Simpan dengan mengklik ganda pada objek tersebut dan isikan perintahnya sebagai berikut :
SELECT Siswa
SET ORDER TO tag IdxSiswa
APPEND BLANK
WITH Thisform
Replace Nis WITH .TxtNis.Value
Replace Nama WITH .TxtNama.Value
IF .Optiongroup1.OptLaki.Value=1 Then
Replace JK WITH “Laki-Laki”
ELSE
Replace JK WITH “Perempuan”
ENDIF
Replace Agama WITH .CmbAgama.Value
Replace Alamat WITH.TxtAlamat.Value
Replace Telepon WITH.TxtTelepon.Value
.Batal
.Aktif(.F.)
ENDWITH
Masudnya adalah untuk menuju ke work area siswa serta mengaktifkan file index nya dengan nama IdxSiswa dan membuat record kosong baru yang di persiapkan untuk di isi record-record dengan perintah Replace serta mengeksekusi metode BATAL dan AKTIF.
12. Simpan dengan menekan Ctrl+W.
13. Isi Method Selesai dengan perintahnya :
Thisform.Release
14. Simpan dengan menekan Ctrl+W.
15. Ketik pada Event Active Form1, Dengan mengklik ganda di form yang tidak ada objeknya dan memilih Procedure : Activate.
Isikan perintahnya sebagai berikut :
SELECT Siswa
SET ORDER TO tag Idxsiswa
WITH Thisform
.Aktif(.F.)
ENDWITH
Maksudnya adalah untuk menuju ke work area siswa dan mengaktifkan file index nya (IdxSiswa) serta melaksanakan metode aktif dengan parameters yang dikirim False.
16. Simpan dengan menekan Ctrl+w.
17. Ketik di Event Valid TxtNis, dengan mengklik ganda pada objek tersebut dan memilih Procedure : Valid. Dan perintahnya adalah sebagai berikut :
WITH Thisform
SELECT Siswa
SET ORDER TO tag IdxSiswa
IF !EMPTY(.TxtNis.Value)
IF SEEK(.TxtNis.Value)
MESSAGEBOX(“Siswa Sudah Ada”,40,”Informasi”)
RETURN 0
.TxtNis.Value=” “
ELSE
.aktif(.T.)
.CmdSimpan.Enabled=.F.
ENDIF
ELSE
RETURN 0
.TxtNis.Value=” “
ENDIF
ENDWITH
Maksud perintah diatas adalah untuk menuju ke work area siswa dan mengaktifkan file index nya dengan nama idxSiswa. Jika objek TxtNis tidak kosong, cari Nis. Jika di temukan , tampilan pesan Siswa Sudah Ada. Kembali ke objek TxtNis dan mengosongkan data yang di ketik. Jika tidak ada, akan melaksanakan metode aktif dengan mengirim parameters TRUE dan tombol perintah SIMPAN tidak di aktifkan. Maka diminta memasukan data atau record , tapi jika pada waktu diminta menginput Nis tidak di ketik, akan kembali lagi ke objek TxtNis.
18. Simpan dengan menekan Ctrl+W.
19. Ketik pada Event Click CmdSimpan dengan mengklik ganda pada objek tersebut dan isikan perintahnya sebagai berikut :
Thisform.Simpan
Thisform.Batal
Maksudnya adalah untuk melaksanakan metode simpan dan metode batal.
20. Simpan dengan menekan Ctrl+W>
21. Ketik pada Event Click CmdBatal, dengan mengklik ganda pada objek tersebut dan isikan perintahnya :
Thisform.Batal
Arti perintahnya adalah untuk melaksanakan metode batal.
22. Simpan dengan menekan Ctrl+W.
23. Ketik Pada Event Click CmdSelesai, dengan mengklik ganda pada area tersebut dan isikan perintahnya sebagai berikut :
Thisform.Selesai
24. Simpan dengan menekan Ctrl+W.
25. Ketik pada Event LostFocos TxtTelepon, dengan mengklik ganda pada area tersebut dan pilih Procedure : LostFocos dan ketik peritahnya sebagai berikut :
Thisform.CmdSimpan.Enabled=.T.
Maksudnya adalah untuk mengaktifkan CommandButton CmdSimpan.
26. Simpan dengan menekan Ctrl+w.
27. Menghubungka form dengan lingkungan data (data environment), Untuk menghubungkan file tabel dengan form, caranya yaitu dengan menyebutkan file-file tabel yang digunakan pada Load Event Form yang akan memakainya. Cara menghubungkan Form dengan data untuk tabel sebagai berikut :
a. Klik kanan pada area form yang tidak ada objeknya.
b. Pilih Data Environment.
c. Pilih dan ketik tabel siswa kemudian Add.
d. Klik tabel siswa pada kotak data Environment, set atau atur properti Exclusive menjadi .T. (true).
e. Klik Close Data Environment.
28. Simpan form dengan Nama Form Input Siswa.
29. Simpan Program dengan nama Prog Siswa.
30. Klik Run Untuk menjalankan program tersebut.
