목차
1.속성
2.소스
3.폼
4.실행화면
2.소스
3.폼
4.실행화면
본문내용
ive 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.실행화면
소개글