vfp课程设计

thisform.pageframe1.page1.command3.enabled=.f.
thisform.pageframe1.page1.command4.enabled=.t.
thisform.pageframe1.page1.command5.enabled=.t.
thisform.pageframe1.page1.command6.enabled=.f.
thisform.pageframe1.page1.text3.enabled=.t.
thisform.pageframe1.page1.text4.enabled=.t.
thisform.pageframe1.page1.text5.enabled=.t.
thisform.pageframe1.page1.text6.enabled=.t.
thisform.Commandgroup1.command3.enabled=.f.
endif
if username=’租借操作员’ &&不能使用数据维护功能。
thisform.Commandgroup1.command1.enabled=.f.
endif
控件Commandgroup1的command1（数据维护）—单击事件（Click）过程代码
Mainform.scx表单的控件及属性
表单—init过程代码
thisform.label2.caption=username
&&显示用户名,变量username在权限认证时定义并已经获得值。
if username=’一般用户’ &&一般用户不能使用数据维护和租借功能。
thisform.Commandgroup1.command1.enabled=.f.
南京工业大学
课程设计报告
题目：图书租借管理系统
课程名称：课程设计专业年级浦工管1306
学号：P**********姓名：时超
评定成绩：审阅教师：韩志刚
2014年6月21日
图书租借管理系统
需求分析
图书租借活动中涉及的图书信息，用户信息和租金结算等最能发挥计算机管理的优势，利用一套“图书租借管理系统”可以使经营者方便管理自己的租借的活动，提高图书的使用率，提高管理水平。
thisform.text1.setfocus
控件Command1（进入）—单击事件（Click）过程代码
if len(allt(thisform. combo1. value))<>0 .and. len(allt(thisform.text1.value))<>0
sele password
locate for allt(password.用户)==allt(thisform.combo1.value)
begin transaction
dele
*除”提交”、”撤销”按钮外,其他按钮都置为不可用。
thisform.pageframe1.page1.command1.enabled=.f.
thisform.pageframe1.page1.command2.enabled=.f.
thisform.pageframe1.page1.command3.enabled=.f.
thisform.pageframe1.page1.command8.enabled=.f.
控件Command3（编辑）—单击事件（Click）过程代码
begin transaction
sele book
thisform.pageframe1.page1.text1.enabled=.t.
thisform.pageframe1.page1.text2.enabled=.t.
*显示删除标记。
if deleted()
thisform.pageframe1.page1.text1.value=’*’
else
thisform.pageframe1.page1.text1.value=’ ’
endif
thisform.refresh
控件Command2（删除）—单击事件（Click）过程代码
thisform.pageframe1.page1.text6.enabled=.t.
thisform.pageframe1.page1.text7.enabled=.t.
thisform.pageframe1.page1.text8.enabled=.t.
thisform.pageframe1.page1.text9.enabled=.t.
字段名
字段类型
宽度
用户
Character
10
密码
Character
6
图书分类表.dbf（图书分类表）
字段名
字段类型
宽度
类名
Character
20
软件实现
Begin.scx表单的控件及属性（相关代码）
表单Timer-init过程代码
public i
i=600 &&开始时标题处于表单的最右侧
控件Timer-Timer过程代码
thisform.pageframe1.page1.command4.enabled=.t.
thisform.pageframe1.page1.command5.enabled=.t.
thisform.pageframe1.page1.command6.enabled=.f.
thisform.pageframe1.page1.command7.enabled=.f.
注意：以下代码（text1：图书流水号，text2：isbn，text3：图书名称，text4：出版社，text5：单价，text6：押金，text7：复本数量，text8：日租金，text9：日罚金）
this.caption=”继续”
begin transaction &&开启一个事务。
sele book
quit
Password.scx表单的控件及属性
表单—init过程代码
public username &&变量username用来存放”用户名”。
username=” “
thisform.combo1.setfocus
控件Combo1—InteractiveChange过程代码
username=thisform.combo1.value
thisform.pageframe1.page1.combo1.enabled=.t.
thisform.pageframe1.page1.text3.enabled=.t.
thisform.pageframe1.page1.text4.enabled=.t.
thisform.pageframe1.page1.text5.enabled=.t.
thisform.pageframe1.page1.command7.enabled=.f.
thisform.pageframe1.page1.command8.enabled=.f.
if deleted()
thisform.pageframe1.page1.text1.value=’*’
thisform.pageframe1.page1.command5.enabled=.t.
thisform.pageframe1.page1.command6.enabled=.f.
thisform.pageframe1.page1.command7.enabled=.f.
thisform.pageframe1.page1.command8.enabled=.f.
If i>0
thisform.image1.left=i
i=i-1
else
i=600
endif
控件Command1（进入）—单机事件（Click）过程代码
do form forms\password.scx
控件Command2（退出）—单击事件（Click）过程代码
thisform.release
clear events
do form forms\sjwh.scx
控件Commandgroup1的command2（数据浏览查询）—单击事件（Click）过程代码
do form forms\llcx.scx
控件Commandgroup1的command3（租借及查询）—单击事件（Click）过程代码
thisform.release
thisform.text1.setfocus
endif
else
messagebox(“密码或用户名不能为空,请重新输入”,0,”提示!”)
thisform.text1.setfocus
endif
控件Command2（退出）—单击事件（Click）过程代码
thisform.release
do form forms\begin.scx
字段名
字段类型
宽度
客户编号
Character
6
ISBN
Character
13
预付金额
Numeric
8（2）
租借日期
Date
8
归还日期
Date
8
预借天数
Numeric
2
正常租金
Numeric
10（2）
过期租金
Numeric
10（2）
退还
Numeric
10（2）
补交
Numeric
10（2）
Password.dbf（口令表）
if allt(password.密码)==allt(thisform.text1.value)
thisform.release
do form forms\mainform.scx
else
messagebox(“密码不正确,请重新输入”,0,”提示!”)
thisform.text1.value=” ”
5（2）
日罚金
Numeric
5（2）
Person.dbf（客户表）
字段名
字段类型
宽度
客户编号
Character
6Fra Baidu bibliotek
客户姓名
Character
8
身份证号
Character
18
宅电
Character
8
手机
Character
11
住址
Character
30
租金累计
Numeric
10（2）
租借表.dbf（租借表）
thisform.pageframe1.page1.text7.enabled=.t.
thisform.pageframe1.page1.text8.enabled=.t.
thisform.pageframe1.page1.text9.enabled=.t.
*除”提交”、”撤销”按钮外,其他按钮都置为不可用。
do form forms\zjgl.scx
控件Commandgroup1的command1（打印催还单）—单击事件（Click）过程代码
do form forms\dycsd.scx
控件Command1（返回）—单击事件（Click）过程代码
thisform.release
do form forms\password.scx
this.enabled=.f.
thisform.pageframe1.page1.command2.enabled=.f.
thisform.pageframe1.page1.command3.enabled=.f.
thisform.pageframe1.page1.command4.enabled=.t.
thisform.pageframe1.page1.text1.setfocus
thisform.pageframe1.page1.refresh
thisform.pageframe1.page1.command1.enabled=.f.
thisform.pageframe1.page1.command2.enabled=.f.
append blank
*使表单中控件可用。
thisform.pageframe1.page1.text1.enabled=.t.
thisform.pageframe1.page1.text2.enabled=.t.
thisform.pageframe1.page1.combo1.enabled=.t.
数据维护页面1（图书表维护）所包含的控件及属性
控件Page1—init过程代码
set safe off
sele book
控件Page1—Activate过程代码
thisform.pageframe1.page1.text1.setfocus
控件Command1（添加）—单击事件（Click）过程代码
数据流图
软件设计
图表结构
Book.dbf（图书表）
字段名
字段类型
宽度
图书流水号
Character
6
ISBN
Character
13
图书名称
Character
50
图书分类
Character
10
出版社
Character
30
单价
Numeric
8（2）
复本数量
Numeric
2
押金
Numeric
8（2）
日租金
Numeric