Đang chuẩn bị liên kết để tải về tài liệu:
Kế toán doanh nghiệp với Visual Basic part 6

Tham khảo tài liệu 'kế toán doanh nghiệp với visual basic part 6', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Chương 4 Phân hệ kê toán hàng hóa 247 Chọn I Thoái I Hình 4.7. Màn hình thiết kế Form FrmChon_nhomhh. Bước 1. Đặt điều khiển Listview Ivltemlên Form lần lượt thiết dặt các thuộc tính sau Listview Properties Value Lvltem Name Lvltem Font VNI-Times Nhấp nút phái mouse lên Ivltem chọn lệnh Properties trên menu nhanh đế mớ cửa sổ Property Pages. Chọn trang Column Headers lằn lượt định tiêu dề và độ rộng các cột hiến thị dử liệu trong Listview như sau Column Text Index Width Column 1 I Mà số nhóm 1 1200 Column 2 Tên nhóm 2 3000 248 Kế toán doanh nghiệp với Visual Basic Bước 2. Đặt lên Form 2 Command button với các thuộc tinh sau Command button Properties and Values Chọn Name cmdSelect Caption Chọn Thoát Name cmdClose Caption Thoát Bước 3. Viết mả lệnh xử lý Dim ma Private Sub cmdCLOSE Clicko Unload Me End Sub Cộp nhật mã nhóm đã chọn vào Form F DMHH xong dong Form chọn mã nhóm Private Sub cmdSELECTCIickO F_DMHH.M5NH0M ma Unload Me End Sub Nạp săn nội dung Table T_DMnhom vào Listview ivltem Private Sub Form ActivateO Dim mltem As Listltem On Error C.oTo Checkerrnr I vltem. List Items. Clear If F_dmhh.admnhom.Recordset.EOF False Or F dmhh.admnhom.Recordset.BOF False Then F_DMHH.ADMNHOM.Recordset.MoveFirst Đã đến record cuối cùng trong T OM NHOM chưa While Not F DMHH.Admnhom.Recordset.EOF Gán giá trị field msnhom cho cột dầu liên trong I istviow Chương 4 Phân hệ kế toán hàng hóa 249 Set mltem I vltem.Listllems.Addí F dmlili.Admnhom .RecordselC Msnhom Gán giá trị field tennhom cho CỘI thứ hai trong Listview mliem.Subltemst I F OMHH.ADMN HOM. Recordset Tennhom11 Chuyến dèỉì record tièp theo l DMHH.ADMNHOM.Recordset.MoveNext Wend End lí Checkerror If Frr. Number 0 Then MsgBox Err.Number End It End Sub Private Sub Ivltem DblClickl mdSELECT Clic k End Sub Private Suh IvtlemltemCtickiByy ai item As MSComctfLib.Listltem Hid Item. Text End Sub Nhâh phím Enter trên ỉ má nhóm trên Listview tương dương nhấp lìút Chọn Private Sub ívitem KeyPresslKeyAscìí As Integer Select Case .