Q&A
- 다이얼로그창 안닫히게(재 질문)
먼저 김영대님과 어린왕자님께 깊은 감사들 드립니다.
두분 말씀대로 OK Button의 Default 값을 False로 하고
Modal을 mrNone, mrYes등을 해 보았는데 다음과 같은 결과가 나옴니다.
결과
1. 창은 안닫히는데 입력된 데이타가 한번 이상 DB에 저장이 안되고
2. 창을 닫고 다시 입력하면 역시 한번 만 저장되고
3. 저장된 1개의 항목은 수정, 삭제가 안됩니다.
저의 생각은 창은 임의로 닫을 수 있는 버턴이 있고
창을 닫기 전까지는 계속해서 db에 저장할 수 있도록 되어야 하는데 잘 안되네요..
그래서 참고로 소스를 적어놓았어요..
아직 초보라 소스코드가 고수님들의 눈을 어지럽힌점을 깊히 사과드리옵나이다.
고수님들의 명쾌한 가르치심을 기다리겠나이다.
파라독스 db사용
// 데이타 등록하는 이벤트 Procedure
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
begin
if Form1.Table1.FieldByName('SuperNo').AsString ='' then
showmessage('관리번호를 입력 하세요')
else begin
Table1.FieldByName('id').asstring := StrID
end;
end;
end;
// 등록된 이력을 삭제하는 이벤트 Procedure
procedure TForm1.N9Click(Sender: TObject);
begin
if Form1.Table1.FieldByName('Id').Asstring = '' then exit;
if MessageDlg('확실합니까?',mtConfirmation, mbOKCanCel, 0) = mrOK then
begin
Table1.Open;
Table1.Delete;
Table1.Close;
Table1.Open;
end;
end;
// 등록된 이력을 수정하는 이벤트Procedure
procedure TForm1.N10Click(Sender: TObject);
begin
if form1.Table1.FieldByName('Id').Asstring ='' then exit;
Table1.Open;
Table1.Edit;
if form3.ShowModal = mrOK then begin
Table1.post;
end;
Table1.Close;
Table1.Open;
end;
두분 말씀대로 OK Button의 Default 값을 False로 하고
Modal을 mrNone, mrYes등을 해 보았는데 다음과 같은 결과가 나옴니다.
결과
1. 창은 안닫히는데 입력된 데이타가 한번 이상 DB에 저장이 안되고
2. 창을 닫고 다시 입력하면 역시 한번 만 저장되고
3. 저장된 1개의 항목은 수정, 삭제가 안됩니다.
저의 생각은 창은 임의로 닫을 수 있는 버턴이 있고
창을 닫기 전까지는 계속해서 db에 저장할 수 있도록 되어야 하는데 잘 안되네요..
그래서 참고로 소스를 적어놓았어요..
아직 초보라 소스코드가 고수님들의 눈을 어지럽힌점을 깊히 사과드리옵나이다.
고수님들의 명쾌한 가르치심을 기다리겠나이다.
파라독스 db사용
// 데이타 등록하는 이벤트 Procedure
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
begin
if Form1.Table1.FieldByName('SuperNo').AsString ='' then
showmessage('관리번호를 입력 하세요')
else begin
Table1.FieldByName('id').asstring := StrID
end;
end;
end;
// 등록된 이력을 삭제하는 이벤트 Procedure
procedure TForm1.N9Click(Sender: TObject);
begin
if Form1.Table1.FieldByName('Id').Asstring = '' then exit;
if MessageDlg('확실합니까?',mtConfirmation, mbOKCanCel, 0) = mrOK then
begin
Table1.Open;
Table1.Delete;
Table1.Close;
Table1.Open;
end;
end;
// 등록된 이력을 수정하는 이벤트Procedure
procedure TForm1.N10Click(Sender: TObject);
begin
if form1.Table1.FieldByName('Id').Asstring ='' then exit;
Table1.Open;
Table1.Edit;
if form3.ShowModal = mrOK then begin
Table1.post;
end;
Table1.Close;
Table1.Open;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 김교성
- 2000.10.16 21:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- 2000.10.16 21:07
- 0 COMMENTS
- /
- 0 LIKES
-
- delpo
- 2000.10.16 20:50
- 0 COMMENTS
- /
- 0 LIKES
-
- 정종필
- 2000.10.16 20:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 네로..
- •
- 2000.10.16 20:32
- 1 COMMENTS
- /
- 0 LIKES
-
한하눌•2000.10.17 02:24네로.. wrote: > 서머리밴드에 결과물 출력시. > > {페이지헤더} 영업잡명 | 상품명 | ...
-
- WaxZax
- 2000.10.16 20:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 최병련
- •
- 2000.10.16 19:36
- 1 COMMENTS
- /
- 0 LIKES
-
남기석•2000.10.17 10:10안녕하세요 청개구리 남기석입니다. 어떤 툴을 사용해서 EXPORT 하시는지요? 프로그램에서 구현하는...
-
- 오승호
- •
- 2000.10.16 19:17
- 1 COMMENTS
- /
- 0 LIKES
-
어린왕자•2000.10.17 18:31DB데이타를 StringGrid에 표시를 하시면.. DB를 소트하시면 되구요.. 아니면..저같은경우는 Listview를 씁...
-
- 바보
- 2000.10.17 21:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 델왕초보
- •
- 2000.10.16 17:38
- 1 COMMENTS
- /
- 0 LIKES
먼저 김영대님과 어린왕자님께 깊은 감사들 드립니다. 두분 말씀대로 OK Button의 Default 값을 False로 하고 Modal을 mrNone, mrYes등을 해 보았는데 다음과 같은 결과가 나옴니다. 결과 1. 창은 안닫히는데 입력된 데이타가 한번 이상 D...-
김영대•2000.10.16 19:49안녕하세여... 컴맹입니다. Source를 보니.. Append 문후에 Post 를 해주시지 않은것 같네여... TTab...
-
- 델팜
- 2000.10.16 11:03
- 0 COMMENTS
- /
- 0 LIKES
-
-
나도초보•2000.10.18 20:31저도 얼마전에 모뎀을 이용한 전송 프로그램을 개발했는데.. 별다른 문제없이 전송 잘 되었는데요.. ^^; ...
-
수페서•2000.10.19 02:14그럼 혹쉬 Cport콤포넌트 주실수 이써요? 그라공 힘드시겠지만... 소스 좀 주실수 없나요?? 아무래도...
-
-
- 이호진
- •
- 2000.10.16 08:10
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•2000.10.16 19:57이호진 wrote: > TWebBrowser에 보여지는 내용을 코딩으로 인쇄하는 방법을 알고 싶습니다. > 오른쪽 마...
-
- delpo
- •
- 2000.10.16 06:18
- 1 COMMENTS
- /
- 0 LIKES
-
델초보•2000.10.16 06:37'from 테이블명' 이 안보이네요..... delpo wrote: > 다음의 예문을 보아 주십시오. > 다음의 코딩...
-
- 이진우
- •
- 2000.10.16 05:32
- 2 COMMENTS
- /
- 0 LIKES
-
어린왕자•2000.10.18 01:12우편번호 다 넣는것두 막노동이겠죠^^; 어디엔가 자료가 있던데...그냥..심심해서.글올렸슴다. 이진우 wro...
-
강호규•2000.10.16 19:12이진우 wrote: > 제목 그대로 입니다... > 우편번호를 입력받아 어떤 지역인지 알아내는 공식 아시는 고...
-
- 델병아리
- •
- 2000.10.16 04:21
- 1 COMMENTS
- /
- 0 LIKES
-
아이언•2000.10.16 17:31전 아래와 같이 프로시져를 작성하여.. 쓰고 있습니다. 물론.. 직접 TEDIT1.Text := Table1.FieldbyName...
-
- yobone
- 2000.10.16 03:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 최의종
- 2000.10.16 02:27
- 0 COMMENTS
- /
- 0 LIKES
-
- parkisu
- 2000.10.16 02:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 엄청 초보
- 2000.10.16 01:08
- 0 COMMENTS
- /
- 0 LIKES
컴맹입니다.
Source를 보니..
Append 문후에 Post 를 해주시지 않은것 같네여...
TTable의 Insert,Append,Edit문은
Insert
.....// 구문
post
를 하셔야 합니다.
그리구 입력할때마다.. 오픈을 하게 되어 있는데..
별로 좋은방법은 아니네여...
그럴거면 차라리 쿼리를 쓰는게...
이만 줄이 겠습니다.
델왕초보 wrote:
> 먼저 김영대님과 어린왕자님께 깊은 감사들 드립니다.
>
> 두분 말씀대로 OK Button의 Default 값을 False로 하고
>
> Modal을 mrNone, mrYes등을 해 보았는데 다음과 같은 결과가 나옴니다.
>
> 결과
> 1. 창은 안닫히는데 입력된 데이타가 한번 이상 DB에 저장이 안되고
> 2. 창을 닫고 다시 입력하면 역시 한번 만 저장되고
> 3. 저장된 1개의 항목은 수정, 삭제가 안됩니다.
>
> 저의 생각은 창은 임의로 닫을 수 있는 버턴이 있고
> 창을 닫기 전까지는 계속해서 db에 저장할 수 있도록 되어야 하는데 잘 안되네요..
>
> 그래서 참고로 소스를 적어놓았어요..
> 아직 초보라 소스코드가 고수님들의 눈을 어지럽힌점을 깊히 사과드리옵나이다.
> 고수님들의 명쾌한 가르치심을 기다리겠나이다.
>
> 파라독스 db사용
>
>
> // 데이타 등록하는 이벤트 Procedure
> 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
> begin
> if Form1.Table1.FieldByName('SuperNo').AsString ='' then
> showmessage('관리번호를 입력 하세요')
>
> else begin
> Table1.FieldByName('id').asstring := StrID
>
> end;
> end;
> end;
>
> // 등록된 이력을 삭제하는 이벤트 Procedure
> procedure TForm1.N9Click(Sender: TObject);
> begin
> if Form1.Table1.FieldByName('Id').Asstring = '' then exit;
>
> if MessageDlg('확실합니까?',mtConfirmation, mbOKCanCel, 0) = mrOK then
> begin
> Table1.Open;
> Table1.Delete;
> Table1.Close;
> Table1.Open;
> end;
> end;
>
> // 등록된 이력을 수정하는 이벤트Procedure
> procedure TForm1.N10Click(Sender: TObject);
> begin
> if form1.Table1.FieldByName('Id').Asstring ='' then exit;
> Table1.Open;
> Table1.Edit;
> if form3.ShowModal = mrOK then begin
> Table1.post;
> end;
> Table1.Close;
> Table1.Open;
>
> end;
>
>