매출처 관리 #3 유저폼 버튼별 코드

지난 포스팅에서 만들었던 매출처 관리 유저폼의 각 버튼별 코드를 이번 포스팅에서는 다루겠습니다.

등록, 수정, 삭제, 닫기 총 4개의 버튼이 있습니다.

 

 

등록, 수정 버튼을 클릭했을시 유저폼을 하나더 팝업시켜 사용하는 방식으로 데이터를 추가/수정합니다.

사용할 유저폼은 FormEditClient로 이름을 설정했습니다.

FormEditClient 유저폼은 다음 포스팅에서 다루도록 하겠습니다.

 

우측상단의 txtIdx 텍스트 박스는 Visible을 False로 설정해서 보이지 않게 숨겨주었습니다.

 

먼저 등록 버튼 클릭시 실행되는 코드 입니다.

'등록
Private Sub btnRegister_Click()
    With FormEditClient
        .Caption = "매출처 등록"
        .Show
    End With
    
    Call Connect_DB
    Call Load_Client_DB
    Cn.Close
End Sub

FormEditClient의 Caption을 "매출처 등록"으로 설정후 불러옵니다.

FormEditClient 유저폼을 닫으면 DB를 다시 불러옵니다.

 

다음은 수정 버튼 클릭시 실행되는 코드 입니다.

'수정
Private Sub btnEdit_Click()
    If Me.txtIdx = "" Then
        MsgBox "수정할 매출처를 선택해 주세요.", vbCritical, "오류"
        Exit Sub
    End If
    
    With FormEditClient
        .Caption = "매출처 수정"
        .txtIdx = ListClient.SelectedItem.Text
        .txtlicenseNumber = ListClient.SelectedItem.SubItems(1)
        .txtclientName = ListClient.SelectedItem.SubItems(2)
        .txtaddress = ListClient.SelectedItem.SubItems(3)
        .txtbusinessConditions = ListClient.SelectedItem.SubItems(4)
        .txtbusinessCategory = ListClient.SelectedItem.SubItems(5)
        .Show
    End With
    
    Call Connect_DB
    Call Load_Client_DB
    Cn.Close
End Sub

동일하게 FormEditClient 유저폼을 사용합니다.

선택된 매출처가 없을경우 오류 메세지를 띄우고 프로시져를 종료합니다.

선택된 리스트뷰의 내용을 FormEditClient 유저폼으로 할당시켜주고, 유저폼을 닫으면 DB를 다시 불러옵니다.

 

삭제 버튼 클릭시 실행되는 코드 입니다.

'삭제
Private Sub btnDelete_Click()

    If Me.txtIdx = "" Then
        MsgBox "삭제할 매출처를 선택해 주세요.", vbCritical, "오류"
        Exit Sub
    End If

    Dim YN As VbMsgBoxResult
    
    YN = MsgBox("선택하신 매입처 정보를 삭제하시겠습니까?", vbYesNo)
    If YN = vbNo Then Exit Sub

    Call Connect_DB
    
    SQL = " DELETE FROM client WHERE idx = '" & Me.txtIdx.Value & "'"
    rs.Open SQL, Cn
    
    Call Load_Client_DB
    Cn.Close
    
    Me.txtIdx = ""
    MsgBox "선택하신 품명 정보가 삭제되었습니다..", vbInformation

End Sub

리스트뷰에서 선택된 데이터(Me.txtIdx를 참조)를 삭제한후 데이터를 다시 불러옵니다.

 

닫기 버튼 클릭시 실행되는 코드입니다.

'닫기
Private Sub btnClose_Click()
    Unload Me
End Sub