Q&A
- DBGrid에서 지정 삭제하기
안녕하세요 고수님
새해 복 많이 받으세요..
며칠째 고민하고 물어도 보고 했는데 답이아나오네요..
전에도 한번 질문을 오렸는데 잘 안되네요…
DB : Paradox7, DBGrid사용, 버전 : 델파이 5
아래와 같이 프로그램을 했는데 장비이력을 등록 할 때는 잘 됩니다.
그런데 사용자가 지정한 이력을 삭제 할려고 하면 여러 개의 이력중에
첫번째로 등록된 이력이 먼저 삭제됩니다.
즉 지정한것과는 상관없이 등록된 순서에 따라 삭제된다는 거죠..
우찌 해야 할지 모르겠네요..고수님들의 도움을 부탁드립니다.
참고로 삭제 Procedure에서 Tabla1.Open;을 지워봤는데 에러가 뜨네요..
혹 Procedure 문제가 아닐 수 도 있다는 생각이 들긴 하는데 잘 모라서...히히히
즐거운 프로그램 하시고 새해 복 많이 받으세요…
//장비이력을 등록하는 이벤트(popup Menu)
procedure TForm1.N8Click(Sender: TObject);
var
CurDate : TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
StrID : string;
begin
CurDate := Now;
DecodeDate(CurDate, Year, Month, Day);
DecodeTime(CurDate, Hour, Min, Sec, MSec);
StrID := IntToStr(Year) + IntToStr(Month) + IntToStr(Day) +
IntToStr(Hour) + IntToStr(Min) + IntToStr(Sec);
Table1.Open;
Table1.Append;
if Form3.ShowModal = mrOK then
if Form1.Table1.FieldByName('SuperNo').Asstring ='' then
showmessage('관리번호를 입력 하세요')
else begin
Table1.FieldByName('id').AsString := StrID
end;
Table1.Post;
Query1.Close;
Query1.Open;
Table1.Close;
end;
// 등록된 이력을 삭제하는 이벤트 Procedure (Popup Menu)
procedure TForm1.N9Click(Sender: TObject);
begin
if Query1.FieldByName('Id').AsString = '' then exit;
if MessageDlg('확실합니까?',mtConfirmation, mbOKCanCel, 0) = mrOK then
begin
Table1.Open; // 맨 마지막 행을 지정한다는 말이 있어 지워봤는데
// Error가 뜹니다.
Table1.Delete;
Query1.Close;
Query1.Open;
end;
end;
새해 복 많이 받으세요..
며칠째 고민하고 물어도 보고 했는데 답이아나오네요..
전에도 한번 질문을 오렸는데 잘 안되네요…
DB : Paradox7, DBGrid사용, 버전 : 델파이 5
아래와 같이 프로그램을 했는데 장비이력을 등록 할 때는 잘 됩니다.
그런데 사용자가 지정한 이력을 삭제 할려고 하면 여러 개의 이력중에
첫번째로 등록된 이력이 먼저 삭제됩니다.
즉 지정한것과는 상관없이 등록된 순서에 따라 삭제된다는 거죠..
우찌 해야 할지 모르겠네요..고수님들의 도움을 부탁드립니다.
참고로 삭제 Procedure에서 Tabla1.Open;을 지워봤는데 에러가 뜨네요..
혹 Procedure 문제가 아닐 수 도 있다는 생각이 들긴 하는데 잘 모라서...히히히
즐거운 프로그램 하시고 새해 복 많이 받으세요…
//장비이력을 등록하는 이벤트(popup Menu)
procedure TForm1.N8Click(Sender: TObject);
var
CurDate : TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
StrID : string;
begin
CurDate := Now;
DecodeDate(CurDate, Year, Month, Day);
DecodeTime(CurDate, Hour, Min, Sec, MSec);
StrID := IntToStr(Year) + IntToStr(Month) + IntToStr(Day) +
IntToStr(Hour) + IntToStr(Min) + IntToStr(Sec);
Table1.Open;
Table1.Append;
if Form3.ShowModal = mrOK then
if Form1.Table1.FieldByName('SuperNo').Asstring ='' then
showmessage('관리번호를 입력 하세요')
else begin
Table1.FieldByName('id').AsString := StrID
end;
Table1.Post;
Query1.Close;
Query1.Open;
Table1.Close;
end;
// 등록된 이력을 삭제하는 이벤트 Procedure (Popup Menu)
procedure TForm1.N9Click(Sender: TObject);
begin
if Query1.FieldByName('Id').AsString = '' then exit;
if MessageDlg('확실합니까?',mtConfirmation, mbOKCanCel, 0) = mrOK then
begin
Table1.Open; // 맨 마지막 행을 지정한다는 말이 있어 지워봤는데
// Error가 뜹니다.
Table1.Delete;
Query1.Close;
Query1.Open;
end;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 장임더
- 2001.01.30 00:07
- 0 COMMENTS
- /
- 0 LIKES
-
-
-
박서규•2001.01.30 03:24hnc wrote: > 파일 쓰기(WRITELN)에서 > 특정 위치부터 쓸려고 합니다 > 에를들어 5칼럼부터 3자리쓰다...
-
-
- 과객
- •
- 2001.01.29 23:41
- 1 COMMENTS
- /
- 0 LIKES
-
과객•2001.01.30 00:27과객 wrote: > 폼에는 상태바를 하나 있습니다. > 그런데 폼의 사이드를 누른 상태에서 폼 width size를 ...
-
- 이동현
- 2001.01.29 23:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 아기코알라
- •
- 2001.01.29 22:36
- 1 COMMENTS
- /
- 0 LIKES
안녕하세요 고수님 새해 복 많이 받으세요.. 며칠째 고민하고 물어도 보고 했는데 답이아나오네요.. 전에도 한번 질문을 오렸는데 잘 안되네요… DB : Paradox7, DBGrid사용, 버전 : 델파이 5 아래와 같이 프로그램을 했는데 장비이력을 등...-
얀•2001.01.29 23:21아기코알라 wrote: > 안녕하세요 고수님 > 새해 복 많이 받으세요.. > 며칠째 고민하고 물어도 보고 했...
-
- sonwow
- •
- 2001.01.29 22:11
- 1 COMMENTS
- /
- 0 LIKES
-
왕초•2001.01.30 01:16아래소스는 최수영님이 팁모아에 올리신 소스입니다.... 참고하시길... Selection.Formula[0] => 요...
-
- 김정균
- •
- 2001.01.29 21:47
- 3 COMMENTS
- /
- 0 LIKES
-
강호규•2001.01.29 22:29김정균 wrote: > 안녕하세요. > 델파이는 처음 써보는 사람입니다. > 본의 아니게 델파이로 프로그램을 ...
-
김정균•2001.01.30 00:16강호규 wrote: > 김정균 wrote: > > 안녕하세요. > > 델파이는 처음 써보는 사람입니다. > > 본의 아니...
-
아폴론•2001.01.30 22:55> > 버튼을 한번 클릭하면 입력이 안되다가 > 버튼을 다시 한번 클릭하면 키 바이올레이션 에러가 나면...
-
- 김세진
- 2001.01.29 21:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 김성진
- 2001.01.29 21:25
- 0 COMMENTS
- /
- 0 LIKES
-
- jin
- •
- 2001.01.29 21:16
- 4 COMMENTS
- /
- 0 LIKES
-
friggacho•2001.01.29 21:35이렇게 고쳐 보세요... SQL.ADD('select DutyNumber, Amount from ''DBName'' '); jin wrote: > var DBN...
-
jin•2001.01.29 22:03jin wrote: 안돼요~~TT DBName를 변수가 아닌 DB명으로 해석하는데요~ 어떻케 하나요??? ToT ...
-
강호규•2001.01.29 22:26사용하고 계신 데이터베이스의 종류에 따라 약간씩 문법이 다를 수 있습니다. 아래는 파라독스 로컬 버젼...
-
jin•2001.01.29 22:54고맙습니다.
-
- 진상필
- •
- 2001.01.29 21:13
- 1 COMMENTS
- /
- 0 LIKES
-
모름이•2001.01.29 22:37진상필 wrote: > 델파이에서 만든 프로그램중 어떤 버튼을 클릭했을 때 다른 어플리케이션을 실행시켜주는...
-
- 델초보
- 2001.01.29 21:04
- 0 COMMENTS
- /
- 0 LIKES
-
- peritus
- •
- 2001.01.29 20:25
- 1 COMMENTS
- /
- 0 LIKES
-
박서규•2001.01.30 03:46peritus wrote: > 에디트박스의 데이타를 클립보드에 저장하려고 하여 > Edit1.CopyToClipboard;를 써봤...
-
-
- 왕초보여요
- 2001.01.29 20:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 정승욱
- •
- 2001.01.29 20:20
- 1 COMMENTS
- /
- 0 LIKES
-
김광섭•2001.01.29 20:36정승욱 wrote: > 여러가지 에디터에보면 그냥 에디터만 띄우면 빈 창도 하나 뜨잖아요. > > 그런식으로...
-
- sis7
- •
- 2001.01.29 21:02
- 4 COMMENTS
- /
- 0 LIKES
-
김재억•2001.01.29 23:06일단 제가 그냥 해당 노드의 Child중에 같은 Child노드가 있는지 검색하는 것을 대충 만들어봤습니다. 아래...
-
sis7•2001.01.30 19:55안녕하세요. 먼저 귀중한 시간을 할애하셔서 도움을 주셔서 감사드려요. 아무도 답변을 해주지않으면 ...
-
신호성•2001.01.29 22:47말씀하신것 처럼 같은 텍스트값을 갇는 노드가 존재하기 때문에 트리항목을 검색할때 레벨에 따라 찾는 방...
-
sis7•2001.01.30 19:44안녕하세요. 우선 바쁘신 중에도 얼굴도 이름도 모르는 제게 시간을 할애해서 답변해주셔서 진심으로 ...
-
- 빙구
- 2001.01.29 19:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이 궁금이가 ....
- 2001.01.29 19:49
- 0 COMMENTS
- /
- 0 LIKES
> 안녕하세요 고수님
> 새해 복 많이 받으세요..
> 며칠째 고민하고 물어도 보고 했는데 답이아나오네요..
> 전에도 한번 질문을 오렸는데 잘 안되네요…
>
> DB : Paradox7, DBGrid사용, 버전 : 델파이 5
>
> 아래와 같이 프로그램을 했는데 장비이력을 등록 할 때는 잘 됩니다.
> 그런데 사용자가 지정한 이력을 삭제 할려고 하면 여러 개의 이력중에
> 첫번째로 등록된 이력이 먼저 삭제됩니다.
> 즉 지정한것과는 상관없이 등록된 순서에 따라 삭제된다는 거죠..
> 우찌 해야 할지 모르겠네요..고수님들의 도움을 부탁드립니다.
>
> 참고로 삭제 Procedure에서 Tabla1.Open;을 지워봤는데 에러가 뜨네요..
> 혹 Procedure 문제가 아닐 수 도 있다는 생각이 들긴 하는데 잘 모라서...히히히
>
> 즐거운 프로그램 하시고 새해 복 많이 받으세요…
>
>
>
> //장비이력을 등록하는 이벤트(popup Menu)
> procedure TForm1.N8Click(Sender: TObject);
>
> var
> CurDate : TDateTime;
> Year, Month, Day, Hour, Min, Sec, MSec: Word;
> StrID : string;
>
> begin
> CurDate := Now;
> DecodeDate(CurDate, Year, Month, Day);
> DecodeTime(CurDate, Hour, Min, Sec, MSec);
> StrID := IntToStr(Year) + IntToStr(Month) + IntToStr(Day) +
> IntToStr(Hour) + IntToStr(Min) + IntToStr(Sec);
> Table1.Open;
> Table1.Append;
> if Form3.ShowModal = mrOK then
> if Form1.Table1.FieldByName('SuperNo').Asstring ='' then
> showmessage('관리번호를 입력 하세요')
> else begin
> Table1.FieldByName('id').AsString := StrID
> end;
> Table1.Post;
> Query1.Close;
> Query1.Open;
> Table1.Close;
> end;
>
> // 등록된 이력을 삭제하는 이벤트 Procedure (Popup Menu)
> procedure TForm1.N9Click(Sender: TObject);
> begin
> if Query1.FieldByName('Id').AsString = '' then exit;
> if MessageDlg('확실합니까?',mtConfirmation, mbOKCanCel, 0) = mrOK then
> begin
> Table1.Open; // 맨 마지막 행을 지정한다는 말이 있어 지워봤는데
> // Error가 뜹니다.
> Table1.Delete;
> Query1.Close;
> Query1.Open;
> end;
>
> end;
>
----------------------------------------------------------------------------------
답변
----------------------------------------------------------------------------------
- DBGRID에서 테이블과 TABLE1을 이용한 테이블이 같다면
TABLE1.OPEN;
TABLE1.LOCATE(필드명, 값); //또는 FIND문을 이용해서 선택된 레코드로 이동후 삭제
- 참고로 TABLE을 이용한 삽입이나 삭제는 참 어리석은 짓입니다.
만약 등록된 데이타가 많다면 TABLE오픈시 ALL SELECT 하기되면에 많은 시간이
지체됨(트라젝션이나 롤백시 테이블을 이용하면 불가능)
- 쿼리 컴퍼넌트를 이용해서 DBGRID를 이용시는 UpdateSQL 컴퍼넌트를 이용하세요
참편하게 코딩을 할수가 있습니다.
- 마지막으로 가장많이 쓰는 방법은 쿼리를 이용해서 SQL문을 날려서 삭제나 삽입하는
방법이 가장 안전한 방법입니다......
열심히 해보시요.........노력하는 모습이 보이것같군요^_^