第6章 数据库操作 《数据库应用技术 知识——Delphi应用系统开发》课件 电子教案.pptVIP

end; if (Selectedindex=12) then begin if not (key in[0..9,#8]) then key:=#0; end; if (Selectedindex=14) then begin if not (key in[0..9,#8]) then key:=#0; end; end else begin if ADOQuery1.Eof then//如果返回True，则到了批量数据录入信息中数据集的末尾 begin ADOQuery1.append; //添加新的记录 Selectedindex:=0; //光标定制到0列上 end else begin DBNavigator1.BtnClick(nbnext);//未到数据集的末尾，则定位到下一条 Selectedindex:=0; end; end; end; end; end; 6.1.8 DBNavigator组件 DBNavigator组件（又称为数据库导航器）用来在数据集中浏览数据和编辑数据，例如，插入一条空记录或者提交记录等。DBNavigator组件是由一组控制按钮组成。通过这些控制按钮，用户可以完成在数据集中移动记录指针，增加或删除一项记录，编辑修改数据记录以及向数据库提交对数据集记录的修改等工作。DBNavigator组件一般与其他数据控制组件（DBGrid或DBEdit）一起使用。DBNavigator组件提供给用户在编辑或浏览数据时对数据集的控制。当用户使用DBNavigator组件中的按钮时，与此DBNavigator组件相连的数据集会发生相应的变化。 ConfirmDelete属性：使用DBNavigator组件ConfirmDelete属性是用来决定用户在删除记录时是否显示要求用户确认的消息框。 DataSource属性：通过设置DBNavigator组件的DataSource属性，将它与其控制的数据集联系起来。 ShowHint与Hints属性：ShowHint属性决定是否显示DBNavigator组件中各按钮的提示信息。Hints属性用来设置提示信息，单击对象观察器的Hints属性框会激活StringListEditor对话框，在对话框中输入提示信息的顺序与DBNavigator组件中各按钮的先后顺序一样。另外，Hints属性也可以在运行程序时通过Add方法实现，例如下面的语句：DBNavigator1. Hints.Items.Add(第一条记录); VisibleButtons属性：用来确定DBNavigator组件中需要显示哪些按钮，它包括10个选项：nbFirst，nbPrior，ndNext，nbLast，nbInsert，nbDelete，nbEdit，nbPost，nbCabcel和nbRefresh，它们分别对应着10个按钮。该例子的设计界面如图6-6所示，应用窗体中各组件的属性设置如表6-6所示。 图6-6 程序设计界面 表6-6 组件的属性