MEMBUAT FORM LOGIN

Form Login saya berinama :password.scx
Form Login ini difungsikan untuk menyaring siapa saja yang berhak menjalankan program ini.
Mula mula komputer akan mengecek user terlebih dahulu apabila user itu udah terdaftar user dapat mengakses lebih lanjut. Sebaliknya apabila user belum terdaftar komputer akan menolaknya, program selesai.
Untuk membuat form password penulis mengharapkan sudah bisa bisa membuar formnya. Kira kira bentuk formnya sebabai berikut :

Mengisi propertis

• Method Activate isi : thisform.text3.value=DATE()
• Layout Show windows : 1- In top level

Mengsi prooertis tombol OK

- Method Click isi

Local sukses

muser_id=ALLTRIM(Thisform.TEXT1.Value)

mpass=ALLTRIM(Thisform.TEXT2.Value)

lcStringConn,

mquery = []

TEXT to mquery textme noshow pret 8

SELECT Xuser.ID, Xuser.PASS

FROM xuser WHERE Xuser.ID = ?muser_id AND Xuser.PASS = ?mpass

ENDTEXT

sukses=SQLExec(gnConnHandle,mquery,'dt_user')

Select dt_user

x=Reccount()

If x=0

Local MJW

MJW=Messagebox("Maaf Nama Atau Password salah..ulang <Y/T>",

32+4,"Informasi")

If MJW=6

Thisform.TEXT1.Value=" "

Thisform.TEXT2.Value=" "

Thisform.TEXT1.SetFocus()

ELSE

thisform.Release()

Endif

Else

mUSER=Thisform.TEXT1.Value

mtgl_pnj=Thisform.TEXT3.Value

Endif

Thisform.Release()

Sebelu menjalankan program utama kamu haru terlebih dahulu harus membuat tabel xuser yang spesifikasinya sbb :

Setelah di jalankan melalui progut hasilnya  harus nampak berikut ini

Semoga bermanfaat.

MEMBUAT HALAMAN MUKA PADA TAMPILAN PROGRAM

       Membuat halaman muka dapat diartikan form pertama kali dilayar dalam menjalankan program . Hal ini penting dibuat agar kosumen tertarik dan lebih mudah mencari program apa yang akan dijalankan. Untuk lebih mudah ikuti langkah-lankah berikut ini :

-        Buka project projalamat (sudah ada postingan sebelumnya)

• Pilih menu Documents
• pilih form click New

• Click New Form
• Lihat gambar

• Pemberian provertis
  a. pemberian gambar
  * pada menu pictur isi
  c:\alamat\gambar\wizstone.bmp
  * pada show windows pilih
  2 – As – Top Level form
  * Pada menu Method - > activate

ketik

IF mPASS=0

DO FORM PASSWORD.SCX

ELSE

DO UTAMA.MPR WITH THIS ,.T.

ENDIF

• Simpan Form tersebut dengan nama cover.scx

• Jalan kan program utama dari projec projalamat
  pilih program pilih progut.prg kemudian run

Keterangan

Jika muncul Password.scx Not found berarti sampai langkah ini anda udah benar

tinggal membuat password.scx nya tunggu postingan berikutnya

MENGKONEKSIKAN FOXPRO DENGAN MYSQL

        Setekah kita mengetahui cara membuat menu , kit kita mencoba program membuat program utama yang didalamnya kita akan membahan , cara memesan memori public,  menentukan drive kerja dan koneksi foxpro ke mysqk.

Program utma yang kita akan buat diberinama progut.prg di  folder progs

c:\alamat\progs\progut.prg

Untuk jelasnya ikuti lankah langkah berikut ini :

-  Jalankan Visual foxpro dan tentukan drive kerja

-  Jalankan projec Projalamat

-   Arahkan kursor di menu Code

-   Click New

-   Tulis kode ini kemudian simpan dengan nama progut.prg  (Ctr + W untuk simpan)

** Setting dan pemesan memori public
Clea

Clea All

Set Talk Off

Set Safety Off

Set Confirm Off

Set Date To Italian

Close Database All

Set Dele On

Set Century On

SET EXACT ON

Set Console Off

SET EXACT ON

SET CONFIRM on

** Memori Public **

PUBLIC lcStringConn, gnConnHandle,muser,MREC_ID,mada,mstatus

store " " to lcStringConn,muser,mstatus

store 0 to gnConnHandle,mrec_id,mada

** Menentukan Drive kerja dan pathnya

SET DEFAULT TO Sys(5)+"\alamat"

Set Path To Datas,Forms,gambars,Menus,PROGS,REPORTS

ms_local="'"+SYS(5)+SYS(2003)+"\"+"datas\"+"'"

** Koneksi ke mysql

***************************************************************

* lcServer ="192.168.100.100"

lcServer ="127.0.0.1"

lcDatabase ="dtalamat"

lcUser = "root"

lcPassword = ""

Lcport ="3306"

lcopt ="16"

lcStringConn="Driver={MYSQL ODBC 5.1 Driver};Port="+LCport+;

";Server="+lcServer+;

";Database="+lcDatabase+;

";Uid="+lcUser+;

";Pwd="+lcPassword+;

";option="+lcopt

gnConnHandle=Sqlstringconnect(lcStringConn,.T.)

status_login_local="Berhasil"

If gnConnHandle < 0

MESSAGEBOX("Koneksi Tidak Berhasil ?",48,"Informasi")

quit

else

Do Form cover.scx

READ events

Endif

Setelah disimpan jangan dijalankn dulu tetapi progut dijadikan program utama dulu caranya kita lihat gambar

Lankahnya :

• Letakan cursor di progut
• click kanan
• click set main
• Jalan program dengan mengclick RUN
  

• Keterangan
  Jika di Jalankan ada komentar Koneksi tidak berhasil berarti belum sintaknya masih salah
  Sebaliknya kalau yang muncul cover.scx not found berarti koneksi udah tersambung tetapi cover.scx tidak diketemukan.
  Untuk Cover.scxnya kita bahas diposting berikutnya

MEMBUAT MENU

       Dalam pembuatan program , menu adalah salah satu yang harus dibuat untuk memudah kan operator memilih modul apa yang akan mereka pilih. Dalam kesempatan ini penulis akan menjelaskan bagaimana cara membuat menu di visual foxpro dengan acuan sebagai berikut

Untuk lebih jelasnya ikuti langkah berikut ini :

1. Jalankan visual foxpro
2. Tentukan drive kerja (set defa to c:\alamat)
3. Buka project projalamat 

4.  Pilih menu Other

5. Click New

6. Click Menu

7. Ketik apa yang di lihat digambar Pada Submenu Prompt
8. Membuat Submenu dari menu MASTER
9. Arahkan kurso ke menu Master
10. Click Create
11.  Ketik Submenu berikut ini sesuai gambar

12.   Mengisi Procedur (Form yang akan di jalankan)
13.   Letakan cursor di Submenu Add
14.   Click create
15.   Ketik do form add_lgn ( menjalankan form bernama add_lgn )
16.   Tekan CTRL+W. Lihat Gambar

17. Lakukan hal yang sama untuk edit dan del (No 13 s/d 16)

18 Kalau udah selesai semua disisi

19 Click View --- General Option centang toplevel

20 Clcik OK

21 Click Menu ---> Generate

22 Click Yes

23. Click generate lagi lagi kalau ada pertanyaan

24 Tutup (x)

25. Tutup (x)

MEMBUAT PROJECT

Untuk memudahkan kita mengorganisasikan rancangan dalm membuat program alangkah baiknya kita membuat project terlebih dahulu karena didalam projek seluruh program, form, database, report, view, query dicantumkan didalamnya sehingga memudahkan programer dalam merancang program selama program itu belum selesai, Untuk membuat projek ikuti langkah-langkahnya sbb ;

• Jalankan visual foxpro
• Tentukan drive dan folder kita bekerja ( C:\Alamat)

Dalam jendelea command tulis set default to c:\alamat

• File ---> New
• Pilih Project

•    Click New file
• Enter project file :Projalamat
• Click save

MEMUAT SESSION, DATABASE DAN TABEL DENGAN HEIDISQL

1. SESSION

Sebelum membuat database dan tabel kita buat sesion (sesi/Bahasan) gimana caranya ikuti lankah langkahnya :

*. Buka heidisql

* Click New

* Ketik DATAISC

* Click Save

* Arahkan kuror pada dataisc

* Network type , hostname /IP ,user biarkan apaadanya

* Click Open

2. DATA BASE

Setelah session dibuat dengan nama dataisc selanjutnya kita buat database dengan nama dtalamat (misal) langkah langkhnya :

*. Buka heidi sql

*. arahkan pada session dataisc

*. Click Open

*. Arahkan kursor pada datasesion dataisc

*. Click kanan

* Create New

* Click Database

* Name : dtalamat

* OK

3. BUAT TABEL

Setelah database dibuat dengan nama dtalamat tinggal kita buat tabelnya sebagai contoh kita buat tabel dengan nma alamat Dengan field field sbb :

nama           datatype           length/set

kd_lgn         varchar            10

nm_lgn         varchar           40

alamat          varchar           50

telp              varchar           20

photo          varchar            20

Inilah cara membuat tabel di mysql langkah-langkahnya sebagai berikut

• Jalankan Heidisql
• Pilih sesian dataisc
• Sorot database (dtalamat)
• Click kanan
• Nama isi dengan Alamat

                o  Click add

• Ketik sesuai gambar
• Save

                o  Selesai