Membuat Database

* -=-=-=-=--=-=-=-=-=-=-=-=-=-=
* Membuat DataBase Registrasi
* -=-=-=-=-=--=-=-=-=-=-=-=-=-=
Save Screen To Independence
If ! File('MHSISWA.DBF')
set color to gr+/b
sisa=diskspace()
pesan="Sedang membuat DataBase..."
persen="[ % ]"
sorot="[ "+repl(chr(176),60)+" ]"
sisa=" Sisa Memori Komputer : " + TRANSFORM((MEMORY(0)*1024), "@E 999,999,999. Byte")

box3d(05,05,13,75,1)
shadow(05,05,13,75)

@ 07,40-len(pesan)/2 Say pesan
@ 08,40-len(persen)/2 Say persen
@ 09,40-len(sorot)/2 Say sorot
@ 11,40-len(sisa)/2 Say sisa
x=1
do while x<61
@ 08,37 Say x+40 pict "999"

Set Colo to rb/w
@ 09,10 Say repl(chr(219),x)

set color to gr+/w
x=x+1
waktu=1
do while waktu<1000
waktu=waktu+1
enddo
enddo
tone(100,2)
tone(300,4)

DECLARE FN[17],FT[17],FL[17],FD[17]

FN[1]='Nomor'
FT[1]='C'
FL[1]=6
FD[1]=0

FN[2]='Nama_Siswa'
FT[2]='C'
FL[2]=20
FD[2]=0

FN[3]='Alamat'
FT[3]='C'
FL[3]=40
FD[3]=0

FN[4]='Jenis'
FT[4]='C'
FL[4]=1
FD[4]=0

FN[5]='Info'
FT[5]='C'
FL[5]=12
FD[5]=0

FN[6]='Temp_Lahir'
FT[6]='C'
FL[6]=15
FD[6]=0

FN[7]='Tgl_Lahir'
FT[7]='D'
FL[7]=8
FD[7]=0

FN[8]='Agama'
FT[8]='C'
FL[8]=1
FD[8]=0

FN[9]='Info1'
FT[9]='C'
FL[9]=10
FD[9]=0

FN[10]='Fakultas'
FT[10]='C'
FL[10]=1
FD[10]=0

FN[11]='Info2'
FT[11]='C'
FL[11]=20
FD[11]=0

FN[12]='Jurusan'
FT[12]='C'
FL[12]=1
FD[12]=0

FN[13]='Info3'
FT[13]='C'
FL[13]=20
FD[13]=0

FN[14]='Nama_Ayah'
FT[14]='C'
FL[14]=20
FD[14]=0

FN[15]='Nama_Ibu'
FT[15]='C'
FL[15]=20
FD[15]=0

FN[16]='Al_Ortu'
FT[16]='C'
FL[16]=42
FD[16]=0

CREATE TEMP
FOR R = 1 TO 16
APPEND BLANK
REPL FIELD_NAME WITH FN[R],FIELD_TYPE WITH FT[R]
REPL FIELD_LEN WITH FL[R]
NEXT
CLOSE DATABASE
CREATE MHSISWA FROM TEMP
ERASE TEMP.DBF
CLOSE DATA
EndIf
Restore Screen From Independence
USE MHSISWA
IF ! FILE('MHSISWA.NTX')
INDEX ON NOMOR TO MHSISWA
ENDIF
SET INDEX TO MHSISWA
RETURN

* -=-=-=-=-=-=-=-=-=-=-=-=-=
* CopyRight(c:)Armansyah 97
* -=-=-=-=-=-=-=-=-=-=-=-=-=