Trang Chính
Latest images
Tìm kiếm
Đăng ký
Đăng Nhập
Huy_NguyenModerations
- Tổng số bài gửi : 2
Được Cảm Ơn : 4
Join date : 13/10/2012
Age : 31
Đến từ : Bà Rịa-Vũng Tàu University 
Combobox, cũng giống như người anh em Listbox. Giúp công việc trở lên đơn giản hơn...
Sat Nov 03, 2012 12:51 am
Như bài viết trước đã nói về Listbox. Giờ mình sẽ nói rõ hơn về Combobox.
TRước tiên, ta hãy tìm hiểu công dụng và cách làm:
a. Công dụng:
Cho phép đưa dữ liệu vào đối tượng và cho phép lựa chọn giá trị.
b. Cách làm
-Tạo công cụ từ thanh công cụ (Toolbox)
-Đặt tên và xác định các thuộc tính trong “Properties”.
-Viết hàm add dữ liệu vào ComboBox
-Lớp lệnh:
.Items.Clear(): xoá toàn bộ dữ liệu
.Items.Add: thêm dữ liệu vào combo.
Sau đây mình sẽ đưa 1 ví dụ cụ thể để chúng ta có thể nắm rõ và hiểu hơn về nó.
Ta có CSDL như sau:
Yêu cầu khi click vào combobox " NHẬP MÃ HÀNG" các giá trị ở: TÊN HÀNG, SỐ LƯỢNG NHẬP và ĐƠN GIÁ sẽ tự động hiển thị:
Chúng ta bắt tay vào thực hiện từng bước:
Đầu tiên, ta sẽ đổ CSDL vào combobox "NHẬP MÃ HÀNG". Ta có thể hiểu đơn giản: khi click chuột vào thì sẽ tự động xổ ra dữ liệu
Tại class KETNOI ( "KETNOI" là tên do mình đặt khi tạo class, ở đây mình gọi KETNOI cho dễ hiểu)
...và tại form Load:
Tiếp theo, khi ta click vào Combobox "NHẬP MÃ HÀNG", thì "TÊN HÀNG, SỐ LƯỢNG NHẬP, ĐƠN GIÁ" sẽ tự động hiển thị
...tại phần Design của Form, ta click double vào Combobox "NHẬP MÃ HÀNG" để mở mục IndexChange.......
và dưới đậy là 1 From được hoàn thiện.
Phần Kết nối CSDL với Winform, các bạn tham khảo tại bài viết
[You must be registered and logged in to see this link.]
Chúc các bạn thành công.
TRước tiên, ta hãy tìm hiểu công dụng và cách làm:
a. Công dụng:
Cho phép đưa dữ liệu vào đối tượng và cho phép lựa chọn giá trị.
b. Cách làm
-Tạo công cụ từ thanh công cụ (Toolbox)
-Đặt tên và xác định các thuộc tính trong “Properties”.
-Viết hàm add dữ liệu vào ComboBox
-Lớp lệnh:
.Items.Clear(): xoá toàn bộ dữ liệu
.Items.Add
Sau đây mình sẽ đưa 1 ví dụ cụ thể để chúng ta có thể nắm rõ và hiểu hơn về nó.
Ta có CSDL như sau:
Yêu cầu khi click vào combobox " NHẬP MÃ HÀNG" các giá trị ở: TÊN HÀNG, SỐ LƯỢNG NHẬP và ĐƠN GIÁ sẽ tự động hiển thị:
Chúng ta bắt tay vào thực hiện từng bước:
Đầu tiên, ta sẽ đổ CSDL vào combobox "NHẬP MÃ HÀNG". Ta có thể hiểu đơn giản: khi click chuột vào thì sẽ tự động xổ ra dữ liệu
Tại class KETNOI ( "KETNOI" là tên do mình đặt khi tạo class, ở đây mình gọi KETNOI cho dễ hiểu)
- Code:
Public Shared Sub create_combo(ByVal st As String, ByVal item As ComboBox, ByVal name As String)
Dim da As New OleDbDataAdapter(st, kn())
Dim dt As New DataTable
da.Fill(dt)
item.Items.Clear()
Dim i
For i = 0 To dt.Rows.Count - 1
item.Items.Add(dt.Rows(i).Item(name))
Next i
End Sub
...và tại form Load:
- Code:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
KETNOI.create_combo("select MAHANG & '-' & TENHANG as NAME from DMHANG", mahang, "NAME")
End Sub
Tiếp theo, khi ta click vào Combobox "NHẬP MÃ HÀNG", thì "TÊN HÀNG, SỐ LƯỢNG NHẬP, ĐƠN GIÁ" sẽ tự động hiển thị
...tại phần Design của Form, ta click double vào Combobox "NHẬP MÃ HÀNG" để mở mục IndexChange.......
- Code:
Private Sub mahang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mahang.SelectedIndexChanged
Dim th, mh, kt As String
Dim n, m As Integer
n = mahang.Text.IndexOf("-") + 1
m = Len(mahang.Text) - n
th = mahang.Text.Substring(n, m)
tenhang.Text = th
mh = mahang.Text.Substring(0, n - 1)
Dim dt As New DataTable
dt = KETNOI.xulysql("select * from DMHANG where mahang='" & mh & "'")
If dt.Rows.Count > 0 Then
soluongnhap.Text = dt.Rows(0).Item("SOLUONGNHAP")
End If
kt = mahang.Text.Substring(0, n - 1)
dt = KETNOI.xulysql("select * from DMHANG where mahang='" & kt & "'")
If dt.Rows.Count > 0 Then
dongia.Text = dt.Rows(0).Item("DONGIA")
soluongban.Focus()
End If
End Sub
và dưới đậy là 1 From được hoàn thiện.
Phần Kết nối CSDL với Winform, các bạn tham khảo tại bài viết
[You must be registered and logged in to see this link.]
Chúc các bạn thành công.
Cộng Đồng It Vũng Tàu
Kinh Nghiệm-Học Hỏi-Chia Sẻ
Kinh Nghiệm-Học Hỏi-Chia Sẻ
Cộng Đồng IT Vũng Tàu
Thanh NguyênAdmin
- Tổng số bài gửi : 527
Được Cảm Ơn : 59
Join date : 11/10/2012
Age : 31
Đến từ : Bà Rịa-Vũng Tàu
Re: Combobox, cũng giống như người anh em Listbox. Giúp công việc trở lên đơn giản hơn...
Sat Nov 03, 2012 10:59 am
Ông vào [You must be registered and logged in to see this link.] để tham khảo upload ảnh nha, chứ up bằng cái kia nó die sạch rùi,**
haili_vt3000Members
- Tổng số bài gửi : 7
Được Cảm Ơn : 0
Join date : 09/11/2012
Re: Combobox, cũng giống như người anh em Listbox. Giúp công việc trở lên đơn giản hơn...
Fri Nov 09, 2012 9:04 am
tks ... 
- Thanh NguyênAdmin
- Tổng số bài gửi : 527
Được Cảm Ơn : 59
Join date : 11/10/2012
Age : 31
Đến từ : Bà Rịa-Vũng Tàu
Re: Combobox, cũng giống như người anh em Listbox. Giúp công việc trở lên đơn giản hơn...
Fri Nov 09, 2012 9:05 am
hehe, chào mừng sếp đã ghé thăm, - Sponsored content
Permissions in this forum:
Bạn không có quyền trả lời bài viết