본문내용
세요!\", , \"확인\"
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
\'//------------------------ 미반납 도서 검색 폼 코딩 끝--------------------
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
\'//------------------------ 미반납 도서 검색 폼 코딩 끝--------------------
소개글