Tiểu luận chương trình hỗ trợ hệ thống quản lý tiền lương theo thời gian

Mục lục LI M U .3 chơng I : Một số vấn đề phơng pháp luận hệ thống thông tin quản lý tiền lơng chơng I : Một số vấn đề phơng pháp luận hệ thống thông tin quản lý tiền lơng I Cơ sở lý luận tiền lơng hình thức trả lơng Cơ sở lý luận chất tiền lơng .4 Hình thức trả lơng theo thời gian 2.1 Chế độ trả lơng theo thời gian đơn giản 2.2 Chế độ trả lơng theo thời gian có thởng Chế độ bảo hiểm xã hội 3.1 Khái niệm: 3.2 Quỹ bảo hiểm xã hội 3.3 Các chế độ BHXH Chế độ tính lơng Công ty .7 II Phơng pháp luận phân tích _ thiết kế hệ thống thông tin Một số vấn đề hệ thống thông tin 1.1 Khái niệm hệ thống thông tin 1.2 Hệ thống thông tin quản lý MIS 1.3 Hệ thống thông tin kế toán Nguyên nhân dẫn tới việc phát triển hệ thống thông tin Phơng pháp phát triển hệ thống thông tin 10 Các giai đoạn phát triển hệ thống .11 Công cụ mô hình hoá 13 Các giai đoạn trình xây dựng mô hình liệu 14 chơng II : Phân tích toán 17 chơng II : Phân tích toán 17 III Giới thiệu toán 17 IV Mục đích xây dựng đề tài 17 V Yêu cầu đề tài 18 Cập nhật thông tin cần thiết 18 Hỗ trợ việc tìm kiếm 19 Lập báo cáo thống kê 19 -1- chơng III : Phân tích thiết kế hệ thống thông tin quản lý tiền lơng 20 chơng III : Phân tích thiết kế hệ thống thông 20 tin quản lý tiền lơng VI Phân tích luồng thông tin liệu 20 Sơ đồ chức hệ thống thông tin 20 Sơ đồ luồng liệu .21 2.1 Sơ đồ ngữ cảnh hệ thống tính lơng 21 2.2 Biểu đồ luồng liệu mức đỉnh 21 2.3 Sơ đồ phân rã chức mô tả hoạt động chấm công(CC) 22 VII Thiết kế Cơ sở liệu .23 Thiết kế sở liệu từ thông tin đầu 23 Mô tả bảng .27 2.1 Bảng lơng nhân viên 27 2.2 Lơng theo phòng ban 27 VIII Thiết kế chơng trình quản lý lơng 28 Ngôn ngữ thiết kế chơng trình 28 Thiết kế menu chơng trình 28 Màn hình giao diện thực đơn 29 Một số kết đầu 31 Chơng trình lập trình .33 Kết luận 57 -2- LI M U Lơng bổng vấn đề nhức nhối hầu hết công ty Việt Nam Đây đề tài gây tranh luận sôi diễn đàn quốc hội Việt Nam nhiều năm qua, đề tài nóng bỏng Việt Nam Vì quản lý tiền lơng Công ty ngày đợc quan tâm, Công ty tổ chức hoạt động có tốt hay không, có phát triển mạnh hay không phụ thuộc nhiều vào công tác quản lý đặc biệt quản lý tiền lơng Trớc máy tính cha đợc sử dụng rộng rãi công tác quản lý tiền lơng thực thủ công tức đòi hỏi phải có số lợng ngời định đảm nhận công việc giấy tờ sổ sách lu trữ trang giấy Thử nghĩ sau khoảng thời gian dài hoạt động số l ợng sổ sách giấy tờ Đó cha kể đến côngviệc tính toán có nhiều sai xót, nhầm lẫn khó khăn việc tìm kiếm thông tin cần thiết Khi máy tính đời ứng dụng vào thực tiễn ngày nhiều giúp cho việc quản lý trở nên dễ dàng Máy tính lu trữ lợng lớn thông tin mà không cần đến sổ sách, tìm kiếm thông tin cách nhanh chóng mà không tốn công sức tìm kiếm, hạn chế đợc sai sót tính toán tiền lơng cho công nhân viên Nhận thức đợc tầm quan trọng việc tin học hoá công tác quản lý em chọn đề tài xây dựng chơng trình hỗ trợ hệ thống quản lý tiền lơng theo thời gian nhằm cập nhật, tìm kiếm, tính toán thông tin tiền lơng cách nhanh chóng Nội dung gồm có chơng: Chơng I : Các vấn đề phơng pháp luận hệ thống quản lý tiền lơng Chơng II : Phân tích toán Chơng III : Phân tích thiết kế hệ thống thông tin quản lý -3- lơng chơng I : Một số vấn đề ph ơng pháp luận hệ thống thông tin quản lý tiền l ơng I Cơ sở lý luận tiền lơng hình thức trả lơng Cơ sở lý luận chất tiền lơng Tiền lơng động lực kích thích ngời làm việc hăng hái, nhng đồng thời nguyên nhân gây trì trệ, bất mãn từ bỏ công ty mà Tất tuỳ thuộc vào trình độ lực cấp quản trị Trong kinh tế thị trờng hoạt động thị trờng sức lao động, sức lao động hàng hoá tiền lơng giá cuả sức lao động Nền kinh tế t chủ nghĩa, nơi mà quan hệ thị trờng thống trị quan hệ kinh tế, xã hội khác, C.Mác viết: Tiền công giá trị hay giá lao động mà hình thái cải trang giá trị hay giá sức lao động Trớc hết tiền lơng số tiền mà ngời sử dụng lao động trả cho ngời lao động Điều thể quan hệ kinh tế tiền lơng Mặt khác tiền lơng loại hàng hoá sức lao động đặc biệt nên không tuý vấn đề kinh tế mà vấn đề xã hội quan trọng, liên quan tới đời sống trật tự xã hội, quan hệ xã hội Đối với ngời lao động, tiền lơng thu nhập chủ yếu đa số lao động xã hội có ảnh hởng trực tiếp đến mức sống họ Mục đích ngời lao động phấn đấu nâng cao tiền lơng Điều tạo động lực để ngời lao động phát triển trình độ khả Tiền lơng không vấn đề quan trọng ngời lao động mà hoạt động kinh doanh, tiền lơng phần chi phí cấu thành chi phí sản xuấtkinh doanh Vì tiền lơng đợc tính toán quản lý chặt chẽ Hình thức trả lơng theo thời gian Hầu hết công ty nớc phát triển giới áp dụng theo phơng pháp Tiền lơng trả theo thời gian chủ yếu áp dụng ngời làm công tác quản lý, công nhân sản xuất áp dụng phận tiến hành định mức cách chặt chẽ -4- xác, tính chất sản xuất hạn chế, thực trả công theo sản phẩm không bảo đảm đợc chất lợng sản phẩm, không đem lại hiệu thiết thực Hình thức tiền lơng trả theo thời gian có hai chế độ: theo thời gian đơn giản theo thời gian có thởng 2.1 Chế độ trả lơng theo thời gian đơn giản Chế độ trả lơng theo thời gian đơn giản chế độ trả lơng mà tiền lơng nhận đợc ngời công nhân mức lơng cấp bậc cao hay thấp thời gian thực tế làm việc nhiều hay định Chế độ trả lơng áp dụng nơi khó xác định mức lao động xác, khó đánh giá công việc xác LTT = LCB x T Trong đó: LTT: Tiền lơng thực tế ngời lao động nhận đợc LCB: Tiền lơng cấp bậc tính theo thời gian T: Thời gian thực tế làm việc ngời lao động Có loại lơng theo thời gian đơn giản: Lơng ngày: Tính theo mức lơng cấp bậc ngày số ngày làm việc thực tế tháng Lơng ngày= Lơng tháng/26 Lơng tháng: Tính theo mức lơng cấp bậc tháng 2.2 Chế độ trả lơng theo thời gian có thởng Chế độ trả lơng kết hợp chế độ trả lơng theo thời gian đơn giản với tiền thởng, đạt đợc tiêu số lợng chất lợng qui định Chế độ trả lơng chủ yếu áp dụng công nhân phụ làm công việc phục vụ nh công nhân sửa chữa, điều chỉnh thiết bị Ngoài ra, áp dụng công nhân làm khâu sản xuất có trình độ khí hoá cao, tự động hoá công việc tuyệt đối phải đảm bảo chất lợng Tiền lơng công nhân đợc tính cách lấy lơng trả theo thời gian(mức lơng cấp bậc) nhân với thời gian làm việc thực tế, sau cộng với -5- tiền thởng Chế độ bảo hiểm xã hội 3.1 Khái niệm: Bảo hiểm xã hội nội dung quan trọng sách xã hội mà nhà nớc bảo đảm trớc phát luật cho ngời dân nói chung ngời lao động nói riêng Bảo hiểm xã hội bảo đảm mặt vật chất cho ngời lao động khu vực quốc doanh ốm đau, thai sản, tai nạn, hu trí chết để góp phần ổn định đời sống ngời lao động gia đình, sở đongd góp ngời sử dụng lao động, ngời lao động bảo hộ Nhà nớc 3.2 Quỹ bảo hiểm xã hội Quỹ bảo hiểm xã hội đợc hình thành từ đóng góp ngời sử sụng lao động, ngời lao động hỗ trợ Ngân sách Nhà nớc Quỹ dùng để chi trả chế độ bảo hiểm xã hội(theo nguyên tắc có đóng góp có hởng, mức hởng tuỳ thuộc vào đóng góp), thời gian tham gia bảo hiểm xã hội thực chức điều hoà xã hội 3.3 Các chế độ BHXH Có chế độ sau : 3.1.1.1.1.a.1.1 Chế độ trợ ốm đau 3.1.1.1.1.a.1.2 Tai nạn nghề nghiệp 3.1.1.1.1.a.1.3 Thai sản : 3.1.1.1.1.a.1.4 Hu trí: 3.1.1.1.1.a.1.5 Chế độ tử tuất Tóm lại: Chế độ bảo hiểm xã hội quy định quỹ bảo hiểm xã hội đợc hình thành từ nguồn sau đây: Trích vào chi phí sản xuất kinh doanh hàng tháng đơn vị 15% tiền lơng thực tế phải trả Trích lơng ngời lao động 5% Ngoài theo quy định ngời lao động phải nộp bảo hiểm y tế cho quan Bảo hiểm 1% tiền lơng để chi trả cho dịch vụ khám chữa bệnh miễn phí Doanh nghiệp thu hồi khoản cách trừ lơng -6- ngời lao động Chế độ tính lơng Công ty Tính lơng cho CBCNV văn phòng dựa vào yếu tố sau: + Bảng chấm công + Bảng theo dõi làm thêm ngày + Các chế độ phụ cấp + BHXH thay lơng(nghỉ ốm, thai sản) Tính lơng cho công nhân trực tiếp sản xuất Những khoản phụ ảnh hởng đến lơng: + Tính hệ số phụ cấp lơng theo thời gian công tác Quyết định Công ty thời gian đợc xét nâng lơng Tiền lơng đợc trả theo trình độ Tiền lơng đợc trả theo khối lợng công việc choc vụ giữ(Trởng phòng, phó phòng, nhân viên) + Các chế độ thởng phạt: Tuỳ theo mức độ hoàn thành xuất sắc công việc có phát huy sáng kiến cải tiến kỹ thuật thởng lần tăng lơng sớm Khi vi phạm kỷ luật lao động nội quy Công ty xử phạt theo mức độ vi phạm trừ vào lơng cuối tháng -7- II Phơng pháp luận phân tích _ thiết kế hệ thống thông tin Một số vấn đề hệ thống thông tin 1.1 Khái niệm hệ thống thông tin Hệ thống thông tin tập hợp ngời, thiết bị phần cứng, phần mềm, liệu thực hoạt động thu thập, l u trữ, xử lý phân phối thông tin tập ràng buộc đợc gọi môi trờng Nó đợc thể ngời, thủ tục, liệu thiết bị tin học không tin học Đầu vào hệ thống thông tin đợc lấy từ nguồn đợc xử lý hệ thống sử dụng với liệu đợc lu trữ từ trớc Kết xử lý đợc chuyển đến đích cập nhật vào kho lu trữ liệu Mô hình hệ thống thông tin Đích Nguồn Thu nhập Xử lý lưu giữ Phân phát Kho liệu 1.2 Hệ thống thông tin quản lý MIS Là hệ thống trợ giúp hoạt động quản lý tổ chức, hoạt động nằm mức điều khiển tác nghiệp, điều khiển quản lý lập kế hoạch chiến lợc Chúng dựa vào sơ liệu đợc tạo hệ xử lý giao dịch nh từ nguồn liệu tổ chức để tạo báo cáo cho nhà quản lý cách định kỳ theo yêu cầu Các báo cáo tóm tắt tình hình mặt đặc biệt tổ chức Từ báo cáo có -8- thể so sánh liệu thời doanh nghiệp ngành công nghiệp, liệu thời liệu lịch sử Hệ xử lý giao dịch vận hành tốt hay xấu có ảnh hởng lớn đến chất lợng thông tin mà hệ thống thông tin quản lý sản sinh Các hệ thống thông tin quản lý nh: hệ thống phân tích lực bán hàng, theo dõi chi tiêu, theo dõi suất vắng mặt nhân viên, nghiên cứu thị trờng 1.3 Hệ thống thông tin kế toán Hệ thống thông tin kế toán tập hợp nguồn lực nh ngời, thiết bị máy móc đợc thiết kế nhằm biến đổi liệu tài liệu khác thành thông tin Mô hình hệ thống thông tin tự động hoá Hệ thống thông tin kế toán Phần Dữ liệu kế toán (chứng từ,sổ sách cứng Con người Cơ sở liệu Phần mềm Thông tin kế toán (Báo cáo quản trị, báo cáo tài Các thủ tục Nguyên nhân dẫn tới việc phát triển hệ thống thông tin Những cố gắng phát triển hệ thống thông tin để đạt đợc mục tiêu cuối cung cấp cho thành viên tổ chức công cụ quản lý tốt Phát triển hệ thống thông tin bao gồm việc phân tích hệ thống tồn tại, thiết kế hệ thống mới, thực tiến hành cài đặt Phân tích hệ thống thông tin việc thu thập liệu chỉnh đốn chúng để đa đợc chẩn đoán tình hình thực tế Thiết kế nhằm mục đích xác định phận hệ thống có khả cải thiện tình trạng -9- xây dựng mô hình lô gíc mô hình vật lý hệ thông Việc thực hệ thống thông tin liên quan tới xây dựng mô hình vật lý hệ thống chuyển mô hình sang ngôn ngữ tin học Cài đặt hệ thống tích hợp vào hoạt động tổ chức Nguyên nhân dẫn tới việc phát triển hệ thống thông tin: + Những vấn đề quản lý + Những yêu cầu nhà quản lý: điều dẫn đến cần thiết dự án phát triển hệ thống thông tin hay đổi doanh nghiệp cạnh tranh có tác động mạnh vào động buộc doanh nghiệp phải có hành động đáp ứng + Sự thay đổi công nghệ: xuất công nghệ dẫn đến việc tổ chức phải xem lại thiết bị có hệ thống thông tin Thay đổi sách lợc trị: điều xảy nhà quản lý sử dụng phơng tiện thông tin mở rộng quyền lực Phơng pháp phát triển hệ thống thông tin Dự án phát triển hệ thống thông tin với mục đích có đợc sản phẩm đáp ứng yêu cầu ngời sử dụng, phù hợp với hoạt động công ty, xác mặt kỹ thuật, tuân thủ giới hạn tài thời gian định trớc Để phát triển hệ thống thông tin không thiết phải theo đuổi phơng pháp Tuy nhiên phơng pháp ta có nguy không đạt đợc mục tiêu định trớc Một phơng pháp đợc định nghĩa nh tập hợp bớc công cụ cho pháp tiến hành trình phát triển hệ thống thông tin chặt chẽ nhng dễ quản lý hơn.Sau ba nguyên tắc sở chung nhiều phơng pháp đại có cấu trúc phát triển hệ thống thông tin: Nguyên tắc Sử dụng mô hình: mô hình lô gíc, mô hình vật lý trong, mô hình vật lý Bằng cách mô tả đối tợng thấy ba mô hình đợc quan tâm từ góc độ khác Nguyên tắc Chuyển từ chung sang riêng: nguyên tắc đơn giản hoá Thực tế cho thấy để hiểu đợc tốt mộ hệ thống thống - 10 - end else gotoxy(54,dong );writeln('|'); gotoxy(55,dong); writeln(p^.TH:5:2); gotoxy(60,dong );writeln('|'); gotoxy(61,dong); writeln(p^.Ph:5:2); gotoxy(66,dong );writeln('|'); gotoxy(67,dong); writeLN(P^.TA); gotoxy(70,dong );writeln('|'); gotoxy(71,dong); writeLN(p^.tl:8:2); gotoxy(80,dong); writeln('|'); dong:=dong+1; gotoxy(3,dong);writeln(' -) gotoxy(10,38); Writeln('Khong tim thay nhan vien nao co ma '); readln; end; end; (*////////////////////////////////////////*) (*Thu tuc sua nhan vien*) procedure suaNV; var mas:string[6]; k:integer; X:lg; f:file of lg; tf:string[30]; Timthay:boolean; begin gotoxy(10,34); Write('Vao ten tep de tim kiem'); gotoxy(40,34);readln(tf); assign(f,tf); reset(f); gotoxy(10,36); write('ma so nhan vien can tim:'); gotoxy(40,36); readln(mas); k:=0;timthay:=false; while not EOF(f) begin read(f,X); if X.manv=mas then begin timthay:=true;break; end; inc(k); end; if timthay then begin clrscr; gotoxy(20,3); writeln(' -THONG TIN VE NHAN VIEN DANG TIM VA SUA -'); gotoxy(3,6); writeln(' -'); gotoxy(4,8 );write('|'); gotoxy(5,8);write('Maso'); gotoxy(8,8 );write('|'); gotoxy(9,8); write('HOTEN'); gotoxy(19,8 );write('|'); gotoxy(20,8); write('HSL'); gotoxy(24,8 );write('|'); GOTOXY(25,8); WRITE('NC'); gotoxy(27,8 );write('|'); gotoxy(28,8); Write('TONGL'); gotoxy(36,8 );write('|'); gotoxy(37,8);write('BHXH'); gotoxy(42,8 );write('|'); gotoxy(43,8);write('LTHEM'); gotoxy(48,8 );write('|'); gotoxy(49,8); write('PC'); gotoxy(54,8 );write('|'); gotoxy(55,8); write('TH'); gotoxy(60,8 );write('|'); gotoxy(61,8); write('PH'); gotoxy(66,8 );write('|'); gotoxy(67,8); Write('TAN'); gotoxy(70,8 );write('|'); gotoxy(71,8);write('TLINH'); gotoxy(80,8);write('|'); gotoxy(3,100); Write(' -'); dong:=10; gotoxy(4,dong ); writeln('|'); gotoxy(5,dong); writeln(X.manv:3); gotoxy(8,dong ); writeln('|'); gotoxy(9,dong); writeln(X.hoten); gotoxy(19,dong );writeln('|'); gotoxy(20,dong); writeln(X.hsluong:4:2); gotoxy(24,dong );writeln('|'); gotoxy(25,dong); writeln(X.NC); gotoxy(27,dong );writeln('|'); gotoxy(28,dong); writeLN(X.tongl:8:2); gotoxy(36,dong );writeln('|'); gotoxy(37,dong); writeLN(X.BHXH:5:2); gotoxy(42,dong );writeln('|'); gotoxy(43,dong); writeln(X.lamthem:5:2); gotoxy(48,dong );writeln('|'); gotoxy(49,dong); write(X.PC:5:2); gotoxy(54,dong );writeln('|'); gotoxy(55,dong); writeln(X.TH:5:2); gotoxy(60,dong );writeln('|'); gotoxy(61,dong); writeln(X.Ph:5:2); gotoxy(66,dong );writeln('|'); gotoxy(67,dong); writeLN(X.TA); gotoxy(70,dong );writeln('|'); gotoxy(71,dong); writeLN(X.tl:8:2); gotoxy(80,dong); writeln('|'); dong:=dong+1; gotoxy(3,dong);writeln(' '); Writeln; gotoxy(20,3); writeln(' -THONG TIN VE NHAN VIEN SAU KHI SUA -'); gotoxy(3,6); writeln(' -'); gotoxy(4,8 );write('|'); gotoxy(5,8);write('Maso'); gotoxy(8,8 );write('|'); gotoxy(9,8); write('HOTEN'); gotoxy(19,8 );write('|'); gotoxy(20,8); write('HSL'); gotoxy(24,8 );write('|'); GOTOXY(25,8); WRITE('NC'); gotoxy(27,8 );write('|'); gotoxy(28,8); Write('TONGL'); gotoxy(36,8 );write('|'); gotoxy(37,8);write('BHXH'); gotoxy(42,8 );write('|'); gotoxy(43,8);write('LTHEM'); gotoxy(48,8 );write('|'); gotoxy(49,8); write('PC'); gotoxy(54,8 );write('|'); gotoxy(55,8); write('TH'); gotoxy(60,8 );write('|'); gotoxy(61,8); write('PH'); gotoxy(66,8 );write('|'); gotoxy(67,8); Write('TAN'); gotoxy(70,8 );write('|'); gotoxy(71,8);write('TLINH'); gotoxy(80,8);write('|'); gotoxy(3,100); Write(' -'); dong:=10; gotoxy(4,dong ); writeln('|'); gotoxy(5,dong); readln(X.manv); gotoxy(8,dong ); writeln('|'); gotoxy(9,dong); readln(X.hoten); gotoxy(19,dong ); writeln('|'); gotoxy(20,dong); readln(X.hsluong); gotoxy(24,dong ); writeln('|'); gotoxy(25,dong); readln(X.NC); gotoxy(27,dong ); writeln('|'); gotoxy(28,dong); readLN(X.tongl); gotoxy(36,dong ); writeln('|'); gotoxy(37,dong); readLN(X.BHXH); gotoxy(42,dong ); writeln('|'); gotoxy(43,dong); readln(X.lamthem); gotoxy(48,dong ); writeln('|'); gotoxy(49,dong); read(X.PC); gotoxy(54,dong ); writeln('|'); gotoxy(55,dong); readln(X.TH); gotoxy(60,dong ); writeln('|'); gotoxy(61,dong); readln(X.Ph); gotoxy(66,dong ); writeln('|'); gotoxy(67,dong); readLN(X.TA); gotoxy(70,dong ); writeln('|'); gotoxy(71,dong); readLN(X.tl); gotoxy(80,dong); writeln('|'); gotoxy(5,12);Writeln('maPhongban:'); gotoxy(17,12);readln(X.maPB); gotoxy(5,14);Writeln('Phongban:'); gotoxy(15,14);readln(X.PB); gotoxy(5,16);Writeln('Chucvu:'); gotoxy(15,16);readln(X.CV); dong:=dong+1; gotoxy(3,dong);writeln(' -'); seek(f,k); write(f,X); gotoxy(15,30);writeln('Ban co muon tiep tuc sua khong?:'); gotoxy(50,30);readln(traloi); end else Writeln('Khong tim thay nhan vien nao co ma ');readln; close(f); end; (*//////////////////////////////////////////////*) (* Thu tuc bo sung vao cuoi danh sach nhan vien moi*) procedure bosung(var p:pbang_luong); var pd,pc:pBang_luong; begin taods(pd); if pd=nil then exit; if p=nil then begin p:=pd; exit; end; pc:=p; while pc^.tiepnil pc:=pc^.tiep; pc^.tiep:=pd; end; (********) procedure XoaNV; var maso:string[6]; timthay:boolean; p,q:pBang_luong; begin write('Ma so nhan vien can xoa:'); readln(maso); p:=pdau; if p nil then begin timthay:=False; while(pnil) and(not timthay) if p^.manv=maso then timthay:=true else begin q:=p;p:=p^.tiep end; if timthay then begin if p=pdau then pdau:=p^.tiep else q^.tiep:=p^.tiep; if p^.tiep=nil then pcuoi:=q; dispose(p); end; end; end; (*////////////////////////////////////////////*) (*Thu tuc chen vao vi tri bat ky*) procedure chenthem(var pdau:pbang_luong;k:integer); var s:integer; p,pd,pc:pbang_luong; begin if pdau=nil then begin taods(pdau);exit; end; s:=0; p:=pdau; while pnil begin s:=s+1; p:=p^.tiep; end; if k>s then begin bosung(pdau); exit; end; taods(pd); if pd=nil then exit; pc:=pd; while pc^.tiepnil pc:=pc^.tiep; if k=1 then begin p:=pdau; pdau:=pd; pc^.tiep:=p; end else begin p:=dc(pdau,k-1); p^.tiep:=dc(pdau,k); end; End; (*////////////////////////////////////////////////////*) (**Thu tuc ghi danh sach tep**) procedure Ghiratep; var X:lg;f:file of lg;tf:string[30]; begin gotoxy(10,34); write('Dat ten tep de ghi du lieu:'); gotoxy(38,34); readln(tf); assign(f,tf); rewrite(f); p:=pdau; while pnil begin X.manv:=p^.MaNV; X.Hoten:=p^.Hoten; X.maPB:=p^.MaPB; X.PB:=p^.PB; X.CV:=p^.CV; X.lcb:=p^.lcb; X.hsluong:=p^.hsluong; X.nc:=p^.nc; X.hspc:=p^.hsPC; X.pc:=p^.PC; X.hsth:=p^.HSth; X.hsph:=p^.hsph; X.lamthem:=p^.lamthem; X.ncthem:=p^.NCthem; X.tongl:=p^.tongl; X.bhxh:=p^.bhxh; X.ta:=p^.ta; X.tl:=p^.tl ; X.th:=p^.th; X.ph:=p^.ph; write(f,X); p:=P^.tiep; end; close(f); gotoxy(10,36); write('Da ghi xong danh sach'); readln; end; (*////////////////////////////////////////////////*) (**Thu tuc doc danh sach tu tep dia**) procedure DocTep; var q:pBang_luong; X:lg; f:file of lg; tf:string[30]; begin gotoxy(10,34); write('Nhap ten tep:'); gotoxy(37,34); readln(tf); assign(f,tf); reset(f); pdau:=nil; pcuoi:=nil; while not EOF(f) begin read(f,X); new(P); p^.MaNV:=X.manv; p^.Hoten:= X.Hoten; p^.MaPB:=X.maPB; p^.PB:=X.PB; p^.CV:=X.CV; p^.lcb:=X.lcb; p^.hsluong:=X.hsluong; p^.nc:=X.nc; p^.hsPC:=X.hsPC; p^.PC:=X.pc; p^.HSth:=x.hsth; p^.hsph:=X.hsph; p^.lamthem:=X.lamthem; p^.NCthem:=X.ncthem; p^.tongl:=X.tongl; p^.bhxh:=X.bhxh; p^.ta:=X.ta; p^.tl:=X.tl ; p^.th:=X.th; p^.ph:=X.ph; if pdau=nil then begin p^.tiep:=nil; p^.truoc:=nil; pdau:=p; pcuoi:=p; end else begin q:=Pcuoi; q^.tiep:=p; p^.tiep:=nil; p^.truoc:=q; pcuoi:=p; end; end; close(f); gotoxy(10,36);write('Doc xong du lieu tu tep'); readln; end; (*/////////////////////////////////////////*) (**Thu tuc tao thuc don cap nhat**) procedure tdcapnhat; var chon:char; begin repeat clrscr; gotoxy(25,5); writeln('PHAN MEM QUAN LY LUONG'); gotoxy(15,6); writeln('++++++++++++++++++++++++++++++++ +++++++' ); gotoxy(20,8);writeln('THUC DON CHUONG TRINH CAP NHAT '); gotoxy(20,12);writeln('1.Cap nhat danh sach nhan vien'); gotoxy(20,14); writeln('2.Duyet danh sach '); gotoxy(20,16); Writeln('3.Bo sung vao cuoi danh sach'); gotoxy(20,18); writeln('4.Bo sung vao vi tri bat ky'); gotoxy(20,20); writeln('5.Loai bo nhan vien'); gotoxy(20,22); writeln('6.Sua du lieu nhan vien'); gotoxy(20,24); writeln('7.Ghi danh sach'); gotoxy(20,26); writeln('8.Doc danh sach') gotoxy(20,28); writeln('9.Ket thuc cap nhat'); gotoxy(15,30); writeln('+++++++++++++++ ++++++++++++++++++++++' ); gotoxy(20,32); Writeln('Hay chon mot chuc nang de cap nhat:'); gotoxy(60,32); Readln(chon); Case chon of '1': taods(pdau); '2': Duyet; '3': bosung(pdau); '4': begin clrscr; writeln('chen truoc ban ghi thu:'); readln(n); chenthem(pdau,n); end; '5': begin clrscr; repeat XoaNV; Write('Co tiep tuc xoa khong(C/K)'); readln(traloi); until upcase(traloi)='K'; end; '6':Suanv; '7':Ghiratep; '8':Doctep; '9':exit; end; gotoxy(10,44); Write('Ban co tiep tuc cap nhat nua khong? C/K:'); gotoxy(55,44); readln(TraLoi); Until Traloi='K'; end; (*////////////////////////////////////////////////*) (*Thu tuc tao thuc don tim kiem*) procedure TDTK; var chon:char; begin repeat clrscr; gotoxy(25,5); writeln('PHAN MEM QUAN LY LUONG '); gotoxy(15,8); writeln('++++++++++++++++++ ++++++++++++++++++++++'); gotoxy(20,12);writeln('THUC DON CHUONG TRINH TIM KIEM '); gotoxy(20,15);writeln(' 1.Tim kiem theo so thu tu'); gotoxy(20,17);writeln(' 2.Tim kiem theo ma nhan vien'); gotoxy(20,19);Writeln(' 3.Ket thuc'); gotoxy(15,22);writeln('++++++++++++++++ +++++++++++++' ); gotoxy(20,25);Writeln(' phuong an toi lua chon la :'); gotoxy(48,25);readln(chon); case chon of '1': begin clrscr; gotoxy(15,15); write('So thu tu nhan vien can tim:'); gotoxy(45,15); readln(i); p:=dc(pdau,i); if p=nil then begin gotoxy(15,15); write('Khong co nhan vien thu:',i) end else begin clrscr; gotoxy(20,3); writeln(' -BANG LUONG CHI TIET -'); gotoxy(50,5);writeln('Donvitinh:1000'); gotoxy(1,7); writeln(' -'); gotoxy(1,8 );write('|'); gotoxy(2,8); write('TT'); gotoxy(4,8 );write('|'); gotoxy(5,8);write('Maso'); gotoxy(8,8 );write('|'); gotoxy(9,8); write('HOTEN'); gotoxy(19,8 );write('|'); gotoxy(20,8); write('HSL'); gotoxy(24,8 );write('|'); gotoxy(25,8); WRITE('NC'); gotoxy(27,8 );write('|'); gotoxy(28,8); Write('TONGL'); gotoxy(36,8 );write('|'); gotoxy(37,8);write('BHXH'); gotoxy(42,8 );write('|'); gotoxy(43,8);WRITE('LTHEM'); gotoxy(48,8 );write('|'); gotoxy(49,8); write('PC'); gotoxy(54,8 );write('|'); gotoxy(55,8); write('TH'); gotoxy(60,8 );write('|'); gotoxy(61,8); write('PH'); gotoxy(66,8 );write('|'); gotoxy(67,8); Write('TAN'); gotoxy(70,8 );write('|'); gotoxy(71,8);write('TLINH'); gotoxy(80,8);write('|'); gotoxy(1,9); Write(' -'); dong:=10; stt:=1; gotoxy(1,dong);write('|'); GOTOXY(2,DONG);writeln(stt:2); gotoxy(4,dong );writeln('|'); gotoxy(5,dong);writeln(p^.manv:3); gotoxy(8,dong ); writeln('|'); gotoxy(9,dong); writeln(P^.hoten); gotoxy(19,dong );writeln('|'); gotoxy(20,dong);writeln(p^.hsluong:4:2); gotoxy(24,dong );writeln('|'); gotoxy(25,dong); writeln(p^.NC); gotoxy(27,dong );writeln('|'); gotoxy(28,dong);writeLN(p^.tongl:8:2); gotoxy(36,dong );writeln('|'); gotoxy(37,dong); writeLN(P^.BHXH); gotoxy(42,dong );writeln('|'); gotoxy(43,dong); writeln(p^.lamthem:5:2); gotoxy(48,dong ); writeln('|'); gotoxy(49,dong); write(p^.PC:5:2); gotoxy(54,dong ); writeln('|'); gotoxy(55,dong); writeln(p^.TH:5:2); gotoxy(60,dong ); writeln('|'); gotoxy(61,dong);writeln(p^.Ph:5:2); gotoxy(66,dong ); writeln('|'); gotoxy(67,dong);writeLN(p^.TA); gotoxy(70,dong ); writeln('|'); gotoxy(71,dong);writeLN(p^.tl:8:2); gotoxy(80,dong);writeln('|'); p:=p^.tiep; dong:=dong+1;stt:=stt+1; gotoxy(1,dong);writeln(' '); end; END; '2': TimkiemMaNV; '3': Exit; end; gotoxy(10,33); Write('Ban co tiep tuc tim kiem nua khong? C/K'); gotoxy(50,33); readln(TraLoi); Until Traloi='K'; end; (*/////////////////////////////////////////////*) (*Thuc don Bao cao*) procedure TDBC; var chon:char; begin repeat clrscr; gotoxy(25,5); writeln('PHAN MEM QUAN LY LUONG'); gotoxy(15,8); writeln('+++++++++++++++++++++++++++++ +' ); gotoxy(20,12); writeln('THUC DON CHUONG TRINH BAO CAO '); gotoxy(20,16);writeln('1 Bao cao chi tiet luong'); gotoxy(20,18);writeln('2.Bao cao tong hop luong'); gotoxy(20,20);writeln('3.Ket thuc'); gotoxy(15,22);writeln('+++++++++++++++++++++++' ); gotoxy(20,25);Writeln('Phuong an toi lua chon la :'); gotoxy(52,25); readln(chon); case chon of '1': Inchitiet(pdau); '2': Intonghop(pdau); '3': Exit; end; gotoxy(10,40);Write('Ban co tiep tuc in nua khong?C\K:'); gotoxy(55,40);readln(TraLoi); Until Traloi='K'; end; (*///////////////////////////////////////////*) (*Thuc don chinh cua chuong trinh quan ly luong*) procedure TDChinh; var chon:char; begin clrscr; gotoxy(25,5); writeln('PHAN MEM QUAN LY LUONG'); gotoxy(15,8); writeln('********************* '); gotoxy(20,10); writeln('THUC DON CHUONG TRINH QUAN LY LUONG'); gotoxy(24,15); writeln('1.Thuc Don Cap Nhat'); gotoxy(24,17); writeln('2.Tim Kiem'); gotoxy(24,19); Writeln('3 Bao Cao'); gotoxy(24,21); writeln('4.Thoat'); gotoxy(15,23); writeln('******************************** '); gotoxy(5,30); Writeln('phuong an toi lua chon la :'); gotoxy(35,30); readln(chon); case chon of '1': TDCAPNHAT; '2': TDTK; '3': TDBC; '4': halt; end; end; (*///////////////////////////////////////*) (**Chuong trinh chinh**) begin clrscr; if MATKHAU then begin clrscr; textbackground(5); textcolor(11); pdau:=nil; p:=nil; repeat writeln; begin clrscr; tdchinh; gotoxy(10,40);Write('Ban co tiep tuc nua khong? Y/N'); gotoxy(42,40);readln(TraLoi); end; Until Traloi='N'; end else writeln('Ban hay nhap lai mat khau'); readln; end Kết luận Từ thực tế cho thấy tiền lơng lao động biểu rõ ràng lợi ích kinh tế ngời lao động, trở thành đòn bẩy kinh tế mạnh mẽ để kích thích ngời lao động công việc tính lơng cho ngời lao động quan trọng trớc mong muốn phận tính lơng nên em thực đề tài:Chơng trình hỗ trợ hệ thống tính lơng theo thời gian Với mục đích: giảm bớt đợc khối lợng nhân nh khối lợng công việc thủ công quản lý lơng tiền lơng, việc lu trữ liệu không cồng khềnh nh trớc nh việc tính toán đợc xác kịp thời Với hớng dẫn nhiệt tình PGS.TS Hàn Viết Thuận qua nghiên cứu tài liệu em cố gắng nghiên cứu đề tài với số giải pháp chức sau: Chơng trình xây dựng đợc việc tính lơng cho nhân Tự động hoá khâu cập nhật, lu trữ, xử lý thông tin, lên báo viên cáo lơng Chơng trình phần khắc phục đợc nhợc điểm thực tự động hoá phần liệu đầu vào, đầu nh việc tính toán lơng Song thời gian hạn chế khả em nhiều thiếu sót nên hệ thống cha thực đợc hoàn chỉnh Em mong đợc bảo đóng góp thầy cô bạn để hệ thống hoàn chỉnh Em xin chân thành cảm ơn PGS.TS Hàn Viết Thuận, ngời nhiệt tình bảo dẫn dắt cụ thể cho em trình làm đề tài em hi vọng đợc thầy hớng dẫn đề tài sau [...]... hệ thống quản lý tiền lơng theo thời gian phải đáp ứng đợc mọi đòi hỏi về mặt thông tin cần thiết cho việc quản lý tiền lơng trong Công ty Qua việc phân tích bài toán em lựa chọn lập trình theo ngôn ngữ pascal kiểu danh sách liên kết - 19 - tích chơng III :Phân và thông thiết kế hệ thống tin quản lý tiền l - ơng VI Phân tích luồng thông tin và dữ liệu 1 Sơ đồ chức năng của hệ thống thông tin Hệ H thống. .. toán quản lý tiền lơng là quản lý thông tin có liên quan tới lơng bao gồm các thông tin: nhân viên, thời gian lao động, chấm công,mức lơng, hệ số lơng, khen thởng, kỷ luật, bảo hiểm xã hội, bảo hiểm y tế, cách thức tính lơng, Thông tin đầu vào của hệ thống bao gồm các thông tin về nhân viên, thông tin về thời gian lao động của nhân viên, các thông tin về khen thởng, kỷ luật, thông tin về thời gian. .. khen thưởng Lý do khen thư ởng Ngày quyết định Mã nhân viên Tên nhân viên Mã phòng ban Chức vụ Ngày sinh Giới tính Trình độ Quê quán Ngày vào biên chế Hệ số lương Hệ số phụ cấp Số hiệu khen thưởng Số hiệu kỷ luật Khen thư ởng Kỷ luật Số hiệu kỷ luật Hệ số kỷ luật Lý do kỷ luật Hình thức kỷ luật Ngày quyết định Lương cơ bản Mã lương cơ bản Mức lương cơ bản Ngày thực hiện Ngày huỷ bỏ Tiền lương Mã phòng... lơng kịp thời cho ngời lao động 2 Hỗ trợ việc tìm kiếm Để tránh mất thời gian của công ty cũng nh của nhân viên hệ thống cần phải có công cụ tìm kiếm những thông tin liên quan đến nhân viên theo mã số nhân viên,và theo thứ tự trong danh sách 3 Lập các báo cáo thống kê In ra các báo cáo: Báo cáo chi tiết: Báo cáo cụ thể tình hình lơng của nhân viên Báo cáo tổng hợp: Báo cáo lơng của nhân viên theo phòng... Lập kế hoạch thiết kế vật lý ngoài b) Thiết kế chi tiết các giao diện (vào/ ra) c) Thiết kế các thủ tục thủ công d) Chuẩn bị và trình bày báo cáo về thiết kế vật lý ngoài (vi) Triển khai kỹ thuật hệ thống Các hoạt động chính của việc triển khai thực hiện kỹ thuật hệ thống là nh sau: a) Lập kế hoạch thực hiện kỹ thuật b) Thiết kế vật lý trong c) Lập trình d) Thử nghiệm hệ thống e) Chuẩn bị tài liệu... tin quản lý tiền l - ơng VI Phân tích luồng thông tin và dữ liệu 1 Sơ đồ chức năng của hệ thống thông tin Hệ H thống thốngthông thôngtin tin quản lý lương quản lý lương Cập Cậpnhật nhật Báo Báocáo cáo Tìm Tìmkiếm kiếm Tìm Tìm kiếm kiếm theo theo số sốthứ thứ tựtự Tìm Tìm kiếm kiếm theo theo mã mã nhân nhân viên viên Báo Báo cáo cáo chi chi tiết tiết Báo Báo cáo cáo tổng tổng hợp hợp Lập Lậpbáo báo cáo... đợc trong mọi hoạt động của xã hội trong thời đại bùng nổ thông tin nh hiện nay Chính vì thế việc quản lý nói chung và quản lý tiền lơng nói riêng phải đợc tin học hoá toàn bộ, không còn làm theo lối thủ công sổ sách, giấy tờ, chậm chạp trong công việc khai thác thông tin và mất nhiều thời gian lu trữ Mục đích của việc xây dựng đề tài này là : Giảm bớt thời gian ghi chép, không gây nhầm lẫn, thiếu... thác Cài đặt hệ thống là việc chuyển từ hệ thống cũ sang hệ thống mới đợc thực hiện Để việc chuyển đổi này đợc thực hiện với những va chạm ít nhất, cần phải lập kế hoạch một cách cẩn thận Giai đoạn này bao gồm các công đoạn sau: - 12 - a) Lập kế hoạch cài đặt b) Chuyển đổi c) Khai thác và bảo trì d) Đánh giá Nh vậy kết quả của quá trình phân tích và thiết kế bao gồm hai phần lớn : hệ thống thông tin... thống thông tin và tài liệu về hệ thống 5 Công cụ mô hình hoá Sơ đồ luồng dữ liệu Sơ đồ luồng dữ liệu dùng để mô tả hệ thống thông tin nhng trên góc độ trừu tợng Trên sơ đồ chỉ bao gồm các luồng dữ liệu, các xử lý, các lu trữ dữ liệu, nguồn và đích nhng không hề quan tâm tới nơi, thời điểm và đối tợng chịu trách nhiệm xử lý Sơ đồ luồng dữ liệu chỉ mô tả đơn thuần hệ thống thông tin làm gì và để làm... thức khen thởng Ngày có quyết định khen thởng,kỷ luật Lý do khen thởng, kỷ luật Tháng Ngày công chính thức Ngày công thêm giờ Ngày công làm ca đêm Ngày công nghỉ phép, đi học Địa điểm phòng ban Điện thoại phòng ban Ngày bắt đầu lơng Ngày kết thúc hệ số lơng Tiền lơng cơ bản Tiền lơng làm thêm Tiền BHXH Tiền phụ cấp Tiền khen thởng Tiền kỷ luật Tiền ăn Thực lĩnh Thuộc tính R R R R S S S S S S S Từ các