Program Visual Foxpro Untuk Pencetakan

CLEAR
CLEA ALL
LOCAL JmlFile
JmlFile = 0
WAIT WIND “Tunggu sebentar …” NOWA
JmlFile = ADIR(aFile,”data\*.DBF”)
WAIT CLEAR
LIST DATABASE TO FILE PROGRAM\Inf_Data.txt
IF JmlFile > 0
* persiapan pencetakkan …
LOCAL JmlField, JenisTag
JenisTag = “”
IF FILE(“PROGRAM\”+DTOS(DATE())+”.TXT”)
aa=”DELE FILE PROGRAM\”+DTOS(DATE())+”.TXT”
&aa
ENDIF
aa = “SET PRINTER TO PROGRAM\”+DTOS(DATE())+”.TXT ADDI”
&aa
SET PRINT ON
ASORT(aFile)
FOR j=1 TO JmlFile
WAIT WIND “["+ALLTRIM(STR(j))+"/"+ALLTRIM(STR(JmlFile))+"] FileName : “+ALLTRIM(aFile[j,1]) NOWAIT
nmafile = ALLTRIM(aFile[j,1])
USE “DATA\”+ALLTRIM(aFile[j,1]) IN 1 SHARED
JenisTag = “”
IF j=1
? ” STRUKTUR DATABASE : PASIEN”
? “—————————–”
ENDIF
? “["+ALLTRIM(STR(j))+"/"+ALLTRIM(STR(JmlFile))+"] File Name : “+nmafile
? CHR(218)+REPLICATE(CHR(196),16)+CHR(194)+REPLICATE(CHR(196),4)+   CHR(194)+REPLICATE(CHR(196),5)+CHR(194)+REPLICATE(CHR(196),3)+CHR(191)
? CHR(179)+” Name           “+CHR(179)+”Type”+CHR(179)+”Width”+CHR(179)+”Dec”+CHR(179)
? CHR(195)+REPLICATE(CHR(196),16)+CHR(197)+REPLICATE(CHR(196),4)+CHR(197) +REPLICATE(CHR(196),5)+CHR(197)+REPLICATE(CHR(196),3)+CHR(180)
JmlField = AFIELDS(AObjField)
FOR i=1 TO JmlField
? CHR(179)+” “+PADR(AObjField(i,1),15,” “)+CHR(179)+” “+PADR(AObjField(i,2),1,” “)+”  “+CHR(179)+TRANSFORM(AObjField(i,3),”@Z ###”)+;
“  “+CHR(179)+TRANSFORM(AObjField(i,4),”@Z ##”)+” “+CHR(179)
ENDFOR
? CHR(195)+REPLICATE(CHR(196),12)+Chr(194)+REPLICATE(CHR(196),3)+ CHR(193)+Chr(194)+REPLICATE(CHR(196),3)+CHR(193)+ REPLICATE(CHR(196),5)+CHR(193)+REPLICATE(CHR(196),3)+CHR(193)+REPLICATE(CHR(196),8)
? CHR(179)+” TAG        “+CHR(179)+”Type”+CHR(179)+”  Expresion & Filter”
? CHR(195)+REPLICATE(CHR(196),12)+Chr(197)+     REPLICATE(CHR(196),4)+Chr(197)+REPLICATE(CHR(196),10)+ REPLICATE(CHR(196),3)+REPLICATE(CHR(196),9)
FOR nCount = 1 TO 254
IF !EMPTY(TAG(nCount))  && Checks for tags in the index
DO CASE
CASE PRIMARY(nCount)
JenisTag = “P”
CASE CANDIDATE(nCount)
JenisTag = “C”
OTHERWISE
JenisTag = “R”
ENDCASE
? CHR(179)+” “+PADR(TAG(nCount),11,” “)+CHR(179)+”  “+JenisTag+” “+CHR(179)+Key(nCount)
? CHR(179)+SPACE(12)+CHR(179)+SPACE(4)+CHR(179)+FOR(nCount)      && Display .CDX names
ELSE
EXIT  && Exit the loop when no more tags are found
ENDIF
ENDFOR
? CHR(192)+REPLICATE(CHR(196),12)+Chr(193)+REPLICATE(CHR(196),4)+Chr(193)+ REPLICATE(CHR(196),10)+REPLICATE(CHR(196),3)+REPLICATE(CHR(196),9)
? “”
USE
ENDFO
WAIT CLEAR
SET PRINT OFF
SET PRINTER TO
MESSAGEBOX(“Proses telah dilakukan …”,0+64,”")
*——————-
ELSE
MessageBox(“Tidak ada DATABASE …!!!!”,0+16,”")
RETU .T.
ENDIF
CLOS ALL
CLEA ALL
clea

MEMBUAT SISTEM INFORMASI AKUNTANSI DENGAN VISUAL FOXPRO

Membuat Form Entri Kode (Sistem Informasi Akuntansi).
Posted on September 21, 2010 by mhdariefhasan
Dalam materi ini saya akan membahas teknik pembuatan program entri kode yang nantinya akan digunakan dalam proses menjurnal dalam akuntansi.
adapun tahapan sebagai berikut :
1. Buka dan jalankan Program Micrsoft Visual Foxpro 9.0 Anda
2. Atur Setingan Directory
3. buat project baru dengan nama : ProjectSIA
4. Buatlah Tabel baru dengan Nama :master.dbf
Berikut ini struktur dari tabel yang kita kembangkan :

 

Keterangan
1 Koderek : Nomor Kode Rekening Akuntansi
2. Namarek : Nama Rekening Akuntansi
3. tglawal : Tanggal Periode Awal dari Akuntansi
4. awaldebet: Nilai Saldo Awal Dengan Posisi Debet
5. awalkredit : Nilai Saldo Awal Dengan Posisi Kredit
6. mutdebet :Menyimpan Nilai Akumulasi mutasi debet
7. mutkredit : Menyimpan Nilai Akumulasi Mutasi Kredit
8. sisadebet : Untuk Menyimpan nilai saldo akhir Debet
9. sisakredit : untuk menyinpan nilai saldo akhir kredit
10. rldebet : Untuk menyimpan nilai akhir pada account rugi laba debet
11. rlkredit: Untuk menyimpan nilai akhir pada account rugi laba kredit
12. nrcdebet :Untuk menyimpan nilai Akhir dari Neraca yang Didebet
13. nrckredit : Untuk menyimpan nilai Akhir dari Neraca yang Dikredit
14. posisi: diisi dengan “rugilaba” atau “neraca”
15. Normal : diisi dengan “debet” atau “kredit”
Tahapan berikutnya kita buat sebuah Form guna untuk mengentrikan data kode dari visual :

Buatlah form dengan tampilan desain sebagai berikut :
nama form : Form Entri Kode.frm

 

Penjelasan Properties Form :
1. Command1 : Caption : Awal
2. Command2 : Caption : Mundur
3. Command3 : Caption : Maju
4. Command4 : Caption : Akhir
5. Command5 : Caption : Add
6. Command6 : Caption : Save
7. Command7 : Caption : Edit
8. Command8: Caption : Replace
9. Command9 : Caption : Delete
10. Command10 : Caption :Exit
11. Grid1 :
recordsource : master (panggil tabel Master)
recourdsourceType : 0-Table
12. Combo1 :
rowsource : Debet,Kredi
rowsourcetype : 1-Value
13. Combo2 :
rowsource : rugilaba,Neraca
rowsourcetype : 1-Value
14. Komponen lainnya sesuai dengan gambar…
Memasukan Listing Program
Nah, pada tahapan ini kita akan mulai memasukkan listing program
1. Pada Object :Form1 Procedure : Activate
Masukkan Listing berikut :
thisform.text1.Enabled=.f.
thisform.text2.Enabled=.f.
thisform.text3.Enabled=.f.
thisform.text4.Enabled=.f.
thisform.combo1.Enabled=.f.
thisform.combo2.Enabled=.f.
IF EOF()
MESSAGEBOX(“Data Tidak Ada”)
ELSE
thisform.text1.Value= master.koderek
thisform.text2.Value= master.namarek
thisform.combo1.Value= master.normalb
thisform.combo2.Value= master.posisi
thisform.text3.Value= master.awaldebet
thisform.text4.Value= master.awalkredit
ENDIF
thisform.command5.setfocus
penjelasan : Scrip diatas menjelaskan untuk memanggil data awal ditabel jika ada maka akan langsung dimasukkan kedalam teksfield.
2. Pada Object :Form1 Procedure : Load
Masukkan Listing berikut :
CLOSE TABLES all
USE master
SET ORDER TO tag koderek
penjelasan : Scrip diatas menjelaskan untuk memanggil tabel master dan melakukan indeks pada field koderek
3. Pada Object :Command1 (awal) Procedure : Click
Masukkan Listing berikut :
GO top
thisform.Activate
penjelasan : Scrip diatas menjelaskan luntuk pergi ke awal record
4. Pada Object :Command2 (mundur) Procedure : Click
Masukkan Listing berikut :
SKIP -1
IF BOF()
GO top
ENDIF
thisform.Activate

penjelasan : Scrip diatas menjelaskan untuk luntuk mundur 1 record
5. Pada Object :Command3 (maju) Procedure : Click
Masukkan Listing berikut :
SKIP 1
IF EOF()
GO bottom
ENDIF
thisform.Activate
penjelasan : Scrip diatas menjelaskan untuk maju 1 record
6. Pada Object :Command4 (akhir) Procedure : Click
Masukkan Listing berikut :
GO BOTTOM
thisform.Activate
penjelasan : Scrip diatas menjelaskan untuk pergi ke akhir record
7. Pada Object :Command5 (add) Procedure : Click
Masukkan Listing berikut :
thisform.text1.Enabled=.T.
thisform.text2.Enabled=.T.
thisform.text3.Enabled=.T.
thisform.text4.Enabled=.T.
thisform.combo1.Enabled=.T.
thisform.combo2.Enabled=.T.
thisform.text1.Value=”"
thisform.text2.Value=”"
thisform.text3.Value=”"
thisform.text4.Value=”"
thisform.combo1.Value=”"
thisform.combo2.Value=”"
thisform.text1.SetFocus
penjelasan : Scrip diatas menjelaskan untuk menyiapkan teksfield agar siap diisi.
8. Pada Object :Command6 (Save) Procedure : Click
Masukkan Listing berikut :
APPEND BLANK
replace koderek WITH thisform.text1.Value
replace namarek WITH thisform.text2.Value
replace normalb WITH thisform.combo1.Value
replace posisi WITH thisform.combo2.Value
replace awaldebet WITH thisform.text3.Value
replace awalkredit WITH thisform.text4.Value
MESSAGEBOX(“Data Berhasil Disimpan”,0,”konfirmasi”)
thisform.command5.Click
thisform.grid1.Refresh
thisform.text1.SetFocus
penjelasan : Scrip diatas menjelaskan untuk menyimpan data ke tabel
9. Pada Object :Command7 (Edit) Procedure : Click
Masukkan Listing berikut :
thisform.text1.Enabled=.f.
thisform.text2.Enabled=.t.
thisform.text3.Enabled=.t.
thisform.text4.Enabled=.t.
thisform.combo1.Enabled=.t.
thisform.combo2.Enabled=.t.
thisform.text2.SetFocus
penjelasan : Scrip diatas menyiapkan teksfield terhadap field yang akan diedit
10. Pada Object :Command8 (replace) Procedure : Click
Masukkan Listing berikut :
replace namarek WITH thisform.text2.Value
replace normalb WITH thisform.combo1.Value
replace posisi WITH thisform.combo2.Value
replace awaldebet WITH thisform.text3.Value
replace awalkredit WITH thisform.text4.Value
MESSAGEBOX(“Data Berhasil Dirubah”,0,”Konfirmasi”)
thisform.grid1.refresh
thisform.text1.Enabled=.f.
thisform.text2.Enabled=.f.
thisform.text3.Enabled=.f.
thisform.text4.Enabled=.f.
thisform.combo1.Enabled=.f.
thisform.combo2.Enabled=.f.
penjelasan : Scrip diatas ditujukan untuk mengupdate field
10. Pada Object :Command10 (Exit) Procedure : Click
Masukkan Listing berikut :
thisform.release
penjelasan : Scrip diatas ditujukan untuk keluar dari Program

Tips Menguasai Bahasa Pemrograman

Kali ini penulis membeberkan tips-tips untuk menguasai bahasa Pemrograman, “Pemrograman ” adalah suatu kata yang terkadang membawa kita ketingkat imajinasi dan pemikiran yang tinggi. Semua itu karena kesulitan-kesulitan yang ada didalamnya namun akan terasa puas bila kita bisa mengakhiri peng”coding”an dengan berhasil . Ada metode cepat menguasai bahasa pemrograman, yaitu :

1.     Pertama kali dan yang terpenting adalah Anda harus KONSENTRASI. anda harus konsentrasi pada tujuan anda dalam mempelajari program. Apa sih program? Untuk apa sih saya membuat program? Itu adalah pertanyaan yang harus anda cari jawabannya. Tapi ada 2 buah hal pokok jawaban dari pertanyaan ini. Anda harus memberikan jawaban dengan mencari literatur di internet sebagai bahan bakar dan anda harus meresapi arti dari program kedalam otak anda.

Pencarian Data Berdasarkan Kategori

Langkah pertama untuk membuat program Pencarian Data Berdasarkan Kategori yang akan kita pilih yaitu, pertama kita terlebih dahulu membuat Form baru. Kemudian didalam Form tersebut kita beri sebuah textbox, sebuah command button, dan sebuah grid. Kemudian beri name pada masing2 komponen tersebut dalam sebuah property. Pada textbox kita beri nama “text1″, kemudian pada grid name nya sesuai default aja, dan command button kita beri nama “CommandCari”.

Procedure “Form1″ Method “Load”

Agar dapat melakukan koneksi dengan database yang telah kita buat, langkah pertama yang akan kita lakukan adalah memberikan code pada Form1. Yaitu dengan cara klik 2x pada Form1, kemudian ketikkan code dibawah ini :