delphi DBNaVigator 구성 요소 사용 방법

DBNavigator 구성 요소는 데이터 집합에서 기록 내비게이션을 하는 데 사용되며, 사용자가 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. 



좋은 웹페이지 즐겨찾기