- [C#] Hướng dẫn fix lỗi Visual Studio 2022 not Support Target Net Framework 4.5.2
- [C#] Giới thiệu thư viện Sunny UI thiết kế giao diện trên Winform
- [DATABASE] Hướng dẫn thêm và cập nhật Extended Property Column trong Table Sqlserver
- [DEVEXPRESS] Hướng dẫn sử dụng Vertical Gridview để hiển thị thông tin sản phẩm
- [C#] Hướng dẫn sử dụng Json Schema để Validate chuỗi string có phải json
- [C#] Hướng dẫn sử dụng công cụ Clean Code trên Visual Studio
- [C#] Hướng dẫn Drag and Drop File vào RichTextBox
- [C#] Hướng dẫn tạo hiệu ứng Karaoke Text Effect Winform
- [C#] Sử dụng thư viện ZedGraph vẽ biểu đồ Line, Bar, Pie trên Winform
- [DATABASE] Hướng dẫn sort sắp xếp địa chỉ IP trên sqlserver sử dụng hàm PARSENAME
- [C#] Theo dõi sử kiện process Start hay Stop trên Winform
- [ASP.NET] Chia sẻ source code chụp hình sử dụng camera trên website
- [C#] Chạy ứng dụng trên Virtual Desktop (màn hình ảo) Winform
- [C#] Mã hóa và giải mã Data Protection API trên winform
- [C#] Hướng dẫn tạo Gradient Background trên Winform
- [DATABASE] Hướng dẫn convert Epoch to DateTime trong sqlserver
- [DATABASE] Hướng dẫn sử dụng STRING_AGG và CONCAT_WS trong sqlserver 2017
- [C#] Hướng dẫn Copy With All Property in Class Object
- [DEVEXPRESS] Hướng dẫn load Json DataSource vào GridView
- [C#] Hướng dẫn tạo chữ ký trên winform Signature Pad
GridControl DevExpress - Thêm sửa xóa trực tiếp trên grid VB.Net
Hôm nay mình sẽ làm một ví dụ nhỏ về GridControl DevExpress bằng ngôn ngữ VB.Net. Những ai viết bằng C# thì có thể vào https://laptrinhvb.net/bai-viet/chuyen-de-vb-net/Huong-dan-tich-hop-cong-cu-chuyen-doi-ngon-ngu-VB-NET-sang--Csharp--va-nguoc-lai-vao-Visual-Studio-/efeeafa26761ad58.html để xem hướng dẫn convert nha.
Gridcontrol là dạng lưới để thể hiện table trên phần mềm. Nó chính là datagrid của windows, nhưng được tích hợp sẵn gần như mọi thứ cho lập trình viên (đáng giá ngàn đô mà), chúng ta chỉ việc đào và xài thôi. Các bạn có thể tham khảo tại trang chính của nó tại https://www.devexpress.com/products/net/controls/winforms/grid/ , "Everything you'll need for your next WinForms project", việc còn lại cứ để "Gu Gồ trán" nhá.
Bắt đầu với việc mình tạo một from gồm BarManager để làm menu from, một ImageColletion để chưa các icon của menu, một GridControl - nhân vật chính đây. Hoàn tất sẽ được như này:
Viết hàm để đưa table vào grid:
Public Function _load_data(ByVal strLenh As String) As DataSet
Dim ds As New DataSet
open_connect()
Dim d As String = "set dateformat dmy"
Dim cmd1 As New SqlCommand(d, strconnect)
cmd1.ExecuteNonQuery()
Dim cmd As New SqlDataAdapter(strLenh, strconnect)
cmd.Fill(ds)
close_connect()
Return ds
End Function
'Hàm thực thi các lệnh insert,delete,update trong SQL
Public Sub _Update(ByVal strLenh As String)
open_connect()
Dim d As String = "set dateformat dmy"
Dim cmd1 As New SqlCommand(d, strconnect)
cmd1.ExecuteNonQuery()
Dim cmd As New SqlCommand(strLenh, strconnect)
cmd.ExecuteNonQuery()
close_connect()
End Sub
Sau đó mình dùng hàm _load_data để lấy table từ SQl, và đưa vào nguồn của Grid bằng hàm này:
Public Sub load_grid()
Dim ds As New DataSet
ds = _load_data("select * from tbl_nhanvien")
GridControl1.DataSource = ds.Tables(0)
'đưa giá trị cho label
lbl_manv.DataBindings.Clear()
lbl_manv.DataBindings.Add("Text", ds.Tables(0), "manv")
End Sub
Và gọi nó ra khi form 1 load nha.
Nhấn F5 ta sẽ được kết quả như sau:
Bây giờ mình sẽ viết hàm cho nút Lưu, sẽ có chức năng là lưu những dòng mới được thêm vào và cả những dòng vừa được chỉnh sửa.
Mình sử dụng thuộc tính RowState của dòng trong grid, nó sẽ chứa các trạng thái như: Add, Delete, Detach, Modifi, Unchange, thể hiện là vừa mới thêm vào, vừa xóa, vừa chỉnh sủa,.. Mình sẽ sử dũng Add để bắt các dòng mới được thêm vào, và Modifi để bắt các dòng đã được chỉnh sửa. Thủ tục sẽ là:
Public Sub luu_grid()
lbl_manv.Focus()
'cần tạo ra 1 datarow để lấy nội dung đã được chỉnh sửa trên lưới
Dim dr As DataRow
For i As Integer = 0 To AdvBandedGridView1.RowCount - 1
dr = AdvBandedGridView1.GetDataRow(i)
If dr.RowState = DataRowState.Modified Then
_Update("update tbl_nhanvien set tennv=N'" & dr("tennv") & "',ngaysinh='" & dr("ngaysinh") & "',quequan=N'" & dr("quequan") & "',gioitinh=N'" & dr("gioitinh") & "' where manv='" & dr("manv") & "'")
ElseIf dr.RowState = DataRowState.Added Then
_Update("insert into tbl_nhanvien(tennv,gioitinh,ngaysinh,quequan) values (N'" & dr("tennv") & "',N'" & dr("gioitinh") & "','" & dr("ngaysinh") & "','" & dr("quequan") & "')")
'bỏ qua mã nhân viên vì mình set nó auto
End If
Next
End Sub
Để hàm này trong sự kiện click của nút Lưu nha.
Tương tự cho nút Xóa, quan trọng là mình cần phải bắt được dòng nào cần xóa, và chỉ xóa mỗi dòng đó thôi. Gridcontrol có hỗ trợ cho chúng ta: khi ta thay đổi dòng, tức là khi bạn click vào nhiều dòng trên lưới thì giá trị "nó" cũng thay đổi theo. Nó ở đây là 1 cái lable mình tạo ra và sử dụng trong thủ tục Load_grid ở trên. để set giá trị cho Lable mình viết như sau:
lbl_manv.DataBindings.Clear()
lbl_manv.DataBindings.Add("Text", ds.Tables(0), "manv")
Bộ đôi này sẽ được dùng rất thường xuyên với gridcontrol, và nó khá là bá đạo đó. :)
Như vậy, khi ta click vào bất kỳ một dòng trên lưới thì giá trị của lbl_manv sẽ được gán manv trong datasource của grid tương ứng với dòng đó. Delete sẽ được viết là:
Public Sub xoa_grid()
Dim dlgresult = XtraMessageBox.Show("Bạn muốn xóa nhân viên có mã " & lbl_manv.Text & " không ?", "Xác nhận", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If dlgresult = Windows.Forms.DialogResult.Yes Then
_Update("delete from tbl_nhanvien where manv='" & lbl_manv.Text & "'")
End If
End Sub
Nhấn F5 và thử del 1 dòng xem nào:
Database mình sử dụng là:
Create databse DemoGrid
Go
Create table tbl_nhanvien(
manv int primary key not null auto gì gì đó,
tennv nvarchar(50),
ngaysinh nvarchar(50),
gioitinh nvarchar(50),
quenquan nvarchar(50)
)
Go
Hy vọng có ích. :)
Xem video để được hướng dẫn chi tiết nhá.
Download source
Nhớ Like và Share nhé !
Thắc mắc và đóng góp ý kiến vui lòng để lại trong comment.