정말 무더운 여름이네요...
시원한 빗줄기가 그리워 지네요... 더우신데 우찌들 지내시는지...
정말 하다 하다 안되서 고수님께 도움을 또 요청합니다.
DB : Paradox 7
컴포넌트 : Query, Datasource, DBGrid, UpdateSQL, 등등
제가 하고 싶은 작업은...
메인창을 열때(OnActivate에 코딩) Log-In 창이 같이 열립니다.
Log In 창 구성
ID : edit1, password : Edit2.
확인 버턴, Guest 버턴 으로 구성되어 있읍니다
ID와 password가 정확하고 확인 버턴을 클릭할 때 정상적으로 실행을 하고
ID와 Password가 맞지 않으면 메세지를 나타나게 할려고 합니다.
그리고 방문 버턴을 누르고 들어오면 저장,삭제 수정을 못하게 하고 그냥 볼수만
있게 할려고 합니다..
그래서 저장, 삭제 버턴의 visible을 False로 하는 방법을 취했읍니다..
(위의 방법은 버턴이 없어지던데 혹 버턴은 보이는데 실행을 할 수 없게는 안되나요?)
코딩을 하는데 에러만 저를 반기더군요...
우찌해야 할지 고수님의 명쾌한 답을 듣고자 하오니 깊이 해아려 주십시요..
부끄럽지만 해 보았는데 안되더군요...히히히
버턴의 Visible는 False로 해 둔 상태 입니다..
// 정상적으로 "확인" 버턴을 클릭하고 들어왔을때
Procedure TPassword.Button1Click(Sender: TObject);
begin
if (EMain.Query3.FieldByName('ID').AsString = Edit1.text) and
(EMain.Query3.FieldByName('Password').AsString = Edit2.Text) then
EMain.N3.Visible := True // 버턴 활성화
else begin
ShowMessage('ID나 Pssword가 맞지않습니다.');
end;
end;
// Guest 버턴을 누를 때
Procedure Tpassword.Button2.Click(Sender: TObject);
begin
Close;
end;
Error Message " Cannot Change Visible in OnShow or OnHide"
읽어주셔서 감사하고
장마철에 건강에 유의하시고 하루하루 즐거운 생활 되십시요...
Enabled는 그럼 무얼까요?
^^; 그럼...
아기코알라 wrote:
> 정말 무더운 여름이네요...
> 시원한 빗줄기가 그리워 지네요... 더우신데 우찌들 지내시는지...
>
> 정말 하다 하다 안되서 고수님께 도움을 또 요청합니다.
>
> DB : Paradox 7
> 컴포넌트 : Query, Datasource, DBGrid, UpdateSQL, 등등
>
> 제가 하고 싶은 작업은...
>
> 메인창을 열때(OnActivate에 코딩) Log-In 창이 같이 열립니다.
>
> Log In 창 구성
> ID : edit1, password : Edit2.
> 확인 버턴, Guest 버턴 으로 구성되어 있읍니다
>
> ID와 password가 정확하고 확인 버턴을 클릭할 때 정상적으로 실행을 하고
> ID와 Password가 맞지 않으면 메세지를 나타나게 할려고 합니다.
> 그리고 방문 버턴을 누르고 들어오면 저장,삭제 수정을 못하게 하고 그냥 볼수만
> 있게 할려고 합니다..
>
> 그래서 저장, 삭제 버턴의 visible을 False로 하는 방법을 취했읍니다..
> (위의 방법은 버턴이 없어지던데 혹 버턴은 보이는데 실행을 할 수 없게는 안되나요?)
>
> 코딩을 하는데 에러만 저를 반기더군요...
>
> 우찌해야 할지 고수님의 명쾌한 답을 듣고자 하오니 깊이 해아려 주십시요..
>
> 부끄럽지만 해 보았는데 안되더군요...히히히
> 버턴의 Visible는 False로 해 둔 상태 입니다..
>
> // 정상적으로 "확인" 버턴을 클릭하고 들어왔을때
> Procedure TPassword.Button1Click(Sender: TObject);
> begin
> if (EMain.Query3.FieldByName('ID').AsString = Edit1.text) and
> (EMain.Query3.FieldByName('Password').AsString = Edit2.Text) then
> EMain.N3.Visible := True // 버턴 활성화
> else begin
> ShowMessage('ID나 Pssword가 맞지않습니다.');
> end;
> end;
>
> // Guest 버턴을 누를 때
> Procedure Tpassword.Button2.Click(Sender: TObject);
> begin
> Close;
> end;
>
> Error Message " Cannot Change Visible in OnShow or OnHide"
>
> 읽어주셔서 감사하고
>
> 장마철에 건강에 유의하시고 하루하루 즐거운 생활 되십시요...