MDI폼 도서대여프로그램
본 자료는 3페이지 의 미리보기를 제공합니다. 이미지를 클릭하여 주세요.
닫기
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
해당 자료는 3페이지 까지만 미리보기를 제공합니다.
3페이지 이후부터 다운로드 후 확인할 수 있습니다.

소개글

MDI폼 도서대여프로그램에 대한 보고서 자료입니다.

본문내용

세요!\", , \"확인\"
Else \'// 있다면
sid = CDbl(input_sid)
dastusearch.Recordset.FindFirst \"sid = \" & sid \'// 학번으로 학생 검색
If dastusearch.Recordset.NoMatch Then \'//레코드가 없으면..
MsgBox \"미등록 학생입니다\"
Else \'//검색된 레코드가 있으면 삭제
dastusearch.Recordset.Delete \'//레코드 삭제
dastusearch.Refresh \'// 새로고침
End If
End If
\'// Label값 초기화
main.lblDept.Caption = \"\"
main.lblHpnum = \"\"
main.lblNowbook = \"\"
main.lblnowbooknumber = \"\"
main.lblSid = \"\"
main.lblSname = \"\"
main.lblTotalbook = \"\"
Unload Me
End Sub
\'//?
Private Sub Calendar1_Click()
End Sub
\'// 현재 폼 닫기
Private Sub cmdCancel_Click()
Unload Me
End Sub
\'//------------------------ 삭제관련 폼 코딩 끝 ---------------------
\'//------------------------ 도서대여 업데이트 폼 코딩 시작---------------------
\'// 검색...
Private Sub cmdOk_Click()
Dim cn As Connection
Dim sqlstring As String
If dalendbook.Recordset.RecordCount = 0 Then \'// 검색된 레코드가 없다면...
MsgBox \"は으시는 책이 없네요 다시 검색해 주세요.\", vbOKOnly, \"도서대여 실패\"
Unload Me
Else \'// 있다면
return_day = DateAdd(\"d\", 7, lend_day) \'// 오늘 날짜부터 7일 후 날짜로 계산하여 return_day변수에 저장
If dalendbook.Recordset.Fields(4) = \"0\" Then \'// 값이 0이면(책을 있으면...)
Set cn = New Connection \'// 커넥션 개체 선언
cn.Open \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\\비베\\도서대여프로그램\\book.mdb;Persist Security Info=False\" \'// MDB 연결
\'// 업데이트 문 실행
sqlstring = \"UPDATE book SET lender = \'\" & sid & \"\' , lendDay = \'\" & lend_day & \"\' , lendReturn = \'\" & DateAdd(\"d\", 7, lend_day) & \"\' WHERE isbn = \'\" & dalendbook.Recordset.Fields(0) & \"\'\"
On Error GoTo SQLERR \'// err 발생시
cn.Execute sqlstring \'// sql문 실행
cn.nothing \'// 커넥션 삭제
SQLERR:
MsgBox \"정상적으로 DB에 저장 되었습니다\"
succesdisp.lblBookname.Caption = \"책 제목: (\" & dalendbook.Recordset.Fields(1) & \") 를 빌리셨습니다.!\"
succesdisp.Show \'// 폼 쇼
Unload Me \'// 현재 폼 닫기
Else \'// 현재 책이 없으면
MsgBox \"이미 대여중입니다!\"
End If
End If
End Sub
\'//------------------------ 도서대여 업데이트 폼 코딩 끝 ---------------------
\'//------------------------ 도서 검색 폼 코딩 시작---------------------
Private Sub Form_Load()
If findchk = 1 Then \'// 도서명으로 검색
dalendbook.RecordSource = \"SELECT * FROM book WHERE title = \'\" & lbookname & \"\'\"
ElseIf findchk = 2 Then \'// ?\\도서 작가명로 검색
dalendbook.RecordSource = \"SELECT * FROM book WHERE author = \'\" & lauthor & \"\'\"
Else \'// 도서명과 작가명으로 동시에 검색
dalendbook.RecordSource = \"SELECT * FROM book WHERE title = \'\" & lbookname & \"\' AND author = \'\" & lauthor & \"\'\"
End If
dalendbook.Refresh \'// 새로고침
If dalendbook.Recordset.RecordCount = 0 Then \'// 검색되 레코드가 업음....
lblnotbook.Caption = \"は으시는 책이 없네요 다시 검색해 주세요.\"
End If
End Sub
\'// 취소(닫기)
Private Sub cmdCancel_Click()
Unload Me \'// 현재 폼 닫기
End Sub
\'//------------------------ 도서 검색 폼 코딩 끝 ---------------------
\'//------------------------ 미반납 도서 검색 폼 코딩 시작---------------------
\'// 미반납 책 검색
Private Sub cmdOk_Click()
Dim tempday As Date
tempday = lend_day \'// 현재 날짜/시간
delaybook.addelay.RecordSource = \"SELECT * FROM book WHERE lendReturn < now()-1 \" \'// 오늘 이전 반납 해야 할 책 검색
delaybook.addelay.Refresh \'// 새로고침
delaybook.Show \'// 보여주고
Unload Me \'// 현재 폼 닫고
End Sub
\'//------------------------ 미반납 도서 검색 폼 코딩 끝--------------------
  • 가격3,000
  • 페이지수10페이지
  • 등록일2009.02.19
  • 저작시기2008.11
  • 파일형식한글(hwp)
  • 자료번호#519486
본 자료는 최근 2주간 다운받은 회원이 없습니다.
다운로드 장바구니