매출처 관리 유저폼(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 리스트뷰의 헤..
이번 포스팅부터 매출처 관리를 시작합니다. 우선은 DB에 테이블을 생성합니다. 테이블명은 client로 각 항목은 idx(일련번호), clientName(매출처명), licenseNumber(사업자등록번호), address(주소), businessConditions(업종), businessCategory(업태) 총 6개의 항목으로 구성했습니다. 아마 차후에 추가될 항목도 있을 예정입니다. idx는 PRIMARY KEY를 설정해 주고, 기본값으로 AUTO_INCREMENT를 설정해 자동증가하도록 해줍니다. idx는 INT형으로, 나머지는 VARCHAR형으로 설정해주고 길이는 적당히 설정해 주었습니다. clientName를 제외하고 나머지는 NULL허용, 기본값 NULL입니다. 다음 포스팅부터는 매출처 관리..
