매출처 관리 유저폼(FormClient) 매출처 관리 유저폼 전체 코드 더보기 Option Explicit '폼 열릴때 실행 Private Sub UserForm_Initialize() Call SetColumnHeaders Call Connect_DB Call Load_Client_DB Cn.Close Me.txtSearch.SetFocus End Sub '리스트뷰 헤더 설정 Private Sub SetColumnHeaders() With Me.ListClient.ColumnHeaders .Add Text:="번호", Width:=0, Alignment:=lvwColumnLeft .Add Text:="매출처명", Width:=150, Alignment:=lvwColumnCenter .Add Text:=..
매출처 관리에서 등록/수정을 눌렀을때 팝업되는 유저폼 입니다. 하나의 유저폼을 사용해서 Caption을 다르게 설정해주고 Caption에 따라 처리를 나눠줬습니다. 유저폼의 레이아웃은 아래와 같습니다. 이해를 돕기 위해 텍스트 박스에는 이름을 써놓았습니다. 등록 버튼은 btnSave, 닫기 버튼은 btnClose로 설정했습니다. 유저폼 이름은 FormEditClient로 설정했습니다. 코드는 아래를 펼쳐서 확인해 주세요. 더보기 Option Explicit '저장 Private Sub btnSave_Click() If Me.Caption = "매출처 등록" Then Call Add_Client Else Call Edit_Client End If Unload Me End Sub '닫기 Private Sub..
지난 포스팅에서 만들었던 매출처 관리 유저폼의 각 버튼별 코드를 이번 포스팅에서는 다루겠습니다. 등록, 수정, 삭제, 닫기 총 4개의 버튼이 있습니다. 등록, 수정 버튼을 클릭했을시 유저폼을 하나더 팝업시켜 사용하는 방식으로 데이터를 추가/수정합니다. 사용할 유저폼은 FormEditClient로 이름을 설정했습니다. FormEditClient 유저폼은 다음 포스팅에서 다루도록 하겠습니다. 우측상단의 txtIdx 텍스트 박스는 Visible을 False로 설정해서 보이지 않게 숨겨주었습니다. 먼저 등록 버튼 클릭시 실행되는 코드 입니다. '등록 Private Sub btnRegister_Click() With FormEditClient .Caption = "매출처 등록" .Show End With Call..
이번 포스팅에서는 매출처 관리 유저폼을 만들어 보겠습니다. 기본 레이아웃은 아래의 그림과 같습니다. 검색은 텍스트 박스, 우측 상단에 텍스트 박스는 리스트뷰 선택시 선택한 idx를 넣어둘 텍스트 박스입니다. 매입처 관리 유저폼과 마찬가지로 리스트뷰를 사용했습니다. 아래의 등록, 수정, 삭제, 닫기의 4개 버튼은 레이블 컨트롤을 사용합니다. 다음은 유저폼 코드입니다. 먼저 유저폼이 실행되었을때 처리되는 코드 입니다. Option Explicit '폼 열릴때 실행 Private Sub UserForm_Initialize() Call SetColumnHeaders Call Connect_DB Call Load_Client_DB Cn.Close Me.txtSearch.SetFocus End Sub 리스트뷰의 헤..
오늘은 지난 발주관리#3에서 만들어 두었던 추가,수정 버튼에 연결할 유저폼을 만들겠습니다. 우선 매입처등록폼 입니다. 매입처명은 textbox로 구분은 combobox로 만들어주시고 명령단추로 저장, 취소를 만들어주세요. 그다음 매입처수정폼 입니다. 번호, 매입처명은 textbox로 구분은 combobox로 명령단추로 저장, 취소를 만들어주세요. 매입처등록폼에 번호만 추가된겁니다. ㅎㅎ 매입처수정폼에서 번호 textbox의 속성에서 Enabled를 false로 설정해주세요. 일련번호가 들어가는 부분이기 때문에 수정을 할수 없게 만들어 줘야 합니다. 이번 포스팅은 조금 짧지만 여기까지 입니다. 다음 포스팅은 추가, 수정, 삭제에 해당하는 DB 제어 프로시저를 작성하도록 하겠습니다.
