INTECH
Chào Mừng Bạn Đã Ghé Thăm Diễn Đàn Intech.forumvi.com của chúng tôi.

Mong rằng tại đây bạn sẽ nhận được những thông tin hữu ích,, và đáp ứng được nhu cầu của bạn.

Tuy ít nhiều chúng tôi vẫn còn khá nhiều thiếu sót về nội dung và hình thức, mong nhận được ý kiến đóng góp từ các bạn để chúng tôi tự hoàn thiện.

Hiện tại, bạn có thể đăng nhập Intech thông qua Open ID Facebook, hết sức nhanh chóng và tiện lợi.

Xin lưu ý: Thông tin bạn đăng kí về Giới tính và Ngày sinh, chúng tôi khảo sát nhằm thống kê và kịp gửi lời chúc mừng đến các bạn trong các dịp lễ, sinh hoạt,...trong Diễn Đàn.

Quyền Lợi: Được tham gia giao lưu, chia sẻ kinh nghiệm cùng các thành viên, được tải các tài liệu, phần mềm hỗ trợ cần thiết,...

Các đường Link chỉ sử dụng được khi đã đăng nhập.

Xin Cảm Ơn và gửi đến các bạn lời chào Thân Ái từ Intech.forumvi.com.

Join the forum, it's quick and easy

INTECH
Chào Mừng Bạn Đã Ghé Thăm Diễn Đàn Intech.forumvi.com của chúng tôi.

Mong rằng tại đây bạn sẽ nhận được những thông tin hữu ích,, và đáp ứng được nhu cầu của bạn.

Tuy ít nhiều chúng tôi vẫn còn khá nhiều thiếu sót về nội dung và hình thức, mong nhận được ý kiến đóng góp từ các bạn để chúng tôi tự hoàn thiện.

Hiện tại, bạn có thể đăng nhập Intech thông qua Open ID Facebook, hết sức nhanh chóng và tiện lợi.

Xin lưu ý: Thông tin bạn đăng kí về Giới tính và Ngày sinh, chúng tôi khảo sát nhằm thống kê và kịp gửi lời chúc mừng đến các bạn trong các dịp lễ, sinh hoạt,...trong Diễn Đàn.

Quyền Lợi: Được tham gia giao lưu, chia sẻ kinh nghiệm cùng các thành viên, được tải các tài liệu, phần mềm hỗ trợ cần thiết,...

Các đường Link chỉ sử dụng được khi đã đăng nhập.

Xin Cảm Ơn và gửi đến các bạn lời chào Thân Ái từ Intech.forumvi.com.
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
Đơn vị cung cấp sản phẩm giá cạnh tranh với nhiều loại mặt hàng.Là đơn vị tài trợ hàng đầu của Forum. Liên kết: https://thanhnguyenstore.com/
Latest topics
Thích Bài viết này
Lượt Truy Cập
Bộ Đếm
Thống Kê
Hiện có 1 người đang truy cập Diễn Đàn, gồm: 0 Thành viên, 0 Thành viên ẩn danh và 1 Khách viếng thăm

Không

View the whole list


Go down
Huy_Nguyen
Huy_Nguyen
Moderations
Moderations
Tổng số bài gửi : 2
Được Cảm Ơn : 4
Join date : 13/10/2012
Age : 28
Đến từ : Bà Rịa-Vũng Tàu University
https://intech.forumvi.com/u8

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... Empty 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
Message reputation : 100% (1 vote)
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:

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... Fffuxd




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ị:

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... Qqqo




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
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... Aaaud



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ị

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... Mmmpb


...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.

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... Hhhwu




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.

pirat pirat pirat pirat pirat pirat pirat

Cộng Đồng It Vũng Tàu
Kinh Nghiệm-Học Hỏi-Chia Sẻ
Cộng Đồng IT Vũng Tàu


Được sửa bởi Huy_Nguyen ngày Sat Nov 03, 2012 11:47 am; sửa lần 1.
Thanh Nguyên
Thanh Nguyên
Admin
Admin
Tổng số bài gửi : 527
Được Cảm Ơn : 59
Join date : 11/10/2012
Age : 29
Đến từ : Bà Rịa-Vũng Tàu
https://thanhnguyenstore.com/

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... Empty 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,**

_________________
Thanh Nguyên Store

[You must be registered and logged in to see this link.]
avatar
haili_vt3000
Members
Members
Tổng số bài gửi : 7
Được Cảm Ơn : 0
Join date : 09/11/2012

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... Empty 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 ... Surprised
Thanh Nguyên
Thanh Nguyên
Admin
Admin
Tổng số bài gửi : 527
Được Cảm Ơn : 59
Join date : 11/10/2012
Age : 29
Đến từ : Bà Rịa-Vũng Tàu
https://thanhnguyenstore.com/

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... Empty 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
Laughing hehe, chào mừng sếp đã ghé thăm,

_________________
Thanh Nguyên Store

[You must be registered and logged in to see this link.]
Sponsored content

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... Empty 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...

Về Đầu Trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết