Đánh số báo danh:

CLOSE TABLES

USE danhsach INDEX iten

so=1

DO WHILE !EOF()

Replace sbd WITH so

SKIP

so=so+1

ENDDO

thisform.text1.value="Đã đánh số báo danh xong"

thisform.Refresh

USE

+ Thoát : thisform.release

Nhập thí sinh:

CLOSE TABLES

USE danhsach INDEX iten

APPEND BLANK

SET DATE FRENCH

Replace holot WITH PROPER(thisform.text1.text)

Replace ngaysinh WITH CTOD(thisform.text3.text)

Replace phai WITH IIF(thisform.check1.Value=1,.T.,.F.)

Replace matruong WITH UPPER(thisform.text4.text)

thisform.text3.value=""

thisform.check1.Value=VAL("")

thisform.text5.value="xong"

thisform.Refresh

USE

Xem tổng số thí sinh dự thi:

SET confirm OFF

CLOSE TABLES

USE danhsach INDEX iten

i=0

DO WHILE ! EOF()

SKIP

i=i+1

ENDDO

thisform.text1.value=i

USE

Đánh số phòng thi:

CLOSE TABLES

USE danhsach INDEX iten

sts=VAL(thisform.text2.text)

p=1

i=1

DO WHILE ! EOF()

Replace phongthi WITH p

SKIP

i=i+1

IF i > sts*p

p=p+1

ENDIF

ENDDO

thisform.text3.value="Da sap xong "

Use

Nhập điểm:

CLOSE TABLES

USE danhsach INDEX iten

phong=VAL(thisform.text1.Text)

BROWSE FOR phongthi=phong

+ Tính tổng điểm:

Replace ALL tongdiem with van+toan

+ Xem:

USE danhsach INDEX iten

phong=VAL(thisform.text1.Text)

BROWSE FOR phongthi=phong

kết quả:

CLOSE TABLES

USE danhsach INDEX iten

diemchuan = VAL(thisform.text1.Value)

Replace ALL ketqua WITH IIF(van+toan>=diemchuan, 'dau','rot')

thisform.text2.Value='Đã nhập xong'

USE

+ xem:

USE danhsach INDEX iten

BROWSE FOR ketqua ="dau"