- [C#] Di chuyển và thay đổi kích thước Control Winform khi ứng dụng đang chạy
- [VB.NET] Chia sẻ source tạo sắp xếp đội hình bóng đá Line-ups đội bóng
- [C#] Hướng dẫn chỉnh sửa Text của label trực tiếp trên winform
- [C#] Hướng dẫn custom TextBox giống Ultraviewer trên Winform
- [C#] Show Modal Winform like Bootstrap
- [DATABASE] Thứ tự thực hiện mệnh đề truy vấn SELECT trong Sqlserver
- [C#] Hướng dẫn viết addin Excel Lấy hình ảnh từ URL internet vào Excel
- [DATABASE] TSQL view max length all column data trên table Sqlserver
- [DEVEXPRESS] Hướng dẫn sử dụng MailMerge kèm Hình ảnh trên Winform
- [DATABASE] Hướng dẫn truy vấn xem kích thước lưu trữ của từng bảng ghi Table trên sqlserver
- [C#] Hướng dẫn Fake Date Time sử dụng thư viện Harmony
- [DATABASE] Phân biệt câu lệnh DDL và DML trong sqlserver
- [C#] Hướng dẫn convert file mã HTML sang file Pdf trên winform
- [DEVEXPRESS] Tạo các loại mã vạch Barcode trực tiếp trên Devexpress Barcode API
- [DEVEXPRESS] Hướng dẫn custom Simple button thành Progressbar
- [DATABASE] Tách số và chữ từ chuỗi - hàm tối ưu hóa tách số và chữ trong Sqlserver
- [C#] Tìm kiếm gần đúng Full Text Search sử dụng thư viện Lucene.NET
- [C#] Chia sẻ tài liệu, sdk và source code máy chấm công dòng máy ZKTeco
- [C#] Memory Cache là gì, và sử dụng trong ứng dụng Winform
- [DATABASE] Khóa chính Primary Key trong Sqlserver
Truyền dữ liệu giữa 2 form trong VB.Net
Truyền dữ liệu giữa 2 form thực chất là cách hiểu của người dùng cuối. Khi mình thêm một dòng dữ liệu mới vào database, nghĩa là dữ liệu có thay đổi, thì hệ thống sẽ load lại danh mục nhân viên để người dùng có thể thấy đươc những dòng data mới được thêm vào.
Bài này mình sẽ hướng dẫn mọi người cách cho nó hoạt động. Phần này mình chôm nó của a Cái Trí Minh, thực chất cũng k hiểu rõ nó vì sao phải chạy như thế. Nên không làm tuts hướng dẫn. Mình chỉ nói những phần mình hiểu, hy vọng giúp ích được cho các thành viên LaptrinhVB.Net.
Mình sẽ dùng cái form cũ bài trước ai chưa xem thì có thể vào https://laptrinhvb.net/bai-viet/devexpress/Xuat-report-tu-GridView/7abf88f15c8da2a7.html để xem nhá. Hoặc có thể tại link bên dưới.. MÌnh để full trong link download.
Ở phần trước mình đã cho load dữ liệu vào form (tạm gọi là form 1), bây giờ mình tạo thêm một form (form 2) dùng để nhập liệu và lưu vào database, khi mình nhấn nút lưu và lưu thành công thì datagrid view của form 1 sẽ tự động load dữ liệu vào datagrid.
Form 2 của mình sẽ thiết kế như sau:
Mình sẽ giải thích một chút, theo như mình hiểu thì mình sẽ tạo ra một biến toàn cục có tên Start as Boolean (tạo trong file Module.vb nha) để cả form 1 và form 2 đều nhận chung giá trị của nó. Ở form 2, khi mình mình lưu thành công, mình dùng hàm để bật biến start này lên thành true, và ở form 1 mình sẽ dùng hàm để bắt, khi nào start = true thì mình sẽ load lại dữ liệu trong grid.
Hàm ở form 2 dùng để thay đổi biến start=true mình viết như sau:
'hàm dùng để thực thi câu lệnh Insert - sẽ được gọi khi nhấn nút lưu
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
'Hàm dùng để chạy biến ngầm khi lưu thành công
#Region "XuLy"
Public Delegate Sub GoiDuLieuXuLy()
Dim th_GoiDuLieu As Thread
Public Sub start_thearing()
th_GoiDuLieu = New Thread(AddressOf XuLyGoiDuLieu)
th_GoiDuLieu.IsBackground = True
th_GoiDuLieu.Start()
End Sub
Dim f As Boolean
Public Sub XuLyGoiDuLieu()
While True
If f = True Then
Me.BeginInvoke(New GoiDuLieuXuLy(AddressOf GoiDuLieu))
End If
Thread.Sleep(300)
Exit Sub
End While
End Sub
Public Sub GoiDuLieu()
start = True
End Sub
#End Region
Các bạn nhớ import thư viện cho kiểu Thread nha.
Bây giờ mình viết code cho nút Lưu:
_Update("insert into tblnhanvien(manv,hoten,ngaysinh,chucvu,gioitinh,quequan,ngayvaolam) values('" & txtMaNV.Text & "',N'" & txtHoten.Text & "','" & txtNgaysinh.Text & "', N'" & cboNhanvien.Text & "','" & chkGT & "',N'" & txtQuequan.Text & "','" & txtNgayvaolam.Text & "')")
f = True
start_thearing()
Start_thearing là hàm dùng để sửa giá trị của start thành True. Như vậy mình đã hoàn tất cho form 2.
Form 1 mình dùng như bài trước:
Cũng tương tự như form 2, form 1 mình sẽ viết một hàm dùng để bắt biến start:
#Region "XuLy nhận lệnh"
Public Delegate Sub process_data()
Dim th_NhanDuLieu As Thread
Public Sub XuLy()
Try
While True
If start = True Then
Me.BeginInvoke(New process_data(AddressOf load_grid))
End If
start = False
Thread.Sleep(300)
End While
Catch ex As Exception
End Try
End Sub
Public Sub start_thearing()
th_NhanDuLieu = New Thread(AddressOf XuLy)
th_NhanDuLieu.IsBackground = True
th_NhanDuLieu.Start()
End Sub
#End Region
'Hàm này dùng để load data cho grid
Public Sub load_grid()
Dim ds As New DataSet
ds = _load_data("select manv,hoten,ngaysinh,chucvu, case gioitinh when 1 then 'Nam' else N'Nữ' end as gioitinh,quequan,ngayvaolam from tblNhanVien")
'đưa source vao grid
GridControl1.DataSource = ds.Tables(0)
End Sub
Như vậy là đã hoàn tất.
Video demo
Link source
https://drive.google.com/file/d/0B6XFqRKpuJCQV1ZEV2pZUUNGNVE/view?usp=sharing
Mọi ý vui lòng để lại phần comment. Nhớ Like vs Share nha mọi người.
Chúc thành công !!