잠도 설치고 회사 일도 바쁘고... 집에 오니 한시간 앉아 있기도 힘드네요. 졸린 눈을 부릅뜨며, 그래도 7월이 가기 전에 강좌를 마무리하기 위해 오늘, 내일 한 강좌씩 올릴 예정입니다.
먼저 31강에서 만들었던 두 번째 폼인 frmDb1S 폼을 열고 코드 창에서 아래와 같은 코드를 입력하면 됩니다.
[1]
Form 개체의 Activate 프로시저를 선택하고 txtSearchNum.SetFocus를 입력합니다.
Activate 프로시저에는 창이 활성화될 때 실행되는 코드를 입력합니다.
따라서 위와 같이 하면 frmDb1S 창이 활성화되면 검색을 위해 사번을 입력하는 txtSearchNum 텍스트 박스에 커서가 깜빡거리게 됩니다. [2]
창이 로드될 때 실행되는 코드입니다.
지난 시간의 코드와 비슷합니다.
현재 경로에서 db1.mdb 파일을 데이터컨트롤(datDb1)과 연결시킵니다. 그리고 db1.mdb의 employee 테이블에서 레코드를 가져옵니다. 그리고 새로고침을 합니다.
그 외의 코드는 검색을 위한 사번 입력란을 제외한 다른 입력 란을 모두 비활성화시키는 기능을 합니다. 검색 결과를 보여주기만 하면 되니까 입력할 수 없도록 만든 것입니다. [3]
찾아랏! 단추를 누를 때 실행되는 코드입니다.
FindFirst 메소드는 레코드셋에 있는 레코드를 처음부터 검색하여 해당 조건을 만족하는 처음 레코드를 찾아줍니다.
FindFirst 메소드 뒤의 조건식은 큰 따옴표로 둘러싸야 합니다.
예를 들어, Data1.RecordSet.FindFirst "점수 Between 90 And 100"는 점수가 90～100인 자료 검색하라는 뜻이 됩니다.
따라서 만약 사번 입력란에 0003을 입력하고 [찾아랏!] 단추를 누르면 datDb1.RecoredSet.FindFirst "[number]= '0003‘" 과 같은 식이 실행됩니다.
지난 시간의 실습을 무난히 마쳤다면 이번 시간은 그리 어렵지 않았을 것입니다.
