数据库原理及应用课程设计报告
字段名 书籍id 书名 作者 出版社 单价 总量 现存量 入库时间 类型 字符型 字符型 字符型 字符型 字符型 字符型 字符型 日期型 长度 23 20 16 20 8 4 4 8 NULL 否 否 否 否 否 否 否 否 说明 书籍id 书名 作者 出版社 单价 总量 现存量 入库时间 4 系统实现与测试
4.1 连接数据库的实现
图4.1数据库
4.2 模块功能实现
登录源代码如下： SET EXACT ON SELECT 系统用户表
LOCATE FOR 管理员姓名=ALLTRIM(thisform.text1.Value)
IF FOUND() AND ALLTRIM(密码)=ALLTRIM(thisform.text2.Value) thisform.Release DO FORM 主界面 ELSE
MESSAGEBOX(\账号或密码错误\系统警告\
第 10 页
数据库原理及应用课程设计报告
thisform.text1.Value=\ thisform.text2.Value=\ thisform.text1.SetFocus() ENDIF SET EXACT OFF
取消源代码如下： thisform.release
添加源代码如下： append blank go bottom
thisform.txt成员id.setfocus thisform.refresh
修改源代码如下：
replace 成员id with ALLTRIM(thisform.txt成员id.value) MESSAGEBOX(\信息修改成功\系统提示\
退出源代码如下： thisform.release do form 主界面
查询源代码如下： select 借书信息表
locate for 借书id=alltrim(thisform.txt借书id2.value) thisform.refresh
第 11 页
数据库原理及应用课程设计报告
图4.2登陆界面
图4.3主界面
图4.4主界面菜单设计
第 12 页
数据库原理及应用课程设计报告
图4.5管理员基本信息表单
图4.6借书信息表单
图4.7借书信息查询表单
第 13 页
数据库原理及应用课程设计报告
图4.8借阅卡信息表单
图4.9借阅卡信息查询表单
图4.10图书信息查询表单
第 14 页