Q&A
- 소스좀 봐줘여..
procedure Tdata.ok1Click(Sender: TObject);
var i : integer;
begin
for i:=0 to self.ComponentCount-1 do
begin
if (self.Components[i]) is TDBEdit and
((self.Components[i] as TDBEdit).Tag=1) then
begin
if Length((self.Components[i] as TDBEdit).Text)<=0 then
begin
showmessage('입력되지않은곳이 있습니다');
(self.Components[i] as TDBEdit).SetFocus;
Exit;
end
else main.lotno_sh.Text:=lotno.Text+'-'+lotse.Text;
end;
if (self.Components[i]) is TDBCombobox and
((self.Components[i] as TDBCombobox).Tag=1) then
begin
if Length((self.Components[i] as TDBCombobox).Text)<=0 then
begin
showmessage('입력되지않은곳이 있습니다');
(self.Components[i] as TDBCombobox).SetFocus;
Exit;
end
else
begin
main.devicesel_sh.Text:=devicesel.Text;
main.interval_sh.Text:=interval.Text;
main. chips_sh.Text:=chips.Text;
main.machine_sh.Text:=machine.Text;
close;
end;
machinetbl.Append;
machinetbl.FieldByName('Lot_num').asstring:=lotno.Text;
machinetbl.FieldByName('Device').asstring:=devicesel.Text;
machinetbl.FieldByName('Lot_serial').asstring:=lotse.Text;
machinetbl.FieldByName('Chipsize').asstring:=chips.Text;
machinetbl.FieldByName('검사수준').asstring:=interval.Text;
machinetbl.FieldByName('장비번호').asstring:=machine.Text;
machinetbl.Post;
end;
end;
{ with data.FindComponent('check_group') as TDBCheckbox do
for i := 0 to self.ComponentCount-1 do
begin
if self.ComponentCount<1 then begin
showmessage('no input');
(self.Components[i] as TDBCheckbox).SetFocus;
end;
end; }
//위에껀 체크박스가 다섯개가 있는데..이중 한개이상은 꼭 체크해야되여..
//근데 어떻게 해줘야될지 몰라서 그냥 놔둔거구여...
if machine.text='A' then begin
main.ma_abtn.caption:='A On';
end;
end;
실행을 시키면 다 입력해줬는데두 입력되지않은곳이 있다는 메세지가 계속 떠서여..
어디가 잘못된건지..좀봐줘여..
var i : integer;
begin
for i:=0 to self.ComponentCount-1 do
begin
if (self.Components[i]) is TDBEdit and
((self.Components[i] as TDBEdit).Tag=1) then
begin
if Length((self.Components[i] as TDBEdit).Text)<=0 then
begin
showmessage('입력되지않은곳이 있습니다');
(self.Components[i] as TDBEdit).SetFocus;
Exit;
end
else main.lotno_sh.Text:=lotno.Text+'-'+lotse.Text;
end;
if (self.Components[i]) is TDBCombobox and
((self.Components[i] as TDBCombobox).Tag=1) then
begin
if Length((self.Components[i] as TDBCombobox).Text)<=0 then
begin
showmessage('입력되지않은곳이 있습니다');
(self.Components[i] as TDBCombobox).SetFocus;
Exit;
end
else
begin
main.devicesel_sh.Text:=devicesel.Text;
main.interval_sh.Text:=interval.Text;
main. chips_sh.Text:=chips.Text;
main.machine_sh.Text:=machine.Text;
close;
end;
machinetbl.Append;
machinetbl.FieldByName('Lot_num').asstring:=lotno.Text;
machinetbl.FieldByName('Device').asstring:=devicesel.Text;
machinetbl.FieldByName('Lot_serial').asstring:=lotse.Text;
machinetbl.FieldByName('Chipsize').asstring:=chips.Text;
machinetbl.FieldByName('검사수준').asstring:=interval.Text;
machinetbl.FieldByName('장비번호').asstring:=machine.Text;
machinetbl.Post;
end;
end;
{ with data.FindComponent('check_group') as TDBCheckbox do
for i := 0 to self.ComponentCount-1 do
begin
if self.ComponentCount<1 then begin
showmessage('no input');
(self.Components[i] as TDBCheckbox).SetFocus;
end;
end; }
//위에껀 체크박스가 다섯개가 있는데..이중 한개이상은 꼭 체크해야되여..
//근데 어떻게 해줘야될지 몰라서 그냥 놔둔거구여...
if machine.text='A' then begin
main.ma_abtn.caption:='A On';
end;
end;
실행을 시키면 다 입력해줬는데두 입력되지않은곳이 있다는 메세지가 계속 떠서여..
어디가 잘못된건지..좀봐줘여..
4
COMMENTS
-
-
하얀까마귀 wrote:
> 안녕하세요 하얀까마귀 입니다..
>
> 소스에서는 tag가 1인 에디트와 콤보는 다 첵크하게 되어 있는데...
>
> 메세지가 보인다음.. 에러난 곳으로 이동 하지 않아요???
>
> 그 이동하는걸 보시면 될것 같은데..음.. 잘 모르겠다...
>
> 그리고 그룹으로 묶여 있는 첵크박스5개.. 그냥 if문 쓰면 되죠...
>
> 첵크박스 이름이 chBox1..5라면
>
> if not (chBox1.Checked and chBox2.Checked and chBox3.Checked ....
> chBox5.Checked ) then
> begin
> showmessage('야 하나 찍어.. ');
> chBox1.SetFocus;
> Exit;
> end;
>
if not(po_check.Checked and color_check.Checked and vr_check.Checked
and vf_check.Checked and thy_check.Checked) then
begin
showmessage('야 하나 찍어.. ');
po_check.SetFocus;
Exit;
end
else exit;
요렇게 했습니다..
이것의 위치는 for문이 끝난다음에 넣어거든여..?
음..근데여..
위와같이 if문을 써서 해 -
안녕하세요 하얀까마귀 입니다..
허거걱...
죄송... if not ( .. and .. and... ) then
이 아니라.. or 입니다. 지송.. 이런 한심한....
그럴수도 있지 하고.. 너그러이 용서를 해 주시길..
그리고 반 투명하게 되는건 아마 dbCheckbox를사용하신것 같은데...
이럴경우 디비에 값이 없는경우 null인경우나 맞지 않는경우에 발생합니다..
초기값을 주면 생기지 않습니다..
그럼.. 다시한번 죄송합니다..
즐거운시간 되세요..
- 하얀까마귀 -
heimdal wrote:
> 하얀까마귀 wrote:
> > 안녕하세요 하얀까마귀 입니다..
> >
> > 소스에서는 tag가 1인 에디트와 콤보는 다 첵크하게 되어 있는데...
> >
> > 메세지가 보인다음.. 에러난 곳으로 이동 하지 않아요???
> >
> > 그 이동하는걸 보시면 될것 같은데..음.. 잘 모르겠다...
> >
> > 그리고 그룹으로 묶여 있는 첵크박스5개.. 그냥 if문 쓰면 되죠...
> >
> > 첵크박스 이름이 chBox1..5라면
> >
> > if not (chBox1.Checked and chBox2.Checked and chBox3.Checked ....
> > chBox5.Checked ) then
> > begin
> > showmessage('야 하나 찍어.. ');
> > chBox1.SetFocus;
> > Exit;
> > end;
> >
>
> if not(po_check.Checked and color_check.Checked and vr_check.Checked
> and vf_check.Checked and thy_check.Checked) then
> begin
> showmessage('야 하나 찍어.. ');
> po_check.SetFocus;
> Exit;
> end
> else exit;
> 요렇게 했습니다..
> 이것의 위치는 for문이 끝난다음에 넣어거든여..?
> 음..근데여..
> 위와같이 if문을 써서 해 -
소스를 봐서는 모르겠고
디버깅을 하죠
먼저 입력되지 않은것이 TDBEdit인지 아님 TDBCombobox인지
확인을 하고
메세지를 보여주기전에 i값을 읽어오면
어떤것인지 알 수 있지 않을까요.
어디에 하나 숨겨 놓은거 아니에요. 그런 실수를 한적이 있어서...
수곱...
heimdal wrote:
> procedure Tdata.ok1Click(Sender: TObject);
> var i : integer;
> begin
> for i:=0 to self.ComponentCount-1 do
> begin
> if (self.Components[i]) is TDBEdit and
> ((self.Components[i] as TDBEdit).Tag=1) then
> begin
> if Length((self.Components[i] as TDBEdit).Text)<=0 then
> begin
> showmessage('입력되지않은곳이 있습니다');
> (self.Components[i] as TDBEdit).SetFocus;
> Exit;
> end
> else main.lotno_sh.Text:=lotno.Text+'-'+lotse.Text;
> end;
> if (self.Components[i]) is TDBCombobox and
> ((self.Components[i] as TDBCombobox).Tag=1) then
> begin
> if Length((self.Components[i] as TDBCombobox).Text)<=0 then
> begin
> showmessage('입력되지않은곳이 있습니다');
> (self.Components[i] as TDBCombobox).SetFocus;
> Exit;
> end
> else
> begin
> main.devicesel_sh.Text:=devicesel.Text;
> main.interval_sh.Text:=interval.Text;
> main. chips_sh.Text:=chips.Text;
> main.machine_sh.Text:=machine.Text;
> close;
> end;
> machinetbl.Append;
> machinetbl.FieldByName('Lot_num').asstring:=lotno.Text;
> machinetbl.FieldByName('Device').asstring:=devicesel.Text;
> machinetbl.FieldByName('Lot_serial').asstring:=lotse.Text;
> machinetbl.FieldByName('Chipsize').asstring:=chips.Text;
> machinetbl.FieldByName('검사수준').asstring:=interval.Text;
> machinetbl.FieldByName('장비번호').asstring:=machine.Text;
> machinetbl.Post;
> end;
> end;
> { with data.FindComponent('check_group') as TDBCheckbox do
> for i := 0 to self.ComponentCount-1 do
> begin
> if self.ComponentCount<1 then begin
> showmessage('no input');
> (self.Components[i] as TDBCheckbox).SetFocus;
> end;
> end; }
> //위에껀 체크박스가 다섯개가 있는데..이중 한개이상은 꼭 체크해야되여..
> //근데 어떻게 해줘야될지 몰라서 그냥 놔둔거구여...
> if machine.text='A' then begin
> main.ma_abtn.caption:='A On';
> end;
> end;
>
> 실행을 시키면 다 입력해줬는데두 입력되지않은곳이 있다는 메세지가 계속 떠서여..
> 어디가 잘못된건지..좀봐줘여..
(NOTICE) You must be logged in to comment on this post.
-
- 김성욱
- 2000.06.14 00:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 전준형
- •
- 2000.06.14 00:15
- 1 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.06.14 18:30안녕하세여..타락임다..^^ 에러의미가 RCVDATA.EXE라는 프로그램 모듈 안에서 무언가 읽거나 쓸려는...
-
- 초보자
- •
- 2000.06.14 00:08
- 3 COMMENTS
- /
- 0 LIKES
-
한창희•2000.06.14 10:36초보자 wrote: > Delphi 5.0 사용자로서 Db는 파라독스로 사용하구요. > 음............. > 바로 본론으...
-
까마귀•2000.06.14 01:54초보자 wrote: > Delphi 5.0 사용자로서 Db는 파라독스로 사용하구요. > 음............. > 바로 본론으...
-
모승열•2000.06.14 01:41로컬디비랑 똑같습니다. 단지 데이타가 잘 깨지는 문제 때문에 모두들 피하는거죠. 알리아스를 서버로 잡...
-
- 정우석
- •
- 2000.06.14 00:04
- 1 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.06.14 18:37안녕하세여.. 타락임다..ㅠㅠ 제 생각으론 ..님 생각은.. 에러와 예외를 생각하신거 같은데...ㅠㅠ ...
-
- 준희
- •
- 2000.06.13 23:33
- 1 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.06.13 23:51안녕하세요 하얀까마귀 입니다.. 지금 말씀하신게 폼위에 리포트를 올렸을때와 그냥 리포트만 썼을때 왜...
-
- 사발우성
- •
- 2000.06.13 23:18
- 2 COMMENTS
- /
- 0 LIKES
-
까마귀•2000.06.14 02:48사발우성 wrote: > 고수님들 inner join 에 관해서 질문임당.... > > 넘어려워서리...ㅠ.ㅠ > > ...
-
하얀까마귀•2000.06.13 23:45안녕하세요 하얀까마귀 입니다... 조인은 두개이상의 테이블에서 연관된 데이타를 찾는 겁니다.. 음.. ....
-
- heimdal
- •
- 2000.06.13 23:09
- 4 COMMENTS
- /
- 0 LIKES
procedure Tdata.ok1Click(Sender: TObject); var i : integer; begin for i:=0 to self.ComponentCount-1 do begin if (self.Components[i]) is TDBEdit and ((self.Components[i] as TDBEdit).Tag=1) then begin if Length((self.Compon...-
하얀까마귀•2000.06.13 23:32안녕하세요 하얀까마귀 입니다.. 소스에서는 tag가 1인 에디트와 콤보는 다 첵크하게 되어 있는데... ...
-
heimdal•2000.06.14 00:36하얀까마귀 wrote: > 안녕하세요 하얀까마귀 입니다.. > > 소스에서는 tag가 1인 에디트와 콤보는 다 ...
-
하얀까마귀•2000.06.14 08:37안녕하세요 하얀까마귀 입니다.. 허거걱... 죄송... if not ( .. and .. and... ) then 이 아니라...
-
서경환•2000.06.13 23:16소스를 봐서는 모르겠고 디버깅을 하죠 먼저 입력되지 않은것이 TDBEdit인지 아님 TDBCombobox인지 확인...
-
- 어린왕자
- 2000.06.13 22:52
- 0 COMMENTS
- /
- 0 LIKES
-
- heimdal
- •
- 2000.06.13 22:43
- 1 COMMENTS
- /
- 0 LIKES
-
서경환•2000.06.13 23:20당연히 디비에 연결이 되어있기 때문에 가져오는게 당연하지요 디비에디트박스의 내용을 지운다는것이 입...
-
- 김창규
- •
- 2000.06.13 22:18
- 1 COMMENTS
- /
- 0 LIKES
-
서경환•2000.06.13 23:23위의 소스만 봐서는 모르겠고 혹시 테이블을 오픈을 하지 않어서 그런거 아닐까요 실행을 시키지 마시고 ...
-
- 신지꾸
- •
- 2000.06.13 21:26
- 1 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.06.13 23:06안녕하세요 하얀까마귀 입니다.. 먼저 서버쪽 설정부터 하시구요... 서버에 프로그램 깔고.. 디비 만...
-
- 초보
- 2000.06.13 21:24
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 정우석
- •
- 2000.06.13 19:54
- 4 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.06.13 21:20안녕하세요 하얀까마귀 입니다.. 상관없는데요... dm이 몇개이든간에. tdb는 한개만 있으면 됩니다.....
-
정우석•2000.06.14 00:00다시 질문합니다. DM_1 에 있는 DBNAME은 DM_2에서 볼 수 없습니다. DM_2에서는 단지 BDE에 있는 Alias만...
-
하얀까마귀•2000.06.14 08:46안녕하세요 하얀까마귀 입니다.. TDataBase에 설정하신 DataBaseName을 쓰셔도 되고.. 또한 TDataBase에...
-
정우석•2000.06.14 18:46답변 감사드리며 다시 질문드리겠습니다... 제 경우를 자세히 말씀드리면 상황에 따라 DS를 쓸때 DBNAME...
-
- 초보
- 2000.06.13 19:48
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보에서벗어나자
- •
- 2000.06.13 19:41
- 1 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.06.13 22:15안녕하세요 하얀까마귀 입니다.. 맞네요 if문이 잘못되었습니다.. if 조건1 then begin 실행1 ...
-
- 먼지
- 2000.06.13 19:19
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 허브
- 2000.06.13 19:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 이은경
- •
- 2000.06.13 19:04
- 1 COMMENTS
- /
- 0 LIKES
-
nilriri•2000.06.13 19:17한델자료실에 가시면 날짜/시간계산프로그램이 있는것 같더군요 그걸 참고하시면 될것같습니다. http:/...
소스에서는 tag가 1인 에디트와 콤보는 다 첵크하게 되어 있는데...
메세지가 보인다음.. 에러난 곳으로 이동 하지 않아요???
그 이동하는걸 보시면 될것 같은데..음.. 잘 모르겠다...
그리고 그룹으로 묶여 있는 첵크박스5개.. 그냥 if문 쓰면 되죠...
첵크박스 이름이 chBox1..5라면
if not (chBox1.Checked and chBox2.Checked and chBox3.Checked ....
chBox5.Checked ) then
begin
showmessage('야 하나 찍어.. ');
chBox1.SetFocus;
Exit;
end;
소스는 괜찮은것 같네요... 아!! 그리고 tag는 안해도 되는데... 보통 검사할 에디트와
하지 말아야할 에디트가 있어서.. 그렇게 한겁니다...
음. 메일은 받았는데.. 제가좀 늦게 봐서.. 답장은 안했어요.. 죄송..
아직 해결 못하셨을줄 알았으면 보낼걸 그랬네요...
그럼.. 즐거운시간 되세요..
- 하얀까마귀 -
heimdal wrote:
> procedure Tdata.ok1Click(Sender: TObject);
> var i : integer;
> begin
> for i:=0 to self.ComponentCount-1 do
> begin
> if (self.Components[i]) is TDBEdit and
> ((self.Components[i] as TDBEdit).Tag=1) then
> begin
> if Length((self.Components[i] as TDBEdit).Text)<=0 then
> begin
> showmessage('입력되지않은곳이 있습니다');
> (self.Components[i] as TDBEdit).SetFocus;
> Exit;
> end
> else main.lotno_sh.Text:=lotno.Text+'-'+lotse.Text;
> end;
> if (self.Components[i]) is TDBCombobox and
> ((self.Components[i] as TDBCombobox).Tag=1) then
> begin
> if Length((self.Components[i] as TDBCombobox).Text)<=0 then
> begin
> showmessage('입력되지않은곳이 있습니다');
> (self.Components[i] as TDBCombobox).SetFocus;
> Exit;
> end
> else
> begin
> main.devicesel_sh.Text:=devicesel.Text;
> main.interval_sh.Text:=interval.Text;
> main. chips_sh.Text:=chips.Text;
> main.machine_sh.Text:=machine.Text;
> close;
> end;
> machinetbl.Append;
> machinetbl.FieldByName('Lot_num').asstring:=lotno.Text;
> machinetbl.FieldByName('Device').asstring:=devicesel.Text;
> machinetbl.FieldByName('Lot_serial').asstring:=lotse.Text;
> machinetbl.FieldByName('Chipsize').asstring:=chips.Text;
> machinetbl.FieldByName('검사수준').asstring:=interval.Text;
> machinetbl.FieldByName('장비번호').asstring:=machine.Text;
> machinetbl.Post;
> end;
> end;
> { with data.FindComponent('check_group') as TDBCheckbox do
> for i := 0 to self.ComponentCount-1 do
> begin
> if self.ComponentCount<1 then begin
> showmessage('no input');
> (self.Components[i] as TDBCheckbox).SetFocus;
> end;
> end; }
> //위에껀 체크박스가 다섯개가 있는데..이중 한개이상은 꼭 체크해야되여..
> //근데 어떻게 해줘야될지 몰라서 그냥 놔둔거구여...
> if machine.text='A' then begin
> main.ma_abtn.caption:='A On';
> end;
> end;
>
> 실행을 시키면 다 입력해줬는데두 입력되지않은곳이 있다는 메세지가 계속 떠서여..
> 어디가 잘못된건지..좀봐줘여..