IT Business - 부서관리 , 리스트

리스트 뷰

---

[listview 속성, 메소드]

lvwData.View = lvwReport 는 리스트 뷰어 모양을 설정합니다.
- lvwIcon : 큰 아이콘으로 보기
- lvwList : 목록으로 보기
- lvwReport : 자세히 보기
- lvwSmallIcon : 작은 아이콘으로 보기

lvwData.ColumnHeaders.Clear = 컬럼의 헤더를 삭제합니다.
lvwData.ListItems.Clear = 리스트에 등록된 내용을 삭제합니다.

lvwData.ColumnHeaders.Add,,"이름을 선택하세요.", 3000
[index][key],[Text],[width],[Alignment].[Icon]

lvwData.LabelEdit = lvwMenual : 리스트 뷰의 레이블의 편집 상태를 수정 못하도록 합니다.

-소스 >

---

Private Sub Command_신규_Click()
If Command_신규.Caption = "신규" Then
If txt부서명.Text = "" Then
MsgBox "부서명을 입력해주세요", vbExclamation, "부서관리"
txt부서명.SetFocus
Exit Sub
End If

On Error GoTo sqlERR
adoCmd.ActiveConnection.BeginTrans 'DB 트랜잭션을 시작합니다.
sql = "INSERT INTO 부서(부서명) Values ('" & txt부서명.Text & "')"
adoCmd.CommandText = sql
adoCmd.Execute
If Err.Number = 0 Then
adoCmd.ActiveConnection.CommitTrans '커밋 트랜잭션 수행
MsgBox "부서명이 등록되었습니다", vbInformation, "부서관리"
sql = "Select * from 부서 where 부서명 = '" & Me.txt부서명.Text & "'"
sqlQ (sql)
If Rs.RecordCount > 0 Then
Rs.MoveFirst
부서.부서코드 = Rs!ID
부서.부서명 = Me.txt부서명.Text
End If
Else
adoCmd.ActiveConnection.RollbackTrans '에러발생하면, 롤백수행
MsgBox "에러가 발생하였습니다" & vbLf & _
Err.Number & vbLf & Err.Description, vbExclamation, "부서관리"
End If
Else
If txt부서명.Text = "" Then
MsgBox "부서명을 입력하세요", vbExclamation, "부서관리"
txt부서명.SetFocus
Exit Sub
End If
On Error GoTo sqlERR
adoCmd.ActiveConnection.BeginTrans '트랜잭션 수행
sql = "UPDATE 부서 SET 부서명 = '" & txt부서명.Text & "' Where ID = " & _
txt부서명.Text & "'"
adoCmd.CommandText = sql
adoCmd.Execute

If Err.Number = 0 Then
adoCmd.ActiveConnection.CommitTrans
MsgBox "부서명이 수정되었습니다", vbInformation, "부서관리"
Else
adoCmd.ActiveConnection.RollbackTrans
MsgBox "에러가 발생하였습니다" & vbLf & _
Err.Number & vbLf & Err.Description, vbExclamation, "부서관리"
End If

Me.Hide
Unload Me
Exit Sub
sqlERR:
MsgBox Err.Description, vbInformation, "부서관리"
End Sub

---