creat table sinhvien(masv n(2),lop c(3),hodem c(20),ten c(7),ngaysinh d(8),gioi c(1),m1 n(3,1),m2 n(3,1),tong n(4,1),xeploai c(4))

inser into sinhvien value(1,'ct1','tranquan','lam',{^1975/11/08},'t',6.5,7.0,0,'')

inser into sinhvien value(2,'ct1','Le Thi','Hien',{^1976/05/11},'t',5,6,0,'')

inser into sinhvien value(3,'t1','Chu van','Tiep',{^1977/09/14},'g',0.7,8.0,0,'')

inser into sinhvien value(4,'t2','Dang Van','Khanh',{^1979/05/12},'t',8,6.5,0,'')

inser into sinhvien value(20,'ct2','Ho Hoai','Anh',{^1988/11/21},'t',8,9,0,'')

repl all tong with m1+m2

repl all xeploai with 'gioi'

repl all xeploai with 'kha' for tong>=12 and tong<16

repl all xeploai with 'tb' for tong>=10 and tong<12

repl all xeploai with 'kem' for tong<10

set talk off

set textmerge on

set echo off

set proce to ontap & them & xoa $ tk & tim

clea

use sinhvien

defi menu m1 bar at line 1

defi pad n1 of m1 prompt '\<du lieu'

defi pad n2 of m1 prompt '\<capnhat'

defi pad n3 of m1 prompt '\<tro ve'

on pad n1 of m1 acti popup d1

on pad n2 of m1 acti popup d2

on pad n3 of m1 acti popup d3

defi popup d1 margin relati

defi bar 1 of d1 prompt '\<Hien du lieu'

defi bar 2 of d1 prompt '\<Thong ke'

defi bar 3 of d1 prompt '\<Sua cau truc'

defi bar 4 of d1 prompt 'T\<im nguoi'

defi bar 5 of d1 prompt 'tr\<o ve'

on sele bar 1 of d1 brow

on sele bar 2 of d1 do tk

on sele bar 3 of d1 modi stru

on sele bar 4 of d1 do tim

on sele bar 5 of d1 clea

defi popup d2 margin relati

defi bar 1 of d2 prompt '\<them ban ghi'

defi bar 2 of d2 prompt '\<xoa ban ghi'

defi bar 3 of d2 prompt 't\<ro ve'

on sele bar 1 of d2 do them

on sele bar 2 of d2 do xoa

on sele bar 3 of d2 clea

defi popup d3 margin relati

defi bar 1 of d3 prompt '\<ve command'

defi bar 2 of d3 prompt 'v\<e desktop'

on sele bar 1 of d3 return

on sele bar 2 of d3 quit

acti menu m1

proce them

clea

use sinhvien

clea

vitri=0

TL=' '

@5,5 say 'Them vao vi tri nao?' get vitri

read

@7,5 say 'them truoc hay them sau ban ghi? T/S' get tl

read

go vitri

if uppe(TL)='T'

inse befo

else

inse

endif

brow

clea

close all

proce xoa

use sinhvien

clea

t1='c'

do while uppe(t1)='C'

bmasv=0

@5,5 say'cho biet ma sinh vien can tim' get bmasv

read

loca for masv=bmasv

if found ()

clea

dele

brow

else

@5,5 say'khong tim thay nguoi co ma nay'

endif

wait 'bam phim bat ki de xem tiep' wind

clea

@7,5 say 'ban co thuc su muon xoa khong? C/K' get traloi defa ' '

read

if uppe(traloi)='C'

pack

else

reca all

endif

@9,5 say 'tim tiep hay thoi? C/K' get t1

read

if uppe(t1)='K'

clea

exit

endif

clea

enddo

proce tk

set textmerge on

clea

use sinhvien

count to sl

count all to g for uppe(xeploai)='G'

count all to K for uppe(xeploai)='K'

count all to TB for uppe(xeploai)='TB'

count all to Kem for uppe(xeploai)='KEM'

text

Chuong Trinh Thong Ke

Tong so sv hien co:<<sl>>

so sv gioi: <<g>> ty le: <<roun(g*100/sl,1)>>%

so sv kha : <<k>> ty le: <<roun(k*100/sl,1)>>%

so sv trung binh: <<tb>> ty le: <<roun(tb*100/sl,1)>>%

so sv kem: <<kem>> ty le: <<roun(kem*100/sl,1)>>%

Ngay <<day(date())>> thang <<month(date())>> nam <<year(date())>>

endtext

return

proce tim

use sinhvien

clea

tl='c'

do while uppe(tl)='C'

bmasv=0

@5,5 say'cho biet ma sinh vien can tim' get bmasv

read

loca for masv=bmasv

if found()

clea

text

PHIEU BAO DIEM

Ho va Ten:<<hodem>><<ten>>

Diem m1:<<m1>>

Diem m2:<<m2>>

Tong diem:<<tong>>

Ngay<<day(date())>>Thang<<month(date())>>Nam<<year(date())>>

endtext

else

@5,5 say'khong tim thay nguoi co ma nay'

endif

wait'bam phim bat ki de xem tiep'wind

clea

@ 7,5 say'tim tiep hay thoi?C/K' get tl

read

if uppe(tl)='K'

clea

exit

endif

clea

enddo