- Ban lãnh đạo cần rà soát, sắp xếp lại tổ chức bộ máy và đội ngũ cán bộ tồn cơng ty, phân chia công việc chuyên trách cho từng phịng ban, từng cá nhân cụ thể. Hồn
- Sắp xếp lại lực lượng lao động, tuyển dụng thêm mới các cán bộ trẻ để có sức bật mới phục vụ mục tiêu mở rộng ngành nghề kinh doanh, mở rộng tập khách hàng ngồi các cơng ty con trong nhà xuất bản giáo dục.
- Xây dựng một cách tỉ mỉ quy trình đào tạo, với mục đích trước tiên là bồi dưỡng nâng cao năng lực lao động trong cơng ty, sau đó là phục vụ cho xu hướng mở rộng đào tạo các học viên bên ngồi cơng ty.
- Tổ chức các cuộc thanh tra, khảo sát thường xuyên và đột xuất nhằm kiểm tra chất lượng công việc của các thành viên, kiểm tra quá trình học tập của nhân viên và của học viên đang tham gia học trong khóa học.
- Tiếp tục sử dụng hợp lý và khai thác có hiệu quả các cơ sở vật chất hiện có. - Cơng ty nên áp dụng các hệ thống thông tin tự động trong các mảng còn thiếu. - Chăm lo tới việc làm và đời sống của các cán bộ công nhân viên trên cơ sở hiệu quả sản xuất kinh doanh. Phát huy tinh thần chủ động, tổ chức các cuộc thi ý tưởng sáng tạo cho các cán bộ nhân viên nhằm thu thập ý kiến mới lạ về công tác quản trị, về ngành nghề kinh doanh,...
KẾT LUẬN
Trong điều kiện hiện nay cùng với sức ép cạnh tranh trên thị trường, các doanh nghiệp phải không ngừng đổi mới và hoàn thiện phương thức quản lý cho phù hợp
nhằm tiết kiệm chi phí, tạo năng lực cạnh tranh cho doanh nghiệp, mang lại hiệu quả cao và phù hợp với xu thế chung trên thế giới. Việc quản lý mọi công việc, nguồn nhân lực thủ công như trước đây hay cả việc chưa áp dụng công nghệ thông tin triệt để đều làm cho hiệu quả công việc khơng cao, tầm nhìn của các cấp quản lý bị hạn chế, dữ liệu dễ bị phân tán gây lãng phí, nguồn tài ngun có thể bị dư thừa do kiểm sốt lỏng lẻo. Vì vậy nhu cầu cấp thiết đặt ra là phải có một giải pháp quản lý tồn bộ các nguồn tại nguyên của doanh nghiệp, quản lý nguồn nhân lực doanh nghiệp thực sự hiệu quả.
Do sự eo hẹp về thời gian cũng như hạn chế về tài liệu và trình độ có hạn, nên khóa luận mới đưa ra được một số kết quả như sau:
Phân tích được thực trạng nguồn nhân lực, quản trị nguồn nhân lực, HTTT quản trị nguồn nhân lực trong doanh nghiệp.
Đánh giá ưu nhược điểm của vấn đề quản trị nguồn nhân lực trong công ty. Đề xuất giải pháp hồn thiện hệ thống thơng tin quản lý nhân sự cho công ty.
Hạn chế của đề tài:
Chưa thể đi sâu và phân tích đầy đủ mọi nghiệp vụ cũng như các phát sinh thực tế. Nên khơng tránh khỏi những thiếu sót và chưa đáp ứng được đầy đủ các yêu cầu thực tiễn.
Khi cơng ty có nhu cầu mở rộng thì hệ thống quản lý nhân sự và quản lý đào tạo này cần cải tiến, xây dựng thêm nhiều các modul chức năng chi tiết.
Mặc dù đã rất cố gắng xong nội dung đề tài cũng khơng thể tránh khỏi thiếu sót, em rất mong muốn đề tài này sẽ được sự đóng góp bổ sung của các Thầy cơ để hồn thiện hơn nữa và có thể ứng dụng thiết thực vào cuộc sống.
TÀI LIỆU THAM KHẢO
1. Bài giảng Công nghệ phần mềm, Bộ môn CNTT, Trường Đại Học Thương Mại.
2. Bài giảng Hệ thống thông tin quản lý, Bộ môn CNTT, Trường Đại học Thương
mại.
3. M.Konoroke, Trần Quang Tuệ (1999), Nhân sự chìa khố của thành công, NXB Giao thông, Hà Nội.
4. Nguyễn Hữu Thân (2008), Quản trị nhân sự, NXB Lao động xã hội, Hà Nội.
5. Tài liệu hướng dẫn thực tập và làm khóa luận tốt nghiệp 2013, khoa Hệ thống thơng tin kinh tế, Trường Đại học Thương mại.
6. Website: WWW.TAILIEU.VN 7. Một số tài liệu tham khảo khác.
PHỤ LỤC 1: Giao diện một số thao tác thực hiện trên Form NHANVIEN
Form thao tác tìm kiếm nhân viên
Thao tác tìm kiếm nhân viên có Mã Nhân Viên là 3M1, thơng tin về nhân viên có mã như trên sẽ hiển thị đầy đủ kết quả ở góc trái màn hình.
Form thao tác thêm nhân viên
Form thao tác sửa thông tin nhân viên
Thao tác này cho phép chỉnh sửa thông tin cập nhập sai trong hồ sơ của nhân viên, ở đây tôi thực hiện thao tác sửa tên nhân viên “nguyễn văn B” thành nhân viên tên với đúng là “nguyễn văn Bình”
Form thao tác xóa thơng tin nhân viên
Thao tác này xóa đi hồ sơ nhân viên có Mã nhân viên “6NV1” và các thơng tin như bảng.
PHỤ LỤC 2: Code của một số chức năng trong hệ thống Chức năng Quản lý nhân viên:
Imports System.Data.SqlClient
Imports System.Data.SqlClient.SqlException Public Class Form1
Private Ket_noi As SqlConnection Private bang_doc As SqlDataReader
Private WithEvents danh_sach As BindingManagerBase
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Dim Chuoi_ket_noi As String =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\..\..\data\QuanLyNhanSu.mdb"
Dim Chuoi_ket_noi As String = "Data Source=M-PC\SQL2005;Initial
Catalog=qly_nhansu_tienluong;Integrated Security=True"
Ket_noi = New SqlConnection(Chuoi_ket_noi) Ket_noi = New SqlConnection(Chuoi_ket_noi) Xuat_danh_sach () ' danh_sach_PositionChanged(sender, e) 'Tao_ket_noi() 'Xuat_danh_sach () 'danh_sach_PositionChanged(sender, e) End Sub
Private Sub Xuat_danh_sach ()
Dim lenh As String = "select * from NHANVIEN" Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open()
Dim bang_nhan_vien As New DataTable("NHANVIEN") bang_nhan_vien.Load(bang_doc, LoadOption.OverwriteChanges) Ket_noi.Close() luoi.DataSource = bang_nhan_vien ' danh_sach = Me.BindingContext(bang_nhan_vien) End Sub
Private Sub xuat_danh_sach ()
txtmanhanvien.Text = danh_sach.Current("Manv") txthoten.Text = danh_sach.Current("hoten") txtdiachi.Text = danh_sach.Current("diachi") txtgioitinh.Text = danh_sach.Current("gioitinh") txtngaysinh.Text = danh_sach.Current("ngaysinh") txtMacv.Text = danh_sach.Current("Macv") txtMapb.Text = danh_sach.Current("Mapb") End Sub
Private Sub danh_sach_PositionChanged(ByVal sender As Object, ByVal e
As System.EventArgs) Handles danh_sach.PositionChanged
xuat_danh_sach () End Sub
Private Sub btthem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btthem.Click
Dim lenh As String
If txtmanhanvien.Text = "" Or txthoten.Text = "" Or txtdiachi.Text = "" Or txtgioitinh.Text = "" Or txtngaysinh.Text = "" Or txtMacv.Text = "" Or txtMapb.Text = "" Then
MsgBox(" Bạn Phải Nhập Giá Trị Cấn Thêm !!! ") Else
lenh = "insert into
txtmanhanvien.Text & "',N'" & txthoten.Text & "',N'" & txtdiachi.Text & "',N'" & txtgioitinh.Text & "','" & txtngaysinh.Text & "','" & txtMacv.Text & "','" &
txtMapb.Text & "')"
Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open() Bo_lenh.ExecuteNonQuery() Ket_noi.Close() Xuat_danh_sach () End If End Sub
Private Sub btsua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsua.Click
Dim lenh As String
If txtmanhanvien.Text = "" Or txthoten.Text = "" Or txtdiachi.Text = "" Or txtgioitinh.Text = "" Or txtngaysinh.Text = "" Then
MsgBox(" Bạn Phải Nhập Giá Trị Cấn Sửa !!! ") Else
lenh = "Update NHANVIEN set hoten = N'" & txthoten.Text &
"',gioitinh = N'" & txtgioitinh.Text & "',ngaysinh = '" & txtngaysinh.Text & "',diachi = N'" & txtdiachi.Text & "' where Manv = '" & Trim(txtmanhanvien.Text) & "'"
Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open() Bo_lenh.ExecuteNonQuery() Ket_noi.Close() Xuat_danh_sach () End If End Sub
Private Sub btxoa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btxoa.Click
Dim lenh As String
If txtmanhanvien.Text = "" Then
MsgBox(" Bạn Phải Nhập Giá Trị Cấn Xóa !!! ") Else
lenh = " delete from NHANVIEN where Manv = '" & txtmanhanvien.Text & "'"
Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open() Bo_lenh.ExecuteNonQuery() Ket_noi.Close() Xuat_danh_sach () End If End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If MsgBox("Bạn có muốn thốt khỏi chương trình khơng ?",
MsgBoxStyle.Question + MsgBoxStyle.YesNo, "THỐT") = MsgBoxResult.No Then e.Cancel = True
End If End Sub
Private Sub btlamlai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btlamlai.Click
txtmanhanvien.Text = "" txthoten.Text = "" txtdiachi.Text = "" txtgioitinh.Text = "" txtngaysinh.Text = "" txtMacv.Text = ""
txtMapb.Text = "" End Sub
Private Sub ButtonX1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
Dim mang As New ArrayList ' tim theo ma sinh vien
If Not String.IsNullOrEmpty(txtmanhanvien.Text) Then mang.Add("Manv = '" & txtmanhanvien.Text & "'") End If
' tim theo ten sinh vien
If Not String.IsNullOrEmpty(txthoten.Text) Then mang.Add("hoten like '" & txthoten.Text & "*'") End If
If Not String.IsNullOrEmpty(txtMacv.Text) Then mang.Add("Macv = '" & txtMacv.Text & "'") End If
If Not String.IsNullOrEmpty(txtgioitinh.Text) Then mang.Add("gioitinh = '" & txtgioitinh.Text & "'") End If
If Not String.IsNullOrEmpty(txtngaysinh.Text) Then mang.Add("ngaysinh = '" & txtngaysinh.Text & "'") End If
If Not String.IsNullOrEmpty(txtdiachi.Text) Then mang.Add("diachi = '" & txtdiachi.Text & "'") End If
If Not String.IsNullOrEmpty(txtMapb.Text) Then mang.Add("Mapb = '" & txtMapb.Text & "'")
End If
Dim dieu_kien As String = ""
For i As Integer = 0 To mang.Count - 1 If i = 0 Then
dieu_kien = mang(0) Else
dieu_kien = dieu_kien & " and" & mang(i) End If
Next
Dim lenh As String = "select * from NHANVIEN" Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open()
Dim bang_doc As SqlDataReader = Bo_lenh.ExecuteReader Dim bang_nhan_vien As New DataTable("NHANVIEN")
bang_nhan_vien.Load(bang_doc, LoadOption.OverwriteChanges) Ket_noi.Close() bang_nhan_vien.DefaultView.RowFilter = dieu_kien luoi.DataSource = bang_nhan_vien End Sub
Private Sub ReflectionLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReflectionLabel1.Click
End Sub
End Class
Chức năng Quản lý đào tạo:
Public Class Form2
Private Ket_noi As SqlConnection Private bang_doc As SqlDataReader
Private WithEvents danh_sach As BindingManagerBase
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Dim Chuoi_ket_noi As String =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\..\..\data\QuanLyNhanSU.mdb"
Dim Chuoi_ket_noi As String = "Data Source=M-PC\SQL2005;Initial
Catalog=qly_nhansu_tienluong;Integrated Security=True"
Ket_noi = New SqlConnection(Chuoi_ket_noi) Ket_noi = New SqlConnection(Chuoi_ket_noi) Xuat_danh_sach_HOSO() ' danh_sach_PositionChanged(sender, e) 'Tao_ket_noi() 'Xuat_danh_sach_HOSO() 'danh_sach_PositionChanged(sender, e) End Sub
Private Sub Xuat_danh_sach_HOSO()
Dim lenh As String = "select * from HOSODAOTAO" Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open()
Dim bang_doc As SqlDataReader = Bo_lenh.ExecuteReader
Dim bang_HOSODAOTAO As New DataTable("HOSODAOTAO") bang_HOSODAOTAO.Load(bang_doc, LoadOption.OverwriteChanges) Ket_noi.Close()
luoi.DataSource = bang_HOSODAOTAO '
End Sub
Private Sub xuat_danh_sach_HOSO()
txtMahs.Text = danh_sach.Current("Mahs") txtTenhs.Text = danh_sach.Current("Tenhs") txtMakh.Text = danh_sach.Current("Makh") txtMapb.Text = danh_sach.Current("Mapb") End Sub
Private Sub danh_sach_PositionChanged(ByVal sender As Object, ByVal e
As System.EventArgs) Handles danh_sach.PositionChanged
xuat_danh_sach_HOSO() End Sub
Private Sub btthem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btthem.Click
Dim lenh As String
If txtMahs.Text = "" Or txtTenhs.Text = "" Or txtMakh.Text = "" Or txtMapb.Text = "" Then
MsgBox(" Bạn Phải Nhập Giá Trị Cấn Thêm !!! ") Else
lenh = "insert into HOSODAOTAO(Mahs,Tenhs,Makh,Mapb)
values(N'" & txtMahs.Text & "',N'" & txtTenhs.Text & "',N'" & txtMakh.Text & "',N'"
& txtMapb.Text & "')"
Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open() Bo_lenh.ExecuteNonQuery() Ket_noi.Close() Xuat_danh_sach_HOSO() End If End Sub
Private Sub btsua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsua.Click
Dim lenh As String
If txtMahs.Text = "" Or txtTenhs.Text = "" Or txtMakh.Text = "" Or txtMapb.Text = "" Then
MsgBox(" Bạn Phải Nhập Giá Trị Cấn Sửa !!! ") Else
lenh = "Update HOSODAOTAO set Tenhs = N'" & txtTenhs.Text &
"',Makh = N'" & txtMakh.Text & "',Mapb = '" & txtMapb.Text & "' where Mahs = '"
& Trim(txtMahs.Text) & "'"
Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open() Bo_lenh.ExecuteNonQuery() Ket_noi.Close() Xuat_danh_sach_HOSO() End If End Sub
Private Sub btxoa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btxoa.Click
Dim lenh As String
If txtMahs.Text = "" Then
MsgBox(" Bạn Phải Nhập Giá Trị Cấn Xóa !!! ") Else
lenh = " delete from HOSODAOTAO where Mahs = '" & txtMahs.Text & "'" Dim Bo_lenh As New SqlCommand(lenh, Ket_noi)
Ket_noi.Open()
Bo_lenh.ExecuteNonQuery() Ket_noi.Close()
Xuat_danh_sach_HOSO() End If
End Sub
Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If MsgBox("Bạn có muốn thốt khỏi chương trình khơng ?",
MsgBoxStyle.Question + MsgBoxStyle.YesNo, "THOÁT") = MsgBoxResult.No Then e.Cancel = True
End If End Sub
Private Sub btlamlai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btlamlai.Click
txtMahs.Text = "" txtTenhs.Text = "" txtMakh.Text = "" txtMapb.Text = "" End Sub
Private Sub ButtonX1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
Dim mang As New ArrayList ' tim theo ma sinh vien
If Not String.IsNullOrEmpty(txtMahs.Text) Then mang.Add("Mahs = '" & txtMahs.Text & "'") End If
' tim theo ten sinh vien
If Not String.IsNullOrEmpty(txtTenhs.Text) Then mang.Add("hoten like '" & txtTenhs.Text & "*'") End If
If Not String.IsNullOrEmpty(txtMakh.Text) Then mang.Add("Macv = '" & txtMakh.Text & "'")
End If
If Not String.IsNullOrEmpty(txtMapb.Text) Then mang.Add("Mapb = '" & txtMapb.Text & "'") End If
Dim dieu_kien As String = ""
For i As Integer = 0 To mang.Count - 1 If i = 0 Then
dieu_kien = mang(0) Else
dieu_kien = dieu_kien & " and" & mang(i) End If
Next
Dim lenh As String = "select * from HOSODAOTAO" Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open()
Dim bang_doc As SqlDataReader = Bo_lenh.ExecuteReader
Dim bang_HOSODAOTAO As New DataTable("HOSODAOTAO") bang_HOSODAOTAO.Load(bang_doc, LoadOption.OverwriteChanges) Ket_noi.Close() bang_HOSODAOTAO.DefaultView.RowFilter = dieu_kien luoi.DataSource = bang_HOSODAOTAO End Sub
Private Sub ReflectionLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReflectionLabel1.Click
End Sub
End Class
Chức năng Quản lý lương:
Private Ket_noi As SqlConnection Private bang_doc As SqlDataReader
Private WithEvents danh_sach As BindingManagerBase
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Dim Chuoi_ket_noi As String =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\..\..\data\HOCSINH.mdb"
Dim Chuoi_ket_noi As String = "Data Source=M-PC\SQL2005;Initial
Catalog=qly_nhansu_tienluong;Integrated Security=True"
Ket_noi = New SqlConnection(Chuoi_ket_noi) Ket_noi = New SqlConnection(Chuoi_ket_noi) Xuat_danh_sach_luong() ' danh_sach_PositionChanged(sender, e) 'Tao_ket_noi() 'Xuat_danh_sach_luong() 'danh_sach_PositionChanged(sender, e) End Sub
Private Sub Xuat_danh_sach_luong()
Dim lenh As String = "select * from LUONG" Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open()
Dim bang_doc As SqlDataReader = Bo_lenh.ExecuteReader Dim bang_LUONG As New DataTable("LUONG")
bang_LUONG.Load(bang_doc, LoadOption.OverwriteChanges) Ket_noi.Close()
luoi.DataSource = bang_LUONG '
danh_sach = Me.BindingContext(bang_LUONG) End Sub
Private Sub xuat_danh_sach_luong()
txtMahs.Text = danh_sach.Current("Mahs") txtTenhs.Text = danh_sach.Current("Tenhs") txtMakh.Text = danh_sach.Current("Makh") txtMapb.Text = danh_sach.Current("Mapb") End Sub
Private Sub danh_sach_PositionChanged(ByVal sender As Object, ByVal e
As System.EventArgs) Handles danh_sach.PositionChanged
xuat_danh_sach_luong() End Sub
Private Sub btthem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btthem.Click
Dim lenh As String
If txtMahs.Text = "" Or txtTenhs.Text = "" Or txtMakh.Text = "" Or txtMapb.Text = "" Then
MsgBox(" Bạn Phải Nhập Giá Trị Cấn Thêm !!! ") Else
lenh = "insert into
LUONG(phieuluong,luongcoban,hesoluong,phucap,thuong,Macv) values(N'" &
txtphieuluong.Text & "',N'" & txtluongcoban.Text & "', N'" & txthesoluong.Text &
"',N'" & txtphucap.Text & "',N'" & txtthuong.Text & "', N'" & txtMacv.Text & "')"
Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open()
Bo_lenh.ExecuteNonQuery() Ket_noi.Close()
Xuat_danh_sach_luong() End If
End Sub
Private Sub btsua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsua.Click
Dim lenh As String
If txtphieuluong.Text = "" Or txtluongcoban.Text = "" Or txthesoluong.Text = "" Or txtphucap.Text = "" Or txtthuong.Text = "" Or txtMacv.Text = "" Then
MsgBox(" Bạn Phải Nhập Giá Trị Cấn Sửa !!! ") Else
lenh = "Update LUONG set luongcoban = N'" & txtluongcoban.Text &
"',hesoluong = N'" & txthesoluong.Text & "',phucap = '" & txtphucap.Text & "', thuong = '" & txtthuong.Text & "', Macv = '" & txtMacv.Text & "'where phieuluong = '" & Trim(txtphieuluong.Text) & "'"
Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open() Bo_lenh.ExecuteNonQuery() Ket_noi.Close() Xuat_danh_sach_luong() End If End Sub
Private Sub btxoa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btxoa.Click
Dim lenh As String
If txtMahs.Text = "" Then
MsgBox(" Bạn Phải Nhập Giá Trị Cấn Xóa !!! ") Else
lenh = " delete from LUONG where phieuluong = '" & txtphieuluong.Text & "'"
Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open() Bo_lenh.ExecuteNonQuery() Ket_noi.Close() Xuat_danh_sach_luong() End If End Sub
Private Sub Form3_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If MsgBox("Bạn có muốn thốt khỏi chương trình khơng ?",
MsgBoxStyle.Question + MsgBoxStyle.YesNo, "THOÁT") = MsgBoxResult.No Then e.Cancel = True
End If End Sub
Private Sub btlamlai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btlamlai.Click
txtphieuluong.Text = "" txtluongcoban.Text = "" txthesoluong.Text = "" txtphucap.Text = "" txtthuong.Text = "" txtMacv.Text = "" End Sub
Private Sub ButtonX1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
Dim mang As New ArrayList ' tim kiem theo phieu luong
If Not String.IsNullOrEmpty(txtphieuluong.Text) Then mang.Add("phieuluong = '" & txtphieuluong.Text & "'")
End If
If Not String.IsNullOrEmpty(txtluongcoban.Text) Then
mang.Add("luongcoban like '" & txtluongcoban.Text & "*'") End If
If Not String.IsNullOrEmpty(txthesoluong.Text) Then mang.Add("hesoluong = '" & txthesoluong.Text & "'") End If
If Not String.IsNullOrEmpty(txtphucap.Text) Then
mang.Add("phucap = '" & txtphucap.Text & "'") End If
If Not String.IsNullOrEmpty(txtthuong.Text) Then
mang.Add("thuong = '" & txtthuong.Text & "'") End If
If Not String.IsNullOrEmpty(txtMacv.Text) Then mang.Add("Macv = '" & txtMacv.Text & "'") End If
Dim dieu_kien As String = ""
For i As Integer = 0 To mang.Count - 1 If i = 0 Then
dieu_kien = mang(0) Else
dieu_kien = dieu_kien & " and" & mang(i) End If
Next
Dim lenh As String = "select * from LUONG" Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open()
Dim bang_doc As SqlDataReader = Bo_lenh.ExecuteReader Dim bang_LUONGAs New DataTable("LUONG")
bang_LUONG.Load(bang_doc, LoadOption.OverwriteChanges) Ket_noi.Close() bang_LUONG.DefaultView.RowFilter = dieu_kien luoi.DataSource = bang_LUONG End Sub
Private Sub ReflectionLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReflectionLabel1.Click
End Sub