Visual Foxpro
Pemrograman Microsoft Visual Foxpro 6.0 merupakan bagian dari pemrograman Visual Studio, Microsoft Visual Foxpro merupakan bahasa Pemrograman yang power Full Database
Berikut referensi bagai mana belajar visual foxpro dari pengenalan dasar, membuat form, laporan, mencetak laporan perbulan, pertahun dan membuat file exe. Semoga referensi ini dapat bermanfaat bagi kita semua
PERANCANGAN DATABASE DAN STRUKTUR TABEL
PEMBUATAN REPORT, PERANCANGAN SISTEM MENU
PROGRAM DAN PEMBUATAN PROGRAM UTAMA
Semua Isi blog ini telah kami pindahkan ke www.kastok.net.
Untuk diskusi Visual foxpro ada di http://www.kastok.net/visual-foxpro-2/
malam master program…..
Gimana Ya coding untuk menghitung Faktor persekutuan Terbesar di foxpro
maklum msih pemula
agan2 semua tlg aku dong, aku punya si perpus.. tapi ketika anggota mau pinjam buku, hanya bolh pinjam 2 buku.bagaimana cara menampilkan peringatan (messagebox) yang akan muncul ketika anggota meminjam lebih dari 2 buku??
Messagebox(‘Pinjam buku tidak Boleh Lebih dari 2′,0+48+0,’Peringatan’)
pada thisform.txtjmlpnjm (keypress)
if nkeycode=13
if val(thisform.txtjmlpnjm.value>2)
Messagebox(‘Pinjam buku tidak Boleh Lebih dari 2′,0+48+0,’Peringatan’)
return
endif
….
…
…
endif
para master minta tolong donk cara set filter tahun di foxpro..jadi saya punya tabel view1 fieldnya berangkat(date) total(numeric)
nah saya ingin pasang set filternya di init form.jadi waktu form ketampil ud otomatios terfilter
yang saya ingin filter disini adalah tahun berangkat = tahun ini
saya sudah coba
select view1
set filter to year(berangkat) = this.year()
ga bisa .ada yang tau caranya?? thx
select view1
set filter to year(berangkat) = year(date())
Sy lagi buat program ulang dari clipper ke VFP yg sy bingung dimana saya harus meletakan function jika sy ingin digunakan di form,
Sy sdh meletakan function di file code (prg), jika saya panggil melalui aplikasi mengunakan code (prg) bisa digunakan, tapi jika saya gunakan di form tidak bisa digunakan, sy letakan di form function nya tidak bisa.
Bisa bantu ….
Terima kasih
contoh menggunakan function. tambahkan pada tombol yang akan menggunakan function. misal: nama function=enkripsi maka ketikkan coding : thisform.text2.value=enkripsi(thisform.text1.value).
Meletakn FUNCTION dimana ?, di form apa di program.
contoh saya punya program seperti ini jika saya tulis di clipper:
function hitung
v=0
parameter x
v=x*25
return .t.
hitung(200)
@ 0,0 say v
pada program diatas function hitung harus saya letakan dimana ?, jika saya letakan di program dan saya panggil di form akan error “hitung.prg tidak ada”
Terima kasih
function di letakkan di prg sedangkan di panggil dalam form cukup dengan thisform.text2.value=hitungi(thisform.text1.value).
dimana hitung adalah function yang di buat di prg.
file prgx, di panggil dulu di formx.. di form init
do application.defaulflocation+”\nama folder\namafile.prg”
Anda sudah benar meletakannya di program awal (.prg), tetapi tambahkan perintah Additive (addi) di belakang fumction tersebut dengan catatan function tersebut dibuat dalam (prg) , seperti ini :
set procedure to func_angka, func_filedata, func_tanggal, func_umum, func_BukaData,func_HPP addi
Para Master Foxpro
Bagaimana caranya membuat ODBC Data Source?
ada 2 cara :
1. Melalui control panel
2. Dibuat langsung di script program
Cara 1 :
- control panel
- administrative tool
- odbc
- pilih add, pilih MySQL ODBC 5.1, finish
- Data Source Name : Testing ==> nama koneski yang nanti akan di panggil di program
- Description : MySQL ODBC 5.1 ==> Bisa di tulis sembarang saja
- TCP/IP Server : 192.168.2.1 ==> ( ini adalah IP server database anda)
- User : root ==> nama user untuk login di database MySQL
- Password : test ==> password login di MySQL
- Database : test ==> nama database MySQL
Untuk konek ke server melalui foxpro ketikkan perinta : test = SQLCONNECT(‘Testing’)
contoh scrip pengambilan data :
SQLPREPARE(test,”SELECT * FROM namaTable”,”cursor”)
SQLEXEC(test)
Note : cursor adalah hasil dari query data dari namaTable MySQL
Cara 2 :
Pasang script tersebut langsung di program VFP anda.
hy…
Mintol semua yang tau coding ini tugas finalq sistem pakar…tolong ya di share soal lagi 2 hari di presentasikan.. terus belum jadi jadi hehe…
begini masalahnya :
Pilihlah satu jawaban
1. Seorang teman bercerita tapi terdapat kekeliruan pada beberapa hal yang sebenarnya tidak penting. Yang akan Anda lakukan :
a. Membiarkan kesalahan kecil tersebut.
b. Menginterupsi dan membenarkannya.
c. Membenarnkannya setelah dia selesai bercerita
2. Anda disuguhi hidangan makanan asing yang tidak Anda sukai. Yang akan Anda lakukan :
a. Mencoba memakannya.
b. Memberitahu makanan kesukaan Anda.
c. Mengalihkan piring Anda dan memesan makanan lain.
3. Seorang teman tampil dengan mengenakan jas baru yang pernah Anda lihat di obrolan. Yang akan Anda lakukan :
a. Menyebutkan obralannya.
b. Tidak mengatakan apa – apa.
c. Memberi komentar yang menyenangkan untuk jas tersebut.
4. Tetangga Anda menghabiskan liburannya di rumah, tapi Anda melakukan perjalanan yang mahal. Yang akan Anda lakukan :
a. Menceritakan setiap hal atas perjalanan Anda secara mendetail.
b. Menjawab setiap pertanyaan yang ditanyakan mengenai liburan Anda.
c. Mengatakan bahwa dia tidak benar – benar hidup.
5. Anda baru saja selesai membaca sebuah ringkasan buku terlaris saat ini. Seorang teman bertanya apakah Anda sudah membaca buku tersebut. Yang akan Anda lakukan :
a. Mengatakan bahwa Anda belum membaca buku tersebut.
b. Mengatakan bahwa Anda memiliki inti cerita dari ringkasannya.
c. Mengatakan bahwa Anda hanya membaca ringkasannya
6. Diantara kerabat Anda, terdapat salah seorang yang sangat terkenal. Yang akan Anda lakukan :
a. Menyebutkan namanya kapanpun memungkinkan
b. Membicarakan keburukannya.
c. Mengekspresikan kebanggaan rendah hati ketika namanya disebut.
7. Anda memiliki hobi atau bakat dimana Anda sangat mahir dalam melakukannya. Yang akan anda lakukan :
a. Mengekspresikan ketidaksenangan dengan hobi orang lain.
b. Menyimpan sendiri teknik rahasia Anda.
c. Mengajari orang lain yang berkeinginan untuk belajar kapada Anda.
8. Seseorang menunjukkan sebuah tanaman langka kepada Anda. Yang akan Anda lakukan :
a. Mengatakan bahwa Anda tidak memikirkannya.
b. Mengatakan bahwa Anda telah melihat lusinan tanaman yang lebih menarik.
c. Beritanya mengenai tanaman tersebut.
Reaksi yang diinginkan
1-a 2-a 3-a
4-b 5-c 6-c
7-c 8-c
Skor Anda :
7 sampai 8 benar : Anda Sensitif atas perasaan orang lain dan tidak pernah mendorong diri Ana sendiri untuk dikenal orang. Oleh karena itu, Anda benar benar disukai dan tidak pernah dikritik sebagai orang yang tahu segalanya.
3 sampai 4 benar : Anda sangat mementingkan diri sendiri dan cenderung berbicara terlalu banyak mengenai diri Anda sendiri, dan prestasi Anda. Orang sering merasa tidak nyaman bersama Anda dan menggelengkan kepala saat Anda pergi. Awas !
0 samapai 2 benar : “ Mereka yang selalu bicara tidak pernah berpikir. “ (sebelumnya )
saya mau tanya kamu tugas di kampus atau tempat kursus, saya ingin belajar juga tapi gak tau tempatnya di mana
met mlm….mohon bantuannya sy ada tugas membuat desain form Data Mahasiswa, pada form terdapat 6 Label:
- NIM (Text1)
- NAMA (Text2)
- JENIS KELAMIN (Check1)
- KELAS (Option Group1)
- JURUSAN (Combo1)
- PILIH KRITERIA (Combo2)
dan terdapat 4 tombol command button dan Grid berikut:
- Simpan (Command1)
- Hapus (Command2)
- Keluar (Command3)
- Filter (Command4)
- Tabel Mahasiswa ( Grid)
dan Desain Tabel
Field :
- nim
- nama
- jk
- kelas
- jurusan
Soal tugasnya sebagai berikut :
1. untuk jenis kelamin dengan ketentuan jika check box di centang maka nilainya laki-laki,jika tidak nilainya perempuan..?
2. Terdapat 2 jurusan yang akan ditampilkan pada Combo Box, yaitu: Sistem Informasi dan Teknik Informatika..?
3. Buatlah kode/listing program untuk mengolah data mahasiswa: Tombol simpan,Hapus dan keluar..?
4. Pada Label Pilih Kriteria Combo Box akan menampilkan 3 kriteria yaitu berdasarkan
Field :
- Jk
- Kelas
- Jurusan
5. Tombol Filter akan menyaring dan menampilkan data pada grid berdasarkan kriteri yang dipilih…?
Mohon bantuannya,,,,,teimakasih…
Email sy: qqz.topcher@gmail.com
sy punya tugas kampus buat program sistem pakar…dalam satu form terdapat soal pilihan ganda berbentuk optiongroup…A…B…C…Jika pilih A..jawaban benar bernilai 1 dan pilih lain salah nilaix 0…sampai 8 soal…terus jika jawaban benar 7-8 :”XXXXXXX” dan jika jawaban 5-7 : “NNNNNNNN” dan 3-4 : “GGGGG”"”
minta tolong dibantu buat listing programx…
++trims sblmx
Pake tabel atau lgsg di Formx?? trus, untuk soalx kurang jelas sih??
langsung aja di form…
Begini soalnya :
Pilihlah satu jawaban
1. Seorang teman bercerita tapi terdapat kekeliruan pada beberapa hal yang sebenarnya tidak penting. Yang akan Anda lakukan :
a. Membiarkan kesalahan kecil tersebut.
b. Menginterupsi dan membenarkannya.
c. Membenarnkannya setelah dia selesai bercerita
2. Anda disuguhi hidangan makanan asing yang tidak Anda sukai. Yang akan Anda lakukan :
a. Mencoba memakannya.
b. Memberitahu makanan kesukaan Anda.
c. Mengalihkan piring Anda dan memesan makanan lain.
3. Seorang teman tampil dengan mengenakan jas baru yang pernah Anda lihat di obrolan. Yang akan Anda lakukan :
a. Menyebutkan obralannya.
b. Tidak mengatakan apa – apa.
c. Memberi komentar yang menyenangkan untuk jas tersebut.
4. Tetangga Anda menghabiskan liburannya di rumah, tapi Anda melakukan perjalanan yang mahal. Yang akan Anda lakukan :
a. Menceritakan setiap hal atas perjalanan Anda secara mendetail.
b. Menjawab setiap pertanyaan yang ditanyakan mengenai liburan Anda.
c. Mengatakan bahwa dia tidak benar – benar hidup.
5. Anda baru saja selesai membaca sebuah ringkasan buku terlaris saat ini. Seorang teman bertanya apakah Anda sudah membaca buku tersebut. Yang akan Anda lakukan :
a. Mengatakan bahwa Anda belum membaca buku tersebut.
b. Mengatakan bahwa Anda memiliki inti cerita dari ringkasannya.
c. Mengatakan bahwa Anda hanya membaca ringkasannya
6. Diantara kerabat Anda, terdapat salah seorang yang sangat terkenal. Yang akan Anda lakukan :
a. Menyebutkan namanya kapanpun memungkinkan
b. Membicarakan keburukannya.
c. Mengekspresikan kebanggaan rendah hati ketika namanya disebut.
7. Anda memiliki hobi atau bakat dimana Anda sangat mahir dalam melakukannya. Yang akan anda lakukan :
a. Mengekspresikan ketidaksenangan dengan hobi orang lain.
b. Menyimpan sendiri teknik rahasia Anda.
c. Mengajari orang lain yang berkeinginan untuk belajar kapada Anda.
8. Seseorang menunjukkan sebuah tanaman langka kepada Anda. Yang akan Anda lakukan :
a. Mengatakan bahwa Anda tidak memikirkannya.
b. Mengatakan bahwa Anda telah melihat lusinan tanaman yang lebih menarik.
c. Beritanya mengenai tanaman tersebut.
Reaksi yang diinginkan
1-a 2-a 3-a
4-b 5-c 6-c
7-c 8-c
Skor Anda
7 sampai 8 benar : Anda Sensitif atas perasaan orang lain dan tidak pernah mendorong diri Ana sendiri untuk dikenal orang. Oleh karena itu, Anda benar benar disukai dan tidak pernah dikritik sebagai orang yang tahu segalanya.
3 sampai 4 benar : Anda sangat mementingkan diri sendiri dan cenderung berbicara terlalu banyak mengenai diri Anda sendiri, dan prestasi Anda. Orang sering merasa tidak nyaman bersama Anda dan menggelengkan kepala saat Anda pergi. Awas !
0 samapai 2 benar : “ Mereka yang selalu bicara tidak pernah berpikir. “ (sebelumnya )
mohon bantuan kodingnya kak…
met mlm….mohon bantuannya sy ada tugas membuat desain form Data Mahasiswa, pada form terdapat 6 Label:
- NIM (Text1)
- NAMA (Text2)
- JENIS KELAMIN (Check1)
- KELAS (Option Group1)
- JURUSAN (Combo1)
- PILIH KRITERIA (Combo2)
dan terdapat 4 tombol command button dan Grid berikut:
- Simpan (Command1)
- Hapus (Command2)
- Keluar (Command3)
- Filter (Command4)
- Tabel Mahasiswa ( Grid)
dan Desain Tabel
Field :
- nim
- nama
- jk
- kelas
- jurusan
Soal tugasnya sebagai berikut :
1. untuk jenis kelamin dengan ketentuan jika check box di centang maka nilainya laki-laki,jika tidak nilainya perempuan..?
2. Terdapat 2 jurusan yang akan ditampilkan pada Combo Box, yaitu: Sistem Informasi dan Teknik Informatika..?
3. Buatlah kode/listing program untuk mengolah data mahasiswa: Tombol simpan,Hapus dan keluar..?
4. Pada Label Pilih Kriteria Combo Box akan menampilkan 3 kriteria yaitu berdasarkan
Field :
- Jk
- Kelas
- Jurusan
5. Tombol Filter akan menyaring dan menampilkan data pada grid berdasarkan kriteri yang dipilih…?
Mohon bantuannya,,,,,teimakasih…
met mlm,…bleh MinTol…
saya dpt tugas membuat form dgn isi mnggunakan 5 komponen,lalu buat jadi file exe,sya tau merubah jadi file exe tp.saya bingung mau buat sprti ap,aplgi coding’y,
tlong mas dibantu..trims
mohon email ke:christbeatles05@yahoo.com
CLOSE DATABASES ALL
CLEAR ALL
CLOSE ALL
SET TALK OFF
SET ESCAPE OFF
SET AUTOSAVE ON
SET CENTURY ON
SET DELETED ON
Set Sysmenu TO
SET DATE TO ITALIAN
SET EXACT ON
SET SYSMENU TO
IF WEXIST(“Standard”)
DEACTIVATE WINDOW (“Standard”)
ENDIF
SET STATUS BAR OFF
lclastsetpath=SET(“PATH”)
CURDIR()
SET PATH TO ;FORMS;IMAGES;CLASS;MENU;PROGRAM;REPORT;TABLES
SET SYSMENU automatic
DO FORM APPLICATION.DefaultFilePath +’\Nama_Form.SCX’
READ events
quit
Assalamu’alaikum Wr. Wb.
Master Foxpro, saya boleh minta coding untuk enkripsi dan dekripsi secara sederhana.misal pergeseran 2 huruf/angka dari abcd menjadi cdef. mohon email ke=icsafebri@gmail.com. Terima kasih sebelumnya.
Wassalamu’alaikum Wr. Wb.
Mlm Mas Icsafebri.. sorry, abru dibuka sih, blogx.. mkx baru di lihat, kalau maux mas gitu, berati gampang aja mas, coba buat sebuah form dengan 3 buah textbox, dan 2 buah Command Button.. jadi komponenx adalah , text1, text2, text3 dan command1 dan command2.. nama dari komponenx jangan dirubah.. Double clik pada command1 dan copas aja Code di bawah ini :
LOCAL huruf, letak,temp1,temp2,hasil
HASIL =”"
huruf = ALLTRIM(thisform.text1.Value)
FOR i = 1 TO LEN(huruf)
letak = SUBSTR(huruf,i,1)
temp1 = ASC(letak)+2
temp2 = CHR(temp1)
hasil = hasil+temp2
ENDFOR
thisform.text2.Value=hasil
Untuk Command2, copas Code di bawah ini, sebenarnya sama aja sih?? tinggal tanda plusnya, diganti aja sama tanda Minus.. kan ini untuk Dekripsinya..
LOCAL huruf, letak,temp1,temp2,hasil
HASIL =”"
huruf = ALLTRIM(thisform.text2.Value)
FOR i = 1 TO LEN(huruf)
letak = SUBSTR(huruf,i,1)
temp1 = ASC(letak)-2
temp2 = CHR(temp1)
hasil = hasil+temp2
ENDFOR
thisform.text3.Value=hasil
Semoga Membantu..
terima kasih mas, mau tanya lagi tapi kalau di masukkan ke .prg codingnya seperti apa mas?
Kalau untuk *.PRG, tinggal ditambahin variabel untuk membawa datanya aja.. seperti ini mas..
*=========== enkripsi ==============
FUNCTION enkripsi(vInput)
LOCAL huruf, letak,temp1,temp2,hasil
HASIL =”"
huruf = ALLTRIM(vInput)
FOR i = 1 TO LEN(huruf)
letak = SUBSTR(huruf,i,1)
temp1 = ASC(letak)+2
temp2 = CHR(temp1)
hasil = hasil+temp2
ENDFOR
vInput=hasil
RETURN vInput
*=========== dekripsi ==============
FUNCTION dekripsi(vData)
LOCAL huruf, letak,temp1,temp2,hasil
HASIL =”"
huruf = ALLTRIM(vData)
FOR i = 1 TO LEN(huruf)
letak = SUBSTR(huruf,i,1)
temp1 = ASC(letak)-2
temp2 = CHR(temp1)
hasil = hasil+temp2
ENDFOR
vData=hasil
RETURN vData
*======Contoh Penggunaa ========
Pada contoh yang pertama, co ganti aja cooding di Command1-nya menjadi :
thisform.text2.value=enkripsi(thisform.text1.value)
Dan pada Command2-nya :
thisform.text3.value=dekripsi(thisform.text2.value)
Semoga Membantu..
Para master foxpro, tolong dong!
Saya punya program, ada menu-nya yang saya kasih nama menuutama.mpr dan juga form utama-nya dgn nama frmutama. Di procedure Init pada frmutama saya kasih perintah :
DO menuutama.mpr WITH THIS
pas mau dijalankan, gak bisa (error, katanya: No parameter statement is found)
Mohon bantuannya!
Thx B4
kalau file mprnya didalam folder lagi, lebih baiknya gunakan ini aja :
do application.defaultlocation + “\nama_foldernya\nama_file.mpr”
tapi, pada default directorynya, harus di set ke foldernya aplikasi mas..
mas.. mohon bantuannya, saya lagi membuat aplikasi sistem pakar diagnosa penyakit anak menggunakan visual foxpro 9.0.. mohon bimbingannya mas..
Klu sistem pakar, yang pertama di tentukan adalah gelajanya. setahu saya, gejala penyakit ga lebih dari 5 gejala. jadi klu 5 kode dari gelaja itulah yang akan kita random untuk bisa dideteksi. jadi sedikit pakai ternik probabilitas, jadi klu gelajanya ada 5, berati kemungkinan yang akan terjadi sekitar 125. kalau kalu memakai if, berati setiap program visual punyanya microsoft hnya mencapai 64, jadi nanti di masukkan dalam method aja..
makasih mas infonya,,,
Mbak Ridha, klu ada kesulitan, share disini aja, siapa tau ada foxmania yang bisa ngebantu.
mas, mau nanya, kenapa di aplikasi kantor saya waktu dibuka ada tulisan is not visual foxpro.exe, kenapa y mas, mohon jawabannya
Coba serta file dll milik foxpro. boleh tau makai foxpro versi berapa ya??
report form rbukujurnal for;
tanggal >= thisform.txttglawal.value and;
tanggal <= thisform.txttglakhir.value;
preview
masalahnya saat mw di klik command preview muncul tulisan "operator\operand type miscmatch".. nantinya formnya mw dibuat untuk melihat lap jurnal per tanggal.. mohon pencerahannya para master…..
Mungkin txttglawal dan txttglakhirnya formatnya buka tanggal..
coba dikasih :
tanggal>=ctod(thisform.txttglawal.value) adn tanggal<=ctod(thisform.xtxtglakhir.value)
Mas makasih ya infonya… betul mas ditambah fungsi perintah ctod.. terimakasih banyak master…
Sama-sama bro..
Para Master Foxpro minta tolong donk… klo mw buat form yg juka kita klik commandnya langsung keluar report dengan nama yang diinginkan gimana ya.. Misalnya di text formnya kita ketik nama pegawai agus trus klik commandnya itu langsung otomatis kluar report data diri pegawai agus.. di reportnya sih dah saya buat apa aja yg mw di tampilkan tapi pas mw buat perintah di commandnya bingung… kira2 isi perintahnya apa ya… Mohon pencerahannya….
Letak source berikut di command1 klik :
SELECT mahasiswa .nim, mahasiswa.nama_mahasiswa,;
mahasiswa.alamat;
FROM db_mhs!mahasiswa;
where nama_mahasiswa=alltrim(thisform.text1.value) into cursor testaja
report from nama_report.frx preview
—————————————————————————————————
untuk reportnya, pada field-fieldx, double klik dan hapus nama tabelnya.. trus klik kanan pada form, pilih data environtmenx, klik tabel mahasiswa, trus delete aja..
jadi di textbox di reportnya cuman ada nama fieldx..
terimakasih atas pencerahannya master…. o iya satu lagi nih.. ada report yang saya buatsaat mw dijalankan ga bisa dijalankan hanya kedip aja.. sedangkan report yg lain yg saya buat itu smuanya berjalan normal… mohon pencerahan lagi master.. heheheheh (maklum masih pemula)
Mungkin data dicursornya ga ada.. co test aja dengan cara, selelum manggil report, browse dulu datanya..
tambahin ini pada sourcex bg..
…..
where nama_mahasiswa=alltrim(thisform.text1.value) ;
into cursor testaja
browse
——————————————————-
Klau di browsernya ada data, kemngkinan pada reportnya, field2 ga ada yang sama dengan data yang dikirim..
tapi klo memang data di cursornya ga ada, berarti perbaikin dulu queryx..
semoga membantu..
Buat tabel dengan nama program, filed-fieldnya : NOSER,DST,BTAT,BTBW,DURAW,DURAK,LMTR type datanya semua char; sizenya :50.
Potongan course tuk classnya :
buat class dengan nama deteksi masukkan listing dibawah ini :
LPARAMETERS tnDrivenumber
Declare integer GetModelNumber in diskSerial.dll Integer nDrivelpBuffer,String
DTN=space(40)
gabby=GetModelNumber(tnDrivenumber,@dtn)
*?chrTRAN(aa,CHR(0),”")
PUBLIC VLMTR,VNSRL,VBTAT,VBTBW,VDRAT,VDRBW,VDST,VUJIDA,VDTN,SYSBW, SYSAT AS String
SET CENTURY ON
SET DATE ITALIAN
VLMTR=”"
VNSRL=”"
VBTAT=”"
VBTBW=”"
VDRAT=”"
VDRBW=”"
VDST=”"
VUJIDA=”"
VDTN=”"
SYSBW=”"
SYSAT=”"
buat=ALLTRIM(DTN) && ENKRIPSI SERIAL NUMBER
source=ALLTRIM(buat)
STORE ALLTRIM(source) TO gcANSI
angka=”"
rb=”"
KM=”"
kk=”"
FOR I= 1 TO LEN(source)
angka=ALLTRIM(angka)+ALLTRIM(STR(ASC(SUBSTR(gcANSI, I))))
NEXT I
FOR J=1 TO LEN(ANGKA)
rb=ALLTRIM(rb)+CHR(val(SUBSTR(angka,j,1))+150)
NEXT J
VDTN=RB
*=======================================================
*CLOSE TABLES all
USE PROGRAM EXCLUSIVE
*=======================================================
buat=ALLTRIM(PROGRAM.NOSER) && AMBIL DATA NOSERIAL
source=ALLTRIM(buat)
STORE ALLTRIM(source) TO gcANSI
angka=”"
rb=”"
KM=”"
kk=”"
FOR I= 1 TO LEN(source)
angka=ALLTRIM(angka)+ALLTRIM(STR(ASC(SUBSTR(gcANSI, I))))
NEXT I
FOR J=1 TO LEN(ANGKA)
rb=ALLTRIM(rb)+CHR(val(SUBSTR(angka,j,1))+150)
NEXT J
FOR k=1 TO LEN(ANGKA) STEP 3
km=ALLTRIM(km)+ALLTRIM(STR(VAL(SUBSTR(ANGKA,k,3))-150))
NEXT K
FOR l=1 TO LEN(km) STEP 2
kk=ALLTRIM(kk)+ALLTRIM(CHR(VAL(SUBSTR(km,l,2))))
NEXT l
VNSRL=kk
*====================================================
buat=ALLTRIM(PROGRAM.DURAW) && AMBIL DATA DURASI ATAS
source=ALLTRIM(buat)
STORE ALLTRIM(source) TO gcANSI
angka=”"
rb=”"
KM=”"
kk=”"
FOR I= 1 TO LEN(source)
angka=ALLTRIM(angka)+ALLTRIM(STR(ASC(SUBSTR(gcANSI, I))))
NEXT I
FOR J=1 TO LEN(ANGKA)
rb=ALLTRIM(rb)+CHR(val(SUBSTR(angka,j,1))+150)
NEXT J
FOR k=1 TO LEN(ANGKA) STEP 3
km=ALLTRIM(km)+ALLTRIM(STR(VAL(SUBSTR(ANGKA,k,3))-150))
NEXT K
FOR l=1 TO LEN(km) STEP 2
kk=ALLTRIM(kk)+ALLTRIM(CHR(VAL(SUBSTR(km,l,2))))
NEXT l
VDRBW=kk
*===============================================
buat=ALLTRIM(PROGRAM.DURAK) && AMBIL DATA DURASI BATAS ATAS
source=ALLTRIM(buat)
STORE ALLTRIM(source) TO gcANSI
angka=”"
rb=”"
KM=”"
kk=”"
FOR I= 1 TO LEN(source)
angka=ALLTRIM(angka)+ALLTRIM(STR(ASC(SUBSTR(gcANSI, I))))
NEXT I
FOR J=1 TO LEN(ANGKA)
rb=ALLTRIM(rb)+CHR(val(SUBSTR(angka,j,1))+150)
NEXT J
FOR k=1 TO LEN(ANGKA) STEP 3
km=ALLTRIM(km)+ALLTRIM(STR(VAL(SUBSTR(ANGKA,k,3))-150))
NEXT K
FOR l=1 TO LEN(km) STEP 2
kk=ALLTRIM(kk)+ALLTRIM(CHR(VAL(SUBSTR(km,l,2))))
NEXT l
VDRAT=kk
*=======================================================
buat=ALLTRIM(PROGRAM.BTAT) && AMBIL DATA TRIAL BATAS ATAS
source=ALLTRIM(buat)
STORE ALLTRIM(source) TO gcANSI
angka=”"
rb=”"
KM=”"
kk=”"
FOR I= 1 TO LEN(source)
angka=ALLTRIM(angka)+ALLTRIM(STR(ASC(SUBSTR(gcANSI, I))))
NEXT I
FOR J=1 TO LEN(ANGKA)
rb=ALLTRIM(rb)+CHR(val(SUBSTR(angka,j,1))+150)
NEXT J
FOR k=1 TO LEN(ANGKA) STEP 3
km=ALLTRIM(km)+ALLTRIM(STR(VAL(SUBSTR(ANGKA,k,3))-150))
NEXT K
FOR l=1 TO LEN(km) STEP 2
kk=ALLTRIM(kk)+ALLTRIM(CHR(VAL(SUBSTR(km,l,2))))
NEXT l
VBTAT=kk
*=======================================================
buat=ALLTRIM(PROGRAM.LMTR) && AMBIL DATA LAMA TRIAL YANG DIBERIKAN
source=ALLTRIM(buat)
STORE ALLTRIM(source) TO gcANSI
angka=”"
rb=”"
KM=”"
kk=”"
FOR I= 1 TO LEN(source)
angka=ALLTRIM(angka)+ALLTRIM(STR(ASC(SUBSTR(gcANSI, I))))
NEXT I
FOR J=1 TO LEN(ANGKA)
rb=ALLTRIM(rb)+CHR(val(SUBSTR(angka,j,1))+150)
NEXT J
FOR k=1 TO LEN(ANGKA) STEP 3
km=ALLTRIM(km)+ALLTRIM(STR(VAL(SUBSTR(ANGKA,k,3))-150))
NEXT K
FOR l=1 TO LEN(km) STEP 2
kk=ALLTRIM(kk)+ALLTRIM(CHR(VAL(SUBSTR(km,l,2))))
NEXT l
VLMTR=kk
*==============================================
buat=ALLTRIM(PROGRAM.BTBW) && AMBIL DATA TRIAL BATAS BAWAH
source=ALLTRIM(buat)
STORE ALLTRIM(source) TO gcANSI
angka=”"
rb=”"
KM=”"
kk=”"
FOR I= 1 TO LEN(source)
angka=ALLTRIM(angka)+ALLTRIM(STR(ASC(SUBSTR(gcANSI, I))))
NEXT I
FOR J=1 TO LEN(ANGKA)
rb=ALLTRIM(rb)+CHR(val(SUBSTR(angka,j,1))+150)
NEXT J
FOR k=1 TO LEN(ANGKA) STEP 3
km=ALLTRIM(km)+ALLTRIM(STR(VAL(SUBSTR(ANGKA,k,3))-150))
NEXT K
FOR l=1 TO LEN(km) STEP 2
kk=ALLTRIM(kk)+ALLTRIM(CHR(VAL(SUBSTR(km,l,2))))
NEXT l
VBTBW=kk
*==============================================
buat=ALLTRIM(PROGRAM.DST) && AMBIL DATA NAMA DISTRIBUSI PERTAMA RUNNING
source=ALLTRIM(buat)
STORE ALLTRIM(source) TO gcANSI
angka=”"
rb=”"
KM=”"
kk=”"
FOR I= 1 TO LEN(source)
angka=ALLTRIM(angka)+ALLTRIM(STR(ASC(SUBSTR(gcANSI, I))))
NEXT I
FOR J=1 TO LEN(ANGKA)
rb=ALLTRIM(rb)+CHR(val(SUBSTR(angka,j,1))+150)
NEXT J
FOR k=1 TO LEN(ANGKA) STEP 3
km=ALLTRIM(km)+ALLTRIM(STR(VAL(SUBSTR(ANGKA,k,3))-150))
NEXT K
FOR l=1 TO LEN(km) STEP 2
kk=ALLTRIM(kk)+ALLTRIM(CHR(VAL(SUBSTR(km,l,2))))
NEXT l
VDST=kk
*==============================================
buat=”UJIDA”
source=ALLTRIM(buat)
STORE ALLTRIM(source) TO gcANSI
angka=”"
rb=”"
KM=”"
kk=”"
FOR I= 1 TO LEN(source)
angka=ALLTRIM(angka)+ALLTRIM(STR(ASC(SUBSTR(gcANSI, I))))
NEXT I
FOR J=1 TO LEN(ANGKA)
rb=ALLTRIM(rb)+CHR(val(SUBSTR(angka,j,1))+150)
NEXT J
VUJIDA=RB
*================== DETEKSI PEMAKAIAN AWAL ===========
buat=ALLTRIM(VUJIDA)
source=ALLTRIM(buat)
STORE ALLTRIM(source) TO gcANSI
angka=”"
rb=”"
KM=”"
kk=”"
FOR I= 1 TO LEN(source)
angka=ALLTRIM(angka)+ALLTRIM(STR(ASC(SUBSTR(gcANSI, I))))
NEXT I
FOR J=1 TO LEN(ANGKA)
rb=ALLTRIM(rb)+CHR(val(SUBSTR(angka,j,1))+150)
NEXT J
FOR k=1 TO LEN(ANGKA) STEP 3
km=ALLTRIM(km)+ALLTRIM(STR(VAL(SUBSTR(ANGKA,k,3))-150))
NEXT K
FOR l=1 TO LEN(km) STEP 2
kk=ALLTRIM(kk)+ALLTRIM(CHR(VAL(SUBSTR(km,l,2))))
NEXT l
VUJIDA=kk
*==============================================
IF VUJIDA=VDST THEN
MESSAGEBOX(“SELAMAT DATANG DI APLIKASI KAMI INI” +CHR(13)+;
“UNTUK PENGGUNAAN PERTAMA KALINYA.” +CHR(13)+;
“TERIMAH KASIH ATAS KEPERCAYAAN ANDA.”,0+64,”W E L C O M E”)
TR=DATE()+VAL(VLMTR)
buat=ALLTRIM(DTOC(TR))
source=ALLTRIM(buat)
STORE ALLTRIM(source) TO gcANSI
angka=”"
rb=”"
KM=”"
kk=”"
FOR I= 1 TO LEN(source)
angka=ALLTRIM(angka)+ALLTRIM(STR(ASC(SUBSTR(gcANSI, I))))
NEXT I
FOR J=1 TO LEN(ANGKA)
rb=ALLTRIM(rb)+CHR(val(SUBSTR(angka,j,1))+150)
NEXT J
SYSAT=RB
*====================================================================
buat=ALLTRIM(DTOC(DATE()))
source=ALLTRIM(buat)
source=ALLTRIM(buat)
STORE ALLTRIM(source) TO gcANSI
angka=”"
rb=”"
KM=”"
kk=”"
FOR I= 1 TO LEN(source)
angka=ALLTRIM(angka)+ALLTRIM(STR(ASC(SUBSTR(gcANSI, I))))
NEXT I
FOR J=1 TO LEN(ANGKA)
rb=ALLTRIM(rb)+CHR(val(SUBSTR(angka,j,1))+150)
NEXT J
SYSBW=RB
UPDATE PROGRAM SET NOSER=VDTN,DST=VDTN,BTat=SYSBW,BTbw=SYSAT
ELSE
*==================DETEKSI SERIAL DISK =================================
IF DTN!=VNSRL THEN
MESSAGEBOX(“MAAF, APLIKASI INI TIDAK DI PERKENAANKAN ” +CHR(13)+ ;
“UNTUK DINGGUNAANNYA LEBIH DARI 1 KOMPUTER..!”,0+16,”MASA TRIAL HABIS.”)
*CLOSE ALL
QUIT
ENDIF
ENDIF
*==================DETEKSI JIKA USER MERUBAH TGL SISTEM======
*================== DETEKSI PEMAKAIAN AWAL ==========
IF DATE()>CTOD(VDRBW) THEN
MESSAGEBOX(“MAAF, APLIKASI SUDAH KADALUARSA,ANDA DI SARANKAN ” +CHR(13)+ ;
“UNTUK MENGGUNAKAN VERSI TERBARU, ATAU SETTINGAN “+CHR(13)+ ;
“DATETIME DI KOMPTER ANDA TIDAK BENAR…!!!!!!!!!!”+CHR(13)+ ;
“SETITINGAN TANGGALNYA TERLALU DIMAJUKAN.”,0+16,”E R R O R”)
*CLOSE ALL
QUIT
ENDIF
*======================================================================IF DATE()< CTOD(VDRAT) THEN
MESSAGEBOX("MAAF, APLIKASI SUDAH KADALUARSA,ANDA DI SARANKAN " +CHR(13)+ ;
"UNTUK MENGGUNAKAN VERSI TERBARU, ATAU SETTINGAN "+CHR(13)+ ;
"DATETIME DI KOMPTER ANDA TIDAK BENAR…!!!!!!!!!!"+CHR(13)+ ;
"SETTINGAN TANGGALNYA TERLALU DI BAWAH SEBENARNYA.",0+16,"E R R O R")
*CLOSE ALL
QUIT
ENDIF
*=================================================================
*================== DETEKSI TRIAL PROGRAM =========================
IF DATE()CTOD(VBTBW) THEN
MESSAGEBOX(“MAAF, MASA TRIAL SUDAH HABIS, ANDA DI SARANKAN ” +CHR(13)+ ;
“UNTUK MENGGUNAKAN VERSI TERBARU, ATAU SETTINGAN “+CHR(13)+ ;
“DATETIME DI KOMPTER ANDA TIDAK BENAR…!!!!!!!!!!”,0+16,”E R R O R”)
*CLOSE ALL
QUIT
ENDIF
*======================================================================
Class Untuk menentukan atau mengisi masa trialnya :
Nama class : Buat_versi
tambahkan method1 dari Menu class dengan nama : buat
PUBLIC VNSRL,VBTAT,VBTBW,VDRAT,VDRBW AS String
SET CENTURY ON
SET DATE ITALIAN
buat=”UJIDA” && UNTUK NAMA AWAL RUNNING PERTAMA KALI
source=ALLTRIM(buat)
STORE ALLTRIM(source) TO gcANSI
angka=”"
rb=”"
KM=”"
kk=”"
FOR I= 1 TO LEN(source)
angka=ALLTRIM(angka)+ALLTRIM(STR(ASC(SUBSTR(gcANSI, I))))
NEXT I
FOR J=1 TO LEN(ANGKA)
rb=ALLTRIM(rb)+CHR(val(SUBSTR(angka,j,1))+150)
NEXT J
VNSRL=RB
*=======================================================
buat=ALLTRIM(BBTAT) && UNTUK BATAS TRIAL ATAS
source=ALLTRIM(buat)
STORE ALLTRIM(source) TO gcANSI
angka=”"
rb=”"
KM=”"
kk=”"
FOR I= 1 TO LEN(source)
angka=ALLTRIM(angka)+ALLTRIM(STR(ASC(SUBSTR(gcANSI, I))))
NEXT I
FOR J=1 TO LEN(ANGKA)
rb=ALLTRIM(rb)+CHR(val(SUBSTR(angka,j,1))+150)
NEXT J
VBTAT=RB
*=======================================================
buat=ALLTRIM(BBTBW) && UNTUK BATAS TRIAL BAWAH
source=ALLTRIM(buat)
STORE ALLTRIM(source) TO gcANSI
angka=”"
rb=”"
KM=”"
kk=”"
FOR I= 1 TO LEN(source)
angka=ALLTRIM(angka)+ALLTRIM(STR(ASC(SUBSTR(gcANSI, I))))
NEXT I
FOR J=1 TO LEN(ANGKA)
rb=ALLTRIM(rb)+CHR(val(SUBSTR(angka,j,1))+150)
NEXT J
VBTBW=RB
*=======================================================
*=======================================================
buat=ALLTRIM(BDRAT) && UNTUK BATASI USER RUBAH KEATAS
source=ALLTRIM(buat)
STORE ALLTRIM(source) TO gcANSI
angka=”"
rb=”"
KM=”"
kk=”"
FOR I= 1 TO LEN(source)
angka=ALLTRIM(angka)+ALLTRIM(STR(ASC(SUBSTR(gcANSI, I))))
NEXT I
FOR J=1 TO LEN(ANGKA)
rb=ALLTRIM(rb)+CHR(val(SUBSTR(angka,j,1))+150)
NEXT J
VDRAT=RB
*=======================================================
buat=ALLTRIM(BDRBW) && UNTUK BATASI USER RUBAH KEBAWAH
source=ALLTRIM(buat)
STORE ALLTRIM(source) TO gcANSI
angka=”"
rb=”"
KM=”"
kk=”"
FOR I= 1 TO LEN(source)
angka=ALLTRIM(angka)+ALLTRIM(STR(ASC(SUBSTR(gcANSI, I))))
NEXT I
FOR J=1 TO LEN(ANGKA)
rb=ALLTRIM(rb)+CHR(val(SUBSTR(angka,j,1))+150)
NEXT J
VDRBW=RB
*=======================================================
buat=ALLTRIM(BLMTR) && UNTUK PENENTUAN LAMANYA MASA TRIAL
source=ALLTRIM(buat)
STORE ALLTRIM(source) TO gcANSI
angka=”"
rb=”"
KM=”"
kk=”"
FOR I= 1 TO LEN(source)
angka=ALLTRIM(angka)+ALLTRIM(STR(ASC(SUBSTR(gcANSI, I))))
NEXT I
FOR J=1 TO LEN(ANGKA)
rb=ALLTRIM(rb)+CHR(val(SUBSTR(angka,j,1))+150)
NEXT J
VLMTR=RB
*=======================================================
*=======================================================
*CLOSE TABLES all
USE PROGRAM EXCLUSIVE
*=======================================================
DELETE FROM PROGRAM
SET DELETED ON
INSERT INTO PROGRAM(NOSER,DST,BTAT,BTBW,DURAW,DURAK,LMTR) VALUES(VNSRL,VNSRL,VBTAT,VBTBW,VDRAT,VDRBW,VLMTR)
MESSAGEBOX(“Build Trial program sukses dibuat.!”,0+64,”BY GABRIEL NEVES”)
Buat form untuk memasukkan masa trialnya dengan komponent sebagai berikut :
2 buah dtpicker namanya di rubah masing-masing :
1. batasatas,
2. batasbawah
3. Command1
drag class Buat_versi ke form.
ketikan listing pada command1 :
BDRBW=DTOC(thisform.batasatas._Value)
BDRAT=DTOC(thisform.batasbawah._Value)
BBTAT=DTOC(thisform.batasatas._Value)
BBTBW=DTOC(thisform.batasatas._Value)
BLMTR=ALLTRIM(STR(THISFORM.JUMlah.Value))
THISFORM.BUat_versi1.buat()
Catatan :
pada semua form di aplikasi anda :
drag class : deteksi ke form – form anda (kalau ada form splash screennya, cukup taruh disitu aja..
Untuk mencobanya, setelah anda menetukan batasan trialnya, tanggal pada system komputer anda dirubah melebihi date yang ada masukkan tadi..
Semoga membantu..
saya masih bingung, bagaimana untuk diaplikasikan ke form nya. tolong bisa penjelasan lebih jauh lagi.. email saya=icsafebri@gmail.com. terima kasih
Udah dikirim ke emailnya..
mas bambang saya minta penjelasan dari mas gabriel jg dong..
saya jg lagi butuh tentang pembuatan trial..
mohon bantuannya..
email saya mauliska@gmail.com
makasih atas masukannya, sangat membantu bagi programmer pemula. salam kenal
Sama-sama mas bambang..
assalamualaikum. wr. wb
saya mau tanya, 1. gimana caranya buat aplikasi dengan foxpro dibuat trial. misalnya untuk percobaan, dibatasi dengan 10 kali masuk ke aplikasi lalu setelah lebih dari 10 tidak bisa masuk lagi/ atau dibatasi dengan waktu. 2. gimana coding untuk aplikasi ini tidak boleh di copy ke kmptr lain, selain komputer yang digunakan. mohon bantuannya untuk coding nya. makasih. balas via email.
wassalamualaikum wr. wb
Mas bambang, sorry baru buka forum ini.. aku ada sih Versi trial buatan sendiri yang menurut aku berjalan sesuai keingin aku.. kalau mas mau, kasih dong emailnya.. biar bisa dishared.. karena aku buatnya mnggunakan class supaya instan di pakai jd ga bisa post langsung.. nanti binggung deh Hehehehehe..
Assalamu’alaikum war. wab..
disini sy masi org awam, saya mau tanya gimana cara membuat file exe pada visual foxpro??
Ichal : buat dulu file prgnya.. misalnya :
CLOSE DATABASES ALL
CLEAR ALL
CLOSE ALL
SET TALK OFF
SET ESCAPE OFF
SET AUTOSAVE ON
SET CENTURY ON
SET DELETED ON
Set Sysmenu TO
SET DATE TO ITALIAN
SET EXACT ON
SET SYSMENU TO
IF WEXIST(“Standard”)
DEACTIVATE WINDOW (“Standard”)
ENDIF
SET STATUS BAR OFF
lclastsetpath=SET(“PATH”)
CURDIR()
SET PATH TO ;FORMS;IMAGES;CLASS;MENU;PROGRAM;REPORT;TABLE
SET SYSMENU automatic
Define Pad PESAN OF _MSYSMENU PROMPT’\<CREATED By.Nama anda Hehehehe'
MODIFY WINDOW SCREEN TITLE "Nama aplikasi yang dibuat."
_SCREEN.Icon= APPLICATION.DefaultFilePath +"icon programnya (extntion .ico"
WITH _SCREEN
.MDIForm=.T.
.WINDOWSTATE=2
.MaxButton=.f.
.minbutton=.f.
.Closable=.t.
ENDWITH
_SCREEN.TitleBar= 1
RELEASE ALL
DO FORM APPLICATION.DefaultFilePath +'form yang mau dijalankan pertama kali aplikasi di jalankan'
READ events
quit
————————————————————————————–
simpan file ini, misalnya program.prg, klik kanan pada file ini, pilih set main..
setelah itu, klik tombol build pada project.. trus pilih win32 executable(exe)..
jadi deh aplikasinya..
smoga membantu.
tolong, bagaimana caranya saya mau tampilkan field numeric dengan menggunakan pemisah ribuan pada tampilan grid pada program foxpro. sebab saya sudah tampilkan data numerik tapi, tidak bisa ada pemisah ribuaannya seperti ini 120.109.000 ,
Syakir, klu untuk mengatus tampilan gitu gampang.. di tabel untuk fieldnya pakai float trus di tab decimalnya masukin angka 2.. karena format uangkan misalnya 2,000,000.50.. untuk mengatur format di gridnya, pada gridnya klik kanan trus pilih edit, setelah itu, klik pada kolom yang mau di buat formatnya, pastikan pada properties udah tampil nama kolomnya, misalnya.. column1 atau column2.. setelah itu, pada properties INPUTMASK formatnya gini
999,999,999.00 kalau angkax sampai miliaran, 3 digit depannya di perbanyak aja??
Semoga membantu.
Salam,
gan ane punya masalah nih.. saat mw print program, muncul tulisan The fields in table ‘d:\table\table1.dbf” did not match the entries database… ane dah coba “Validate database” tetapi tetep bgitu gan…. Mohon pencerahannya y para master VFP… thanks
table1nya di add pada free table aja??
pemula, minta tolong…… aku ingin membuat program sisiwa. bila di isi nis keluar foto siswa itu giman caraya…………. trim’s
tolong dong aku punya masalah ? belajar foxpro maklum baru bisa
gimana cara menampilkan foto bila saya isi kode nomor induk siswa. contoh
misal :
nis
nama
alamat
bila saya isi nik laungsung keluar foto disamping nya
trim’s atas bantuannya
salam pemula
Ass….
para master, tolongin donk! saya sudah ada program yang saya build jadi .exe dan sudah bisa dijalankan, tapi masalahnya tombol close (x) gak bisa berfungsi. tiap kali di-klik selalu tampil pesan ‘Visual FoxPro cannot quit’
mohon bantuannya!
makasih sebelumnya
pada program utama yg dibuild, yang extention .prg, pada baris terakhir tambahkan ini :
RELEASE ALL
READ events
quit
temans..bantu dong, sintak untuk bikin grafik gimana ya..kebetulan saya pake v.fox 6
mksh sebelumnya..
akhirnya ketemu jg….
aku lg mau buat program penggajian karyawan, untuk tugas akhir….
bisa minta contoh programnya gk…….
trim’s…..
mr.kuman mw tanya dong…sintak untuk convert dari excel ke dbf atau table localnya vfox, bagaimana ya??
mksh sblmnya..
** Tari….
Script Awal Tari di Share Aja, biar dibantu dengan yang lainnya…
makasih bang,,sintaknya udah ktmu!!
maaf mas, saya pemula foxpro dan pengen nyoba pemrograman dg foxpro, saya bisa mendapatkan programnya di mana ya?makasih sblmnya
Bro Kenapa setelah saya instal hasil dari instalshield saya ke komputer lain ada tulisan ini Bro “file can not find visual foxpro library”. Kira2 Itu Kenapa ya Bro….???
Mohon Pencerahannya….
^_^
Salam kenal bro..
itu masalahx krn ada file library foxpro yang tidak bang sertakan. search file-file ini dan sertakan dalam folder bang..
DiakSerial.dll; foxhelpps9.dll; foxisapi.dll; GDIPLUS.dll; HNDLIB.dll.. totalnya sih sekitar 21 file DLL. jd kalo ada email, biar aku kirimin aja ke emailx.
bg gabriel.. kirim ke email saya juga ya bg… zidnifirgoza@gmail.com
Agan2 ane butuh bantuan bagaimana cara untuk memanipulasi keyboard ketika huruf ’0” di ketikan maka secara otomatis akan menjadi ’00′. Maksudnya untuk mempercapat kasir ketika memasukan pembayaran untuk sebuah transaksi jadi tidak perlu menekan huruf ’0′ terlalu banyak. Terima kasih sebelumnya.
wp nya kerenn gan,,.
thanks n ijin sedot bro
Askum met pagi, sebelumnya salam kenal dulu,
Mohon bantuannya apa perintah untuk menampilkan Foto didalam report ( bentuk report seperti rapor sisipan anak sekolah ), jadi setiap rapor dicetak ada foto anak yg bersangkutan,
Perlu diketahui saya pakai Foxpro 6
Terima kasih bebelumnya
Rameli
Perum Tembokrejo Kota Pasuruan 67118
maz buat laporan per bulan gmn ea ?
Asslamu ‘alaikum….
salam kenal ni syifa
maz mw tanya , gimana cara ngasih Background (gambar sendiri) di project kita..
oea mas kalo project kita udah jadi EXE
tus kalo temen saya ngopy ..
itu yang dicopy apanya?? kalo di ndak punya MS.VFP???
thanks be4
mas e-Fox boleh minta alamat Y-m nya gak biar bisa chatting minta bimbingan soal foxpro… mohon bantuannya
edppusat@yahoo.com
master ane mau tanya lagi nich gimana caranya menampilkan data yang di grid sesuai dengan rumus sql atau query, misalnya aq mau nampilin data query gini di gridnya : SELECT Nama FROM t_pegawai WHERE Nip = ’012′
mohon bantuannya…
setelah listing sqlx, tambahkan INTO CURSOR DATATERSARING
trus pada gridx, datasourcex ambil dari DATATERSARING
akhirnya nemu juga buat bikin program pake foxpro, ane mau bikin program untuk tugas akhir gan,
makasih banget nih ilmunya, semoga bisa bermanfaat untuk para visitor yg lain,
maju terus gan ^_^
maaf para master2 foxpro sekalian mohon bantuannya, bagaimana caranya menambah angka 0 otomatis dan tersimpan di database. misalnya saya menginputkan angka “345″ di inputan textbox tetapi di database nya tersimpan “00000345″. sebanyak 8 numerik di database tabelnya. mohon bantuannya…
tinggal set sewaktu load form.
thisform.text1.value = 0
mas e-Fox boleh minta alamat Y-m nya gak biar bisa chatting minta bimbingan soal foxpro… mohon bantuannya
mas mw tanya apa bedanya kita buat aplikasi dengan visual basic ma visual foxpro???
sebelemunya terima kasih,,, karena sya mw pake buat TA saya nih….. solusinya…
Pada Dasarnya, Hanya Perbedaan di Bahasa Programming nya Saja, Inti Utama dari 2 Bahasa tsb CRUD. Yang jadi pertanyaannya, Bahasa Yang Mana Agan Budi Kuasain..
Semoga Sukses TA-nya..
Cara memanggil report Foxpro dgn Mysql
saya sebelum buat design report,saya buat code program di form seperti ini
SQLEXEC(koneksi,”select * from dtkry,perf where idkry=idkaryawan”,”test”)
Baru saya design report dengan menggunakan expression builder,sudah beres dan juga sudah bisa di RUN (keluar juga datanya)
nah pas saya mau panggil report dengan command button (REPORT FORM) gak bisa-bisa……. :crybaby2:
Toloooooooooooong……………..
mass boleh nanya ga gmn ya caranya pd report bila sudah di print 2 kali atau cetak dua kali ada tulisan copy soal aku cuma th pd kondisi copy ketika “print when” cuma ad cetak sekali
contoh kondisinya icmast.print=’Y’ tolong bantuannya ya mas …
para master semua…. mw tanya donk,, ada yg tw ga cara buat mengedit file exe VFP…. file yg sudah jadi exe tetapi mw di modify ulang… thankkksss yaaa
sama2… selagi saya masih bisa, saya akan bantu..
moga2 nilainya memuaskan..
Semuanya pada tau kok….
Manfaatin File Cursor, Tujuannya Tabel 1 dan Tabel 2 Ditampung dalam 1 Tabel Cursor..
Tks
thanks banget ya master… soalnya ini buat tugas kuliah saya….
terima kasih banyak ya master.. soalnya saya dah bingung buat tugas kuliah saya…
thanksss beraaaaaat…
kalo bapak punya contoh sintak hurup berjalan dan modipannya…..
mhon di kirimin.. ne email nya q.: fikristv@yahoo.co.id
makasih setelahnya moga bermamfaat…………………….
as.wr.wb……………
maf pak baru nemuin blognya….
bisa join gak di sini
assalamualaikum.mau minta tutor delphi untuk buat aplikasi surat masuk & surat keluar boleh g?
bls nya lewat email aja ya ..
ini emailnya : tania.mulyani@rocketmail.com
para master sekalian.. ane mw tanya nih…, ane dapet program foxpro,. tapi di tabel user password loginnya itu jika dimasukan character passwordnya, ga bisa di buka sesuaii dengan yg ane tulis, misalnya ja 12345 harus ditulis pake simbol 2468: gitu… itu gimana ya penjelasannya….
hmmm…
seperti setingan password yang saya punya…
btw program apa ?
biasanya, saya selalu enkrip passwordnya,
misal :
username : dana
password : 12345
di tabel login, tidak 12345, tetapi 2468:, enkrip ini untuk mencegah user tidak bisa membuka
sembarangan, untuk mo buat dekrip nya ntr saya kasih programnya…
teima kasih banget ya master… soalnya saya dah bingung klo mw nuat form loginnya… thankss berat ya…. kirimnya ke email saya ja indychairil@yahoo.com
master e-fox thanks banget ya…. bisa kelar cepet nih tugas kuliah ane…. thankkkksss ya…
minta tolong pada para master..bgimn carax menggunakan perintah set filter yg digabungkan dengan into cursor krn dlm form ada 4 kondisi/pencarian yg terisi dan hasilx ditampilkan di datagrid tanpa menimbulkan error pd saat datagrid disetfocus..
mau tanya ney,,,,
kalo form yang error cara bukanya gmna ya???
ada warning ky gini “error loading file – record number 11. cmdTop . PicturePosition : Expression evaluated to an illegal value”
formnya masi bisa dibuka gak ya??
gmn caranya?
makasih sblmnya……
halo….salam kenal saya ardi! boleh minta tolong kasih tau bagaimana caranya koneksi V.Foxpro 9.0 ke data base ODBC My SQL.saya biasanya menggunakan data base .dbf . Mohon bantuannya.
wah kasus kita sama kk, klo menghubungkannya sih aq dah tau, tinggal buat databasenya di SQL Server, trus tambahkan ODBC nya dari administrative tool di windows. nah, yg gw bingung, pas kodingnya di form gimana ya?
set defa database nya gmna…??
trus set dataenvironmentnya gmna?
trus penggunaan SQLexec() gmna ya??
Some body help plzz..
** Sebastian.
bingung, pas kodingnya di form gimana ya?
Yang Dimaksud Bingung pas di Codingan Seperti apa !
set defa database nya gmna…??
Waktu Mo Setting Di ODBCnya
trus set dataenvironmentnya gmna?
Manfaatin Table Cursor nya
trus penggunaan SQLexec() gmna ya??
contoh :
Saya Punya Data Karyawan, Dan Saya ingin Melihat Data Karyawan Berdasarkan nokary=’000/0123/000′. di sqlExec()nya.
cNokary = alltrim(Thisform.Text1,Value)
conString = sqlconnectionstring(cPath)
comSQL = “Select * from karyawan where nokary=?cNokary ”
comExec = SQLEXEC(conString,comSQL,”temp”)
ini kah yang dimaksud…
Maaf, Baru Bisa Buka Forum ini, dikarenakan sedang ada kesibukan di kantor..
Disini saya Menggunakan MySQL Connectornya V 3.51
*!* Set Variabel
cServer = ‘localhost’
cRoot = ‘root’
cDB = ‘Database Kamu’
cpwd = ‘Password Mysql Kamu’
cPort = ’3306′
cPath =”Driver={MySQL ODBC 3.51 Driver}; Server =” +cServer+;
“; db=”+cDB+;
“; pwd=”+cpwd+;
“;uid=”+cRoot+;
“;port=”cPort
=SQLSETPROP(0,”",3)
conString = sqlconnectionstring(cPath)
if conString > 0
messagebox(conString) ** Jika conString Bernilai 1 ato lebih, maka koneksi berhasil
else
=AERROR(cError)
messagebox(“Periksa Settingan Koneksi”+chr(13)+;
“Pesan Error :”+cError[2])
endif
Semoga Membantu..
ok sudah bisa connect.tp,sekarang ada masalah…cara buat data environment nya gimana yah…
saya ingin menggabungkan tabel1 dengan tabel2 yang ada di tabel Mysql
mohon bantuannya
terima kasih
DEar mrukman,
Pak, tolong dong dibuatkan tutorial membuat aplikasi untuk di ruang tunggu,
biasanya disitu ada tulisan berjalan gambar berganti-ganti.
Best Regards,
Supriyadi
Berapa Budget nya ?
om file softwere vfp 0.9 tu berapa ukuran filenya yang asli sampai 1GB om…..?
Maha guru, bagaimana script Foxpro6 untuk menghasilkan Print File (Report Form) kedalam file PDF. Makasih, saya perlu sekali.
coba install dopdf,/ acrowrite atau software untuk membuat pdf. Kemudian dia akan dianggap sebagai printer. jadikan aja default printerya software itu.
Setiap kali kita ngeprint otomatis akan jadi pdf fie.
aku pemula nih, aku buat program di komputer rumah, tapi kalo dipindah di komputer kantor kok ndak jalan ya
menurutku sih, default directorynya ga sesuai kk..
coba cek di foxpro->tools->option trus cari default directory, trus set ke folder tempat file project yg baru dicopy ke kompi kantor.
atau bisa juga caranya gini..
copykan semua file project ke d:\project\ (punya kantor)
trus buka foxpro trus ketik di command window
SET DEFA TO d:\project\
nb. klo semua file satu folder ya (form, dbf, dll), klo udah dipisah2, ya set satu-satu di optionnya.. hehe..
met mlm semua
q mau tanyak siapa yang tau penulisan rumus dengan sintak visual foxpro
q lgi bingun nech
rumus apa?
rumus luas persegi panjang :
L=p*lb
Mat soreh para pakar semuanya…
saya pemula foxpro..gimana cara mengupdate file excel ke dbf…??????
pakai import
Mat soreh pa..saya pemula foxpro…saya ingin mengupdate data dari excel ke dbf, gimana caranya ya…tolong aku dong…
Kebutuhan yang mo di Update Seperti Apa ?
kenapa harus dari Excel, kan bisa dari Formnya langsung
apa banyak Record yang harus di update ?
klo aq sih biasanya caranya gini,
file yang di excel aq save as comma separated value (.CSV)
trus dari foxpro aq import pake wizard. biasanya langsung masuk tuh..
simple kan..
atau bisa juga pake perintah import..
mw tanya gan…. saya ini pemula di fox pro,.. itu gimana ya nambah jumlah huruf di textbox??? soalnya cuma bisa 10 char,, jika di tambah lagi dia akan otomatis berkurang
coba cek di formatnya gan…
Assalamu’alaikum wr wb.
Saya baru searching2 karena kebingungan membuat penomoran otomatis dlm pemrograman visual foxpro, lalu saya ketemu blog ini. Dalam hati saya semoga dalam forum diblog ini saya bisa menemukan jawaban yang lebih bisa saya pahami karena sebagai pemula banyak hal yg masih saya belum ketahui.
Begini saya punya tabel yang saya beri nama tblpsb dengan field2 nourut, tglpermohonan, …. nah bagaimana membuat no urut otomatis akan tetapi no urut tersebut akan ter-reset atau kembali ke awal mulai dari 1 lagi bila berganti bulan/pd bulan berikutnya. Sedangkan format penomoran saya begini saja “00001″
Demikian, semoga para senior disini berkenan menjawabnya. Terimakasih
LOCAL nmr, last_month
SELECT tblpsb
GO BOTTOM
nmr = nourut
last_month = MONTH(tglpermohonan)
IF MONTH(tglpermohonan) = MONTH(DATE())
nmr = nmr + 1
ELSE
nmr = “00001″
ENDIF
INSERT INTO… bla bla bla.. nourut isi pake nmr.
Assalamu’alaikum Wr. Wb.
Mohon saran saya pakai database ( dbf ), sering kali file database minta di validasi, terkadang table terprotec tidak bisa di open apa penyebabnya dan bagaimana cara me-repair agar table bisa dibuka kembali, terima kasih sebelumnya
Wassalamu’alaikum Wr. Wb.
kalau mau update data dalam satu form tapi dari tabel yang berbeda skripnya gmana ??
mohon bantuannya….saya bingung banget nie
ketik aja perintah updatenya 2 kali.
This is a place for good inspiration, your blog is really interesting..thanks for that post it was really really awesome…
Master caranya buffernya gimana ya
mohon bantuan dong di pemprograman foxpro sy baru belajar,tabel utk vgrpkok sy tidak mau otomatis di isi kan jumlahnya dan tidak otomatis jln krn setting tgl prosesnya juga eror krn tidak mau proses utk penggantian th antara bln des 2010 ke jan 2012 bisa ada yg bantu..thank before
pertanyaannya apa?
tolong bantuan nya master…saya ada master piutang ketika saya mau menambahkan data ada pesan ada hambatan print file msg.log (dos eror 4)…gimana ya mengatasinya
Bos, Dos Error 4 itu, Too Many Open File…biasanya hanya setting Files dan Buffer di Config.sys nya aja dibanyakin…
bagaimana cara membuat program client server pada foxpro 9.0 dengan SQL, apa ada contoh listnya.. mohon bantuannya, krn ini tugas akhir dari skripsi saya..
Yang paling mudah pakai ODBC. Atau tulis syntax sendiri.
Misalnya kita pakai ms Sql Server,koneksinya seperti ini :
kalimat=”Driver={SQL Server};server=”+nmserver+”;database=”+nmdatabase+”;uid=”+nmuser+”;pwd=”+pwd
konesiku=Sqlstringconnect(kalimat)
Nanti untuk membuat querry tingal gunakan koneksi tersebut, misalnya :
sqlexec(koneksiku,”select * from bla bla bla bla”,”cursbaru”)
saya sudah buat program utk RSU Lasinrang Kab.Pinrang tp blm client server.. trus pernah coba seperti yg diatas, tp di grid koq ga muncul.. makasi atas bantuannya.. program saya ini, saya mau implementasikan di RSU Lasinrang Kab. Pinrang (SUL-SEL)
wah.. ternyata ini yg kucari..
Masa sih gak muncul? saya selalu pakai tu.. saya juga buat software untuk beberapa RSUD di Jateng, pakai metode itu.
maaf ya, saya masih pemula di foxpro, bisa tidak di pandu dalam pembuatan koneksinya.
kan yg kita butuhkan itu:
1. Xamp
2. My Sql ODBC
3. V. Foxpro
nah, yg slu failed kalau sy test itu pada saat buat pembuatan DSN nya. tiap minta di test slu failed.. mohon bantuan sodara. ini alamat email saya: taufiktony@yahoo.co.id
maaf lagi, tiap ada source kodenya, di tempatkan dimana mksdnya di lostfocus, load, atau di active atau di init atau saja di bentuk extensi prg. maaf ya.. mohon bantuannya.
tadi salah tempat
OO pakainya mySql? bukan SQL Server?
Kalau pakai MySQL coba download myodbc…
Kalau pakai SQL Server cukup pakai ODBC
cara ngprint ata2 foxpro gmana mas??
maaf ya, saya masih pemula di foxpro, bisa tidak di pandu dalam pembuatan koneksinya.
kan yg kita butuhkan itu:
1. Xamp
2. My Sql ODBC
3. V. Foxpro
nah, yg slu failed kalau sy test itu pada saat buat pembuatan DSN nya. tiap minta di test slu failed.. mohon bantuan sodara. ini alamat email saya: taufiktony@yahoo.co.id
maaf lagi, tiap ada source kodenya, di tempatkan dimana mksdnya di lostfocus, load, atau di active atau di init atau saja di bentuk extensi prg. maaf ya.. mohon bantuannya.
Jadi di prg utama, tulis :
public koneksiku
kalimatsl1=”Driver={SQL Server};server=”
kalimatsl2=”;database=”
kalimatsl3=”;uid=”
kalimatsl4=”;pwd=”
kalimatsl=kalimatsl1+nmserver+kalimatsl2+nmdata+kalimatsl3+nmuser+kalimatsl4+pwd
koneksikul=Sqlstringconnect(kalimatsl)
nanti di tiap syntax select atau insert atau update atau delete, tinggal panggil variabel koneksiku :
sqlexec(koneksiku,”select * from bla..bla..bla……”,”cursor1″)
atau : sqlexec(koneksiku,”insert into tbcustomer(kode,nama)values(?kdku,?nmku”)
begitu
Hallo para master.. say aminta tolong dong..
Saya buat 1 grid dengan 4 column, isinya cursor hasil pencarian. Bagaimana caranya agar lebar kolom pertama menyesuaikan dengan lebar isinya. Jadi misalnya kolom pertama isinya cuma Budi -> kolom itu akan sempit. Tapi kalau isinya menampilkan : Bisma Kharisma, kolomnya ikut jadi lebar. ( mengikuti jumlah font paling besar dari hasil pencarian itu).
mohon bantuannya dong,,, field saldo di reportku hanya menampilkan tanda bintang, padahal datanya ada….. kalau nilai saldonya hanya ribuan angkanya muncul.. tapi kalau jutaan angkanya berubah jadi tanda bintang.. mohon solusinya.., terima kasih sebelumnya
ditambahin lagi formatnya di report sampai jutaan…
contoh : 999,999,999
ty
sempurna,,,,,,.terima kasih banyak ya,,,ternyata mudah, memang selama ini formatnya sdh 999,999,999 karna saya anggap sudah mencapai 100 jutaan, setelah dp petunjuk mr. algojo saya tambahkan menjadi 999,999,999,999 maka hasilnya sesuai dgn yg saya inginkan bintangnya hilang,,,, sekali lg terima kasih utk semuanya…..
terima kasih sebelumnya saya bisa belajar foxpro dari forum ini(mr.Kuman) . saya ingin tanya, gimana caranya agar pada saat input angka di textbox langsung diberikan pemisah ribuan.,, saya udah coba atur inputmask nya seperti ini 999,999,999 dan format nya R tapi tetap aja saat di input tanda komanya ngga sesuai dngn angka yg di input, di textbox muncul tanda koma 2 bh tapi saat angka diinput cth: 1500 maka jadinya seperti ini : 150,0 ,
padahal inginnya seperti ini : 1,500. mohon bantuannya ya,……..
Disaya Bisa Kok dengan Format yang Agan Rahmad Punya, saya sudah test dan sesuai outputnya menjadi 1.500…
coba, di cek lagi propertiesnya pada textbox yang mau dibuat bilangan..
ty
coding simpan padapage frame gmn y gan?
Menerima Panggilan / Private Pembuatan Program aplikasi General Ledger (Akutansi), menggunakan Visual Foxpro 9.0, dengan Ruang lingkup :
* Jurnal Kas, Jurnal Umum / Memorial, Jurnal Penyesuaian
* Laporan Ledger, Trial Balance, Income Statement, Balance Sheet
* Tabel User (Login), Document/Voucher, Supplier, Customer,
* Master COA, Subgroup COA
* Proses Posting, UnPosting, Closing, UnClosing, Setup Saldo Awal
* Setup Format Income Statement, Balance Sheet, dan Laporan2 khusus
* Waktu : 5 hari @ 4 jam, tersedia Diktat/Textbook ttg langkah2 yg dibutuhkan.
* Hasil kursus berupa Source Code (Source Program) yg dapat dimodifikasi dan
dikembangkan sendiri sesuai kebutuhan anda
* Hub : Tomo 081281505128
haaaaaalllooooo
para Kkk master tlg kasih tau dong syntax membuat login pada foxpro 6.0..
login apa aja deh …
plissssssssssssssssssss
para master tolongin saya dong,.? saya baru di foxpro… saya ingin buat nomor secara otomatis pada tabel yang sudah ada isinya,,,misalnya tabel siswa dgn field no; nama ;tempat lahir; dst. tapi pada saat input no tdk diisi, tapi setelah data siswa diisikan dan disimpan pada tabel kemudian baru no terisi secara otommatis dgn menekan sebuah tombol comand, kalau diisi pada saat input data lalu ada nama sisiwa yg harus diisikan di tengah table tentu no urutnya ngga berurutan, dan inginya nomornya pakai angka nol didepannya.
no I Nama I Tempat lahir.
1 Anto Medan
2 Budi Jakarta
3 Lilis Malang
4 Susi Palembang
5 Wira Papua
Kalau ada siswa dgn nama Bambang dan diinput belakangan maka jadinya
no I Nama I Tempat lahir.
1 Anto Medan
2 Budi Jakarta
3 Lilis Malang
4 Susi Palembang
5 Wira Papua
6 Bambang Manado
maunya Bambang masuk di no 2 setelah budi, tetapi nomor tetap berurut 1 – 6 dan nama berurut sesuai abjad walaupun di input tdk berurutan. sebelumnya terima ksh.
alow.. klo boleh tau, menggunakan database apa, dbf ato MySQL..
klo menurut saya, untuk kasus ini :
———————————————————————————————–
Kalau ada siswa dgn nama Bambang dan diinput belakangan maka jadinya
no I Nama I Tempat lahir.
1 Anto Medan
2 Budi Jakarta
3 Lilis Malang
4 Susi Palembang
5 Wira Papua
6 Bambang Manado
———————————————————————————————–
coba di berikan indexnya. dan gunakan [set order to nama], klo mysql gunakan asc ato desc…
semoga membantu
database yg dipakai apa ya ???
dan coba cek scriptnya..
terutama yg ad kata “ORDER BY”… pada form brsangkutan…
^^
database yg dipakai dbf, maaf kalau penjelasannya kurang jelas, maksudnya ada tabel yg diinput melalui form yang diinput hanya nama, alamat, tempat lahir dst. tanpa input nomor urut. nomor urut inginnya secara otomatis masuk ke tabel pada field no pada saat tombol comand (generate no urut) di click sehingga input nama pada form bebas tanpa harus input berdasarkan abjad, karena di tabel indexnya nama (set order to nama) lalu setelah itu nomor urut secara otomatis diberikan pada setiap record. kira2 tabelnya
no I Nama I Tempat lahir.
001 Anto Medan
002 Budi Jakarta
003 Lilis Malang
004 Susi Palembang
005 Wira Papua
lalu ketika ada input nama Bambang diharapkan tabelnya akan seperti ini :
no I Nama I Tempat lahir.
001 Anto Medan
002 Bambang Medan
003 Budi Jakarta
004 Lilis Malang
005 Susi Palembang
006 Wira Papua
gimana caranya agar nomor urut tetap berurut walaupun nama diinput tidak berdasarkan abjad tetapi setelah nama diurutkan secara abjad no urut tetap tidak berubah..tetap berurut, maaf ya kalau penjelasannya kacau….maklum aja ya….. sebelumnya saya ucapkan terima kasih….
terima kasih atas segala petunjuknya, setelah saya coba lagi dan lagi hingga pusing akhirnya saya dapat membuat penomoran secara otomatis pada tabel setelah berisi data ,,,,,,,forum ini sangat membantu,,,,,,….
saya buat codingnya seperti ini..
LOCAL I,N,a
SELECT bku
COUNT TO N
IF NOT EMPTY(bukti) THEN
FOR I = 1 TO N STEP 1
GO I
IF I 9 then
replace bukti WITH “”
ELSE
replace bukti WITH “”
ENDIF
ENDIF
ENDFOR
ELSE
ENDIF
SELECT bku
SET ORDER TO TGL && TGL
COUNT TO N
IF bukti = ” ” THEN
FOR I = 1 TO N
a=I+1
GO top
replace bukti WITH “001″
SKIP I
IF I 8 .and. I < 99 then
replace bukti WITH "0"+str(a,2,2)
ELSE
replace bukti WITH str(a,3,1)
ENDIF
ENDIF
ENDFOR
ELSE
ENDIF
jadi ketika dijalankan seluruh record akan di beri nomor urut dari 001 s/d record terakhir yg ada di tabel berdasarkan tgl .
kira2 apakah coding saya sdh baik atau terlalu ribet atau bisa disederhanakan ya..? terima kasih sekali lg..
Bagaimana cara nya untuk connect online database dbf ?
apakah bisa, kalau bisa bagaimana caranya ?
thx
please e-mail jony_jkt@yahoo.com untuk jawabannya .
Driver = “DRIVER={MySQL ODBC 3.51 Driver};DESC=;DATABASE=”;
+nmdatabase+”;SERVER=”+nmserver+”;UID=”+nmusername+;
“;PASSWORD=”+nmpass+”;PORT=;OPTION=;STMT=;”
itu contoh script bwt akses….
klw km ud explore, pst paham arti tiap katanya…
smngat ya… ^^
Terima kasih pak sebelumnya Saya sangat berterima kasih kepada anda .untuk formula pemrograman fisual foxpro
Itu berarti koneksi agan yang masalah, bukan di runtime..
mohon bantuannya…ada yg tau contoh listing untuk program stok yg menggunakan rumus untuk mencari harga pokok penjualan gak??? yg menggunakan FIFO,LIFO,AVERAGE..
mohon jg d bantu listing perulangannya…
wah itu si complex program, tapi ini inti nya rumus fifo kaya apa dan lifo apa ,dan average , dari semua itu tidak bisa di jalan kan dalam 1 system dan itu hanya bisa di pilih 1 system dalam keseluruhan, jadi program yg harus di buat harus bisa menjalankan 3 fungsi itu jadi . contoh
jika yg di pilih fifo maka HPP=HargaBeli jadi patokan harga akhir
jika yg di pilih Average HPP=(HargaBeli+HargaAwal)/2
jadi tinggal di kembangkan aja biar bisa ngerti fungsi itu
cba aj test dgn cara…
1 form bwt 1 rumus… untuk menghidari crash…
klw ud sukses… coba gabungin… dsitu baru trasa agak pusing…
test aj gan…
Oh , rame juga . ini aku mau bantu aja untuk pemula, aku dulu pernah mau nerbitkan buku visual fox pro, tapikarena kata penerbit lagi tidak ngetrend maka gak jadi di terbitkan jadi bag i yang mau belajar visual fox pro untuk pemula silahkan download ebook saya di alamat di bawab ini :
http://www.multibisnis.com/free%20download.php
Terimakasih
Semoga bermanfaat
ldbf = SYS(5)+SYS(2003)+”\”+”Lap_Bulan”+”-”+SUBSTR(DTOC(vst), 4, 2)+”-”+SUBSTR(DTOC(vst), 7, 4)+”.xls”
WAIT WINDOW NOWAIT “Selesai…”
DELETE FILE (ldbf)
loexcel.displayalerts = .F.
IF VAL(loexcel.version)>11
oworkbook.saveas(ldbf, 56)
ELSE
oworkbook.saveas(ldbf)
ENDIF
oworkbook.close(ldbf)
LOCAL loexcel
loexcel = CREATEOBJECT(“excel.application”)
oworkbook = loexcel.workbooks.open(ldbf)
loexcel.visible = .T.
thisform.release
script ini untuk menampilkan report dalam bentuk excel2003,
masalah saya ingin menampilkan report dalam bentuk excel2007, gimana caranya yaa… mohon bantuannya, terima kasih.
nfile=GETFILE(“XLSX”,”Input”,”Simpan”,0,”Masukkan File Excel”)
IF !EMPTY(ALLTRIM(nfile))
SELECT cur_cmhs **alias untuk tabel//
COPY TO ALLTRIM(nfile) TYPE XLSX
MESSAGEBOX(“Proses Selesai….”,64,”Informasi”)
ENDIF
coba ini bro….
tp pas gw coba, dia error wkt “getfile”…
soalnya gw ga ad office 2007…
spa tw klw ad, bsa jalan…
Mr. kuman saya minta tolong dibuatkan contoh listing program menggunakan visual Basic tentang penjualan pada sebuah perusahaan distributor…
tolong di message ke email facebook saya : bingunk_cool@yahoo.co.id,
saya mnta tlong bgt bntuannya…
trim’s
ass, mau tanya nih . gmana caranya menggunakan 2 tabel didalam 1form ?
macam2 caranya, contohnya utk apa?
gimana perintah cetak photo variable pada foxpro_9,
misalnya : program untuk kartu SIM (foto tercetak di kartunya)
thx
Pakai form yg sama tapi pembayarannya ambil data dr file DP,
FLownya :
1. Form Entry DP => masuk ke file DP.dbf
2 Form Entry bayar => ambil (combo box) dr daftar DP (DP.dbf)
alow master,
mo nanya gimana cara packing file .exe tanpa menggunakan InstallShield
master, gimana caranya untuk menggabungkan dengan tiga database
mas tanya dong,
kalo mau CETAK FORM yang lagi aktif gimana sih???
karena ngak mungkin dicetak pakai report (*.frt)
kasih contohnya dong, saya dah googling tapi ngak nemu2.
THX
Gak bisanya kenapa ya, sy kok bisa pakai command biasa aja tuh,
REPO FORM VCRPAY PREVIEW
tapi properties showwindow di formnya pakai value 2-As top level form
maunya saya, apa yang terlihat di FORM di print (Form dan datanya)
saya d coba REPO FORM VCRPAY PREVIEW + ganti properties nya. ai hasilnya tetap error?
thx
dah coba pake command SAVE SCREEN blum?
tlong dong saku lagi bikin program sistem pakar,, aku pake tombol option group untuk membuat pilihan tp aku bingung pd saat mo disimpan sllu sj gak bisa tersimpan,, tlong dong bantuannya mr. kuman ksih tw scrypt di tmbol simpan biar optgrupnya bs ikut tersimpan ke dalam tabel kyak teks2 yg lain..
trus aku juga cb mengkoneksikan data yg ada di tabel 1 ke tabel 2 biar pas kita jlnkan form ke2 gak prlu nulis lgi, mslkan no_pasien di table 1 yg sdh kita input sblmnya di form input data nasabah kita panggil lagi di form konsultasi pake combobox.
nah scryptnya sdh sy msukkan tp pas di klik combobox nya no_pasien yg sdh tersimpan gak muncul..
- utk optiongroup recordsourcenya di isi nama field yg akan menyimpan data,
- kalau combobox, pakai rightclick terus Builder aja, gampang kok
Assalamu’alaikum,
Mr. Kuman boleh minta tlong bantu, saya lagi buat program rental pengetikan menggunakan foxpro dan mysql, saya belum terlalu paham menggabungkan kedua program ini, bisa gak saya dikasih contoh program yang sudah jadi, tlg kirim di email saya rinistmikadhiguna@gmail.com, makasih banyak
mo nanya dunkz.. gmana cara ambil file dari lokal ke form yg akan ditampilkan agar data terlihat mudah dibaca user (misal date nya yg tadinya masih yymmdd=> 111114 menjadi 14-11-2011)
ini mo di tampilin di Form nya ato gmana yah,
klo mo di tampilin di Form tinggal buat di Form Load Set Date Brit
Mohon bantuan ny master, saya kn sedang merancang menu….saya ingin pada saat menu di jalan kan, wktu saya membuka form yg ada saya ingin form yg lain nya tidak dapat di akses, sebelum form yg saya buku itu ditutup…
mohon bantuannya master….
Mohon bantuan ny master, saya kn sedang merancang menu….saya ingin pada saat menu di jalan kan, wktu saya membuka form yg ada saya ingin form yg lain nya tidak dapat di akses, sebelum form yg saya buka itu ditutup…
mohon bantuannya master….Please Master…
atur property showwindow = 2 – as top-level
Hmmm…. di Propertiesnya Setiap Form Dirubah WindowTypenya menjadi Modal..
alow para master ane mohon bantuan ni ane punya listing di transaksi penjualan tapi debug mulu di method nomor ni listingannya kaya gini
sele 5
go bottom
no=ltrim(str(val(right(transaksi.nofak,2))+1))
do case
case val(no)<10
no="00"+no
case val(no)<100
no="0"+no
endcase
SET DATE ITALIAN
a=DATE()
tanggal=LEFT(DTOC(a),2)
bulan=substr(DTOc(a),4,2)
tahun=right(DTOc(a),2)
no_p="aaa"+tahun+bulan+tanggal+no
thisform.txtnofak.value=no_p
yang debugna di no_p="aaa"+tahun+bulan+tanggal+no
operator\operand type miscmatch mulu kira2 apanya ya ad yg bisa bantu ga
alow…
itu diambil date nya perhari atau sudah ada di databasenya ?
cek aj value type untuk data2 trsebut…
dan jgn lupa pakai ALLTRIM…
^^
coba periksa type variable “no” itu jadi numeric atau jadi charakter … ^_^
di rubah semua menjadi character biar bisa masuk , dan data simpan harus type character , ini juga agar bisa di convert menjadi data asal
ass, saya minta tolong saya ada buat form login dengan coding:
1. IF EMPTY(thisform.txtusername.Value) OR EMPTY(thisform.txtpass.Value ) then
MESSAGEBOX(“ISIAN BELUM LENGKAP !!!”,0)
2. USE “D:\NARUTO (D)\KAZEKAGE\Modul FoxPro 9.0\tugas kelompok\tlogin.dbf”
LOCATE FOR user_name=ALLTRIM(thisform.txtusername.Value) .and. password=ALLTRIM(thisform.txtpassword.Value)
IF FOUND()
masalahnya???:
1. cara pertama bisa login tapi dia hanya membaca record pertama saja record selanjutnya tidak terbaca.
2. cara kedua bisa login tapi jika kita “HANYA MENGISIKAN” username atau password saja dia tetap bisa masuk, selain itu jika kita isikan username dengan password yang berbeda tetap juga bisa masuk.
tolong bantuan nya???>>>thenks..
Untuk pembuatan password smestinya dibuatkan database untuk penyimpanan username+paswordnya,
1. user name : XXX, dan password YYY, dan database misal namanya mPass.DBF codingnya dibuat setelah pengetikan di password > LOST FOCUS:
a. IF EMPTY(thisform.txtusername.value) or EMPTY(thisform.txtpass.value) OR left(thisform.txtusername.value,1)=” ” or left(thisform.txtpass.value,1)=” ”
Close All
QUIT
ELSE
select A && nama fieldnya nm dan ps
USE mPass.DBF
GO TOP
DO WHILE !EOF()
IF nmthisform.txtusername.value AND psthisform.txtpass.value
SKIP
ELSE
DO FORM MENU.SCX
ENDIF
IF EOF()
EXIT
ENDIF
ENDDO
QUIT && berarti belum terdaftar
coba cek SET EXACT ON
SQLSETPROP(Koneksi,”DispLogin”,3)
Koneksi = SQLSTRINGCONNECT(Driver)
IF Koneksi >=1 && Jika Koneksi Sukses…
SQLEXEC(Koneksi,”SELECT * FROM tb_petugas WHERE id_petugas=?mnoid;
and password=mpassword”,”CurKarywan”)
IF RECCOUNT(“CurKaryawan”)>=1
MESSAGEBOX(“Selamat, Anda Dapat Menggunakan Program ini….?”,64,”Sukses”)
PUBLIC Vnoid,VNamaUser,TKUSER,vjabat
VKDOPR = id_petugas
VNamaUser = nama_petugas
vjabat = jabatan
TKUSER = level_akses
Thisform.Release
_screen.MinButton = .t.
_screen.MaxButton = .f.
_screen.AlwaysOnTop= .F.
_screen.BorderStyle= 2
_screen.Closable= .t.
_screen.WindowState= 0
USE IN SELECT(“CurKaryawan”)
DO mainmenu.mpr
DO FORM menu-utama.scx
ELSE
MESSAGEBOX(“Maaf,No Id atau Password anda salah dan atau juga belum diisi …!”,16,”Gagal”)
Thisform.txtkode.SETFOCUS()
ENDIF
ELSE
MESSAGEBOX(“Koneksi ke server gagal…!” + CHR(13) + ;
“Hubungi Administrator Anda untuk Informasi lebih lanjut…!”,64,;
“Koneksi Gagal Ke Server”)
Thisform.cmdoption.Caption = “<< Option"
Thisform.txtServer.SetFocus
Thisform.Height = 320
ENDIF
**** itu untuk sql…..
skrg, km coba pahami scriptnya…
pst ad yg bs dpakai…
^^
Gi mana sie rumus kalkulator dg menggunakan fox pro
astaga….
ini mah ketahuan bgt mls explore skill….
yg penting km pernah pakai kalkulator + paham algoritma….
psti bs… ^^
boss..mau tanya donk, aku udah share terus udah copy file2nya kesmua kompi, trus pada saat buka exe nya di komputer yg lain kok ga keluar yah ,malah ada bacaan data koneksi error, padahal koneksi lancar2 aja..mohon bantuannya, terima kasih banyak sebelumnya
port + driver + software spesifikasi yg dperlukan…
dicek aj bro ^^
mohon bantuanya dong, sya sebentar lagi akan sidang konvre dan prog yang saya pakai adalah foxpro 9.0, dan saya mohon bantuan bagaimana caranya mengelompokan entry data dari Nis yang sama tapi dalam periode input yang berbeda. contoh “Budi npm=001 dan dia membayar pada tanggal 1, tanggal 10 dan tanggal 15″. nah mohon bantuan gimana cara menampilkan transaksi tersebut kedalam satu laporan yang berurutan sedangkan inputnya pada tanggal yang berbeda.
mohon bantuanya mas, saya tunggu di email saya
slamet.spd@gmail.com
FB : dearlovers@ymail.com
sebelumnya terimaksih
saya ingin gabungan dong aku anak amik semester 3 di kota probolinggo jatim
ass..
kak tolong bantu donk saya bikin program pembelian tunai pada form transaksi saya pada saat dipilih no po harusnya muncul no po yang dipilih ja pada grid yang ada..
tolong donk kasih tau listing programnya
terimakasih
di set filter ja berdasarkan no po
mohon bantuannya yah, saya baru belajar fox pro, adakah dasar untuk membuat saya memahami logika-nya. terima kasih.
coba di gooling aja, keyword ‘Modul-VisualFoxpro’
basic dr setiap programming adalah “ALGORITMA”…
klw ngerti itu, psti bsa apapun softwarenya… ^^
gimana code buat menampilkan kode barang otomatis saat jenis barang dipilih
contoh: tv 21 inch 21T
4 kode belakangnya no urut muncul otomatis
jadi : 21T0001
mohon dibantu!!
untuk bikin kode di database, harus menggunakan 2 field : 1 berupa numerik (int/word) sebagai temp, dan yg ke 2 kode asli yang akan ditampilkan di form (miss : 21T0001).
Algoritma :
=========
miss :
field 1 urut type data integer
field 2 nim type data string
var : urut : integer
urut <- urut terbesar (yg ada di database)
if urut = 0 then
urut<-1
else
inc(urut)
if urut < 10 then urut <- '2IT000'+inttostr(urut) else
if urut < 100 then urut <- '2IT00'+inttostr(urut) else
if urut < 1000 then urut <- '2IT0'+inttostr(urut) else
if urut < 1000 then urut <- '2IT'+inttostr(urut) ;
Smoga membantu…tq
semau pertanyaan kamu layani di http://www.kastok.net
bos gimana caranya buat sistem mlm melalui foxfro.
thx gan dah bisa….
saya mau tanya gimana sih cara’y klo bkin hak akses dlm vs.foxpro 9.0
saya newbie dalam hal Visual FoxPro….. Mohon bantuannya… Saya punya script sperti ini :
APPEND BLANK
replace id_c with thisform.text1.Value
Replace nama_c With Thisform.text2.value
Replace alamat_c With Thisform.text3.value
Replace dusun_c With Thisform.text4.value
Replace rt_c With Thisform.text5.value
Replace rw_c With Thisform.text6.value
Replace desa_c With Thisform.text7.value
Replace kec_c With Thisform.text8.value
Replace kab_c With Thisform.text9.value
Replace prov_c With Thisform.text10.value
Replace kodepos_c With Thisform.text11.value
Replace kt1_c With Thisform.text12.value
Replace t1_c With Thisform.text13.value
Replace kt2_c With Thisform.text14.value
Replace t2_c With Thisform.text15.value
Replace kf1_c With Thisform.text16.value
Replace f1_c With Thisform.text17.value
Replace kf2_c With Thisform.text18.value
Replace f2_c With Thisform.text19.value
Replace cp_c With Thisform.text20.value
Replace sales_c With Thisform.text21.value
Replace area_c With Thisform.text22.value
Replace diskon_c With Thisform.text23.value
Replace jt_c With Thisform.text24.value
Replace ket_c With Thisform.text25.value
messagebox(“Data Sudah Tersimpan…!”,64,”info”)
thisform.grid1.refresh()
thisform.grid1.setfocus()
thisform.text1.Enabled= .F.
thisform.text2.Enabled= .F.
thisform.text3.Enabled= .F.
thisform.text4.Enabled= .F.
thisform.text5.Enabled= .F.
thisform.text6.Enabled= .F.
thisform.text7.Enabled= .F.
thisform.text8.Enabled= .F.
thisform.text9.Enabled= .F.
thisform.text10.Enabled= .F.
thisform.text11.Enabled= .F.
thisform.text12.Enabled= .F.
thisform.text13.Enabled= .F.
thisform.text14.Enabled= .F.
thisform.text15.Enabled= .F.
thisform.text16.Enabled= .F.
thisform.text17.Enabled= .F.
thisform.text18.Enabled= .F.
thisform.text19.Enabled= .F.
thisform.text20.Enabled= .F.
thisform.text21.Enabled= .F.
thisform.text22.Enabled= .F.
thisform.text23.Enabled= .F.
thisform.text24.Enabled= .F.
thisform.text25.Enabled= .F.
thisform.command1.Visible= .T.
thisform.command2.Visible= .T.
thisform.command3.Visible= .T.
thisform.command4.Visible= .T.
thisform.command5.Visible= .F.
thisform.command6.Visible= .F.
thisform.command7.Visible= .F.
Tapi waktu saya klik tombol simpan, kluar peringatan “uniquness of index ID_C is vilated”,
padahal id yang saya masukkan belum pernah terecord pada database…
Saya bingung sekali..
coba di cek di select 1 pada indexnya, apakah sudah bener !!!
kalo g pake select 1, tp lgsg use ……… gt gmana mas?
klo g pke select 1, tp lgsg USE {nama table}… gmna mas?
sy jg pernah bgitu? coba isi id yg lain dulu yg belum pernah sm skali di pake….
coba ja table nya d pack dlu
kli ja da yg dah d delete
Mohon Bantuannya,
gan saya mw tanya, gmna sih caranya ngesave isi record tanpa kita harus buat dulu isi recordnya, jd mw di isi secara manual gan, saya udh masukin listing savenya seperti ne;
SELECT 1
replace kode_penyewa WITH thisform.txtkd.Value
replace nama_penyewa WITH thisform.txtnmp.Value
IF thisform.optiongroup1.option1.Value=1 then
replace jenis_kelamin WITH thisform.option1.caption
ELSE
replace jenis_kelamin WITH thisform.option2.caption
ENDIF
replace alamat_penyewa WITH thisform.txtalm.Value
replace no_telp WITH thisform.txtnot.Value
replace no_ktp WITH thisform.txtnok.value
MESSAGEBOX(“Data Sudah Tersimpan…!”,64,”info”)
thisform.tampil()
thisform.grid1.refresh()
thisform.grid1.setfocus()
thisform.nonaktif
thisform.refresh
ne gan, tp ga mw ngesave ke databasenya, knpa tuch gan?, tolong bantuannya gan…
klo da yg perlu di tambahkan, tolong di tambahkan, atau kirimin listingnya gan yg bner…..
thx U gan……..
jika mau menambah record :
SELECT 1
append blank &&===>tambahin perintah ini !
replace kode_penyewa WITH thisform.txtkd.Value
replace nama_penyewa WITH thisform.txtnmp.Value
IF thisform.optiongroup1.option1.Value=1 then
replace jenis_kelamin WITH thisform.option1.caption
ELSE
replace jenis_kelamin WITH thisform.option2.caption
ENDIF
replace alamat_penyewa WITH thisform.txtalm.Value
replace no_telp WITH thisform.txtnot.Value
replace no_ktp WITH thisform.txtnok.value
MESSAGEBOX(“Data Sudah Tersimpan…!”,64,”info”)
thisform.tampil()
thisform.grid1.refresh()
thisform.grid1.setfocus()
thisform.nonaktif
thisform.refresh
ga bisa gan malah error listingnya saya tambahin;
append blank &&
ga di pke jga error….
thx gan……
coba tanda && jangan di ikut sertakan, cukup tambahin append blank saja.
mlm mr. kuman
om saya mau tanya
saya bikin satu aplikasi dan ada masalah nih mohon bantuannya!
saat dijalankan form dr dalem form tersebut ok dah jalan , tetapi saat dah d build (exe)
satu script d form tersebut g jalan apanya y Mr?
mhn pencerahannya
gan, klo pake vfp, biasanya bisa agan ujicoba dulu sblm dibuild. pengalaman ane sih, klo udah diujicoba pas dibuild ok. paling mungkin yg kelupaan itu ada koneksi db yg kelebihan atau apalah.. cek n ricek dl gan
xc
tolong donk…
tunjukin scrip tombol perintah , searce, add, pada pembuatan form di FoxPro 9.0
Assalamu’alaikum.. kakak” bantu saya donk.. saya lagi bingung, saya mau buat hasil print out tertera nama user sesuai user yg login, saya sudah punya database user, tolong bantuannya. terima kasih banyak
tambahkan variable publik pada tombol login :
public usr
usr = thisform.text1.value
di form report, tambahkan variable usr.
dimanapun anda ketik usr maka akan muncul isi dari text1.
ijin donlot mr.kuman….
sombong, baru bsa segitu z……
dasar nwebwe ….
mr.kuman…………..asu
halo mr.kuman
salam kenal
saya awam nie sama foxpro 9.0
kalo pengen setting path directory gmn???soalnya saya pindahin aplikasi yang mentah ke kompi yang lain,
mohon dibantu ya..
thank’s….
salam kenal,
tolong bantu saya dong, saya kn bwt tabel transaksi slip gaji tp saya bingung gimana listingnya kalo mau bwt textbox no transaksi yg muncul secara otomatis & berurutan..
mohon bantuanya ya..
thx
hallo salam kenal mr. kuman
mau tanya apakah master ada contoh program untuk transfer data ke server WEB dengan bahasa murni foxpro? Saya lagi dapat tugas buat modul transfer data dari client di luar kota ke komputer server di head office…. tolong kasi pencerahan….
bahasa murni foxpro tdk bisa, mesti di gabung dgn PHP.
foxpro mengirim variable ke PHP, selanjutnya PHP akan memproses data di web sesuai variable yg di kirim lewat foxpro.
itu yg paling simple.
selain itu bisa juga menggunakan system online, jika anda menggunakan database mysql atau sql server, tinggal buat 1 IP public yg bisa di akses darimana saja sama seperti web. solusi lain bisa mengunakan setting IIS dari windows sesuai help yg ada di foxpro.
agan kuman,help me please.sy lg nyusun tgs akhir nih,bs tlg emailin listingnya keemail sy ngga,mengenai hak akses dan listing untuk submenu logoff.thanks before..vyan26@yahoo.co.id
assalamualaikum,,di suruh dosen klo misalnya nama benar,n pssword salah,,pas di klik cmdogin maka akan muncul pesan”password anda salah,,”
bgitu juga sebaliknya klo namamya yang salah,n passwordnya benar
muncul pesan juga “nama anda salah”
dan 1 lagi ni, klo da 3x salah maka keluar dari program…
tolong di bantu listingnya kk, buat revisi,,,
makasih…
local cUser, cPass, nLoop, lResult
lResult=.F.
FOR nLoop=1 TO 3
IF alltrim(cUser)!=User.User
=Messagebox(“Nama Anda Salah!!!”,0)
else
IF Alltrim(cPass)!=User.Password
=Messagebox(“Password Anda Salah!!!”,0)
Else
lResult=.T.
endi
endi
ENDFOR
If !lResult
=Messagebox(“Kesempatan anda habis!!,0)
QUIT
endi
*– Coding di atas hanya gambaran logical statementnya saja, silahkan dikembangkan sesuai kemampuan anda. Tq Selamat mencoba
TOlong dong bantu saya buat form stopwatch
Minta kode programnya. Thanks
cek di task pane foxpro, pada sample category cari controls terus pilih timer. disana ada coding untuk Display a stop watch.
kk tolong buatkan contoh listing struk untuk pembayaran tunai.. saa tunggu dalam 24 jam.. tolong bgt ka.. ini masa depan Tugas Akhir saya…
kirim message ke FB saya..
reynhardhutabarat@yahoo.co.id
ass…
toLong bantu saya untuk buat program pembayaran SPP di sekoLah menggunakan visual basic 6.0
terimakasih
mrkum tolong ya…
ku dah compile program di foxpro 9 lalu cara menjalankan di komputer yang tidak ada foxpro nya kok ndak bisa, agar bisa gimana bos… mkasih
Copy file-file berikut ini di folder exe hasil compilasi program anda :
*– Msvcr70.dll
*– Vfp9r.dll
*– Vfp9Renu.dll
Search ada pada folder instalasi Vfp Anda, umumnya pada C:\Program Files\Microsoft Visual FoxPro 9.
Selamat mencoba……
gan aku udah nyoba seperti cara di atas tapi pas jalanin exe nya ko ga keluar yah malah ada bacaan “data koneksi error”
kuman, bsa mnta tolong bantu gak, dah nemuin jalan buntu nih…
gmn sih cara ngurangin waktu pada aplikasi vsf,program parkir..
tlong yah..
Udh pindah ueyyyyyyyyyyyy
assalamualaikum
saya dewi saya lagi merancang program untuk tugas akhir, tlong bantu saya kasih saya contoh program pembayaran spp sekolah,tlong dikirim ke email saya :
d.handayani92@yahoo.com
terimakasih
Mas mo nanya nich… bgaimana command untuk menghilangkan window ms vispro yg msh muncul pd saat menjalankan prog. exe (saya dah pake _vfp.visible=.f. pada destroy dan init) tpi malah hilang prog.exe-nya.
tulungin donk… mtrnwn. trmkash.
pada propertisna pilih windows==>1.top level
asslmkm…slm knl…
saya mau bikin listing program vfp text berjalan tapi gak berhasi mohon bantuan mas…bagaimana listingnya…
mksh bngt..ats informsinya…
Bisa bantu???
Listing buat munculin tanggal batas.. Ketika Tanggal pinjam udah muncul otomatis, tanggal batas juga muncul otomatis (7 hari setelah tanggal pinjam).. Tentang peminjaman buku ini.. Bantu yaaa…
sudah Ketemu jawabannya? kalau belum pm sy via email ke lytzzz@gmail.com
aslm…..sya mw tnya listing transaksi cmdsmpan & cmdbatal gmn ya???
tlong bntu sya…..mksih
gan kalo file exe dah di kompel ke instaler tapi pada saat di jalankan file hasil instalannya dan flasdiscnya di jabut program gak mau jalan tu kenapa? padahal dah jadi setup.
tolong bantuannya????
Ass.
saya minta tolong listing log out dari menu utama supaya langsung masuk form login kembali, soalnya listing yg saya pakai bisa kembali ke login tp menu utamanya ngga ketutup. trmkasih..
Mr.Kuman & Mr.X mohon bantuanya untuk syntack VFP menampilkan suatu data item transaksi dalam pereode waktu contoh :
tampil data pemakaian paku 7 di mebel A dari 5 agustus 1999 s/d 11 juni 2009
Assalamualaikum…salam kenal mr. kuman
saya mau minta tolong donk ka…saya lg menyusun tugas akhir menggunakan foxpro 9.0
tapi dosen saya minta ganti
kode barang misalnya
Nama barang = Lampu => L
Merk Barang = Philips => P
No Urut = 001
listing nya gmn yea ka ???
kode pegawai
tahun masuk
bulan
no urut
listing nya gmn ka???
no nota
tahun
bulan
no urut
listing nya gmn tuh ka???
maaf yea Mr. Kuman bayak sekali pertanyaan saya..mslh nya tgl 17 juli saya hrs dirunning program nya..
aslm.
salam kenal mr, mau tanya coding untuk penggabungan 2 transaksi didalam repot yang saya buat untuk tugas akhir. trimakasih
ass.saya nuke,,saya sedang membuat tugas akhir,,,saya di minta pembimbing membuat pencarian data berdasarkan nama seperti pencarian pada google,,,tlg di bantu segera ya karena minggu depan saya sudah sidang tlg share codingnya di nuryztha@gmail.com atau di nuqe87@gmail.com
tks sebelumnya
ass.saya nuke,,saya sedang membuat tugas akhir,,,saya di minta pembimbing membuat pencarian data berdasarkan nama seperti pencarian pada google,,,tlg di bantu segera ya karena minggu depan saya sudah sidang tlg share codingnya di nuryztha@gmail.com atau di nuqe87@gmail.com
tks sebelumnya
dalam coding foxpro 9.0
mr…. kuman
Saya mau buat program untuk tugas akhir….
Program Pembayaran spp pada yayasan paud…
bisa g saya diberikan demo program yang sudah jadi..
untuk dijadikan bahan referensi…
bisa di email ke: farickyrahman@rocketmail.com
terimakasih sebelumnya.
mr….
Saya mau buat program untuk tugas akhir….
Program Penjualan Barang / Inventory…
bisa g saya diberikan demo program yang sudah jadi..
untuk dijadikan bahan referensi…
bisa di email ke aloesz@yahoo.com
terimakasih sebelumnya.
mau nanya dong
gimana caranya nampilin data barang yang udah di pesen di transaksi pemesanan biar muncul di transaksi pelunasan ..
hallo,, saya voni.. tolong bantu saya dong.. saya mw tanya: mis dalam 1 tabel ada nomor keluarga,nomor induk keluarga, nama keluarga, alamat… trus yang saya ingin tanyakan nomor keluarga sebagai primary key atau ?? trus nomor induk keluarga sebagai apa??? sebagai contoh 1 keluarga punya 1 nomor keluarga ,, truss punya banyak aggota keluarga .. tolong di balas ya… trus primary key,candidat key,foreignkey contohnya seperti apa??tolongya…di email Esauvoni@yahoo.com
terimakasih banyak.
Mr. Kuman yang baik hati…
saya da tugas bikin pemrograman SI palang Merah….
Mr. kuman punya programnya ga’??
tolong kirim ke email q ya
j.alghazali@yahoo.co.id
Mr. Kuman yang baik hati…
saya da tugas bikin pemrograman SI palang Merah….
Mr. kuman punya programnya ga’??
tolong kirim ke email q ya
j.alghazali@yahoo.co.id
saya sedang buat program tentang peminjaman uang..
tp saya bingung kenapa di listing hapus tuh slalu eror di PACK’y yah..
ni listing yg sdh saya buat :
SELECT user
SET ORDER to tag kduser
WITH thisform
IF SEEK(thisform.txtkode.value)
pesan=MESSAGEBOX(“Yakin dihapus?”,4+32,”Info”)
IF pesan=6
DELETE
PACK
endif
thisform.Refresh
thisform.grid1.RecordSource=”user”
thisform.bersih
thisform.nonaktif
ENDIF
ENDWITH
tlg kasih tau yh dimna letak kesalahannya.. trima kasih
*– Kalau sesuai listing anda di atas, table user harus dibuka secara exclusive :
[USE User Exclusive]
*– Setelah perintah DELETE harus ada perintah :
SKIP 1
IF EOF()
GO BOTTOM
ENDIF
Thisform.Refresh
Ada baiknya perintah Pack dilakukan di method Destroy
Tq
mohon bantuannya ,
saya lagi buat program pembayaran spp , pada form transaksi ada nomor kwitansinya . nomor kwitansinya terdiri dari tahun-bulan-tanggal-no urut kwitansi contoh: 2011060001. saya mau buat no kwitansi itu muncul otomatis , dan bertambah otomatis juga apabila melakukan transaksi kembali ..
ini listing yg saya pakai , tapi masih terjadi kesalahan . mau tanya kira2 apa yang salah :
*membuat nomer kwitansi berdasarkan Tahun,Bulan dan No. Urut
thn=LTRIM(STR(YEAR(DATE())))
bln=LTRIM(STR(MONTH(DATE())))
SELECT 4
if reccount()<=0
nof='0001'
else
go bottom
if thn=left(pembayaran.no_kwtnsi,4)then
if val(bln)=val(substr(pembayaran.no_kwtnsi,5,2))
nolama=val(right(pembayaran.no_kwtnsi,4))
no=nolama+1
do case
case no<10
nof='00'+str(no,1)
case no<100
nof='0'+str(no,2)
otherwise
nof=str(no,4)
endcase
else
nof='0001'
endif
else
nof='0001'
endif
endif
if val(bln)<10
bulan='0'+bln
else
bulan=bln
endif
thisform.txtnokwi.Value=thn+bln+(nof)
thisform.txtnokwi.Enabled= .F.
thisform.txttgl.value=date()
thisform.txtnik.Enabled= .F.
thisform.txtnmtu.Enabled= .F.
thisform.txtnis.Enabled= .F.
thisform.txtkls.Enabled= .F.
thisform.txtjurusan.Enabled= .F.
thisform.txtbln.Enabled= .F.
thisform.cbospp.Enabled= .T.
thisform.cmdnew.Enabled= .T.
thisform.cmdcancel.enabled=.T.
thisform.cmdexit.Enabled= .F.
thisform.cmdsave.enabled=.T.
thisform.txtnik.SetFocus()
thisform.refresh
thisform.aktif
TOLONG BANTUANNYA YA !! TERIMA KASIH ..
Mau nanya aku bikin program parkir mau nyari lama parkir, biar jam, menit, dan detiknya keluar itu gimana ya??? Mkasih
tolong donk saya ne….
disini saya mau tau untuk coding penanggalan seperti gini cara nya klo kita pinjam buku 1 buku di kasih dalam 7 hari jadi andaikan klo 2 buku di kalikan 7hari jdi pejumlahan nya berada pada tanggal kembali tolong donk saya un tuk coding nya dan 1 lagi saya mau bikin program ini d komputer yang gak ada vfp nya tpi bisa di jalan kan seperti lewat instalsited tpi saya gak bisa download nya jdi tolong saya ge mna cara nya
hallo mr,
sy lg bljr membuat laporan dr fox pro dgn database mysql…
kendala yang sy hadapi yaitu query yg sya buat berhasil dijalankan di mysql tapi stlh diterpkan dalam foxpro hasilnya “data is not found”…
ini cnth querynya :
IF THISFORM.chkEmploye.VALUE=1
lcSql1 = ‘SELECT f.empname,f.emptype,a.so,a.salestype,e.slstypeid, a.dateorder,b.prstatid1,d.discount, d.discount2,a.custid,(b.discount1+b.discount3) AS discount1,(b.discount1+b.discount3) AS discount3, ‘
lcSql2 = ‘(CASE WHEN (a.custid=”CCS”) AND ((b.discount1+b.discount3) <= d.discount) THEN g.cash ELSE(CASE WHEN (a.custid”CCS”) AND ((b.discount1 + b.discount3) <= d.discount2);
THEN g.lease ELSE 0 END)END) AS insentif '
lcSql3 = 'FROM sohead a,soitem b, insentif g, employe f,customer c, prstatid d, salestype e '
lcSql4 = 'WHERE (a.so=b.so) AND (f.emptype=g.emptype) AND (b.prstatid1=g.prstatid1) AND (f.empid=a.empid) AND(b.prstatid1=d.prstatid) AND (a.custid=c.custid) '
lcSql5 = 'AND (a.salestype=e.slstypeid) AND (e.dirgroup="D") AND(a.sostatus="F001") AND (a.dateorder ” “) AND (a.dateorder >= ?ldDate1 ) AND (a.dateorder <= ?ldDate1 )ORDER BY f.empname,b.prstatid1 '
ELSE
lcSql1 = 'SELECT f.empname,f.emptype,a.so,a.salestype,e.slstypeid, a.dateorder,b.prstatid1,d.discount, d.discount2,a.custid,(b.discount1+b.discount3) AS discount1,(b.discount1+b.discount3) AS discount3, '
lcSql2 = '(CASE WHEN (a.custid="CCS") AND ((b.discount1+b.discount3) <= d.discount) THEN g.cash ELSE(CASE WHEN (a.custid”CCS”) AND ((b.discount1 + b.discount3) <= d.discount2) ;
THEN g.lease ELSE 0 END)END) AS insentif '
lcSql3 = 'FROM sohead a,soitem b, insentif g, employe f,customer c, prstatid d, salestype e '
lcSql4 = 'WHERE (a.so=b.so) AND (f.emptype=g.emptype) AND (b.prstatid1=g.prstatid1) AND (f.empid=a.empid) AND(b.prstatid1=d.prstatid) AND (a.custid=c.custid) '
lcSql5 = 'AND (a.salestype=e.slstypeid) AND (e.dirgroup="D") AND(a.sostatus="F001") AND (a.dateorder ” “) AND (a.dateorder >= ?ldDate1 ) AND (a.dateorder <= ?ldDate1 ) ;
and a.empid=?lcEmploye1 ORDER BY f.empname,b.prstatid1 '
ENDIF
sqlexec (xnconnection,lcSql1+lcSql2+lcSql3+lcSql4+lcSql5 ,'curInsentif')
plis, help me??? thx b4
mr. kuman…
pliss helpp me…
saya lagi buat program tentang penyewaan mobil,jika terjadi transaksi yang dilakukan secara kredit (maksud na di DP dulu). nanti pas ngelunasin na gimana??
harus pake form yang berbeda atau jadi satu di form transaksi???
Q bingung
makasih
Pakai form yg sama tapi pembayarannya ambil data dr file DP,
FLownya :
1. Form Entry DP => masuk ke file DP.dbf
2 Form Entry bayar => ambil (combo box) dr daftar DP (DP.dbf)
Hallo Mr.
Kalo pemrograman dengan VFP ini bisa dipakai untuk keperluan program online ga ya ? saya ada perlu buat aplikasi supaya antar cabang datanya bisa link, kalo ada referensi bisa tolong info dong dan supaya temen2 disini juga tau
Thanks
Sukses,
gimana sie cara’a buat aplikasi exe di foxpro 9.0…!!!
tolong d bantu y…
knp y mo instal foxpro ssh bgt,,
tolong donk pak ksh saran n kirim aplikasinya,,, dan saya perlu contoh program penjualan dengan menggunakan fox pro 9.0,,,
pak kok gak ada ya program untuk parkir???buat dunx untuk latihan, aku pusing buat gak jadi2…
mr… mintak listing foxpro untuk pengendalian persediaan obat obatan…
tolong kirim ke email saya rivalaktora@gmail.com
mr… minta listing foxpro untuk data penjualan barang…..tolong kirim ke email saya septian2715@ymail.com
Mr Kuman
Mau tanya dong..saya ada buat program persediaan… form masuk barang..kalau kita bikin form yang datanya bisa diedit ( rincian barang2nya) listing panggil diform gimana ya?
thanks berat ya
bagaimana ya cara munculin id_user dan nama_user secara otomatis dari form login
Saya beritahukan bahwa sejak tanggal 27 mei 2011
semua isi dari website ini telah saya pindahkan ke http://www.kastok.net
semua pertanyaan akan kami layani di kastok.net
mohon maaf ata ketidak nyamanan ini
salam hangat
Assalamu’alaikum…
Saya mnta tlong bantuan’a mmbuat Tampilan Tulisan Berjalan Pada Visual FoxPro 9.0 duund……..
Mohon Bantuan’a untuk kelangsungan Tugas Akhir Saya……
Listing Dkirim Via E-Mail Saya saja
E-Mail : bangkitagung@gmail.com
#Terima Kasih
Assalamu’alaikum…
Saya mnta tlong bantuan’a mmbuat Tampilan Tulisan Berjalan Pada Visual FoxPro 9.0 duund……..
Mohon Bantuan’a untuk kelangsungan Tugas Akhir Saya……
Listing Dkirim Via E-Mail Saya saja
#Terima Kasih
Assalamu’alaikum…
Saya mnta tlong bantuan’a mmbuat Tampilan Tulisan Berjalan Pada Visual FoxPro 9.0 duund……..
Mohon Bantuan’a untuk kelangsungan Tugas Akhir Saya……
#Terima Kasih
Ass Mass Bro….
Bagaimana cara membuat skin pada Ms.Foxpro 9.0???
adakah link yg bisa saya gunakan??
Mohon pencerahannya..
makasih sebelumnya..
Halo salam kenal.
saya mau tanya dalam visual foxpro bisa gak diterapkan metode c-means ?
bisa gak dipakai pada aplikasi penjualan ?
terima kasih.
minta tolong donk…untuk listing foxpro 9.0… yang unntuk memunculkan kode user secara otomatis..berdasarkan nama serta no urut daftarnya…maksud saya, misalnya nama saya SEPTINA DWI CAHYANTI saya merupakan no urut pertama…supaya bisa muncul kode seperti SDC dari huruf depan nama saya, dilanjutkan dgn nomor urut 001,hasilnya jadi SDC001, listingnya seperti apa ya????mohon bantuannya ya, soalnya buat TA saya…thanks sblumnya.
email : ninasanarikafukatoji@yahoo.com
makasih maturnuwun
ass Mr kuman, saya ada masalah dlm prncangan program sederhana sya, kbtulan untuk TA. tentang aplikasi penyewaan studio musik. knpa di form transaksi. ketika di save psti selalu error dan pesannya uniquenss of index NOSEWA is violated. mhon pencerahannya. atau dksh cntohnya.. mksih sblmnya
sertakan listingnya biar tahu sintaxnya seperti apa biar mudah dijawabnya.
ada yang bs buat webcame mngunakan foxpro gak
mr kuman yang terhormat, mau tanya nih.. gimana listing menyimapan perubahan forecolor label? Saya bangga bisa membuat aplikasi tanggal beserta nama saya sendiri yang berjalan dengan sederhana untuk aksesoris desktop komputer sya . namun saya ingin menambah tool dari aplikasi saya tersebut, misalnya ketika saya mau mengganti warna label tanggal menjadi merah atau biru sehingga tersimpan otomatis perubahan warna tersebut.dengan hanya menekan tombol ganti warna misalya warna tangal langsung berubah.
salam
buat saja 1 tabel untuk menyimpan warna tersebut secara permanen. misal warna.dbf dgn field warna c(14), nah saat menekan tombol merah perubahan warna akan disimpan di tabel itu.
misal tombol warna merah. pada tab clik isi perintah repl warna with rgb(255,0,0).
saya mau tanya, kalo pembuatan data rawat jalan klinik pada foxpro 9.0 , form nya apa yah?? saya masih bingung?
wah kalau situ yg tahu flownya saja bingung, gemana kita yg kagak ngerti flownya ya … cape deh
assalamu’alaikum……….
mr kuman saya mau tanya nih…
gmn listing transaksi yang one to many…(untuk input data lagi tapi masih dalam satu nomor transaksi)????
tolong bantuannya yahhh……………
gan ane mw tanya nih…gimana caranya law 50 text box dalam satu form dengan satu tombol botton dengan pengisian pada text box tersebut berisikan 50 angka secara otomatis dengan mengklik tombol tersebut akan tetapi menggunakan 5 baris perintah…
pada tombol command button isikan perintah :
n=0
for i =1 to 50
n=n+1
thisform.text&n.Value = n
ups salah …. pake ini saja ya :
FOR i = 1 TO 50
v = ALLTRIM(STR(i))+’.Value’
thisform.text&v = i
ENDFOR
atau
n=0
FOR i = 1 TO 50
n=n+1
v = ALLTRIM(STR(n))+’.Value’
thisform.text&v = n
ENDFOR
atau bisa juga pake ini :
n = 0
do while n <= 50
n = n + 1
v = ALLTRIM(STR(n))+'.Value'
thisform.text&v = n
enddo
pilih sendiri mau pake yang mana !!!!!!!
Mas, saya kan sudah selesai bkin form, dan report. Form utama dan menu juga udh jalan. Nah sekrang saya ingin bwt supaya program yg saya buat d foxpro ini bisa jadi program jadi. Tp supaya ada sperti installation progres trlebih dahulu jika saya memasang program saya d komputer lain. Nah, bagaimana caranya mas?
Terimakasih.
gunakan installshield yg ada di foxpro untuk membuatnya.
para master.ane pengen tanya.ane kan pengen pake 2 table dalam 1 form,ko yg bisa d pake cman 1 yak.
ane ud pake syntax
form load:
SELECT 1
USE d:/management/Db/kas
SET ORDER TO tag kds
SET EXCLUSIVE OFF
SET DELETED ON
SET EXACT ON
SELECT 2
USE d:/management/Db/blk
SET ORDER TO tag no_blk
SET EXCLUSIVE OFF
SET DELETED ON
SET EXACT ON
commbo botton (clik):
IF thisform.cmdadd.Caption=”add”
SELECT 1
ELSE
MESSAGEBOX(“terjadi error”,64,”konfirmasi”)
ENDIF
yang muncul table 2 mulu klo d clik
saya mau bikin program hitung gaji pake foxpro….pada suatu perusahaan….ada yg bisa kasih gambaran kah….
TLONG GIMANA PEMBUATAN DATA PERPUTAKAAN PAKAI FOXPRO?
Mr.kuman ..
tolong dong sharing aplikasi penjualan obat memakai visual foxpro…
trimaksih sblum nya….
pak, mw tanya klo aplikasi penjualan majalah dengan menggunakan program visual foxpro 9.0 gmn?
trims
mas mo nanya…Viual Basic m Visual Foxpro tinggian mana sihh???
saya mau buat program TA..tolong masukannya..lebih baik pake VB apa Foxpro??
kalau masalah tinggian, masing2 program punya kelebihan dan kekurangan masing2.
kalau masalah mudah/tidaknya tergantung kemampuan yg dimiliki, kalau saya bisa di foxpro tetntunya lebih mudah dari foxpro daripada VB.
menurut pengalaman saya seh, lebih mudah menggunakan foxpro al.
1. lebih mudah dalam pembuatan form.
2. lebih mudah dijalankan karena foxpro sdh merupkan 1 paket dimana sekali kita menginstall sdh terinstal pula secara otomatis foxpro program, database native dan report designernya. berbeda dgn VB yg harus menginstal secara terpisah komponennya seperti VB, SQL server dan crystal reportnya.
dan masih banyak lagi kelebihan foxpro lainnya.
Foxpro juga bisa mengguanakan database server seperti MySQL atay SQL server dan mudah juga di buat untuk online baik dgn IP publish, Web Base yg dikombine dgn PHP seperti halnya VB.net dgn ASP nya. kalau ada lebih mahir di foxpro tidak ada salahnya menggunakan foxpro, tapi untuk ke depannya akan lebih bagus mengguanakan VB karena foxpro sdh tdk di kembangkan lagi oleh microsoft dan versi foxpro hanya sampe versi 9 saja, sementara support dari microsoft untuk foxpro hanya sampe 2014 saja.
Tapi kalau kita lihat dari segi kemampuannya, foxpro memiliki banyak keunggulan ketimbang VB cmn sayangnya foxpro bukan original dibuat oleh Microsoft, hanya di beli untuk di matikan saja karena microsoft ingin mengembangkan VB yg memang dibuat dari awal oleh microsoft.
tergantung pahamnya dimana mas,,
klo yang lewbih tinggi levelnya c vb…
tpi klo ga mao ribet pake foxpro aja soalnya database udah nyatu jadi ga ribet” lagi koneksiin ke database…
Thanks banget
coba saya donlot dulu, lagi butuh banget nih..
sangat bermanfaat, thx sudah sharing
Mr. Kuman
Saya mau minta tolong ne.
gimana ya caranya membuat invoice perusahaan expedisi mengunakan program foxpro ???
kslo bisa tolong kirim email ke saya.
terima kasih…
Bos aku ada ku minta tolong begini
Contoh 1
Tabel Gup barang
Kode grup barang :KM
Nama barang :Komputer
contoh 2
Tabel Nama Barang
Kode Group barang :KM
kode barang :KM.01
Nama Barang :Komputer
pertanyaan jika kita klik kode grup barang “KM”otomatis kode barang mumcul “KM.01″
Bos Ko ga Di jawab, tolong dong makasih
select 1
use GroupBarang alias Group
select 2
use NamaBarang alias Barang
Form Form Controls
kode barang : combo box(1)
pada event combo box di click/interactive change isikan perintah :
select 2
locate for GroupBarang = thisform.combo1.DisplayValue
atau
select 2
locate for GroupBarang = Group.Group Barang
PEMBUATAN FORM UNTUK APLIKASI gak bisa di buka…
Siang Mr….
Aku lg bingung nich laporan akhirku di suruh buat program aplikasi akuntansi pembuatan laporan keuangan Perusahaan Dagang yang sesua dengan siklus akuntansi. ada nggak contoh programx..
trims
Mr Kuman, tlg ks tw gmn cr ny menampilkan HANYA data yang kita cari saja ke dalam GRID, misal saya ingin menampilkan data pelanggan berdasarkan kota Jakarta, dan yang muncul di Grid Adalah data-data pelanggan yang ada di jakarta saja…
Mohon bantuannya….
Klw bs tlng bls ke Email saya POPSJOEYS@Gmail.com
terimah kasi banya bro atas materi yang kw berikan kepada kta semu…
web said ini sangat berguna bagi kta semua,,,
sekali lgi makasi,,,,,
mr.kuman saya mau tanya kalau bikin kalkulator menggunakan visual foxpro gimana???
mr.kuman
mo tanya…database di program foxpro namanya dl_kota , lr_kota , harian ,dummy
masing2 database tersebut di shared dan punya syntax-nya :
untuk database dl_kota
SELECT 1
USE dl_kota SHARED INDEX dl_kota
SET ORDER TO dl_nuj_idx
untuk database lr_kota
SELECT 2
USE lr_kota SHARED INDEX lr_kota
SET ORDER TO lr_nuj_idx
untuk database harian
SELECT 3
USE harian SHARED INDEX harian
SET ORDER TO hr_tgl_idx
untuk database dummy saya blm tau? soalnya belum atu syntax untuk shared database yang namanya dummy tersebut
SELECT 4
USE dummy…………..?
Mr.kuman kali aja bisa bantu
email aj ke Rulian_kida@yahoo.co.id
use &dummy
mw tanya???
Gimna sih kalo mau menmpilkan report dari *.docx???
thanx before…
Assalammu’alaikum Wr.Wb
Saya ad program apotik Vfox 6 dgn menggunakan database SQL Server 2000, yg mau saya tanya…
Setiap nge-Save ke SQL pasti program stok hasilnya berlipat, jadi setiap nambah record nilai stoknya jadi berlipat di programnya
kalo di SQL nya penyimpanan sdh betul hanya pemanggilan di programnya saja yg berlipat
Kira2 yg salah dimana y teman2s
Thanx atas bantuannya..
salamikum,, ada yg tau gak input date format to foxbase dari visual basic??
krna mau migrasiin lewat CSharp… klo ada tolong dibantu yach??
terima kasih sebelum dan sesudahnya
Ga usah panik, download aja caontoh program yang ada
MR.help me…prog.q lom jln tinggal form transaksi j
kasih syntax savenya dunk,,,please
setuju mr. kuman, kalau bisa dipisah antara programer pemula dan lanjutan,. Untuk pemula mungkin lebih banyak penggunaan sintak dan contoh listingnya dgn menggunakan database bawaan foxpro, tapi untuk yang lanjutan langsung pembahasan penggunaan vfp dengan database server baik sql server maupun mysql server, settingannya, serta proses pembuatan sebuah program secara menyeluruh dari awal sampai laporan keuangan serta analisa melalui pembuatan grafik baik grafik bar, pie, maupun colum. jangan lupa disertakan penggunaan active X control seperti date & time picker, progress bar serta toolbar menu, pembuatan setup program melalui installsield dan aplikasi web melalui visual foxpro menggunakan com server dan wsdl serta IIS nya.
Saya berharap buku itu bisa dapat di realisasikan secepatnya, karna dukungan penuh microsoft untuk pemrograman visual foxpro hanya sampe 2014 sehingga setelah itu kita akan kesulitan mendapatkan referensi untuk aplikasi ini.
Bravo Mr. Kuman, good luck dan sukses buat komunitas foxpro indonesia.
Salam, hansem.
Terimakasih atas dukungannya, bagaimana kalo kita buat team untuk menulis buku ini>
wah setuju tuh, kebetulan saya juga lagi buat program foxpro online dgn kombinasi VFP dan PHP yang jauh lebih fleksible ketimbang menggunakan IP publish sehingga bisa dibuat dgn 2 versi baik secara local online maupun web base melalui PHP.
Saya lebih condong untuk membuat VFP online karena kan masih jarang buku2 tutorialnya, apalagi tutorial yg di sediakan di help foxpro terlalu sulit untuk diterapkan pada versi onlinenya karena mesti menggabungkan beberapa bahasa pemrograman dan settingannya juga nggak mudah. saya sendiri sdh mencoba tapi gagal. dan pas sekarang ketemu yg jauh lebih mudah dgn kombinasi VFP dan PHP walau dgn IP publish juga bisa.
Ass..Sy pny query sbb
select a.kode,a.nama,b.quantity,b.total,c.nota,c.tgl from barang a,detpenjualan b,penjualan b where a.kode=b.kode and b.nota=c.nota and c.nota=’001′
pertanyanx:
gmn crnx buat laporan di foxpro sesuai query diatas jika c.nota=’001′ diganti dg Txtnota,tlg di ksh langkah2nx..
Thank’s
misal : thisform.text1.Value=’001′
Txtnota=thisform.text1.Value ( sama artinya dgn Txtnota=’001′ )
tinggal tambahkan klausa where pada saat menarik perintah select di jalakan,
contoh : select * from A where c.nota=Txtnota.
jadi didifisikan dahulu variable untuk Txtnotanya. beda dgn menggunakan Mysql server tinggal menambahkan klusa ? di depan Txtnota sehingga menjadi select * from A where c.nota=?Txtnota.
pada c.nota=’001′ itu ’001′ dibuat sebuah variable
contohnya vnota=thisform.text1.value
maka diya akan menjadi c.nota=vnota
vnota qt bs ubah kode’a sesuai data nota
mgkn begitu
haloo Mr.kuman
mintaa bantuanyaa..minta contoh program penjualan dan persediaan barang…bener2 sangat dibutuhkan..terimakasih…klw bisa kirim ajja ke email contoh programnya ke dedevia_mungil@yahoo.com
Assalamu’alaikum Wr. Wb.
saya baru gabung ni, mohon bantuannya bagaimana membuat laporan program penggajian dan diberi keterangan penggajian per minggu dengan menggunakan foxpro, kalau ada yang bs mohon dikirim ke e-mail (boyaries25@yahoo.com) sebelumnya terima kasih.
Silahkan download di sample program.
Download aja disample program
Saya mohon maaf kepada semua teman karena link untuk download sample program bermasalah,
Namun jangan kwatir karena saat ini link tersebut sudah saya perbaik, yang mau download buruan aja download. dan mohon formasikan kesaya jika link bermasalah.
Untuk teman yang ingin terlibat dalam pengelolan blok ini silahkan kirim email ke tahjudin@awlck.com
Salam
Mr.Kuman
Para Master Foxpro semua..ternyata difoxpro juga kita bisa buat form transparant.. ditambah dengan komponent timer, formnya bisa diload dengan full transparant sampai nampak semua..nice.
Gimana Gab..form transparant..? samplenya..thx
sorry Krisna br Z..
pada form init letakkan source berikut :
———————————————————————————————-
DECLARE SetWindowLong In Win32Api;
AS _Sol_SetWindowLong Integer, Integer, Integer
DECLARE SetLayeredWindowAttributes;
In Win32Api AS _Sol_SetLayeredWindowAttributes;
Integer, String, Integer, Integer
_Sol_SetWindowLong(THISFORM.hWnd,-20, 0×00080000)
PUBLIC det
det=0
———————————————————————————————-
pada form activate letakkan source berikut :
———————————————————————————————-
IF det=0 then
FOR q=1 TO 230
_Sol_SetLayeredWindowAttributes(THISFORM.hWnd, 0, q, 2)
THISFORM.Refresh()
NEXT i
det=100
endif
———————————————————————————————-
Pada Tombol Keluar masukkan source ini :
IF MESSAGEBOX(“Mau keluar Dari Form ini??”;
,4+32,”konfirm keluar”)=6 then
FOR t=1 TO 240
cl=240-t
_Sol_SetLayeredWindowAttributes(THISFORM.hWnd, 0, cl, 2)
NEXT t
thisform.Release()
endif
———————————————————————————————-
pada properties form, ShowWindownya dikasih :
2-As Top-Level Form
Kalau ada error kirim pesan ke email aq aja, krn jarang kunjung ke web ini..
sorry Krisna br Z..
pada form init letakkan source berikut :
———————————————————————————————-
DECLARE SetWindowLong In Win32Api;
AS _Sol_SetWindowLong Integer, Integer, Integer
DECLARE SetLayeredWindowAttributes;
In Win32Api AS _Sol_SetLayeredWindowAttributes;
Integer, String, Integer, Integer
_Sol_SetWindowLong(THISFORM.hWnd,-20, 0×00080000)
PUBLIC det
det=0
———————————————————————————————-
pada form activate letakkan source berikut :
———————————————————————————————-
IF det=0 then
FOR q=1 TO 230
_Sol_SetLayeredWindowAttributes(THISFORM.hWnd, 0, q, 2)
THISFORM.Refresh()
NEXT i
det=100
endif
———————————————————————————————-
Pada Tombol Keluar masukkan source ini :
IF MESSAGEBOX(“Mau keluar Dari Form ini??”;
,4+32,”konfirm keluar”)=6 then
FOR t=1 TO 240
cl=240-t
_Sol_SetLayeredWindowAttributes(THISFORM.hWnd, 0, cl, 2)
NEXT t
thisform.Release()
endif
———————————————————————————————-
pada properties form, ShowWindownya dikasih :
2-As Top-Level Form
Kalau ada error kirim pesan ke email aq aja, krn jarang kunjung ke web ini.. gajosoft@yahoo.com
Salam kenal Mbak..
Saya juga baru belajar Foxpro. tapi ada dikit pengetahuan tntang itu.
tapi saya biasa pakai SQL dikit.
Contohnya seperti ini :
===================================================================
SELECT mhs.nim, mhs.nama, mhs.alamat;
FROM ;
testexel!mhs;
INTO CURSOR tampungsementara
COPY TO application.DefaultFilePath +”\fexel.xls” TYPE xl5
===================================================================
Kalau ada cara lain, tolong di share..
Pa saya mnta tolong contoh program menggunakan pageframe….makasih sebelumnya
tolong yah mas program sy mengalami error di font char set….disaat form dibuka/klik form tersebut tidak bisa dibuka dan menghasilkan pesan error loading file – record number 14 label 19 fontcharset : expression evaluated to an illegal value…tolong yah mas solusinya…!!!!
tolong yah mas program sy mengalami error di font char set….disaat form dibuka/klik form tersebut tidak bisa dibuka dan menghasilkan pesan error loading file – record number 14 label 19 fontcharset : expression evaluated to an illegal value…tolong yah mas solusinya…!!!!
Assalamu’alaikum Wr. Wb.
saya bru belajar pemograman foxpro.. saya mu tny.. misal ada sebuah dta no.mahasiswa dan nama di excel dgn nama mhs.xls.. lalu kita input nama dan no.mahasiwa tersebut melalui foxpro.. bagaimana cara kita mengoutputkan ke excel dengan nama file yg berbeda.. mohon bantuannya.. terima kasih
Wass…
mgkn sdkt bisa jd referensi, di vfoxpro nya ditambahkan sintak copy to “drivernya apa dan nama file. Sintak ditaruh setelah report.
Selamat mencoba smoga berhasil
bisa di perjelas gk sintaknya kyk gmn.. trimaksih
Salam kenal Mbak..
Saya juga baru belajar Foxpro. tapi ada dikit pengetahuan tntang itu.
tapi saya biasa pakai SQL dikit.
Contohnya seperti ini :
===================================================================
SELECT mhs.nim, mhs.nama, mhs.alamat;
FROM ;
testexel!mhs;
INTO CURSOR tampungsementara
COPY TO application.DefaultFilePath +”\fexel.xls” TYPE xl5
===================================================================
Kalau ada cara lain, tolong di share..
Halo smua…yang tau tlg dibantu y guys..
Report Vfox6 kalo di copy ke Excel koq datanya cuma dpt setengah nya y
Ex : liat data dari tgl 1 des s/d 31 des
diprogramnya sdh btul tapi setelah di liat di Excel nya hasilnya cuma
sampai tgl 18 des az…
Mungkin ad yg bisa bantu…
mr.kuman jg, tolong dunk dibantu
TQ
para master, tolong dong……… ada yang tau cara gunakan msflexgrid ???
sy mau gunakan untuk fungsi seperti pada exel
pleace….
mr.kuman
Bisa
aslkum…Mr.Kuman…
saya ingin jago dalam pemograman foxpro..
apakah bapa bisa membantu saya dengan memberikan private…
pa.
mr.kuman mo nanya nih bagaimana aga bacode reader bisa baca kode barang pada text padapogram fox pro karna sudah saya coba kok ga bisa muncul tolong sarannya thx
wah baru download satu file dah corrupt aja nih file nya jadi males download yg laiin, tlong dibenahi donnk
salam mr. kuman
saya mau buat program untuk transaksi sekolah yang meliputi pembayaran komite, pemb osis, mutasi masuk dan keluar serta pembagian kelas secara otomatis yang multiuser dan menggunakan tingkat level untuk setiap user…
mohon bantuannya….trimx
multi user dan single user hanya dibedakan cara pembukaan filenya saja.
Contoh single user : use fileA alias fileB
pemanggilan file : select fileB
penyimapanan record : select fileB
append blank
replace columnA with A
sedang untuk
multi user : if !used(fileA)
select 0
use fileA share in 0
endif
pemanggilan filenya select fileA
penyimpanan record : select fileA
append blank
if rlock()
replace columnA with A
flush
unlock
endif
cara pembuatan program dsb antara multi user dan single user sama saja.
semoga bermanfaat.
salam mr. kuman
saya mau tlng untuk listing prog. multiuser..
trimx
salam mr.kuman
minta donk contoh listing program untuk multiuser……
trimx
mas kuman saya mau nanya listing bikin faktur pd program rental mobil dengan visual voxpro
mohonbantuannya ya ……………
Bravo Programmer!.
Slm kenal, cm pngen share n litle ask for Mr.Kuman
Ni, saya sdg mendevelop aplikasi melalui VFP-9, dg database bawaan (.DBC)
Namun ada beberapa masalah yg msh belum bisa saya selesaikan diantaranya :
- Untuk jenis table independent (tdk include dlm database) apakah bisa dilakukan share access.
- Buffering Mode nya di tabel independent tsb bagaimana.
Karena hal yg saya alami ketika proses RLOCK gak ada pengaruh apapun, dan ketika di USE Command sering kali menampilkan Acces Denied.
Atas jawaban n sharenya saya ucapkan Terima kasih.
*NB, Mohon klu berkenan Post article ttg procedure mengenai VFP Connection Database dg RDBMS lain, misal dg SQL Server 2008 atau dg Jet OLEDB, ADO/DAO…
pake mysql saja lebih mudah, tinggal install myodbcnya saja terus di setting disana.
contoh : download dahulu myodbc 3.51.06 melalui google. untuk memudahkan pembuatan database, table dan dll gunakan juga mysql front misal mysql front 2.5 yg dapat di download dari google juga. folder untuk database dapat dibuat melalui windows explore di folder tempat mysql di install selanutnya tinggal di setting myodbc nya melalu control panel pada administrative tool dan myodbc.
pake mysql saja lebih mudah, tinggal install myodbcnya saja terus di setting disana.
contoh : download dahulu myodbc 3.51.06 melalui google. untuk memudahkan pembuatan database, table dan dll gunakan juga mysql front misal mysql front 2.5 yg dapat di download dari google juga. folder untuk database dapat dibuat melalui windows explore di folder tempat mysql di install selanutnya tinggal di setting myodbc nya melalu control panel pada administrative tool dan myodbc.
jgn lupa untuk menginstal mysql 3.23.54 yg dapat didownload juga di google. semua mysql server adalah gratis.
ni mo nanya..
1.data dg kode 001 sy save kemudian di delete sukses tp kl data dg kode 001 yg telah di delete td di save lg da message error unigueness of index Kode is Violated,sy dah coba ketik zap di command data ilang smua tp bs di save lg,solusi gmn bro..
2.kl menentukan kunci tamu pd indexes-type plh apa?
3.tlh skrip tuk program menu utama di upload…
maaf pertanyaanx byk..
mksh atas bantuanx bro..
di saat pengecekan data ditambahkan perinta set delete on aja
Thank’s bro..
Mlm bro…
mo nanx..
saat form penjualan di jlnkan nota otomatis bertambah 1 di mulai dr P0001 ngmbl dr tabel penjualan,dah nyoba tp lom bs..
di form penjualan ada tombol cari saat di klik akn muncul form cari,d dlm form tersebut terdpt textcari,grid(ngambil dr tabel barang terdpt field kode&nama)begitu proses pencarian ditemukan maka kode yg ada pd grid form cari akn masuk ke form penjualan&form cari di tutup..
Kode tdk menggunakn combo coz datanx byk..
Thank’s bro..
Assalamu’alaikum Wr. Wb.
MAU TANYA NECH,
program ku eg bisa di jalanin lg setelah buat form transaksi,
errornya:
file in use
file is open in another work area,
padahal udah di select
bantuin ya…….
makasih sebelum nya,
coba di cek aja lagi
berarti file dibuka secara exclusive (singel user) untuk itu tutup saja program yang lain dan modul yg lain yg juga menggunakan file itu saat di jalankan. kalau tdk anda harus membukanya secara multiuser.
Aslm..maz mksh referensinx
Kembali kasih gan
saya honorer di sdn margakaya 1. mohon kirimam eeook gratisnya aja, sy ga bs kl hrs byr. terima kasih !
Kaga punya boss
mr.kuman mu nanya,,, aye pake program jenis one to many,,ko pada saat form transaksi di jalankan,pas di klik cmd simpan na itu kok program na eror,,bacaan nya “unniquinnes or index NOTRANS is violated”padaahal di tabel bantu ga pake primary key,,mohon penjelasan nya….thanx…
mau tanya code buat di menu utama apa ya?
soaqlnya di modul mister, syntaknya ga ada.
terus cara ngebuild program yang dah jadi gimana caranya?
makasih sebelumnya!
yang bener kaga adaaaaaa???
Assalamu`allaikum?…
bagaimana cara-nya bila data type mismacth terus
tapi data yang yang ketik sudah merasa benar?…. bagaimana permasalahannya?….
di zap lewat command
karna ada perbedaan struktur data pada field table dgn data yg di input. contohnya field table pada typenya character tapi diinput pada program dalam bentuk numeric atau sebaliknya.
caranya : – ubah field sesuai type variable yg di input
– ubah data yang di input sesuai type field pada table. contoh kalau type character dan di input numeric tinggal ubah menjadi character seperti str(varibale) atau sebaliknya character ke numberic sperti val(variable).
mr.bantuin aku bkin program foxpro dong…ak ga punya materi nya,,,tolong ya mr.kuman
Boleh< apa yang bisa saya bantu
ass,,,,,,
tolong bantuan yah mr.kuman, saya lagi bingun nih buat form untuk cetak report..
yang pake optional group…yang pilihan yah report cash dan credit…
download aja contoh program. disitu udah adaa car buat form cetak report
Salam Kenal..
Mr Kuman bisa bantu saya…saya pake Vfox 6, kalo mau copy frx ke excel tanpa form gmn caranya ya?
taruh sintaxnya dimana?
Thanx atas bantuanya, mudah2an berguna jg bagi yang laennya.
waduh, gmn ya caranya..
munkin teman2 yg lain ada tauuu
waduhh…tmn2 ad yg tauuu?
mr. kalo diprgm data report nya sdh betul tp diliat di excelnya datanya cuma dapat stengahnya, kira2 knp y? koq datanya ga masuk smua ke excel
Thanx..smg ad solusi..
tinggal pake perintah : copy to NAMAFILE xls (format terakhir untuk format xls).
atau bisa juga untuk field tertentu : copy file NAMAFILE xls field a,b,c dst sesuai kebutuhan saja.
mr kuman lam kenal, mo minta info di ktr pake vfp9 tahun absen hanya dibuat sampai 2010, klo mo tambahkan tahun nya gmana yah thx….
maksudnya ?
kalau tahunnya di ketik manual kan ga ada masalah, kalau memang di setting dari programnya hanya sampe 2010 mesti listing programnya yg di ubah dulu kemudian di complie ulang, misal pemilihan tahun menggunakan combo box, mesti di ubah listing programnya pada rowsourcenya di tambahkan lagi tahun yg baru.
Pak bisa saya minta contoh program kecil yang menggunakan RLOCK(), karena saya masih binggung cara penempatan script nya, dan sataus tabel yg saya buat itu harus seperti apa, karena saya buat pada event misalkan LOAD :
CLOSE TABLES all
USE tabel EXCLUSIVE IN 0
USE mpjualk EXCLUSIVE IN 0
USE pjualk EXCLUSIVE IN 0
dan event UNLOAD
IF USED(“tabel”)
USE IN tabel
ENDIF
IF USED(“mpjualk”)
USE IN mpjualk
ENDIF
IF USED(“pjualk”)
USE IN pjualk
ENDIF
dan event INIT
SET SAFETY OFF
SET DELETE ON
SET CPDIALOG OFF
SET TALK OFF
SET STATUS OFF
SET EXCLUSIVE OFF
SELECT mpjualk
SET ORDER TO tag bukti
SELECT pjualk
SET ORDER TO tag bukti
saya set seperti itu dan saat saya buat database (.DBC) nya share dia tdk mau di buat utk user yg ke 2 alias hanya bisa single user, yg saya mau tanyakan bagaimana ya pak agar bisa menjadi multi user dan bisa menguci record nya dengan RLOCK() pd form nya,Terimakasih.
ni contoh pembukaan file secara multi user :
if !used(fileA)
select 0
use fileA share in 0
endif
cara mengunci record saat di append, edit atau delete seperti ini :
* menambahkan record
select fileA
append blank
if rlock()
replace columnA with A
flush
unlock
endif
* meng edit record
select fileA
if rlock()
ASS.WR.WB…MR KUMAN AKU MO TANYA NIH…REFERENSI BUAT NYARI PENJELASAN TTG INDEXES PADA FOXPRO (PRIMARY,REGULARRY,…………..)DI MANA YA??? AKU UDAH NYARI DI INTERNET TP BELUM KTEMU…MOHON BANTUANNYA YA…THX B4…
ASS.WR.WB…MR KUMAN AKU MO TANYA NIH…REFERENSI BUAT NYARI PENJELASAN TTG INDEXES PADA FOXPRO DI MANA YA??? AKU UDAH NYARI DI INTERNET TP BELUM KTEMU…MOHON BANTUANNYA YA…THX B4….
Mr, bisa bantu saya?
Gini saya lg buat prog pembelian barang, dimana input detail barangnya saya buat di grid. Bila ada harga yg diinput dgn harga beli sebelumnya maka saya minta password
utk konfirmasi.Disini saya munculkan text box utk input password. Kalo passwordnya benar maka text box tsb hilang. Dan inputan diteruskan ke kolom grid selanjutnya.(maunya saya gitu) tapi disini saya mengalami kendala, stlh text box (visiblenya saya False-kan) saya tdk bisa masuk ke kolom grid lagi, padahal sudah saya set focus pada kolom grid selanjutnya.
Mr.Kuman bisa kasih tau cara codingnya? atas bantuannya saya ucapkan terima kasih…
Coba kasih nilai baliknya
misalnya saat txtbox tampil anda berikan
balik=1 dan saat password udh benar kasih nilai balik =0
askm!
dear mr.kuman
salam kenal mr.
mau tanya dunk
coding untuk export tabel k excel gmn y?
terus cara untuk mencopy data yg sama dr satu tabel hanya kita rubah penomeran otomatisnya aja gmn y ?
trima kasih
Salam kenal Mr. Kuman,,
)
saya tertarik dengan bahasa pemrograman FoxPro..jadi saya mau coba untuk belajar,,,jadi mohon bantuannya ya..(he3x,,harap maklum,,soalnya saya pemula dalam bahasa pemrograman ini
saya sudah coba buat program sederhana (kayak aplikasi pengambilan keputusan gitu…^^),,
jadi terdapat 4 pengambil keputusan (saya menggunakan combo box) yang RowSource-nya “ya” dan “tidak”.
gimana yah coding-nya agar hasil keputusannya “DITERIMA”
(dimana kalo “DITERIMA” –> mendapat minimal 3 atau lebih jawaban “ya” dari 4 pengambil keputusan tadi)…jadi selain itu (<3 jawaban "ya") maka pastinya keputusannya "DITOLAK"..
mohon bantuannya ya Mr. Kuman…^_^
terima kasih sebelumnya.
Kalo aplikasi pengambilan keputusan itu bkn program sederhan…^^,,
bingungnya pada bagian apa ? pertanyaan anda tidak begitu jelas
yah,,maksudnya saya buatnya sederhana…^^,,
jadi sederhananya gini…saya menggunakan 4 combo box dan 1 textbox, dimana masing-masing combo box itemnya “ya” dan “tidak”.
Jadi gimana yah listingnya untuk menampilkan di text1 : “DITERIMA” atau “DITOLAK”.
dengan ketentuan : jika jawaban “ya” (dari 4 combo box tadi) >= 3, maka “DITERIMA”,,selain itu (jawaban “ya” < 3) "DITOLAK".
mohon bantuannya ya Mr. Kuman…^_^
terima kasih sebelumnya.
Salam kenal Mr.Kuman, saya mau minta tolong nih, saya sdh berhasil buat program yg sederhana tetapi saya blm bisa bagaimana caranya agar program itu bisa multi user menggunakan FLOCK ataupun RLOCK , dalam beberapa buku yg pernah saya dapati tidak ada pembahasan tentang itu, saya mau minta tolong bagai mana menaruh koding nya dan memperlakukan tabel & database nya seperti apa, mohon pecerahannya, klo bisa kirim program contoh ke email saya : ugie_xw@yahoo.com, sebelumnya saya ucapkan banyak terimakasih.
Salam kenal Juga.
biasanya saya menaruh perintah ini pada kontrol program yaitu dari menu project pilih code kemudian new program. perintahnya
Function rkunci
Local kr
Do While ! RLOCK()
kr = Messagebox(“Record Sedang Dikunci..!, Coba Lagi?”,32+4,”Perhatian”)
If kr = 7
Return .f.
Endif
Enddo
Return .t.
kemudian perinteh ini dipanggil pada form Active, simpan, hapus
ada juga orang yg mengunakan perintah dibawah ini, tp ini ribet dan saya juga kaga ngerti
FUNCTION BUKATABL
PARAMETER cNamaTabel,nNomorArea, lBerbagi
lSalah = .F.
ON ERROR DO ProsSalah With lSalah
Select (nNomorArea)
IF lBerbagi = .T.
Use (cNamaTabel) Shared AGAIN
ELSE
Use (cNamaTabel) Exclusive AGAIN
ENDIF
ON ERROR
RETURN .NOT. lSalah
Procedure ProsSalah
PARAMETER lSalah
lSalah = .T.
Return
contoh program yang saya upload di blok ini sudah menggunakan perintah Flock dan Rlock
halo.
saya mau nanya.
saya buat aplikasi inventori barang
pada tabel barang terdapat item stok
pada tabel transaksi terdapat item jumlah
yang saya mau tanya apabila saya input jumlah pada tabel transaksi mis : 2 maka stok pada tabel barang yang mis : 5 bertambah otomatis jadi 7
gmn ya listing yang cocok?
makasih.
mungkin seperti ini yahh
SELECt barang
SET FILTER TO
SEEK kodebarang
IF FOUND()
REPLACE jumlah WITH Jumlah + Mjmlmsk
ENDIF
select rincimsk
set filter to
locate for notamsk=mnonmsk .and. kodebarang=mkkodebarang
if found()
replace notamsk with mnonmsk
REPLACE jumlahmsk WITH jumlahmsk + Mjmlmsk
else
append blank
replace jumlahmsk with mjmlmsk
endif
terima kasih mr.kuman, dicoba dulu listing nya.
mau tanya..
kalau ngasih primary key di tabel fox pro gimana ya?
kalau buat primary key lebih dr satu, dalam satu tabel bisa ga?
gimana caranya?
trs kalau mau pake DB My Sql, odbc nya harus download dulu ga?
kalau iya download dimana?
thanks..
modul mr. udah dibaca, tapi kurang ngerti mohon dijelasin ulang disina.
Assalamu’alaikum Wr. Wb.
mohon maaf, ada JOB neh bagi temanz2 yg Paham Vis.Foxpro,,
ada Revisi ttg program SIMDA dari Vis.Foxpro,, bukan membuat baru, tp merevisi
bagi yg berminat,, pliz kirim email ke : chandra100682@yahoo.com
Fee-nya Lumayan lo……
regards,-
mas pny contoh program inventori yang sederhana saja???
mau saya pake buat beljr.. trimz.
download aja dr contoh yg sudah ada, kalo hanya untuk belajar gah harus inventorikan
Mas.. saya minta tolong ni… ad file latihan VISUAL FOXPRO 9.0 dengan MYSQL nda?? tolong link download y ya mas… terima kasih
Mastar ali silahkan download di http://mrkuman.wordpress.com/category/contoh-program/
Hai.. smua nya Salam knl bru gabung nih.
Mohon bimbingan dan bantuan nya ya.
Salam kenal juga..
selamat datang didunia kami
MR……
buat tombol search gmn codingny??
kita akan nampilkan data pada grid1. trus lok udaah di search ntar timbul di grid2
tolong ya mr, bntu codingnya!!
hehehehehe
Ya boss…
untuk codding search alias pencarian itu udh ada di materi yg saya upload tinggal diunduh aja.
Tapi gpp ini saya kasih lagi
if .not. empty(thisform.txtcari.value)
lacak=thisform.txtcari.value
select suplier
locate for upper(alltrim(substr(nmsup,1,len(nmsup))))=upper(alltrim(lacak))
if found()
thisform.ambildata()
set filter to upper(alltrim(substr(nmsup,1,len(lacak))))=upper(alltrim(lacak))
thisform.grid1.refresh()
else
messagebox(“Data tidak ada/tidak ditemukan..!”,0+64,”Informasi”)
endif
thisform.txtcari.visible=.f.
endif
thisform.txtcari.value=”"
itu untuk search satu column saja yang cocok, untuk search lebih dari satu column atau semua column seperti pada excel gunakan perintah berikut : set filter atc(‘kuncipencarian’,column1+’ ‘+column2 …)>0
thisform.grid1.refresh
itu untuk search satu column saja yang cocok, untuk search lebih dari satu column atau semua column seperti pada excel gunakan perintah berikut : set filter to atc(‘kuncipencarian’,column1+’ ‘+column2 …)>0
thisform.grid1.refresh
Mr. Kuman Thank you for your writen. I Am come from sweden. Nice for your writen about visual foxpro in Indonesian. And now I am studying for make a program in Indonesian. I am browsing in the internet than I meet your topic about visual foxpro in Indonesian. Nice I can meet it. This is my coution well if make a Form for the input of market. My speak can’t got in Indonesia.I Am so sory if may speak not good. Thank
Thank you to visit in my blog, I look forward to cooperation for project appliaction
oh iya lupa, kalau ngasih primary key di tabel fox pro gimana ya?
trs kalau mau pake DB My Sql, odbc nya harus download dulu ga?
kalau iya download dimana?
thanks..
udh download materi yg saya upload lum, kalau udh. disitu udah ada semua, termasuk untuk membuat key lebih dari satu dalam satu tabel. unduh dulu n baca dulu ya gan
udah mr.
tapi ga jelas pembahasannya, udah dibaca semua padahal.
pingin lebih jelas lg mr, mohon bantu ya!
gimana caranya?
kalau pake mysql odbc sdh tentu harus di install juga biar bisa connect dari vfp ke mysql. search saja di google pasti ada, coba ketik di search google : myodbc 3.51.06 free download.
mau tanya..
kalau buat primary key lebih dr satu, dalam satu tabel bisa ga?
gimana caranya?
thanks..
maklum awam bg.
Mr, mo nanya nih, klo system multiuser dgn share folder, yg di share itu aplikasi .exe + databasenya atau hanya databasenya saja sedangkan aplikasi di instal di masing2 client?
Saya sudah coba dengan opsi pertama,tapi akses client jadi lambat kemungkinan karena temp masuk ke admin semua.
Jadi apakah bisa pakai opsi yang kedua? Gimana caranya? Tolong dong kasih tutorial dan sample scriptnya juga.
Thanks
yang di share databese dan exe. kalau masalah lambat udh di coba di PC line gak atau udh dicek lum networknya.
masalah lambat atau tidaknya tergantung besar file yg di akses dan jumlah user yg mengakses file tersebut, karna makin besar file yg di akses dan makin banyak user yg mengakses file tersebut akan semakin lambat, solusi yg terbaik adalah menggantinya dgn database server seperti sql server atau mysql server. apalagi kalau berbasis local online. karna saya pun pernah mengalaminya. kalau anda menggunakan database foxpro tentu folder databasenya di share, sedangkan untuk aplikasinya bila menggunakan 1 aplikasi saja dan bersifat pararel tentunya folder aplikasinya juga harus di share agar bisa di jalankan dari komputer client. anda pun bisa memasang aplikasinya ke masing2 komputer client dan jgn lupa mengikut sertakan library filenya agar bisa jalan di komputer client. dan kalaupun anda menggunakan active x control seperti date & time picker dan progress bar, ada diwajibkan pula meregistrasi library filenya mscomp dan rich32 pada komputer client. begitu juga jika anda menggunakan mysql server maka di masing2 komputer client hrs di install myodbc nya agar bisa conneck ke server.
mr.kuman saya mau buat skripsi yang berjudul ” aplikasi untuk membaca barcode pada barang – barang swalayan dengan menggunakan visual foxpro 09″ bagaimana codingnya?
Barcode itu hanyalah jenis font saja, jadi pada kode program tidak ada pengaruhnya.
Ass
Salam kenal..
Mr. Kuman Sm Mr. X, saya ini pemula, sekarang sedang buat program untuk data surat keluar, saya sudah buat 3 tabel untuk dihubungkan, sudah buat form untuk input, yang jadi masalah sewaktu saya membuat reportnya, di data environment saya masukkan 3 tabel, karena dari 3 tabel tersebut akan menjadi 1 report, setelah selesai men-drag semua field dari 3 tabel ke designer report saya klik preview untuk melihat hasil.
tapi hasilnya, record yang sudah saya input melalui form, cuma muncul record yagn pertama dengan 5 sifat surat, gimana tuh, bisa tolong cariin g dimana letak salahnya, saya bingung salahnya dimana……
please
Waskum,
Sama mbak saya juga pemula.
Itu kesalahan saat mendrag tabelnya. kirim aja ke email saya
mr.kuman…
oia..nih mau nanya lg,sy bikin TA nih. sistem kredit barang.
sy bingung nih bikin listing tgl penjualan+tgl jatuh tempo.
kalau utk tgl penjualan =tgl sekarang.
trus untuk tgl temponya itu,pmbyrn di bulan depan.
gmn yh listingnya..:(
cnth : hr ni tgl 12/11/2010 pelanggan ambil barang, trus angsuran bulan depan atau tgl jth temponya tgl 12/12/2010dan seterusnya sampe lunas…
gmn yh???tolong donk Mr.Kumannn…
tgl nya tetap sama..bulannya sm tahun yg berubah.
ini kira2 listingnya :
thisform.text1.Value=12/11/2010 (tanggal penjualan)
dblclick pada tombol text1 pilih interactive change dan isikan kode berikut :
if subs(dtoc(thisform.text1.value),4,2)thn tdk berubah
dt=subs(dtoc(thisform.text1.value),1,2)
mm=100+val(subs(dtoc(thisform.text1.value),4,2))+1
yy=subs(dtoc(thisform.text1.value),7,4)
tgl jt tempo = ctod(dt+’/'+alltrim(str(mm),2,2)+’/'+yy) &&====> jadi tgl 12/12/2010
else &&====>perubahan thn dari 2010 menjadi 2011
dt=subs(dtoc(thisform.text1.value),1,2)
mm=’01′
yy=val(subs(dtoc(thisform.text1.value),7,4))+1
tgl jt tempo = ctod(dt+’/'+alltrim(str(mm),2,2)+’/'+yy) &&====> jadi tgl 12/01/2011
endif
*
selamat mencoba
sorry untuk tgl jatuh tempo pada perubahan tahun menjadi seperti ini :
tgl jt tempo = ctod(dt+’/’+mm+’/’+alltrim(str(yy)))
bisa ada yg bantu saya untuk pembuatan program web aplikasi dgn visual foxpro, tolong bisa di info settingannya secara detail. saya sdh mencoba mengikuti seetingan sesuai yg ada di fox help melalui com server dan wsdl tapi ga jalan, saya sdh coba menggunakan aktif vfp juga ga bisa, saya juga sdh coba gunakan vfp2iis juga ga berhasil dan saya lihat untuk setting menggunakan west wind connection juga terlalu rumit karna menggunakan gabungan bahasa seperti C+, vb, asembly dan aspx. apa ada yg bisa bantu kira2 ya mr. foxpro expert?
tolong bisa di email ke hansem25@yahoo.com and thankyuu sebelumnya.
mr.x q mw mnta bantuan’a….
klo isi form combobox yang isinya jenis kelamin gmn eaa…???
trims
kenapa harus pakai combo, kalo pilihannya hanya 2 pakaio option group aja,
Mr.Kuman,
tlg bantu saya…
saya mau konsultasi tentang program TA lwt email…, ble gak..??? soalnya saya masih pemula dalam pemograman visual foxpro…
Boleh, kikrim aja ke tahjudin@awlck.com
Mr.Kuman…
gmn carax klo membuat table yang isinya sdh melebihi 10 soalx wktu saya membuat progrm sllu muncul “structure permanent”…???
mf saya masih pemula,trims atas bantuanx…
Maksudnya cara apa tu…
maksud saya gini…
saya kan lagi buat tugas akhir tentang database kependudukan pake foxpro,wktu saya buat table isix sdh lebih dari 10. pas clik OK muncul “structure permanent”…
yang jd pertaxaan saya kira2 itu mempengaruhi listing program yang saya buat…????
ga ngaruh
mt mlm Mr. Kuman…
mau minta tolong dunk..
saia kn bikin program angsuran penjualan barang…
form penjualan sm angsuran saia pisah..
utk field penjualan ; tgl penjualan, tgl jth tempo, no pelanggan, kode brg,jmlh brg, total kredit, lama angsuran, banyk angsuran/bln, uang muka, sisa.
nah…untuk form angsuran, no pelanggan, angsuran ke-,denda, ket.
logikanya…
pd saat masukin no pelanggan di form angsuran, tglpnjualn, tgl jth tmpo, jmlh angsuran sm sisa otomatis muncul.
trus untuk angsuran ke- jg otomatis terhitung.
mis; lm angsuran 10 bulan, nti pas diangsuran lgng otomatis trhitung sndiri. gmn yh listingnya??? =,=”
Silahkan kirim program yg udh kamu buat, entar saya perbaiki..
saya tidak bisa kasih tau listingnya, karena saya blm liat database kamu.
ini kirimnya k mn yh??
bingungg.. =,=”
ato krm email k sini dunk.. cherryanti@hotmail.com
nanti ta kirim k email aj.
tolong yh Mr..
ini kirimnya k mn yh??
bingungg.. =,=”
ato krm email k sini dunk.. cherryanti@hotmail.com
nanti ta kirim k email aj.
tolong yh Mr..
aduhh..comennya eror..
)
jd hancur gini..hehe..
maaf..
Select penjualan
set filter to
set order to no pelanggan
thisform.text1.value=tglpnjualn
thisform.text2.value=tgl jth tmpo
thisform.text3.value=jmlh angsuran
thisform.text4.value=jmlh angsuran+1
jang lupa tabel di relationkan dulu
Assalamu’alaikum Wr. Wb.
Mr.Kuman , Saya bangga bisa kenal anda.. Saya djokam makassar,,, jurusan TI tapi baru belajar Foxpro , mohon bantuannya gimana caranya bisa menghafal linsting segitu banyak dan rumit
Listing tidak perlu dihapasl seperti anda menghapal lirik lagu..
yang dibutuhkan adalah logika anda, kalo listing bisa dihapal hnya dgn sering latihan
misalanya ingin mencari nama mhs
1. Cek NIM yang disikan pada text1
2. jika ketemu maka tampilkan nama
Maka lsitingnya
seek mhs.nim for thisform.text1.value
( Cari nim pada tabel mhs yang diisikan pada text1
if found()
jika ketemu
thisform.text1.value=mhs.nama
isikan text2 dengan nama mhs
endif
mintol mr,….
1. gmna membuat huruf berjalan pada foxpro?
2. gmna membuat msql form data pada foxpro?
hurupnya mau jalan kaki atau naik mobil, xixi
Kalau form my sql udh dibahas didepan, download aja
tolng bantuannya mr….
1. gmna cara membuat huruf berjalan pada foxpro
2. gmna membuat mysQl form data pada foxpro
Assalamu’alaikum Wr. Wb.
mr.kuman tlong donk muatin tips2 cara mudah belajar foxpro..
Sering latihan aja…
Mr.Kuman..
bisa ajarin atau kasi contoh
atau mungkin Mr.Kuman tutorial buat bikin program retur gak?
soalnya aku lagi bikin program penjualan nih, tapi bingung sama proses buat returnya..
please ya Mr.Kuman
Bingung pada bagian apanya, kalo kamu bisa bikin transaksi barang keluar harusnya transak retur juka bisa.
GIMANA CARA MENJALANKAN .EXE FOXPRO TANPA HARUS INSTALL VFP, thx
Udh kita bahas via phone…
Udh bisa lum m ?
Assalam….Mas mo minta tolong nih…tugas akhir sy judulnya “sistem otomasi perpustakaan dengan menggunakan barcode” tapi pake foxpro truz databasenya pke mysql.nah saya gak tw listing u/barcodenya itu truz gmn klo db foxpro mo diimport ke mysql??soalnya kmrn sy belajar foxpro trz bkin DBnya di foxpro tapi kata dosen harus pake Mysql.Nah krn waktunya mepet gmn klo DB foxpro diimport aja ke Mysql tapi gmn caranya…Makasih bnyak mas.Jazakumullah….
Waskum…
tidak ada tambahan listing untuk Barcode, anda cukup merubah font pada objek yg anda gunakan.
Misalnya pada object text, anda rubah fontnya jadi barcode. kemudian tulis listing transaksinya di event yg ada iningkan, misalnya di event intraktive change.
mas gimana yah listingnya utuk import/export data dari foxpro ke excel dan gimana cara memanggil excel di foxpro>>>
mohon bantuannya mas nih untuk program ujian meja…
makasih sebelumnya
klo bisa kirim aja ke mexblack@ymail.com..
di Help sudah lengkap… ato di Solution jg ada sampelnya..
gimana caranya ngerapatin spasi contoh kita inputkan di textbox 13.2 maka hasilnya menjadi 132 di textbox berikutnya
trimakasih b4 atas bantuan temen2…
Mr. Kuman I NEED YOUR HELP…
aku dapat tugas dari Atasanku untuk buat Aplikasi POS (Point Of Sale).
Aku minta tolong bisa ngasih aku contoh yang sederhana?
Tolong bgt.
Aku pake Fox Pro 6
Thanks bgt
mr kuman tolong di bantu ya, saya mau buat program pengelolaan barang,logikanya seperti ini:1.saya input No barang sebelumnya kemudian saya input quantitynya dan supaya muncul dan kesimpan dalam table kemudian no barang muncul dan kesimpan sesuai jumlah quantity gmana ya perintah programnya?
tolong tolong mr.kuman
saya lg bingung mau buat program data base penjualan dan bongkar muat karena banyak sekali menggunakan table gimana caranya ya ???????? di tunggu
Tolong…minta bantuannya…gmn caranya cetak report per tanggal????di tunggu
Ass. Wr. Wb
Saya senang belajar VFP saya masih pemula, karena saya ingin banyak tahu VFP, saya ingin tahu programnya jika contoh outputnya : Rp. 15.550.440,- (Lima Belas Juta Lima ratus lima puluh ribu empat ratus empat puluh rupiah) seperti buat kwitansi… terima kasih atas jawabannya.
wassalam
Yudah belajar yang rajin, biar bisa
angka=15550440
do terbilang with angka,hasil
* terbilang.prg
Para angka,Tulis &&mSat
stor “” to milyaran,jutaan,ribuan,bilang,terbilang
angka = rtrim(str(angka))
xx = right(angka,6)
yy = left(angka,4)
aa = right(xx,3)
bb = left(xx,3)
cc = right(yy,3)
dd = left(angka,1)
if val(dd) # 0
aa = dd
ongkone = left(angka,1)
=satuan(ongkone)
milyaran = bilang + “milyar ”
endif
if val(cc) > 0
aa = cc
=ratusan(aa)
jutaan = terbilang + “juta ”
endif
if val(bb) > 0
aa = bb
=ratusan(aa)
if ltrim(terbilang) = “satu ”
terbilang = “se”
endif
ribuan = terbilang + “ribu ”
endif
aa = right(xx,3)
if val(aa) > 0
=ratusan(aa)
ratusan = terbilang
else
ratusan = “”
endif
tulis = ltrim(milyaran) + ltrim(jutaan) + ltrim(ribuan) + ltrim(ratusan)
if len(tulis) = 0
tulis = “nol”
else
tulis = left(uppe(tulis),1) + subs(tulis,2,len(tulis)-1)
endif
&&tulis = ‘(‘ + rtrim(tulis) + rtrim(mSat) + rtrim(mRp) + ‘)’
tulis = ‘(‘ + rtrim(tulis) + space(1)+”rupiah” + ‘)’
return
************
function ratusan
************
param aa
if val(left(aa,1)) > 0
ongkone = left(aa,1)
=satuan(ongkone)
if bilang = “satu ”
bilang = “se”
endif
terbilang = bilang + “ratus ”
endif
if val(right(aa,2)) > 19 .or. val(right(aa,2)) = 10
plh = right(aa,2)
ongkone = left(plh,1)
=satuan(ongkone)
if ltrim(bilang) = “satu ”
bilang = ” se”
endif
if left(aa,1) = “0″
terbilang = bilang + “puluh ”
else
terbilang = terbilang + bilang + “puluh ”
endif
if val(right(aa,1)) # 0
ongkone = right(aa,1)
=satuan(ongkone)
terbilang = terbilang + ltrim(bilang)
endif
else
if val(right(aa,2)) = 0
bilang = “”
else
if val(right(aa,2)) > 10 .and. val(right(aa,2)) < 20
ongkone = right(aa,1)
=satuan(ongkone)
if ltrim(bilang) = "satu "
bilang = "se"
endif
if left(aa,1) = "0"
terbilang = bilang + "belas "
else
terbilang = terbilang + bilang + "belas "
endif
else
ongkone = right(aa,1)
=satuan(ongkone)
if left(aa,2) = "00"
terbilang = bilang
else
terbilang = terbilang + ltrim(bilang)
endif
endif
endif
endif
return terbilang
***********
function satuan
***********
param ongkone
do case
case ongkone = "1"
bilang = "satu "
case ongkone = "2"
bilang = "dua "
case ongkone = "3"
bilang = "tiga "
case ongkone = "4"
bilang = "empat "
case ongkone = "5"
bilang = "lima "
case ongkone = "6"
bilang = "enam "
case ongkone = "7"
bilang = "tujuh "
case ongkone = "8"
bilang = "delapan "
case ongkone = "9"
bilang = "sembilan "
endcase
return bilang
* by prio 08161973535
Mr. kuman. ane mau tanya nih. ane bikin program penyewaan ruangan dengan vfp9. di form transaksinya ane buat ada tgl masuk sama tgl keluar dan keduanya type sudah date, tp knp selalu mismacth? mohon bantuanya Mr???
kalo say sih biasanya kaga maslah tuhh. sebelum data disi say slalu membersikan text inputan, contoh
thisform,text1.value=ctod(“../../….”
kalau bikin aplikasi buat kredit gmn yh??
untuk angsurannya…
bingung nih..:(
salam kenal
mr.kuman saya mohon bantuannya bagaimana ya caranya membuka folder dalam folder
contohnya
d:\dataprogram
disini ada folder data
didalam folder kedua berisikan file tabel-tabel *.dbf bagaimana caranya agar saya jalankan program file di folder kedua bisa di baca
trima kasih sebelumnya
Perangangan cash register menggunakan vfox apa bisa mas?
Hal penting yang mesti kita tahu dalam mebuat aplikasi penjualan apa mas?
aplikasi point of sale di suprmarket misalnya..
mau tanya mas…
saya bwt aplikasi input data pake VfP9 tp kalo waktu dijalankan tiba2 listrik mati, tabelnya tidak bisa dibuka lg. knp & gmn solusinya? tengkyu
ada backupnya ga ? kalau ada back upnya copykan aja tabelnya
cobain aja pake filefix kalo databasenya “dbf”
mas mau tanya ne
bagaimana cara mengubah tabel jumlah beli pada tabel sementara di transaksi
pada saat melakukan transaksi yang sama
hanya jumlah belinya saja yang berubah
tanpa menabahkan field yang sama pada saat transaksi
mohon bantuanya ya mas
bagaimana rancangan databasenya boss ? apa udh bener atau blm ?
tolong kalo bisa program nya sampe tuntas ya buat contoh saya buat skripsi please ya MR.kuman..
biar ada bayangan maklum saya belum begitu mengerti foxpro..
di sample program semua program udh tuntan,
silahkan download materi yg udh ada
mr.kuman tolong program nya kalo bisa yg lengkap doong please…biar buat contoh saya…
Program yang mana maksudnya ???
yang tentang penjualan gitu kasir thanks MR kuman.
Mr. Banyak Info yang telah kudapat dari Mr. Tanks ya..
Aku mau tanya : Gemana menyaring/filter yang kata kuncinya diwakili oleh tanda * (asteris)? kalo di access mungkin pake …namafiled like katakunci, untuk ditampilkan di contrl list, grid atau report. trimakasih ya.
terima kasih om…..,tolong dong tentang pemrograman yang berbasis WEB plizzzzz tlong banget ya….?sukses selalu
Apanya yang bisa saya tolong nihh
Mr Kuman,saya mau tannya donk,saya sedang membuat program dgn visual foxpro 9,saya sudah membuat table karyawan dengan primary key nik/nomor induk karyawan dan saya membuat form untuk input data karyawan,tetapi knp waktu saya save ada message error unigueness of index KDKSR is Violated.maksud salahnya apa ya mr Kuman,tp kalau saya input di tablenya mau di save.terima kasih atas jawabanya.
Hapus dulu semua data pada tabel karyawan, tau anda jalankan dulu perintah zap pada command.
mr kuman pada contoh program yg diberikan mr kuman…..pada form nasabah sy ingin menambahkan photo masing masing nasabah di dalam formny gmna carany ya..? thq
Udh dicoba belummm???
udh Mr…. tp gmna ya lisitng program utk masing-masing form data nasabah dapat memperlihatkan photo diri masing2x……kalau masukin photo sih bisa tp utk load di masing2x nasabah utk memunculkanny jika kita click tombol cari…..mis:nama nasabah, maka photo masing2x juga muncul sesuai dgn nama yg kita cari,,,,,,,thq Mr
mr mo tanya apa bedany fox pro 8.0 dgn yg versi 9.0 apa lebih stabil yg versi 9.0 ya ?? thq
Sampai saat ini saya masih pakai versi 6.0
ok thq….Selamat menunaikan Ibadah Puasa ya Mr…..
Sama2 boss
Mas, tlg ksh tau cr membuat report dgn 2 tabel pake foxpro dunk. .pliss y. . .aq bth bnt’n n urgent bgt ne
Di materi yg udh saya upload, sudah dijelaskna masalah membuat report
malam mas mr. kuman
ane mao tnyya seleksi repot dengan data picker untuk mncetak report berdasarkan tanggal awal dan tangal akhir,,,
thanks yach mas mr. sebelumnya
Untuk mecetak report berdasarkan tanggal sudah add di materi yang saya sajikan, silahkan download.
Jika ada yang bersedia mengajari saya visual foxpro (kursus jarak jauh/bayar berapa?), Hubungi nomor sy (Sebelumnya SMS terlebih dahulu) 081336191997
Mr. Kuman, tolong dong minta no.HP-nya
Hp : 081 392 391 293
Ym : tahjudin@yahoo.co.id
Mohon jika ada yang bersedia mengajari saya cara membuat program multi user dan trik2 pencetakan pada visual foxpro, aku bersedia kursus. Trims.
Siap bapak…tapi saya lebih setuju kalau di share pada blog ini
Siap bapak…
Namun sebenarnya contoh program yang udh saya upload adalah program bebasis multi user, dengan menggunakan konsep share folder
sebagai cirinya anda bisa liat pada bagian project- tab code disitu ada listing
FUNCTION RELOCK
LOCAL JN
DO WHILE ! RLOCK()
JN = MESSAGEBOX(“Record Sedang Dikunci..!, Coba Lagi?”,32+4,”Perhatian”)
IF jn = 7
RETURN .f.
ENDIF
ENDDO
RETURN .t.
ini adalah ciri dari multi user yang saya gunakan.
Namun jgn kwatir saya akan coba buat aplikasi sederhana yg multi user menggunakan database mysql, sekalin menjawab pertanyaan teman kita ojan.
mas kuman mau tanya niyh,.listing program untuk pembulatan angka di belakang koma gmana ya?mohon di bantu mr?
saya belum pernah buat juga nih tp biasanya kalo pembulatan saya hanya mengatur melalui propertis text, dibagian propertis suatua abject anda atur formatnya, biasanya saya mengisikan dengan 99,99 ( 2 angka di depan dan dua angka dibelakang koma ).
Munkin teman2 yang lain punya solusi yg lebih jitu dan singkat
To Admin :
Link baru koq gak bisa di akses?
tinggal pakai perintah int saja, sebagai contoh 12.5 tinggal di tulis int(12.5) maka hasilnya adalah 12. tapi kalau mau pembulatan ke atas tinggal tambahkan int(12.5+0.5) maka hasilnya 13.
halo mr saya khoirul saya mau tanya, saya lagi buat software pake visual foxpro 9.0
tapi pas compiler saya ga punya file dll nya saya mohon bantuannya
Assalamu’alaikum,,,,, Mau tanya Mas,,,,,
gimana ya caranya mengubah project foxpro kita menjadi file exe (compile)???
mhon jawabannya…..
saya pake foxpro 8.0… makasihhh
Silahkan download materi foxpro, disitu ada semua, termasuk bagaimana membuat file exe
mas membuat report pada visual foxpro tapi pake database di mysql.
gimana caarnya?
mau tanya.
kalau mau bikin report untuk vfp, tp table data base nya ngambil dr my sql.
gimana caranya ya?
thanks..
Caranya download di http://www.4shared.com/document/aoM5y0Ta/DATAbase_MY_Sql.html
salam Sejahtra,,,
Pak,,,
Saya lagi buat report dari 4 tb_petugas,tb_instansi,tb_peserta,tb_materi)untuk cetak permateri, perpetugas,perbulan n pertahun tapi muncul data cuma satu padahal sudah diinput data lebih dari satu di form proses,,,bagaimana memperbaikinya pak soalnya sy dah bingung ne,,,?
listing preview di form cetak per petugas
IF EMPTY(thisform.combo1.Value) THEN
MESSAGEBOX(“pilih Kode Petugas yang akan dicetak”,0+64,”")
ELSE
a=THISFORM.SPInner1.Value
b=thisform.combo2.ListIndex-1
c=thisform.combo2.Value
d=ALLTRIM(thisform.combo1.Value)
SELECT DISTINCT Tb_materi.judul, Tb_materi.tgl_mulai,;
Tb_materi.tgl_selesai, Tb_peserta.kd_peserta, Tb_peserta.nm_peserta,;
Tb_petugas.nm_petugas, Tb_instansi.nm_instansi;
FROM ;
dbbimbingan!tb_materi ;
INNER JOIN dbbimbingan!tb_peserta ;
ON Tb_materi.kd_peserta = Tb_peserta.kd_peserta ;
INNER JOIN dbbimbingan!tb_petugas ;
ON Tb_materi.kd_petugas = Tb_petugas.kd_petugas ;
INNER JOIN dbbimbingan!tb_instansi ;
ON Tb_peserta.kd_instansi = Tb_instansi.kd_instansi;
WHERE YEAR(Tb_materi.tgl_selesai)=a AND MONTH(Tb_materi.tgl_selesai)=c AND tb_petugas.kd_petugas=d;
INTO CURSOR B
IF _tally > 0
REPORT FORM perpetugas.frx NOCONSOLE PREVIEW
ELSE
MESSAGEBOX(“Data tidak ditemukan”,0+64,”")
thisform.spinner1.SetFocus()
ENDIF
ENDIF
listing preview di form cetak permateri
A=THISFORM.SPInner1.Value
b=thisform.combo1.ListIndex-1
c=thisform.combo1.Value
A =THISFORM.spinner1.Value
SELECT DISTINCT Tb_materi.judul, Tb_materi.tgl_mulai,;
Tb_materi.tgl_selesai, Tb_peserta.kd_peserta, Tb_peserta.nm_peserta,;
Tb_petugas.nm_petugas, Tb_instansi.nm_instansi;
FROM ;
dbbimbingan!tb_materi ;
INNER JOIN dbbimbingan!tb_peserta ;
ON Tb_materi.kd_peserta = Tb_peserta.kd_peserta ;
INNER JOIN dbbimbingan!tb_petugas ;
ON Tb_materi.kd_petugas = Tb_petugas.kd_petugas ;
INNER JOIN dbbimbingan!tb_instansi ;
ON Tb_peserta.kd_instansi = Tb_instansi.kd_instansi;
WHERE YEAR(Tb_materi.tgl_selesai)= A AND MONTH(Tb_materi.tgl_selesai)=c;
INTO CURSOR B
IF _tally >0
REPORT FORM perbulan.frx NOCONSOLE PREVIEW
ELSE
MESSAGEBOX(“Data tidak ditemukan”,0+64,”")
thisform.spinner1.SetFocus()
ENDIF
listing preview di form cetak per tahun
A=THISFORM.spinner1.Value
SELECT DISTINCT Tb_materi.judul, Tb_materi.tgl_mulai,;
Tb_materi.tgl_selesai, Tb_peserta.kd_peserta, Tb_peserta.nm_peserta,;
Tb_petugas.nm_petugas, Tb_instansi.nm_instansi;
FROM ;
dbbimbingan!tb_materi ;
INNER JOIN dbbimbingan!tb_peserta ;
ON Tb_materi.kd_peserta = Tb_peserta.kd_peserta ;
INNER JOIN dbbimbingan!tb_petugas ;
ON Tb_materi.kd_petugas = Tb_petugas.kd_petugas ;
INNER JOIN dbbimbingan!tb_instansi ;
ON Tb_peserta.kd_instansi = Tb_instansi.kd_instansi;
WHERE YEAR(tb_materi.tgl_selesai)=A;
INTO CURSOR B
IF _tally > 0
REPORT FORM pertahun.frx NOCONSOLE PREVIEW
ELSE
MESSAGEBOX(“Data tidak ditemukan”,0+64,”")
thisform.spinner1.SetFocus()
ENDIF
Udh di grouping belum ?
mas tanya dounk untuk buat file exe ku bisa tp pas di buka kok malah pas di buka malah tulisan kotak-kotak
udh di set menu lum ?
ngerti apa si . . .
newbe z berlagu
sangat bermanfaat
Mr Kuman sy sedang membuat program penjualan dari referensi buku Pak Peter….tp begitu dirunning kok ada errorny ya di form penjualanny mohon bantuanny Mr…bisa gak ya sy kirimin contoh project sy….thq
Siapa itu Pak Peter, kaga kenal dan saya kaga punya bukunya…
Kayanya saya perlu buat buku nihh, setuju kaga ???
Boleh saja, silahkan di upload dan di share .
Mr.Kuman saya udah liat simple program foxpro Mr.Kuman, pada form nasabah prosedur init, “public postadi” itu maksudnya apa ya?
thx b4 mr.Kuman..
itu di gunakan untuk mempublic variable postadi, agar dapat digunakan pada form lainnya.
Aslmkum….salam kenal,,
saya mau bikin program tentang pembayaran spp n data siswa.
logikanya begini:1. ketika saya menginput tahun masuk misalnya 2009-2010 maka biar di NIS tu secara otomatis bisa diawali dengan 09.xxxxx.
2.gmna caranya biar no-pembayaran secara otomatis bisa muncul,misalnya saya mw memulai menginput data pada no_pembayaran “00001″ terus disimpan,gmn caranya biar no_pembayaran “00002″muncul otomatis
gmna listing programnya……
tlg dijawab ya…..
thank b4
Wss…salam kenal juga.
maaf saya menjawabnya lambat, maklum orang kampung kalo mau internetan harus kekota dulu.
terimakasih atas pertanyaannya,
1. menggabungkan tanggal daftar dan no urut
batas1=thisform.text1.value
select calonmhs
set filter to thamasuk=batas1
goto bottom
if nodaftar=space(19)
vnourut=”001″
else
mnourut=val(left(nodaftar,4))+1
do case
case mnourut<10
vnourut="00"+ltrim(str(mnourut))
case mnourut<100
vnourut="0"+ltrim(str(mnourut))
case mnourut<1000
vnourut=ltrim(str(mnourut))
endcase
endif
vth1=substr(thisform.text1.value,3,2)
vth2=substr(thisform.text1.value,8,2)
vnodaftar=vnourut+"/"++vth1+"-"+vth2
thisform.text2.value=vnodaftar
untuk jawaban yg kedua anda cukup membuat perintah
select calonmhs
set filter to thamasuk=batas1
goto bottom
if nodaftar=space(19)
vnourut="001"
else
mnourut=val(left(nodaftar,4))+1
do case
case mnourut<10
vnourut="00"+ltrim(str(mnourut))
case mnourut<100
vnourut="0"+ltrim(str(mnourut))
case mnourut<1000
vnourut=ltrim(str(mnourut))
endcase
endif
thisform.text2.value=vnourut
master minta refrensi listing – listing dan fungsinya yg di gunakan d visual foxpro donks?
mas, cara masukin item ke combobox tapi menurut kode gmana?
msalnya saya punya tbel dtailpinjam, nah, saya mau nambahin kde buku d combobox…tapi yang ada d combo itu cuma kode buku yang dipinjam ma satu nomer pinjam,,,gmana ya?
no pinjam:001
buku :a,b,c
no pinjam:002
buku :b,d,e
jadi bila saya masukkan nomer pinjam 001,maka yang tampil d combobox cuma buku a,b,dan c….dan jika saya masukkan nomer pinjam 002, maka combobox yang tampil buku b,d, dan e…
gmana y mas?
bantu donk…
di add item aja, kemudian tabel di urutkan berdasarkan kode
mas bisa kasih contoh program pejualan dengan foxpro ga?
tolong ya master,, thaks.
di unduh aza pada bagian contoh program. contoh yg ada udh mewakili logika untuk buat program penjualan
minta mentahan foxpro 9.0 dunks mr kuman,..?posting yg kmarin thanks ya..salam knal jg niyh,,..
mentahan foxpro 9 apa y…kalo mentahan makanankan uang kalo foxpro 9 apa y ?
maksudnya software foxpro nya gtu instalannya..
Posting nya Sangat membantu banget…
TOPBGT for Mr.Kuman….
saya mau tanya,saya sudah buat program visual foxpro sampai buat file executible nya,lalu saya mau jalankan file exe nya d komputer lain tp ga bisa jln,tp apakah ada file yg harus d copy k windows system 32 nya?
Silahkan ada buat file tetup terlebih dahulu agar bisa jalan di PC lainnya
thanks yap mr kuman..
Assalamualaikum Mr Kuman..
Ada contoh listing untuk menghitung umur g??!!
u/foxer g laen kalo ada yg tau boleh dunk share,,
u/TA
Thx b4
Wss Wr, Wb
umur=year(date())-year(thisform.text4.value)
do case
case umur>65
messagebox(“Umur lebih dari 65 tahun..!”,0+64,”Informasi”)
thisform.text5.enabled=.f.
thisform.optiongroup1.enabled=.f.
thisform.tblsimpan.enabled=.f.
case umur<15
messagebox("Umur lebih kurang dari 15 tahun..!",0+64,"Informasi")
thisform.text5.enabled=.f.
thisform.text6.enabled=.f.
thisform.optiongroup1.enabled=.f.
thisform.combo1.enabled=.f.
thisform.combo2.enabled=.f.
thisform.tblsimpan.enabled=.f.
otherwise
thisform.text5.enabled=.t.
thisform.text6.enabled=.t.
thisform.text10.enabled=.t.
thisform.optiongroup1.enabled=.t.
thisform.combo1.enabled=.t.
thisform.tblsimpan.enabled=.t.
endcase
Buat yg lainnya silahkan kasih masukkan atau listing yg lebih singkat.
mas master ….
tolong nih, saya ga bisa untuk merecord jumlah absensi
logikanya :
setiap karyawan hanya dapat absensi dalam satu hari 2 kali
tmpilan form absensi , nik, nama, tgl, time, dan passwd
dan akan menyimpan pada tabel absensi…
ketentuan jam masuk kerja
jam 9.00 – 17.00
lebih dari jam 17.00 maka akan di hitung lembur
selisih jam keluar kerja – jam pulang absensi dengan perhitungan di tabelnya (satu jam) contoh pulang jam 18.00
jadi 18.00 – 17.00 maka record di tabel absensi pada field lembur = 1
jika lebih dari 30 menit maka di hitung = 1
bagaimana cara mencegah karyawan absen 2 kali
serta pada form perhitungan uang makan, mengambil jumlah count absen dari tabel absensi berdasarkan NIK
bagaimana caranya ya mengambil jumlah record menurut NIK
mohon contoh code dalam foxpronya ?
salam kenal mas, saya baru belajar visual foxpro, sebelumnya saya telah mengenal foxpro yg under DOS, pertanyaan saya apakah semua fungsi dan command di foxpro under DOS bida dipakai di visual foxpro. trims atas jawabannya.
Salam kenal juga…
Bisa boss
Mr. kuman…Mohon bantuannya nih…
sya membuat laporan pengolahan data PDAM..terbentur pd membuat laporan berdasarkan bulan..carnya gmana tuh, mohon bantuannya!
Silahkan download contoh program,
udah Mas….tapi kaga ngarti atuh….soalnya banyak perintah yg saya g paham….contoh if isi>0…cekdata>0…itu perintah untuk apa Mas????????
dear all
ane lg mau blajr nih menggunakan foxpro, web mana yg ada download gratis yach cos ane bt kerjaain skripsi nih sekaligus bljr program nih…. kalo rekans ada punya file kirim ke ane aja…
thanks yach sebelumnya
help dunk…
kenapa form saya waktu dijalankan selalu error dgn variabel yg berhubungan dgn bilangan (Rp).
cth : replace Harga with thisform.txtHarga.value
coding yg dgn jumlah bilangan seperti ini selalu eror, kenapa ya mas? karakter didatabase yg salah atau codingnya??
thx b4..
kalau kamu gunakan data numerik sebelum meyimpan data kamu harus memberikan nilai value = o
contoh
thisfotm.txtharga.value=0
kok pertanyaan sy gak di jawab2 ???
wah Hebat nih……Mr Kuman Jasa Kamu Mas(lae) Bagi Bagi Ilmu….
Aku Salud….Bisa Nga Ikut Dengan Tim Kalian ,,,,,
Aku Juga Mau Bagi Bagi Ilmu Sama Orang Lain Terutama Sama Mahasiswa…
Oke Gimana…
Trim’s
terimakasih atas pujiannya…
Boleh, dengan senang hati
mr. kuman.
boleh minta bantuan.
saya agak bingung dengan listing pada program tugas akhir saya.
yaitu di listingnya.
suscpend. dan gedebag gedebug ga karuan.
program tentang penjualan jasa..
bsa dibantuu ?
Boleh saja, tapi apanya yang gedebag gedebug ga karuan ?
listingnya mas.
maksut aku slalu aja kalo di running ga mau konnek ke databasenya.
tp saya bingung gmana saya minta bantuan pak kuman?
apa saya send contoh programnya ?
send aza
cara meng indek gmn????
Mr. kuman..aq pgn bikin sistem laporan keuangan yang didalamnya ada sistem kas kecil..gmn ya..pliz bntu aq bgt..deadline smpe akhir bulan juli..
da gt DAD dan flowmap nya jg harus dibuat.thx
Y udah dibuat dengan penuh semangat y
thanks yach mr kuman saya masih bingung dengan cara membuat program login tolong bantu yach kirim ke email saya aja dech kalo bisa bantu thank sebelum n sesudah nya
Kembali kasih gan.
Bingung membuat login ??? pada bagian apa yang bingung ?
mr. kuman sy mau tanya lg nich.. (gpp kan, hehe) kl mau menampilkan record terakhir dari combo box yang kita pilih listingnya apa ya? dengan catatan combo box yang kita pilih itu sudah di save di table sampai beberapa kali.. mis udah di save sampe 3 kali transaksi, nah bgmn menampilkan transaksi yang ke 3 itu? (bingung euy…)
mr. kuman sy udah share program TA sy lewat http://www.4shared.com/file/7bNNWxq3/program_ta.html mohon bantuannya ya mr. kuman… terima kasih sebelumnya.
Pak bos saya mau tanya. Perbedaan tabel menggunakan database dengan free table dimana ya??..
Saya biasa menggunakan tabel free untuk membuat applikasi multi user
Kalo program penjualan aku ada.. Kalo penggajian ga ada. Mas ada contoh program baru ga. Contoh program FOXpro yang pak bos kasi tum tetang PROGRAM Bank, ada errornya.. He,,
sy udh berjuang ampe rambut rontok2 nich mr. kuman. syukurlah sy nemuin situs ini. tolongin aku dunk mr. kuman, coz awal juli nanti TA aku sudah harus selesai.. stress bgt nih aku mr. kuman.. hiks..hiks..
yudah di shra aza prohramnya lewat http://www.4shared.com/ , siap tahu teman2 yang juga ada yg mau bantu.
mr. kuman sy udah share program TA sy lewat http://www.4shared.com/file/7bNNWxq3/program_ta.html mohon bantuannya ya mr. kuman… terima kasih sebelumnya.
gmn caranya bkin free table seh?? pk vb tp
Mr.Kuman Tolong Kasih Contoh Program Penggajian Dunk??
Dear All…
ada yang bisa bantu saudara kita yang satu ini gak…
saya lagi gak bisa bantu nih, karena link internet sy lambat bgt…maklum ditengah hutan
trima kasih mr. kuman utk listingnya. tapi setelah aku coba, kok hanya bisa sampai angsuran ke 2 saja ya? angsuran ke 3 dst tidak bisa. mr kuman aku lagi buat program utk Tugas Akhir, aku buat ttg peminjaman dana tunai pada koperasi. kira-kira saya bisa kirimin contoh program saya ke email mr. kuman tidak? agar mr. kuman bisa liat program yang saya buat dan kesulitan saya dlm pembuatan listing angsuran. mohon bantuannya mr. kuman. trim’s
cara nambah tanggal secara otomatis gmana y mas?
saya kan bkin program perpus, trus saya mau bkin tanggal batas pengembalian
tu rumusnya
tgl batas=tgl pinjam + lama pinjam
kan klo tgl pnjam tu tipenya date,saya bkin pake data picker, nah klo lama pinjam tu kan tipenya numerik ,otomatis muncul dari jenis buku,klo fiksi lama pinjamnya 7hari,klo selain itu lama pinjamnya 14 hari…nah gmana cara nambah tgl pnjam ma lama pnjaml biar bsa jd tglbatas pinjam…kn tipe datanya beda…tolong y mas…
listingnya dah saya pake format CTOD/DTOC py ttep g bsa,,,,buntu otak saya…
untuk penambahan tanggal di foxpro ada hal yg paling mudah berbeda dgn bahasa pemrograman lainnya, anda bisa langsung tambahkan saja dengan 14Coba dulu pakai text biasa kalo udh bisa baru coba pakai data picker
waduh…..g bsa juga tuh mas……piye iki…?
apanya yang gak bisa ?
Mr. kuman mau tanya nih,, Di form angsuran, saya punya data pada combo box no_pinjaman, antara lain:
1. NPJ0210001
2. NPJ0210002
3. NPJ02010003
jika pd form angsuran, no_pinjaman NPJ0210001 di klik dan no_pinjaman tersebut blm ada di table angsuran, maka angsuran ke akan mengisi 1, dan jika transaksi sudah di save ke table angsuran, lalu no pinjaman NPJ021001 di klik lagi, maka angsuran ke akan bertambah jadi 2, jika transaksi sudah di save ke table angsuran dan berkutnya no pinjaman yang sama NPJ0210001 di klik maka angsuran ke akan bertambah jadi 3 dan begitu seterusnya. bgmn listingnya? tolong banget yah Mr. kuman, atau buat foxpro mania yang tau listingnya tolong kasih tau dong.. butuh banget nih.. thx
Silahkan download di http://www.4shared.com/file/PhbGhGd9/Angsuran_KE.html
trima kasih mr. kuman utk listingnya. tapi setelah aku coba, kok hanya bisa sampai angsuran ke 2 saja ya? angsuran ke 3 dst tidak bisa. mr kuman aku lagi buat program utk Tugas Akhir, aku buat ttg peminjaman dana tunai pada koperasi. kira-kira saya bisa kirimin contoh program saya ke email mr. kuman tidak? agar mr. kuman bisa liat program yang saya buat dan kesulitan saya dlm pembuatan listing angsuran. mohon bantuannya mr. kuman. trim’s
Mungkin masih ada tabel yg belum di set filter to
Boleh tapi saran saya kamu berjuang dulu untuk cari solusinya kalo udh mentok br kita garap bareng. Ok
mau tanya dong, gmn kalo pd saat transaksi dijalankan, lalu kita pilih no_pinjaman maka angsuran_ke akan muncul ke 1, tp jk mau input lagi kita pilih no_pinjaman yang telah di save tersebut, maka angsuran_ke akan menjadi 2, jk kita input lagi dan pilih no_pinjaman yang sama, maka angsuran_ke akan menjadi 3, begitu seterusnya. apa listingnya ya?
Mr. Kuman, saya pengen tau perintah untuk cetak halaman tertentu report yang udah dibuat tapi bisa di preview dulu. mksh sblmnya.
perintah yg digunakan sama dengan perintah dibawah ini. Dan jenis pertanyaanpun sama seperti yang ditanyakan mas yan
mohon bantuannya… bagaimana caranya jika membuat report yg berbentuk faktur/kwitansi/nota terpisah antara transaksi yg ke-1 dan yg seterusnya. mohon bantuanya soalnya report saya transaksi ke-1 dan ke-2 jd satu, mohon bantuannya…?
UNtuk memisahkan transaksi 1 dan transaksi lainnya, silahkan anda lakukan grouping pada report anda, dan jgn lupa di filter pada saat mencetak atau menampilkan laporan…
Misalnya
select transaksi
set filter to
ltrim(str(year(tglskb)))
set order to nota
count to jumlahdata for nota=thisform.txtbota.value .and. tgltransaksi=ltrim(str(thisform.txttgltransaksi.value)
if jumlahdata>0
thisform.windowstate=2
report form transaksi for nota=thisform.txtnota.value .and. tgltransaksi=ltrim(str(thisform.txttgltransaksi.value) preview
thisform.windowstate=0
else
messagebox(“Data belum ada atau tabel kosong..”,0+64,”Informasi”)
endif
Mas, terima kasih atas contoh program visual foxpronya, saya lg belajar nih mas, tapi kenapa ya setelah download contoh programnya kanapa ya antara PROGRAM REPORT…dan PROGRAM dan PEMBUATANA PROGRAM UTAMA isinya kenapa sama ya. Tolong ya mas…Terima kasih.
sebelum anda menjalankan program,
arahkan dulu tempat menyimpan programnya, caranya tool- option -File Location- Default Directory ( Arahkan ke drive anda menyimpan program)
Ass..kak tolong dung bantuin tugas akhir saya saya kan baru pertama belajar foxpro sya ingin disaat kita login nama user nya bisa tampil diform tranksaksi itu gimana sih caranya di form apa dan listing nya gimana soalanya saya dah buat di form tranksaksi di form activate nya seperti ini thisform.textuser.value=login.nmuser
Tapi dia hanya bisa tampil satu nama user ga bisa ganti user sesuai dengan nama user yang ingin kita masukin tolong dungk kak kali ini ja makasih
gimana sich cara buat connect foxpro dengan my sql
toloooooooooooooong doooooooong di bantu…………..!
bro… connect ke my sql atau database lainnya ..yg kamu harus lakukan pertama kaili :
Buat dtbase pada foxpro, kemudian klik kanan pilih connections, new, kemudian pilih new data source, selanjtunya pilih koneksi database yg anda gunakan…
selamat mecoba dan berusahaaaaa
Salam Om, saya lagi belajar foxpro, saya mau gunakan GRID gimana caranya append edit save datanya, tolong dong kodenya gimana? terima kasih
timer (timer)
thisform.lbljdl.Left=thisform.lbljdl.Left-1
IF thisform.lbljdl.Left=0-thisform.lbljdl.Width
thisform.lbljdl.Left=thisform.Width
ENDIF
salam kenal…dear all
saya lagi TA, membuat aplikasi pendaftaran siswa dan pembayaran SPP utk tingkat SLTP, namun saya mengalami kesulitan dalam database dan form terutama dalam listing programnya selalu eror dan gagal.
mohon bantuan untuk contoh-contoh database dan form berikut listingnya…
sebelumnya saya ucapkan banyak terima kasih.
Download Aza di bagian http://mrkuman.wordpress.com/?s=contoh+program
Bos ada skin form ga ya.. Boleh dong di share//
Maaf saya gak biasa pakai Skin….coba tanya Om Google…
SEmoga anda juga memanggil orang yang membutuhkan anda dengan sebutan boss
Tolong dong… gmn caranya membuat text berjalan&berkedip pada MS foxpro 9.. truz cara membuat date = hari+tanggal… Terima Kasih…
Para Foxpro mania…
Ada rekan kita yang mau bikin tulisan jalan2 nih…Please dibantu
Saya Lagi bad Mood nihh
LEtakkan object label dan time pada form
Kemudina ketikkan perintah ini pada kejadian timer
thisform.label1.Left=thisform.label1.Left + 20
if thisform.label1.Left > 80
thisform.label1.Left=10
endif
gmana ya mas programnya
jika saya punya combo1,combo2,combo3
combo1 di isi 70
combo2 di isi angka <70 langsung tidak mau dan tetap kursur berada di combo2 tdak ke combo 3
trimakasih banget bantuannya
Anda pakai add item atau prosudere lain ???
Assalamualaikum, Salam kenal mr.kuman, saya mau tanya mengapa saat saya buat combobox dengan referensi Builde dari tabel Pelanggan itu saat saya close program dia keluar bacaan “cannot access the selected table” , saya seting event pada form sebagai berikut:
Event Init
SET DELETE OF
SET EXCLUSIVE OFF
SET SAFETY ON
Event Load
SET PROCEDURE TO main add && pada programm main di set = SET PATH C:\INV
CLOSE TABLES all
USE pelanggan EXCLUSIVE IN 0
Event Unload
IF USED(“pelanggan”)
USE IN pelanggan
ENDIF
mungkin karena tabel di set secara exclusive sehingga dia tidak bisa di buka secara bersamaan dan terjadi tdk dapat di akses, yg saya mau tanyakan bagaimana sebaiknya agar Event-event itu dapat bekerja dengan baik sehingga combobox yg saya buat bisa terbuka tanpa terjadi “cannot access the selected table”, apakah saya yang saya harus ganti pada penjelasan event-event tersebut, mohon pencerahannya, dan klo bisa di email ke alamat email saya : ugie_xw@yahoo.com , terimakasih.
mas saya ingin menanyakan tentang pembuatan form data barang dengan pageframe,krn saya setiap latihan foxpro 9 lom pernah menggunakan pageframe, jd saat sya coba menggunakan pageframe dengan listing yang sama dengan dengan data kasir,saat progrm dijalan didapat menginput data sama sekali,apakah mas bs memberikan saya contoh’y seperti p dlm pembuatan form dengan menggunakan pageframe, krn sampai skrng sedikit sekali para penulis bahasa pemrograman, membahas tentang foxpro 9.0 lebih dalam lagi, hampir semua isi dan tampilan form-form’y tdk ada yang membahas tentang pageframe,terimakasih sebelumnya.
Untuk membuat form dengan menggunakan pageframe listing yang kita gunakan tidak berbeda dengan anda membuat form biasa namun
pada saat anda membuat form menggunakan pageframe anda harus menambahkan perintah pageframe1.page1 contoh
thisform.pageframe1.page1.text1.value=”";
Dan saat anda meltakkan object yang pada form jgn lupa lik kanan pada pageframe kemudian pilih edit setelah itu pilih page tempat anda akan menaruh objeck
mas, saya lagi bikin skripsi pake vis foxpro 9, untuk melihat coding program secara keseluruhan pake apa ya?…karna file sct saya buka pake notepad masih ada yang berantakan codingnya…mohon informasinya..trims
untuk melihat coding progaram, anda buka aza procetnya dengan visual foxpro. ingay bukan file sct yang dibuka
maksud saya seperti foxpro under dos yang program pembentukan form dan detailnya dapat dilihat di file *.prg-nya trims
Kalo di visual foxpro anda harus rapikan sendiri karena semua object termasuk propertis object tersebut akan catat pada sct, sehingga nampak berantakan jadi anda harus rapikan sendiri file sct
Selamat siang mas Tahjudin, nama saya pramono… saya sebagai pemula ingin belajar2 lebih dalam mengenai program Visual Foxpro.
Ada beberapa pertanyaan :
- Apakah bisa visual foxpro membuat program untuk pembacaan scanner LJK ?
- Jika bisa/dapat di gabung dengan library lain, mohon penjelasannya.
Mohon maaf kalau ada kata2 yag kurang berkenan, dan atas solusinya saya ucapkan terimakasih.
Pramono sidik
prmsoft@yahoo.com
tanks banget
makasih bos…atas infonya….soalnya w ada tugas buat struktur pemograman foxpro.jangan lupa mampir ke hardy737.blogspot.com.ditunggu y….
Kembali kasih, Ok
mr.Kuman tolong dong buatkan dalam bentuk pdf, tutorial cara membuat exe di foxpro 9 agar bisa berjalan stand alone, mohon bisa dikirim ke email saya, sebelumnya terimakasih.
bos mksh ya atas tutorialnya, aq cuma aku mo tanya ya cara untuk merubah nilai numerik ke bilangan, misalnya rp. 1000 menjadi seribu rupiah,
mohon bantuannya ya bos, terima kasih
trims ya…
smg pahalax tambah banyak…
lg uas fox pro nih
smg menambah inspirasi bwt saya nnti
makasih tuk materinya mudah2an saya bisa menjadi besar karena karya foxpro
Amien n terus semangat
mohon bantuannya untuk membuat file EXE dari projec agar bisa jalan tanpa install foxpro.
terima kasih.
Untuk membuat file exe dr suatu project anda bisa menggunakan installer bawaan foxpro 8 atau 9
MR TOLONG DONG AJARI SAYA FP DARI AWAM SAMPAI JADI SEORANG PROGRAMER YANG HANDAL DAN MAMPU BUAT PROGRAM HUB AKU 021-91953146/085282276802
Bang bantu aku bikin form login dunk…., kasih tau caranya ya…???????
Thanks
Mas aq minta tolong, kasih tahu aq cara membuat form login donk….
makasih..
Asalamu’alaikum Wr. Wb.
sblmnya lam knal y…..mas saya minta bantuannya dunk..saya mau TA dan masih bingung mau bikin program apa.
rencananya sich mau ngambil TA dengn visual foxpro 9.0…bsa minta contoh paper n programnya g??
dan sya jga permisi sdh download pelajaran foxpronya makasih mas.
duhhh udah lama aku g pake fox pro,,,jadi lupa gimana awalnya buat pemograman seperti itu,,, bisa kah download software fox pro disini
free gitu maksudku,,,,he he ,,,salam kenal,,,
thank you,,,,ciao,,,
mas bagaiaman selalu error do form nya saat saya panggil form error terus padahal saya sudah build file exe nya makasih
Assalamu’alaikum Wr. Wb.
Saya newbie VFP, saya mencoba buat project sesuai yang dicontohkan diatas tetapi saya ada masalah…bagaimana caranya program tersebut dapat diakses multi user..
Mohon tambahan ilmunya…, klo ada referensi email saya…(yosmg@yahoo.com)
Wassalamu’alaikum Wr.Wb.
ass… wr.wb
mas… thank yupz… dah mau bagi2 ilmu..
saya mau tanya listing cetak sebuah form mengenai program pelayanan kesehatan????tolong jawab koment saya ni sangat penting sekali untuk TA saya
assalamu’alaikum
mas minta tolong saya kerepotan buat listingnya cetak ke ms. word/excel
tolong mas kirimi listingnya
sebelum dan sesudahnya saya ucapkan trima kasih
wassalamu’aalikum
Mhatur nhuwunn broo…sukses selalu deh….muantappp…..
mas saya minta tolong donk bagaimana membuat form login??? mohon bimbingannya…
Mas, kalo mau merubah tampilan pada form Find yang dari Wizard (atau melihat listingnya) agar bisa dibuat dengan bahasa indonesia gimana yach? terima kasih atas bantuannya..
Mas permisi saya sdh download pelajaran foxpronya makasih mas, tp kedepan sy masih membutuhkan petunjuknya semoga mas ndak bosan berbagi ilmu
Kembali kasih and okerey
mas trima kasih telah bagi2 ilmu sama smua smoga jadi amal mas……..salam kenal aku orang tulungagung
Kembali kasih n amien…
top abis,salam sukses selalu
sukses…
mau tanya??? cara bikin password pada vfr….thanks
di sample program sudah ada form password
km buat aja tabel user yang isinya nama user dan password.
untuk form nya,di cmdlogin kamu coba listing isi
select 1
locate form trim(thisform.txtpassword.value)
if found()
if not password=alltrim(thisform.txtpassword)
messagebox(“passord tidak sama dengan user”)
else
messagebox(“user dan password ketemu”)
endif
endif
*catatan=(if not password),kata password itu maksudnya nama field yang mau di cocokan dengan user yang sudah anda temukan di dalam pencarian locate for.
Salam kenal pak, terima kasih atas panduan-nya….
sukses selalu untuk bapak…..
Salam kenal kembali, n sukses
Mas, saya punya aplikasi visual foxpro lokal dengan menggunakan database MySQL server dan saat ini saya ingin agar databasenya bisa online sedangkan aplikasinya tetap berjalan secara lokal sehingga bisa di access dimana saja.
Saya sudah coba dgn mem-publish-kan komputer servernya tetapi saat koneksi melalui MyODBC ke IP publish tidak bisa connect.
Apakah ada settingan lain yg mesti dibuat, atau bisakan mas memberi contoh aplikasi visual foxpro berbasis online dengan database MySQL server. karna dgn database MySQL server online akan lebih fleksible karena dibuat aplikasi web dengan menggunakan PHP.
Ada beberapa tutorial yang saya dapat melalui download di internet tetapi saya lihat begitu rumit dan saya tidak mengerti syntaxnya.
Atas perhatian, bantuan dan petunjuknya sebelumnya saya ucapkan terima kasih.
salam kenal mr.kuman
saya ingin membuat program stock barang tp bingung merancangnya.
tolong bantuanya ya mas yang isinya :
tanggal
kode barang
jenis barang
nama barang
saldo awal
in
out
saldo akhir
saat terjadi transaksi barang bisa diliat tanggalnya n bisa membuat laporan barang in & out tiap hari,bulan n tahun.demikian surat saya mohon bantuan.terima kasih.kalo bisa dikirim ke email saya
Salam kenal kembali,
Yang anda bingungkan pada bagian apa?
Anda bisa download sample program yg sudah ada. pada program itu ada proses in dan out
makasih banyak atas tutorialnya semoga dengan tutorial ini banyak menambah ilmu saya dan pembuatnya amal ibadahnya selalu di terima……..AMIN
makasih mas udh upload di blog.
itu yg di atas sama ga mas sama sistem penjualan apotik?
soalnya ada tugas dr kampus dan cuma di kasih waktu 3hari aja mas. makasih sebelumnya.
Terimakasih kembali.
Konsepnya sama, barang masuk dan barang keluar, kamu cukup rubah sedikit saja
Assalamu’alaikum wr.wb. Mr.kuman klo bleh minta contoh Skripsi untuk jur. ilkom yang sudh jd. ke eamil saya y pak. mksh sblmnya. wassalamu’alaikum wr.wb.
Waskum…boleh
karena itu mau buat tugas akhir saya mas
mas saya mau tanya di jogja ada yang bisa foxpro gak.
maksudnya buat tempat kursus foxpro
Malam Mr. Kuman
Mitol dong, listing program foxpro 9.0 cetak laporan pake cristal report…,,,,,
thank’s be4
boss,, makasi bnget nih post’y …
always success laah …
Makasih kembali bro…
data type mismatch tu apa c…
teus
Pesan error Data type mismatch dikarenakan
1. Type data yg di input tidak sesuai dengan type data pada tebel misalnya
type data angka dientry dengan hurup maka akan tapmpil error.
2. Kalau ada menggunkan perintah
thisform.text1.value=”" ( Ini untuk type data karakter/hurup)
thisform.text2.value=0 ( Untuyk type data number/angka )
ass….
mr.kuman….cara mengatasi debug pd foxpro gmna…
pa gak da syntax sjenis “on error resume next” pada visual basic..
trims
Ass…
Mr. Kuman, saya ingin sekali belajar tentang visual voxpro tapi saya sangat sulit mendapatkan panduan. Bagaimana saya bisa mengatasi kesulitan ini? Kalau ada sesuatu yang sekiranya bermanfaat buat saya, bisa dikirim ke alamat e-mail saya (ardy_grazia@yahoo.com)
Sebelumnya saya ucapkan terima kasih.
Mulailah dengan mengenal tool dr visual foxpro, kemudian latihan membuat program sederhana
Sebelum loe belajar membuat program menggunakan database loe terlebih dahulu belajar tentang database
Mohon bantuannya…saya minta tlg, saya mau TA bikin program penjualan dengan menggunakan program foxpro…saya minta tolong kirimkan bentuk form dengan listingnya ke email saya y Thank’s.
ini alamat email saya : miftah_pml@yahoo.com
Untuk membantu menyelesaikan tugas akhir anda, bisa anda download tetorial dan contoh program yg sudah ada di blog ini
mr. kuman sorry bgt nih ngrepotin loe, aku mau tanya untuk export file dari visual voxpro ke file exel yang sudah di filter dengan menggunakan perintah, perintahnya bagaimana ya. dan apabila da yang tahu mohon aku dibantu ya, sebelumnya terima kasih
Mas Kuman..
Sama nggak caranya kalo gunakan Visual Foxpro 9
tirims
Sama hanya di versi 9 banyak fasilitas tambahan,
codeng di versi 9 akan tetap running di versi 9
Assalamu Alaikum ..
Setelah sekian lama aku mencari panduan buat belajar foxpro akhirnya ketemu juga sama Mas Kuman .. wah senangnya aku…
mohon bimbingannya mas aku nih awam mengenai foxpro.. tapi pingin belajar mudah-mudah nggak keberatan ..
makasih sebelumnya..
Ass.wr,wb? aq mo minta bantuan nih,, mo tau caranya bikin program di visual foxpro 9.0 dengan tanggal aplikasi tidak tergantung dengan tgl di komputer, tapi tanggal kita bisa rubah melalui program..?
mohon bantuannya ya.. soalnya saya baru pertama kali buat program dengan visual foxpro
Mas, boleh tau gak situs komunitas2 foxpro atau forum diskusi yang akurat &friendship?
fox-id.org
thanks yach mr kuman saya masih bingung dengan cara membuat program login tolong bantu yach kirim ke email saya aja dech kalo bisa bantu thank sebelum n sesudah nya
caranya instal foxpro gimane … yah udah di download …
makaseh sebelumnya
terima kasih … dan saya akan coba pelajari
Assalamualaikum Wr Wb,
permisi saya mau tanya, bagaimana sih cara membuat agar file exe foxpro bisa jalan tanpa menginstal si FOXPROnya sendiri??
trus bagaimana juga agar Program yang sudah dibuat bisa di jalankan di bebas partisi karena yang saya baru tau saat ini apabila membuat di C program hanya bisa dijalankan kalau disimpan di C saja selain partisi itu dia ga mau jalan,
mohon pencerahannya mas!!!
maaf kalo kata2nya susah di mengrti
terima kasih,-
ass..saya ingin membuat stock barng dengan menggunakan visual foxpro 9.0,tp saya bingung…??mohon bimbingan dan jawabanya.trims sbelumya
wass..
saya tetep ga bisa pahami tentang prosedur dengan new methode, kenapa pas saya coba masukin listing yang tertera di tutorial mas ko ga bisa pas yang listingnya banyak
malem pak, tlong saya dunk ko posting tentang foxpro nya ga lengkap nya. saya dah ikutin tapi ga ngerti pas di buat form dengan cara kedua, pas saya masukin data nya ga mo masuk semua. sen email ke ziexnanan@yahoo.com y pak. saya tunggu
SALAM, SAYA MAU TANYA NIH?
GIMANA CARANYA UNTUK MEMBUAT TULISAN BERJALAN PADA FORM VISUAL FOXPRO ( LISTINGNYA ) ?
TERIMA KASIH ATAS BANTUAN
erdian_wahyu@yahoo.com
SALAM, SAYA MAU TANYA NIH?
GIMANA CARANYA UNTUK MEMBUAT TULISAN BERJALAN PADA FORM VISUAL FOXPRO ( LISTINGNYA ) ?
TERIMA KASIH ATAS BANTUAN
HALO APA KHABAR ?
MAU TANYA NIH?
GIMANA CARA MEMBUAT TULISAN BERJALAN DENGAN MENGGUNAKAN VISUAL FOXPRO ( LISTINGNYA )
TERIMA KASIH ATAS BANTUANNYA
bsa tolong buatin database tentang kelurahan
yang print outnya bsa mengetahui
jumlah penduduk miskin
jumlah janda
jumlah anak yatim
jumlah DPT buat pemilu
dll
thanks ya
krim ke email saya ya
mr. kuman
slm knal
gw baru mw belajar Vis Fox Pro
tlng gimana buat program yang outputnya kyak gini :
Masukkan password
Jika password 3 kali salah maka program langsung berakhir
dan gimana bhs programnya ????????
tlng di balas lewat email aja (joedithia09@yahoo.com)
tx b4
listingnya cukup panjang.
anda juga bisa gunakan label bantu.
di dalam label itu caption nya “anda sudah 1,2,atau 3 kali salah memaskukkan password.
nah,jika salah 1 kali,maka caption nya akan berubah,ketika salah 3 kali maka user akan di delete dengan cara di search dulu di dalam tabel dan kemudian di delete…
mr. kuman
slm knal
gw baru mw belajar Vis Fox Pro
tlng gimana buat program yang outputnya kyak gini :
Masukkan password
Jika password 3 kali salah maka program langsung berakhir
tlng di balas lewat email aja (joedithia09@yahoo.com)
tx b4
bos gw butuh lisitn login ini nie…
tlong kirim ke email gw yah???
andrian49@yahoo.com
secepatnya ya bos,cos gw mo bimbingan besok….
Thanks berat bro…for reminding gue ..sukses untuk semua
Halooo.. Mr.Kuman
salam kenal..
Mr. saya minta bantuannya donk..
saya sedang menyusun TA, saya ingin membuat program pembayaran spp..
minta contoh sederhanya saja, yang bagus jg boleh..
makasih sebelumnya Mr..
Trima kasi yah Mr.Kuman,
Q liat” di website mu.. q bisa buat laporan tentang Ms Visual Foxrpro.
matur suksma.
gek prima.
Assalamualaikum mas…,
saya dapat tugas pemrograman dengan visual foxpro 7.0 judul ttg komputerisasi sekolah..namun pengetahuan dan ketrampilan aku kurang banget, sekarang dah hampir habis waktu gitu. jd mas…, minta tolong kirimi aku contoh program sehubungan dengan listing’y ya buat referensi aku. makasih………..
ass…pak kuman, saya mau tanya, bagimana caranya visual fox pro9 bisa dijadikan multi user, apakah perlu tambahan server lagi?? kalau perlu servernya apa, yang cocok digunaka dengan visual foxpro 9?terimaksih sebelmnya,,,kalu bisa jawaban dikirim ke email saya…
waslkm…
Assalamualaikum Wr. Wb..
Mudah2an Mas tetap masih dalam Lindungan-Nya.Amiin..!!!
sy Mo izin bertanya atas ketidak tahuan sy ini en sy tidak ada bosannya tuk berkunsultasi dengan Mas karena saya tahu Mas adalah sumber yang tepat bagi saya.. “kelebihan foxpro 9.0 dengan versi sebelumnya, apa ya Mas..?
Alhamdulillah….!!
mudah-mudahan projek Bpk, berjalan lancar en tercapai sesuai harapan, (Amiin..) en Saya akan sabar menunggu hingga ada kesempatan Bpk, untuk bisa mmbantu saya. Met berkarya en thkn’s…….
Bpk “Mr. Kuman” yang sy banggakan..klo Bpk ada kesempatan, tolonglah sy untuk membuat rancangan database & tabel dengan studi kasus Pengolahan Data Guru Madrasah pada Kawil Depag X.
atas bantuan & kesempatan Bpk sy haturkan thnks..!!!
Assalamu’alaikum Wr. Wb.
Alhamdulillah.!!Sy telah mencari bahasa pemrograman foxpro, karena ingin belajar banyak tentang hal trsbut . Dan saya telah menemukan website Bpk Yth. Saya sangat berterima kasih, Semoga Bpk terhindar dari Do’a yang tidak didengar…!!
salam kenal…..
Wassalamu’alaikum Wr. Wb.
pagi…
gini loh kk…aqu kan mau buat program penjualan…nah berhubung aqu pemula dalam bidang program…aqu mau minta tolong kk kirimin tutorial tentang program v.foxpro…klo bisa si sama contoh program…pi program penjualan..biar aqu bisa belajar dan memahami’y…
sebelum’y aqu minta maaf y…dah minta kebanyakan..bis mau banget belajar sih…beli buku udah pi gk ada contoh”y…cuma form” aja…
aslm,..makasi banyak ya mr kuman..
website anda sangat menarik,,,,
asalm..trimakasi banyak ya mr kuman..
modul anda bermanfaat x..
mo mnta tolone ne..
aq lagi ngerjain TA judul pembayaran tunai pada kafe dg visual foxpro 9.0
tapi aq bingung ..bisa kasih contoh ga??
makasi…
gimana cara membuat report foxpro dengan menggunakan database mysql
Sama seperti buat report dengan databse foxpro bedanya anda harus buat view
maksudnya view apa ya?
gimana cara buatnya?
@yusnandi
untuk lebih mudah silahkan menggunakan installshield express
best regards
salam..
saya mau tahu cara buat visual foxpro pada kalkulator..
dari tabel, from nya juga data2 command nya…
tlong yach mr.Kuman…
ican tunggu…!!!!
Mas tolong saya agar bisa dapat program visual fox pro
Malem mas kuman agus iki…
he.,he,.,
Mas kuman sang dewa penolong (he,.,he,.,)
Aku minta tolong dong gimana yah syntaxnya buat bikin report per tanggal, bulan dan tahun soalnya aku disuruh buat laporan seperti itu sama dosen dosen pembimbing Tugas Akhir aku.,.,
Mohon pencerahannya yah buat saya yang miskin ilmu ini mas.,.,
tak tunggu loh mas di (maeesa_org@yahoo.co.id or subroto_agus@rocketmail.com)
Makasih..maksih banyak sebelumnya.,.,
Anda pelajari aja artikel yg ada diblog saya
terima kasih banyak mas….. anda sangat membantuu saya..
Ass…
Pak minta tolong ni, saya mau buat TA pemprograman fox pro rental VCD, bisa ga saya di buatkan programnya dan sekaligus bahasa pemprogramannya.
Terima Kasih Tuk sebelumnya.
Salam,
Riezca
Oke
Contoh program ini sangat bermanfaat sebagai referensi membuat program lainnya. Terima kasih.
kembali kasih pak
Bagaimana cara print program (Foxpro DOS) pada device printer USB ?
Thanks for help !