Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[11347] DB질문입니다~^^
이장훈 [] 1406 읽음    2007-05-29 15:15
안녕하세요 델파이5.0으로  한창 공부하는 학생입니다.

DB를 하는중인대요. DB는 paradox7로 했구요

필드는 3개 만들어 보았어요

class      Irum      jumin    이렇게 3개를 만들었구요

DataSource를 사용하지 않고  일반 에디터에서 db자료가 출력 대게 하는건대요

Edit에서는 나오는대 first,next,prior 메소드가 일반 버튼에서 먹히게 할려면 어떻게 해야대나요?

대충소스는 이러합니다

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, DBTables;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Table1: TTable;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  with table1 do
  begin
    edit1.Text := intToStr(fieldbyname('ban').AsInteger);
    edit2.Text := fieldbyname('irum').AsString;
    edit3.Text := fieldbyname('jumin').AsString;
  end;
end;

여기가 table객체 수준에 있는 next메서드를 활용하는 부분입니다.

procedure TForm1.Button1Click(Sender: TObject);
begin
  table1. 머라 적어 줘야대나요 ?ㅡㅡ;
end;

end.

+ -

관련 글 리스트
11347 DB질문입니다~^^ 이장훈 1406 2007/05/29
11348     Re:DB질문입니다~^^ civilian,안영제 1489 2007/05/29
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.