이번 포스팅 부터는 상품 관리를 만들 예정입니다. 상품 관리는 사실 고민이 좀 많이 되는데, 저희가 사용하는 방식을 토대로 만들예정이라 상품 관리가 2가지가 될 예정입니다. 첫번째는 일반적인 상품 관리이고, 두번째는 거래처에서 보내오는 상품명(거래처의 상품명이라고 생각하시면 되겠습니다)을 처음의 상품명과 연결해서 사용하는 방식으로 진행합니다. 사실 이부분은 발주 시스템을 구축하면 하나만 가지고 되는 부분이기는 한데 사정상 여의치 않거나 뭐 여러가지 이유로 이런 방식을 유지해야하는 경우가 (저희 같은 경우도 그렇습니다) 있어서 우선은 이 방향으로 진행해 보고자 합니다. 차후에는 발주 입력시에 없는 상품일 경우 상품 등록 창을 띄워 상품등록을 하는 방향으로 진행할까 합니다. 우선 기초가 되는 테이블을 생성해..
매출처 관리 유저폼(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입니다. 다음 포스팅부터는 매출처 관리..
이번 포스팅은 5개의 버튼 각각의 코드입니다. 버튼은 등록, 수정, 삭제, 초기화, 닫기 이렇게 5개입니다. 우선 등록 버튼은 매입처명, 구분, 발주구분을 입력한뒤 클릭시 DB에 저장(INSERT)하는 코드입니다. '등록 Private Sub btnRegister_Click() If txtPurchase.Value = "" Then MsgBox "매입처명을 입력해 주세요.", vbCritical, "입력오류" Exit Sub End If Call Connect_DB '중복 매입처 체크 SQL = "SELECT * FROM purchase WHERE purchaseName LIKE '" & txtPurchase.Value & "'" rs.CursorLocation = adUseClient '★★★★★★★★..
이번 포스팅에서는 매입처 관리폼에 만든 Listview에 데이터를 넣는 코드를 작성해 보겠습니다. 먼저 폼이 열릴때 실행되는 코드 입니다. '폼 열릴때 실행 Private Sub UserForm_Initialize() Call SetColumnHeaders Call Load_Purchase_DB Me.txtSearch.SetFocus End Sub Listview의 헤더를 설정해주고, 데이터를 불러온뒤 검색창으로 포커스를 맞춰줍니다. SetColumnHeaders는 Listview의 헤더를 설정해 주는 모듈입니다. 코드는 아래와 같습니다. '리스트뷰 헤더 설정 Private Sub SetColumnHeaders() With Me.ListProduct.ColumnHeaders .Add Text:="번호",..
매입처 테이블명은 purchase로 생성했습니다. idx는 일련번호 purchaseName은 매입처명 sorsortation은 구분 orderSortation은 발주구분 이상의 이름으로 테이블을 만들어 주었습니다. idx는 AUTO_INCREMENT를 설정해 주어 자동으로 번호를 부여하도록 만들어 주었어요. idx에 PRIMARY_KEY를 부여해 중복이 없도록 만들어 주었구요. 구분은 발주서 출력시 구분을 위해 만들어 주었고, 발주구분은 납품서 출력시 구분을 위해서 만들어 주었습니다. 아마 당장은 사용하지 않겠지만 차후 사용할 계획입니다.
이전에 매입처 관리를 시트로 만들었었는데, 이번에 DB 변경하면서 유저폼으로 새로 만들기로 했습니다. 일단 유저폼 양식은 아래와 같습니다. 텍스트 박스 5개 (검색, 매입처명, 구분, 발주구분) 매입처명 위의 텍스트 박스는 일련번호용 입니다. 나중에 숨김처리할 예정입니다. 버튼 5개 (등록, 수정, 삭제, 초기화, 닫기) 로 구성했습니다. 여담이지만 사실 등록, 수정 부분을 팝업으로 유저폼을 하나 더 만들까를 많이 고민했는데, 일단 구성 요소가 3개밖에 안되서 그냥 유저폼 하나에서 처리하는 방향으로 잡았습니다. 매출처 관리쪽은 팝업 형식으로 만들 예정입니다. 데이터를 표시하는 부분은 ListView를 사용했습니다. 도구>추가 컨트롤에서 Microsoft ListView Control, version 6...
