pertemuan 10

GIRD
--> Mengatur data untuk tabel.

Properties Gird1:
-AllowAddnew==>False
-DeleteMark==>False
-ReadOnly==>True
-ColumnCount==>7
-RecordSourceType ==> PROMPT
-Recordsource==>Namatabelygdibuat

Beri nama Form : FrmLihatPegawai

latihan 9

rumus :
use mahasiswa && Tabel : Mahasiswa NPM
APPEND BLANK && Menimpan Rscord Kosong
WITH thisform
REPLACE nip WITH .text1.value && Mengisi nip
REPLACE nama WITH .text2.value &&Mengisi Nama
REPLACE tanggal lahir WITH .text3.value &&Mengisi tanggal lahir
replace alamat with.text4.value &&Mengisi alamat
replace golongan with.combo1.value &&Mengisi gololongan


.text1.value=""
.text2.value=""
.Text3.Value={}
ENDWITH
MESSAGEBOX("Data Telah direkam",64,"info")
IF thisform.optiongrup1.option1.value=1 then
replace jenis WITH "Laki-Laki"
ELSE
Replace jenis WITH "perempuan"
ENDIF

pertemuan 9

untuk membuat table pada command windows
CREATE mahasiswa2 (NPM c(10),Nama c(35),Lahir D)

rumus :
CREATE DATABASE CONTOH
CREATE PROJECT
MODIFY DATABASE

CREATE mahasiswa2 (NPM c(10),Nama c(35),Lahir D)
CREATE TABLE mahasiswa2 (NPM c(10),Nama c(35),Lahir D)
USE mahasiswa2
MODIFY structure
USE mahasiswa

LIST STRUCTURE
LIST STRUCTURE mahasiswa2
USE mahasiswa2
LIST STRUCTURE
USE mahasiswa2
APPEND
USE mahasiswa AGAIN IN 0
SELECT mahasiswa
BROWSE last
APPEND
USE mahasiswa AGAIN IN 0
SELECT mahasiswa
BROWSE last

rumus
use mahasiswa && Tabel : Mahasiswa NPM
APPEND BLANK && Menimpan Rscord Kosong
WITH thisform
REPLACE npm WITH .text1.value && Mengisi NPM
REPLACE nama WITH .text2.value &&Mengisi Nama
REPLACE lahir WITH .text3.value &&
.text1.value=""
.text2.value=""
.Text3.Value={}
ENDWITH
MESSAGEBOX("Data Telah direkam",64,"info")

Pertemuan 6

jawaban No.Pendaftaran:
*Plihan pada List2,List3=Pilihan List1
WITH Thisform
.List2.ListIndex=.List1.ListIndex
.List3.ListIndex=.List1.ListIndex
EndWith

Jawaban Nama Peserta:
*Plihan pada List2,List3=Pilihan List1
WITH Thisform
.List2.ListIndex=.List2.ListIndex
.List3.ListIndex=.List2.ListIndex
EndWith

Jawaban Hapus Data:
*menghapus data yg dipilih pada list
WITH Thisform
.List1.removeitem(.List1.Listindex)
.List2.removeitem(.List2.Listindex)
.List3.removeitem(.List3.Listindex)

*Refersh Jumlah Data
.Text3.Value=.list1.listcount
Endwith

Jawaban Pasan :
*Pesan
WITH Thisform
*Mengisi List5 dengan nilai pilihan list4
.List5.Additem(.List4.Value)
*Menghapus pilihan List4
.List4.removeitem(.List4.ListIndex)
Endwith

Jawaban Bayar :
*Pesan
WITH Thisform
*Mengisi List5 dengan nilai pilihan list4
.List4.Additem(.List5.Value)
*Menghapus pilihan List4
.List5.removeitem(.List5.ListIndex)
Endwith

WITH Thisform
*Menghilangkan Pilihan pada List5
.List5.Listindex=0
ENDWITH