delphi DBNaVigator 구성 요소 사용 방법
바늘의 앞뒤 이동,'삭제, 현재 기록 수정 등 조작을 삽입하고 프로그램 코드를 작성할 필요가 없다.
1. DBNavigator 구성 요소 버튼 기능First 버튼은 데이터 테이블의 첫 번째 기록으로 포인터를 이동합니다.Previous 버튼 포인터를 레코드 앞으로 이동o Next 버튼 포인터를 뒤로 이동합니다.Last 버튼은 데이터 테이블의 마지막 레코드로 포인터를 이동합니다.Insert 버튼은 현재 레코드 앞에 새 레코드를 삽입하고 데이터 세트 구성 요소를 삽입합니다.Delete 버튼은 현재 레코드를 삭제합니다.Edit 버튼은 데이터 세트를 편집 상태로 설정합니다.Post 버튼은 현재 레코드에 대한 수정 사항을 커밋합니다.Cancel 버튼은 현재 레코드의 수정을 취소합니다.Refresh 버튼은 데이터 조회 구성 요소의 디스플레이 버퍼를 지우고 연결된 데이터 세트 구성 요소의 기록으로 디스플레이 버퍼를 새로 고칩니다.
2. 주요 속성
(1) VisibleButtons 속성 DBNavigator 구성 요소의 단추를 숨기거나 표시하는 데 사용됩니다.이 속성 앞에 있는 "+"기호를 클릭하면 여러 하위 속성이 나타납니다.
nbFirst、nbPrior、nbNext、nbLast、nbAdd、nb’Delete、mbEdit、nbPost、nbCancel、nbRefresh.선택 항목
하위 속성이 True이면 해당 버튼이 표시되고 하위 속성이 False인 경우 해당 버튼이 숨겨집니다.예를 들어 조회 시스템에서
4개의 버튼인 First, Prior, Next, Last만 있으면 됩니다. 이때 처음 4개의 하위 속성은 True로 설정하고 나머지 속성은 False로 설정하면 됩니다.
(2) ShowHint 속성ShowHint 속성 값이true이면 DBNavigator 구성 요소의 각 단추에 대한 동적 알림 정보를 표시합니다.값은 False입니다.
DBNavigator 구성 요소의 각 버튼에 대한 동적 프롬프트가 표시되지 않습니다.
(3) Hints 속성 Hints 속성은 DBNavigator 구성 요소의 각 버튼에 대한 동적 프롬프트 정보를 설정하는 데 사용됩니다."rString 오른쪽에 있는 생략 버튼을 클릭합니다.
[첫 번째 레코드], [이전 레코드], [다음 레코드]와 같은 버튼에 대한 동적 힌트 정보를 입력하는 동적 힌트 정보 편집 상자에 들어갑니다.
레코드, 마지막 레코드 등 OK 버튼을 누른 후 ShowHint 속성을'lTrue'로 설정하면 프로그램이 실행된 후 마우스가 첫 번째
버튼에 있는 경우 첫 번째 레코드에 대한 동적 프롬프트가 표시됩니다.
(4) ConfirmDelete 이 속성 값이 True일 때 DBNavigator의 Delete 단추로 기록을 삭제하면 확인 알림이 있고 값이 False일 때 기록을 삭제하면 확인 알림이 없다.
3. 일반적인 방법 및 이벤트
(1) OnClick 이벤트는 사용자가 DBNavigator 구성 요소의 단추를 눌렀을 때 이 이벤트를 터치합니다. 파라미터 Button은 사용자가 눌렀던 단추, 파라미터 Button을 나타냅니다.
수치는 nbFirst, nbPrior, nbNext, nbLast, nbInsert, nb'Delete, mbEdit, nbPostnbCancel, nbRefresh이다.
:
begin
Butt:=Button;
case Butt of
nbFirst:Edit7.Text:=’First’;
nbNext:Edit7.Text:=’Next’;
nbPrior:Edit7.Text:=’Prior’;
nbLast:Edit7.Text:=’Last’;
nbDelete:Edit7.Text::’Delete’;
end;
end;
프로그램이 실행되면 DBNavigator의 처음 몇 개의 단추를 누르면 Edit7 구성 요소에 단추의 종류가 표시됩니다.
(2) BeforeAction 이벤트 DBNavigator 구성 요소의 단추를 눌렀지만 동작이 실행되기 전에 Button 파라미터는 사용자가 눌렀던 단추를 표시합니다.
예를 들어 DBNavigator의 Delete 단추를 눌렀을 때 중국어 대화상자 보이기
// DBNavigator BeforAction
procedure TForm1.DBNavigator1BeforeAction(Sender: TObject;
Button: TNavigateBtn);
begin
if Button=nbDelete then
begin
if MessageBox(Handle,' ?',' ',MB_YESNO or MB_ICONQUESTION)=ID_NO then
Abort
else begin
Adoquery1.Delete;
Abort;
end;
end;
end;
(3) DBNavigator 컨트롤 버튼이 중국어로 표시
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls;
type
TMyNavgator = class(TDBNavigator);
TForm1 = class(TForm)
DBNavigator1: TDBNavigator;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
TMyNavgator(DBNavigator1).Buttons[nbFirst].Caption:= ' ';
// TMyNavgator(DBNavigator1).Buttons[nbFirst].Glyph:=nil; //
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.
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
삭제 기능이 있는 React Slick Slider슬라이더는 웹 애플리케이션에서 이미지를 표시하는 가장 일반적이고 널리 사용되는 방법 중 하나입니다. 미리 만들어진 슬라이더를 사용하고 웹 사이트를 아름답게 만들 수 있는 많은 패키지가 있습니다. 오늘은 여기에서 re...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.