Tampilkan postingan dengan label Foxpro. Tampilkan semua postingan
Tampilkan postingan dengan label Foxpro. Tampilkan semua postingan

Rabu, 18 Mei 2011

Membuat Link Menu

10.42 alie No comments
Apabila kita ingin membuat desain seperti pada word 2007, kita bisa menggunakan image untuk membuat tampilannya, dari word 2007 di print screen terus diedit di photoshop. Kira-kira seperti di bawah ini gambarnya, gambar dibawah ini adalah gabungan dari beberapa class objek.





Ketika kursor di sorotkan ke objek maka image akan berganti dengan image yang berkilau, kita bisa menambahkan script di mousemove dan mouseleave.
Contoh :
Ketikkan script dibawah ini di bagian mousemove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.menu_utama.isi_menu_file.Picture='C:\FOXPRO\MONOGRAFI2\IMAGES\BINGKAI_ISI_FILE_AURA.JPG'
dan ketikkan code berikut di mouseleave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.menu_utama.isi_menu_file.Picture='C:\FOXPRO\MONOGRAFI2\IMAGES\BINGKAI_ISI_FILE.JPG'
untuk link pada label bisa menggunakan script berikut :
Ketikkan script dibawah ini di bagian mousemove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.FontUnderline= .t.
this.FontBold= .T.
*this.BackColor=RGB(192,192,192)
this.BorderStyle= 0
dan ketikkan code berikut di mouseleave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.FontUnderline= .f.
this.FontBold= .f.
*this.BackColor=RGB(192,192,192)
this.BorderStyle= 0
dan apabila label diklik image background akan berubah, bisa menggunakan script berikut
contoh :
taruh di prosedur click
thisform.menu_utama.Picture='C:\FOXPRO\MONOGRAFI2\IMAGES\MENU_FILE.JPG'
thisform.menu_utama.isi_menu_file.Visible= .T.
Read more »

Cara Membuat Class Objek Pada Foxpro

10.18 alie No comments
Berikut adalah langkah-langkah untuk membuat objek di foxpro
1. Cara Membuat Class

2. Cara Menambahkan Class di Project Manager

3. Hasil dari penambahan
 

4. Membuat Class Objek



Read more »

Memberikan Judul Pada Grid Foxpro

09.53 alie No comments
Dibawah ini adalah contoh script untuk mengatur judul pada grid foxpro.
SQLEXEC(ConnHandle,"SELECT * FROM tabel_kelembagaan_kelurahan1","b")
thisform.Grid1.RecordSource="b"

with thisform.grid1
  .column1.header1.caption = 'Kode Monografi Kecamatan'
  .column1.width = 190
  .column2.header1.caption = 'Status Kepemilikan'
  .column2.width = 100
  .column3.header1.caption = 'Luas Tanah'
  .column3.width = 100
  .column4.header1.caption = 'Luas Bangunan'
  .column4.width = 100
  .column5.header1.caption = 'dibangun tahun'
  .column5.width = 100
  .column6.header1.caption = 'APBN'
  .column6.width = 100
  .column7.header1.caption = 'INPRES'
  .column7.width = 100
  .column8.header1.caption = 'APBD Provinsi'
  .column8.width = 100
  .column9.header1.caption = 'APBD Kota'
  .column9.width = 100
  .column10.header1.caption = 'Lain2 yang sah'
  .column10.width = 100
  .column11.header1.caption = 'jumlah'
  .column11.width = 100
  .column12.header1.caption = 'Bangunan Bertingkat'
  .column12.width = 100
  .column13.header1.caption = 'Kondisi Bangunan'
  .column13.width = 100
endwith
Read more »

Rabu, 20 April 2011

Pengenalan Foxpro (membuat project dan aplikasi ke exe)

17.14 alie No comments
Membuat Project


















Setting Default Derektori












Project Manager












Membuat Menu dan Pengaturaanya














Membuat Startup untuk Build Ke exe












Setting Project Information












Build Untuk dijadikan exe
Read more »

Export dan Import Database Mysql

16.24 alie No comments

Contoh 1

export database :
EXECSCRIPT("run mysqldump -u username -pPassword nama_db > C:/FOXPRO/backup/File_hasil_Export.sql")
contoh :
EXECSCRIPT("run mysqldump -u root -p123456 penjualan > C:/FOXPRO/backup/File_hasil_Export.sql")

import database :
EXECSCRIPT("run mysql -u username -pPassword nama_db < C:/FOXPRO/backup/File_hasil_Export.sql")
contoh :
EXECSCRIPT("run mysql -u root -p123456 penjualan < C:/FOXPRO/backup/File_hasil_Export.sql")
Seting mysql

 

 

 

 

 

 

 

 

Contoh 2

Export tabel 
ftujuan = CHRTRAN(ALLTRIM(thisform.Text1.Value),'\','/')

random_nomor = ALLTRIM(STR(int(Rand () * 100 + 1)))
TIME_IMPORT = DTOS(DATE())+'_'+CHRTRAN(ALLTRIM(TIME()),':','-')+random_nomor

*-----------------------------------------------mulai import
filetarget = ftujuan+'tabel_akademi_negeri'+'_'+TIME_IMPORT+".csv"
TEXT TO tabel_akademi_negeri TEXTMERGE NOSHOW
  SELECT * FROM tabel_akademi_negeri INTO OUTFILE ?filetarget;
ENDTEXT
oke = SQLEXEC(ConnHandle,tabel_akademi_negeri)
*----------------------------------------------------------------------------------------------------------
filetarget = ftujuan+'tabel_akademi_swasta'+'_'+TIME_IMPORT+".csv"
TEXT TO tabel_akademi_swasta TEXTMERGE NOSHOW
  SELECT * FROM tabel_akademi_swasta INTO OUTFILE ?filetarget;
ENDTEXT
oke = SQLEXEC(ConnHandle,tabel_akademi_swasta)
*----------------------------------------------------------------------------------------------------------
IF oke != 0
  MESSAGEBOX("Database berhasil diexport, silahkan periksa di folder : "+ftujuan,64,"Informasi !")
  Thisform.Refresh
  thisform.Release()
 ELSE
  MESSAGEBOX("Database gagal diimport.",64,"Informasi !")
  Thisform.Refresh
endif
Import tabel 
LOCAL t01,t02
SET POINT TO '.'

folder = CHRTRAN(ALLTRIM(thisform.text1.Value),'\','/')
file_csv = ALLTRIM(thisform.text2.Value)


fasal = folder+'tabel_akademi_negeri_'+file_csv+'.csv'
MESSAGEBOX(fasal,64,"Informasi !")
xnamadb = 'tabel_akademi_negeri'
filetarget = "'"+fasal+"'"
TEXT TO csv2mysql TEXTMERGE NOSHOW
LOAD DATA LOCAL INFILE <<filetarget>>
IGNORE INTO TABLE <<xnamadb>>
ENDTEXT
SQLEXEC(ConnHandle,csv2mysql) 

fasal = folder+'tabel_akademi_swasta_'+file_csv+'.csv'
MESSAGEBOX(fasal,64,"Informasi !")
xnamadb = 'tabel_akademi_swasta'
filetarget = "'"+fasal+"'"
TEXT TO csv2mysql TEXTMERGE NOSHOW
LOAD DATA LOCAL INFILE <<filetarget>>
IGNORE INTO TABLE <<xnamadb>>
ENDTEXT
SQLEXEC(ConnHandle,csv2mysql)
Read more »

Close All Form

16.08 alie No comments
Untuk menutup semua form yang sedang aktif gunakan script di bawah ini :

FOR ctr=_screen.FormCount TO 1 STEP -1
  _Screen.Forms(ctr).Release
ENDFOR
Read more »

Selasa, 22 Maret 2011

Menghapus Data di Mysql menggunakan Foxpro

11.48 alie No comments
Ini adalah kelanjutan dari pembahasan yang sebelumnya
Taruh kode dibawah ini di objek cmdDelete pada prosedur click
*delete data ke tabel server
* Procedure cmdDelete.CLICK()
IF MESSAGEBOX('HAPUS DATA?',36,'COBA HAPUS DATA')=6
 oke=SQLEXEC(ConnHandle,"delete from apl_barang")
 IF oke != 0
  MESSAGEBOX("data berhasil dihapus.",64,"Informasi !")
  thisform.grid1.Init
  Thisform.Refresh
  thisform.grid1.Refresh
 ELSE
  MESSAGEBOX("data gagal dihapus.",64,"Informasi !")
  thisform.grid1.Init
  Thisform.Refresh
  thisform.grid1.Refresh
 endif
ENDIF
Read more »

Mengupdate Data di Mysql menggunakan Foxpro

11.41 alie No comments
Ini adalah kelanjutan dari pembahasan yang sebelumnya
Taruh kode dibawah ini di objek cmdUpdate pada prosedur click
*update data ke tabel server
* Procedure cmdUpdate.CLICK()
IF MESSAGEBOX('UPDATE DATA?',36,'COBA UPDATE DATA')=6
 oke=SQLEXEC(ConnHandle,"update apl_barang set kode_barang='kode_update',nama_barang='nama_update' ;
 ,kategori_barang='kategori_update' ;
 ,satuan='satuan_update',stok='5555',harga='5000000'")
 IF oke != 0
  MESSAGEBOX("data berhasil diupdate.",64,"Informasi !")
  thisform.grid1.Init
  Thisform.Refresh
  thisform.grid1.Refresh
 ELSE
  MESSAGEBOX("data gagal disimpan.",64,"Informasi !")
  thisform.grid1.Init
  Thisform.Refresh
  thisform.grid1.Refresh
 endif
ENDIF
Read more »

Menyimpan Data di Mysql Menggunakan Foxpro 9

11.29 alie 3 comments
Ini adalah kelanjutan dari pembahasan yang sebelumnya
Taruh kode dibawah ini di objek cmdSimpan pada prosedur click
*menyimpan data ke tabel server
* Procedure cmdSimpan.CLICK()
IF MESSAGEBOX('SIMPAN DATA?',36,'COBA SIMPAN DATA')=6
 oke=SQLEXEC(ConnHandle,"INSERT INTO apl_barang (kode_barang,nama_barang,kategori_barang,satuan,stok,harga) VALUES ;
 ('kode','nama barang','kategori','satuan','200','1000')")
 IF oke != 0
  MESSAGEBOX("data berhasil disimpan.",64,"Informasi !")
  thisform.grid1.Init
  Thisform.Refresh
  thisform.grid1.Refresh
 ELSE
  MESSAGEBOX("data gagal disimpan.",64,"Informasi !")
  thisform.grid1.Init
  Thisform.Refresh
  thisform.grid1.Refresh
 endif
ENDIF


oke=SQLEXEC(ConnHandle,"INSERT INTO tabel_data_dinamis_jumlah_pegawai_kantor;
(kode,a,b,c,d,e,f) VALUES ;
(?sim1,?sim2,?sim3,?sim4,?sim5,?sim6,?sim7)")


filetarget = ftujuan+'tabel_akademi_negeri'+'_'+TIME_IMPORT+".csv"
TEXT TO tabel_akademi_negeri TEXTMERGE NOSHOW
  SELECT * FROM tabel_akademi_negeri INTO OUTFILE ?filetarget;
ENDTEXT
oke = SQLEXEC(ConnHandle,tabel_akademi_negeri)
Read more »

Senin, 21 Maret 2011

Menampilkan Tabel Mysql di Grid Foxpro 9

11.36 alie No comments
Berikut adalah source kodenya :
Kita buat koneksi ke mysql terlebih dahulu.
Taruh di objek form pada prosedur load
vdbase = "mvc"
vuser = "root"
vpass = "123456"
msql = "DATABASE="+vdbase+";SERVER=localhost;port=3306;UID="+vuser+";PWD="+vpass+";provider=MSDASQLR;DRIVER={MySQL ODBC 3.51 Driver};"

PUBLIC ConnHandle
ConnHandle = SQLSTRINGCONNECT(msql)
kode di bawah ini di taruh di objek grid pada prosedur init
SQLEXEC(ConnHandle,"SELECT * FROM apl_barang","a")
thisform.Grid1.BackColor=RGB(0,128,255)
thisform.Grid1.RecordSource="a"
Read more »

Koneksi database Mysql pada Foxpro

11.29 alie No comments
sebelum melakukan koneksi database mysql dengan fpxpro, instal dulu mysql-connector-odbc-3.51.12 sebagai konektor database mysql dengan visual foxpro.

Berikut adalah script Foxpro untuk koneksi ke Mysql : 
vdbase = ALLTRIM(thisform.vdata.Value)
vuser = ALLTRIM(thisform.username.Value)
vpass = ALLTRIM(thisform.passwd.Value)
msql = "DATABASE="+vdbase+";SERVER=localhost;port=3306;UID="+vuser+";PWD="+vpass+";provider=MSDASQLR;DRIVER={MySQL ODBC 3.51 Driver};"

THISFORM.koneksi = SQLSTRINGCONNECT(msql)

IF THISFORM.koneksi <= 0 
 MESSAGEBOX("Koneksi Ke Server Database MySQL Gagal"+msql ,64,"Informasi !")
 THISFORM.Vdata.SetFocus
 Return
ELSE
 MESSAGEBOX("Koneksi Ke Server Database MySQL Berhasil",64,"Informasi !")
ENDIF 
thisform.Release
Gambar Form seperti di bawah ini.
Read more »

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Justin Bieber, Gold Price in India