Debuger's

Cara Menyimpan Photo Pada Tabel Database Visual Foxpro

noreply@blogger.com (Debuger's) — Mon, 02 Jul 2012 17:37:00 +0000

Sebuah table digunakan untuk menyimpan data. Data tersebut bisa bermacam - macam jenisnya. Kebanyakan data yang disimpan adalah data text...yang tentunya dengan type data yang bermacam - macam dari integer, numeric, char dan lain - lain. Tetapi ada kalanya kita perlu juga untuk menyimpan data selain text, yaitu misalnya Gambar. Data gambar ini biasanya terdapat pada table yang digunakan untuk menyimpan data - data profil baik, karyawan, mahasiswa, lokasi, bangunan dan lain - lain.

Di dalam Visual Foxpro atau lebih tepatnya jika kita menggunakan table bawaan Visual Foxpro yaitu DBF, ada beberapa cara atau teknik yang bisa digunakan untuk menyimpan gambar ke table. Beberapa teknik tersebut otomatis ada kelebihan dan juga ada kelemahannya. Untuk menyingkat pembahasan, sekarang kita langsung coba saja teknik untuk menyimpan gambar ke table tersebut :

Teknik (Save Url Image)
Dalam cara ini yang disimpan di dalam table adalah URL atau lokasi dari gambar yang berada di dalam disk / komputer kita. Urutan hal yang diperhatikan dan dipersiapkan untuk menggunakan teknik ini adalah :

Buat 1 Field dengan type Character dengan panjang 254.
Dalam transaksi di form, simpan URL gambar dan masukkan ke Field yang telah dibuat untuk menyimpan gambar tersebut. Contoh misal gambar tersebut sudah ditampilkan melalui kontrol image, maka bisa mengambil nilai dari property picture (image.picture) untuk disimpan ke table.
Dan bila ingin menampilkan gambar ke kontrol image dari data table, bisa langsung atur property picture (image.picture) dengan nilai yang ada di Field yang digunakan untuk menyimpan gambar tersebut.
Setelah table jadi dan gambar ingin ditampikan di report, berikut urutan langkahnya : (1) tambahkan kontrol "Picture/OLE Bound Control" ke dalam report, (2) atur Propertiesnya di Tab "General", di bagian "Control Source Type" pilih "Image File Name" dan (3) di bagian "Control Source" masukkan nama field gambar tersebut.

Teknik ini adalah teknik yang sering digunakan, tetapi teknik ini memiliki kelemahan yaitu yang tersimpan di table sebenarnya bukan gambar melainkan hanya lokasi gambar, jadi ada kemungkinan gambar bisa dihapus atau diubah tanpa harus masuk ke program atau mengakses table terlebih dahulu. Selain itu bila nanti table di copy dan dijalankan atau dipake di tempat lain maka gambar tidak bisa secara otomatis ikut tercopy. Tetapi kelemahan itu sebenarnya bisa diatasi dengan sedikit kreatifitas dari teman - teman Foxpro Mania sekalian dengan sedikit logika untuk melakukan pengaturan File..!!
Teknik (Save Field Memo)

Teknik berikut ini mencoba untuk benar - benar menyimpan gambar dan memasukkannya ke dalam table dengan memanfaatkan type data Memo yang dipunyai DBF. Dengan cara ini nanti File Gambar akan dikonversi ke text dan selanjutnya text tersebut yang akan disimpan di Memo. Text yang disimpan disini bukan hanya lokasi gambar tetapi memang gambar itu sendiri, jadi nanti jangan heran kalau ukuran table teman - teman akan membengkak jika menyimpan gambar yang berukuran besar. Urutan cara atau yang perlu diperhatikan untuk menggunakan teknik ini adalah sebagai berikut :

Buat 1 Field dengan type data Memo.
Dalam transaksi di form gunakan kontrol image dan property pictureval (perlu diingat kalau di teknik sebelumnya yang digunakan adalah property picture tapi disini adalah pictureval).
Bila ingin menampilkan gambar ke image misal dengan melakukan pemilihan file gambar terlebih dahulu bisa pake syntax Image1.Pictureval=FILETOSTR(GETPICT()). Fungsi Filetostr adalah hal yang penting disini, karena fungsi itulah yang digunakan untuk mengkonversi dari file gambar ke text. Selanjutnya nilai Image1.Pictureval lah yang yang dimasukkan atau disimpan ke dalam Field yang bertype data Memo tersebut.
Bila ingin menampilkan gambar ke kontrol image dari data table, bisa langsung atur property pictureval (image.pictureval) dengan nilai yang ada di Field gambar yang bertype Memo tersebut.
Dengan menggunakan teknik ini akan sedikit ribet saat ingin menampilkan image tersebut ke dalam report, tidak sesederhana seperti bila menggunakan teknik lainnya karena harus membuat program kecil untuk mengkonversi kembali data memo tersebut ke dalam file gambar dan kemudian baru ditampilkan ke report. Tetapi meskipun agak ribet sebenarnya sich gk terlalu ribet banget juga dan teknik ini lah yang lebih banyak disukai oleh para rekan - rekan senior Foxpro Mania.

Teknik (Save Field General)
Teknik ini adalah teknik dengan menggunakan salah satu fasilitas yang ada di DBF untuk menyimpan objek, yaitu dengan menggunakan field general. Dengan cara ini nanti gambar akan disimpan sebagai objek. Sebenarnya teknik ini lah yang paling sederhana, tetapi memiliki beberapa kelemahan yaitu diantaranya adalah gambar yang bisa dengan baik dikelola dengan teknik ini adalah gambar dengan format BMP dengan kualitas gambar yang tidak begitu baik. Sebenarnya gambar dengan format yang lain seperti JPG, GIF dan lain - lain, bisa disimpan tetapi nantinya bila ditampilkan baik di dalam form melalui kontrol image atau di dalam report yang tampak hanya berupa shortcut dan bukanlah gambar yang sebenarnya. Bila teman - teman ingin mencoba teknik ini berikut ini urutan langkahnya :

Buat 1 Field dengan type General
Untuk menyimpan ke dalam field general gunakan syntak :

APPEND BLANK

APPEND GENERAL <nama field general> FROM <gambar yang akan ditambahkan>

Bila ingin menampilkan ke dalam form dengan menggunakan kontrol, maka kontrol yang digunakan adalah kontrol OleBoundControl, tidak seperti teknik sebelumnya yang menggunakan kontrol image. Atur property ControlSource dari OleBoundControl dengan nama field general yang digunakan untuk menampilkan gambar.

Setelah table jadi dan gambar ingin ditampikan di report, urutan langkahnya adalah : (1) tambahkan kontrol "Picture/OLE Bound Control" ke dalam report, (2) atur Propertiesnya di Tab "General", di bagian "Control Source Type" pilih "General Field Name" dan (3) di bagian "Control Source" masukkan nama field general yang digunakan untuk menyimpan gambar tersebut. Meskipun teknik ini lebih sederhana daripada 2 teknik lainnya, tetapi teknik ini seringkali dihindari atau jarang digunakan yang dikarenakan beberapa kelemahan yang telah dijelaskan diatas. Sebagai catatan bila nanti meski telah menggunakan gambar dengan type BMP ternyata yang ditampilkan tetap hanya berupa shortcut, baik saat di ditampilkan dengan menggunakan OleBoundControl atau di dalam report, maka jalankan script ini assoc.bmp=Paint.Picture di dalam RUN atau di "Command Prompt" terlebih dahulu.

Merelasikan Table Visual Foxpro

noreply@blogger.com (Debuger's) — Mon, 04 Jun 2012 08:32:00 +0000

Relasi antar tabel didalam mengolah data dengan Visual FoxPro 9.0 memegang peran yang sangat penting. Jika Anda mempunyai banyak tabel dalam suatu
database, dimana isi informasi ada pada beberapa tabel yang terpisah, dan Anda ingin mengumpulkan informasi tersebut dari beberapa tabel menjadi satu informasi yang dibutuhkan untuk membuat suatu laporan, maka perintah relasi ini dapat Anda gunakan.

Langkah pertama adalah membuat file baru yang terdiri dari dua buah field, yakni field no_pen, nama dan keterangan. dimana strukturnya berasal dari
tabel penduduk.dbf, lalu tabel baru tersebut diberi nama tabel dataconv.dbf.

Jalankan program Visual FoxPro 9.0, ketikan pada Jendela Command perintah dibawah ini.

SELECT a

USE c:\dtpenduduk\penduduk.DBF

COPY TO dataconv FIELDS no_pen,nama,kondisi, keterangan FOR kondisi =[MISKIN]

SELECT b

USE c:\dtpenduduk\dataconv.DBF

Penjelasan perintah diatas adalah :

Anda telah melakukan proses pembuatan satu tabel baru dengan nama dataconv.dbf yang didalamnya hanya terdapat empat buah field saja yakni :
field no_pen, nama, kondisi dan keterangan, yang diambil dari tebel penduduk.dbf, dan hanya data yang mempunyai kriteria field kondisi adalah MISKIN.

Ketiklah perintah display status untuk melihat jumlah file yang sedang dibuka saat ini. Perhatikan gambar dibawah ini, ada dua buah file yang sedang
terbuka, tampak tabel dataconv.dbf menempati area kedua dan tabel penduduk.dbf menempati area pertama.

Kemudian lihatlah isi dari kedua tabel tersebut

SELECT

z
a && a= tabel penduduk

BROWSE

SELECT b && b= tabel dataconv

BROWSE

Atau

SELECT penduduk

BROWSE

SELECT dataconv

BROWSE

Perintah diatas diberikan karena kedua buah tabel yakni tabel penduduk.dbf dan tabel dataconv.dbf telah dibuka sebelumnya.

Atau ketikan dari awal seperti perintah dibawah ini :

CLOSE ALL

USE c:\dtpenduduk\penduduk.DBF IN 0

USE c:\dtpenduduk\dataconv.DBF IN 0

SELECT penduduk

BROWSE

SELECT dataconv

BROWSE

Perhatikan tampilan dua buah tabel yang sedang dibuka.

8.2 Melakukan relasi dengan proses replace record.

Visual FoxPro 9.0 mengenal ada empat macam relasi, yakni :

Relasi satu ke banyak

Relasi banyak ke satu

Relasi satu ke Satu

Relasi banyak ke banyak

Untuk relasi satu ke satu atau banyak ke banyak sepertinya kurang banyak dipakai, karena terasa kurang lazim.

Biasanya jenis relasi satu ke banyak dan banyak ke satu yang sering dipakai.

Note:

Untuk melakukan relasi antar tabel, Visual FoxPro 9.0 meminta Anda untuk selalu melakukan proses index dari tabel yang akan direlasikan
tersebut.

8.2.1 set relation.

Perintah set relation adalah perintah yang berfungsi melakukan hubungan antar tabel sesuai dengan kunci indexnya. Tentunya dengan perintah ini Anda
dapat melakukan banyak hal didalam proses relasi antar tabel.

Mari kita mencoba melakukan proses relasi antar tabel. Intinya Saya akan mengisikan field keterangan yang ada pada tabel dataconv.dbf dengan data
yang ada pada field pekerjaan yang ada pada tabel penduduk.dbf.

Lakukan pengetikan perintah berikut ini.

USE c:\dtpenduduk\penduduk.DBF IN 0

INDEX on no_pen TO nopenp

USE c:\dtpenduduk\dataconv.DBF IN 0

INDEX on no_pen TO nopend

SELECT dataconv

SET RELATION TO no_pen INTO penduduk

REPLACE keterangan WITH penduduk->pekerjaan FOR no_pen =penduduk->no_pen

BROWSE

Lihatkan hasilnya pada field keterangan yang telah diisi oleh data dari field pekerjaan pada tabel penduduk.

Penjelasan diatas adalah sebagai berikut :

Memanggil tabel data penduduk.dbf pada lokasi paling kecil / nol

USE c:\dtpenduduk\penduduk.DBF IN 0

Melakukan proses index pada tabel penduduk.dbf menurut kata kunci no_pen dengan nama index nopenp.idx

INDEX on no_pen TO nopenp

Kemudian memanggil tabel yang bernama dataconv.dbf pada lokasi paling terkecil yang ditentukan oleh Visual FoxPro 9.0 / 0 / nol

USE c:\dtpenduduk\dataconv.DBF IN 0

Dilakukan proses index data dengan kunci index no_pen dan diberi nama index nopend.idx

INDEX on no_pen TO nopend

Aktifkan tabel dataconv

SELECT dataconv

Beri perintah relasi kedua tabel berdasarkan kata kunci no_pen dari posisi tabel aktif yakni dataconv.dbf terhadap tabel penduduk.dbf

SET RELATION TO no_pen INTO penduduk

Lakukan proses perubahan pada field keterangan yang berada pada tabel aktif yakni dataconv.dbf dengan mengambil data pada tabel penduduk untuk yang
mempunyai data yang sama pada field no_pen antara tabel dataconv.dbf dengan tabel peduduk.dbf

REPLACE keterangan WITH penduduk->pekerjaan FOR no_pen =penduduk->no_pen

Lihatlah hasilnya

BROWSE

Contoh lain.

SELECT a

USE c:\dtpenduduk\penduduk.DBF

INDEX on no_pen TO xx

SELECT b

USE dataconv

INDEX on no_pen TO yy

SET RELATION TO no_pen INTO a

REPLACE kondisi WITH 'kacian' keterangan WITH a->nama + a->status FOR no_pen =a->no_pen

BROWSE

Penjelasan perintah diatas adalah sebagai berikut.

Tentukan area kerja a

SELECT a

Buka tabel penduduk.dbf

USE c:\dtpenduduk\penduduk.DBF

Lakukan proses index field no_pen sebagai kata kunci dengan nama index xx.idx

INDEX on no_pen TO xx

Tentukan area kerja b

SELECT b

Buka tabel dataconv.dbf

USE dataconv

Disini pembukaan dataconv.dbf tidak menyertakan direktori seperti pembukaan tabel penduduk.dbf, Pemanggilan tabel diperbolehkan karena default
direktori telah ditentukan sebelumnya. Melalui menu tools-options atau pengetikan perintah set defa to ...( Bab 1

Lakukan proses index field no_pen sebagai kata kunci dengan nama index yy.idx

INDEX on no_pen TO yy

Beri perintah relasi kedua tabel berdasarkan kata kunci no_pen dari posisi tabel aktif yakni dataconv.dbf ke tabel pada area a yakni tabel
penduduk.dbf

SET RELATION TO no_pen INTO a

Lakukan proses perubahan pada field kondisi milik tabel dataconv.dbf yang berada di area b dan saat ini sedang aktif dengan kata
‘kacian’ dan field keterangan dengan data pada field nama + status yang berada pada tabel penduduk.dbf yang ada di area a. Perubahan ini diproses untuk yang mempunyai kunci relasi yang
sama antara no_pen pada tabel dataconv.dbf ( pada area b ) dan tabel pendudul.dbf ( pada area a

REPLACE kondisi WITH 'kacian' keterangan WITH a->nama + a->status FOR no_pen =a->no_pen

Lihatlah hasilnya

BROWSE

8.2.2 Set relation dengan lebih dari dua tabel.

Bagaimana jika seandainya Anda akan melakukan relasi dengan lebih dari dua tabel ?.

Visual FoxPro 9.0 memungkinkan Anda melakukan relasi beberapa tabel sekaligus tanpa masalah, tinggal Anda mampu mengingat tidak nama dan lokasi dari
tabel yang dibuka.

Untuk melakukan relasi tiga buah tabel, misalnya lihatlah contoh dibawah ini.

USE c:\dtpenduduk\penduduk.DBF IN 0

INDEX on no_pen TO nopenp

USE c:\dtpenduduk\dataconv.DBF IN 0

INDEX on no_pen TO nopend

Use c:\dtpenduduk\dataktp.DBF IN 0

INDEX on no_ktp TO noktp

SELECT dataconv

SET RELATION TO no_pen INTO penduduk, noktp into dataktp

Jadi untuk melakukan relasi lebih dari dua tabel secara sekaligus maka perintah relasi dipisahkan dengan tanda koma.

Bisa juga dengan tambahan kata ADDITIVE untuk tabel berikutnya ( setelah 2 relasi utama ). Misalnya Lihat contoh berikut :

USE c:\dtpenduduk\penduduk.DBF IN 0

INDEX on no_pen TO nopenp

USE c:\dtpenduduk\dataconv.DBF IN 0

INDEX on no_pen TO nopend

Use c:\dtpenduduk\dataktp.DBF IN 0

INDEX on no_ktp TO noktp

SELECT dataconv

SET RELATION TO no_pen INTO penduduk

SET RELATION TO no_ktp INTO dataktp ADDTIVE

8.2.3 Memutuskan satu relasi.

Jika Anda mempunyai beberapa relasi antar tabel, dan Anda akan memutuskan salah satu keterkaitan tersebut maka ketikan perintah

SET RELATION OFF dataktp

8.2.4 Set relation to.

Untuk memutuskan seluruh relasi pada tabel yang terkait maka ketikan perintah :

SET RELATION
TO

8.3 Relasi dengan proses delete record.

Jika diatas Anda melakukan relasi, dimana relasi tersebut melakukan beberapa perubahan pada data aktif, disini Saya akan ajak Anda untuk mengenal
relasi untuk melakukan penghapusan pada data aktif.

SELECT a

USE c:\dtpenduduk\penduduk.DBF

INDEX on no_pen TO oke

SELECT b

USE c:\dtpenduduk\dataconv.DBF

INDEX on no_pen TO yes

SELECT a

SET RELATION TO no_pen INTO b

DELETE FOR no_pen =b->no_pen

COUNT FOR DELETED()

BROWSE

Perhatikan baris perintah diatas. Untuk pemberian nama index, Anda bebas boleh apa saja, mau yes, oke, atau jost sekalipun tidak apa-apa.

Perhatikan untuk perintah pernghapusan data yang tertulis sebagai berikut :

DELETE FOR no_pen =b->no_pen

Artinya. Komputer disuruh melakukan proses pendeletan data bisa data pada kunci index yang ada pada tabel penduduk.dbf (a) sama dengan data kunci
index pada tabel dataconv.dbf (b).

Perintah COUNT FOR DELETED() adalah perintah untuk menghitung berapa banyak record data yang telah dihapus dalam tabel.

Terlihat pada tabel penduduk yang telah dilakukan proses pendeletan, tampak data yang cocok diberi tanda delete.

Program Visual Foxpro Untuk Pencetakan

noreply@blogger.com (Debuger's) — Sun, 27 May 2012 07:29:00 +0000

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

noreply@blogger.com (Debuger's) — Sun, 27 May 2012 07:14:00 +0000

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

noreply@blogger.com (Debuger's) — Tue, 15 May 2012 03:58:00 +0000

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.

2. Sebenarnya, dalam bahasa apapun yang ingin anda kuasai, percayalah, pasti ada hal terpenting dari hal penting dalam bahasa itu. Hal terpenting itulah yang harus anda garis bawahi, itulah yang harus anda pelajari. Dan setelah anda mengetahui hal terpenting itu maka carilah buku yang menjelaskan tuntas tentang itu.

3. Apa sih “hal terpenting” dalam bahasa pemrograman itu? Jawabnya: anda harus mempelajari Struktur Bahasa, Sintak Dasar (cara pengetikan bahasa program), Tipe Data, dan Cara Membuat Prosedur / Fungsi. Sedikit bukan?

4. “Loh bagaimana dengan yang hal penting lainnya?”, jawabnya: Anda harus tahu bahwa pemrograman juga hampir sama dengan kebutuhan manusia, ada kebutuhan Primer, Sekunder dan Tersier. Nah, pada point 3 tadi adalah kebutuhan primernya. Jadi, kalau anda ingin lebih kaya pengetahuan akan bahasa pemrograman tersebut, silakan anda memperluasnya dengan kebutuhan Sekunder dan Tersier melalui literatur, tutorial dan buku yang banyak beredar.

5. Dan terakhir adalah, PRAKTEK. Karena tidak mungkin semua yang ada dimuka bumi ini muncul dengan sendirinya, pasti ada yang membuatnya begitu juga program. Ada pepatah “tak ada kerja tak ada produk“.

6. Produktif,inovatif dan Kreatif lah dalam segala hal di kehidupan…

7. Semoga bermanfaat..........

Ada beberapa tempat yang bisa anda coba sekalian anda bandingkan, seberapa lengkap mereka menyediakan source code terhadap bahasa-bahasa pemrograman. Berikut ini adalah tempat-tempat yang bisa anda coba :

http://webscripts.softpedia.com/

http://sourceforge.net/projects/adempiere/files/
http://sourceforge.net/projects/compiere/files/
http://www.sourcecodeonline.com/
http://www.sourcecodester.com/java
http://www.planet-source-code.com/
http://roseindia.net

Pencarian Data Berdasarkan Kategori

noreply@blogger.com (Debuger's) — Sun, 13 May 2012 09:24:00 +0000

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 :

CLOSE DATABASES
CLOSE TABLES all
CLOSE INDEXES
SET DEFA TO d:\Artikel_Foxpro_9\Latihan

USE mata_kul ” Keterangan : Code disamping merupakan nama tabel yang akan kita gunakan. “
SET ORDER TO tag kd_mk

Procedure “CommandCari” Method “Klik”

Untuk dapat melakukan pencarian, langkah selanjutnya yang harus kita lakukan yaitu memberi code pada command button yang akan kita gunakan untuk tombol pencarian. Caranya yaitu klik 2x pada CommandCari. CommandCari tersebut adalah name dari tombol cari. Sesudah itu, pada Method kita pilih “Klik”. Kemudian pada bagian penulisan program kita tuliskan listing code dibawah ini :

SET ORDER TO tag nm_mk
SET EXACT OFF
SEEK ALLTRIM (thisform.text1.Value) ” Keterangan : Code disamping digunakan untuk melakukan pencarian berdasarkan kategori yang akan kita masukkan yang terdapat pada bagian text1 ”

WITH thisform
IF FOUND()
.txtkd_mk.value=mata_kul.kd_mk
.txtnm_mk.value=mata_kul.nm_mk
.txtjml_sks.value=mata_kul.jml_sks
.grid1.setfocus
ELSE
MESSAGEBOX(“Data tidak ditemukan”,64,”Cari data”)
.txtcari.setfocus
ENDIF
ENDWITH

Procedure “Form1″ Method “tampil”

Langkah Pertama Untuk membuat Method baru pada Foxpro yaitu Klik “Form” pada Menu diatas kemudian klik “New Method”, lalu tuliskan Method baru dengan nama “tampil”. Kemudian tuliskan listing code dibawah ini pada Procedure Form dengan cara klik 2x pada form kemudian pada pilihan Method Kita pilih Method baru yang tadi telah kita buat yaitu Method “tampil”. Setelah itu ketikkan pada bagian penulisan code listing code berikut ini :

WITH thisform
.grid1.recordsource=”mata_kul”
.grid1.columncount=3
.grid1.column1.width=100
.grid1.column2.width=100
.grid1.column3.width=80

.grid1.column1.controlsource=”mata_kul.kd_mk”
.grid1.column2.controlsource=”mata_kul.nm_mk”
.grid1.column3.controlsource=”mata_kul.jml_sks”

.grid1.column1.header1.caption=”Kode Matakuliah”
.grid1.column2.header1.caption=”Nama Matakuliah”
.grid1.column3.header1.caption=”Jumlah SKS”
ENDWITH

Sesudah semua listing code Kita buat. Langkah terakhir yaitu melakukan running program untuk menguji apakah program pencarian pada Grid benar.

noreply@blogger.com (Debuger's) — Sun, 25 Mar 2012 15:30:00 +0000

Untuk membuat emoticon kaskus yang bisa digunakan di facebook saat chat atau update status, silahkan plototin ni.....ni.......ni..........

Caranya mudah menginstal enotikon kaskus di facebook:
Jika memakai mozilla firefox

pada browser firefox install addons greasemonkey, buka aja https://addons.mozilla.org/en-US/firefox/addon/748
Setelah itu klik add to firefox dan install
Restart browser anda atau tutup lulu anda buka kembali firefoxnya
Install skrip kaskus smiley, buka aja

http://userscripts.org/scripts/show/77179/

lalu klik install setelah muncul form pemberitahuan klik install
restart browser firefox anda --> atau cukup tutup lalu hidupkan lagi firefoxnya

Sekian.......semoga bermamfaat dan selamat chat ria dengan emoticon barunya...............

noreply@blogger.com (Debuger's) — Sun, 18 Mar 2012 15:53:00 +0000

setelah googling akhir dapat Sedikit contoh Listing 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

Tutorial Visual Foxpro

noreply@blogger.com (Debuger's) — Sat, 17 Mar 2012 02:39:00 +0000

Visual foxpro adalah bahasa pemrograman yang populer. Banyak keunggulan yang dimilikinya yaitu yang paling menonjol adalah kemudahan pemakaian. Program MS-Visual Foxpro adalah bahasa pemrograman berbasis MS-Windows, sebagai bahasa pemrograman yang mutakhir, MS-Visual Foxpro didesain untuk dapat memanfaatkan fasilitas Microsoft Windows, khususnya MS-Windows 95/97/98 dan MS-Windows NT dan juga bisa digunakan di windows 7. Untuk digunakan pada Windows7 untuk mempercepat terlebih dahulu kita matikan dulu tema windowsnya denganMicrosoft Visual Foxpro juga merupakan bahasa pemrograman object oriented programming (OOP), yaitu pemrograman yang berorientasi object.

Microsoft Visual Foxpro menyediakan objek-objek yang sangat kuat, berguna dan mudah dipakai. Microsoft Visual Foxpro mempunyai fasilitas-fasilitas yang lebih lengkap dibandingkan versi-versi sebelumnya. Keistimewaan dari MS Visual Foxpro adalah kita dapat membuat proyek dengan sangat cepat dengan satu atau lebih form yang sudah disediakan. Lingkungan pemrograman Visual Foxpro mengandung semua sarana yang kita butuhkan untuk membangun program yang hebat untuk windows dengan cepat dan efisien. Keuntungan pemrograman menggunakan MS Visual Foxpro adalah kita akan lebih mudah melakukan pemrograman menggunakan aplikasi-aplikasi yang tersedia serta kita bisa menyusun aplikasi database secara mudah dan menyenangkan. Kemudahan cara pemakaian MS Visual Foxpro membuat kita tidak akan terlalu takut untuk memulai mempelajarinya sedangkan kecanggihannya akan merangsang bagi orang sudah mulai mempelajarinya untuk lebih mendalam dan memanfaatkannya.

hostgator coupon page

noreply@blogger.com (Debuger's) — Wed, 14 Mar 2012 15:03:00 +0000

Pertama yang kita lakukan adalah…buatlah folder mhs pada salah satu partisi kamu. Siapkan sebuah data berbentuk Excel seperti berikut atau dapat menambahkan data sesuai kehendak, lalu taruh dalam folder tersebut :

Kedua..pastikan kalau kamu telah menginstal visual foxpro 9.0.(selanjutnya saya sebut Serigala) lalu buka Serigalanya…
Untuk membuat sebuah project, kita klik file pilih New
Hingga muncul sebagai berikut,

Selanjutnya, jika membuat sesuatu yang baru masuk kesini ajah yah(window new), jangan diclose.
Lalu klik New File save project tersebut difile yang telah kita buat pada partisi yang kita buat diawal dengan nama Aplikasi Mahasiswa.
Maka akan muncul project manager.
Untuk selanjutnya kita akan merancang Database yang akan kita buat.

Klik New Database, lalu save difile kita dengan nama Siswa.
Selanjutnya kita dapat membuat table baru dengan cara membuat New Table pada database Siswa dengan cara yang sama membuat new database.

Perhatikan index dan indexes..isi index dengan ascending dan isi primary key(jangan diisi dulu tetap kondisi sebagai regular) untuk noinduk pada indexes.
Setelah itu, hasilnya seperti berikut ini :

Jika kita ingin mengisi datanya, kita tinggal klik Browse lalu klik menu VIEW pilih menu Append Mode
Kita tinggalkan mengisi lewat visual foxpro. Sekarang mari kita import data lewat excel yang kita buat tadi.
Pertama-tama buka table yang kita buat tadi, lalu klik Browse ketik sintak
Append from ? xl5
Tunjuk file xl yang kita buat tadi sehingga data tersebut terimport ke serigala kita.
Sekarang mari kita buat Table kedua dengan nama Mata Pelajaran.
Isikan table seperti berikut ini :

Lalu entry data dengan metode yang anda sukai (baik lewat Excel atau dari serigala)..
Sekarang kita akan membuat Local View dan Query
Klik Tab Data pada Project Manager, Klik pilihan Local view. Klik New dan New View.
Klik table Data Siswa pada bagian Tables in Database. Lalu klik OK. Pada tab Field klik field yang ingin ditampilkan misal klik noinduk, nama, tmptlahir dan tgllahir. Save.
Untuk melihat hasilnya klik RUN. Jika terjadi kesalahan terhadap import data(data pada table tidak singkron) jika dapat merubahnya dengan Append Mode (cara input data selain mengimport dari excell)
MEMBUAT QUERY
Buat New Query (cara sama dengan membuat table dan database baru). Add kedua table yang telah kita buat.
Lalu isikan seperti berikut :

Maka akan terbentuk hasil seperti berikut :

Selanjutnya kita akan berkenalan dengan FORM
Klik Tab Documentation pada Project manager lalu klik New, lalu klik From Wizard. Ketika muncul select wizard, pilih FORM WIZARD. Pindahkan semua fields. Next, muncul step 2, pilih stlye Embossed, pilih button type dengan Picture Button . Next. Masuk ke Step 3, pindahkan filed noinduk. NEXT. Isi Type Tittle for your form dengan nama entri data siswa. Pilih Save and RUN FORM. Klik FINISH dan save difolder projek kita dengan nama Entri Data Nilai . SAVE
Maka Tampilannya akan seperti berikut ini.

Nah sekarang kita dapat menginput data sesuka hati hehehe selamat mencoba yahhhh J

Belajar VB

noreply@blogger.com (Debuger's) — Tue, 13 Mar 2012 18:05:00 +0000

Sebagai pemrograman berbasis Windows, VB mempunyai kemampuan untuk berinteraksi dengan seluruh aplikasi Windows, seperti Microsoft Word, Microsoft Excel dan Microsoft Acces. Dengan kemampuan yang hampir tidak terbatas, VB dapat digunakan untuk semua aplikasi pemrograman, seperti game, multimedia, program perhitungan, bahkan untuk membuat aplikasi program yang mirip Word dan Excel (Pamungkas, 2003)

VB merupakan program yang mendukung pengolahan data yang akurat karena dilengkapi dengan fasilitas pengolahan database (Andi dan Madcom, 2003). Dalam pengembangan aplikasi, VB menggunakan pendekatan Visual untuk merancang user-interface dalam bentuk form, sedangkan untuk kodingnya menggunakan dialek bahasa basic.

Dalam VB, pembuatan sebuah program aplikasi harus dikerjakan dalam sebuah proyek. Proyek tersebut berisi kumpulan file-file yang digunakan untuk membuat aplikasi. Sedangkan untuk membuat sebuah program aplikasi, terlebih dahulu dibuat form, baru kemudian membuat file dan modul lain. Setelah semua komponen dipadukan dan kode telah ditulis, langkah selanjutnya adalah membuat proyek menjadi file yang bisa dieksekusi (Pamungkas, 2003).

Di antara fasilitasnya ialah ADO (ActiveX Data Object) dan DHTML (Dynamic Hypertex MarkUp Language). Pembahasan dalam Modul ini akan dititik beratkan pd pembahasan pemrograman database menggunakan ADO.

Mengenal Tampilan Kerja (Intergrated Development Environtment/IDE) VB 6
IDE akan memberikan semua yang dibutuhkan programer untuk membuat aplikasi yang besar dengan dilengkapi dengan fasilitas yang sangat lengkap.
Komponen-komponen yang ada dalam IDE:

Project Window memberikan gambaran dari semua modul yang ada dalam aplikasi. Jendela project dapat ditampilkan dengan menekan Ctrl+R / dengan mengklik icon project Explorer di toolbar.
Form designer Window digunakan untuk membuat User Interface,
Toolbox Window berisi komponen-komponen yang dapat diletakkan dalam form. Secara default visual basic menyediakan komponen standart yang dinamakan dengan Intrisic controls. Komponen ini dapat ditambah dengan menekan Ctrl+T, dan untuk memunculkannya klik menu View - Toolbox.
Code window digunakan untuk menambahkan kode-kode yang akan dijalankan ketika terjadi event tertentu. Untuk memunculkan code window dapat digunakan tombol F7. sedangkan untuk berpindah dari code ke window ke form digunakan Shift-F7. Pada Code window procedure kejadian atau Event Procedures akan terdapat beberapa perbedaan pada tiap masing-masing kontrol/objek. Kode ini akan dieksekusi ketika ada respon dari pemakai berupa waktu event tertentu.
Property window berisi property-property yang dimiliki oleh sebuah object. Untuk memunculkan Property Window tekan tombol F4.
Form layout digunakan untuk mendefiniskan letak form ketika program dijalankan.
Immediate window dapat digunakan digunakan untuk melihat hasil ekspresi dengan menggunakan perintah print. Jendela ini banyak digunakan ketika berada dalam break mode.
Object Browser dapat digunakan untuk menampilkan property, metode dari object yang diambil dari library internal.

Mengenal Kontrol
Kontrol adalah alat bantu yang dipakai untuk membuat sebuah objek pada form Visual Basic. Setelah kontrol ditambahkan ke form, kontrol tersebut berubah menjadi sebuah objek yaitu elemen perantara pemakai yang dapat diprogram.
Picture Box
Pic
Untuk menampilkan File gambar: .bmp, .jpg, .gif, .wmf dan .ico

Label
Lbl
Menampilkan teks tetapi pemakai tidak dapat berinteraksi atau mengubahnya.

Text Box
Txt
Menampilkan teks dimana pemakai dapat mengisi atau melihat teks yang ditampilkan sebagai output suatu proses

Frame
Fra
Mengidentifikasi sebuah group pengontrolan.

Command Button
Cmd
Memberikan sebuah perintah atau tindakan ketika digunakan.

Check Box
Chk
Memberikan perintah pilihan benar/salah (True/False) atau Ya/Tidak (Yes/No). Pemakai dapat memilih check box secara bersamaan.

Option Button
Opt
Memberikan group pilihan. Pemakai hanya dapat memilih satu option pada group pilihan.

Combo Box
Cbo
Unit kontrol kombinasi antara Text Box dengan List Box. Pemakai dapat memilih lewat daftar drop-down.

List Box
Lst
Menampilkan daftar item yang dapat dipilih salah satu oleh pemakai.

Horisontal Scroll Bar
Hsb
Menampilkan balok gulung horisontal

Vertical Scroll Bar
Vsb
Menampilkan balok gulung vertikal

Timer
Tmr
Untuk mengeksekusi waktu kejadian pada rutin program termasuk selang waktu (interval).

Drive List Box
Drv
Menampilkan daftar drive

Directory List Box
Dir
Menampilkan daftar direktory pada drive terpilih.

File List Box
Fil
Menampilkan Daftar File pada Drive dan direktori terpilih

Shape
Shp
Membuat lingkaran, elips dan kotak pada form.

Line
Lin
Membuat garis pada form.
Image
Img
Menampilkan gambar: bmp, gif, jpg, wmf dan ico. Perbedaan dengan PictureBox adalah, kontrol ini tidak bisa dijadikan sebagai frame, sedangkan PictureBox bisa.

Data
Dat
Objek penghubung (Connection) database pada suatu form.

OLE (Object Linking and Embedding)
Ole
Memungkinkan pemakai menempelkan suatu objek dari aplikasi yang mendukung OLE ke Aplikasi Visual Basic
Visual Basic snippets Codes
Allow certain characters in a textbox'1 textbox
'put in keypress procedure of textbox

    Const Numbers$ = '0123456789.'
    If KeyAscii <> 8 Then
    If InStr(Numbers, Chr(KeyAscii)) = 0 Then
            MsgBox 'error'
            KeyAscii = 0
            Exit Sub
        End If
    End If
APP Already Running?
'vb
If App.PrevInstance Then
   msgbox 'Program is already running.
   Exit Sub
    End If
Center Form
'vb
Top = Screen.Height / 2 - Height / 2
Left = Screen.Width / 2 - Width / 2
Clear all Textboxes on Form'vb
Public Sub ClearAllText(frm As Form, ctl As Control)
For Each ctl In frm
If TypeOf ctl Is TextBox Then
ctl.Text=''
End If
Next ctl
Clipboard Cut Text
'Need VB, 1 textbox
ClipBoard.SetText Text1.SelText
Text1.SelText = ''
ClipBoard Copy Text'Need VB, 1 textbox
ClipBoard.SetText Text1.SelText

Clipboard Paste Text
'Need VB, 1 textbox
Text1.SelText = ClipBoard.GetText
Delete File'vb
On Error GoTo error
Kill FilePath$
Exit Sub
error: MsgBox Err.Description, vbExclamation, 'Error'
Directory Exist?'vb5+
f$ = 'C:\WINDOWS'
dirFolder = Dir(f$, vbDirectory)
If dirFolder <> '' Then
    strmsg = MsgBox('This folder already exists.', vbCritical)
    'directory exists action here
End If
File Exist?
'vb4+
Public Function FileExists(strPath As String) As Integer
    FileExists = Not (Dir(strPath) = '')
End Function
File Size
'vb
Dim FileSize As Long
FileSize& = FileLen('C:\SOMEFILE.TXT')
msgbox filesize& & ' bytes'
Get screen size in pixels'vb
Width% = Screen.Width \ App.TwipsPerPixelX
Height% = Screen.Height \ App.TwipsPerPixelY
Highlight Textbox Text on Focus'textbox
Sub Text1_GotFocus()
Text1.SelStart = 0
Text1=SelLength = Len(Text1)
End Sub
Limit text input'vb
Function LimitTextInput(source) As String
    'put the next line in the Textbox_KeyPress event
    'KeyAscii = LimitTextInput(KeyAscii)
    'change Numbers with any other character
    Const Numbers$ = '0123456789.'
    'backspace =8
    If source <> 8 Then
    If InStr(Numbers, Chr(source)) = 0 Then
            LimitTextInput = 0
            Exit Function
        End If
        End If
    LimitTextInput = source
End Function

No textbox popup menu'textbox
If button=2 Then
      text1.enabled=false
      popupmenu
      text1.enabled=true
      text1.setfocus
Numer of characters in a textbox including spaces
'textbox
Dim TheNum as string
TheNum$ = Len(Text1)
Msgbox TheNum$
PW Protect
'Need 1 button and 1 textbox
If Text1 = 'password' Then
MsgBox 'Thats the pw'
Else
MsgBox 'Wrong pw try again'
End If
Reverse a string'vb5+
Text1.Text = StrReverse('String')
Search a Listbox
'Need 1 button, 1 textbox, 1 listbox
'Name textbox = txtSearch, Name listbox = lstSearch
    Dim theList As Long
    Dim textToSearch as String
    Dim theListText As String
    textToSearch = LCase(txtSearch.Text)
    For theList = 0 To lstSearch.ListCount - 1

        theListText = LCase(lstSearch.List(theList))

        If theListText = textToSearch Then lstSearch.Text = textToSearch
    Next

Sendkey Controls
'vb
^ = Control
{enter} = Enter
% = Alt
{Del} = Delete
{ESCAPE} = Escape
{TAB} = Tab
+ = Shift
{BACKSPACE} = Backspace
{BREAK} = Break
{CAPLOCKS} = Caps Lock
{CLEAR} = Clear
{DELETE} = Delete
{DOWN} = Down Arrow
{LEFT} = Left Arrow
{RIGHT} = Right Arrow
{UP} = Up Arrow
{NUMLOCK} = Num Lock
{PGDN} = Page Down
{PGUP} = Page Up
{SCROLLLOCK} = Scroll Lock
{F1} = F1 .......Use {F2} {F3} and so on for others...
{HOME} = home
{INSERT} = Insert

Textbox Scroll to Bottom
'1 Textbox
Text1.SelStart = Len(Text1.Text)
Time and Date'vb
Msgbox 'The time is ' & Time
Msgbox 'The date is ' & Date
Uppercase and Lowercase a string
'vb
text1.text = lcase('String')
text1.text = ucase('String')

Belajar Foxpro

noreply@blogger.com (Debuger's) — Sat, 10 Mar 2012 16:31:00 +0000

Memulai Visual Foxpro
Langkah-langkah menjalankan Visual Foxpro
1. Klik Start-Programs
2. Klik Microsoft Visual FoxPro 9.0
3. Akan tampil jendela Visual Foxpro
Layar Visual Foxpro
Gambar 1-1 Tampilan jendela Microsoft Visual Foxpro
Penjelasan :
Pada jendela tersebut terdapat:
Menu Bar yang berisi sejumlah item menu ( File, Edit, Program, dsb), yang dapat dipilih dengan
mengklik atau menekan Alt + huruf bergaris bawah dari menu.
Toolbar yang berisi sejumlah icon perintah.
Status Bar, terletak dibagian bawah dan menampung informasi aktifitas dalam layar.
Command Window . Jendela ini sangat berguna untuk mengetikkan perintah Visual Foxpro
secara interaktif.
Properties – Desktop, jendela ini sangat berguna untuk mengatur form dan pengaturan lain-lain
tergantung kebutuhan system yang akan anda buat.
Task Pane Manager, jendela ini berisikan informasi tentang project yang telah dibuat
sebelumnya
Menentukan drive data atau direktori kerja
Sebelum membuat project, pastikan bahwa anda sudah menyiapkan direktori kerja terlebih dahulu.
Misalkan kita akan membuat direktori/folder bernama latihan pada drive C:\.
Langkah-langkah :
1. Membuat direktori melalui jendela Command:
Ketikkan MD C:\Swelo, akhiri dengan ENTER.
2. Aktiflah pada direktori tersebut.
Ketikkan SET DEFA TO C:\ Swelo, lalu ENTER
Membuat Project
Sebelum membuat project terlebih dahulu anda harus mengetahui apa itu project?
Project Manager merupakan titik sentral kita dalam mengelola data dan objek dalam Visual Foxpro.
Dalam project inilah semua komponen atau objek program dibuat atau dimodifikasi hingga tahap
kompilasi file Exe dilakukan Sebuah project adalah kumpulan dari file, data, dokumen, dan objek Visual
Foxpro lainnya yang disimpan dalam satu file yang berekstensi .PJX
Langkah-langkah :
1. Klik menu File
2. Klik New, maka akan muncul jendela seperti gambar dibawah
3. Klik Project
4. Klik tombol New File, maka akan tampil jendela create untuk menyimpan project yang anda buat
5. Ketikkan nama project, misalnya swelodiary.PJX
6. Klik tombol Save
Selain langkah-langkah diatas anda juga bisa membuat project dengan menggunakan jendela
command
Langkah-langkahnya jauh lebih sederhana, cukup dengan mengetikkan
CREATE PROJECT swelodiary
Akan tampil jendela Project Manager berikut :
Keterangan Project Manager
- Tab All, akan menampilkan semua tab mulai dari Data sampai tab Other
- Tab Data, digunakan untuk menyimpan atau membuat database, tabel dan query
- Tab Documents, untuk menyimpan atau membuat form, report dan label
- Tab Class, untuk menyimpan atau membuat program dalam bentuk class
- Tab Code, untuk menyimpan atau membuat program yang berbentuk file teks (.PRG)
- Tab Other, untuk menyimpan menu atau file pendukung program misalnya file gambar, icon dan
sebagainya.
- Tombol New, untuk membuat komponen baru dalam project, misalnya tabel, form dan sebagainya.
- Tombol Add, untuk menambahkan komponen yang sudah ada ke dalam project.
- Tombol Modify, untuk memperbaiki desain dari komponen dalam project.
- Tombol Run, untuk menjalankan(Run) objek misalnya, Form, file program .Prg.
- Tombol Remove, untuk menghapus salah satu komponen dar dalam project.
- Tombol Build, untuk membuat suatu file aplikasi (.EXE)
Menutup Project Manager
1. Klik menu File
2. Klik Close
Membuka Project Manager
1. Klik menu File
2. Klik Open
3. Tentukan nama project manager dan lokasinya
4. Klik OK
Menghapus File dari Project Manager
1. Klik salah satu tab dari Project Manager, misalkan Form
2. Klik salah satu nama file yang akan dihapus
4. Klik tombol Remove, dan akan tampil layar dialog yang berisi pilihan:
o Remove : file terhapus dari project tetapi tidak terhapus dari harddisk
o Delete : file terhapus dari project dan sekaligus terhapus dari harddisk (permanen)
o Cancel : membatalkan pilihan penghapusan
Menambahkan File ke dalam Project Manager
Jika sebelum file project dibuat, sudah ada file yang dibuat baik tabel, form,laporan atau apa saja
yang berhubungan dengan project manager tetapi belum dimasukkan maka dapat dimasukkan ke dalam
project manager dengan cara:
1. Klik salah satu tab dari Project Manager, misalkan Form
2. Klik tombol Add
3. Akan tampil kelompok file yang termasuk kelompok form
4. Pilih salah satu file yang akan ditambahkan kemudian pilih OK

Membuat Database
File database dalam VFP adalah suatu file yang diberi ekstensi .DBC. Suatu database bisa berisi
beberapa tabel atau query atau View
Langkah-langkah :
1. Dari Project Manager, klik tab Data
2. Klik Database
3. Klik tombol New
4. Ketikkan nama database, misalnya dbswelo
Akan tampil jendela database
5. Tutuplah jendela tersebut
Pada pembuatan program my swelo diary yang akan kita buat tidak perlu menggunakan database cukup
table yang berdiri sendiri
Membuat Tabel
1. Dari Project Manager, klik tab Data
2. Klik pada free tables , klik tombol New
3. Klik tombol New Table
4. Ketikkan nama tabel misalnya : buku.Dbf
5. Klik Save. Akan tampil jendela Table Designer.
Setelah jendela Table Designer tampil, rancanglah struktur table sebagai berikut :
Selanjutnya buatlah struktur table yang kedua :
Komponen Perancangan Form
Membuat Form
Form adalah objek dasar dalam pemrograman Visual. Karena form ini merupakan tempat atau
landasan meletakkan berbagai objek dan kontrol untuk keperluan perancangan interface program.
Cara menampilkan form:
1. Dari Project Manager, klik tab Documents
2. Klik kelompok Forms
3. Klik tombol New, klik tombol New Form
4. Akan tampil jendela Design Form
Jendela Forms Control Toolbar
Form Control Toolbar merupakan jendela yang sangat penting, karena jendela ini menyediakan
berbagai komponen yang bisa kita pasangkan pada form dalam mendesain user interface program.
Cara menampilkan Form Control Toobar:
1. Klik menu View
2. Klik Form Control Toolbar
Keterangan :
Pointer
Bukan merupakan suatu kontrol; gunakan icon ini ketika anda ingin memilih kontrol yang sudah
berada pada form.
Kontrol Label
Menampilkan teks , tetapi pemakai tidak dapat berinteraksi dengannya
Kontrol Text Box
Pada textbox, pemakai dapat mengisi atau menampilkan teks atau nilai dari sutu hasil proses
Kontrol Edit Box
Berguna untuk menuliskan teks memo (teks yang melebihi satu baris)
Kontrol Command Button
Berguna untuk membuat tombol perintah atau tombol tekan
Kontainer Command Group
Berguna untuk membuat kelompok tombol perintah
Kontainer Option Button
Berguna untuk membuat grup pilihan. Pemakai hanya dapat memilih satu diantara opsi tersebut.
Kontrol Check Box
Memberikan perintah pilihan Benar(True)/Salah{False) atau Yes/No. Pemakai dapat memilih
beberapa check box yang ada.
Kontrol Combo Box
Untuk memilih daftar pilhan yang ada atau mengetikkan pilihan
Kontrol List Box
Untuk memilih suatu pilihan dari suatu daftar.
Kontrol Spinner
Untuk memasukkan nilai numerik. Nilai tersebut dapat diketik oleh pemakai atau dengan meng-klik
tombol panah di sebelah kanan untuk menaikkan atau menurunkan nilai numerik.
Kontainer Grid
Digunakan untuk menampilkan data dalam bentuk tabel (baris-kolom), seperti pada browse
Kontrol Image
Berguna untuk memasukkan data gambar atau image
Kontrol Timer
Digunakan untuk mengeksekusi waktu kejadian pada suatu rutin program termasuk selang waktu
(interval)
Kontainer Page Frame
Berguna untuk membuat frame halaman. Di sini setiap halaman mirip dengan sebuah form tersendiri
Kontainer OLE
Berguna untuk menampilkan objek hasil olahan dari program-program yang mendukung OLE
(Object Linking and Embedding) seperti Ms Excel, Ms Graph, Ms PhotoShop, dan sebagainya.
Kontrol OLE
Berbeda dengan kontainer OLE yang memuat objek di luar Visual Foxpro, maka objek yang
tersimpan dalam kontrol OLE merupakan objek yang tersimpan dalam field general dalam tabel DBF
Foxpro.
Kontrol Garis
Berguna untuk membuat objek garis dalam form
Kontrol Shape
Berguna untuk membuat objek geometris misalnya segiempat, lingkaran, ellips, dan sebagainya
Kontainer Container
Digunakan untuk membuat objek kontainer, yang dapat diisi objek lain
Kontainer Separator
Digunakan untuk membuat objek separator
Kontrol Hyperlink
Digunakan untuk membuat objek hyperlink
Jendela Properties
Jendela ini berguna sebagai tempat mengatur nilai-nilai properti dari setiap objek saat
perancangan.
Cara menampilkan jendela Properties:
1. Klik menu View
2. Klik Properties
Akan tampil jendela properties
Aku dah males bertele-tele skarang kita langsung aja yach membuat form my swelo diary
Buka jendela form, cara membuatnya seperti yang telah aku terangkan diatas
Masukkan beberapa komponen yang akan digunakan sebagai gambar berikut :
Komponen-komponen yang digunakan sebagai berikut
No Object Properti Nilai
1 Form1 Autocenter
Windowtype
showwindow
.T.
1 – Modal
1 – In Top-Level Form
2 Label1 Caption Prihal-
3 Label2 Caption Isi Diary
4 Label3 Caption FontSize
5 Label4 Caption FontName
6 Label5 Caption Alignment
7 Label6 Caption No. Index
8 Label7 Caption Tanggal
Name lbltgl
Text1 Name Text1
Text2 Name
Backstyle
Style
Txtkode
0 – Transparent
1 – 2.x @SAY
Text3 Name txttgl
Edit1 Name edtisi
Combo1 Name Combo1
Combo2 Name Combo2
Combo3 Name Combo3
Command1 Name Command1
Command2 Name Command2
Command3 Name Command3
Vfpskin21 rskin
skinname
.T.
SerenXP
Langkah- langkah membuat procedure buatan sebagai berikut
1. Pilih menu bar Form
2. Klik new method
3. Maka akan tampil jendela berikut
4. Pada kotak isian name di isi dengan nama batal lalu klik add
Menuliskan script program :
Object : Form1 Procedure : Load
SET TALK OFF
SET CENTURY ON
SET DATE ITALIAN
SET DELETED ON
SET BELL on
?CHR(7)
CLOSE TABLES ALL
SET EXCLUSIVE OFF
SET NOTIFY off
SET CARRY off
SET MULTILOCKS ON
IF ! USED("Buku")
USE buku SHARED IN 0
ELSE
SELECT buku
ENDIF
SELECT buku
SET ORDER TO KODE && KODE
Object : Form1 Procedure : Activate
thisform.txtTgl.Value= DATE()
thisform.edtIsi.Enabled= .F.
thisform.command1.Enabled= .F.
thisform.command2.Enabled= .F.
Object : Form1 Procedure : Init
lcLastSetPath = SET('PATH')
lcLastSetDir = SET('DIRECTORY')
lcLastSetTalk = SET('TALK')
SET TALK OFF
lcSys16 = SYS(16)
lcProgram = SUBSTR(lcSys16, AT(":", lcSys16) - 1)
CD LEFT(lcProgram, RAT("\", lcProgram))
CD LEFT(lcProgram, RAT("\", lcProgram))
*----------------------------------------*
PUBLIC _up, _down
Object : Form1 Procedure : batal
thisform.text1.Value=""
thisform.edtIsi.Value=""
thisform.combo1.DisplayValue=""
thisform.combo2.DisplayValue=""
thisform.combo3.DisplayValue=""
Object : Form1 Procedure : keluar
LOCAL Tinggi,Mulai
UNLOCK ALL
Tinggi=(_SCREEN.ACTIVEFORM.HEIGHT/50)
FOR Mulai=1 TO Tinggi
_SCREEN.ACTIVEFORM.HEIGHT=_SCREEN.ACTIVEFORM.HEIGHT+50
_SCREEN.ACTIVEFORM.TOP=(_SCREEN.ACTIVEFORM.HEIGHT+;
_SCREEN.ACTIVEFORM.HEIGHT)/2
_SCREEN.ACTIVEFORM.WIDTH=_SCREEN.ACTIVEFORM.WIDTH-50
_SCREEN.ACTIVEFORM.LEFT=(_SCREEN.ACTIVEFORM.WIDTH+;
_SCREEN.ACTIVEFORM.WIDTH)/2
DOEVENTS
NEXT Mulai
_SCREEN.ACTIVEFORM.RELEASE
RETURN
Object : Form1 Procedure : menu
LOCAL _selec
_selec=0
DEFINE POPUP menúcontex SHORTCUT RELATIVE FROM
MROW(),MCOL()
DEFINE BAR 2 OF menúcontex PROMPT ".::. Red"
DEFINE BAR 5 OF menúcontex PROMPT ".::. Deztiny"
DEFINE BAR 7 OF menúcontex PROMPT ".::. FakeXP"
DEFINE BAR 9 OF menúcontex PROMPT ".::. Float"
DEFINE BAR 12 OF menúcontex PROMPT ".::. Commander"
DEFINE BAR 15 OF menúcontex PROMPT ".::. SerenXP"
DEFINE BAR 16 OF menúcontex PROMPT ".::. Alien"
DEFINE BAR 19 OF menúcontex PROMPT ".::. Pistons"
DEFINE BAR 20 OF menúcontex PROMPT ".::. Browzer"
ON SELECTION BAR 2 OF menúcontex _selec=2
ON SELECTION BAR 5 OF menúcontex _selec=5
ON SELECTION BAR 7 OF menúcontex _selec=7
ON SELECTION BAR 9 OF menúcontex _selec=9
ON SELECTION BAR 12 OF menúcontex _selec=12
ON SELECTION BAR 15 OF menúcontex _selec=15
ON SELECTION BAR 16 OF menúcontex _selec=16
ON SELECTION BAR 19 OF menúcontex _selec=19
ON SELECTION BAR 20 OF menúcontex _selec=20
ACTIVATE POPUP menúcontex
DO case
CASE _selec=2
THISFORM.Caption="KwK Initial Studio [ Input Diary
]"
thisform.vfpskin21.skinname="red"
thisform.vfpskin21.changeskin
CASE _selec=5
THISFORM.Caption="KwK Initial Studio [ Input Diary
]"
thisform.vfpskin21.skinname="deZ"
thisform.vfpskin21.changeskin
CASE _selec=7
THISFORM.Caption="KwK Initial Studio [ Input Diary
]"
thisform.vfpskin21.skinname="fakexp"
thisform.vfpskin21.changeskin
CASE _selec=9
THISFORM.Caption="KwK Initial Studio [ Input Diary
]"
thisform.vfpskin21.skinname="float"
thisform.vfpskin21.changeskin
CASE _selec=12
THISFORM.Caption="KwK Initial Studio [ Input Diary
]"
thisform.vfpskin21.skinname="Commander"
thisform.vfpskin21.changeskin
CASE _selec=15
THISFORM.Caption="KwK Initial Studio [ Input Diary
]"
thisform.vfpskin21.skinname="SerenXP"
thisform.vfpskin21.changeskin
CASE _selec=16
THISFORM.Caption="KwK Initial Studio [ Input Diary
]"
thisform.vfpskin21.skinname="Alien"
thisform.vfpskin21.changeskin
CASE _selec=19
THISFORM.Caption="KwK Initial Studio [ Input Diary
]"
thisform.vfpskin21.skinname="Pistons"
thisform.vfpskin21.changeskin
CASE _selec=20
THISFORM.Caption="KwK Initial Studio [ Input Diary
]"
thisform.vfpskin21.skinname="br"
thisform.vfpskin21.changeskin
ENDCASE
Object : Form1 Procedure : nomor
SELECT buku
c=thisform.txtKode.Value
A='000'
B=LTRIM(STR(RECCOUNT()+1))
NO=left(A,200-LEN(B))+B
TAHUN=LTRIM(STR(YEAR(DATE())))
THISFORM.txtKode.Value=NO+'~ KwK ~ '+TAHUN
Object : Form1 Procedure : simpan
a=thisform.txtKode.Value
b=thisform.txtTgl.Value
c=thisform.edtIsi.Value
IF ! SEEK(ALLTRIM(A))
IF RLOCK()
=MESSAGEBOX("TABEL SEDANG DIPAKAI USER LAIN",0+16,"PROSES
PENYIMPANAN GAGAL")
RETURN
ELSE
INSERT INTO buku(kode,tgl,isi);
value(A,b,c)
ENDIF
UNLOCK
RETURN
ENDIF
THISFORM.Batal
THISFORM.text1.SetFocus
THISFORM.Nomor
Object : txtkode Procedure : init
thisform.nomor
Object : Text1 Procedure : lostfocus
cno=Thisform.txtKode.Value
cno2=ALLTRIM(Thisform.text1.Value)
a=cno2+' ~ '+cno
Thisform.txtKode.Value=a
thisform.edtIsi.Enabled= .t.
thisform.command1.Enabled= .T.
thisform.command2.Enabled= .T.
Object : Command1 Procedure : click
thisform.simpan
THISFORM.BAtal
THISFORM.Nomor
THISFORM.TEXt1.SetFocus
thisform.command1.Enabled= .F.
thisform.command2.Enabled= .F.
Object : Command2 Procedure : click
thisform.batal
thisform.nomor
thisform.Activate
thisform.text1.SetFocus
Object : Command3 Procedure : click
thisform.keluar
Object : Combo1 Procedure : interactivechange
IF thisform.combo1.DisplayValue="Monotype Corsiva"
thisform.edtIsi.FontName= "Monotype Corsiva"
ELSE
IF thisform.combo1.DisplayValue="Times New Roman"
thisform.edtIsi.FontName= "Times New Roman"
ELSE
thisform.edtIsi.FontName= "Arial Narrow"
ENDIF
endif
Object : Combo2 Procedure : interactivechange
IF thisform.combo2.DisplayValue="8"
thisform.edtIsi.FontSize= 8
ELSE
IF thisform.combo2.DisplayValue="9"
thisform.edtIsi.FontSize= 9
ELSE
IF thisform.combo2.DisplayValue="10"
thisform.edtIsi.FontSize= 10
else
IF thisform.combo2.DisplayValue="11"
thisform.edtIsi.FontSize= 11
ELSE
IF thisform.combo2.DisplayValue="12"
thisform.edtIsi.FontSize= 12
ELSE
IF thisform.combo2.DisplayValue="14"
thisform.edtIsi.FontSize= 14
ELSE
IF thisform.combo2.DisplayValue="16"
thisform.edtIsi.FontSize= 16
ELSE
IF thisform.combo2.DisplayValue="18"
thisform.edtIsi.FontSize= 18
ELSE
IF thisform.combo2.DisplayValue="20"
thisform.edtIsi.FontSize= 20
else
IF thisform.combo2.DisplayValue="22"
thisform.edtIsi.FontSize= 22
ELSE
IF thisform.combo2.DisplayValue="24"
thisform.edtIsi.FontSize= 24
ELSE
IF thisform.combo2.DisplayValue="26"
thisform.edtIsi.FontSize= 26
ELSE
thisform.edtIsi.FontSize= 28
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
Object : Combo3 Procedure : interactivechange
IF thisform.combo3.DisplayValue="Left"
thisform.edtIsi.Alignment= 0
else
IF thisform.combo3.DisplayValue="Right"
thisform.edtIsi.Alignment= 1
ELSE
IF thisform.combo3.DisplayValue="Center"
thisform.edtIsi.Alignment= 2
ENDIF
ENDIF
ENDIF
Sekarang dah jam 2.30 dini hari n aku hanya ditemani segelas kopi hitam itupun
dah hampir habis, mau beli lagi diburjo hujan ga reda-reda, malam ini dingin
banget… Satu form dah selese dan kini dah tiba waktunya aku untuk sleep…..
My name Cyberfox
“tutor ini kubuat untuk kekasih yang bukan lagi pacarku”
“sesungguhnya aku masih sangat sayang ma dia”
“maafkan aku……..”
“to my swelo [keti]”
Thank’s to
- fox-id crew
• Om Taz
• Mztolo
• Batman Kasarung
• Firgiawansyah
• Sinyonamakoe
• CyberFox
• Om Tejos
http://www.fox-id.org
- Amik Profesional Makassar
- My Parent
- My Brother n Sister
- My Swelo (keti)
- My Best Friend
http://www.kwkinitial.wordpress.com