Tanya lagi nich newbieeeee say punya form modal terdapat grid untuk liat data dan 2 image sebagai pengatur view di grid tersebut, dimana pada image1 bila diclick akan tampil view data dan di image2 akan tampil edit data bila diclick, bila mana view / image1 maka grid colom1 text1 keypress ada perintah / prosedur do form with this.value (parameter value di text1 colom1 grid). Dan di edit data / image2 ingin saya tampilkan prosedur lain misalnya hapus data (select faktur locate for faktur.no_kwt = this.value && hasil dari gri1 colom1 text1 yg di keypress if found() repl norek with ” endif. Kenapa ga muncul seperti yang sy inginkan. Boleh minta saran?? Penulisan coding yang benar untuk memanggil form lain berdasarkan parameter. Sy sudah coba seperti ini?? Di form a window = modal pd kolom grid dblclick sy kasih kode: mregfind =.T.

Untuk para pakar vfp.minta tolong untuk koding bila nasabah dalam 1 bulan terlambat bayar 3x dan dibayar semua dimana dlm pembayaran angsuran terdapat by denda Rp. 1000,- / harinya berdasarkan jumlah hari terlambat setiap harinya (kumulatif, bila angsuran tidak ditutup maka denda berjalan terus), dengan syarat bila keterlambatan lebih 3 hari tanpa dikenakan denda. Cth database saya sbb: piutang no_kode! Yang jadi persoalan saya, berkaitan dengan penyajian report fee, bila mana 40 hari terlambat data fee yg saya sajikan di temppiutang sbb: select piutang.*, space(0000) as jumhari, space(0000000) as denda,; space(0000000) as fee from piutang order by no_kode; into cursor temppiutang hasil temppiutang no_kode! 500 knapa data ditemppiutang: (terlambat lebih dari 40 hari) no_kode! 3550 tidak tercatat??

Komunikasi antara Visual FoxPro dengan mySQL dapat dibentuk dengan beberapa cara. - _lcpswDB = variable password database, contoh: 'inikunci'.

Koding yang benar supaya bisa tampil seperti yang saya inginkan?? Koding yang saya pakai selama ini. Select temppiutang IF jumhari.

Mas gabrielbisa mintol ga?? Ini teman mo nanya tentang bikin laporan denda pinjaman, dimana kolo keterlambatan sebulan lebih 7 hari tanpa dikenakan denda.bila terjadi pembayaran berturut2 selama 3 bln dan semuanya ada denda dibayarkan pada bulan yg sama, walaupun beda tanggal pengembalian buku pinjaman? Yg keluar cuman bulan kedua sedangkan bln pertama yg otomatis telambat 2 bulan lebih seminggu ga muncul dendanya?? Gimana solusinya?? Koding yg dipakai temenku seperti ini: SELECT mutasi1 IF plafond. Ass mohon bantuannya master, saya mau bikin form pencarian berdasarkan kategori. Misalnya saya memilih kategori kecamatan, maaf sebelumnya kategorinya saya pake combo box.

Misalnya saya pilih kategori kecamatan, kemudian saya ketikkan pada textboxnya misalnya kecamatan “a” maka yang akan muncul nnti pada report saat di review adalah kecamatan “a” semua. Begitu pun misalnya saya memilih kategori jenis_usaha, kemudian saya ketikkan pada textboxnya misalnya “loundry”. Maka yang akan tampil pada report saat di review adalah jenis_usaha “loundry” semua. Mohon bantuanya, soalnya sudah deadline.

Sorry baru ngerti maksdx agan. Yup thank.mo coba njalanin.mr.gabriel.tambah pertanyaan 1 lagi boleh ga?

Miss DBFnya sama seperti dibawah ini: NIM kdMapel testKe Nilai 2011001 101 01 8 2011002 101 01 7 2011003 101 01 6 2011001 102 01 9 2011002 102 01 8 2011003 102 01 7 2011001 101 02 7 2011002 101 02 7 2011003 101 02 9 2011001 101 03 8 2011002 101 03 8 2011003 101 03 9 2011001 102 02 7 2011002 102 02 8 2011003 102 02 9 klo dibuat / ditampung dalam grid dengan no urut seperti ini?? Seperti apa kodingnya ya??

NIM kdMapel testKe Nilai no 2011001 101 01 8 1 2011001 101 02 7 2 2011001 101 03 8 3 2011001 102 01 9 4 2011001 102 02 7 5 2011002 101 01 7 1 2011002 101 02 7 2 2011002 101 03 8 3 2011002 102 01 8 4 2011002 102 02 8 5 2011003 101 01 6 1 2011003 101 02 9 2 2011003 101 03 9 3 2011003 102 01 7 4 2011003 102 02 9 5 saya mencoba memakai pengulanga do while! Eof() seperti koding ini: thisform.grid1.RecordSource = ‘ ‘ SELECT daftar_nilai.nim,; daftar_nilai.kd_mapel,; daftar_nilai.testke,; daftar_nilai.nilai,; VAL(STR(0)) as no; FROM daftar_nilai; ORDER BY daftar_nilai.nim; INTO CURSOR nilai_1 READWRITE SELECT daftar_nilai.nim,; daftar_nilai.kd_mapel,; daftar_nilai.testke,; daftar_nilai.nilai,; COUNT(daftar_nilai.testke); as jum; FROM daftar_nilai; GROUP BY daftar_nilai.kd_mapel; ORDER BY daftar_nilai.kd_mapel; INTO CURSOR nilai_2 SELECT nilai_1 DO WHILE!

EOF() SELECT nilai_2 LOCATE FOR nilai_2.kd_mapel = nilai_1.kd_mapel no = 0 DO WHILE no. Penomoran udah jalan mas gabriel, cuman klo kd_mapel 101 no urut benar? Knapa kd_mapel 102 kok kembali ke no 1 lagi? Yg saya maksudkan no urut sampai kebawah sesuai dengan nimnya tanpa melihat kd_mapel (klo urutan data pastilah kd_mapel 101 diurutan pertama dan 102 diurutan kedua)? Apa kd_mapel di cursor nilai_1 dan jnt tdk disertakan? Sy coba cara ini msh tetep hasilnya seperti koding yg mr gabriel contohkan? Mohon pencerahannya?

Btw trima kasih mr gabriel atas kodingnya sangat amat mrmbsntu saya? Para Pendekar Vfp.minta Bantuannya untuk membuat tabel angsuran di vfpbila diketahui Plfond Pinjaman Rp. Trims uda berhasil sekarang ini listing pencarian data berdasarkan nama anggota, saya ingin mengubahnya supaya jika saya mengetik nama di texbox pencarian nama, dan nama yang saya ketik itu ternyata banyak yang sama dalam database dan saya ingin menampilkannya semua di grid sehingga saya bisa membedakan yang mana nama yang sy ingin cari dengan melihat ientitas yg lain seperti tanggal lahir dan pekerjaan. Mohon bantuannya donk. Kuman dan master2 lainnya tolong kasih penjelasan ttg Library(dll) dong. Saya bingung u/ hal yg satu ini. Kata org sih itu u/ instalasi di komputer lain tanpa hrus menginstal VFP dgn syarat mengikut sertakan *.dll waktu membuat instalasinya.

Saya membuat instalasinya dgn software Instalshield Express, tp yg saya bingung waktu mw mengisi (2) File library Visual Foxpro dan (3) File Table. Jd sebenernya bagaimana cara menghubungkan *.dll?

Apakah *.dll itu diambil dr System Windows atau *.dll buatan seperti/mungkin syntax, atau external yg harus didownload/browse atau apa pun? Saya bener2 ga mengerti konsep Library (*.dll). Kalo bisa saya minta tutorial finsihing program smpai mebuat instalasinya. Tolong kirim alamat downloadnya atau lewat email ke: mohon bantuannya dgn sangat ya para master sudah mentok sangat. Klo Untuk mencari FPB & KPK di FoxPro Gampanggg.!! Buat sebuah form dengan 4 TextBox: text1, text2, text3, text4 supaya bisa di tampilin faktorialnya, nambahin 2 listbox: lis1, list2 sebuah commandbutton: Command1. Ada 2 cara: 1.

Melalui control panel 2. Hy Mintol semua yang tau coding ini tugas finalq sistem pakartolong 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. Menginterupsi dan membenarkannya. Membenarnkannya setelah dia selesai bercerita 2.

Anda disuguhi hidangan makanan asing yang tidak Anda sukai. Yang akan Anda lakukan: a. Mencoba memakannya. Memberitahu makanan kesukaan Anda.

Mengalihkan piring Anda dan memesan makanan lain. Seorang teman tampil dengan mengenakan jas baru yang pernah Anda lihat di obrolan. Yang akan Anda lakukan: a. Menyebutkan obralannya. Tidak mengatakan apa – apa.

Memberi komentar yang menyenangkan untuk jas tersebut. 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. Menjawab setiap pertanyaan yang ditanyakan mengenai liburan Anda. Mengatakan bahwa dia tidak benar – benar hidup. 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.

Mengatakan bahwa Anda memiliki inti cerita dari ringkasannya. 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.

Mengekspresikan kebanggaan rendah hati ketika namanya disebut. Anda memiliki hobi atau bakat dimana Anda sangat mahir dalam melakukannya. Yang akan anda lakukan: a.

Mengekspresikan ketidaksenangan dengan hobi orang lain. Menyimpan sendiri teknik rahasia Anda. Mengajari orang lain yang berkeinginan untuk belajar kapada Anda. Seseorang menunjukkan sebuah tanaman langka kepada Anda. Yang akan Anda lakukan: a. Mengatakan bahwa Anda tidak memikirkannya. Mengatakan bahwa Anda telah melihat lusinan tanaman yang lebih menarik.

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. 0 samapai 2 benar: “ Mereka yang selalu bicara tidak pernah berpikir. “ (sebelumnya ). Met mlm. Password List Crack Cpanel Email. 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.? Terdapat 2 jurusan yang akan ditampilkan pada Combo Box, yaitu: Sistem Informasi dan Teknik Informatika.?

Buatlah kode/listing program untuk mengolah data mahasiswa: Tombol simpan,Hapus dan keluar.? 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. 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. 0 samapai 2 benar: “ Mereka yang selalu bicara tidak pernah berpikir. “ (sebelumnya ). 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.? Terdapat 2 jurusan yang akan ditampilkan pada Combo Box, yaitu: Sistem Informasi dan Teknik Informatika.? Buatlah kode/listing program untuk mengolah data mahasiswa: Tombol simpan,Hapus dan keluar.? 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. 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. Kalau untuk *.PRG, tinggal ditambahin variabel untuk membawa datanya aja. Seperti ini mas. : 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. Buat tabel dengan nama program, filed-fieldnya: NOSER,DST,BTAT,BTBW,DURAW,DURAK,LMTR type datanya semua char; sizenya:50. 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’. 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. ** 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. 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. 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. 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 28. 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. 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. 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. Odin Sphere Iso Ntsc Pal Converter here. 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. 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.

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). : 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.value,2))+1)) do case case val(no). 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. 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. 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.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 = “.

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 FB: sebelumnya terimaksih. 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.

Saya newbie dalam hal Visual FoxPro. 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. :Wsssalam 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.valueselect calonmhsset filter to thamasuk=batas1goto bottomif nodaftar=space(19)vnourut=”001″elsemnourut=val(left(nodaftar,4))+1do casecase mnourut. 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 atau di 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 atau di tks sebelumnya dalam coding foxpro 9.0. 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:.

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(). 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) =?ldDate1 ) AND (a.dateorder =?ldDate1 ) AND (a.dateorder.

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. 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. Lebih mudah dalam pembuatan form. 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. Mr.kuman mo tanyadatabase 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.

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. Kuman, good luck dan sukses buat komunitas foxpro indonesia. Salam, hansem.

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. Sorry Krisna br Z. Sorry Krisna br Z.

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.

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. Jgn lupa untuk menginstal mysql 3.23.54 yg dapat didownload juga di google. Semua mysql server adalah gratis.

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. 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 (. 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. 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=””.

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. Ass Salam kenal. 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.

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 and thankyuu sebelumnya.

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. Nahuntuk 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??? 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. 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,,,? Wsssalam 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.

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. 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 harinah gmana cara nambah tgl pnjam ma lama pnjaml biar bsa jd tglbatas pinjamkn tipe datanya bedatolong y mas listingnya dah saya pake format CTOD/DTOC py ttep g bsa,,,,buntu otak saya. 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. 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, 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.

Penulisan markup di komentar • Silakan tinggalkan komentar sesuai topik. Komentar yang menyertakan link aktif, iklan, atau sejenisnya akan dihapus. • Untuk menyisipkan kode gunakan kode yang akan disisipkan • Untuk menyisipkan kode panjang gunakan kode yang akan disisipkan • Untuk menyisipkan quote gunakan catatan anda • Untuk menyisipkan gambar gunakan URL gambar • Untuk menyisipkan video gunakan [iframe] URL embed video [/iframe] • Kemudian parse kode tersebut pada kotak di bawah ini • © 2015 Simple SEO ✔.