Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống
1
/ 114 trang
THÔNG TIN TÀI LIỆU
Thông tin cơ bản
Định dạng
Số trang
114
Dung lượng
1,83 MB
Nội dung
Luận văn tốt nghiệp GVHD: GS Trần Anh Bảo MC LC Nguyn Hong Long MSV: 7TD02174 Luận văn tốt nghiệp GVHD: GS Trần Anh Bảo LI NểI U Trong thời đại cơng nghiệp hóa ngày đứng trước thay đổi không ngừng lĩnh vực, đặc biệt CNTT Đứng trước thay đổi phải có lượng thơng tin kiến thức tối thiểu để nắm bắt Thế kỉ XXI, kỉ tin học tự động hóa việc đẩy mạnh ứng dụng tin học vào công việc hàng ngày mục tiêu nhà nước quan tâm phát triển Trong năm gần đây, đôi với phát triển khoa học kỹ thuật, tin học sâu vào ngành nghề lĩnh vực khác đời sống xã hội Sự phát triển xã hội làm cho công việc quản lý ngày trở lên phức tạp Cách quản lý dựa kinh nghiệm, trực giác khơng cịn đem lại hiệu mong muốn phải thiết lập phương thức quản lý đại Là sinh viên khoa Công nghệ thông tin – Đại học Kinh doanh Công nghệ Hà Nội, em khao khát tìm hiểu tiếp thu kiến thức chuyên ngành để vận dụng vào thực tế, em vận dụng kiến thức học để viết chương trình quản lý nhân cho Cơng ty Xi Măng Tiên Sơn - Hà Tây Trong thời gian làm đề tài khóa luận tốt nghiệp em nhận hướng dẫn tận tình thầy giáo Bùi Thanh Tuyền Em xin chân thành cảm ơn thầy cô, bạn bè đặc biệt thầy giáo Bùi Thanh Tuyền hướng dẫn hết lòng giúp đỡ em hồn thành đề tài Vì điều kiện thời gian quy định cho đợt thực tập có hạn với vốn kiến thức tiếp thu hạn chế chưa có nhiều kinh nghiêm lập trình phần mềm ứng dụng, nên đề tài em khơng tránh khỏi thiếu sót Vì em mong nhận đóng góp ý kiến tận tình thầy bạn Em xin chân thành cảm ơn! Hà Nội, tháng 1, năm 2013 Sinh viên thực hiên: Nguyễn Hoàng Long MSV: 7TD02174 LuËn văn tốt nghiệp GVHD: GS Trần Anh Bảo Nguyn Hong Long Chương KHẢO SÁT HỆ THỐNG 1.1 SƠ LƯỢC VỀ KHẢO SÁT HỆ THỐNG THÔNG TIN Khảo sát cơng việc quan trọng để nhận định quy trình cách thức hoạt động hệ thống Nhận định sát với thực tiễn giúp cho phần hệ thống thuận lợi đắn Quá trình khảo sát hệ thống thực nhằm xác định số vấn đề trước bắt đầu xây dựng, phát triển dự án tin hoc Những vấn đề quan trọng cần phải xác định rõ là: • Nhu cầu xây dựng phát triển hệ thống thông tin, tức là, thực người sử dụng muốn hệ thống? • Những vấn đề cần làm, khơng nên làm, chưa nên hay làm Nói cách khác xác định ràng buộc, hạn chế phạm vi dự án Với nội dung, phải xem xét tới cần thiết tính khả thi • Thời gian phát triển hệ thống Đòi hỏi xác định thời gian hoàn thành từ thời điểm đầu khó, vậy, cần đưa thời hạn định để thực dự án • Giá thành phát triển hệ thống (tính đầy đủ yếu tố nhân lực, vật lực, tài chính) Điều có nghĩa là, từ khảo sát phải có hình dung sơ bộ, chí hình dung chi tiết giải pháp thực hiện, đáp ứng yêu cầu đặt yêu cầu quan trọng 1.2 MÔ TẢ HIỆN TRẠNG Địa điểm khảo sát trạng: Công ty Xi Măng Tiên Sơn – Hà Tây Địa chỉ: Xã Hông Quang – Huyện Ứng Hòa – Tỉnh Hà Tây Nguyễn Hong Long MSV: 7TD02174 Luận văn tốt nghiệp GVHD: GS Trần Anh Bảo 1.2.1 Lch s hỡnh thnh v phỏt triển công ty Xi Măng Tiên Sơ – Hà Tây Cơng ty Xi măng Tiên Sơn Hà Tây có trụ sở nhà máy sản xuất thuộc xã Hồng Quang huyện Ứng Hoà, tỉnh Hà Tây, nằm cuối quốc lộ 22 đường Hà Đông - Đục Khê Cách trung tâm Hà Nội khoảng 50 km Với vị cửa ngõ phía tây nam Thu Hà nội, trước đây, 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 nghĩ đến khả phòng thủ mà chưa khai thác hết tiềm 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, xi măng (với trữ lượng khoảng 600 triệu m3) Công ty Xi măng Tiên Sơn Hà Tây đơn vị kinh tế hạch toán độc lập thành lập vào ngày 26/12/2004 trực thuộc Sở Xây dựng Hà Tây Tiền thân Công ty Xi măng PC Tiên Sơn UBND tỉnh Hà Tây thành lập theo Quyết định số 593/QĐ-UB ngày 24/10/1995 UBND tỉnh, sở nâng cấp đổi tên từ Xí nghiệp Xi măng đá Tiên Sơn Xí nghiệp xi măng đá Tiên Sơn thuộc Sở Xây dựng Hà Tây thành lập từ tháng 2/1965 Đến năm 1978 đổi tên Xí nghiệp xi măng Tiên Sơn Do thực chủ trương Nhà nước phát triển xi măng địa phương Xí nghiệp đầu tư xây dựng dây chuyền sản xuất xi măng lị đứng với cơng suất thiết kế 10.000 tấn/năm Toàn dây chuyền sản xuất xí nghiệp địa phương tỉnh chế tạo lắp đặt Từ năm 1979-1992 q trình vận hành sản xuất máy móc thường xuyên bị hỏng, suất chất lượng sản phẩm thấp, khơng đạt cơng suất thiết kế…Vì 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 đứng trước bờ vực phá sản Năm 1993 cho phép UBND tỉnh Hà Tây, xí nghiệp nâng cấp đầu tư chiều sâu máy móc thiết bị đồng bộ, giới hố nhập Trung Quốc, nâng cấp công suất theo sản lượng thiết kế xí nghiệp lên 60.000 tấn/năm nguồn vốn vay dài hạn ngân hàng với tổng trị giá 35 tỷ đồng Đến tháng 6/1995 cơng trình hồn thành đưa vào sn xut Nguyn Hong Long MSV: 7TD02174 Luận văn tốt nghiệp GVHD: GS Trần Anh Bảo Nm 2003, cụng ty tiếp tục đầu tư nâng cấp toàn dây chuyền sản xuất Trong xây dựng dây chuyền nung clinhke nâng công suất nhà máy lên 150.000 tấn/năm Và 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 hàng năm cơng ty sản xuất khoảng 200.000 tấn/năm 1.2.2 Chức nhiệm vụ Công ty Công ty cổ phần Xi măng Tiên Sơn Hà Tây thành lập với chức sản xuất xi măng PC30 theo tiêu chuẩn Việt Nam(TCVN 6260-1997) theo tiêu chuẩn chất lượng ISO 9001:2000 Trải qua 44 năm phấn đấu trưởng thành Công ty Xi Măng Tiên Sơn – Hà Tây dần khẳng định vị trí nước khu vực Thế Giới Xi măng ngun vật liệu nói quan trọng ngành xây dựng Dây chuyền sản xuất xi măng công ty xây dựng theo công nghệ xi măng lị đứng, khí hố đồng phần tự động hố Quy trình cơng nghệ sản xuất nhà máy quy trình phức tạp, chế biến liên tục, công suất thiết kế khoảng 200.000 xi măng/năm.Công ty sản xuất lượng xi măng tương đối lớn, góp phần đẩy mạnh ngành xây dựng huyện tỉnh nhà ngày phát triển Cùng với q trình cơng nghiệp hóa đại hóa đất nước, cơng ty ngày mở rộng quy mô sản xuất 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 đại lý cho đơn vị kinh tế nước để mở rộng sản xuất kinh doanh Trong năm qua công ty vững chữ tín với khách hàng thị truờng khẳng định qua chất lượng xi măng, bị ứ đọng tồn kho, cơng ty có khả quay vịng vốn nhanh, kinh doanh ngày có lãi, thu nhập người lao động ngày tăng lên Nguyễn Hoàng Long MSV: 7TD02174 Luận văn tốt nghiệp GVHD: GS Trần Anh B¶o 1.2.3 Cơ cấu tổ chức trách nhiệm 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 xi măng Tiên Sơn Hà Tây có số lao động khoảng 870 người, 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 trình độ sơ cấp Cơng ty sản phẩm sản xuất xi măng PC30, lực lượng lao động công ty chia làm khối chính: • Bộ phận quản lý: Bao gồm phòng ban, quản đốc, phó đốc, tổ trưởng phân xưởng • Bộ phận sản xuất: Công nhân sản xuất phân xưởng, tổ phục vụ • Bộ phận tiêu thụ: Bao gồm lực lượng công nhân viên văn phịng đại diện, trung tâm tiêu thụ Trong công nhân sản xuất trực tiếp chủ yếu địa bàn quanh khu vực hai huyện Mỹ Đức Ứng Hòa chia thành 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 thực việc quản lý bảo dưỡng sửa chữa máy móc, trang thiết bị phân xưởng mình, đảm bảo nhiên liệu vận hành theo dây chuyền công ty - Phân xưởng nung clinhke: thực chịu trách nhiệm điều khiển lò nung việc quản lý vận hành bảo dưỡng toàn máy móc thiết bị phân xưởng mình, vận hành máy nghiền, hệ thống máy hút bụi 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 xi măng có 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 việc đóng bao, nhập kho, với chuyên gia công sản xuất vỏ bao xi măng phục vụ cho việc đóng bao xi Nguyễn Hồng Long MSV: 7TD02174 Luận văn tốt nghiệp GVHD: GS Trần Anh B¶o măng Ngồi cơng ty cịn có tổ đ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ông ty, đảm bảo cung cấp đầy đủ, thường xuyên, liên tục yếu tố điện nước nhằm phục vụ tốt cho trình sản xuất đảm bảo dây chuyên để sản phẩm đạt chất lượng cao Sơ đồ chức quản lý Công ty Xi Măng Tiên Sơn – Hà Tây: • Trách nhiệm lãnh đạo: Giám đốc: người hy điều hành cao đại diện điều hành đơn vị, chịu toàn trách nhiệm kế sản xuất kinh doạnh công ty, nhiệm vụ với nhà nước theo phát luật Nguyn Hong Long MSV: 7TD02174 Luận văn tốt nghiệp GVHD: GS Trần Anh Bảo Phú giỏm c ph trỏch kinh doanh: Là người giúp giám đốc, tham mưu, soạn thảo phương án chiến lược sản xuất kinh doanh thay mặt giám đốc phụ trách giải công việc giám đốc uỷ quyền Trực tiếp đạo đôn đốc phận kinh doanh tiêu thụ sản phẩm Tổ chức nghiên cứu mở rộng thị trường, nắm bắt nhu cầu thị trường để điều tiết bán sản phẩm cho hợp lý Trực tiếp đạo hoạt động phịng tổ chức hành theo phân cơng giám đốc Phó giám đốc phụ trách kỹ thuật: Là người đạo việc xây dựng, rà soát định mức vật tư, lao động Trực tiếp đạo công tác kỹ thuật công ty, thẩm xét phương án kỹ thuật, tiêu chuẩn kỹ thuật, nhà cung ứng vật tư đầu vào loại vật tư đầu vào trước trình giám đốc phê duyệt… Thực giải công việc giám đốc uỷ quyền • Các phịng ban cơng ty: Phịng Tổ chức hành chính: Thực việc tổ chức quản lý nhân công ty Chịu trách nhiệm quản lý nguồn nhân lực, tham mưu cho giám đốc sách phát triển nguồn nhân lực việc đào tạo, đào tạo lại, tuyển dụng bổ xung cho phận quản lý sản xuất công ty Lập kế hoạch lao động tiền lương dựa sở định mức lao động tiêu kinh tế kỹ thuật công ty, cung cấp lưu trữ loại tài liệu, hồ sơ cơng ty Phịng Tài vụ: Giúp giám đốc việc thực quản lý tồn vốn cơng ty Thực thi sách chế độ, kiểm tra ghi chép giám sát tình hình biến động tài cơng ty, thường xun hạch tốn, tốn cơng nợ, tăng cường quản lý vốn, xây dựng bảo toàn phát triển vốn Chịu trách nhiệm trước giám đốc quan chức số liệu báo cáo lập kế hoạch tài cho năm, quý, tháng đồng thời tính tốn lỗ lãi, lập báo cáo tài chính, tờ khai thuế, tốn thuế, tốn tài trước giám đốc quan chức Trả lương cho cán công nhân viên chế độ Đảm bảo nguyên tắc tài kế tốn Lưu trữ chứng từ sổ sách có liên quan đến nghiệp vụ kinh tế phát sinh cụng ty Nguyn Hong Long MSV: 7TD02174 Luận văn tốt nghiệp GVHD: GS Trần Anh Bảo Phũng k hoch vật tư: Chịu trách nhiệm lập kế hoạch, xây dựng định mức vật tư chủ yếu, lập kế hoạch sản xuất cho tồn cơng ty Tổ chức kiểm tra giám sát việc thực kế hoạch sau phê duyệt Tổ chức việc cung ứng vật tư theo yêu cầu sản xuất đảm bảo số lượng chất lượng Lập báo cáo tình hình sử dụng cung ứng, tiêu thụ vận chuyển vật tư, hàng hố cơng ty Phịng kỹ thuật cơng nghệ: Chịu trách nhiệm kiểm tra đánh giá chất lượng đầu vào từ khâu nhập nguyên liệu kiểm tra đánh giá chất lượng đầu sản phẩm hàng hoá Thực việc kiểm tra giám sát chất lượng, quy cách sản phẩm hàng hố Tính tốn thẩm xét định mức tiêu hao, định mức kinh tế kỹ thuật kiểm tra giám sát việc thực sau phê duyệt Phòng kỹ thuật điện: Là phận chịu trách nhiệm trước ban giám đốc việc nhập thiết bị, máy móc phục vụ cho sản xuất Có trách nhiệm giám sát kỹ thuật máy móc, thiết bị tồn dây chuyền sản xuất Lập kế hoạch bảo dưỡng, sửa chữa máy móc, thiết bị Báo cáo ban giám đốc kịp thời biến động bất thường máy móc thiết bị dây chuyền sản xuất Các phân xưởng sản xuất: Theo đặc điểm, quy trình cơng nghệ sản xuất xi măng sản xuất qua nhiều bước Nên địi hỏi cơng ty phải tổ chức thành phân xưởng, phân xưởng đảm nhận số công đoạn định Hiện công ty tổ chức thành phân xưởng phân xưởng nghiền liệu, phân xưởng nung clinhke, phân xưởng nghiền xi măng, phân xưởng thành phẩm, ngồi cịn có tổ điện Công nhân phân xưởng chịu quản lý quản đốc phân xưởng Đồng thời tổ chức thực kế hoạch sản xuất, bảo dưỡng, sửa chữa trang thiết bị, hướng dẫn thao tác vận hành đảm bảo sản xuất phân xưởng 1.2.4 Chức nhiệm vụ hệ thống quản lý nhân Với đánh giá nhận xét ta thấy công tác quản lý nhân địi hỏi xác cao liên quan đến quền lợi nhân viên Cơng ty, người lập trình muốn xây dựng chương trình quản lý tốt Nguyễn Hồng Long MSV: 7TD02174 Luận văn tốt nghiệp GVHD: GS Trần Anh B¶o trước hết phải tìm hiểu dõ ngun tắc quản lý để hồn thành tốt cơng việc Hệ thống đặt quản lý phịng Tổ chức hành chính, hệ thống phải thường xuyên thông báo cho ban lãnh đạo biết về: thơng tin lý lịch trình độ chun mơn, trình độ lý luận, trình đội ngoại ngữ, q trình cơng tác, quan hệ gia đình … cơng nhân viên cơng ty Khi có nhân viên tuyển vào công ty cần cập nhật đầy đủ thông tin cần quản lý nhân Đầu năm người quản lý phịng Tổ chức hành vào kế hoạch nhu cầu công việc năm, có nhu cầu thiếu nhân phịng ban đó, để lập kế hoạch tuyển dụng đề nghị với giám đốc phê duyệt tiêu giao, có tiêu duyệt người quản lý thông báo công khai điều kiện tiêu chuẩn số lượng cần tuyển Sau tuyển cơng bố kết quả, định tuyển dụng nhận hồ sơ xin việc Công tác sử dụng nhân sự: Người tuyển công ty qua thời gian tập Thời gian tập tình từ ngày người tuyển dụng nhận việc khoảng thời gian tùy thuộc vào trình độ đào tạo chun mơn người tuyển dụng Khi có nhân phận quản lý nhân cụ thể phòng Tổ chức hành phải cập nhật đầy đủ thơng tin cần quản lý nhân như: Lý lịch thân, quan hệ gia đình, trình độ … Đào tạo bồi dưỡng: Việc đào tạo bồi dưỡng vào kế hoach tiêu chuẩn chức vụ, tiêu chuẩn nghiệp vụ ngạch Hoặc yêu cầu nhiệm vụ mà cơng ty cử cơng nhân viên đến làm việc có thời hạn khơng thời hạn quan, tổ chức, hay đơn vị khác Ngồi sử dụng nhân cịn phải giải vấn đề hưu trí, thơi việc Nhân có đủ tuổi đời thời gian bảo hiểm xa hội quy định theo điều 145 luật lao động hưởng chế độ hưu trí chế độ khác Nhân việc hưởng chế độ trường hợp sau: Do xếp tổ chức, giảm biên chế theo định cơng ty, có nguyện vọng thơi việc 10 Nguyễn Hồng Long MSV: 7TD02174 Luận văn tốt nghiệp GVHD: GS Trần Anh B¶o Unload Me End Sub Private Sub cmdXoa_Click(Index As Integer) If Me.txt_manv.Text = "" Then MsgBox "BAN CHUA CHON MA DE XOA." Else Set rs = New ADODB.Recordset SQL = "delete * FROM nhanvien where maNV='" & Me.txt_manv.Text & "'" If MsgBox("BAN CO MUON XOA MA NAY KHONG ?", vbYesNo) = vbYes Then rs.Open SQL, conn, 1, 'rs.Open SQL, conn, 1, End If 'MsgBox ("BAN GHI DA DUOC XOA KHOI CSDL") End If Display_Listview ClearALL End Sub 100 Nguyn Hong Long MSV: 7TD02174 Luận văn tốt nghiệp GVHD: GS Trần Anh Bảo Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date) Me.DTPicker1.Value = Now Me.DTPicker2.Value = Now End Sub Private Sub Form_Load() Ketnoi 'loadmanhanvien loaddantoc loadtongiao loadtrinhdo loadchuyenmon loadlyluanct loadphongban loadchucvu loadnamthoatli loadnamveGT Display_Listview End Sub 101 Nguyễn Hoàng Long MSV: 7TD02174 Luận văn tốt nghiệp GVHD: GS Trần Anh B¶o Private Sub ListView1_Click() 'rs.Open "SELECT nhanvien.maNV, nhanvien.hodem, nhanvien.ten FROM nhanvien where maNV='" & Me.cmbmanhanvien.Text & "'", conn, adOpenStatic, adLockReadOnly 'Me.lbl_ten.Caption = rs("ten") 'Me.lbl_hodem.Caption = rs("hodem") 'rs.Close End Sub Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) Me.txt_manv.Text = Item.Text Me.txthodem.Text = Item.SubItems(1) Me.txtten.Text = Item.SubItems(2) Me.txtgioitinh.Text = Item.SubItems(4) Me.txtngaysinh.Text = Item.SubItems(5) Me.txtdiachi.Text = Item.SubItems(3) Me.txtsdt.Text = Item.SubItems(6) Me.txtsocmnd.Text = Item.SubItems(7) Me.DTPicker1.Value = Item.SubItems(8) Me.DTPicker2.Value = Item.SubItems(9) Me.cmb_namthoatli.Text = Item.SubItems(10) 102 Nguyn Hong Long MSV: 7TD02174 Luận văn tốt nghiệp GVHD: GS Trần Anh Bảo Me.cmb_namveGT.Text = Item.SubItems(11) Me.cmb_madt.Text = Item.SubItems(12) Me.cmb_matongiao.Text = Item.SubItems(13) Me.cmb_matrinhdo.Text = Item.SubItems(14) Me.cmb_machuyenmon.Text = Item.SubItems(15) Me.cmb_matdctri.Text = Item.SubItems(16) Me.cmb_macvu.Text = Item.SubItems(17) Me.cmb_mapban.Text = Item.SubItems(18) rs.Open "select tenCM from chuyenmon where MaCM='" & Me.cmb_machuyenmon.Text & "'", conn, adOpenStatic, adLockReadOnly Me.lbl_chuyenmon.Caption = rs("tenCM") rs.Close rs.Open "select tenCV from chucvu where MaCV='" & Me.cmb_macvu.Text & "'", conn, adOpenStatic, adLockReadOnly Me.lbl_chucvu.Caption = rs("tenCV") rs.Close rs.Open "select tendantoc from dantoc where Madt='" & Me.cmb_madt.Text & "'", conn, adOpenStatic, adLockReadOnly Me.lbl_madt.Caption = rs("tendantoc") rs.Close rs.Open "select tenphong from phong where Mapb='" & Me.cmb_mapban.Text & "'", conn, adOpenStatic, adLockReadOnly Me.lbl_phongban.Caption = rs("tenphong") 103 Nguyn Hong Long MSV: 7TD02174 Luận văn tốt nghiệp GVHD: GS Trần Anh Bảo rs.Close rs.Open "select tenTDLLCT from TDLLCT where maTDLLCT='" & Me.cmb_matdctri.Text & "'", conn, adOpenStatic, adLockReadOnly Me.lbl_chinhtri.Caption = rs("tenTDLLCT") rs.Close rs.Open "select tentg from tongiao where matg='" & Me.cmb_matongiao.Text & "'", conn, adOpenStatic, adLockReadOnly Me.lbl_tongiao.Caption = rs("tentg") rs.Close rs.Open "select tentd from trinhdo where maTD='" & Me.cmb_matrinhdo.Text & "'", conn, adOpenStatic, adLockReadOnly Me.lbl_trinhdo.Caption = rs("tenTD") rs.Close End Sub Private Sub txt_manv_LostFocus() If Me.txthodem.Text = "" Then MsgBox "BAN PHAI NHAP HO TRUOC" Me.txthodem.SetFocus End If End Sub 104 Nguyn Hong Long MSV: 7TD02174 Luận văn tốt nghiệp GVHD: GS Trần Anh Bảo Private Sub txtdiachi_LostFocus() If Me.txtngaysinh.Text = "" Then MsgBox "BAN PHAI NHAP NGAY SINH NHAN VIEN" Me.txtngaysinh.SetFocus End If End Sub Private Sub txthodem_LostFocus() If Me.txtten = "" Then MsgBox "BAN PHAI NHAP TEN NHAN VIEN!" Me.txtten.SetFocus End If End Sub Private Sub txtngaysinh_LostFocus() If Me.txtgioitinh = "" Then MsgBox "BAN PHAI NHAP GIOI TINH !" Me.txtgioitinh.SetFocus End If End Sub 105 Nguyễn Hoàng Long MSV: 7TD02174 Luận văn tốt nghiệp GVHD: GS Trần Anh B¶o Private Sub txtten_LostFocus() If Me.txtdiachi = "" Then MsgBox " BAN PHAI NHAP DIA CHI!" Me.txtdiachi.SetFocus End If End Sub 4.1.8.Cập nhật tôn giáo Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim SQL As String Public Sub Ketnoi() Set conn = New ADODB.Connection conn.ConnectionString Source=D:\HOC = "Provider=Microsoft.Jet.OLEDB.4.0;Data TAP\DOANTOTNGHIEP\QLNV.MDB;Persist Security Info=False" conn.Open End Sub Private Sub ClearALL() Me.txtmatg = "" Me.txttentg = "" 106 Nguyễn Hoàng Long MSV: 7TD02174 Luận văn tốt nghiệp GVHD: GS Trần Anh Bảo End Sub Private Sub Display_Listview() Set rs = New ADODB.Recordset Dim mitem As ListItem Me.ListView1.ListItems.Clear SQL = "select * from tongiao" rs.Open SQL, conn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then While Not rs.EOF Set mitem = Me.ListView1.ListItems.Add(, , rs!matg) mitem.SubItems(1) = rs!tentg 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) 107 Nguyễn Hoàng Long MSV: 7TD02174 LuËn văn tốt nghiệp GVHD: GS Trần Anh Bảo Set rs = New ADODB.Recordset If Me.txtmatg.Text = "" Then MsgBox "BAN CAN NHAP MA DE SUA." Else SQL = "Update tongiao set tentg ='" & Me.txttentg.Text & "'" SQL = SQL & "where matg='" & Me.txtmatg.Text & "'" If MsgBox("BAN CO MUON SUA KHONG ?", vbQuestion + vbYesNo, "Thong bao") = vbYes Then rs.Open SQL, conn, 1, 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() 108 Nguyn Hong Long MSV: 7TD02174 Luận văn tốt nghiệp GVHD: GS Trần Anh Bảo Ketnoi If Me.txtmatg.Text = "" Then MsgBox "Ban Chua Nhap Ma Ton Giao" Me.txtmatg.SetFocus Else Set rs = New ADODB.Recordset SQL = "SELECT tongiao.matg, tongiao.tentg FROM tongiao where matg= '" & Me.txtmatg.Text & "'" rs.Open SQL, conn, 1, If Not rs.EOF Then MsgBox "MA NAY DA TON TAI" Me.txtmatg.SetFocus Else rs.AddNew rs("matg") = Me.txtmatg.Text rs("tentg") = Me.txttentg.Text rs.Update MsgBox "BAN GHI DA DUOC CAP NHAT" End If If MsgBox("BAN CO MUON NHAP TIEP KHONG?", vbYesNo) = vbYes Then Me.txtmatg.SetFocus End If 109 Nguyn Hong Long MSV: 7TD02174 Luận văn tốt nghiệp GVHD: GS Trần Anh Bảo 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.txtmatg.Text = "" Then MsgBox "BAN CHUA CHON MA DE XOA." Else Set rs = New ADODB.Recordset SQL = "delete * from tongiao where matg='" & Me.txtmatg.Text & "'" If MsgBox("BAN CO MUON XOA MA NAY KHONG ?", vbYesNo) = vbYes Then rs.Open SQL, conn, 1, End If End If 110 Nguyễn Hoàng Long MSV: 7TD02174 Luận văn tốt nghiệp GVHD: GS Trần Anh B¶o Display_Listview ClearALL End Sub Private Sub Form_Load() Ketnoi Display_Listview End Sub Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) Me.txtmatg.Text = Item.Text Me.txttentg.Text = Item.SubItems(1) End Sub 4.1.9.Cập nhật trình độ Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim SQL As String Public Sub Ketnoi() Set conn = New ADODB.Connection 111 Nguyn Hong Long MSV: 7TD02174 Luận văn tốt nghiệp GVHD: GS Trần Anh Bảo conn.ConnectionString Source=D:\HOC = "Provider=Microsoft.Jet.OLEDB.4.0;Data TAP\DOANTOTNGHIEP\QLNV.MDB;Persist Security Info=False" conn.Open End Sub Private Sub ClearALL() Me.txtmaTD = "" Me.txttenTD = "" End Sub Private Sub Display_Listview() Set rs = New ADODB.Recordset Dim mitem As ListItem Me.ListView1.ListItems.Clear SQL = "select * from trinhdo" rs.Open SQL, conn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then While Not rs.EOF Set mitem = Me.ListView1.ListItems.Add(, , rs!maTD) mitem.SubItems(1) = rs!tenTD 112 Nguyn Hong Long MSV: 7TD02174 Luận văn tốt nghiệp GVHD: GS Trần Anh Bảo 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.txtmaTD.Text = "" Then MsgBox "BAN CAN NHAP MA DE SUA." Else SQL = "Update trinhdo set tenTD ='" & Me.txttenTD.Text & "'" SQL = SQL & "where maTD='" & Me.txtmaTD.Text & "'" If MsgBox("BAN CO MUON SUA KHONG ?", vbQuestion + vbYesNo, "Thong bao") = vbYes Then rs.Open SQL, conn, 1, End If 113 Nguyễn Hoàng Long MSV: 7TD02174 Luận văn tốt nghiệp GVHD: GS Trần Anh Bảo End If Set rs = Nothing MsgBox "BAN GHI DA DUOC NHAP THANH CONG" ' rs.Close Display_Listview ClearALL End Sub Private Sub cmdThem_Click() Ketnoi If Me.txtmaTD.Text = "" Then MsgBox "BAN CHUA NHAP MA TRINH DO" Me.txtmaTD.SetFocus Else Set rs = New ADODB.Recordset SQL = "SELECT trinhdo.maTD, trinhdo.tenTD FROM trinhdo where maTD= '" & Me.txtmaTD.Text & "'" rs.Open SQL, conn, 1, If Not rs.EOF Then MsgBox "MA NAY DA TON TAI" Me.txtmaTD.SetFocus 114 Nguyễn Hoàng Long MSV: 7TD02174 ... trưởng thành Công ty Xi Măng Tiên Sơn – Hà Tây dần khẳng định vị trí nước khu vực Thế Giới Xi măng ngun vật liệu nói quan trọng ngành xây dựng Dây chuyền sản xuất xi măng công ty xây dựng theo... kiếm, thống kê 31 CÁN BỘ QUẢN LÝ NHÂN SỰ Nguyễn Hồng Long Hồ sơ thơng tin cá nhân HỆ THỐNG QUẢN LÝ NHÂN SỰ NHÂN SỰ MSV: 7TD02174 Luận văn tốt nghiệp GVHD: GS Trần Anh Bảo Kết tìm kiếm, thống. .. thành phát triển công ty Xi Măng Tiên Sơ – Hà Tây Công ty Xi măng Tiên Sơn Hà Tây có trụ sở nhà máy sản xuất thuộc xã Hồng Quang huyện Ứng Hoà, tỉnh Hà Tây, nằm cuối quốc lộ 22 đường Hà Đông - Đục