Delphi_11_开发数库应用程序.ppt

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、ＤeleteTable 书签(BookMark)的使用： 使用书签可以在数据表中快速地定位记录： 　GetBookMark: 用于设置书签，返回一个TBookMark类型的值，该值为当前记录的指针。 　GotoBookMark: 将记录指针定位到具有书签的记录处。 　FreeBookMark: 释放书签。 var BookMark: T BookMark; begin …. BookMark:=Table1.GetBookMark; Table1.DisableControls; Table1.First; While not Eof d