- 博客(0)
- 资源 (4)
- 收藏
- 关注
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 启动事件处理
2017-02-06
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人