목차
1.속성
2.소스
3.폼
4.실행화면
2.소스
3.폼
4.실행화면
본문내용
e then
Table1.Open;
try
Table1.Insert;
Table1.FieldByName('Num').value:=strtoint(edtNum.text);
Table1.FieldByName('Name').value:=edtName.text;
Table1.FieldByName('PG').value:=strtoint(edtPG.text);
Table1.FieldByName('SG').value:=strtoint(edtSG.text);
Table1.Post;
Table1.Refresh;
except
showmessage('입력 중 에러 발생!');
end;
end;
procedure TForm1.btnDeleteClick(Sender: TObject);
begin
Table1.Delete;
end;
procedure TForm1.btnSearchClick(Sender: TObject);
var
Name:string;
begin
Table1.IndexFieldNames:='Name';
InputQuery('검색할 이름','검색할 이름을 입력하세요',Name);
Table1.FindNearest([Name]);
end;
end.
3.폼
4.실행화면
Table1.Open;
try
Table1.Insert;
Table1.FieldByName('Num').value:=strtoint(edtNum.text);
Table1.FieldByName('Name').value:=edtName.text;
Table1.FieldByName('PG').value:=strtoint(edtPG.text);
Table1.FieldByName('SG').value:=strtoint(edtSG.text);
Table1.Post;
Table1.Refresh;
except
showmessage('입력 중 에러 발생!');
end;
end;
procedure TForm1.btnDeleteClick(Sender: TObject);
begin
Table1.Delete;
end;
procedure TForm1.btnSearchClick(Sender: TObject);
var
Name:string;
begin
Table1.IndexFieldNames:='Name';
InputQuery('검색할 이름','검색할 이름을 입력하세요',Name);
Table1.FindNearest([Name]);
end;
end.
3.폼
4.실행화면
소개글