Luận văn: “Quản lí hồ sơ cán bộ công nhân viên của cục doanh nghiệp nhỏ và vừa thuộc bộ kế hoạch và đầu tư” docx

Luận văn: “Quản lí hồ sơ cán cơng nhân viên cục doanh nghiệp nhỏ vừa thuộc kế hoạch đầu tư” MỤC LỤC MỤC LỤC Mởđầu CHƯƠNG I: VÀI NÉT VỀ CÔNG TY I Những nét công ty Thành lập công ty Chức Mục tiêu công ty Giá trị niềm tin Cơ cấu tổ chức Hình thức tổ chức kinh doanh 10 II Sản phẩm, dịch vụ khách hàng Cybersoft 11 Các sản phẩm 11 Dịch vụ 12 Khách hàng công ty 13 III Lý lựa chọn đề tài 13 CHƯƠNG II: PHƯƠNG PHÁP PHÂN TÍCH VÀ THIẾT KẾ HỆ THỐNG THƠNG TIN QUẢN LÝ 15 I Khái quát hệ thống thông tin quản lý 15 Cách tiếp cận hệ thống 15 Cơ sở liệu hệ thống thông tin 16 Tầm quan trọng hệ thống thông tin hoạt động tốt 18 II Ứng dụng tin học công tác xây dựng hệ thống thông tin quản lý 20 Lý để phát triển hệ thống thông tin quản lý 20 Phương pháp phát triển hệ thống thông tin quản lý 21 CHƯƠNG III: KHẢO SÁT, PHÂN TÍCH, THIẾT KẾ VÀ XÂY DỰNG HỆ THỐNG THƠNG TIN TÍNH LƯƠNG TẠI XÍ NGHIỆP XE BUÝT HÀ NỘI 35 I Khảo sát hệ thống thực 36 Vài nét Xí nghiệp Xe buýt Hà Nội 36 Đặc điểm tình hình sản xuất kinh doanh tổ chức máy quản lý doanh nghiệp 36 Tổ chức hệ thống thông tin 39 Nhiệm vụ hệ thống thông tin kế tốn lương 39 Các cơng thức tính lương 41 II Phân tích chi tiết 43 Các chức hệ thống 43 Sơ đồ luồng thông tin hệ thống kế toán lương 47 Sơ đồ luồng liệu 47 Lý để xây dựng hệ thống thơng tin tính lương 49 Xây dựng hệ thống mã hóa xử lý nghiệp vụ tính lương 50 III Thiết kế hệ thống 53 Hệ thống Menu kế toán lương 53 Thiết kế sở liệu 54 Thiết kế thuật toán 73 Lựa chọn hệ quản trị sở liệu 78 IV Một số giao diện hình chương trình 79 Màn hình đăng nhập vào hệ thống 79 Màn hình danh mục nhân viên 80 Màn hình sửa danh mục nhân viên 81 Màn hình lọc Danh mục nhân viên 81 Màn hình tìm kiếm nhân viên 82 Màn hình thêm nhóm nhân viên 83 Màn hình lọc cơng thức tính lương theo tháng 83 Màn hình sửa cơng thức tính 83 Màn hình cập nhật số liệu 84 10 Màn hình nhập số liệu 85 Kết luận 87 Phụ lục 89 Phụ lục 135 MỞĐẦU Đất nước ta trình đổi phát triển, bước đầu gặt hái thành cơng định, điều thể qua mức tăng trưởng kinh tế ổn định ngày cao, tỉ lệ lạm phát kiềm chế, đánh giá “điểm đến” du khách nhà đầu tư quốc tế Thành cơng có đóng góp khơng nhỏ ngành Tin học, ngành trở thành mũi nhọn q trình cơng nghiệp hóa, đại hóa đất nước Cùng với đổi đất nước, phát triển vượt trội ngành Cơng nghệ thơng tin nói chung nhu cầu cấp thiết ứng dụng tin học công tác quản lý doanh nghiệp nói riêng, năm vừa qua, hàng loạt Công ty phần mềm đời thị trường Việt Nam Điển hình có cơng ty phần mềm CardPro chun lĩnh vực đồ họa, Hp Group chuyên phần mềm giáo dục đào tạo, đặc biệt, có nhiều cơng ty phần mềm tài kế tốn phần mềm kế tốn Fast Accouting, phần mềm kế toán Effect, phần mềm Cyber Accounting công ty Cổ phần phần mềm QTDN Cybersoft Cybersoft cơng ty máy tính chun cung cấp giải pháp phần mềm lĩnh vực quản trị doanh nghiệp, với đội ngũ nhân viên động có trách nhiệm Trong thời gian này, hướng dẫn trực tiếp GĐ Lê Cảnh Toàn giúp đỡ đội ngũ cán bộ, nhân viên Cybersoft, em thực đề tài “Phân tích, thiết kế xây dựng hệ thống tính lương cho Xí nghiệp Xe buýt Hà Nội” Visual Foxpro 7.0 Xí nghiệp Xe buýt Hà Nội đơn vị trực thuộc Tổng Công ty vận tải Hà Nội Với gần 900 cán cơng nhân viên bố trí phận khác lái xe, sửa chữa, văn phòng, bán vé, bảo vệ…, việc tính lương cho Xí nghiệp phức tạp, yêu cầu tỉ mỉ chi tiết Mỗi tháng, kế tốn viên phải tính lương theo hai kỳ với nhiều loại mẫu biểu, chứng từ bảng lương tạm ứng, bảng toán tiền lương, tiền thưởng, lương ngồi giờ, báo cáo đóng bảo hiểm y tế, bảo hiểm xã hội… Tồn cơng việc thực thủ công đơn vô vất vả, tốn thời gian, nhân lực cịn dẫn đến sai sót khó kiểm sốt Chính thế, việc tin học hóa kế tốn lương cho Xí nghiệp cần thiết nhằm tiết kiệm thời gian, sức lao động, giảm bớt sai sót, góp phần nâng cao hiệu kinh doanh Ngồi phần mở đầu kết luận, nội dung chuyên đề bao gồm: Chương I: Vài nét công ty Chương giới thiệu sơ lược sở thực tập – Công ty cổ phần phần mềm QTDN Cybersoft – cơng ty chiếm uy tín lớn thị trường phần mềm kế toán Chương II: Phương pháp phân tích thiết kế hệ thống thơng tin quản lý Phương pháp luận nghiên cứu tảng khoa học để phát triển tư thực tiễn Khi nghiên cứu toán quản lý từ cấp chiến lược đến cụ thể, phương pháp phân tích thiết kế hợp lý giúp giải vấn đề cách đắn khoa học Chương giới thiệu sơ lược cách tiếp cận hệ thống, phương pháp vịng đời phát triển hệ thống thơng tin với bảy giai đoạn: Đánh giá yêu cầu phát triển hệ thống thơng tin, Phân tích chi tiết, Thiết kế logic, Đề xuất phương án giải pháp, Thiết kế vật lý ngoài, Triển khai kỹ thuật hệ thống, Cài đặt khai thác Chương III: Khảo sát, phân tích, thiết kế xây dựng hệ thống thơng tin tính lương Xí nghiệp Xe buýt Hà Nội Những nội dung, cơng việc khảo sát, phân tích, thiết kế, lập trinh hệ thống thơng tin tính lương cho Xí nghiệp Xe buýt Hà Nội trình bày cụ thể chương Phần cuối chuyên đề phụ lục: Phụ lục 1: Mã số thủ tục chương trình Phụ lục 2: Tài liệu tham khảo Em xin chân thành cảm ơn giúp đỡ tận tình KS.Bùi Thế Ngũ cán bộ, nhân viên công ty Cybersoft hướng dẫn em hoàn thành luận văn tốt nghiệp này! Hà Nội, ngày 12.06.2006 Sinh viên: Nguyễn Thị Lan Anh CHƯƠNG I VÀI NÉT VỀ CÔNG TY Những nét công ty Tên tiếng Việt: Công ty cổ phần phần mềm Quản trị doanh nghiệp Cybersoft Tên tiếng Anh: Cyber Software for Business managerment Jsc Tên giao dịch: CYBERSOFT Trụ sở: 413 Nguyễn Khang, Cầu Giấy, Hà Nội Điện thoại: 84-4-7847223 Fax: 84-4-7847224 E-mail: cyber-soft@hn.vnn.vn Website: www.Cybersoft.com.vn Thành lập công ty Cùng với đổi đất nước, phát triển vũ bão nghành Cơng nghệ thơng tin nói chung nhu cầu cấp thiết ứng dụng tin học công tác quản lý doanh nghiệp nói riêng, Cơng ty Cybersoft thành lập ngày 04 tháng 11 năm 2003 theo giấy chứng nhận số 0103003113 Sở Kế hoạch đầu tư Thành phố Hà Nội cấp Cybersoft Công ty Cổ phần Phần mềm quản trị doanh nghiệp có nhiều kinh nghiệm việc triển khai phần mềm kế toán quản trị sản xuất kinh doanh Việt Nam Với đội ngũ chuyên gia giàu kinh nghiệm, mục đích cơng ty kết hợp hiểu biết nghiệp vụ khả công nghệ để tạo cho thị trường Việt Nam sản phẩm dịch vụ có tính chun nghiệp cao lĩnh vực quản trị tài doanh nghiệp Với đội ngũ cán chuyên nghiệp với sản phẩm dịch vụ chất lượng cao, Cybersoft dần chiếm lĩnh uy tín thị trường ba miền Bắc – Trung – Nam, công ty hàng đầu Việt Nam cung cấp giải pháp phần mềm tài quản trị doanh nghiệp Chức Cybersoft chuyên cung cấp công cụ đại quản lý tài kế tốn sản xuất kinh doanh nhằm nâng cao hiệu hoạt động doanh nghiệp Các sản phẩm dịch vụ Cybersoft dựa sở kết hợp hiểu biết sâu sắc nghiệp vụ, khả công nghệ, phương thức hỗ trợ khách kinh nghiệm thực tế Cơng ty có chức sau:  Thiết kế xây dựng phần mềm ứng dụng kế tốn tài phần mềm quản lý sản xuất kinh doanh  Tư vấn, hỗ trợ đào tạo khách hàng cài đặt sử dụng phần mềm ứng dụng Mục tiêu công ty Mục tiêu Cybersoft trở thành nhà cung cấp hàng đầu thị trường Việt nam giải pháp tổng thể cho doanh nghiệp việc ứng dụng công nghệ thông tin vào quản lý sản xuất kinh doanh Với hiệu “Thành công khách hàng mục tiêu Công ty!”, Cybersoft luôn sẵn sàng cung cấp phần mềm dịch vụ tốt nhất, thoả mãn tối đa nhu cầu khách hàng Trên sở Cybersoft luôn không ngừng phát triển để tạo sản phẩm đáp ứng ngày đầy đủ yêu cầu thông tin quản lý kinh tế thị trường Giá trị niềm tin Cơng ty mong muốn đóng góp cho xã hội, xây dựng đất nước giàu mạnh thông qua sản phẩm dịch vụ cung cấp cho khách hàng Chính thế, cán công nhân viên Cybersoft lao động hết mình, có trách nhiệm nghề nghiệp, ln ln đổi tự hồn thiện Cơng ty tin tưởng hạnh phúc cá nhân phụ thuộc vào mức độ sử dụng tài tiềm ẩn cá nhân Vì cán cơng nhân viên Cybersoft xây dựng doanh nghiệp đem lại cho thành viên điều kiện phát triển đầy đủ tài sống đầy đủ vật chất, phong phú tinh thần Cơ cấu tổ chức Hiện nay, cấu tổ chức Cybersoft gồm phòng ban sau: Phịng nghiên cứu phát triển sản phẩm:có nhiệm vụ nghiên cứu vàxây dựng chi tiết yêu cầu đặc thù khách hàng, thiết kế chi tiết phương án giải quyết, thực xây dựng phần mềm với chức phân hệ mở rộng, nâng cao tính nghiệp vụ khả phân tích quản trị chương trình, bảo hành phần mềm theo yêu cầu Phòng cung cấp giải pháp cho doanh nghiệp: có nhiệm vụ tư vấn xây dựng hệ thơng tin tài kế tốn quản trị doanh nghiệp, cài đặt chương trình, hướng dẫn sử dụng bảo hành, nâng cấp hệ thống cài đặt, thiết kế sản phẩm “may đo” theo yêu cầu khách hàng Phòng tư vấn hỗ trợ khách hàng: có nhiệm vụ giải đáp thắc mắc, hướng dẫn chi tiết cách khắc phục vấn đề khó khăn qua điện thoại, fax, thư điện tử trực tiếp trụ sở khách hàng Phòng dự án: có nhiệm vụ triển khai lập trình phần mềm ứng dụng dựa sở tiếp thu nhu cầu đặc thù khách hàng để phát triển phần mềm “may đo” thơng minh, thích hợp hệ thống ứng dụng đa phân hệ SƠ ĐỒ CƠ CẤU TỔ CHỨC Hiện Cybersoft có 30 nhân viên có trình độ đại học chun ngành tốn, tin, kế toán, luật, kinh tế ngoại ngữ Hình thức tổ chức kinh doanh Cybersoft cơng ty chuyên cung cấp giải pháp phần mềm biết đến hình thức “Cơng ty cổ phần” Loại hình doanh nghiệp năm gần trở nên phổ biến bộc lộ nhiều ưu điểm Ngồi cổ đơng thức, cơng ty cịn hình thành cổ đơng thường cách hàng năm bán 5% cổ phần cho nhân viên công ty Đến cuối năm, lợi nhuận Cybersoft chia cho cổ đông theo tỉ lệ cổ phần đóng góp Với hình thức này, người lao động – với tư cách chủ doanh nghiệp có trách nhiệm phấn đấu cơng việc Ban lãnh đạo Cybersoft quan tâm đến môi trường cạnh tranh cơng ty, cạnh tranh tạo khơng khí làm việc tích cực, động, phát huy mạnh cá nhân Tuy nhiên, cạnh tranh tích cực, tiến Những cá nhân xuất sắc, có ý tưởng mới, táo bạo khả thi ủng hộ áp dụng Đặc biệt, cá nhân này, công ty ln có chế độ lương thưởng xứng đáng nhằm khuyến khích họ tích cực Ngồi ra, khuyến khích cạnh tranh thúc đẩy đội ngũ nhân viên nâng cao trình độ chun mơn vấn đề quản lý 10 Tg0_Ccn :H = [Thªm giê CN],; Tg0_Cnt :H = [Thªm giê NT],; Tg_Tt :H = [TiÒn LTG],; Ptn_Pt :H = [% P.C TN],; Ptn_Tt :H = [TiÒn P.C TN],; Pc3_C :H = [P.C C3-Cg],; Pc3_Tt :H = [TiÒn P.C C3],; Kpt_Kpcd :H = [Kinh phÝ C§],; Kpt_BHXH :H = [BHXH] ,; Kpt_BHYT :H = [BHYT] ,; Kpt_Tdtu :H = [ĐÃ tạm ứng],; Kpt_Bttn :H = [Bồi thường TN],; Kpt_Nolai :H = [Nợ lại TT],; Kpt_Tt :H = [Tỉng tiỊn trõ],; Ttk1_Tt :H = [Th­ëng TK-NL],; Ttk2_Sl :H = [L­ỵng TK-NL],; Ttk2_Tt :H = [TiỊn TK-NL],; Cong_khac1:H = [Céng kh¸c 1], ; Cong_khac2:H = [Céng kh¸c 2], ; Cong_khac3:H = [Céng kh¸c 3], ; Tru_khac1 :H = [Trõ kh¸c 1],; Tru_khac2 :H = [Trõ kh¸c 2],; Tru_khac3 :H = [Trõ kh¸c 3]; FONT [vn-sans-serif],8; LOCK ; NAME oBrowse ; TITLE "F3-Sua, F8-Xoa NV bang luong, Esc-Thoat"; NOMODIFY NOAPPEND NODELETE WINDOW WinBrw ON KEY LABEL F3 ON KEY LABEL F4 ON KEY LABEL F5 ON KEY LABEL F8 USE IN CTLUONGT USE IN Temp2 USE IN Dmnv 122 USE IN Dmnhnv USE IN Dmtx USE IN Chotso POP KEY RETURN *~~~~~~~~~~~~~~ PROCEDURE LUONG_F3 ~~~~~~~~~~~~~~~~ PROCEDURE Luong_F3 PARAMETER _M_S _InSELECT = SELECT() _Recno = RECNO() STORE _M_S TO _Moi_Sua PUSH KEY CLEAR IF RECNO() > RECCOUNT([Temp2]) POP KEY SELECT (_InSelect) RETURN ENDIF SELECT Temp2 IF _Moi_Sua = [M] SCATTER MEMVAR MEMO M.Nop_BHXH = M.Matx_Old = M.Matx ELSE GO _Recno SCATTER MEMVAR MEMO M.tennv = IIF(SEEK(M.Manv,[Dmnv]), ALLTRIM(Dmnv.Tennv), []) M.Tentx = IIF(SEEK(ALLTRIM(M.Matx),[Dmtx]), ALLTRIM(Dmtx.Tentx), []) M.Ten_Nh_nv1=IIF(SEEK([1]+M.Nh_nv1,[Dmnhnv]), ALLTRIM(Dmnhnv.Tennh),[]) M.Ten_Nh_nv2=IIF(SEEK([2]+M.Nh_nv2,[Dmnhnv]), ALLTRIM(Dmnhnv.Tennh),[]) M.Ten_Nh_nv3=IIF(SEEK([3]+M.Nh_nv3,[Dmnhnv]), ALLTRIM(Dmnhnv.Tennh),[]) ENDIF 123 ON KEY LABEL F10 KEYBOARD CHR(23) DO FORM (P_Screen + [Luong_F3]) NAME _SCX LINKED ON KEY LABEL F10 POP KEY IF _Moi_Sua = [S] THEN IF MESSAGEBOX("Cã nhËp tiÕp kh«ng?",4+32+256,"Chu y") RETURN T ELSE IF !EOF() SKIP DO Luong_F3 with _M_S ELSE MESSAGEBOX("§· ®Õn dßn cuèi cïng!",0+64,"Chu y") ENDIF ENDIF ENDIF SELECT (_InSelect) RETURN *~~~~~~~~~~~~~~~~ PROCEDURE _Nhan ~~~~~~~~~~~~~~~~~~~ * FUNCTION _Nhan PARAMETERS M_Nhan SELECT Temp2 IF LASTKEY()=27 OR M_Nhan IF _RecNo RECCOUNT([CTLUONGT]) RETURN T ENDIF SCATTER MEMVAR MEMO _RecNo = RECNO() IF (MESSAGEBOX('Cã ch¾c ch¾n xãa kh«ng?',4+32+256,'Chu y') 6) GO _Recno RETURN ENDIF M.Time = Time() M.Date = DATE() M.User_Id = M.Name M.Status="*" SET OPTIMIZE ON SET EXCLUSIVE ON SET MULTILOCKS ON && Must be on for table buffering = CURSORSETPROP('Buffering', 5, 'Temp2' ) GATHER MEMVAR FLUSH 126 DELETE SKIP TABLEUPDATE(.T.) SELECT CTLUONGT SET ORDER TO STT2 IF SEEK(ALLTRIM(STR(M.Thang,2)) +ALLTRIM(STR(M.Nam,4)) +ALLTRIM(M.Manv)+ALLTRIM(M.Matx)) GATHER MEMVAR FLUSH DELETE SKIP ENDIF = CURSORSETPROP('Buffering',1, 'Temp2' ) SET EXCLUSIVE OFF SET MULTILOCKS OFF SELECT Temp2 RETURN T *!* PROCEDURE _CHK_LG PARAM _ObjectLG,_sort M.Ma = UPPER(EVAL(_ObjectLG.Controlsource)) IF USED([Dmnhnv]) SELECT Dmnhnv ELSE USE (P_Cod + [Dmnhnv]) ORDER Stt ALIAS Dmnhnv IN ENDIF IF USED([Dmtx]) SELECT Dmtx ELSE USE (P_Cod + [Dmtx]) ORDER Matx ALIAS Dmtx IN ENDIF DO CASE CASE _sort = SET FILTER TO Loainh = IN Dmnhnv CASE _sort = 127 SET FILTER TO Loainh=2 AND Manh"ALL" IN Dmnhnv CASE _sort = SET FILTER TO Loainh = IN Dmnhnv ENDCASE ON KEY LABEL ENTER _Nhan_huy with [N] ON KEY LABEL ESC _Nhan_huy with [H] IF _sort SELECT Dmnhnv BROWSE FIELDS Manh :H = [M· nhãm],; Tennh :H = [Tªn nhãm]; TITLE "ENTER-Nhan, ESC-Thoat" FONT [Vn-sans-serif], NOAPPEND NOMODIFY NODELETE NAME OBrow1 ELSE SELECT Dmtx BROWSE FIELDS Matx :H = [M· tuyÕn xe],; Tentx :H = [Tªn tuyÕn xe]; TITLE "ENTER-Nhan, ESC-Thoat" FONT [Vn-sans-serif], NOAPPEND NOMODIFY NODELETE NAME OBrow2 ENDIF ON KEY LABEL ENTER ON KEY LABEL ESC _ObjectLG.VALUE= M.Ma _ObjectLG.Refresh IF !USED([Dmnhnv]) USE (P_Cod + [Dmnhnv]) ORDER Stt ALIAS Dmnhnv IN ENDIF IF !USED([Dmtx]) USE (P_Cod + [Dmtx]) ORDER Matx ALIAS Dmtx IN ENDIF RETURN ************* PROCEDURE _Nhan_huy PARAMETERS _N_H IF _N_H = [H] 128 IF _sort 4 USE IN Dmnhnv RETURN ELSE USE IN Dmtx RETURN ENDIF ENDIF IF _sort M.Ma = Dmnhnv.Manh _ObjectLG.REFRESH USE IN Dmnhnv ELSE M.Ma = Dmtx.Matx _ObjectLG.REFRESH USE IN Dmtx ENDIF FLUSH RETURN ENDPROC VII Thủ tục lên báo cáo toán lương hàng tháng *!* ********************************************************** *!* Bao cao toan luong hang thang *!* ********************************************************** CLOSE TABLES ALL USE (P_COD + [Dmnhnv]) ORDER STT ALIAS Dmnhnv IN USE (P_COD + [Dmnv]) ORDER Manv ALIAS Dmnv IN USE (P_COD + [Dmtx]) ALIAS Dmtx IN USE (P_DATA + [CTLUONGT]) ORDER STT ALIAS Ctluongt EXCLUSIVE IN M.Nh_nv2 =UPPER(ALLTR(M.Nh_nv2)) _F=[] _File_Name = [BTTLuong] M.Nhan = M.Nam = YEAR(DATE()) M.Nam1 = YEAR(DATE()) 129 M.Thang = MONTH(DATE()) M.Thang1= MONTH(DATE()) DO FORM (P_SCREEN + "BTTLuong") NAME _SCX LINKED IF M.Nhan = RETURN ENDIF M_Ngay1 = CTOD("01/"+STR(M.thang,2)+"/"+STR(M.Nam,4)) M_Ngay2 = CTOD("01/"+STR(M.thang1,2)+"/"+STR(M.nam1,4)) MyQuery = [,Tong_Luong,Kpt_Tdtu AS Tam_Ung,Kpt_Bttn AS Bttn,Kpt_Kpcd AS Kpcd,Kpt_Bhyt AS Bhyt,Tru_Khac + Tru_Khac1+ Tru_Khac2 AS Thu_Khac,Cong_Khac + Cong_Khac1 + Cong_Khac2 AS Cong_Khac,Kpt_TruNo AS Thu_No_Lai,Kpt_Nolai AS No_Lai,Tien_Linh AS Con_Linh] _MyQuery = [,Tong_Luong, Tam_Ung, Bttn, Kpcd, Bhyt, Thu_No_Lai, Thu_Khac, Cong_Khac, No_Lai, Con_Linh] TCUOI = STRTRAN(_MyQuery,[,],[,M.]) qr_Lcb = [,Lcb_Hsc,Lcb_Hsm,Lcb_Tt] && Luong co ban _FLcb = [,Lcb_Hsc,Lcb_Hsm,Lcb_Tt] TLcb = [,M.Lcb_Tt] qr_Ltg_Vp = [,Ltg_Clv,Ltg_Ccd,Ltg_Tt,Ltg_Lcdtt,Ltg_Llvtt] _qr_Ltg_Vp =[,Ltg_Clv,Ltg_Ccd,Ltg_Tt,Ltg_Lcdtt,Ltg_Llvtt] TLtg_Vp && Luong thoi gian = STRTRAN(_qr_Ltg_Vp,[,],[,M.]) qr_Ltg_Lx = [,Ltg_Cnlv,Ltg_Ckx,Ltg_Cl,Ltg_Cdf,Ltg_Tt] _qr_Ltg_Lx =[,Ltg_Cnlv,Ltg_Ckx,Ltg_Cl,Ltg_Cdf,Ltg_Tt] TLtg_Lx = STRTRAN(_qr_Ltg_Lx ,[,],[,M.]) qr_Ltg_Sc = [,Ltg_Clv,Ltg_Ccd,Ltg_Tt] _qr_Ltg_Sc=[,Ltg_Clv,Ltg_Ccd,Ltg_Tt] TLtg_Sc = STRTRAN(_qr_Ltg_Sc,[,],[,M.]) qr_Lcp=[,Lcp_L,Lcp_Lktl,Lcp_Lktltt,Lcp_Tt,Tien_Tn,Ttk1_Tt] && Luong chat luong phuc vu _qr_Lcp=[,Lcp_L,Lcp_Lktl,Lcp_Lktltt,Lcp_Tt,Tien_Tn,Ttk1_Tt] TLcp = STRTRAN(+_qr_Lcp,[,],[,M.]) qr_Lsp=[,Lsp_C,Lsp_Tt] && Luong chat luong phuc vu _qr_Lsp=[,Lsp_C,Lsp_Tt] TLsp = STRTRAN(+_qr_Lsp,[,],[,M.]) qr_Tg = [,Tg_Cnl,Tg_Ccn,Tg_Cnt,Tg_Tt] && Luong them gio 130 _qr_Tg =[,Tg_Cnl,Tg_Ccn,Tg_Cnt,Tg_Tt] TTg = STRTRAN(_qr_TG,[,],[,M.]) qr_Pc3=[,Pc3_C,Pc3_Tt] && Phu cap Ca _qr_Pc3=[,Pc3_C,Pc3_Tt] TPc3 = STRTRAN(_qr_Pc3,[,],[,M.]) qr_Ptn=[,Ptn_Pt,Ptn_Tt] && Phu cap that nghiep _qr_Ptn =[,Ptn_Pt,Ptn_Tt] TPtn = qr_At=[,At_Tt] STRTRAN(_qr_Ptn,[,],[,M.]) && Tien an trua _qr_At=[,At_Tt] TAt= STRTRAN(_qr_At,[,],[,M.]) qr = qr_Lcb _F=_FLcb T= TLcb DO CASE CASE M.Nh_nv2 = [LAIXE] OR M.Nh_nv2 = [BANVE] qr = qr + qr_Ltg_Lx + qr_Lcp _F=_F+_qr_Ltg_Lx+_qr_Lcp T= T+ TLtg_Lx+ TLcp _file_Name = _file_Name + [Lx] CASE M.Nh_nv2 = [VANPHONG] qr = qr + qr_Ltg_Vp + qr_Pc3 + qr_Ptn + qr_Tg _F=_F+_qr_Ltg_Vp+_qr_Pc3+_qr_Ptn+_qr_Tg T= T+ TLtg_Vp+ TPc3+ TPtn+ Ttg _file_Name = _file_Name + [Vp] CASE M.Nh_nv2 = [BAOVE] qr = qr + qr_Ltg_Vp + qr_Pc3 + qr_Ptn + qr_Tg _F=_F+_qr_Ltg_Vp+_qr_Pc3+_qr_Ptn+_qr_Tg T= T+ TLtg_Vp+ TPc3+ TPtn+ Ttg _file_Name = _file_Name + [BV] CASE M.Nh_nv2 = [SUACHUA] qr = qr + qr_Ltg_Sc + qr_Lsp+ qr_Ptn + qr_Tg _F=_F+_qr_Ltg_Sc+_qr_Lsp+_qr_Ptn+_qr_tg T= T+ TLtg_Sc+ TLsp+ TPtn+ Ttg _file_Name = _file_Name + [SC] 131 CASE M.Nh_nv2 = [VSPT] qr = qr + qr_Ltg_Sc + qr_Ptn + qr_Tg _F=_F+_qr_Ltg_Sc+_qr_ptn+_qr_tg T= T+ TLtg_Sc+ TPtn+ Ttg _file_Name = _file_Name + [VSPT] OTHERWISE ENDCASE qr = qr + qr_AT + MyQuery _F=_F+_qr_AT+_MyQuery T=SUBSTR( T,2,LEN( T))+ TAT+ TCuoi T2=STRTRAN( T,[,M.],[,M_]) _T=SUBSTR(STRTRAN( T,[,M.],[,]),3,LEN( T)) SELECT ; Manv,Nh_nv1,Nh_nv2,Nh_nv3,Matx; &qr; FROM Ctluongt ; WHERE Nh_nv1=M.Nh_nv1 AND; Nh_nv2=M.Nh_nv2 AND; Nh_nv3=M.Nh_nv3 AND ; Matx=M.Matx AND ; IIF(M.Nam==M.Nam1,; (Nam=M.Nam AND BETWEEN(Thang,M.Thang,M.Thang1)),; ((Nam=M.Nam AND BETWEEN(Thang,M.Thang,12)) OR (Nam=M.Nam1 AND BETWEEN(Thang,1,M.Thang1)))); GROUP BY Manv, Nh_nv1,Nh_nv2,Nh_nv3; ORDER BY Manv, Nh_nv1,Nh_nv2,Nh_nv3; INTO TABLE (P_TEMP + "Temp6") PUBLIC & T2 SUM &_T TO & T SUM &_T TO & T2 SELECT ; SPACE(5) AS STT,SPACE(50) AS Tennv, *; FROM Temp6 ; GROUP BY Manv ; 132 ORDER BY Manv ; INTO TABLE (P_TEMP + _File_name) INDEX ON Manv TAG Manv SET RELATION TO Manv INTO Dmnv REPLACE ALL Tennv WITH Dmnv.Tennv GO TOP _Rec=0 SCAN _Rec=_Rec+1 GO RECNO() REPLACE STT WITH STR(_Rec,3) ENDSCAN SET RELATION TO _ERR = ON([ERROR]) ON ERROR * APPEN BLANK GATHER MEMVAR ON ERROR &_ERR REPLACE Tennv WITH [Tæng céng],STT WITH STR(0,3) APPEN BLANK INDEX ON STT + Manv TAG STT USE IN Temp6 USE IN &_File_name USE IN Dmnhnv USE IN Dmnv USE IN CTLUONGT IF M.Thang==M.Thang1 AND M.Nam==M.Nam1 _TITLE = [Bang toan luong thang ] + ALLTRIM(STR(M.Thang)) +[/]+ALLTRIM(STR(M.Nam)) ELSE _TITLE = [Bang toan luong tu thang ]+ ALLTRIM(STR(M.Thang))+[/]+ALLTRIM(STR(M.Nam))+ [ den thang ] + ALLTRIM(STR(M.Thang1))+[/]+ALLTRIM(STR(M.Nam1)) ENDIF SELECT 133 USE (P_TEMP + _file_Name) ORDER STT ON KEY LABEL F7 DO Print BROWSE FIELDS STT:5,Tennv :H=[Tên nhân viên] :25 &_F; FONT [vn- sans-serif],8; NAME ObjBrowse ; NOMODIFY NOAPPEND NODELETE NOMENU WINDOW WinBrw; LOCK 2; TITLE _TITLE + [ F7-In,ESC-Thoat] ON KEY LABEL F7&& DO Pr_report RETURN ************* PROCEDURE Print _CLIPTEXt = A_Report(l_report, 3) A_Report(l_report, 3) = _FILE_REPO Set filter to VAL(STT) > DO PR_REPORT WITH F Set filter to ENDPROC 134 PHỤLỤC Tài liệu tham khảo ThS Trần Công Uẩn Giáo trình Cơ sở liệu SQL, Access, NXB Thống kê, Hà Nội, 2000 TS Trương Văn Tú – TS Trần Thị Song Minh Giáo trình Hệ thống thơng tin quản lý, NXB Thống kê, Hà Nội, 2000 KS Đinh Xuân Lâm, Vn-Guide Kế toán doanh nghiệp với Visual Foxpro, phân hệ kế toán lương, NXB Thống kê, Hà Nội, 2004 TS Trần Thị Song Minh Giáo trình Kế tốn máy, NXB Lao động – Xã hội, Hà Nội, 2005 TS Nguyễn Văn Ba Phân tích thiết kế hệ thống thông tin - phương pháp có cấu trúc, NXB Đại học quốc gia Hà Nội, Hà Nội, 2005 KS Đinh Xuân Lâm, Vn-Guide Những thực hành Visual Foxpro, NXB Thống kê, Hà Nội, 2004 Văn Phòng Lao động – tiền lương – hành chính, Xí nghiệp Xe buýt Hà Nội 135 Bộ Tài Thơng tư số 103/2005/TT-BTC – Hướng dẫn tiêu chuẩn điều kiện phần mềm kế toán 136 ... thế, cán cơng nhân viên Cybersoft lao động hết mình, có trách nhiệm nghề nghiệp, ln ln đổi tự hồn thiện Công ty tin tưởng hạnh phúc cá nhân phụ thuộc vào mức độ sử dụng tài tiềm ẩn cá nhân Vì cán. .. Tổng Công ty  Giám đốc  Kế toán trưởng  Các phận  Cán công nhân viên SƠ ĐỒ NGỮ CẢNH CỦA HỆ THỐNG TÍNH LƯƠNG b Sơ đồ luồng liệu mức 1: Sau phân rã sơ đồ ngữ cảnh hệ thống tính lương, ta sơ đồ... tận tình KS.Bùi Thế Ngũ cán bộ, nhân viên công ty Cybersoft hướng dẫn em hoàn thành luận văn tốt nghiệp này! Hà Nội, ngày 12.06.2006 Sinh viên: Nguyễn Thị Lan Anh CHƯƠNG I VÀI NÉT VỀ CƠNG TY Những