教材管理系统数据库课程设计报告.doc

计算机与信息工程学院计算机与信息工程学院 课程设计报告课程设计报告 课程名称 课程名称 数据库应用课程设计数据库应用课程设计 专专 业 业 信息管理与信息系统信息管理与信息系统 班班 级 级 学学 号 号 姓姓 名 名 题题 目 目 教材管理系统教材管理系统 指导教师 指导教师 20122012 年年 1 1 月月 1 计算机与信息工程学院 班级 学号学号姓名姓名 xxxxxx 指导老师指导老师职称职称 时间 20122012 年年 1 1 月月 3 3 日日 20122012 年年 1 1 月月 7 7 日日 题目 数据库应用课程设计数据库应用课程设计 目的 和 要求 数据库课程设计是计算机技术专业重要的实践课程之一 是在掌握程序 设计语言的基础上 学习 数据库原理 课程后的一次综合实践练习 通过 本课程设计 将在课堂上了解和掌握的数据库原理以及设计阶段的方法与技 术 直接运用到实际系统的开发工作中 课程设计的文档要求按照模版完成 语言简洁 通顺 开发的系统功能 符合需求规格 运行准确 稳定 课程 设计 主要 任务 包括 研发 工具 系统 环境 设计 任务 及其 实现 技术 本课程设计由以个人为单位选定命题 完成项目的需求分析 设计 开 发 测试等任务 并产生各个阶段的文档 需求分析和系统设计 根据命题要求完成系统的需求分析 应用结构化 或面向对象需求分析方法 并完成系统设计 并提出相应的测试方案 开发系统和测试调试 主要是系统代码的编写 使用的工具语言由各小 组根据系统需求分析和设计来决定 测试工作包括模块测试 集成测试和系 统测试 调试完成的系统要符合需求规格说明书 文档撰写 每一个学生提交自己任务的课程设计报告 内含需求 结构 设计 模块设计 数据库设计 测试等 描述个人在各阶段完成的工作 解 决的关键问题 以及总结体会 例如 1 基于 web 的 数据库原理 课程教学系统 给学生和教师提供一个有助于教学的讨论和交流的平台 主要组成部分 1 课件发布和管理 2 课程信息发布和管理 3 成绩管理和统计 包括考试及平时成绩 4 学生交流平台 课程讨论论坛 2 通用试题库系统 系统由题库管理 试卷生成 试卷打印及统计分析等子系统组成 参考 类似系统 采用高效的组卷技术 能以交互方式方便灵活地生成不同难度的 试卷及题解 适用于多种层次和水平的考试 主要功能 1 组卷方式 全自动成卷 半自动成卷 人工成卷 2 题库管理 具有修改 插入 增加 替换 删除及更新题库等功能 3 打印输出 以实用格式 紧凑 格式等输出试卷 可对试卷进行人工编辑修改 4 试题录入 要求简洁 快速 方便并具有自动查错功能 成绩 指导教师 签名 指导教师 签名 20122012 年年 1 1 月月 7 7 日日 2 文件编号 文件编号 10121001201012100120 教材管理系统 课程设计报告 文件标识 ZJGSU InfoCollege DBApp 当前版本 6 6 作 者 文件状态 草稿 正式发布 正在修改 完成日期 2012 01 06 浙江工商大学计算机与信息工程学院 3 目录目录 1 1 文档介绍文档介绍 4 1 1 文档目的 4 1 2 文档范围 4 1 3 读者对象 4 1 4 参考文献 4 1 5 术语与缩写解释 5 2 2 系统环境说明系统环境说明 5 3 3 数据库的命名规则数据库的命名规则 5 4 4 系统需求分析系统需求分析 6 4 1 系统功能分析 6 4 2 系统功能模块设计 6 5 5 教材管理教材管理 E R 图及关系图图及关系图 7 6 6 逻辑结构设计 逻辑结构设计 8 7 7 数据库物理设计 数据库物理设计 8 7 1 表汇总 8 7 2 表 A 9 7 3 表 B 9 7 4 表 C 10 7 5 表 D 10 7 6 表 E 10 7 7 表 F 11 8 8 数据保护设计数据保护设计 11 8 1 防止用户直接操作数据库的方法 11 8 2 用户帐号密码的加密方法 11 8 3 角色与权限 12 9 9 实施与优化实施与优化 12 1010 运行管理与维护说明运行管理与维护说明 47 4 1 1 文档介绍文档介绍 1 11 1 文档目的文档目的 目前浙江工商大学是以班级为单位 每学期统一向学生发放教材 然后收取书 款 现在在大部分学校还是手工操作 效率很低 而且不能及时了解教材库存和 领取的具体情况 同时由于不可避免的人为因素 可能造成教材收费出错等情况 随着当今教育制度的改革 办事效率的提高成了亟待解决的事 而高校教材管 理是高校教学管理工作中的一项重要任务 教材管理水平和工作效率的高低是 反映高校教学和科研管理水平的重要标志 因此 建立一套与课程相配套的教 材管理模式和管理系统具有十分重要的意义和实际应用的迫切性 而且现有的 条件 管理理念和技术水平已使之成为可能 开发该教材管理系统是为了更好地管理学校的各类教材 便于教材管理人员订 书 领书 查询教材资料及其库存情况 使教材信息管理工作系统化 规范化 自动化 从而达到提高教材管理效率的目的 1 21 2 文档范围文档范围 首先该文档的作用是帮助学生和教师订教材 通过该系统 管理员能比较方 便和快速的知道所订之书以及相应的收费情况 而且该系统还可查看库存量 班级学院订书情况等 使用阶段主要是在开学期间 学期始末有订书退书缴费 等工作也可以使用 1 31 3 读者对象读者对象 该文档的对象主要有管理员 学生 教师等 1 41 4 参考文献参考文献 1 宁正元 Delphi 程序设计与应用教程 中国水利水电出版社 2005 2 黄德才 数据库原理及其应用教程 科学出版社 2006 5 3 韩培友 数据库技术 西北工业大学出版社 2008 4 姜代红 数据库原理与应用 机械工业出版社 2008 1 51 5 术语与缩写解释术语与缩写解释 缩写 术语缩写 术语解解 释释 DDE 动态数据交换 Dynamic Data Exchange OLE 对象的联接和嵌入 Object Linking and Embedding OOL 面向对象程序语言 Object Oriented Language MIS 管理信息系统 Management Information System ODBC 开发数据库互连 Open Data Base Connectivity ISBN 国际标准书号 International Standard Book Number 2 2 系统环境说明系统环境说明 Delphi 是全新的可视化编程环境 为我们提供了一种方便 快捷的 Windows 应用程序开发工具 它使用了 Microsoft Windows 图形用户界面的许 多先进特性和设计思想 采用了弹性可重复利用的完整的面向对象程序语 Object Oriented Language 当今世界上最快的编辑器和最为领先的数据库 技术 因此 使用 Delphi 作为开发应用软件 无疑会大大地提高编程效率 是 管理信息系统 MIS Management Information System 的重要开发工具 同时 Access 支持 ODBC 开发数据库互连 Open Data Base Connectivity 利用 Access 强大的 DDE 动态数据交换 Dynamic Data Exchange 和 OLE 对象的联 接和嵌入 Object Linking and Embedding 特性 这使得利用 Access 建立的 数据库为教材管理系统所应具有的功能提供了强有力的保障 3 3 数据库的命名规则数据库的命名规则 1 表的命名 以名词和名词短语 2 列的命名 采用有意义的命名 能表达其表示的内容的名词短语 3 视图与存储均与表的命名类似 6 4 4 系统需求分析系统需求分析 4 14 1 系统功能分析系统功能分析 本系统可以实现一下功能 系统管理 系统管理 操作员信息的增 删 改 院系信息的增 删 改 班级信息的增 删 改 班级信息和学院信息的维护 书费管理 书费管理 交纳书费 退回多余的书费 教材出入库 教材出入库 学生领书 教师领书 教材入库 综合查询 综合查询 书费查询 领书查询 教材库存量查询 打印和报表输出 打印和报表输出 输出班级领书信息 书费缴纳和退还信息 帮助 帮助 关于 一些本系统的基本信息 4 24 2 系统功能模块设计系统功能模块设计 出入库管理综合查询系统管理 教 师 领 书 缴 纳 书 费 退 回 书 费 书 费 查 询 库 存 查 询 班 级 管 理 学 院 管 理 操 作 员 管 理 教 材 入 库 学 生 领 书 密 码 修 改 教材管理系统 书费管理 5 5 概念结构设计 概念结构设计 7 操作用户 教材 班级 学院 班级名 专业 学院 班长 班长手机 人数 班主任 班主任手机 学院名 负责人 负责人电话 购买 ISBN 编号 作者 出版社出版时间 书名 购买 单价 管理 用户名 密码 管理权限查询权限 收费权限出入库权限 入学时间 书费 教材管理 E R 图 8 表之间的关系图 6 6 逻辑结构设计 逻辑结构设计 班级 班级名 入学时间 所在学院 班长 班长手机 班主任 班主任手机 专业 人数 学院 学院名 负责人 负责人电话 购买 班级名 学院名 ISBN 编号 书费 操作用户 用户名 密码 管理权限 收费权限 出入库权限 查询权限 教材 ISBN 编号 作者 出版社 出版时间 教材单价 教材相关信息 7 7 数据库物理设计 数据库物理设计 7 17 1 表汇总表汇总 表名功能说明 表 A 班级表记录班级名 入学时间 所订教材 书费等 表 B 操作用户表记录用户名 密码 操作权限等 表 C 学院信息表记录学院名 负责人姓名 电话等 表 D 教材表记录教材名 出版社 出版时间等 9 表 E 教材入库表记录经办单位 入库数量 时间 经办人 费用等 表 F 教材出库表记录经办单位 出库数量 时间 经办人 费用等 7 27 2 表表 A A 表名班级表 列名数据类型 精度范围 是否允许空值约束条件 长度 班级名称 Char 否 20 入学时间 Datatime 是 8 所在院系 Char 否 16 班长名字 Char 否 8 班长手机 Char 否 11 班主任名字 Char 是 8 班主任手机 Char 是 11 专业 Char 是 20 班级人数 Int 否 1 补充说明班级名称是主键 7 37 3 表表 B B 表名操作用户表 列名数据类型 精度范围 是否允许空值约束条件 长度 用户名 Char 否 10 密码 Char 否 12 管理权限 Boolean 是 1 收费权限 Boolean 是 1 出入库权限 Boolean 是 1 10 查询权限 Boolean 是 1 补充说明用户名是主键 7 47 4 表表 C C 表名学院信息表 列名数据类型 精度范围 是否允许空值约束条件 长度 学院名称 Char 否 10 负责人名字 Char 否 8 负责人电话 Char 否 11 补充说明学院名称是主键 7 57 5 表表 D D 表名教材表 列名数据类型 精度范围 是否允许空值约束条件 长度 ISBN 编号 Char 否 13 教材名称 Char 否 20 作者 Char 否 8 出版社 Char 否 15 出版时间 Datetime 否 8 教材单价 Money 否 4 教材相关信息 Char 是 50 补充说明ISBN 编号是主键 7 67 6 表表 E E 表名教材入库表 11 列名数据类型 精度范围 是否允许空值约束条件 长度 入库记录编号 Char 否 10 ISBN 编号 Char 否 13 入库数量 Integer 是 4 入库时间 Datetime 否 8 备注 Char 是 50 查询权限 Boolean 是 1 补充说明入库记录编号是主键 7 77 7 表表 F F 表名教材出库表 列名数据类型 精度范围 是否允许空值约束条件 长度 出库记录编号 Char 否 10 ISBN 编号 Char 否 13 出库数量 Integer 是 4 出库时间 Datetime 否 8 备注 Char 是 50 领书者 Char 否 10 补充说明出库记录编号是主键 8 8数据保护设计数据保护设计 8 18 1 防止用户直接操作数据库的方法防止用户直接操作数据库的方法 该系统用户帐号全部由系统管理员管理 在 Access 数据库中 对组和用户 访问数据库权限的设置工作 只能通过管理员完成 设置的权限包括 打开 12 运行 读取设计 修改设计 管理 读取数据 更新数据 插入数据和删除数 据用户只能用通过认证的帐号登陆到应用软件 通过应用软件访问数据库 而 没有其他途径操作数据库 且用户的操作权限有限 不能任意修改数据库中的 关键数据 只能对数据进行读取和输入等常规操作 因能能很好的保护数据库 的数据 8 28 2 用户帐号密码的加密方法用户帐号密码的加密方法 在这个系统中我们使用标准 40 位密钥加密 Access 2007 数据库中的用户 帐号密码 要加密一个数据 开始时和你进行 Access 2003 加密的过程是很 类似的 首先需要打开 Microsoft Access 不选数据库 然后使用 Open More Files 选项 浏览数据库 选择了数据库之后 点击 Open 按钮旁边的向 下箭头并选择 Open Exclusive 选择 Database Tools 标签页并选择 Encrypt with Password 输入一个强密码 字母和数字以及特殊字符 并确认 请将这步的密码记录在其它什么地方 接下来要改变一个密码 改变数据库密 码总是一个好方法 8 38 3 角色与权限角色与权限 角色可以访问的表与列操作权限 用户列表增加 修改 删除 班级信息列表查询 增加 删除admin cuty 班级书费订购信息列表登记 审核 修改 学院信息增加 修改 审核 班级信息修改 查询can 班级书费订购信息列表增加 修改 查询 9 9 实施与优化实施与优化 在数据库的设计过程中经常要添加 删除数据库对象 这会使数据库内部留 有许多碎片 不能有效地利用磁盘空间 文件会逐渐增大 这有点象文件系统 13 经过多次的增删操作 会导致文件碎片 浪费磁盘空间 而且读写效率降低 可以用 Access 提供的工具来压缩数据库 它将重新安排数据库文件在磁盘中 保存的位置 并释放磁盘空间 通常文件的容量会缩小成原来的几分 以下为程序运行时的部分界面图 14 以下为部分源代码 主界面 unit main interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs Menus Buttons ToolWin ComCtrls ExtCtrls StdCtrls DB ADODB jpeg kcxc type TMainForm class TForm MainMenu1 TMainMenu 15 N1 TMenuItem N2 TMenuItem N3 TMenuItem N5 TMenuItem N6 TMenuItem N7 TMenuItem N9 TMenuItem N10 TMenuItem N11 TMenuItem N12 TMenuItem N13 TMenuItem N14 TMenuItem N15 TMenuItem N16 TMenuItem N17 TMenuItem N18 TMenuItem N21 TMenuItem ToolBar1 TToolBar Image1 TImage TreeView1 TTreeView H1 TMenuItem N20 TMenuItem Image jcrk TImage Image czygl TImage Image lscx TImage Image kccx TImage Image thsf TImage Image xygl TImage Image mmxg TImage Image jnsf TImage 16 Image bjgl TImage Image jsls TImage Image xsls TImage Image tc TImage N4 TMenuItem N8 TMenuItem N19 TMenuItem N22 TMenuItem N23 TMenuItem procedure N7Click Sender TObject procedure FormActivate Sender TObject procedure N2Click Sender TObject procedure N3Click Sender TObject procedure N6Click Sender TObject procedure N21Click Sender TObject procedure N10Click Sender TObject procedure N11Click Sender TObject procedure N13Click Sender TObject procedure N14Click Sender TObject procedure N15Click Sender TObject procedure SpeedButton14Click Sender TObject procedure N4Click Sender TObject procedure N17Click Sender TObject procedure N18Click Sender TObject procedure Timer1Timer Sender TObject procedure TreeView1Change Sender TObject Node TTreeNode procedure N20Click Sender TObject procedure Image czyglClick Sender TObject procedure Image mmxgClick Sender TObject procedure Image bjglClick Sender TObject 17 procedure Image xyglClick Sender TObject procedure Image sfcxClick Sender TObject procedure Image kccxClick Sender TObject procedure Image lscxClick Sender TObject procedure Image jcrkClick Sender TObject procedure Image thsfClick Sender TObject procedure Image jnsfClick Sender TObject procedure Image jslsClick Sender TObject procedure Image xslsClick Sender TObject procedure Image tcClick Sender TObject procedure N23Click Sender TObject procedure FormCreate Sender TObject private Private declarations public Public declarations end var MainForm TMainForm username string 用户名 qx array 1 4 of boolean 四个权限 implementation uses checkuser operator passwordchange classmanage units bookfee returnfee bookin stud entbook unitbook classbookbrower lingshuchaxun about kcfind R dfm procedure TMainForm N7Click Sender TObject begin 18 if messagedlg 确认退出 mtconfirmation mbyes mbno 0 mryes then Close else end procedure TMainForm FormActivate Sender TObject begin CheckUserForm ShowModal if username then begin if qx 1 then begin N2 Enabled true N6 Enabled true N21 Enabled true Image czygl Enabled true Image mmxg Enabled true Image bjgl Enabled true Image xygl Enabled true end else begin N2 Enabled false N6 Enabled false N21 Enabled false Image czygl Enabled false Image mmxg Enabled false Image bjgl Enabled false Image xygl Enabled false end if qx 2 then 19 begin N10 Enabled true N11 Enabled true Image jnsf Enabled true Image thsf Enabled true end else begin N10 Enabled false N11 Enabled false Image jnsf Enabled false Image thsf Enabled false end if qx 3 then begin N13 Enabled true N14 Enabled true N15 Enabled true Image jcrk Enabled true Image xsls Enabled true Image jsls Enabled true end else begin N13 Enabled false N14 Enabled false N15 Enabled false Image jcrk Enabled false Image xsls Enabled false Image jsls Enabled false 20 end if qx 4 then begin N17 Enabled true N18 Enabled true N19 Enabled true Image sfcx Enabled true Image kccx Enabled true Image lscx Enabled true Image tc Enabled true end else begin N17 Enabled false N18 Enabled false N19 Enabled false Image sfcx Enabled false Image kccx Enabled false Image lscx Enabled false Image tc Enabled false end end else close end procedure TMainForm N2Click Sender TObject begin passwordchangeform ShowModal end procedure TMainForm N3Click Sender TObject 21 begin OperatorForm ShowModal end procedure TMainForm N6Click Sender TObject begin classform ShowModal end procedure TMainForm N21Click Sender TObject begin UnitForm ShowModal end procedure TMainForm N10Click Sender TObject begin bookfeeform ShowModal end procedure TMainForm N11Click Sender TObject begin ReturnFeeForm ShowModal end procedure TMainForm N13Click Sender TObject begin bookinForm ShowModal end procedure TMainForm N14Click Sender TObject begin studentbookform ShowModal end procedure TMainForm N15Click Sender TObject begin unitbookForm ShowModal 22 end procedure TMainForm SpeedButton14Click Sender TObject begin cLOSE end procedure TMainForm N17Click Sender TObject begin ClassBookBrowerForm ShowModal end procedure TMainForm N18Click Sender TObject begin kcfindform ShowModal end procedure TMainForm Timer1Timer Sender TObject begin StatusBar1 Panels 2 Text 系统时间 dateTimetoStr Now end procedure TMainForm TreeView1Change Sender TObject Node TTreeNode begin Node ImageIndex 0 Node SelectedIndex 1 if TreeView1 Selected Text 操作员管理 then OperatorForm ShowModal if TreeView1 Selected Text 密码修改 then passwordchangeform ShowModal if TreeView1 Selected Text 班级管理 then classform ShowModal if TreeView1 Selected Text 学院管理 then UnitForm ShowModal 23 if TreeView1 Selected Text 缴纳书费 then bookfeeform ShowModal if TreeView1 Selected Text 退回书费 then ReturnFeeForm ShowModal if TreeView1 Selected Text 教材入库 then bookinForm ShowModal if TreeView1 Selected Text 学生领书 then studentbookform ShowModal if TreeView1 Selected Text 教师领书 then unitbookForm ShowModal if TreeView1 Selected Text 书费查询 then ClassBookBrowerForm ShowModal if TreeView1 Selected Text 库存查询 then kcfindform ShowModal if TreeView1 Selected Text 领书查询 then lingshuchaxunform ShowModal end procedure TMainForm N20Click Sender TObject begin info ShowModal end procedure TMainForm Image czyglClick Sender TObject begin OperatorForm ShowModal end procedure TMainForm Image mmxgClick Sender TObject begin passwordchangeform ShowModal end procedure TMainForm Image bjglClick Sender TObject 24 begin classform ShowModal end procedure TMainForm Image xyglClick Sender TObject begin UnitForm ShowModal end procedure TMainForm Image sfcxClick Sender TObject begin ClassBookBrowerForm ShowModal end procedure TMainForm Image kccxClick Sender TObject begin kcfindform ShowModal end procedure TMainForm Image lscxClick Sender TObject begin ClassBookBrowerForm ShowModal end procedure TMainForm Image jcrkClick Sender TObject begin bookinForm ShowModal end procedure TMainForm Image thsfClick Sender TObject begin ReturnFeeForm ShowModal end procedure TMainForm Image jnsfClick Sender TObject begin 25 bookfeeform ShowModal end procedure TMainForm Image jslsClick Sender TObject begin unitbookForm ShowModal end procedure TMainForm Image xslsClick Sender TObject begin studentbookform ShowModal end procedure TMainForm Image tcClick Sender TObject begin if messagedlg 确认退出 mtconfirmation mbyes mbno 0 mryes then Close else end procedure TMainForm N23Click Sender TObject begin if messagedlg 确认退出 mtconfirmation mbyes mbno 0 mryes then Close else end end 学生缴纳书费 unit bookfee interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs StdCtrls Buttons DB ADODB type 26 TBookFeeForm class TForm GroupBox1 TGroupBox Label1 TLabel ComboBox1 TComboBox Label2 TLabel Edit1 TEdit Label3 TLabel Edit2 TEdit Label4 TLabel Edit3 TEdit Label5 TLabel Edit4 TEdit Label6 TLabel Edit5 TEdit BitBtn1 TBitBtn BitBtn2 TBitBtn ADOConnection1 TADOConnection Edit6 TEdit Label7 TLabel procedure BitBtn2Click Sender TObject procedure FormActivate Sender TObject procedure ComboBox1Click Sender TObject procedure Edit2Exit Sender TObject procedure BitBtn1Click Sender TObject private Private declarations public Public declarations procedure initiate end 27 var BookFeeForm TBookFeeForm implementation uses main R dfm procedure TBookFeeForm BitBtn2Click Sender TObject begin close end procedure TBookFeeForm initiate begin edit2 text 0 edit1 text 0 edit1 ReadOnly true edit1 TabStop false edit1 Enabled false edit3 text 0 edit3 ReadOnly true edit3 TabStop false edit3 Enabled false edit4 text edit5 text 缴纳费用 0 元 edit5 ReadOnly true edit5 TabStop false edit5 Enabled false edit6 text 0 edit6 ReadOnly true edit6 TabStop false edit6 Enabled false combobox1 text 28 end procedure TBookFeeForm FormActivate Sender TObject var adotable1 TAdoTable begin AdoTable1 TAdoTable Create self AdoTable1 Connection adoconnection1 adotable1 tablename 班级表 adotable1 Active true edit1 Text floattostr adotable1 fieldbyname 书费 ascurrency initiate ComboBox1 Items Clear while not adotable1 Eof do begin ComboBox1 Items add adotable1 fieldbyname 班级名 asstring adotable1 next end combobox1 text adotable1 Close end procedure TBookFeeForm ComboBox1Click Sender TObject var adodataset1 TAdoDataset begin adodataset1 TAdoDataset Create self Adodataset1 Connection adoconnection1 adodataset1 CommandType cmdtext adodataset1 CommandText select from 班级表 where 班级名 classname adodataset1 Parameters Clear adodataset1 Parameters AddParameter 29 adodataset1 Parameters 0 name classname adodataset1 Parameters 0 DataType ftstring adodataset1 Parameters 0 direction pdinput adodataset1 Parameters 0 Value combobox1 text adodataset1 Active true edit1 text floattostr adodataset1 fieldbyname 书费 ascurrency edit6 text IntToStr AdoDataset1 FieldByName 班级人数 asinteger adodataset1 close end procedure TBookFeeForm Edit2Exit Sender TObject begin edit3 text floattostr strtofloat edit1 text strtofloat Edit2 text StrToInt Edit6 text edit5 text 缴纳书费 edit2 text edit6 text 元 end procedure TBookFeeForm BitBtn1Click Sender TObject var adotable1 TAdoTable adoquery1 TAdoQuery begin adoquery1 TAdoQuery Create self adoquery1 Connection adoconnection1 adoquery1 close adoquery1 SQL clear adoquery1 sql add update 班级表 set 书费 fee where 班级名 classname adoquery1 Parameters Clear adoquery1 Parameters AddParameter adoquery1 Parameters 0 name fee adoquery1 Parameters 0 DataType ftcurrency adoquery1 Parameters 0 Direction pdinput adoquery1 Parameters 0 Value strtofloat edit2 text strtoint Edit6 text 30 adoquery1 Parameters AddParameter adoquery1 Parameters 1 name classname adoquery1 Parameters 1 DataType ftstring adoquery1 Parameters 1 Direction pdinput adoquery1 Parameters 1 Value combobox1 text adoquery1 Prepared adoquery1 ExecSQL adoquery1 Close AdoTable1 TAdoTable Create self AdoTable1 Connection AdoConnection1 AdoTable1 TableName 学生书费历史库 adotable1 Active true adotable1 Append adotable1 edit adotable1 FieldByName 班级名 asstring ComboBox1 text adotable1 FieldByName 班级人数 asinteger StrtoInt edit6 text adotable1 fieldByName 上期费用 AsCurrency strtofloat edit1 text adotable1 fieldByName 本次费用 AsCurrency strtofloat edit2 text StrToInt Edit6 text adotable1 fieldByName 本期费用 AsCurrency strtofloat edit3 text adotable1 fieldByName 经办人 Asstring edit4 text adotable1 fieldByName 操作员 Asstring username adotable1 fieldByName 最后修改时间 AsDateTime Date adotable1 fieldByName 说明 Asstring edit5 text adotable1 post adotable1 close initiate combobox1 SetFocus end 31 教材入库 unit bookin interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs StdCtrls Buttons Mask DB ADODB type TbookinForm class TForm Label1 TLabel Edit1 TEdit Label2 TLabel Edit2 TEdit Label3 TLabel Edit3 TEdit Label4 TLabel Edit4 TEdit Label5 TLabel MaskEdit1 TMaskEdit Label6 TLabel ComboBox1 TComboBox Label7 TLabel Edit5 TEdit Label8 TLabel Edit6 TEdit Label9 TLabel Edit7 TEdit Label10 TLabel Edit8 TEdit Label11 TLabel Edit9 TEdit 32 Label12 TLabel Edit10 TEdit Label13 TLabel MaskEdit2 TMaskEdit Label14 TLabel Edit11 TEdit BitBtn1 TBitBtn BitBtn2 TBitBtn ADOConnection1 TADOConnection Label15 TLabel MaskEdit3 TMaskEdit procedure FormActivate Sender TObject procedure Edit4Exit Sender TObject procedure BitBtn1Click Sender TObject procedure Edit7Exit Sender TObject procedure BitBtn2Click Sender TObject private Private declarations public Public declarations procedure initiate end var bookinF