tszl.prg

很好的一个图书租赁管理系统 可以管理你的图书馆

set talk off    &&关闭对话模式
set safe off    &&文件覆盖时不发出警告
set stat off    &&关闭字符型状态行
set dele on     &&不处理已删除的记录
set cent on     &&日期以完整的格式显示
set date to ansi  &&日期格式ansi
close all    &&关闭所有文件，并回到第一工作区.

RELEASE WINDOW 常用  &&不启动常用工具条
ZOOM WINDOW SCREEN Max   &&主窗口最大化
**以下是计算今天是星期几,并转换成汉字.
dd=allt(cdow(date()))
do case
  case dd="Monday"
  pic='pic1.jpg'
  ddd="星期一"
    case dd="Tuesday"
  pic='pic2.jpg'  
  ddd="星期二"
    case dd="Wednesday"
  ddd="星期三"
  pic='pic3.jpg'
    case dd="Thursday"
  ddd="星期四"
  pic='pic4.jpg'
    case dd="Friday"
  ddd="星期五"
  pic='pic5.jpg'
    case dd="Saturday"
  ddd="星期六"
  pic='pic6.jpg'
    case dd="Sunday"
  ddd="星期日"
  pic='pic7.jpg'
endcase   
***主窗口标题  
MODIFY WINDOW SCREEN TITLE "  图书租赁管理系统;
                              今天是："+dtoc(date())+"  "+ddd
*_SCREEN.controlbox=.f.  &&去掉主窗口控制按钮
deactivate window "项目管理器"  &&关闭"项目管理器"窗口
_screen.visible=.f.  &&隐藏主窗口

mypath=left(sys(16),rat("\",sys(16)))  &&确定当前路径
set defa to (mypath)  &&默认路径
set path to forms,datas,pic,images &&可查找路径
_SCREEN.picture=pic   &&主窗口背景图片
_SCREEN.icon="..\book05.ico"
public kj,czz &&定义全局变量
kj=''
czz=''

****
do form logo
*****
on shutdown quit  &&可以直接通过主窗口的关闭按钮关闭。
read events   &&启动所以已定义的控制并读取事件,如果没有此命令，程序将一闪而过.
quit  &&退出vfp,因有read events,暂时不执行quit命令,只有在执行clear event命令后才执行.