《Delphi程序设计 教学课件 涂金德 主编 牛立成 金林樵 副主编 第4章开发单层数据库应用程序.ppt》由会员分享，可在线阅读，更多相关《Delphi程序设计 教学课件 涂金德 主编 牛立成 金林樵 副主编 第4章开发单层数据库应用程序.ppt（122页珍藏版）》请在金锄头文库上搜索。
1、在线教务辅导网 教材其余课件及动画素材请查阅在线教务辅导网 QQ 349134187或者直接输入下面地址 第4章开发单层数据库应用程序 4 1基于Table组件的数据库编程4 2基于Query组件的数据库编程4 3数据库报表制作4 4数据统计图表的制作4 5单层数据库应用程序开发实例4 6制作安装程序 本章小结 4 1基于Table组件的数据库编程 数据集组件Table数据源组件Datasource数据控制组件主 明细表连接 本节要点 练习 数据集组件Table Table组件是Delphi数据库应用程序访问数据库时常用的数据集部件之一 它可以访问本地数据库如Paradox dBASE Acc
2、ess FoxPro 也访问ODBC数据库 还访问远程数据库InterBase Sybase SQLServer 它可以编辑所有行和列 选择一定范围内的行 或者过滤检索出其中一部分行 可以搜索记录 复制 更名或删除一个表格等 主要属性主要方法事件字段的访问 Table的主要属性 DatabaseName 数据库名 TableName 数据库表名 TableType 数据库表的类型 当值为Default时 由数据库表的扩展名决定 如 DB表示Paradox表 Active 打开或关闭数据库表 RecNo 当前记录号 RecordCount 总记录数 IndexName 指定第二索引名 Index
3、FieldName 指定索引字段名 Exclusive 是否以共享方式打开数据库表 默认为False 即共享方式 ReadOnly 数据库表是否为只读 CanModify 能否对数据库表进行修改 Filter 指定过滤条件 Filtered 是否开启过滤 State 数据库表所处的状态 如浏览 编辑 插入等 Bof 指针是否到数据库首部 Eof 指针是否到数据库尾部 MasterSource 指定与主表连接的数据源 MasterFields 指定若干个用于连接主表与明细表的字段 IndexDefs 列出各索引信息 IndexFiles 专用于加入dBASE索引 演示 Table的主要方法 Op
4、en Close 打开 关闭数据库表 可用Active属性 First Next Prior Last MoveBy 移动记录指针 FindKey FindNearest 直接查找表中记录 被查找的字段要索引 GotoKey GotoNearest 查找表中记录 必须用SetKey将表置成查找状态 被查找的字段要索引 Locate 直接查找表中记录 可以设置选项 区分大小写 部分匹配 Edit 使表进入编辑状态 Append Insert 插入空记录 AppendRecord InsetRecord 插入记录 Delete 删除当前记录Post Cancel 保存 取消对表的修改 Refres
5、h 刷新数据控制组件中的显示 演示 Table的主要方法 续 ApplyRange CancelRange 应用 取消检索范围 由SetRangeStart SetRangeEnd或SetRange设置起止范围 CreateTable DeleteTable EmptyTable 创建 删除 清空数据库表 DisabelControls EnableControls 切断 恢复该数据集中的数据在数据控制 可视 组件中的显示 演示 Table的事件 AfterCancel AfterClose AfterDelete AfterEdit AfterInsert AfterOpen AfterPo
6、st AfterRefresh AfterScroll BeforeCancel BeforeClose BeforeDelete BeforeEdit BeforeInsert BeforeOpen BeforePost BeforeRefresh BeforeScroll OnCalcFields OnDeleteError OnEditError OnFilterRecord OnNewRecord OnPostError 例如BeforeDelete事件使用 演示 Table中字段的访问 动态字段对象的访问 用索引号访问 如Table1 Fields 0 DisplayLabel 学号
7、 Table1 Fields 0 Value 10Table1 Fields 0 AsString 10 类型转换还有AsBoolean AsDateTime AsFloat AsInteger等 用字段名访问 如Table1 FieldByName ID DisplayLabel 学号 永久字段对象的访问通过FieldsEditor 双击Table组件 建立永久字段对象 访问如下 Table1ID DisplayLable 学号 注 还可以使用如下方法直接访问字段中的值 Table1 FieldValues ID 10或Table1 ID 10 演示 数据源组件Datasource 连接数据
8、集组件 如Table 和数据控制组件的桥梁 其主要属性 DataSet 设置要连接的数据集名 如table1 AutoEdit 当数据控制组件聚集时 是否将数据集置于编辑状态 自动调数据集的Edit方法 Enabed 是否切断与数据集的连接 演示 数据控制组件 DBGridDBNavigator其它数据控制组件 DBGrid 以表格 行和列 的形式显示和编辑数据集中的数据 其主要属性 DataSource 设置要连接的数据源名 Columns 用于控制DBGrid控件的栅格栏特性 如更改标题名等 Fields 返回当前被选行中的各字段对应的TField类实例 FieldCount 用于返回DB
9、Grid中的字段数 Readonly 用于指出DBGrid是否为只读形式 Options 控制DBGrid显示特性和对事件的响应特性 SelectedField 返回当前被选的TField类实例SelectedIndex 返回当前被选字段在的Fields中的索引值 演示 Option属性 dgEditin 可以使用Grid编辑数据 当dgRowselect被选中时 dgEditing被忽略dgAlwaysshowEdltor Grid始终处于编辑状态 只有当dgEditing有效时才有效dgTities 在栏上方显示标题dgIndicato 显示当前行标志dgColumnResize 可以改变
10、栏大小dgCOLines 栏间显示分隔直线dgROWLines 行间显示分隔直线dgTabs 可以使用Tab和Shitt Tab组合键浏览DBGriddgRowselect 可以选择整行数据dgAlwaysShowSelectio 当DBGrid失去聚焦时可以显示被选的字段dgConfirmDelete 当按下Ctrl Delete组合键删除行时弹出确认对话框dgCancelonExlt 从插入状态退出时 如果新增行没有修改 则自动删除dgMultiSelect 允许同时选中多行数据 DBNavigator 用于在数据库集中进行记录导航和为用户操纵数据集中的记录提供了一组简单明了的控制按钮 其
11、主要属性 ConfirmDelete 删除记录时是否弹出确认对话框 VisibleBottons 设置各按钮显示与否 Hints ShowHint 设置 控制各按钮的提示信息 演示 其它数据控制组件 DBText DBEdit DBMemo DBImage DBListBox DBComboBox DBCheckbox DBRadioGroup DBLookupListBox DBLookupComboBox DBRichEidt DBCtrlGrid DBChart它们的主要属性为DataSoruce和DataField 其它属性与其对应的通用组件相似 DBLookupListBox DBL
12、ookupComboBox还有ListSoruce ListField KeyField等属性需要设置 其作用是从ListSoruce指定的数据源中列出由ListField指定的字段 按KeyField DataField 其常用来将代码显示为名称 如将院系编号显示为院系名称 在另一数据表中 演示 主 明细表连接 设置主表如Table1与一数据表如Department db连接 并设置数据源组件DataSource1与Table1相连 设置明细表如Table2与一数据表如Student db连接 明细表如Table2的MasterSource属性为DataSource1 IndexFieldN
13、ames属性为Student department MasterFields属性为Student department Department ID 设置数据源组件DataSource2与Table2相连 DBGrid1 DBGrid2分别与DataSource1 DataSource2相连 注 明细表中与主表关联的字段必须要索引 演示 本节要点 4 1 掌握数据集组件Table的主要属性 方法和事件及其字段的访问方法 能够使用Table Datasource及常用数据控制组件编写较为简单的数据库应用程序 练习 4 1 理论补充 简答题 1 试指出数据集组件 如Table组件 中访问字段有哪几种
14、方法 2 用Table组件如何建立主 明细表的连接 3 DBLookupListBox DBLookupComboBox组件有什么作用 使用时必须要设置哪些属性 上机实训教程4 2 4 3及4 4中 1 基于Table的查询 4 2基于Query组件的数据库编程 Query组件SQL 结构化查询语言 其它BDE组件 本节要点 练习 Query组件 主要属性SQL 包含Query组件要执行的SQL语句 Params ParamCount 指定SQL语句中的参数 参数个数 RequestLive 决定查询结果的数据集是否可更新 Constrained 对于Paradox和dBASE表 更新或插入是
15、否受SELECT语句中的条件限制 UniDirectional 决定结果集是否单方向浏览 主要方法Open 打开数据集 仅执行SELECT语句 Close 关闭数据集 ExecSQL 执行SQL语句 如INSERT UPDATE DELETE andCREATETABLE 不返回结果集 SELECT语句的执行应调Open方法 Prepare UnPrepare 预处理 释放预处理资源 演示 SQL属性 设计期间 在SQL属性中直接写入SQL语句 然后置值Active属性为True 即可执行该SQL语句 只限于SELECT语句 运行期间 一般安排如下代码来加入和执行SQL语句 Query1 Cl
16、ose Query1 SQL Clear Query1 SQL Add Select fromstudent db Query1 Open 演示 Query中的参数使用 参数在SQL语句中用昌号带头进行定义和引用 Query1 Close Query1 SQL Clear Query1 SQL Add select fromstudent Query1 SQL Add wheredepartment dpt1andsex sex2 Query1 ParamByName dpt1 value 3 或Query1 Params 0 value 3 Query1 ParamByName sex2 AsString 男 或Query1 Params 1 AsString 男 Query1 Open 演示 ExecSQL方法 Query1 Close Query1 SQL Clear Query1 SQL Add DeletefromStudentwhereID 2000010121 Query1 ExecSQL 演示 预处理 ifnotQuery1 PreparedthenbeginQuery
