main.prg

来自「一个好用的图书管理系统一个好用的图书管理系统」· PRG 代码 · 共 24 行

set talk off    &&关闭对话模式
set safe off
set stat off   
set dele on     &&不处理已删除的记录
set cent on
set date to ansi
close all
release window 常用  
modify window screen title "图书信息管理系统"         
zoom window screen max
_screen.backcolor=rgb(80,180,150) 
_screen.controlbox=.t.   
deactivate window "项目管理器"   
public cyonghu,cmima,jiage
cyonghu=""
cmima=""
mypath=left(sys(16),rat("\",sys(16)))   
set defa to (mypath)  
set path to data;form 
open database library  
do form logo  
read events
quit