VF图书管理系统 课程设计

一个基于VF的图书管理系统 课程设计 **\\-------主程序: main_tsgl.prg clear all 　 _screen.visible=.f.　　主窗口VFP不可见　 set escape off　　　禁止运行的程序和命令在按 Esc 键后被中断。 set talk off 阻止对话结果传送到 Visual FoxPro 主窗口、系统信息窗口 set excl off set safety off 指定在改写已有文件时不显示对话框。 set dele on set century on set date to YMD 决定日期在日期时间表达式中的格式: yy/mm/dd public M_js,M_hs,mypath,tsgl,demo[3] 定义变量、数组为公共变量 M_js= .T.　　　　为变量赋值 M_hs= .T. mypath=left(sys(16),rat("\",sys(16)))　 把当前路径赋给一个变量 set defa to &mypath　　 指定默认的驱动器、目录或文件夹 ***------------------------------ dimension demo[3]　　　　 创建一维内存变量数组 store '.F.' to demo[1]　　　为数组赋值 store '.F.' to demo[2] store '.F.' to demo[3] ***----------传递ID、密码变量----- sele 1 激活指定工作区1 ,以下类似 use book_table 打开一个表,以下类似 sele 2 use group_table sele 3 use b_table sele 4 use user_table do form login_form 运行表单 read events 当发出 READ EVENTS 命令时，Visual FoxPro 启动事件处理