Membuat Form
Membuat Form frmuser
1. Membuat form frmuser
Form frmuser merupakan suatu objek yang digunakan untuk
memasukkan/menginput record, dimana record tersebut akan disimpan kedalam
tabel userpass.dbf. Langkah-langkah pembuatannya sebagai berikut :
1. klik tab Documents pada Project Manager - prjarsip
2. klik Forms dan klik New
3. klik New Form
4. buat rancangan form sebagai berikut :


5. mengatur objek-objek yang ada pada form frmuser

No	Object	Properti	Nilai
1	Form1	Autocenter BorderStyle Caption MaxButton MinButton Showwindow Windowtype	.T. 2 – Fixed Dialog BAPD .F.- False .F.- False 1 – In Top-Level Form 1 – Modal
2	Label1	Caption	Pembuatan Password
3	Label2	Caption	Id User
4	Label3	Caption	Nama
5	Label4	Caption	Sandi
6	Label5	Caption	Hak
7	Label6	Caption	Jabatan
8	Text1	Name	Txtid_user
9	Text2	Name	Txtnama
	Text3	Name	txtsandi
	Combo1	Name RowSource	Combo1 Userpass.id_user
	Combo2	Name RowSource Style	Combo2 1,2,3,4,5 2 – Dropdown List
	Combo3	Name RowSource Style	Combo3 Bidang Jasa Teknis dan Kelembagaan Kearsipan,Bagian keuangan,Bagian Kepegawaian,Bagian Program,Bid. Pengelolaan Arsip In-Aktif,Bid. Pengelolaan Arsip Statis,Pelayanan Umum,Kepala Badan Arsip 2 – Dropdown List
	Command1	Caption DisabledPicture DownPicture Name Picture	Simpan c:\arsip\icon\simpan2.png c:\arsip\icon\simpan2.png Command1 c:\arsip\icon\simpan1.png
	Command2	Caption DisabledPicture DownPicture Name Picture	Batal c:\arsip\icon\batal2.png c:\arsip\icon\batal2.png Command2 c:\arsip\icon\batal1.png
	Command3	Caption DisabledPicture DownPicture Name Picture	hapus c:\arsip\icon\hapus2.png c:\arsip\icon\hapus2.png Command3 c:\arsip\icon\hapus1.png
	Command4	Caption DisabledPicture DownPicture Name Picture	Keluar c:\arsip\icon\keluar2.png c:\arsip\icon\keluar2.png Command4 c:\arsip\icon\keluar1.png
	Vfpskin21	rskin skinname	.T. SerenXP
	Shape1	BackColor BorderStyle Name	0,128,255 0 - Transparent Shape1

Khusus untuk kontrol VFP-Skin 2.0 yang berada tepat di atas tulisan
Pembuatan Password merupakan visual class library. Setelah anda memilih
objek tersebut dari form control toolbar, kemudian letakkan pada posisi mana
saja yang anda kehendaki.


6. menulis script program

object: form1 procedure: load

SET PROCEDURE TO PROSEDUR && memanggil prosedur
SET TALK OFF
SET CENTURY ON
SET DELETED ON
SET DATE ITALIAN

use userpass && memanggil atau menggunakan tabel user pass
SET ORDER TO id_user

object: form1 procedure: unload

SET DELETED OFF
USE
CLOSE TABLES ALL

object: form1 procedure: batal

THISFORM.txtId_user.VALUE=""
THISFORM.TXTNAMA.VALUE=""
THISFORM.TXTSANDI.VALUE=""
thisform.COMbo1.DisplayValue=""
thisform.combo3.DisplayValue=""

object: form1 procedure: simpan

A1 = THISFORM.txtId_user.VALUE
A2 = THISFORM.TXTNAMA.VALUE
A3 = TRIM(ENCRYPT(15,THISFORM.TXTSANDI.VALUE,2))
A4 = thisform.COMbo1.DisplayValue
A5 = thisform.combo3.DisplayValue

IF ! SEEK(A1)
INSERT INTO USERPASS (ID_USER,NAMA,SANDI,HAK,Bagian);
VALUES (A1,A2,A3,A4,A5)
ELSE
UPDATE USERPASS;
SET ID_USER=A1,NAMA=A2,SANDI=A3,HAK=A4,Bagian=A5;
WHERE ID_USER=A1
ENDIF
THISFORM.Batal
THISFORM.txtId_user.SETFOCUS

object: form1 procedure: tampil

THISFORM.txtid_user.Value=ID_USER
THISFORM.TXTNAMA.Value=NAMA
THISFORM.TXTSANDI.Value=SANDI
THISFORM.combo1.DisplayValue=HAK
THISFORM.combo3.DisplayValue=bagian


object: txtid_user procedure: valid

IF ! EMPTY(THISFORM.txtId_user.Value)
SEEK(ALLTRIM(THISFORM.txtId_user.Value ))
IF FOUND()
SET PROCEDURE TO PROSEDUR
MESSAGEBOX("data sudah ada")
THISFORM.tampil
ENDIF
ENDIF


object: combo1 procedure: valid

IF ! EMPTY(THISFORM.COmbo2.DisplayValue)
SEEK(ALLTRIM(THISFORM.COmbo2.DisplayValue ))
IF FOUND()
SET PROCEDURE TO PROSEDUR
THISFORM.tampil
ENDIF
ENDIF

object: command11 procedure: click

thisform.simpan

object: command12 procedure: click

thisform.batal

object: command13 procedure: click

WITH THISFORM
PESAN=MESSAGEBOX("YAKIN DIHAPUS",4+32,"KONFIRMASI")
IF PESAN=6
DELETE FOR id_user = THISFORM.txTid_user.VALUE
.batal()
.txTid_user.SETFOCUS
ENDIF
ENDWITH
THISFORM.Refresh

object: command14 procedure: click

UNLOCK all
LOCAL Tinggi, Mulai
Tinggi=(THISFORM.HEIGHT/50)
FOR Mulai=1 TO Tinggi
THISFORM.HEIGHT=THISFORM.HEIGHT - 50
THISFORM.TOP=(_SCREEN.HEIGHT-THISFORM.HEIGHT)/2
THISFORM.WIDTH=THISFORM.WIDTH - 50
THISFORM.LEFT=(_SCREEN.WIDTH-THISFORM.WIDTH)/2
DOEVENTS
NEXT Mulai
THISFORM.Release

7. Menjalankan Program

Selengkapnya...

aku mohon maaf jika yang kutulis ini tak berguna bagi kalian, tapi disini aku hanya ingin berbagi sama mereka yang belum paham/tahu karna aku juga hanyalah seorang pemula didunia visual foxpro... sebelumnya aku ucapkan banyak terima kasih kepada komunitas visual foxpro indonesia khususnya om taz, om tejo, mztolo, Sinyonamakoe, mas Firgiawansyah dan sahabatku mas ewin ( Batman Kasarung). langsung saja tak perlu basa-basi
membuat form
1. klik tab Documents pada project manager - prjlatihan
2. klik Forms dan klik New
3. klik New Form
4. buat rancangan form sebagai berikut :
komponen-komponen yang dingunakan sebagai berikut :

	Object	Properti	Nilai
1	Form1	AutoCenter Name	.T. frmhitungcharacter
2	Label1	Caption	Hit Counter
3	Label2	Caption	Max Character
4	Label3	Caption	1300
5	Container1	BackStyle	0 - Transparent
6	Container2	BackStyle	0 - Transparent
7	Edit1	Name MaxLength	edttext 1300
8	Text1	BackStyle BorderStyle Name	0 - None 0 - Transparent txtCharacter
9	Command1	Caption Name	close cmdclose

buat metode buatan dengan nama count
langkah-langkah membuat metode buatan:
1. pada jendela microsoft visual foxpro klik form
2. Klik New Method, akan tampil jendela New Method
3. pada bagian Name di isi dengan nama count selanjutnya tekan add

menulis script program

Object : Form1 Procedure : count

LPARAMETERS cString
#DEFINE MSG_LOC "Menghasilkan statistik untuk file. Tekan Enter untuk berhenti."
WAIT WINDOW MSG_LOC NOWAIT NOCLEAR
LOCAL lnChars
#DEFINE ALPHA_LOC "ABCDEFGHIJKLMNOPQRSTUVWXYZ."
#DEFINE CR CHR(13)
#DEFINE TAB CHR(9)

lnChars = LEN(cString)
SYS(2002) && mengubah kursor menjadi off
FOR i = 1 TO lnChars
IF INKEY() = 13
WAIT CLEAR
THIS.txtCharacters.Value = ""
SYS(2002,1)
RETURN
ENDIF

ENDFOR

THISFORM.txtCharacters.Value = lnChars

WAIT CLEAR
SYS(2002,1)

Object : Form1 Procedure : InteractiveChange

IF !EMPTY(THISFORM.edttext.Value)
THISFORM.Count(THISFORM.edttext.Value)
ELSE
THIS.Parent.txtCharacters.Value = 0
ENDIF

Hasil Run

Selengkapnya...

download

Selengkapnya...

langkah awal memulai pembuatan program kearsipan
1. jalankan aplikasi microsoft visual foxpro 9.0
2. setelah jendela aplikasi microsoft visual foxpro 9.0 terbuka mulailah membuat lokasi kerja(tempat penyimpanan aplikasi)
caranya ketik md c:\arsip pada jendela command





"perintah ini digunakan untuk membuat folder kerja yg diletakkan di drive c dengan nama arsip"
selanjutnya untuk aktif pada folder tersebut ketik perintah set default to c:\arsip pada command
membuat project
selanjutnya buat project kerja dengan menuliskan perintah create project prjarsip pada command atau dengan meng-klik





maka akan tampil jendela berikut



















selanjutnya pilih project lalu klik new file dan simpan dengan nama prjarsip.
sampai disini pembuatan project telah selesai.

membuat tabel
disini kita akan membuat beberapa tabel yang dibutuhkan oleh aplikasi kearsipan ini
1.tabel userpass.dbf
2.tabel tblmasuk.dbf
3.tabel tblkeluar.dbf
4.tabel tblbantumasuk.dbf
5.tabel tblbantukeluar.dbf
6.tabel tblklasifikasi.dbf
7.tabel tbllokasi.dbf
8.tabel tblhistori.dbf
9.tabel tblhistorikeluar.dbf

struktur tabel userpass.dbf sebagai berikut : (lihat gambar dibawah)

struktur tabel tblmasuk.dbf sebagai berikut : (lihat gambar dibawah)

struktur tabel tblkeluar.dbf sebagai berikut : (lihat gambar dibawah)

struktur tabel tbllokasi.dbf sebagai berikut : (lihat gambar dibawah)

struktur tabel tblklasifikasi.dbf sebagai berikut : (lihat gambar dibawah)

struktur tabel tblbantumasuk.dbf sebagai berikut : (lihat gambar dibawah)

struktur tabel tblbantukeluar.dbf sebagai berikut : (lihat gambar dibawah)
untuk tabel tblhistori.dbf dan tabel tblhistorikeluar.dbf file-filenya sama dengan tabel tblmasuk.dbf dan tblkeluar.dbf

kita akan ketemu lagi di membuat program kearsipan bag.2 "membuat form frmuser"

maaf kalau penyajian materi ini kebanyakan gambar maklum we kagak tau cara menjelaskan
untuk pertanyaan mengenai materi di atas kirim melalui email webmaster@krowak.com

download tabel

Selengkapnya...

sony ericsson (desktop 240x320)
k530,k770,k790,k800, k810,k850,w910,w960,w880,w850,w950
download

Selengkapnya...

luas tanah 12 x 14 meter
luas bangunan
biaya 150 juta

home sweet home

gamabar tampak depan

gambar tampak samping

gambar tampak dari atas

ingin memesan gambar rumah idaman
hubungi :
ym : mr_gokil46@yahoo.com
email : webmaster@krowak.com

Selengkapnya...