main.prg

把每次考试的成绩导入库中

set safe off
set statu off 
set sysm off
LOCAL lcLastSetTalk,lcLastSetPath
lcLastSetTalk=SET("TALK")
SET TALK OFF
lcLastSetPath=SET("PATH")
*CD "\bkksbm\"
SET PATH TO ;DATA;INCLUDE;FORMS;GRAPHICS;HELP;LIBS;MENUS;PROGS;REPORTS
set excl on
     clear
     clear windows
     clear all
close all
zoom window screen max
public dime dqmb(24)
*open database data\student
pu_caption="山西省自学考试成绩查询系统"
pu_dq=""
_screen.caption=pu_caption
_screen.icon=""
_screen.backcolor=rgb(238,221,255)
_screen.closable=.t.
_screen.maxbutton=.f.
_screen.minbutton=.f.
_screen.controlbox=.t.
cdbz=1
dqmb(1)="太原"
dqmb(2)="大同"
dqmb(3)="阳泉"
dqmb(4)="长治"
dqmb(5)="晋城"
dqmb(6)="朔州"
dqmb(7)="晋中"
dqmb(8)="运城"
dqmb(9)="忻州"
dqmb(10)="临汾"
dqmb(11)="吕梁"
dqmb(12)="全省"
do menu.mpr    
read events
CLEAR DLLS
RELEASE ALL EXTENDED
set sysmenu to defau