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