Konsep Master Detail Foxpro (Sederhana)

bagi para agan - agan yang ingin belajar lebih lanjut, kali ini saya coba buat dari apa yang telah saya dapatkan dari para Master foxpro yaitu konsep master detail dalam program perpustakaan. konsep ini bisa agan-agan kembankan untuk program penjualan.

untuk download file, silahkan klik link berikut :
-------------------------------------------------------------------------------------------------------------------------
http://www.ziddu.com/download/22442410/SYNTAXTOMBOL.pdf.html
-------------------------------------------------------------------------------------------------------------------------

selamat mencoba, semoga berhasil.

Menu Pada Visual Foxpro 9.0

LANGKAH-LANGKAH DALAM PEMBUATAN MENU UTAMA

MS. VISUAL FOXPRO 9.0

=======================================================================

Oke agan-agan sekalian, kali ini akan coba saya ajak agan sekalian para beginner untuk membuat menu bar pada Ms. Visual Foxpro 9.0, Hehehehe sama seperti saya beginner banget…..

Okeh oklek ocre tanpa banyak basa basi, kita langsung saja pada pokok pembahasanya ya.

1.       Klik tabulasi Other >> Menus >> New dan New Menus. Lihat gambar berikut

Klik tombol New hingga tampil window baru seperti dibawah ini :

2.   Selanjutnya pada bagian Prompt kita ketikan Menu sesuai dengan kebutuhan, disini coba kita pakai Master Data dan pada Tab Result kita pilih SubMenu, selanjutnya klik tombol Create.

Lihat gambar berikut :

Jika tombol Create kita klik maka akan muncul kota dialog seperti berikut, hanya saja sedikit perbedaan pada Menu Level yang berubah menjadi MasterData. Artinya karena kita telah berhasil satu menubar dengan nama Master Data, dan sekarang tugas kita adalah membuat submenu dari menu Master Data tersebut.

3.   Selanjutnya pada Kolom Prompt, kita ketikan Nama Submenu yang kita butuhkan. Kita coba buat dengan nama Input Data Barang, pada kolom Result kita pilih Command dan ketikan perintah berikut : do form nama form.

Contoh do form fbarang

Selanjutnya pada kolom option, kita klik tombol dan kita buat Key label yang fungsinya sebagai pembuatan tombol Alternatif untuk menjalan sebuah form sesuai dengan tombol keyboard yang sudah kita tetapkan sebagai key label.

Untuk lebih jelasnya lihat gambar dibawah ini gan…

Selanjutnya klik tombol options sehingga muncul kota dialog berikut

Klik pada tulisan (Press the Key). Sebagai contoh ALT+B

Ingat ya gan, tulisan (Press the key) jangan coba dihaspus karena tidak bisa dihapus hehehe

Tapi cuku kita tekan tombol pada keyboard yang kita inginkan saja. Bisa F1-F12 atau ALT+(Abjad) atau juga bisa menggunakan CTRL+(Abjad).

4.       Untuk selanjutnya coba ikuti langkah yan sama dengan struktur menu dibawah ini

Oya gan, untuk setiap key label silahkan dibuat menyesuaikan dengan huruf awal dari nama form masing-masing.

5.       Jika sudah selesai, selanjutnya pada menu level yang berisi MasterData, kita pilih Menu Bar.

Lihat gambar berikut :

6.       Tujuanya adalah kita akan membuat menubar yang selanjutnya, sebagai contoh lihat gambar berikut :
 

7.       Pada kolom Result kita tetap menggunakan Submenu karena didalamnya kita akan membuat dua menu lagi yaitu Penjualan dan Pembelian barang.

Oke selanjutnya coba agan klik tombol Create dan buat submenu seperti dibawah ini gan :

8.       Selanjutnya ikuti langkah No 5, untuk membuat satu menubar lagi yaitu Exit, karena tangn saya sudah mulai capek, jadi kita bikin dikit saja ya gan contohnya. Yang lainya bisa agan kembangkan sendiri dan saya yakin agan-agan jauh lebih pandai daripada saya wkwkwkwkwk

Untuk menubar Exit coba lihat gambar berikut :

Agak berbeda karena Result kita pilih procedur. Dan langsung saja ya gan kita klik tombol Create dan ketikan syntax berikut ya..

Close All

Quit

9.       Selanjutnya kita mulai deh setting Menubar agar mudah diterapkan dalam Form utama kita. Caranya adalah :

a.       Klik Menu View pada Menu bar Visual Foxpro kita, klik General Options dan check list pada opsi Top-Level Form

b.      Lihat gambar berikut :

10.   Selanjutnya klik saja tombol OK

11.   Langkah selanjutnya adalah me-Generate menu, caranya adalah klik Menu- Generate

12.   Jika muncul kotak dialog seperti dibawah, klik saja Yes

13.   Selanjutnya tentukan letak penyimpanan (simpan dalam satu folder dengan project)

14.   Simpan dengan nama Menu, setelah kita save maka akan muncul kota dialog seperti dibawah

15.   Kita klik saja tombol Generate dan tunggu hingga proses Generate selesai dan bila telah selesai kita close saja Menu Designer yang ada.

16.   Oke gan, desain menubar sederhana sudah kita buat, yang selanjutnya adalah pembuatan kendali program kita sebelum kita build menjadi file exe.

17.   Langkahnya adalah………

Haduhhh capek, bentar tak minum dan rehat bentar ya…..hehehe

18.   Oke kita mulai lagi ya gan

19.   Kita klik tab Code >> Programs >> New sehingga muncul window code program dan tinggal kita ketik syntax kendali programnya gan seperti berikut :

Penjelasan :

Maaf ya gan, ini masih sangat sederhana jadi kendali programnya pun masih sederhana. Untuk yang lain lain bisa dikembangkan sendiri. Dan berikut adalah penjelasan dari tiap baris syntax yang kita buat, tapi maaf kalau ada yang keliru hehehehe

Set date Italian : hal ini dimaksudkan untuk mengesett seluruh tanggal menjadi format Italian (dd/mm/yy)

Set Century On : digunakan untuk mengeset tahun menjadi 4 digit angka

set status Off  : digunakan untuk menon-aktifkan  status dari pemrograman

set talk off : digunakan untuk menon-aktifkan talk atau komentar pada window yang muncul saat program dijalankan

do form splash.scx itu digunakan untuk menjalankan form yang pertama kali akan muncul ketika program ini dijalankan. Dan semua bisa disesuaikan dengan kebutuhan.

Read events : digunakan untuk membuat aplikasi nurut sama kita gan, maksudnya program menunggu perintah dari user atau pengguna….

20.   Jika langkah pengetikan kendali program sudah dibuat, maka langkah selanjutnya adalah kita simpan program tersebut dengan nama Program.

21.   Selanjutnya kita klik kanan program yang sudah kita buat dan pilih set main

22.   Langkah selanjutnya adalah kita buat file exe-nya dengan cara klik program yang sudah kita buat dan sudah kita set main, klik tombol Build sehingga muncul kotak dialog berikut :

23.   Kita pilih opsi Win32 executable / COM server (exe)

24.   Check list pada Recompile All Files, Display Error dan Regenerate Component IDs

Keterangan :

a.       Recompile All Files

Recompile All Files fungsinya adalah untuk mengcompile kembali semua file

b.      Display error

Digunakan untuk melihat terjadinya kesalahan dalam program yang telah dibuat secara keseluruhan

c.       Run after build

Digunakan untuk menjalankan file.exe setelah dicompile

Selanjutnya terserah anda hehehehehe

Form Login Dengan Foxpro

Screen shoot berikut merupakan tampilan sederhana dari form login. Program yang digunakan adalah microsoft visual foxpro 9.0. Kreasi ini merupakan permintaan dari kawan-kawan sesama newbie yang mana masih dalam tahapan pemula banget. Langkah awal dalam pembuatan form login ini adalah : 

1. Buatlah table dengan nama user 

2. Tambahkan 2 field saja (userId dan pswd), selanjutnya isi record dengan Adm=userId dan 123=pswd 

3. Siapkan form baru dengan ukuran disesuaikan 

4. Tambahkan object text dan button 

5. Atur properties form 

6. Isi form dengan syntax berikut 

IF EMPTY(thisform.text1.Value)

MESSAGEBOX("Maaf, Silahkan Isi Data Anda...!",0,"Login")

thisform.text1.SetFocus ()

retu

ENDIF

IF EMPTY(thisform.text2.Value)

MESSAGEBOX("Maaf, Silahkan Isi Data Anda...!",0,"Login")

thisform.text2.SetFocus ()

retu

ENDIF

locate for userid=trim( thisform.text1.value)

if ! found()

messagebox("Maaf User Id Anda Tidak Terdaftar...!",0,"Perhatian...")

thisform.text1.Value=""

thisform.text1.setfocus()

retu

else

locate for pswd=trim(thisform.text2.value)

if ! found()

messagebox("Maaf Password Tidak Dikenal...!",0,"Perhatian...")

thisform.text2.Value=""

thisform.text2.setfocus()

retu

else

messagebox("Selamat, Anda berhak mengakses system ini..",0,"Login")

DO FORM mainform.scx

thisform.release()

endif

endif

……………………………………………………………………………………………………………………………………………………………………………………

thisform.release()

quit

retu

1 

Oops lupa….!, penjelasan object mana yang harus di isi syntax diatas coba cari sendiri ya…..  ……Selamat mencoba…… 

Selanjutnya adalah tips & trik dalam desain mainform / form utama

Biasalah karya newbie memang tidak sehebat karya para master dan maestro. Tapi lumayan lah kalau ini hendak dijadikan tambahan pengetahuan untuk sesama newbie, apalagi bagi para mahasiswa yang maunya serba copast…….hohohoho

Desain formnya sangat sederhana dan bahkan bisa dikatakan sangat jelek, yah ada yang bilang sejelek orangnya….. hahai

Oke gan, kita akan mulai dalam desain interface mainform diatas..

1.       Siapkan form

2.       Sertakan object sesuai dengan contoh atau sesuai keinginan agan agan semua

3.       Desain form seperti diatas atau terserah agan sekalian

4.       Langkah-langkah selanjutnya

Pembuatan text berubah warna “INDAHNYA BERBAGI BY [SLAMET SUPRIADI]

• Buatlah label
• Tuliskan teks sesuai kebutuhan pada caption
• Ubah sesuaikan font sesuai keinginan
• Tambahkan timer dengan interval = 300 dan ketikan syntax berikut

thisform.label1.ForeColor=RGB(RAND()*255,;

RAND()*255,RAND()*255)

• Dicari sendiri ya gan dimana letak pengetikanya.
• Test form dan lihat hasilnya  

Selanjutnya membuat tombol show/hide 

Proses ini paling mudah gan, asalkan agan sekalian tau fungsi logika dan telaten saja karena tombol ini hanya difunsikan untuk menampilkan teks info dari penulis semata, dan mungkin ini bisa ditambahkan di aplikasi yang sedang agan coba bikin.

Langkah-langkahnya :

1.      Buatlah text didalam container

2.     Atur sesuaikan text sesuai keinginan anda

3.    Tambahkan image pada form dan masukan gambar (disini saya gunakan gambar show.png

4.      Selanjutnya double click image tersebut dan ketikan syntax berikut

IF thisform.image6.Picture ="e:\password\show.png"

thisform.ct1.Visible = .T.

thisform.image6.Picture ="e:\password\hide.png"

else

IF thisform.image6.Picture ="e:\password\hide.png"

thisform.ct1.Visible = .f.

thisform.image6.Picture ="e:\password\show.png"

ENDIF

Endif

Selamat mencoba ya gan… kalau bingung coba tanyakan kepada para ahlinya hehe

Asal jangan tanyakan kepada para maestro karena pasti kena semprot dulu.. (ada yang bilang, “kamu kuliah itu belajar apa Cuma main poker?”)

                              Pasti panas kan gan telinga kalau dibilang begitu hehehehehe

• Kita sekarang beranjak dalam pembuatan Tanggal gan….
• Oke simak langkah berikut

1.       Siapkan label gan

2.       Atur sesuaikan label dan font

3.       Ketikan syntax berikut di form ya..

bln=MONTH(DATE())

hr=DOW(DATE())

tgl=DATE()

DO case

CASE hr=1

hari=" Minggu"

CASE hr=2

hari=" Senin"

CASE hr=3

hari=" Selasa"

CASE hr=4

hari=" Rabu"

CASE hr=5

hari=" Kamis"

CASE hr=6

hari=" Jumat"

CASE hr=7

hari=" Sabtu"

ENDCASE

DO case

CASE bln=1

bulan=" januari"

CASE bln=2

bulan=" Februari"

CASE bln=3

bulan=" Maret"

CASE bln=4

bulan=" April"

CASE bln=5

bulan=" Mei"

CASE bln=6

bulan="juni"

CASE bln=7

bulan=" juli"

CASE bln=8

bulan=" Agustus"

CASE bln=9

bulan=" September"

CASE bln=10

bulan=" Oktober"

CASE bln=11

bulan=" November"

CASE bln=12

bulan=" Desember"

endc

thisform.label8.Caption=hari+','+ALLTRIM(STR(DAY( tgl)))+''+ bulan+''+ALLTRIM(STR( YEAR( tgl)))

untuk procedurnya silahkan dicari dimana seharusnya di paste syntax diatas..

#adduuuuuuuuuuuuuuuuuuuuuhhhh pusing kalau suruh nyari sendiri hahaha

ü  Selanjutnya kita akan membuat jam tampil di form gan…

1.       Siapkan label

2.       Atur sesuaikan font

3.       Tambahkan timer dengan interval=1000

4.       Tambahkan syntax berikut pada timer

WKT=TIME()

THISFORM.LABEL7.CAPTION=WKT+''+"  WIB"

• Yang selanjutnya adalah kita buat teks berjalan pada bagian bawah form ya

1.       Siapkan container

2.       Buat container di dalam container (container2\container3)

3.       Tambahkan label didalam containter3 dan tambahkan pula timer

4.       Ketikan syntax berikut pada timer

WITH this.Parent

 .lbljln.left=.lbljln.left-1

 IF .lbljln.left<0- .lbljln.="" span="">width

  .lbljln.left=.width

 ENDIF

ENDWITH

Selamat mencoba gan, semoga berhasil

Untuk contoh projectnya silahkan sedot lewat link berikut.
-----------------------------------------------------------------------------------------------------------------------
http://www.ziddu.com/download/22375281/PASSWORD.zip.html

----------------------------------------------------------------------------------------------------------------------- 


Berikut adalah link download untuk materi pra Uas, AMIK DCC Lampung Kampus Tulang Bawang TA 2013
-----------------------------------------------------------------------------------------------------------------------

http://www.ziddu.com/download/22375298/praUas.zip.html

-----------------------------------------------------------------------------------------------------------------------

Catatan :

1. File Dalam Bentuk Source Code

2. Pelajari Dengan Seksama Agar Mempermudah dalam Evaluasi Akhir Semester