Cơng ty TNHH Trần Đức Hà Nội có trụ sở và nhà máy sản xuất thuộc xã Hồng Quang huyện Ứng Hoà, Thành phố Hà Nội, nằm cuối quốc lộ 22 đường đi Hà Đông - Đục Khê. Cách trung tâm Hà Nội khoảng 50 km. Với vị thế là cửa ngõ phía tây nam của Thu đơ Hà nội, trước đây, khi nhìn vào dãy núi đá vơi nằm dọc ở phía Tây huyện Mỹ Đức, nhiều người chỉ nghĩ đến khả năng phòng thủ mà chưa khai thác hết tiềm năng kinh tế với việc phát triển ngành công nghiệp sản xuất vật liệu xây dựng, nhất là XÂY DỰNG(với trữ lượng khoảng 600 triệu m3).
Công ty TNHH Trần Đức Hà Nội là một đơn vị kinh tế hạch toán độc lập được thành lập vào ngày 26/12/2004 trực thuộc Sở Xây DựngHà Nội. Tiền thân là Công ty XÂY DỰNGPC Trần Đức được UBND Thành phố Hà Nội thành lập theo Quyết định số 593/QĐ-UB ngày 24/10/1995 của UBND Thành phố , trên cơ sở nâng cấp và đổi tên từ Xí nghiệp Xây DựngTrần Đức. Xí nghiệp Xây Dựng Trần Đức thuộc Sở Xây Dựng Hà Nội được thành lập từ tháng 2/1965. Đến năm 1978 được đổi tên là Xí nghiệp TNHH Trần Đức. Do thực hiện chủ trương của Nhà nước về phát triển XÂY DỰNGđịa phương. Xí nghiệp đã được đầu tư Xây Dựngmột dây chuyền sản xuất XÂY DỰNGlị đứng với cơng suất thiết kế là 10.000 tấn/năm. Toàn bộ dây chuyền sản xuất này đều do các xí nghiệp địa phương trong và ngồi Thành phố chế tạo và lắp đặt.
Từ năm 1979-1992 quá trình vận hành sản xuất máy móc thường xuyên bị hỏng, năng suất chất lượng sản phẩm thấp, không đạt được công suất thiết
kế…Vì vậy đã làm cho xí nghiệp rơi vào tình trạng sản xuất kinh doanh bị thua lỗ, cơng nhân khơng có việc làm và đứng trước bờ vực của sự phá sản.
Năm 1993 được sự cho phép của UBND Thành phố Hà Nội, xí nghiệp được nâng cấp đầu tư chiều sâu về máy móc thiết bị đồng bộ, cơ giới hoá nhập khẩu của Trung Quốc, đã nâng cấp cơng suất theo sản lượng thiết kế của xí nghiệp lên là 60.000 tấn/năm bằng nguồn vốn vay dài hạn của ngân hàng với tổng trị giá là 35 tỷ đồng. Đến tháng 6/1995 cơng trình được hồn thành và đưa vào sản xuất.
Năm 2003, công ty tiếp tục đầu tư nâng cấp tồn bộ dây chuyền sản xuất. Trong đó đã Xây Dựngmới một dây chuyền là nung clinhke nâng công suất nhà máy lên 150.000 tấn/năm.
Và cho đến nay công ty đã áp dụng cơng nghệ vào sản suất, với dây chuyền khép kín thì hàng năm cơng ty sản xuất khoảng 200.000 tấn/năm.
Cơng ty cổ phần TNHH Trần Đức Hà Nội được thành lập với chức năng là sản xuất XÂY DỰNGPC30 theo tiêu chuẩn Việt Nam(TCVN 6260- 1997) và theo tiêu chuẩn chất lượng ISO 9001:2000.
Trải qua 44 năm phấn đấu và trưởng thành. Công ty TNHH Trần Đức – Hà Nội đã dần khẳng định vị trí của mình ở trong nước và trong khu vực cũng như trên Thế Giới. XÂY DỰNGlà một trong những ngun vật liệu chính có thể nói là rất quan trọng của ngành xây dựng. Dây chuyền sản xuất XÂY DỰNGcủa công ty được Xây Dựngtheo cơng nghệ XÂY DỰNGlị đứng, cơ khí hố đồng bộ và một phần tự động hố. Quy trình cơng nghệ sản xuất của nhà máy là một quy trình phức tạp, được chế biến liên tục, cơng suất thiết kế khoảng 200.000 tấn xi măng/năm.Công ty đã sản xuất ra một lượng XÂY DỰNGtương đối lớn, góp phần đẩy mạnh ngành Xây Dựngcủa huyện và
Thành phố nhà ngày càng phát triển hơn. Cùng với q trình cơng nghiệp hóa và hiện đại hóa đất nước, cơng ty ngày càng mở rộng quy mô sản xuất và phạm vi hoạt động, chủ động tìm kiếm thị trường để sản phẩm phục vụ nhu cầu thị trường, nâng cao uy tín.
Cơng ty đã hợp tác, liên doanh, liên kết với các đại lý cho các đơn vị kinh tế trong và ngoài nước để mở rộng sản xuất kinh doanh.
Trong những năm qua cơng ty đã dữ vững chữ tín với khách hàng trên thị truờng được khẳng định qua chất lượng xi măng, ít bị ứ đọng tồn kho, cho nên cơng ty có khả năng quay vịng vốn nhanh, kinh doanh ngày càng có lãi, thu nhập người lao động ngày càng tăng lên.
Là công ty sản xuất sản phẩm xi măng, hoạt động theo hình thức tập trung. Cơng ty cổ phần TNHH Trần Đức Hà Nội có số lao động hiện nay khoảng 870 người, trong đó 60 người có trình độ đại học, 52 người có trình độ cao đẳng, 116 người có trình độ trung cấp, 253 người có trình độ sơ cấp, cịn lại là trình độ dưới sơ cấp. Công ty sản phẩm sản xuất chính là XÂY DỰNGPC30, lực lượng lao động của cơng ty được chia làm 3 khối chính:
Bộ phận quản lý: Bao gồm các phịng ban, các quản đốc, phó quả đốc, tổ trưởng phân xưởng
Bộ phận sản xuất: Công nhân sản xuất các phân xưởng, các tổ phục vụ Bộ phận tiêu thụ: Bao gồm lực lượng là các công nhân viên ở các văn
phịng đại diện, các trung tâm tiêu thụ.
Trong đó cơng nhân sản xuất trực tiếp chủ yếu là ở địa bàn quanh khu vực hai huyện Mỹ Đức và Ứng Hòa và được chia thành 4 phân xưởng:
- Phân xưởng nghiền liệu: Đảm nhận từ việc khai thác đá, đập đá,trộn với phụ gia, khoáng hoá đổ vào silơ, sau băng tải xích, gầu tải. Nạp nhiên liệu vận hành lị sấy, sấy và thực hiện việc quản lý bảo dưỡng sửa chữa máy móc, trang thiết bị của phân xưởng mình, đảm bảo về nhiên liệu vận hành theo dây chuyền của công ty.
- Phân xưởng nung clinhke: thực hiện chịu trách nhiệm điều khiển lò nung và việc quản lý vận hành bảo dưỡng tồn bộ máy móc thiết bị của phân xưởng mình, vận hành máy nghiền, và hệ thống máy hút bụi của lò nung.
- Phân xưởng nghiền xi măng: đảm nhận chịu trách nhiệm vận hành máy nghiền XÂY DỰNGcó nhiệm vụ nghiền nhỏ xi măng. Đồng thời đảm nhận việc xả clinhke, xúc chuyển clinhke.
- Phân xưởng thành phẩm: Thực hiện việc đóng bao, nhập kho, cùng với chuyên gia công sản xuất vỏ bao XÂY DỰNGphục vụ cho việc đóng bao xi măng. Ngồi ra cơng ty cịn có tổ cơ điện nhằm tổ chức vận hành an toàn hệ thống cung cấp điện, nước của công ty, đảm bảo cung cấp đầy đủ, thường xuyên, liên tục các yếu tố về điện nước nhằm phục vụ tốt cho quá trình sản xuất đảm bảo dây chuyên để sản phẩm đạt chất lượng cao
2. Thực trạng hoạt động quản lý nhân sự tại công tyƯu điểm: Ưu điểm:
- Trong những năm qua công tác quản lý nhân sự của công ty tương đối ổn định và đã đạt được những kết quả nhất định.
- Khối lượng thông tin cần xử lý nhiều, phong phú nhưng khơng có tình trạng ùn tắc trong cơng việc.
- Có đội ngũ cán bộ có tay nghề nhiệt tình với cơng việc
Nhược điểm:
- Thiếu vắng trang thiết bị, đa phần hệ thống quản lý vẫn cịn thủ cơng chưa áp dụng tin học một cách tồn diện vào q trình quản lý.
- Tổ chức còn bất hợp lý. Tốc độ xử lý các chức năng như cập nhật, thống kê - báo cáo theo yêu cầu chậm.
- Tốn nhiều nhân lực, cho lên lãng phí tiền bạc cho công tác quản lý
- Lượng nhân viên cán bộ ngày càng tăng nên công việc trở lên quá tải và khơng thể tránh khỏi những sai sót.
- Chưa đáp ứng được vấn đề bảo mật thông tin. - Sổ sách báo cáo trình bày chưa khoa học
Yêu cầu của hệ thống mới
Xây Dựnghệ thống mới khơng nhằm mục đích thay đổi quy tắc quản lý nhân sự hiện có của cơng ty. Mà hệ thống mới phải đáp ứng những yêu cầu sau:
Chương trình phải thao tác nhanh chóng, đơn giản, tiện lợi là đặc biệt các thông tin dư liêu phải đảm bảo chính xác nhất quán cho mọi bảng biểu báo cáo.
Chương trình phải tự động tra cứu, và tổng hợp tìm kiếm cho ra những báo cáo thống kê theo yêu cầu người dùng.
Chương trình phải tự động chỉnh sửa số liệu, bảng biểu liên quan mỗi khi dư liệu vào thay đổi.
Giao diện phải thân thiện dễ sử dụng với người dùng, dễ cài đặt, có thể nâng cấp để phù hợp với phần cứng và phần mền cũng như các yêu cầu cần thiết trong tương lai.
CHƯƠNG 3
GIẢI PHÁP THIẾT KẾ CHƯƠNG TRÌNH QUẢN LÝ NHÂN SỰ CHO CÔNG TY TNHH TRẦN ĐỨC
1. Thiết kế chức năng 1.1 Chức năng cập nhật
Đầu vào chức năng cập nhật: Là tồn bộ thơng tin liên quan đến nhân sự, từ lúc bắt đầu đến lúc thôi việc tại công ty.
Đầu ra của chức năng: Là hồ sơ nhân sự hoàn chỉnh.
Thao thác thực thi: Nếu nhân sự mới vào cơng ty thì hồ sơ được chuyển sang chức năng cập nhật nhân sự để cập nhật vào kho hồ sơ nhân sự của công ty.
Chức năng cập nhật được phân rã thành
Cập nhật hồ sơ nhân sự
Cập nhật các danh mục:
- Cập nhật danh mục chức vụ - Cập nhật danh mục phòng ban - Cập nhật danh mục dân tộc - Cập nhật danh mục tôn giáo - Cập nhật danh mục chuyên môn
- Cập nhật danh mục trình độ lý luận cơng tác - Cập nhật danh mục quan hệ gia đình
- Cập nhật danh muc trình độ ngoại ngữ - Cập nhật danh mục khen thưởng
- Cập nhật danh mục kỷ luật
- Câp nhật danh mục diễn biến lương - Cập nhật danh mục trình độ văn hóa
1.2 Chức năng tìm kiếm
Đầu vào của chức năng tìm kiếm: Là các thơng tin cần tìn kiếm như: Mã nhân sự, trình độ, tên phịng ban, trình độ ngoại ngữ …
Đầu ra của chức năng: Các thông tin đầy đủ về nhân sự cần được tim.
Thao thác thực thi: Khi người sử dụng cần tìm kiếm thơng tin nào đó liên quan đến nhân sự thì chương trình sẽ tự động tìm và đưa ra kết quả thơng tin về nhân sự đó.
Chức năng tìm kiếm được phân rã thành:
Tìm kiếm theo phịng ban
Tìm kiếm theo chức vụ
Tìm kiếm theo thơng tin nhân sự
Tìm kiếm theo trình độ
Tìm kiếm theo chun mơn
1.3 Chức năng thống kê – báo cáo:
Đầu vào của chức năng thống kê – báo cáo: Là hồ sơ nhân sự và các thơng tin có liên quan đến nhân sự
Đầu ra của chức năng: Hồ sơ đầy đủ của nhân sự, thống kê theo danh sách nhân sự, danh sách kỷ luật, danh sách khen thưởng, danh sách nhân viên về hưu …
Thao tác thực thi: Khi người sử dụng có yêu cần thống kê – báo một thơng tin nào đó liên quan đến nhân sự thì chương trình sẽ tự động thống kê rồi đưa ra kết quả thơng tin về nhân sự đó.
Chức năng thông kê – báo các được phân rã thành:
Thống kê danh sách nhân sự
Thống kê danh sách khen thưởng
Thống kê danh sách kỷ luật
Thống kê diễn biến lương
Thống kê danh sách đảng viên
Thống kê danh sách nhân sự về hưu
2.2 Biểu đồ luồng mức đỉnh
2.3 Biểu đồ luồng mức dưới đỉnh - Chức năng cập nhật
5. Mã nguồn chương trình
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\HOC TAP\DOANTOTNGHIEP\QLNV.MDB;Persist Security Info=False"
conn.Open End Sub
Private Sub cmd_nhap_Click()
End Sub
Private Sub ClearALL() Me.txtmachucvu = "" Me.txttenchucvu = "" Me.txthesophucap = "" End Sub
Private Sub Display_Listview() Set rs = New ADODB.Recordset Dim mitem As ListItem
Me.ListView1.ListItems.Clear SQL = "select * from chucvu"
rs.Open SQL, conn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then
Set mitem = Me.ListView1.ListItems.Add(, , rs!macv) mitem.SubItems(1) = rs!tencv mitem.SubItems(2) = rs!hesophucap rs.MoveNext Wend End If rs.Close Me.ListView1.GridLines = True Me.ListView1.FullRowSelect = True Exit Sub End Sub
Private Sub cmdSua_Click(Index As Integer) Set rs = New ADODB.Recordset
If Me.txtmachucvu.Text = "" Then
MsgBox "BAN CAN NHAP MA DE SUA." Else
SQL = "Update chucvu set tencv ='" & Me.txttenchucvu & "'" SQL = SQL & ", hesophucap='" & Me.txthesophucap.Text & "'" SQL = SQL & "where macv='" & Me.txtmachucvu.Text & "'"
If MsgBox("BAN CO MUON SUA KHONG ?", vbQuestion + vbYesNo, "Thong bao") = vbYes Then
End If End If
Set rs = Nothing
MsgBox "Ban Ghi Da Duoc Sua Thanh Cong" ' rs.Close
Display_Listview ClearALL
End Sub
Private Sub cmdThem_Click() Ketnoi
If Me.txtmachucvu = "" Then
MsgBox "Ban Chua Nhap Ma Chuc Vu" Me.txtmachucvu.SetFocus
Else
Set rs = New ADODB.Recordset
SQL = "SELECT chucvu.macv, chucvu.tencv, chucvu.hesophucap From chucvu WHERE macv='" & Me.txtmachucvu.Text & "'"
rs.Open SQL, conn, 1, 3 If Not rs.EOF Then
MsgBox "Ma Nay Da Ton tai" Exit Sub
Else
rs.AddNew
rs("tencv") = Me.txttenchucvu.Text
rs("hesophucap") = Me.txthesophucap.Text rs.Update
MsgBox "Ban Ghi Da Duoc Cap Nhat" End If
If MsgBox("BAN CO MUON NHAP TIEP KHONG?", vbYesNo) = vbYes Then Me.txtmachucvu.SetFocus End If rs.Close ClearALL Display_Listview End If End Sub
Private Sub cmdThoat_Click(Index As Integer) Unload Me
End Sub
Private Sub cmdXoa_Click(Index As Integer) If Me.txtmachucvu.Text = "" Then
MsgBox "BAN CHUA CHON MA DE XOA." Else
SQL = "delete * from chucvu where macv='" & Me.txtmachucvu.Text & "'"
If MsgBox("BAN CO MUON XOA MA NAY KHONG ?", vbYesNo) = vbYes Then rs.Open SQL, conn, 1, 3 End If End If Display_Listview ClearALL End Sub
Private Sub Form_Load() Ketnoi
Display_Listview End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) Me.txtmachucvu.Text = Item.Text
Me.txttenchucvu.Text = Item.SubItems(1) Me.txthesophucap.Text = Item.SubItems(2) End Sub
Dim conn As ADODB.Connection Dim rs As ADODB.Recordset
Dim SQL As String Public Sub Ketnoi()
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\HOC TAP\DOANTOTNGHIEP\QLNV.MDB;Persist Security Info=False"
conn.Open End Sub
Private Sub loaddantoc() Ketnoi
Set rs = New ADODB.Recordset
rs.Open "select madt from dantoc", conn, 1, 3 rs.MoveFirst
Do While Not rs.EOF
Me.cmb_madt.AddItem (rs("madt")) rs.MoveNext
rs.Close End Sub
Private Sub loadtongiao() Ketnoi
Set rs = New ADODB.Recordset
rs.Open "select matg from tongiao", conn, 1, 3 rs.MoveFirst
Do While Not rs.EOF
Me.cmb_matongiao.AddItem (rs("matg")) rs.MoveNext
Loop rs.Close End Sub
Private Sub loadtrinhdo() Ketnoi
Set rs = New ADODB.Recordset
rs.Open "select maTD from trinhdo", conn, 1, 3 rs.MoveFirst
Me.cmb_matrinhdo.AddItem (rs("maTD")) rs.MoveNext
Loop rs.Close End Sub
Private Sub loadchuyenmon() Ketnoi
Set rs = New ADODB.Recordset
rs.Open "select maCM from chuyenmon", conn, 1, 3 rs.MoveFirst
Do While Not rs.EOF
Me.cmb_machuyenmon.AddItem (rs("maCM")) rs.MoveNext
Loop rs.Close End Sub
Private Sub loadlyluanct() Ketnoi
rs.Open "select maTDLLCT from TDLLCT", conn, 1, 3 rs.MoveFirst
Do While Not rs.EOF
Me.cmb_matdctri.AddItem (rs("maTDLLCT")) rs.MoveNext
Loop rs.Close End Sub
Private Sub loadchucvu() Ketnoi
Set rs = New ADODB.Recordset
rs.Open "select maCV from chucvu", conn, 1, 3 rs.MoveFirst
Do While Not rs.EOF
Me.cmb_macvu.AddItem (rs("maCV")) rs.MoveNext
Loop rs.Close End Sub
Private Sub loadphongban() Ketnoi
Set rs = New ADODB.Recordset
rs.Open "select maPB from phong", conn, 1, 3 rs.MoveFirst
Do While Not rs.EOF
Me.cmb_mapban.AddItem (rs("maPB")) rs.MoveNext
Loop rs.Close End Sub
Private Sub loadnamthoatli() Dim n As Integer
For n = 1870 To 2000
cmb_namthoatli.AddItem (n) Next
Dim i As Integer For i = 2000 To 2011
cmb_namveGT.AddItem (i) Next
End Sub
Private Sub ClearALL() Me.txt_manv.Text = "" Me.cmb_namthoatli.Text = "" Me.cmb_namveGT.Text = "" Me.txtsocmnd.Text = "" Me.txtdiachi.Text = "" Me.txtgioitinh.Text = "" Me.txthodem.Text = "" Me.txtten.Text = "" Me.txtsdt.Text = "" Me.txtngaysinh.Text = "" Me.cmb_machuyenmon.Text = "" Me.cmb_macvu.Text = ""
Me.cmb_madt.Text = "" Me.cmb_mapban.Text = "" Me.cmb_matdctri.Text = "" Me.cmb_matongiao = "" Me.cmb_matrinhdo.Text = "" Me.DTPicker1.Value = False Me.DTPicker2.Value = False Me.lbl_chinhtri.Caption = "" Me.lbl_chucvu.Caption = "" Me.lbl_chuyenmon.Caption = "" Me.lbl_madt.Caption = "" Me.lbl_phongban.Caption = "" Me.lbl_tongiao.Caption = "" Me.lbl_trinhdo.Caption = "" End Sub
Private Sub Display_Listview() Set rs = New ADODB.Recordset
Dim SQL As String
Me.ListView1.ListItems.Clear
SQL = "SELECT nhanvien.* FROM nhanvien"
rs.Open SQL, conn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then
While Not rs.EOF
Set mitem = Me.ListView1.ListItems.Add(, , rs!manv) mitem.SubItems(1) = rs!hodem mitem.SubItems(2) = rs!ten mitem.SubItems(3) = rs!diachi mitem.SubItems(4) = rs!gioitinh mitem.SubItems(5) = rs!ngaysinh mitem.SubItems(6) = rs!sdt mitem.SubItems(7) = rs!soCMND mitem.SubItems(8) = rs!ngayvaodoan mitem.SubItems(9) = rs!ngayvaodang mitem.SubItems(10) = rs!namthoatly mitem.SubItems(11) = rs!namveGT mitem.SubItems(12) = rs!madt
mitem.SubItems(13) = rs!matg mitem.SubItems(14) = rs!maTD mitem.SubItems(15) = rs!maCM mitem.SubItems(16) = rs!maTDLLCT mitem.SubItems(17) = rs!macv mitem.SubItems(18) = rs!maPB rs.MoveNext Wend End If rs.Close Me.ListView1.GridLines = True Me.ListView1.FullRowSelect = True Exit Sub End Sub
Private Sub cmb_machuyenmon_Click()
rs.Open "select tenCM from chuyenmon where MaCM='" &
Me.lbl_chuyenmon.Caption = rs("tenCM")