main.bak

本系统是典型的小型数据库管理系统,涉及数据库开发的一些细节!相信你会从中得到收获

clear screen
clear events
set talk off
public lcdir
lcdir=sys(2003)
do lcdir+'\progs\setting'
_screen.picture=lcdir+'\graphics\6_m.jpg'
on shutdown quit
_screen.autocenter=.t.
_screen.windowstate=2
_screen.controlbox=.t.
do lcdir+'\menus\menu_main.mpr'
open database lcdir+'\data\salary_adm.dbc'
do form lcdir+'\forms\enter.scx'
read events
do lcdir+'\progs\reset'