Transcript 도서 관리 프로그램
도서관리프로그램 2009BMaste r 0804100114 김우정 0804100132 현효경 목 차 2009BMaster 소개 제작과정 구현내용 DB설계 VB설계 프로그램 동작설명 참고문헌 2009BMaster소개 이름 프로그램 소개 소개 제작동기 2009BMaster 도서 관리 프로그램 기존의 프로그램보다 조작성 및 편리성을 개선하여 사용자의 요구에 맞는 맞춤 프로 그램으로 제작 제작과정 - 구현내용 데이터베이스=Access 프로그램 Visual Basic 2009BMaster DB설계 - 메뉴 구조도[관리자] 관리자모드 로그인 회원관리 대출목록 도서관리 회원관리/수정/삭제 대출목록/도서반납 신규 도서 등록 대출기간 초과목록 도서 검색 도서대출 이력 도서 수정 도서 삭제 DB설계 - 메뉴 구조도[사용자] 관리자모드 로그인 도서관리대출 도서관리 도서검색 회원 정보 수정 도서대출 회원 탈퇴 대출목록/도서반납 예약현황 DB설계 - 플로우챠트 (로그인) 시작 로그인 ID 체크 관리자 메인화면 유효하지 않음 DB설계 - 플로우챠트 (회원등록) 회원등록 재입력요구 유효성 체크 ID, 주민번호 DB 입력 DB구성 도서 등록 OpenInfo 도서관리 DB • Myinfo(도서관리) •(신규도서 등록) • (도서검색) • (도서수정) • (도서삭제) VB설계 - 회원검색 qryStr = "SELECT customerID, name, address_zip, address_juso, email, department, phone " _ & "FROM Customer WHERE Len(customerID) > 0 " qryStr = "SELECT b.customerID, b.name, b.address_zip, b.address_juso, b.email, b.department, b.phone, Count(a.customerID) AS numberRentals " _ & "FROM Rent AS a RIGHT JOIN Customer AS b ON a.customerID = b.customerID " _ & "GROUP BY b.customerID, b.name, b.address_zip, b.address_juso, b.email, b.department, b.phone " _ & "HAVING Len(b.customerID) > 0 " '회원 검색 If Len(Me!txtID.Text) Then qryStr = qryStr & "And b.customerID like '*" & txtID.Text & "*' " If Len(Me!txtName.Text) Then qryStr = qryStr & "And name like '*" & txtName.Text & "*' " If Len(Me!txtZip.Text) Then qryStr = qryStr & "And address_zip like '*" & txtZip.Text & "*' " If Len(Me!txtJuso.Text) Then qryStr = qryStr & "And address_juso like '*" & txtJuso.Text & "*' " If Len(Me!txtEmail.Text) Then qryStr = qryStr & "And email like '*" & txtEmail.Text & "*' " If Len(Me!txtDepartment.Text) Then qryStr = qryStr & "And department like '*" & txtDepartment.Text & "*' " If Len(Me!txtPhone.Text) Then qryStr = qryStr & "And phone like '*" & txtPhone.Text & "*' " qryStr = qryStr & "order by b.customerID;" Set record = db.OpenRecordset(qryStr) Call Grid_Load(gridCustSearch, 8) 프로그램 구현 VB설계-도서반납 qryStr = "INSERT INTO PreviousRent SELECT ISBN, seq, customerID, dateTimeRented, now() as dateReturned FROM Rent " _ & "WHERE ISBN = '" & txtISBN.Text & "' And seq = " & txtSeq.Text & ";" db.Execute qryStr qryStr = "DELETE From Rent " _ & "WHERE ISBN = '" & txtISBN.Text & "' And seq = " & txtSeq.Text & ";" db.Execute qryStr qryStr = "SELECT cur_qty FROM Book " _ & "WHERE ISBN = '" & Me!txtISBN & "';" Set record = db.OpenRecordset(qryStr) '대출 도서수 변경 qryStr = "UPDATE Book SET " _ & "cur_qty = " & (record!cur_qty + 1) & " " _ & "WHERE ISBN = '" & Me!txtISBN & "';" db.Execute qryStr 참고 문헌 참 Microsoft Visual Basic Bible 6.0 –삼양출판사 고 문 헌 비주얼 베이직 6 – 도서출판사 대림 포토샵 CS3 기본 활용 실무테크닉 – 성안당 감사합니다.