1. 기본틀
데이타 그리드뷰 2개 : 메뉴관리 테이블 (좌측), 판매관리테이블 (우측하단)
리스트박스 4개 : 메뉴 , 수량 , 단가 , 금액 (선택된 메뉴항목이 표시됨)
버튼 21개 : 추가 , 입력, 수정 , 결재창, 이전창, 저장, 삭제, 계산기 , CLEAR , 숫자키
라벨 2개 : 테이블 , table ( 테이블 번호 출력 ) 그외 라벨은 알아보기위해서 만들어 놓은것
텍스트박스 13개 : 금액창, 숫자창, 외 텍스트 박스는 삭제 및 db 저장관련하여 작성됨
그룹박스 1개 : 숫자키
=========================================================================================================
1-1. 왼쪽은 데이터그리드뷰에 " 메뉴관리 " 데이터를 불러오고
1-2. 아래 데이터그리드뷰에는 " 판매관리 " 데이터를 불러온다
1-3. 리스트박스 1-4 까지는 판매창 테이블 박스와 연동시켜 주문메뉴가 서로 연동됨 (판매창 클릭시 연동)
1-4. 클리어버튼은 주문시 잘못 메뉴선택 했을경우 메뉴와 단가만 삭제
1-5. 아래 날짜 메뉴 수량 금액 텍스트 박스는 주문 메뉴 삭제시 연동을 하기 위해 추가됨
1-6. 임시단가 임시금액 빨간색 박스들은 실제 실행화면에서는 안보이고 계산과 연동을 위해 만들어 놓음
* 여기서 제일 중요한것은 입력
입력버튼에는 수량 입력후 계산관련 코드가 있고 판매관리 DB와 연동되어 자료가 저장됨
주문 내용 삭제시에는 리스트박스 항목 선택후 아래쪽 데이터 그리드뷰 동일항목 선택후 삭제 버튼
1-7. 코드는 아래와 같다
===========================================================================================================
Public Class 메뉴선택
Dim index As Integer
' 데이터그리드뷰에 db 파일 불러오기
Private Sub 메뉴선택_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: 이 코드는 데이터를 'MapoDataSet.판매관리' 테이블에 로드합니다. 필요 시 이 코드를 이동하거나 제거할 수 있습니다.
Me.판매관리TableAdapter.Fill(Me.MapoDataSet.판매관리)
'TODO: 이 코드는 데이터를 'MapoDataSet.메뉴관리' 테이블에 로드합니다. 필요 시 이 코드를 이동하거나 제거할 수 있습니다.
Me.메뉴관리TableAdapter.Fill(Me.MapoDataSet.메뉴관리)
End Sub
''========================수량 입력 숫자 판 ====================================
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
수량입력창.Text = 수량입력창.Text & "1"
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
수량입력창.Text = 수량입력창.Text & "2"
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
수량입력창.Text = 수량입력창.Text & "3"
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
수량입력창.Text = 수량입력창.Text & "4"
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
수량입력창.Text = 수량입력창.Text & "5"
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
수량입력창.Text = 수량입력창.Text & "6"
End Sub
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
수량입력창.Text = 수량입력창.Text & "7"
End Sub
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
수량입력창.Text = 수량입력창.Text & "8"
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
수량입력창.Text = 수량입력창.Text & "9"
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
수량입력창.Text = 수량입력창.Text & "0"
End Sub
Private Sub 수량입력초기화버튼_Click(sender As Object, e As EventArgs) Handles 수량입력초기화버튼.Click
수량입력창.Text = ""
End Sub
Private Sub 클리어버튼_Click_1(sender As Object, e As EventArgs) Handles 클리어버튼.Click
If 테이블번호.Text = 1 Then
합계금액창.Text = 판매.Button1.Text
For Each item As Object In 판매.ListBox1_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox1_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox1_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox1_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 2 Then
합계금액창.Text = 판매.Button2.Text
For Each item As Object In 판매.ListBox2_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox2_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox2_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox2_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 3 Then
합계금액창.Text = 판매.Button3.Text
For Each item As Object In 판매.ListBox3_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox3_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox3_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox3_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 4 Then
합계금액창.Text = 판매.Button4.Text
For Each item As Object In 판매.ListBox4_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox4_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox4_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox4_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 5 Then
합계금액창.Text = 판매.Button5.Text
For Each item As Object In 판매.ListBox5_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox5_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox5_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox5_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 6 Then
합계금액창.Text = 판매.Button6.Text
For Each item As Object In 판매.ListBox6_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox6_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox6_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox6_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 7 Then
합계금액창.Text = 판매.Button7.Text
For Each item As Object In 판매.ListBox7_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox7_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox7_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox7_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 8 Then
합계금액창.Text = 판매.Button8.Text
For Each item As Object In 판매.ListBox8_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox8_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox8_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox8_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 9 Then
합계금액창.Text = 판매.Button9.Text
For Each item As Object In 판매.ListBox9_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox9_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox9_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox9_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 10 Then
합계금액창.Text = 판매.Button10.Text
For Each item As Object In 판매.ListBox10_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox10_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox10_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox10_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 11 Then
합계금액창.Text = 판매.Button11.Text
For Each item As Object In 판매.ListBox11_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox11_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox11_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox11_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 12 Then
합계금액창.Text = 판매.Button12.Text
For Each item As Object In 판매.ListBox12_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox12_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox12_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox12_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 13 Then
합계금액창.Text = 판매.Button13.Text
For Each item As Object In 판매.ListBox13_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox13_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox13_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox13_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 14 Then
합계금액창.Text = 판매.Button14.Text
For Each item As Object In 판매.ListBox14_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox14_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox14_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox14_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 15 Then
합계금액창.Text = 판매.Button15.Text
For Each item As Object In 판매.ListBox15_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox15_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox15_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox15_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 16 Then
합계금액창.Text = 판매.Button16.Text
For Each item As Object In 판매.ListBox16_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox16_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox16_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox16_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 17 Then
합계금액창.Text = 판매.Button17.Text
For Each item As Object In 판매.ListBox17_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox17_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox17_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox17_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 18 Then
합계금액창.Text = 판매.Button18.Text
For Each item As Object In 판매.ListBox18_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox18_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox18_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox18_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 19 Then
합계금액창.Text = 판매.Button19.Text
For Each item As Object In 판매.ListBox19_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox19_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox19_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox19_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 20 Then
합계금액창.Text = 판매.Button20.Text
For Each item As Object In 판매.ListBox20_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox20_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox20_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox20_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 21 Then
합계금액창.Text = 판매.Button21.Text
For Each item As Object In 판매.ListBox21_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox21_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox21_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox21_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 22 Then
합계금액창.Text = 판매.Button22.Text
For Each item As Object In 판매.ListBox22_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox22_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox22_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox22_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 23 Then
합계금액창.Text = 판매.Button23.Text
For Each item As Object In 판매.ListBox23_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox23_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox23_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox23_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 24 Then
합계금액창.Text = 판매.Button24.Text
For Each item As Object In 판매.ListBox24_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox24_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox24_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox24_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 25 Then
합계금액창.Text = 판매.Button25.Text
For Each item As Object In 판매.ListBox25_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox25_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox25_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox25_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 26 Then
합계금액창.Text = 판매.Button26.Text
For Each item As Object In 판매.ListBox26_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox26_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox26_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox26_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 27 Then
합계금액창.Text = 판매.Button27.Text
For Each item As Object In 판매.ListBox27_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox27_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox27_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox27_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 28 Then
합계금액창.Text = 판매.Button28.Text
For Each item As Object In 판매.ListBox28_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox28_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox28_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox28_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 29 Then
합계금액창.Text = 판매.Button29.Text
For Each item As Object In 판매.ListBox29_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox29_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox29_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox29_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 30 Then
합계금액창.Text = 판매.Button30.Text
For Each item As Object In 판매.ListBox30_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox30_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox30_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox30_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 31 Then
합계금액창.Text = 판매.Button31.Text
For Each item As Object In 판매.ListBox31_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox31_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox31_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox31_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
If 테이블번호.Text = 32 Then
합계금액창.Text = 판매.Button32.Text
For Each item As Object In 판매.ListBox32_1.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In 판매.ListBox32_2.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In 판매.ListBox32_3.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In 판매.ListBox32_4.Items
ListBox4.Items.Add(item)
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
수량입력창.Text = ""
For Each item As Object In ListBox5.Items
ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox6.Items
ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox7.Items
ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox8.Items
ListBox4.Items.Add(item)
Next
End If
End Sub
'======================데이터그리드뷰 항목 선택시 입력 =====================================
Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
' 몇번째 줄이 선택되었는지 읽어옴
Dim selection As String = DataGridView1.SelectedCells(0).RowIndex.ToString
' 텍스트 박스에 입력
임시단가창.Text = DataGridView1.Item(2, Int(selection)).Value.ToString()
메뉴창.Text = DataGridView1.Item(1, Int(selection)).Value.ToString()
날짜창.Text = Format(Now, "General date") ' 날짜 지정
' 리스트박스에 입력
ListBox1.Items.Add(DataGridView1.Item(1, Int(selection)).Value.ToString())
ListBox2.Items.Add(DataGridView1.Item(2, Int(selection)).Value.ToString())
End Sub
'============= 계산식 ====================================================
Private Sub 입력버튼_Click(sender As Object, e As EventArgs) Handles 입력버튼.Click
' ============ 금액 계산 =================================================
Dim z As String ' 음식수량
Dim ea As String ' 음식 금액
Dim x As String ' 임시 합계 창
Dim food As String ' 임시 음식 단가
'======== 수량 관련 항목 ===========
z = 수량입력창.Text '수량입력창 텍스트박스
수량창.Text = 수량입력창.Text ' 판매관리 항목
ListBox3.Items.Add(z) ' 리스트박스 입력
'============ 단가 관련 항목 ==========
food = 임시단가창.Text ' 임시 단가창을 만들어서 음식가격을 계산
ea = food * z '음식가격은 food(임시단가창) * z(수량) 기본 단가창에 입력시 멀티라인 인식불가
ListBox4.Items.Add(ea) ' 리스트박스 입력
'=========== 임시 단가 박스 항목 ,,, 계산해서 판매쪽으로 자료 넘기기위해서 박스 필요
x = food * z
임시금액창.Text = x
금액창.Text = x
'========== 총 합계금액 ================================
합계금액창.Text = Val(합계금액창.Text) + Val(임시금액창.Text)
'=========== 숫자 텍스트창 삭제 및 판매관리db에 자료 저장
수량입력창.Text = ""
임시테이블번호창.Text = 테이블번호.Text
판매관리BindingSource.AddNew()
End Sub
'=========판매시작 버튼 클릭시 판매창으로 자료 넘기기
Private Sub 판매창이동버튼_Click(sender As Object, e As EventArgs) Handles 판매창이동버튼.Click
판매.Show()
' 판매시작 테이블1에서 넘어온 경우에 테이블1에 자료보냄
If 테이블번호.Text = 1 Then
판매.Button1.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox1_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox1_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox1_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox1_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 2 Then
판매.Button2.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox2_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox2_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox2_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox2_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 3 Then
판매.Button3.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox3_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox3_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox3_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox3_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 4 Then
판매.Button4.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox4_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox4_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox4_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox4_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 5 Then
판매.Button5.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox5_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox5_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox5_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox5_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 6 Then
판매.Button6.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox6_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox6_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox6_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox6_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 7 Then
판매.Button7.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox7_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox7_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox7_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox7_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 8 Then
판매.Button8.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox8_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox8_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox8_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox8_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 9 Then
판매.Button9.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox9_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox9_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox9_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox9_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 10 Then
판매.Button10.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox10_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox10_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox10_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox10_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 11 Then
판매.Button11.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox11_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox11_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox11_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox11_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 12 Then
판매.Button12.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox12_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox12_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox12_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox12_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 13 Then
판매.Button13.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox13_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox13_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox13_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox13_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 14 Then
판매.Button14.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox14_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox14_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox14_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox14_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 15 Then
판매.Button15.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox15_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox15_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox15_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox15_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 16 Then
판매.Button16.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox16_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox16_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox16_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox16_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 17 Then
판매.Button17.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox17_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox17_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox17_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox17_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 18 Then
판매.Button18.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox18_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox18_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox18_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox18_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 19 Then
판매.Button19.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox19_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox19_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox19_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox19_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 20 Then
판매.Button20.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox20_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox20_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox20_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox20_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 21 Then
판매.Button21.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox21_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox21_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox21_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox21_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 22 Then
판매.Button22.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox22_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox22_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox22_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox22_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 23 Then
판매.Button23.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox23_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox23_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox23_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox23_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 24 Then
판매.Button24.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox24_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox24_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox24_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox24_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 25 Then
판매.Button25.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox25_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox25_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox25_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox25_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 26 Then
판매.Button26.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox26_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox26_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox26_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox26_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 27 Then
판매.Button27.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox27_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox27_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox27_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox27_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 28 Then
판매.Button28.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox28_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox28_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox28_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox28_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 29 Then
판매.Button29.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox29_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox29_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox29_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox29_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 30 Then
판매.Button30.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox30_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox30_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox30_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox30_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 31 Then
판매.Button31.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox31_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox31_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox31_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox31_4.Items.Add(item)
Next
End If
If 테이블번호.Text = 32 Then
판매.Button32.Text = 합계금액창.Text
For Each item As Object In ListBox1.Items
판매.ListBox32_1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
판매.ListBox32_2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
판매.ListBox32_3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
판매.ListBox32_4.Items.Add(item)
Next
End If
판매관리TableAdapter.Update(MapoDataSet.판매관리)
Me.Close()
End Sub
' ============== 윈도우 계산기 불러오기
Private Sub 계산기버튼_Click(sender As Object, e As EventArgs) Handles 계산기버튼.Click
Shell("C:\WINDOWS\System32\calc.exe")
End Sub
' ===================== 결제 클릭시 텍스트 박스 및 리스트박스
Private Sub 결제버튼_Click(sender As Object, e As EventArgs) Handles 결제버튼.Click
결제창.Show()
If 테이블번호.Text = 1 Then
결제창.pricetable.Text = 1
판매.Button1.Text = ""
End If
If 테이블번호.Text = 2 Then
결제창.pricetable.Text = 2
판매.Button2.Text = ""
End If
If 테이블번호.Text = 3 Then
결제창.pricetable.Text = 3
판매.Button3.Text = ""
End If
If 테이블번호.Text = 4 Then
결제창.pricetable.Text = 4
판매.Button4.Text = ""
End If
If 테이블번호.Text = 5 Then
결제창.pricetable.Text = 5
판매.Button5.Text = ""
End If
If 테이블번호.Text = 6 Then
결제창.pricetable.Text = 6
판매.Button6.Text = ""
End If
If 테이블번호.Text = 7 Then
결제창.pricetable.Text = 7
판매.Button7.Text = ""
End If
If 테이블번호.Text = 8 Then
결제창.pricetable.Text = 8
판매.Button8.Text = ""
End If
If 테이블번호.Text = 9 Then
결제창.pricetable.Text = 9
판매.Button9.Text = ""
End If
If 테이블번호.Text = 10 Then
결제창.pricetable.Text = 10
판매.Button10.Text = ""
End If
If 테이블번호.Text = 11 Then
결제창.pricetable.Text = 11
판매.Button11.Text = ""
End If
If 테이블번호.Text = 12 Then
결제창.pricetable.Text = 12
판매.Button12.Text = ""
End If
If 테이블번호.Text = 13 Then
결제창.pricetable.Text = 13
판매.Button13.Text = ""
End If
If 테이블번호.Text = 14 Then
결제창.pricetable.Text = 14
판매.Button14.Text = ""
End If
If 테이블번호.Text = 15 Then
결제창.pricetable.Text = 15
판매.Button15.Text = ""
End If
If 테이블번호.Text = 16 Then
결제창.pricetable.Text = 16
판매.Button16.Text = ""
End If
If 테이블번호.Text = 17 Then
결제창.pricetable.Text = 17
판매.Button17.Text = ""
End If
If 테이블번호.Text = 18 Then
결제창.pricetable.Text = 18
판매.Button18.Text = ""
End If
If 테이블번호.Text = 19 Then
결제창.pricetable.Text = 19
판매.Button19.Text = ""
End If
If 테이블번호.Text = 20 Then
결제창.pricetable.Text = 20
판매.Button20.Text = ""
End If
If 테이블번호.Text = 21 Then
결제창.pricetable.Text = 21
판매.Button21.Text = ""
End If
If 테이블번호.Text = 22 Then
결제창.pricetable.Text = 22
판매.Button22.Text = ""
End If
If 테이블번호.Text = 23 Then
결제창.pricetable.Text = 23
판매.Button23.Text = ""
End If
If 테이블번호.Text = 24 Then
결제창.pricetable.Text = 24
판매.Button24.Text = ""
End If
If 테이블번호.Text = 25 Then
결제창.pricetable.Text = 25
판매.Button25.Text = ""
End If
If 테이블번호.Text = 26 Then
결제창.pricetable.Text = 26
판매.Button26.Text = ""
End If
If 테이블번호.Text = 27 Then
결제창.pricetable.Text = 27
판매.Button27.Text = ""
End If
If 테이블번호.Text = 28 Then
결제창.pricetable.Text = 28
판매.Button28.Text = ""
End If
If 테이블번호.Text = 29 Then
결제창.pricetable.Text = 29
판매.Button29.Text = ""
End If
If 테이블번호.Text = 30 Then
결제창.pricetable.Text = 30
판매.Button30.Text = ""
End If
If 테이블번호.Text = 31 Then
결제창.pricetable.Text = 31
판매.Button31.Text = ""
End If
If 테이블번호.Text = 32 Then
결제창.pricetable.Text = 32
판매.Button32.Text = ""
End If
결제창.결제금액textbox.Text = 합계금액창.Text
결제금액입력.임시결제금액textbox.Text = 합계금액창.Text
' 메뉴선택창 에 자료 입력
For Each item As Object In ListBox1.Items
결제창.ListBox1.Items.Add(item)
Next
For Each item As Object In ListBox2.Items
결제창.ListBox2.Items.Add(item)
Next
For Each item As Object In ListBox3.Items
결제창.ListBox3.Items.Add(item)
Next
For Each item As Object In ListBox4.Items
결제창.ListBox4.Items.Add(item)
Next
결제창.계산BindingSource.AddNew()
End Sub
Private Sub 추가버튼_Click(sender As Object, e As EventArgs) Handles 추가버튼.Click
판매관리BindingSource.AddNew()
End Sub
'=============== 삭제 버튼 클릭시 리스트 박스에서 행 삭제
Private Sub 삭제버튼_Click(sender As Object, e As EventArgs) Handles 삭제버튼.Click
'ListBox1.Items.RemoveAt(ListBox1.selectedindex())
' 위내용은 선택한 항목 하나 하나씩 삭제
' ========= 아래 내용은 한번에 박스4개 선택항목을 삭제
Dim clear As String
clear = ListBox1.SelectedItem
ListBox1.Items.Remove(clear)
clear = ListBox2.SelectedItem
ListBox2.Items.Remove(clear)
clear = ListBox3.SelectedItem
ListBox3.Items.Remove(clear)
clear = ListBox4.SelectedItem
ListBox4.Items.Remove(clear)
'=============== 삭제버튼 클릭시 총금액에서 삭제된 금액만큼 다시 계산
합계금액창.Text = Val(합계금액창.Text) - Val(금액창.Text)
' 판매관리 그리드뷰 선택항목 삭제
판매관리BindingSource.RemoveCurrent()
' MessageBox.Show("삭제완료")
End Sub
Private Sub 저장버튼_Click(sender As Object, e As EventArgs) Handles 저장버튼.Click
판매관리TableAdapter.Update(MapoDataSet.판매관리)
MessageBox.Show("저장완료")
End Sub
'=========== 수정버튼 클릭시 내용 수정시 다시 계산해야 하므로 삭제후 입력으로 변경
' Private Sub EditButton_Click(sender As Object, e As EventArgs) Handles EditButton.Click
'Dim edit1 As Integer = ListBox1.SelectedIndex
'Dim edit3 As Integer = ListBox3.SelectedIndex
'Dim edit4 As Integer = ListBox4.SelectedIndex
' ListBox1.Items.RemoveAt(edit1)
' ListBox1.Items.Insert(edit1, TextBox10.Text) ' 메뉴
'ListBox3.Items.RemoveAt(edit3)
' ListBox3.Items.Insert(edit3, TextBox11.Text) ' 수량
' ListBox4.Items.RemoveAt(edit4)
' ListBox4.Items.Insert(edit4, TextBox12.Text) ' 금액
' 판매관리 그리드뷰 수정
'Dim newRow As DataGridViewRow
'Dim selection As String = DataGridView2.SelectedCells(0).RowIndex.ToString
'newRow = DataGridView2.Rows(index)
' DataGridView2.Item(0, Int(selection)).Value = TextBox9.Text
'DataGridView2.Item(1, Int(selection)).Value = TextBox10.Text
'DataGridView2.Item(2, Int(selection)).Value = TextBox11.Text
'DataGridView2.Item(3, Int(selection)).Value = TextBox12.Text
' End Sub
' listbox1 항목 선택시 같은 줄에 있는 항목 동시 선택
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
If ListBox1.SelectedIndex > -1 Then
Dim iselect As Integer = ListBox1.SelectedIndex
ListBox1.SelectedIndex = iselect
ListBox2.SelectedIndex = iselect
ListBox3.SelectedIndex = iselect
ListBox4.SelectedIndex = iselect
End If
날짜창.Text = Format(Now, "General date") ' 날짜 지정
메뉴창.Text = "Nullable"
수량창.Text = "nullable"
End Sub
' ListBox2 항목 선택시 같은 줄에 있는 항목 동시 선택
Private Sub ListBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox2.SelectedIndexChanged
If ListBox2.SelectedIndex > -1 Then
Dim iselect As Integer = ListBox2.SelectedIndex
ListBox1.SelectedIndex = iselect
ListBox3.SelectedIndex = iselect
ListBox4.SelectedIndex = iselect
End If
날짜창.Text = Format(Now, "General date") ' 날짜 지정
메뉴창.Text = "Nullable" ' 데이터 그리드뷰 선택시 NULL 발생 제어
수량창.Text = "nullable"
End Sub
' ListBox3 항목 선택시 같은 줄에 있는 항목 동시 선택
Private Sub ListBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox3.SelectedIndexChanged
If ListBox3.SelectedIndex > -1 Then
Dim iselect As Integer = ListBox3.SelectedIndex
ListBox1.SelectedIndex = iselect
ListBox2.SelectedIndex = iselect
ListBox4.SelectedIndex = iselect
End If
날짜창.Text = Format(Now, "General date") ' 날짜 지정
메뉴창.Text = "Nullable" ' 데이터 그리드뷰 선택시 NULL 발생 제어
수량창.Text = "nullable"
End Sub
' ListBox4 항목 선택시 같은 줄에 있는 항목 동시 선택
Private Sub ListBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox4.SelectedIndexChanged
If ListBox4.SelectedIndex > -1 Then
Dim iselect As Integer = ListBox4.SelectedIndex
ListBox1.SelectedIndex = iselect
ListBox2.SelectedIndex = iselect
ListBox3.SelectedIndex = iselect
End If
날짜창.Text = Format(Now, "General date") ' 날짜 지정
메뉴창.Text = "Nullable" ' 데이터 그리드뷰 선택시 NULL 발생 제어
수량창.Text = "nullable"
End Sub
End Class
' 비주얼스튜디오(베이직) 2017 > POS 만들기' 카테고리의 다른 글
| 비주얼베이직 2017 POS 만들기 - 6. 결제창 및 받은금액 입력창 (0) | 2018.03.28 |
|---|---|
| 비주얼베이직 2017 POS 만들기 - 5. 매출 정보 창 (0) | 2018.03.27 |
| 비주얼베이직 2017 POS 만들기 - 3. 메뉴 추가 및 삭제 (0) | 2018.03.27 |
| 비주얼베이직 2017 POS 만들기 - 2. 첫 실행화면 (판매창) (0) | 2018.03.27 |
| 비주얼베이직 2017 POS 만들기 - 1. 로그인창 (0) | 2018.03.27 |
