DBNavigator控件使用说明

只显示部分控件
修改VisibleButtons按钮，将不需要显示的设为false

让按钮显示中文方法1
将DBNavigator的Visible设为false让控件隐藏，然后手动添加Button按钮，将其点击事件设为如下，使点击Button相当于点击了DBNavigator的相应按钮
procedure TForm1.Button3Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbPrior);   // 按Button3相当于点击了DBNavigator的nbPrior按钮  '上一条 '
end;
更多：
DBNavigator1.BtnClick(nbFirst);// '第一条 '
DBNavigator1.BtnClick(nbPrior);   //   '上一条 '
DBNavigator1.BtnClick(nbNext);   // '下一条 '
DBNavigator1.BtnClick(nbLast);     // '最后一条 '
DBNavigator1.BtnClick(nbInsert);   // '添加 '
DBNavigator1.BtnClick(nbDelete);// '删除 '
DBNavigator1.BtnClick(nbEdit);// '修改 '
DBNavigator1.BtnClick(nbPost);// '提交 '
DBNavigator1.BtnClick(nbCancel);// '撤销 '
DBNavigator1.BtnClick(nbRefresh);// '刷新 '

让控件按钮显示中文方法2
uses
。。。。。。

type
TMyNavgator = class(TDBNavigator);
TForm1 = class(TForm)
DBNavigator1: TDBNavigator;
。。。。。。。。

procedure TForm1.FormCreate(Sender: TObject);
begin
TMyNavgator(DBNavigator1).Buttons[nbFirst].Caption:= '首条 ';
TMyNavgator(DBNavigator1).Buttons[nbPrior].Caption:= '上一条 ';
TMyNavgator(DBNavigator1).Buttons[nbNext].Caption:= '下一条 ';
TMyNavgator(DBNavigator1).Buttons[nbLast].Caption:= '末条 ';
TMyNavgator(DBNavigator1).Buttons[nbInsert].Caption:= '添加 ';
TMyNavgator(DBNavigator1).Buttons[nbDelete].Caption:= '删除 ';
TMyNavgator(DBNavigator1).Buttons[nbEdit].Caption:= '修改 ';
TMyNavgator(DBNavigator1).Buttons[nbPost].Caption:= '提交 ';
TMyNavgator(DBNavigator1).Buttons[nbCancel].Caption:= '撤销 ';
TMyNavgator(DBNavigator1).Buttons[nbRefresh].Caption:= '刷新 ';
end;
end.

提交数据前给为空的DBEdit控件赋初值，在 DBEdit 的 OnDataChange 事件（顶部绿色处）
procedure TFastOpenFr.ds1DataChange(Sender: TObject; Field: TField);
begin
  // 判断当前值是否为空
  if (qry1.FieldByName('sort').AsString = '') or (qry1.fieldbyName('sort').isnull) then
  begin
    // 赋予默认值
   DBEdit5.Text := '100';
  end;