• Buat folder terlebih dahulu kemudian beri nama sesuai dengan keinginan Anda. Setelah itu klik folder tersebut dan copy alamat folder tersebut. Kemudian buka aplikasi program Visual FoxPro 8.0 dari start - all program - Microsoft Visual FoxPro 8.0. • Setelah aplikasi dibuka, ketik perintah SET DEFAULT TO nama folder kerja tersebut pada Windows Command untuk mengaktifkan folder kerja tersebut. Smokey robinson and the miracles special occasion rarest pokemon. Visual FoxPro 5.0/5.0a/6.0 Sample. How to write VB 6 code to validate a database. On this page you can read or download Contoh Program Jadi Dengan Visual. ![]()
Kemudian isi codenya sebagai berikut: Form1 - Aktivethisform.tambah.enabled=.t. Thisform.tdk_siap thisform.kosong thisform.Refresh load SELECT a PUBLIC x x=0 kemudian tambahkan method dengan cara klik form, pilih new method. Tambahkan method kosong, siap, tampil, tdk_siap kosong thisform.txtkode.value=' thisform.txtnama_dept.Value=' siap thisform.txtkode.enabled=.t. Tampil thisform.txtkode.value=kode thisform.txtnama_dept.Value=nama_dept tdk_siap thisform.txtKode.Enabled=.f. Tambah x=1 thisform.siap thisform.kosong thisform.txtkode.SetFocus thisform.simpan.Enabled =.T. Simpan IF x=1 APPEND BLANK ENDIF replace kode WITH thisform.txtkode.value replace nama_dept WITH thisform.txtnama_dept.value thisform.simpan.Enabled =.F. Thisform.tdk_siap thisform.kosong thisform.Refresh x=0 hapus SET DELETED On DELETE thisform.kosong thisform.refresh edit x=2 thisform.siap thisform.txtkode.setfocus thisform.simpan.Enabled =.T. Batal thisform.tambah.enabled=.t. ![]() Thisform.tdk_siap thisform.kosong thisform.Refresh selesai thisform.Release pack Grid1 LPARAMETERS nColIndex thisform.tampil thisform.hapus.Enabled=.t. Thisform.Refresh AfterRowColChange LPARAMETERS nColIndex thisform.tampil thisform.hapus.Enabled=.t.
0 Комментарии
Оставить ответ. |
АвторНапишите что-нибудь о себе. Не надо ничего особенного, просто общие данные. Архивы
Март 2019
Категории |