mynaveh.pas

水电管理系统,你们不妨看看怎么样?我再继续给你们别的

//功能：给导航按钮写汉语提示
//
//时间: 2003-10-2
//编写：王红权
// Gansu Centen

unit MyNavEh;

interface
Uses classes, windows, DBCtrls, db;

type
  TMyDBNavigator = class(TDBNavigator)
  Private
    Procedure SetstrCaption;
  public
    constructor Create(AOwner: TComponent); override;
    procedure BtnClick(Index:TNavigateBtn);override;
  end;

implementation

var
  strCaption: array[0..9] of string = ('第一条','上一条','下一条','末一条',
                                       '添加','删除','编辑','提交','取消','刷新');
{ MyDBNavigator }

procedure TMyDBNavigator.BtnClick(Index: TNavigateBtn);
begin
  if (DataSource <> nil) and (DataSource.State <> dsInactive) then
  begin
    if not (csDesigning in ComponentState)  then
    with DataSource.DataSet do
    begin
      case Index of
        nbPrior: Prior;
        nbNext: Next;
        nbFirst: First;
        nbLast: Last;
        nbInsert: Insert;
        nbEdit: Edit;
        nbCancel: Cancel;
        nbPost: Post;
        nbRefresh: Refresh;
        nbDelete:
        begin
          if MessageBox(Handle,'您确认要删除这条记录吗？','警告',
            MB_OKCANCEL or MB_ICONWARNING) = id_OK
          then Delete;
        end;
      end;
    end;
  end;
end;

constructor TMyDBNavigator.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  SetstrCaption;
end;

procedure TMyDBNavigator.SetstrCaption;
var
  I: TNavigateBtn;
  K: Integer;
begin
  k := 0;
  for I := Low(Buttons) to High(Buttons) do
  begin
    Buttons[I].Caption := strCaption[K];
    Inc(K);
  end;
END;

end.