9.3 데이터컨트롤을 제어하는 프로그램 9.4 DBGrid를 사용하는 프로그램

Slides:



Advertisements
Similar presentations
주제심화학습보충학습 시장에서 유통되는 물건 시장이 하는 일 시장에 모여 드는 사람들 시장에서 파는 물건 상설과 비상설시장 비교 교통. 통신의 발달과 시장변화 시장변화, 유통과정과 유통과정과 성립조건 성립조건, 도. 소매 도. 소매 우리 생활에 필요한 것들 우리 생활에.
Advertisements

내 마음의 버 스 이천신하교회 청년부. 이름 : 한상훈 나이 : 30 살 종교 : 기독교 ( 모태신앙 ) 생활신조 : 인생은 한방 ! 로또나 사자 이상형 : 청순 가련한 모태미녀 특이사항 : 걸그룹 노래에 환장함 식스팩을 갖기엔 슬픈 몸을 타고 남.
독서골든벨 2009 학년도 6 학년 1 학기 6-10 반. 1. 이야기 삼국유사 정대한 원효대사는 수행을 위해 떠나던 중 피곤하여 숲 속에서 잠이 들었다. 잠결에 너무 목이 마른 나머지 어디에 담겨있는 물을 맛있게 마셨나요 ?
두 손 들고 두 손 들고 찬양합니다 두 손 들고 찬양합니다 다시 오실 왕 여호와께 다시 오실 왕 여호와께 두 손 들고 찬양합니다 두 손 들고 찬양합니다 다시 오실 왕 여호와께 다시 오실 왕 여호와께 오직 주만이 나를 다스리네 오직 주만이 나를 다스리네 나 주님만을.
Visual Basic 활용 참고 교재  『쉽게 따라하는 VB 6 프로그래밍』  저 자 : 하태현, 정용덕  출 판 : 기전연구사, 2004  『엑셀 VBA 프로그래밍 ( 고급 ) 』  저 자 : 오양환 외  출 판 : 기전연구사,
지금은 기도 하는 시간입니다 1. 송구영신예배를 위해서 2. ‘크리스마스 이브’ 행사를 준비하는 교육 기관을 위하여
정보 사회의 역기 능과 대처 01 인터넷 중독, 어떻게 예방할까
VISUAL BASIC 양 계 탁.
몰랑이의 햄버거 만들기大 작전 click!.
현대사회의 여성문제와 여성복지 3조 권경욱 강향원 황대인 변갑수 박창욱 김지현.
제 3장 프로그래밍 언어 설계 3.1 설계 기준의 역사적 변천 3.2 효율성 3.3 일반성, 직교성, 획일성
Chapter 3 – 프로그래밍 언어 설계 Outline 3.1 설계 기준의 역사적 변천 3.2 효율성
6.4/5/6 상태표시줄 등 6.4 상태표시줄 사용하기 6.5 진행표시바 사용하기 6.6 슬라이더 사용하기
고교평준화의 득과 실 김영주 이지영 최윤영.
데이터 관리의 모든 것 데이터 최적화하기 데이터 정렬하기 자동 필터와 고급 필터
비주얼 베이직 프로그래밍 한성대학교 정보전산학부 강 승 식.
예제로 배우는 Visual Basic 계산기로 익히는 연산자
개정판 Visual Basic 6.0 바로가기.
응용프로그램 예제 컴퓨터응용 및 실습 I.
주)INVENTORNICS 노창배 소프트웨어 김 경 순
JAVA 프로그래밍 6장 객체지향프로그래밍의 핵심.
매크로 & VBA 강사 허소영.
제 2 장 기본 문법 (1-2) 주제 : 객체, 변수, 모듈, 상수.
5장 기본 컨트롤 응용프로그래밍.
비주얼 베이직 프로그래밍 개요 비주얼 베이직 6.0 살펴보기 비주얼 베이직 6.0 설치 비주얼 베이직 6.0의 개발 환경
Ch2-2. VHDL Basic VHDL lexical element VHDL description
9. 데이터베이스 9.5 SQL을 사용하는 프로그램 9.6 데이터폼 작성기를 사용하는 프로그램
담당교수 : 이형원교수님 컴퓨터응용과학부 정은영
ADO컨트롤을 이용하여 데이터를 관리하는 방법과 데이터베이스내의 레코드들을 리포트 형식으로 출력하는 디자인 기능을 알아본다.
Visual Basic 연산자.
DataScience Lab. 박사과정 김희찬 (월)
RFID Programming (출결관리 프로그램)
6.3 툴바와 이미지 리스트 사용하기.
6.3 툴바와 이미지 리스트 사용하기.
3 장 Visual Basic 2010 기본 문법 3.1 변수 3.2 데이터 형식 3.3 연산자 3.4 제어문
SK증권 API 이용방법 강사: 말과의미(SK증권 방배역지점 정광옥차장) 계좌개설 및 계좌관리, 선물옵션 협의수수료 문의
2010년 직원연수 자료 제1차 : 4월 16일 ~ 17일 제2차 : 4월 23일 ~ 24일
Visual Basic 반복문.
Serial 통신(RS-232) 2 김성환 기계설계 자동화 공학부 비주얼베이직의 기초사항을 공부합니다.
제 4주 2014년 1학기 강원대학교 컴퓨터학부 담당교수: 정충교
3 장 Visual Basic 2010 기본 문법 3.4 제어문 1) 조건문 2) 반복문 3) 기타 제어문
주)INVENTORNICS 노창배 소프트웨어 김 경 순
6.2 공통 대화상자 사용하기.
6.2 공통 대화상자 사용하기.
DataScience Lab. 박사과정 김희찬 (월)
III. 문화 경관의 다양성 2. 촌락 경관의 유형과 특성 고등학교 사회
주제 : 배열, 사용자정의 데이터형, 프로시저와 함수 등..
프로그래밍 원리 Chapter 04 자료 처리와 연산자 신한대학교 IT융합공학부 박 호 균.
4장 - PHP의 표현식과 흐름 제어-.
6.4/5/6 상태표시줄 등 6.4 상태표시줄 사용하기 6.5 진행표시바 사용하기 6.6 슬라이더 사용하기
소방시설 자동산정 프로그램.
주)INVENTORNICS 노창배 소프트웨어 김 경 순
9. 데이터베이스 두 개의 테이블 조인해서 보기.
2장 비주얼베이직 시작하기 2.1 비주얼베이직 프로그래밍 스타일 2.2 비주얼베이직 시작하기.
Ⅲ. 세계의 자연환경 -열대기후와 주민생활.
오줌 속에는 무엇이 들어 있을까? 주제 : 노폐물의 배설 과학 1 학년
자바 5.0 프로그래밍.
매크로의 정의 반복적인 업무를 자동화하는 것을 말하며, 엑셀 에서 동작하는 매크로를 작성하기 위해서는 사용 하는 언어가 VBA(Visual Basic for Application) 입니다. VBA는 엑셀에서만 사용하는 매크로 언어가 아니 라 워드, 파워포인트,
Chapter 3 – 프로그래밍 언어 설계 Outline 3.1 설계 기준의 역사적 변천 3.2 효율성
03. 병행 프로세스(Parallel Process)
▶서류관리 프로그램 1. 로그인….2 2. 서류등록 … 서류도착 서류스티커발행
3. 도시의 내부 구조 ① 도시 내부 지역 분화의 과정과 원인.
Introduction to Computer System 컴퓨터의 이해 3: 데이터 표현
DataScience Lab. 박사과정 김희찬 (화)
의복 마련 계획 및 구매하기 초기화면 기술·가정 2학년 1학기 Ⅰ.의복 마련과 관리 2.의복마련 계획과 구매 >
유예 X-FILE *조사자* 1301권희원 1315이예지 1317장아정 1322홍자현.
나-는 믿음으로 주 얼굴 보리니- 아침에 깰 때에 주형상에 만족하리 나주님 닮기 원하네 믿음으로 주얼굴 보리라 -
목재의 구조와 특징 초기화면 기술·가정 2학년 1학기
File IO 정보물리.
네이버 쇼핑 입점 신청 시 유의사항 (Ver 1.0).
Presentation transcript:

9.3 데이터컨트롤을 제어하는 프로그램 9.4 DBGrid를 사용하는 프로그램 9. 데이터베이스-2 9.3 데이터컨트롤을 제어하는 프로그램 9.4 DBGrid를 사용하는 프로그램

9.3 데이터 컨트롤을 제어하는 프로그램 프로그램 개요 9.3 데이터 컨트롤을 제어하는 프로그램 프로그램 개요 데이터 컨트롤을 사용하지 않고 명령어 버튼을 이용하여, 자료보기를 이동할 수 있게 함. 이전, 다음, 처음, 끝 버튼 추가 2018-12-05 수원과학대학 컴퓨터정보과 1학년

9.3 데이터 컨트롤을 제어하는 프로그램 이전 버튼 코딩 9.3 데이터 컨트롤을 제어하는 프로그램 이전 버튼 코딩 우선 하나 이전으로 가서, 파일의 시작이면 다시 다음 레코드로 이동한다. Private Sub 이전_Click() Data1.Recordset. If (Data1.Recordset.BOF = True) Then End If End Sub BOF : Begin Of File EOF : End Of File 하나 이전의 레코드로 포인터를 이동시키는 메소드 하나 다음의 레코드로 포인터를 이동시키는 메소드 2018-12-05 수원과학대학 컴퓨터정보과 1학년

이전으로를 계속 누르면 레코드가 BOF 상태로 감 BOF 검사를 하지 않고 MovePrevious를 계속하는 경우 2018-12-05 수원과학대학 컴퓨터정보과 1학년

9.3 데이터 컨트롤을 제어하는 프로그램 다음 버튼 코딩 9.3 데이터 컨트롤을 제어하는 프로그램 다음 버튼 코딩 우선 하나 다음으로 가서, 파일의 끝이면 다시 이전 레코드로 이동한다. Private Sub 다음_Click() Data1.Recordset.( ) If (Data1.Recordset.( ) = True) Then Data1.Recordset.( ) End If End Sub 2018-12-05 수원과학대학 컴퓨터정보과 1학년

9.3 데이터 컨트롤을 제어하는 프로그램 처음 버튼 코딩 Private Sub 처음_Click() 9.3 데이터 컨트롤을 제어하는 프로그램 처음 버튼 코딩 Private Sub 처음_Click() Data1.Recordset.( ) End Sub 2018-12-05 수원과학대학 컴퓨터정보과 1학년

9.3 데이터 컨트롤을 제어하는 프로그램 끝 버튼 코딩 Private Sub 끝_Click() 9.3 데이터 컨트롤을 제어하는 프로그램 끝 버튼 코딩 Private Sub 끝_Click() Data1.Recordset.( ) End Sub 2018-12-05 수원과학대학 컴퓨터정보과 1학년

9.3 데이터 컨트롤을 제어하는 프로그램 리셋 버튼을 만들어보자 내용을 입력한뒤 수정하지 않고 취소하는 기능 9.3 데이터 컨트롤을 제어하는 프로그램 리셋 버튼을 만들어보자 내용을 입력한뒤 수정하지 않고 취소하는 기능 잘못 입력된 경우 취소할 수 있는 기능 (roll-back) 예전 자료를 다시 불러올수있게 하는 기능 Private Sub 리셋_Click() Data1.UpdateControls End Sub Private Sub Data1_Validate(Action As Integer, Save As Integer) Data1.UpdateControls End Sub 2018-12-05 수원과학대학 컴퓨터정보과 1학년

9.3 데이터 컨트롤을 제어하는 프로그램 검색하기 버튼을 만들어보자. InputBox를 이용하여 검색이름을 입력받아 9.3 데이터 컨트롤을 제어하는 프로그램 검색하기 버튼을 만들어보자. InputBox를 이용하여 검색이름을 입력받아 해당 이름의 레코드를 검색하여 화면에 출력하는 기능 Data1.Recordset.FindFirst “필드=‘“ & 문자열 “’” Data1.Recordset.NoMatch = True : 결과없슴 검색된 경우 : Data1.Recordset.Fields(“필드”) 를 사용하여 해당 결과를 확인가능 2018-12-05 수원과학대학 컴퓨터정보과 1학년

Private Sub 검색하기_Click() Dim 검색이름 As String 검색이름 = InputBox("검색할 이름은?") If (Data1.Recordset.BOF = False And Data1.Recordset.EOF = False) Then Data1.Recordset.FindFirst "이름='" & 검색이름 & "'" If (Data1.Recordset.NoMatch) Then MsgBox "이름이 없습니다", vbInformation, "다시 입력하세요" End If End Sub 2018-12-05 수원과학대학 컴퓨터정보과 1학년

입력오류의 검증은 Validate 이벤트를 사용 학번 입력시 9자리의 숫자만 입력하고프다 9자리 숫자가 입력되지 않은 경우 다른 컨트롤로 제어권을 넘기지 않게 할수있슴. Private Sub 학번_Validate(Cancel As Boolean) 조건을 봐서 만족하지 않은 경우 Cancel = True 설정 Cancel이 True가 되면 현재의 컨트롤에서 벗어날 수가 없다. 2018-12-05 수원과학대학 컴퓨터정보과 1학년

Private Sub 학번_Validate(Cancel As Boolean) If (IsNumeric(학번) = False) Or (Len(학번) <> 9) Then MsgBox "학번은 숫자 9자리로 입력해주세요.", vbInformation + vbOKOnly, "입력오류" Cancel = True End If End Sub Private Sub 이름_Validate(Cancel As Boolean) If (IsNumeric(이름) = True) Or (LenB(이름) > 10) Then MsgBox "한글 5글자 이내의 이름을 입력해주세요.", vbInformation + vbOKOnly, "입력오류" 2018-12-05 수원과학대학 컴퓨터정보과 1학년

중간고사와 기말고사에 대해 Validate 이벤트 프로시져 작성 숫자가 아닌 경우 (IsNumeric함수 사용) “**고사는 0~100사이의 숫자로 입력해주세요.”라고 메시지를 출력하고, 텍스트 박스를 널(“”)로 초기화하고, Cancel을 True로 설정한다. 2018-12-05 수원과학대학 컴퓨터정보과 1학년

9.4 DBGrid를 사용하는 프로그램 구성요소 확장 Microsoft Data Bound Grid Control 5.0(SP3) 2018-12-05 수원과학대학 컴퓨터정보과 1학년

9.4 DBGrid를 사용하는 프로그램 폼1에 그리드를 추가 2018-12-05 수원과학대학 컴퓨터정보과 1학년

9.4 DBGrid를 사용하는 프로그램 오른쪽 버튼 필드검색 편집(크기조절) 속성 일반 : headlines =2 레이아웃 > Column Alignment 매핑 학번, 이름 : 중앙정렬 2018-12-05 수원과학대학 컴퓨터정보과 1학년

9.4 DBGrid를 사용하는 프로그램 프로그램 실행 2018-12-05 수원과학대학 컴퓨터정보과 1학년

기타 등등 Private Sub Data1_Reposition() ‘ 자료의 위치 출력 Data1.Caption = "(" & (Data1.Recordset.AbsolutePosition + 1) & " / " & Data1.Recordset.RecordCount & ")“ 입력하기.Enabled = True 수정하기.Enabled = True End Sub Private Sub Refresh_Click() ‘ Refresh 버튼 Data1.Refresh End Sub Private Sub Delete_Click() ‘ 삭제하기 버튼 If (MsgBox("정말 삭제할까요?", vbQuestion + vbYesNo) = vbYes) Then Data1.Recordset.Delete End If 2018-12-05 수원과학대학 컴퓨터정보과 1학년

학번순 정렬 테이블 디자인에서 인덱스 설정 인덱스 설정 전과 인덱스 설정 후의 레코드순서를 비교해 보자 2018-12-05 수원과학대학 컴퓨터정보과 1학년

입력된 자료의 평균 구하기 Private Sub TotalAvg() Dim i As Integer Dim sum As Integer With Data1.Recordset .MoveFirst ‘ 첫번째 레코드로 이동 For i = 1 To .RecordCount ‘ 첫 레코드부터 마지막 레코드까지 sum = sum + .Fields("평균") ‘ 평균값을 더해나감 .MoveNext ‘ 다음 레코드로 이동 Next .MovePrevious ‘ 이전 레코드로 이동 End With ‘ 평균의 합을 레코드 개수로 나누어 전체 평균을 구함 전체평균.Caption = "전체 평균 : " & _ Round(sum / Data1.Recordset.RecordCount,2) End Sub 2018-12-05 수원과학대학 컴퓨터정보과 1학년