loading字段名 书籍 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 页