chuyên đề thực tập tốt nghiệp Lời nói đầu Trong năm trở lại đây, máy tính đợc sử dụng công tác quản lý thông tin nớc ta đợc phát triển mạnh mẽ Nhu cầu nắm bắt trao đổi thông tin nhanh định không nhỏ đến thành công hay thất bại kinh doanh cđa doanh nghiƯp MỈc dï vËy, nỊn kinh tÕ thÞ tr êng cđa níc ta hiƯn phận không nhỏ quan nhà nớc từ trung ơng đến địa phơng làm việc theo cấu cũ, phong cánh cũ lạc hậu, lỗi thời, không phù hợp với xu hớng thời đại Để theo kịp công nghệ phát triển nh vũ bÃo giới, Đảng Nhà nớc đà đa nhiều chủ trơng sách cải tiến thích hợp để đa đất nớc lên hoà nhập với giới Trong tất sách đó, công tác quản lý nhân đợc đặc biệt coi trọng Sau thời gian cân nhắc đợc hớng dẫn thầy PGS.TS Hµn ViÕt Thn chđ nhiƯm khoa Tin häc Kinh TÕ em đà định lấy tên đề tài là: Xây dựng phần mềm Quản lý nhân tiền lơng Nhà khách Hội trờng UBND tỉnh Thái Bình * Mục đích thực - Kiểm tra khả năng, trình ®é hiĨu biÕt cịng nh kinh nghiƯm thùc tÕ ngoµi xà hội - Góp phần công sức nhỏ bé vào trình hội nhập phát triển Nhà khách Hội trờng UBND tỉnh Thái Bình * Phạm vi đề tài Để chơng trình quản lý đạt đợc hiệu cao, cần phải tìm hiểu chức sau: + Quản lý hồ sơ cán công nhân viên - Thêm mới, sửa, xoá lu giữ thông tin nhân viên cách nhanh chóng dễ dàng SINH VIÊN THựC HIệN: Vũ Thị Việt Hà T IN học kinh tế k7 chuyên ®Ị thùc tËp tèt nghiƯp - Cã thĨ xem dƠ dàng trình hoạt động, công tác nhân viên - Có khả tra cứu thông tin tất vấn đề liên quan, liên quan đến nhân viên nh: phòng ban, tên, địa chỉ, chức vụ cho kết nhanh chóng xác - Các bảng biểu thống kê, báo cáo hàng tháng, hàng năm đợc trình bầy đầy đủ rõ ràng + Quản lý lơng - Thêm mới, sửa, xoá lu trữ lơng cách nhanh chóng dễ dàng - Tính lơng đơn giản, việc nhập liệu vào chơng trình chịu tr¸ch nhiƯm tÝnh to¸n - Cã thĨ tra cøu nhanh nh: theo hƯ sè l¬ng, bËc l¬ng - In ta bảng báo cáo theo tháng, theo năm, theo kỳ + Quản lý khen thởng kỷ luật - Thêm mới, sửa, xoá lu trữ - Tính toán số tiền thởng cách đơn giản thuận tiện - Có thể tính toán nhanh cho kết xác - In bảng báo cáo đợc cập nhập hàng tháng Chuyên đề thực tập tốt nghiệp kết thời gian em đợc thực tập quan Trong trình thực tập, em đà cố gắng đa đề tài sát với thực tế Tuy nhiên, chơng trình quản lý chắn số sai sót, hạn chế định cần đợc giúp đỡ quý thầy cô khoa Tin Kinh Tế đặc biệt giúp đỡ Thầy PGS.TS Hàn Viết Thuận, để làm cho đề tài nghiên cứu đợc thành công chọn vẹn SINH VIÊN THựC HIệN: Vũ Thị Việt Hà T IN học kinh tế k7 chuyên đề thực tập tốt nghiệp Chuyên đề em bao gồm : Chơng I: Giới thiệu tổng quan Nhà khách Hội trờng UBND tỉnh Thái Bình Chơng II: Một số vấn đề phơng pháp luận xây dựng phần mềm quản lý nhân tiền lơng Nhà khách Hội trờng UBND tỉnh Thái Bình Chơng III: Xây dựng phần mềm Quản lý nhân tiền lơng Nhà khách Hội trờng UBND tỉnh Thái Bình Chơng i SINH VIÊN THựC HIệN: Vũ Thị Việt Hà T IN học kinh tế k7 chuyên đề thực tập tốt nghiệp Giới thiệu tổng quan nhà khách hội trờng uỷ ban nhân dân tỉnh tháI bình I Giới thiệu khái quát Nhà khách hội trờng UBND tỉnh Thái Bình đợc thành lập ngày 15/07/1976 Đợc tách từ Văn phòng UBND tỉnh Thái Bình Căn theo QĐ số 514 việc phê chuẩn điều lệ hoạt động Nhà khách hội trờng UBND tỉnh Thái Bình Cơ quan có trụ sở đặt số 235 đờng Hai Bà TrngThái Bình Qua 33 năm kiên trì phấn đấu, vợt lên khó khăn giai đoạn cách mạng, Nhà khách Hội trờng UBND tỉnh Thái Bình đà bớc trởng thành chuyển mạnh từ chế bao cấp sang hoạch toán kinh doanh Đến nay, Nhà khách Hội trờng UBND tỉnh Thái Bình đà có lực lợng vững mạnh, đà kiện toàn lại cấu tổ chức, tiếp cận với thị trờng, đầu t trang thiết bị đại Công tác trẻ hoá đội ngũ cán lÃnh đạo đợc tiến hành cách thờng xuyên liên tục Trình độ có cấp ngày nhiều Lợng cán trẻ có cấp chiếm 65% số cán công nhân viên Họ với cán lâu năm nhiều kinh nghiệm tâm lên đờng hoà nhập phát triển với xà hội, chấp nhận khó khăn thử thách Nhà khách hội trờng UBND tỉnh Thái Bình làm việc theo chế độ tuần làm năm ngày, nghỉ hai ngày thứ bẩy chủ nhật, ngày làm tám tiếng từ 30 đến 11 30 từ 13 30 đến 17 30 Ngoài ra, tuỳ theo tình hình công việc cụ thể mà nhân viên quan làm thêm vào ngày thứ bảy chủ nhật, tuỳ theo điều động Ban giám đốc trởng phòng Các ngày làm thêm đợc giám đốc thởng riêng, hoàn toàn không lệ thuộc vào quỹ lơng hay quỹ thởng quan Sơ đồ tổ chức SINH VIÊN THựC HIệN: Vũ Thị Việt Hà T IN học kinh tế k7 chuyên đề thực tập tốt nghiệp Tổ chức, xếp cán khâu vô quan trọng, đảm bảo cho lao động quan hoạt động có hiệu kinh tế cao Sau sơ đồ tổ chức cán Nhà khách Hội trờng UBND - Thái Bình Đảng Uỷ Giám đốc PGĐ Kỹ thuật Công đoàn PGĐ.Kinh doanh PGĐ Kinh tế P Kỹ Thuật P Tỉ Chøc P Hµnh ChÝnh P Kinh TÕ P Cung ứng P TC- KT P Tài Vụ P Máy Tính Hình 1.1 Sơ đồ tổ chức Nhà khách Hội trường UBND tỉnh Thái Bình Chức năng, nhiệm vụ quyền hạn phòng ban Nhà khách Hội trờng UBND tỉnh Thái Bình đơn vị nghiệp có thu trực thuộc Văn phòng UBND tỉnh, đợc sử dụng dấu mở tài khoản riêng theo quy định - Nhiệm vụ Nhà khách Hội trờng phục vụ hội nghị Đoàn Đại biểu Quốc hội, Tỉnh uỷ, HĐND, UBND tỉnh nghành tỉnh tổ chức.Bao gồm: Phòng họp, sinh hoạt ăn, nghỉ cho đại biểu - Có trách nhiệm sử dụng sở vật chất kỹ thuật đợc nhà nớc đầu t trang bị đơn vị tự bổ sung đảm bảo mục đích.Đợc tận dụng sở vật chất kỹ thuật, lao động, mặt có để tổ chức hoạt động dịch vụ ăn, SINH VIÊN THựC HIệN: Vũ Thị Việt Hà T IN học kinh tế k7 chuyên đề thực tập tốt nghiệp nghỉ dịch vụ khác đảm bảo an toàn, hiệu qủa nhng không ảnh hởng đến nhiệm vụ trọng tâm đơn vị - Xây dựng phơng án thu- chi định kỳ, quý, năm thực nghiêm chế độ hạch toán kế toán, chế độ báo cáo thống kê thực đầy đủ nghĩa vụ với Nhà nớc theo quy định 2.1 Đảng uỷ Đảng uỷ quan quyền lực cao nhất, chịu trách nhiệm trớc pháp luật tất vấn đề liên quan Ban lÃnh đạo đảng uỷ gồm có: Giám đốc, chủ tịch công đoàn, phó giám đốc kỹ thuật, phó giám đốc kinh doanh, phó giám đốc kinh tế 2.2 Giám đốc Giám đốc ngời lÃnh đạo điều hành toàn diện hoạt động Nhà khách tỉnh, chịu trách nhiệm trớc Chánh Văn phòng UBND tỉnh pháp luật trình hoạt động quan Trực tiếp phụ trách công tác tổ chức cán bộ, tổ Kế toán- Hành tổ chuyên môn khác thấy cần phải củng cố, điều chỉnh tăng cờng công tác quản lý - Chỉ đạo xây dựng kế hoạch tài chính, lao động hoạt động khác đơn vị đảm bảo sát thực, đáp ứng yêu cầu đề tổ chức đạo thực nhiệm vụ đợc giao.Tham mu, đề xuất cho Chánh Văn phòng chủ trơng, giải pháp để quản lý Nhà khách ngày mét hiƯu qu¶ - Phỉ biÕn tỉ chøc thùc hiƯn chủ trơng, sách pháp luật Nhà nớc, quy định cấp có thẩm quyền tới toàn thể cán công nhân viên.Tổ chức kiểm tra, đánh giá hoạt động cá nhân, tập thể, công khai kết qủa hoạt động đơn vị theo quy định 2.3 Phó giám đốc kỹ thuật Phó giám đốc kỹ thuật phụ trách vấn đề liên quan đến kỹ thuật quan, thay mặt giám đốc giải vấn đề liên quan đến công việc mà đợc phân công phụ trách SINH VIÊN THựC HIệN: Vũ Thị Việt Hà T IN học kinh tế k7 chuyên đề thực tập tốt nghiệp 2.4 Phó giám đốc kinh doanh Phó Giám đốc kinh doanh phụ trách vấn đề liên quan đến toàn hoạt động sản suất kinh doanh quan, thay mặt giám đốc ký kết hoạt động kinh doanh 2.5 Phó giám đốc kinh tế Phó giám đốc kinh tế phụ trách mặt kinh tế cho toàn quan, thay mặt giám đốc ký kết hợp đồng kinh tế, chịu trách nhiệm trớc giám đốc vấn đề liên quan đến kinh tế quan 2.6 Công đoàn Công đoàn tổ chức có tiếng nói quan trọng, có trách nhiệm bảo vệ quyền lợi toàn cán bộ, công nhân viên chức toàn quan 2.7 Các phòng ban chức 2.7.1 Phòng tổ chức lao động, tiền lơng Trong lĩnh vực quản lý kinh tế, hành chính, Phòng tổ chức lao động tiền lơng làm tham mu cho Đảng uỷ, Giám đốc việc tổ chức, xây dựng máy lao động, quản lý nhân sự, xây dựng bồi dỡng cán quản lý Phòng lập kế hoạch quản lý tiền lơng, tiền thởng, làm thủ tục đóng chi trả BHXH, BHYT, phù hợp với sách nhà nớc đặc điểm quan 2.7.2 Phòng tài kế toán Phòng có chức phản ảnh giám sát tất hoạt động kinh tế quan Phòng giữ vị trí quan trọng việc điều hành quản lý kinh tế, thông tin kinh tế lĩnh vực Phòng có chức kiểm tra việc sử dụng tài sản, vật t, tiền vốn đa vào sản xuất phải mang lại hiệu kinh tế cao Nhận xét: Các phòng ban lại nhiệm vụ, nh nhu cầu sử dụng chơng trình Quản lý nhân tiền lơng nên em không trình bày chức quyền hạn phòng Tuy nhiên qua sơ ®å tỉ chøc cđa SINH VI£N THùC HIƯN: Vị ThÞ Việt Hà T IN học kinh tế k7 chuyên ®Ị thùc tËp tèt nghiƯp c¬ quan, chóng ta dƠ dàng nhận thấy tất phòng ban có quan hệ hỗ trợ lẫn công việc II phân tích trạng Nhà khách hội trờng ubnd tỉnh thái bình Cách thức lu trữ quản lý hồ sơ nhân viên Qua việc khảo sát thực tế quan, em nhận thấy thời điểm quan cha áp dụng tin học vào công tác quản lý lu trữ hồ sơ nhân viên toàn quan Tất công việc quản lý nhân viên từ lúc vào làm hu đợc thực phơng pháp thủ công ghi chép Toàn hồ sơ nhân viên đợc viêt lu trữ sổ gọi là: sổ quản lý nhân Trong sổ công việc đợc xếp nh sau: + Ngời lÃnh đạo đứng đầu quan đợc ghi vào mục sổ đợc xếp theo chức vụ nh: Giám đốc, phó giám đốc kinh tế + Tiếp theo đến phòng ban, ngời giữ chức vụ cao đợc xếp lên đầu, nhân viên lại đợc xÕp theo thø tù A, B, C + Hå s¬ lý lịch cán công nhân viên gồm có: - Mà số nhân viên - Họ tên - Giới tính - Ngày sinh - Nơi sinh - Quê quán - Số chứng minh nhân dân - Quê quán - Dân tộc SINH VIÊN THựC HIệN: Vũ Thị Việt Hà T IN học kinh tế k7 chuyên đề thực tập tốt nghiệp - Tôn giáo - Chức vụ - Trình độ chuyên môn - Ngày vào làm việc - Đảng, đoàn - Gia đình - Khen thëng - Kû luËt CỘNG HOÀ Xà HỘI CHỦ NGHĨA VIỆT NAM Độc lập-Tự do- Hạnh phúc ¶nh -o0o - LÝ LỊCH CÁN BỘ CÔNG NHÂN VIÊN I- PHẦN BẢN THÂN Mã nhân viên: Họ tên: (Nam/Nữ) Ngày sinh: Nơi sinh: Quê Quán: Dân tộc: Tôn giáo Hộ thường trú: Số chứng minh nhân dân Chức vụ tại: Trình độ chun mơn: Ngày vào làm: Đoàn thể tham gia(Đảng, Đoàn): Quá trình học tập làm việc Tháng,năm Học làm việc gì? Ở đâu …………………………… …………………………… …………………………… SINH VI£N THùC HIệN: Vũ Thị Việt Hà T IN học kinh tế k7 chuyên đề thực tập tốt nghiệp Khen thưởng Tháng Mã NV ………………………… …………………………… Họ tên Ngày Thành tích Hình thức …… ……… ………………… …………… …………… ……………… …… ……… ………………… …………… …………… ……………… Kỷ luật Tháng Mã NV Họ tên Ngày Vi phạm …… ……… ………………… …………… …………… ……………… …… ……… ………………… …………… …………… ……………… Xử lý II- PHẦN GIA ĐÌNH Họ tên Bố: ……………………………………………… Năm sinh: …………… Nghề nghiệp: …………………………………………………………………………… Nơi ở: …………………………………………………………………………………… Họ tên Mẹ: …………… ………………………………… Năm sinh: …………… Nghề nghiệp: ………………….………………………………………………………… Nơi ở: …………………………………………………………………………………… Họ tên Vợ (hoặc Chồng): …………… ………………… Năm sinh: ……… … Nghề nghiệp: ………………….………………………………………………………… Nơi ở: …………………………………………………………………………………… Tôi xin cam đoan nội dung khai thật, sai xin chịu hoàn toàn trách nhiệm theo quy định pháp luật Ngày … tháng …… năm … Người khai (ký ghi rừ h tờn) Nhận xét: Bản lý lịch cán liệu phản ánh đầy đủ nhất, chi tiết tất toàn thông tin cán công nhân viên chức SINH VIÊN THựC HIệN: Vũ Thị Việt Hà T IN học kinh tế k7 10 chuyên đề thực tập tốt nghiệp End If khoahoptext hienthi cndnew.SetFocus Me.MousePointer = End Sub Private Sub txtngay_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 txtnoiketnap.SetFocus End Select End Sub Private Sub txtnoiketnap_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 cmdsave.SetFocus End Select End Sub Private Sub txtsothutu_Click() Dim str Dim rs As New ADODB.Recordset str = "select * from dang where manv='" & Txtma & "'" rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then MsgBox "Nhân viên có mà [ " & Txtma & " ] đà đợc cập nhập Bạn vui lòng kiểm tra lại ", vbOKOnly + vbExclamation, "Thông báo" Txtma = "" txtten = "" SINH VIÊN THựC HIệN: Vũ Thị Việt Hà T IN học kinh tế k7 121 chuyên đề thực tập tốt nghiệp cmdchonnv.SetFocus Exit Sub End If End Sub Private Sub txtsothutu_KeyPress(KeyAscii As Integer) Dim str Dim rs As New ADODB.Recordset Select Case KeyAscii Case 13 str = "select * from dang where stt='" & txtsothutu & "'" rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then MsgBox "Nhân viên cã m· [ " & txtsothutu & " ] ®· đợc cập nhập Bạn vui lòng kiểm tra lại ", vbOKOnly + vbExclamation, "Thông báo" txtsothutu = "" txtsothutu.SetFocus txtsothutu = "" Else If IsNumeric(Format(Trim(txtsothutu), "##0")) = False Then MsgBox "Chó ý : D÷ liƯu kiĨu sè Bạn vui lòng nhập lại", vbOKOnly + vbExclamation, "Thông b¸o" txtsothutu.SetFocus Else txtngay.SetFocus End If End If End Select End Sub SINH VIÊN THựC HIệN: Vũ Thị Việt Hà T IN học kinh tế k7 122 chuyên đề thực tËp tèt nghiƯp * M· ngn cđa form tÝnh l¬ng cuèi th¸ng Private Sub Command1_Click() Dim str str = "select nhanvien *, chucvu *, dantoc *, tongiao *, phong *, bacluong *, hocvi * from nhanvien, phong, chucvu, tongiao, dantoc, bacluong, hocvi where nhanvien macv=chucvu macv and nhanvien madt=dantoc madt and nhanvien matg=tongiao matg and nhanvien maphong=phong maphong and nhanvien mabl=bacluong mabl and hocvi mahv=nhanvien mahv " If Option1 Value Then str = str & " and nhanvien hoten Like '%" & Trim(Text1) & "%'" de1 Commands(6) CommandText = str If de1 rsCommand4 State = Then de1 rsCommand4 Open End If de1 rsCommand4 Requery DataReport7 Show End If If Option2 Value Then str = str & " and right(nhanvien ngaysinh, 4)= '" & Trim(Text1) & "'" de1 Commands(6) CommandText = str If de1 rsCommand4 State = Then de1 rsCommand4 Open End If de1 rsCommand4 Requery DataReport7 Show End If If Option3 Value Then str = str & " and nhanvien diachi Like '%" & Trim(Text1) & "%'" SINH VIÊN THựC HIệN: Vũ Thị Việt Hà T IN học kinh tế k7 123 chuyên đề thực tập tốt nghiệp de1 Commands(6) CommandText = str If de1 rsCommand4 State = Then de1 rsCommand4 Open End If de1 rsCommand4 Requery DataReport7 Show End If If Option4 Value Then str = str & " and nhanvien quequan Like '%" & Trim(Text1) & "%'" de1 Commands(6) CommandText = str If de1 rsCommand4 State = Then de1 rsCommand4 Open End If de1 rsCommand4 Requery DataReport9 Show End If * M· nguån cña form tìm kiếm theo phòng Private Sub cmdtim_Click() Dim str Dim rs As New ADODB.Recordset Dim rs1 As New ADODB.Recordset Dim mitem As ListItem ivitem.ListItems.Clear If optttmp.Value = True Then str = "select * from nhanvien where maphong='" & Trim(txtma) & "'" rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then While Not rs.EOF SINH VI£N THùC HIÖN: Vũ Thị Việt Hà T IN học kinh tế k7 124 chuyên đề thực tập tốt nghiệp Set mitem = ivitem.ListItems.Add(, , rs!maphong) mitem.SubItems(1) = rs!manv mitem.SubItems(3) = rs!hoten mitem.SubItems(4) = rs!ngaysinh mitem.SubItems(5) = rs!noisinh mitem.SubItems(6) = rs!phai mitem.SubItems(7) = rs!diachi mitem.SubItems(8) = rs!khuvuc mitem.SubItems(9) = rs!quequan mitem.SubItems(10) = rs!thuongtru mitem.SubItems(11) = rs!vanhoa mitem.SubItems(12) = rs!dienthoai mitem.SubItems(13) = rs!ngayvl mitem.SubItems(14) = rs!cmnd mitem.SubItems(15) = rs!macv str = "select tenphong from phong where maphong = '" & rs!maphong & "'" rs1.Open str, cn If rs1.EOF = False Then mitem.SubItems(2) = rs1!tenphong End If rs1.Close rs.MoveNext Wend txtma.SetFocus txtma = "" Else MsgBox "Nhân viên phòng Đề nghị bạn kiểm tra lai ", vbOKOnly + vbExclamation, "Thông báo" SINH VIÊN THựC HIệN: Vũ Thị Việt Hà T IN học kinh tế k7 125 chuyên đề thực tËp tèt nghiÖp txtma.SetFocus txtma = "" End If End If If opttttp.Value = True Then ivitem.ListItems.Clear str = "select * from phong where tenphong = '" & Trim(txtten) & "'" rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then While Not rs.EOF Set mitem = ivitem.ListItems.Add(, , rs!maphong) mitem.SubItems(2) = rs!tenphong str = "select * from nhanvien where maphong='" & rs!maphong & "'" rs1.Open str, cn If rs1.EOF = False Then mitem.SubItems(1) = rs1!manv mitem.SubItems(3) = rs1!hoten mitem.SubItems(4) = rs1!ngaysinh mitem.SubItems(5) = rs1!noisinh mitem.SubItems(6) = rs1!phai mitem.SubItems(7) = rs1!diachi mitem.SubItems(8) = rs1!khuvuc mitem.SubItems(9) = rs1!quequan mitem.SubItems(10) = rs1!thuongtru mitem.SubItems(11) = rs1!vanhoa mitem.SubItems(12) = rs1!dienthoai mitem.SubItems(13) = rs1!ngayvl mitem.SubItems(14) = rs1!cmnd SINH VI£N THùC HIƯN: Vị ThÞ ViƯt Hà T IN học kinh tế k7 126 chuyên đề thùc tËp tèt nghiÖp mitem.SubItems(15) = rs1!macv End If rs1.Close rs.MoveNext Wend txtten.SetFocus txtten = "" Else MsgBox "Nhân viên phòng Đề nghị bạn kiểm tra lại ", vbOKOnly + vbExclamation, "Thông báo" txtten.SetFocus txtten = "" End If End If End Sub Private Sub Form_Load() khoa Me.Top = Me.Left = Me.Width = 11670 Me.Height = 7755 End Sub Private Sub optttmp_Click() txtma.Enabled = True txtten.Enabled = False cmdtim.Enabled = True txtma.SetFocus End Sub SINH VIÊN THựC HIệN: Vũ Thị Việt Hà T IN học kinh tế k7 127 chuyên đề thực tËp tèt nghiÖp Private Sub opttttp_Click() txtma.Enabled = False txtten.Enabled = True cmdtim.Enabled = True txtten.SetFocus End Sub Private Sub khoa() txtma.Enabled = False txtten.Enabled = False cmdtim.Enabled = False End Sub Private Sub txtma_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 cmdtim.SetFocus End Select End Sub Private Sub txtten_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 cmdtim.SetFocus End Select End Sub * M· ngn cđa form t×m kiÕm tỉng hỵp Private Sub Command1_Click() Dim str str = "select nhanvien *, chucvu *, dantoc *, tongiao *, phong *, bacluong *, hocvi * from nhanvien, phong, chucvu, tongiao, dantoc, bacluong, hocvi SINH VIÊN THựC HIệN: Vũ Thị Việt Hà T IN học kinh tế k7 128 chuyên đề thực tập tèt nghiÖp where nhanvien macv=chucvu macv and nhanvien madt=dantoc madt and nhanvien matg=tongiao matg and nhanvien maphong=phong maphong and nhanvien mabl=bacluong mabl and hocvi mahv=nhanvien mahv " If Option1 Value Then str = str & " and nhanvien hoten Like '%" & Trim(Text1) & "%'" de1 Commands(6) CommandText = str If de1 rsCommand4 State = Then de1 rsCommand4 Open End If de1 rsCommand4 Requery DataReport7 Show End If If Option2 Value Then str = str & " and right(nhanvien ngaysinh, 4)= '" & Trim(Text1) & "'" de1 Commands(6) CommandText = str If de1 rsCommand4 State = Then de1 rsCommand4 Open End If de1 rsCommand4 Requery DataReport7 Show End If If Option3 Value Then str = str & " and nhanvien diachi Like '%" & Trim(Text1) & "%'" de1 Commands(6) CommandText = str If de1 rsCommand4 State = Then de1 rsCommand4 Open End If de1 rsCommand4 Requery SINH VIÊN THựC HIệN: Vũ Thị Việt Hà T IN học kinh tế k7 129 chuyên đề thực tập tốt nghiệp DataReport7 Show End If If Option4 Value Then str = str & " and nhanvien quequan Like '%" & Trim(Text1) & "%'" de1 Commands(6) CommandText = str If de1 rsCommand4 State = Then de1 rsCommand4 Open End If de1 rsCommand4 Requery DataReport9 Show End If If Option5 Value Then str = str & " and nhanvien ngoaingu Like '%" & Trim(Text1) & "%'" de1 Commands(6) CommandText = str If de1 rsCommand4 State = Then de1 rsCommand4 Open End If de1 rsCommand4 Requery DataReport9 Show End If If Option6 Value Then str = str & " and nhanvien khuvuc Like '%" & Trim(Text1) & "%'" de1 Commands(6) CommandText = str If de1 rsCommand4 State = Then de1 rsCommand4 Open * Mà nguồn nhân viên tính thởng theo th¸ng Private Sub cmdchonngay_Click() Form29.Show SINH VI£N THùC HIƯN: Vị Thị Việt Hà T IN học kinh tế k7 130 chuyên đề thực tập tốt nghiệp End Sub Private Sub cmddel_Click() xoadulieu End Sub Private Sub cmdin_Click() Dim str str = "select nhanvien.manv,nhanvien.hoten,phong.*,thuong.* from nhanvien,phong,thuong where nhanvien.manv=thuong.manv and nhanvien.maphong=phong.maphong" str = str & " and thuong.thang='" & Trim(cmbthang) & "' order by phong.tenphong" de1.Commands(13).CommandText = str If de1.rsCommand10.State = Then de1.rsCommand10.Open End If de1.rsCommand10.Requery DataReport15.Show End Sub Private Sub cmdnew_Click() giatribandau mokhoa cmdchonngay.SetFocus End Sub Private Sub cmdsave_Click() If flag "update" Then flag = "save" End If luudulieu SINH VIÊN THựC HIệN: Vũ Thị Việt Hà T IN học kinh tế k7 131 chuyên đề thực tập tốt nghiÖp End Sub Private Sub cmdskip_Click() giatribandau khoahoptext End Sub Private Sub cmdthoat_Click() Unload Me End Sub Private Sub cmdtinhhst_Click() If cmbxeploai = "" Then MsgBox "Dữ liệu bạn nhập vào không hợp lệ Bạn phải làm lại ", vbOKOnly + vbExclamation, "Thông báo" cmbxeploai.SetFocus Exit Sub End If If cmbxeploai = "A" Or cmbxeploai = "a" Then txthst = * Val(Trim(txtsnct)) End If If cmbxeploai = "B" Or cmbxeploai = "b" Then txthst = * Val(Trim(txtsnct)) End If If cmbxeploai = "C" Or cmbxeploai = "c" Then txthst = * Val(Trim(txtsnct)) End If If cmbxeploai = "D" Or cmbxeploai = "d" Then txthst = * Val(Trim(txtsnct)) End If End Sub SINH VI£N THùC HIệN: Vũ Thị Việt Hà T IN học kinh tế k7 132 chuyên đề thực tập tốt nghiệp Private Sub cmdtinhsnct_Click() If txtnvl = "" Then MsgBox "Ngµy vµo lµm việc cha có nên bạn tính đợc số năm công tác Bạn phải nhập vào ", vbOKOnly + vbExclamation, "Thông báo" Else txtsnct = 2008 - Right(txtnvl, 4) End If End Sub Private Sub cmdtinhttdt_Click() If txtttqt = "" Or txttcn = "" Then MsgBox "Chó ý : Muốn tính đợc tống số tiền thởng mà nhân viên đợc nhận tháng [ " & cmbthang & " ] hệ số thởng tiền thởng cá nhân không đợc trống Đề nghị bạn kiểm tra lại ", vbOKOnly + vbExclamation, "Thông báo" Else txttongtien = Val(Trim(txtttqt)) + Val(Trim(txttcn)) End If End Sub Private Sub cmdtinhttqt_Click() If txthst = "" Then MsgBox "Chó ý : Trớc tính số tiền đợc thởng theo quỹ thởng công ty bạn phải tính hệ số thởng trớc đà ", vbOKOnly + vbExclamation, "Thông báo" cmdtinhhst.SetFocus Else txtttqt = (Val(Trim(txttqttct)) / Val(Trim(txtthsttct))) * Val(Trim(txthst)) End If End Sub SINH VIÊN THựC HIệN: Vũ Thị Việt Hà T IN học kinh tế k7 133 chuyên đề thực tËp tèt nghiÖp Private Sub cmdupdate_Click() flag = "update" suadulieu End Sub Private Sub suadulieu() mokhoa End Sub Private Sub hienthi() Dim rs As New ADODB.Recordset Dim rs1 As New ADODB.Recordset Dim str Dim mitem As ListItem ivitem.ListItems.Clear str = "select * from thuong order by thang" rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then While Not rs.EOF Set mitem = ivitem.ListItems.Add(, , rs!thang) mitem.SubItems(1) = rs!manv mitem.SubItems(2) = rs!xl mitem.SubItems(3) = rs!snct mitem.SubItems(4) = rs!hest mitem.SubItems(5) = rs!tqt item.SubItems(6) = rs!tcn mitem.SubItems(7) = rs!tongtien rs.MoveNext Wend End If SINH VIÊN THựC HIệN: Vũ Thị Việt Hà T IN học kinh tế k7 134 chuyên đề thực tËp tèt nghiÖp End Sub Private Sub Form_Load() hienthi giatribandau khoahoptext chonthang chonxeploai Me.Top = Me.Left = Me.Width = 11445 Me.Height = 7770 End Sub Private Sub ivitem_ItemClick(ByVal Item As MSComctlLib.ListItem) Dim rs As New ADODB.Recordset Dim str cmbthang = Item.Text txtmanv = Item.SubItems(1) cmbxeploai = Item.SubItems(2) txtsnct = Item.SubItems(3) txthst = Item.SubItems(4) txtttqt = Item.SubItems(5) txttcn = Item.SubItems(6) txttongtien = Item.SubItems(7) str = "select * from nhanvien where manv='" & txtmanv & "'" rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then txttennv = rs!hoten txtnvl = rs!ngayvl SINH VI£N THùC HIƯN: Vị ThÞ ViƯt Hµ T IN häc kinh tÕ k7 135 ... Nhà khách Hội trờng UBND tỉnh Thái Bình Chơng II: Một số vấn đề phơng pháp luận xây dựng phần mềm quản lý nhân tiền lơng Nhà khách Hội trờng UBND tỉnh Thái Bình Chơng III: Xây dựng phần mềm Quản. .. xây dựng phần mềm quản lý nhân tiền lơng nhà khách hội trờng ubnd tỉnh thái bình i.các kháI niệm phần mềm công nghệ phần mềm Khái niệm phần mềm[ 1] Theo Tiến sỹ Riger Presman chuyên gia công nghệ. .. 1.1 Sơ đồ tổ chức Nhà khách Hội trường UBND tỉnh Thái Bình Chức năng, nhiệm vụ quyền hạn phòng ban Nhà khách Hội trờng UBND tỉnh Thái Bình đơn vị nghiệp có thu trực thuộc Văn phòng UBND tỉnh,