비주얼베이직 프로젝트 퀴즈 게임!!

소개글

비주얼베이직 프로젝트 퀴즈 게임!!에 대한 보고서 자료입니다.

목차

DB연동

1. 메인페이지
1) 회원가입
2) 아이디찾기
3) 비밀번호찾기

2. 로그인 (DB 정보불러와서 게임 로그인)

3. OX 퀴즈, 객관식퀴즈, 주관식퀴즈, 종합퀴즈

4. 테스트문제(발표시 보여주기식으로 직접 DB에 문제넣으면 됩니다)

5. 랭킹보기(점수누적된걸 DB에서 불러와 오름차순정렬로 인해 랭킹이 표시됩니다)

본문내용

▣ 메인 페이지 소스입니다 ▣

Option Explicit
'연결 개체 생성
Private conn As New ADODB.Connection
'레코드셋 개체 생성
Private rs As New ADODB.Recordset
'로그인한 ID를 다른폼에 넘겨주기 위한 변수
Private str입력Id As String

'로그인한 ID를 다른폼에 넘겨주기 위한 프로시저
Public Sub ID(strId As String)
strId = str입력Id
End Sub

'로그인을 가능하게 하는 코딩을 담고있는 프로시저
'Login을 클릭했을때,
'ID입력 텍스트박스나 PW입력 텍스트박스에서 엔터를 쳤을때 Call 함
Private Sub Call_Login()
If Trim(txtId.Text) = "" Then
MsgBox "아이디를 입력하세요."
Exit Sub
ElseIf Trim(txtPw.Text) = "" Then
MsgBox "비밀번호를 입력하세요."
Exit Sub
End If

rs.Open "select * from member", conn, adOpenStatic

Dim i As Integer
Dim blnCheck As Boolean

For i = 1 To rs.RecordCount
If txtId.Text = rs!ID Then
rs.Close
rs.Open "select * from member where ID = '" & txtId.Text & "'", conn, adOpenStatic

If txtPw = rs!Password Then

str입력Id = rs!ID

MsgBox rs!이름 & "님 반갑습니다", , "퀴즈게임"

If rs!레벨 = 1 Then
intLogin = 1
Else
intLogin = 2
End If

frmReady.Show
Unload Me
Exit Sub

Else
MsgBox "비밀번호가 잘못되었습니다.", , "로그인"

txtPw.SelStart = 0
txtPw.SelLength = Len(txtPw.Text)
txtPw.SetFocus

rs.Close
Exit Sub
End If

blnCheck = True

Else
rs.MoveNext
blnCheck = False
End If
Next i

If blnCheck = False Then
MsgBox "ID가 잘못되었습니다. ", , "오류"
rs.Close
End If

End Sub

'폼 로드
Private Sub Form_Load()
conn.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;Data Source=" & _
App.Path & "\..\DB\퀴즈.mdb"

conn.Open
rs.CursorLocation = adUseClient

End Sub

'폼 언로드
Private Sub Form_Unload(Cancel As Integer)
If rs.State = adStateOpen Then
rs.Close
End If

conn.Close
Set rs = Nothing
Set conn = Nothing

End Sub


'로그인을 클릭했을 때
Private Sub img로그인_Click()
Call Call_Login
End Sub

'회원가입을 클릭했을 때
Private Sub img가입_Click()
frmJoin.Show 1
End Sub

'ID찾기를 클릭했을 때
Private Sub imgID찾기_Click()
frmId.Show 1
End Sub

'PW찾기를 클릭했을 때
Private Sub imgPW찾기_Click()
frmPw.Show 1
End Sub

'txtID텍스트 박스에서 엔터키를 쳤을 때
Private Sub txtId_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Call_Login 'Call_Login : 로그인 코딩
End If
End Sub


'txtPw텍스트 박스에서 엔터키를 쳤을 때
Private Sub txtPw_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Call_Login 'Call_Login : 로그인 코딩
End If
End Sub

키워드

비주얼베이직,   쉬운소스,   프로젝트,   졸업작품,   DB,   랭킹관리,   로그인,   과제