JNC Computer Computer Programming, Networking, Website, Consultant & Maintenance

JNC Computer Computer Programming, Networking, Website, Consultant & Maintenance

Cara membuat Tabel di Visual Foxpro 9.0 Nama Tabel: Company.dbf Pengenalan

Caranya adalah anda copy file project yang sudah ada di masing-masing folder, yaitu di folder exe, di folder data, di folder form dan di folder report. Saya ambil contoh kita akan menduplikat dari project yang sudah ada yaitu : dept.exe. masuk ke folder exe, maka : Dept.pjx, dept.pjt, dept.exe di copy paste menjadi company.pjx,pjt.exe

Ruko Acropolis Blok C10/16 , Legenda Wisata, Jl.Alternative Transyogi Cibubur, Jakarta Hp. 0823-1293-9889, [email protected], Pin BB: 549F1B23



JNC Computer Computer Programming, Networking, Website, Consultant & Maintenance Masuk ke folder Form. Dept.scx, dept.sct di copy paste menjadi company.scx, sct

Masuk ke folder Report. Rep_dept.frx, rep_dept.frt di copy paste menjadi company.frx, frt



Buka Company project di folder exe, pada form dept, remove dan di add project baru yaitu company. Pada reports; rep_dept di remove diganti oleh rep_company.



sehingga menjadi seperti dibawah ini :

Kemudian di build, untuk mendapatkan project baru yaitu company.exe



Materi 1 : Cara design dan pembuatan form. Form terbagi ke dalam 3 sub form yaitu : form : fcompany (form list company), form inp_company (form untuk input data & form cetak ( preview, printer ). Form: inp_company.

Field screen input : cKode, cN_company, cAlamat, cKota, cNpwp, nPA, nAstek Form: fCompany


JNC Computer Computer Programming, Networking, Website, Consultant & Maintenance Form : Cetak

Materi 2 : Cara create database file dan index file Pada command prompt, kita sudah sepakat setiap file database harus di kumpulkan didalam 1 folder yaitu folder Exe. Sehingga perlu untuk memastikan setting pada folder tersebut. SET DEFAULT TO "d:\pph\pt. mcs\data" CREATE company



File company setelah di save di folder Data, maka untuk mengaktifkan file database tersebut di dalam program aplikasi adalah pada “Data Environment”.

Materi 3 : atribut & properties form fcompany 1. Grid 2. Command 3. Label & text field


JNC Computer Computer Programming, Networking, Website, Consultant & Maintenance Grid.

Thick pada Grid, klik kanan mouse dan edit. Artinya kita akan memanipulasi isi Grid.

Manipulasi grid dapat dilakukan pada Header & Column. Header Kode

Column Column3

Nama Perusahaan N.P.W.P % PA

Column1 Column4 Column2

% ASTEK

Column5

Alamat

Column6

Kota

Column7

Command.

Command Tambah If 'PAYROLL' $ PROGRAM(1)


JNC Computer Computer Programming, Networking, Website, Consultant & Maintenance If !CEKTOMBOL('TAMBAH') Retu Endif Endif Thisformset.Status=0 Thisform.Enabled = .t. Acti Wind Inp_company Thisformset.inp_company.cKode.enabled=.t. Thisformset.Inp_company.ckode.Setfocus

Command Revisi If 'PAYROLL' $ PROGRAM(1) If !CEKTOMBOL('REVISI') Retu Endif Endif Thisform.Enabled = .F. Acti Wind Inp_company Thisformset.Status=1 Thisformset.inp_company.cKode.enabled=.f. sele company Thisformset.inp_company.cKode.Value=kode Thisformset.inp_company.cN_company.Value=nm_company Thisformset.inp_company.cAlamat.Value=alamat Thisformset.inp_company.cKota.Value=kota Thisformset.inp_company.cNpwp.Value=npwp Thisformset.inp_company.nPA.Value=PA Thisformset.inp_company.nAstek.Value=astek

Thisformset.inp_company.ckode.Setfocus

Command Cari This.Parent.Grid1.Height = This.Parent.Grid1.Height - 25 Thisform.Cmdcari.Enabled=.F. Thisform.cN_company.Visible=.T. Thisform.Label1.Visible=.T. Thisform.cN_company.Value = '' Thisform.cN_company.Setfocus

Command Cetak Command Exit Thisformset.Release

Command Delete



Materi 4: atribut & properties form inp_company 1. Label dan text field 2. Command Label Kode Nama Perusahaan Alamat Kota N.P.W.P % PA % ASTEK

Text field cKode cN_company cAlamat cKota cNpwp nPA nAstek

Command

Command Simpan with this.Parent Do Case Case empty(.cN_company.Value) messagebox('Nama company harus diisi',48,NamaApp) Thisform.cKode.Setfocus retu Case empty(.ckode.Value) messagebox('Kode Company harus diisi',48,NamaApp) Thisform.cKode.Setfocus retu endcase sele company rekord=recno() If Thisformset.Status=0 set orde to kode Seek Allt(.ckode.Value) If Found() Messagebox('Data Kode Company '+Allt(.ckode.Value)+' sudah ada, Kode tidak boleh sama !'+Chr(13)+; 'Silakan cek ulang biar anda yakin !' , 48, NamaApp) Thisform.cKode.Setfocus Retu endi


JNC Computer Computer Programming, Networking, Website, Consultant & Maintenance set orde to nm_company Seek Allt(.cN_company.Value) If Found() Messagebox('Data nama Company '+Allt(.cN_company.Value)+' sudah ada, nama Company tidak boleh sama !'+Chr(13)+; 'Silakan cek ulang biar anda yakin !' , 48, NamaApp) Thisform.cn_company.Setfocus Retu endi set orde to kode

Seek alltrim(.cKode.value) If !Found() Appe Blan Replace kode With .cKode.Value Replace nm_company With .cN_company.Value Replace alamat WITH .calamat.value replace kota WITH .cKota.value REPLACE npwp WITH .cnpwp.value replace pa WITH .npa.value replace astek WITH .nastek.value Endi Else goto rekord Replace nm_company With .cN_company.Value Replace alamat WITH .calamat.value replace kota WITH .cKota.value REPLACE npwp WITH .cnpwp.value replace pa WITH .npa.value replace astek WITH .nastek.value Endi .cKode.value='' .calamat.Value='' .ckota.value='' .cnpwp.value='' .npa.value=0 .nastek.value=0

thisformset.fcompany.grid1.refresh .cmdkeluar.click endwith

Command Batal Sele company Thisform.ckode.Value='' thisform.calamat.value='' thisform.cKota.value='' thisform.cnpwp.Value='' thisform.npa.Value=0 thisform.nastek.Value=0


JNC Computer Computer Programming, Networking, Website, Consultant & Maintenance Thisformset.fcompany.Enabled = .T. Thisform.Hide Thisformset.fcompany.Grid1.Refresh Thisformset.fcompany.Grid1.Setfocus

Selesai.


JNC Computer Computer Programming, Networking, Website, Consultant & Maintenance

Recommend Documents