artis의 Note입니다

직원로그인.mdb

login-.mdb

Public 아이디 As String
Public 로그인시간 As String
Public 권한 As String
Public 일련번호 As Long
----------------------------------



2- Form_등록
-----------------------------

Option Compare Database
Dim IDcheck As Boolean
Dim boolNew As Boolean

Private Sub 직원명_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub Command14_Click()

    If Nz(ID, "") = "" Then
        MsgBox "ID를 입력해 주세요"
        Exit Sub
    End If
   
    If DCount("일련번호", "직원정보", "로그인용ID = '" & ID & "'") > 0 Then
        MsgBox "ID가 이미 사용 중입니다. 사용할 수 없는 ID입니다.", vbInformation
        IDcheck = False
    Else
        MsgBox "사용할수 있는 ID입니다."
        IDcheck = True
    End If

End Sub

Private Sub Command15_Click()
Dim ctrl As Control

    For Each ctrl In Controls
        If TypeName(ctrl) = "TextBox" Or TypeName(ctrl) = "ComboBox" Then
            If Nz(ctrl, "") = "" Then
                MsgBox ctrl.Name & "을 입력해주세요."
                ctrl.SetFocus
                Exit Sub
            End If
        End If
    Next

    If IDcheck = False Then
        MsgBox "ID를 체크해 주세요."
        Exit Sub
    End If

    If MsgBox(직원명 & " 을 추가하시겠습니까?", vbYesNo) = vbYes Then
        Dim rs As DAO.Recordset
       
        Set rs = CurrentDb.OpenRecordset("SELECT * FROM 직원정보 WHERE 로그인용ID = '" & ID & "'", dbOpenDynaset)
       
        If boolNew = True Then
            rs.AddNew
        Else
            rs.Edit
        End If
       
        rs!권한 = 권한
        rs!직원명 = 직원명
        rs!주소 = 주소
        rs!전화번호 = rs!전화번호
        rs!로그인용ID = ID
        rs!로그인용암호 = 비밀번호
       
        rs.Update
       
        Set rs = Nothing
       
        List17.Requery
       
    End If

   
End Sub

Private Sub Command16_Click()
   
    DoCmd.Close

End Sub

Private Sub Command19_Click()

    직원명 = Null
    권한 = Null
    주소 = Null
    전화번호 = Null
    ID = Null
    ID.Locked = False
    IDcheck = False
    boolNew = True
    List17 = Null
   
    직원명.SetFocus
   
End Sub

Private Sub Command20_Click()
   
    If List17.ListIndex = -1 Then
        MsgBox "삭제할 직원을 선택하세요 .", vbInformation
        Exit Sub
    End If
   
    If MsgBox(직원명 & "을 삭제하시겠습니까 ?", vbYesNo + vbQuestion) = vbYes Then
        CurrentDb.Execute "DELETE * FROM 직원정보 WHERE 로그인용ID = '" & List17 & "'"
        List17.Requery
    End If
   
End Sub

Private Sub Form_Load()
   
    boolNew = True
    IDcheck = False
   
End Sub

Private Sub List17_AfterUpdate()
Dim rs As DAO.Recordset

    Set rs = CurrentDb.OpenRecordset("SELECT * FROM 직원정보 WHERE 로그인용ID = '" & List17 & "'")

    직원명 = rs!직원명
    권한 = rs!권한
    주소 = rs!주소
    전화번호 = rs!전화번호
    ID = rs!로그인용ID
    비밀번호 = rs!로그인용암호
    ID.Locked = True
   
    Set rs = Nothing
   
   
End Sub

----------------------------------




3- Form_메인
----------------------------------

Private Sub Command1_Click()
   
    DoCmd.OpenForm "수정"

End Sub

Private Sub Command2_Click()
   
    If 권한 = "관리자" Then
        DoCmd.OpenForm "등록"
    Else
        MsgBox "직원등록 권한이 없습니다.", vbInformation
    End If

End Sub

Private Sub Command21_Click()
    a = Now()
    m = Format(a, "현재 yyyy年 mm月 dd日 h시 mm분")
    c = MsgBox(m & "입니다. 종료 하시겠습니까?", vbYesNo + vbQuestion, "확인")

    If c = vbYes Then
       
        CurrentDb.Execute "UPDATE 직원업무시간 SET 퇴근시간 = '" & a & "' WHERE 업무일련번호 = " & 일련번호
      
        DoCmd.Close
        DoCmd.Quit
       
    End If
   
End Sub


----------------------------------



4- From_수정
----------------------------------

Option Compare Database

Private Sub Command15_Click()
Dim ctrl As Control

For Each ctrl In Controls
    If TypeName(ctrl) = "TextBox" Or TypeName(ctrl) = "ComboBox" Then
        If Nz(ctrl, "") = "" Then
            MsgBox ctrl.Name & "을 입력해주세요."
            ctrl.SetFocus
            Exit Sub
        End If
    End If
Next

If MsgBox(직원명 & " 을 수정하시겠습니까?", vbYesNo) = vbYes Then
    Dim rs As DAO.Recordset
   
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM 직원정보 WHERE 로그인용ID='" & 아이디 & "'")
   
    rs.Edit
   
    rs!권한 = 등급
    rs!직원명 = 직원명
    rs!주소 = 주소
    rs!전화번호 = rs!전화번호
    rs!로그인용ID = ID
    rs!로그인용암호 = 비밀번호
   
    rs.Update
   
    Set rs = Nothing
   
End If

   
End Sub

Private Sub Command16_Click()

DoCmd.Close

End Sub

Private Sub Form_Activate()
Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("SELECT * FROM 직원정보 WHERE 로그인용ID='" & 아이디 & "'")

    직원명 = rs!직원명
    등급 = rs!권한
    주소 = rs!주소
    전화번호 = rs!전화번호
    ID = rs!로그인용ID
    비밀번호 = rs!로그인용암호

End Sub



----------------------------------




5-Form_직원로그인

----------------------------------


Private Sub Command5_Click()
Dim rst As DAO.Recordset
Dim c As Integer
Dim a As String

    If Nz(Text1, "") = "" Then
        MsgBox "ID를 입력하세요 !", vbInformation
        Text1.SetFocus
        Exit Sub
    End If
   
    If Nz(Text3, "") = "" Then
        MsgBox "암호를 입력하세요 !", vbInformation
        Text3.SetFocus
        Exit Sub
    End If
   
    Set rst = CurrentDb.OpenRecordset("SELECT * FROM 직원정보 WHERE 로그인용ID = '" & Text1 & "' AND 로그인용암호 = '" & Text3 & "'")
   
    If rst.EOF Then
        MsgBox "등록된 ID와 암호가 아닙니다.", vbInformation
        Exit Sub
    End If
   
    c = MsgBox(Text1 & "로 접속하시겠습니까?", vbYesNo + vbQuestion, "로그인확인")
   
    If c = vbYes Then
       
        a = Format(Now(), "yyyy-mm-dd hh:mm") '이것은 직원업무시간의 시작시간을 의미합니다.
       
        CurrentDb.Execute "INSERT INTO 직원업무시간(직원ID, 출근시간) VALUES('" & Text1 & "', '" & a & "')"
       
        아이디 = Text1
        로그인시간 = a
        권한 = rst!권한
        일련번호 = DMax("업무일련번호", "직원업무시간", "직원ID = '" & Text1 & "'")
       
        DoCmd.Close acForm, Me.Name
        DoCmd.OpenForm "메인"
       
    End If
   
End Sub

Private Sub Command6_Click()
   
    c = MsgBox("취소 하시면 모든 프로그램이 닫힙니다 취소하시겠습니까?", vbYesNo + vbCritical, "경고")
   
    If c = vbYes Then
        Quit
    Else
        Exit Sub
    End If

End Sub

----------------------------------

オートナンバーは使いたくない

http://hamachan.info/access/o-ton.html

http://www3.pioneer.co.jp/product/product_info.php?product_no=00002507&cate_cd=076&option_no=9

http://www.ed-shop.com/divx/divx-1.html