안녕하세요 델파이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.
|