- 1、本文档共39页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
Delphi_11_开发数库应用程序
Delphi 的数据库程序开发基础 1.开发工具和组件及可访问的数据源 数据库操作例 (1) 简单单表数据库应用(Exp11_Cust1prj.dpr(Exp11_Cust1.pas) DatabaseName DBDEMOS 组件栏中【Data Access】卡,取TDatasource组件以及TTable组件 组件栏中【Data Control】卡,取TDBGrid组件 设定相关属性: DataSource1.AutoEdit: False DataSource1.DataSet: Table1 Table1.DatabaseName: DBDEMOS Table1.TableName: Customer.DB Table1.Active: True(重要) DBGrid1.DataSource: DataSource1 数据显示组件(DBGrid1) - 数据源(DataSource1) - 数据库表(Table1) ★可转为自己的目录 菜单Database: Explorer Object - New 11.1 数据集组件(BDE、Data Access) 1.Table组件 BDE卡 (1)主要属性 DatabaseName、TableName、Active、TableType、ReadOnly、Bof和Eof、CanModify和Modified、Exclusive Procedure TForm1.FormCreate(Sender:Tobject); Begin if Table1.Active:=True then Table1.Active:=False; repeat try Table1.Exclusive:=True; Table1.Active:=True; Break; except on EdatabaseError do if Application.MessageBox(‘Could not open table1 exclusive-Try again?’, ‘Open Error’,MB_OKCANCEL+MB_DEFBUTTON1)IDOK then raise; end; End; (2)主要方法 数据库表的打开和关闭:Open、Close 浏览数据库中数据:Frist、Last、MoveBy、Next、Prior Table1.DisableControls;//断开Table1与其他数据控件组件的联系 Table1.Frist; //当前记录指针移到表中的第一条记录 while not Table1.Eof do//遍历表中的记录,直到最后一条 begin …对当前记录的处理… Table1.Next; //下移一条 end; Table1.EnableControls; //恢复Table1与其他数据控件组件的联系 编辑和修改数据库中数据:Append、Delete、Edit、Insert、InsertRecord、Post、SetFields、Cancel if MessageDlg(‘Update Record?’,mtConfirmation,[mbYes,mbNo],0)=mrYes then Table1.Post; //若为YES,则提交 else Table1.Cancel; //若为NO,则撤消 新表的创建和修改:CreateTable、DeleteTable 书签(BookMark)的使用: 使用书签可以在数据表中快速地定位记录: GetBookMark: 用于设置书签,返回一个TBookMark类型的值,该值为当前记录的指针。 GotoBookMark: 将记录指针定位到具有书签的记录处。 FreeBookMark: 释放书签。 var BookMark: T BookMark; begin …. BookMark:=Table1.GetBookMark; Table1.DisableControls; Table1.First; While not Eof d
文档评论(0)