Delphi_7.0数据库应用教程.ppt

建立数据感知控件－表格对象 Data Controls – DBGrid 放到窗体中。 DBGride1属性DataSource设为DataSource1。 数据库应用实例 DB 设Table1的属性Active 为True 数据库应用实例 DB 建立数据导航控件 － Navigator Data Control – DBNavigator DBNavigator1属性 DataSource 设为 DataSource1 数据库应用实例 DB 数据库应用实例 DB 主要程序代码： var Form1: TForm1; i:integer; implementation {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); begin close; end; procedure TForm1.DBGrid1CellClick(Column: TColumn); begin listbox1.Visible:=true; listbox1.Items.Strings[i]:= table1.FieldByName(company).AsString ; i:=i+1; end; procedure TForm1.ListBox1Click(Sender: TObject); begin for i:=0 to listbox1.Items.Count-1 do begin if listbox1.Selected[i] then begin table1.Edit; table1.FieldByName(company).AsString :=listbox1.Items.Strings[i]; table1.Post; end; end; end; end. 数据库应用实例 DB 四、深入练习 采用按钮添加删除、插入、添加记录功能，试设计窗口并编写代码。 数据库应用实例 DB 实训：delphi中数据库的连接 实训目的 掌握数据库常用组件的应用及属性 2. 掌握数据库组件之间的连接 数据库应用实例 DB 一、实训题意 连接DBDEMOS数据库的BIOLIFE表 ，使用多种数据控制组件显示表中数 据及图片，程序运行窗口如图所示： 数据库应用实例 DB 数据库应用实例 DB 二、实训要求 （1）设计界面，连接DBDEMOS数据库的 BIOLIFE表，显示表中的数据及图片。 （2）连接DBDEMOS数据库的其他表，使用多种数据控制组件显示表中数据。 数据库应用实例 DB 数据库应用实例 DB Panel1属性Align为alBottom。高度调整到窗体的三分之一。 三、实训所需组件及过程 建立Table对象 Table1的属性 Database name 设为DBDEMOS。实现了对指定数据库的访问。 数据库应用实例 DB TableName 设为 BIOLIFE.DB，实现对表的访问 建立数据源（DataSource)对象 Data Access – DataSource 属性 DataSet 设为 Table1 数据库应用实例 DB 建立数据感知控件－表格对象 Data Controls – DBGrid 放到Panel1中。 DBGride1属性Align设为AlLeft，并拖动右边缘以填满Panel1的四分之三。 DBGride1属性DataSource1设为DataSource1。 数据库应用实例 DB Active属性决定数据集与数据库中的数据是否建立连接。 当Active为False时，数据集关闭，此时数据集不能对数据库中的数据进行读写 而当Active为True时，数据集打开，此时数据集可以对数据库中的数据进行读写。 数据库应用实例 DB 设Table1的属性Active 为True 数据库应用实例 DB 建立数据导航控件 － Navigator Data Control – DBNavigator DBNavigator1属性 DataSource 设为 DataSource1 数据库应用实例 DB 建立DBMemo控件对象 属性: DataSouruce设为DataSource1 DataField设为Notes ScrollBars设为ssVertical 数据库应用实例 DB 属性： DataSouruce设为 DataSource1 DataField设为 Graphic 建立 DBImage 控件对象 数据库应用实例 DB 四、深入练习 采用table实现对DBDEMOS数据库的数据操作，