Lập chương trình quản lý lương

Tài liệu tham khảo công nghệ thông tin Lập chương trình quản lý lương

III Phạm vi ứng dụng và cơ sở của chơng trình :

Đây là chơng trình quản lý lơng có thể áp dụng cho một doanh nghiệp sản xuất nhất định Kế toán lơng là một phần của kế toán doanh nghiệp, trong đó nó sẽ có nhữngnghiệp vụ chính sau :

- Tính tiền lơng phải trả cho công nhân viên - Tính tiền thởng phải trả cho công nhân viên - Tính bảo hiểm xã hội phải trả cho công nhân viên

- Tính tiền lơng phải trả cho công nhân viên sản xuất nghỉ phép- Xuất tiền trả các khoản cho công nhân viên

- Các khoản thu khấu trừ vào lơng

- Thuế thu nhập của công nhân viên phải nộp vào ngân sáchNh vậy về căn bản những công việc cần phải giải quyết là :

 Lập ra các mẫu biểu, chứng từ lao động tiền lơng theo quy định của Nhà nớc hiện hành, nh bảng chấm công, bảng thanh toán tiền lơng, bảng thanhtoán BHXH, tiền thởng, báo cáo thuế thu nhập , v.v…

 Cuối tháng, dựa trên kết quả tổng hợp của các chứng từ lao động tiền ơng, định khoản những nghiệp vụ kế toán lơng phát sinh và ghi vào chứngtừ ghi sổ hoặc sổ nhật ký chung và các sổ cái tơng ứng

l-Cách thức tính lơng của doanh nghiệp đợc phân thành 2 nhóm :

1 nhóm công nhân (hởng lơng theo sản phẩm, căn cứ trực tiếp vào sốsản phẩm làm đợc)

2 nhóm cán bộ quản lý (hởng lơng quản lý, căn cứ vào số ngày công và tổng giá trị sản phẩm công nhân làm đợc trong tháng).

Cụ thể nh sau :

- Mỗi sản phẩm có một định mức đơn giá tiền công xác định - Tổng giá trị tiền lơng của bộ phận quản lý = 20% tổng giá trị tiền

công nhân làm đợc trong tháng.

- Nếu tổng giá trị tiền công sản phẩm lớn hơn 20 triệu thì toàn bộ công ty sẽ đợc thởng 25% giá trị số tiền công trên 20 triệu Trong đó công nhân hởng 70% và bộ phận quản lý đợc hởng 30% Số tiền thởng sẽ phân chia theo số ngày công làm việc và hệ số lơng với nhân viên bộ phận quản lý và theo kết qua xếp loại với công nhân trực tiếp.

- Bảo hiểm xã hội = 5% lơng không kể thởng do nhân viên quản lý chịu

- Bảo hiểm y tế = 1% lơng không kể thởng do nhân viên quản lý chịu.- Đối với công nhân thì không phải đóng BHYT, BHXH mà công ty sẽ

trích nộp thay cho công nhân khoản phí này Khoản trích thêm này ợc tính vào các tài khoản chi phí công nhân trực tiếp với công nhân và chi phí quản lý doanh nghiệp với nhân viên văn phòng Riêng thuế thunhập dựa trên tổng lơng(không kể thởng) của từng nhân viên trong tháng Tuy nhiên phải từ 5 triệu trở lên mới đóng thuế, nên trong trờnghợp này không có nhân viên nào phải đóng thuế

đ Doanh nghiệp không phát lơng tạm ứng Lơng chỉ đợc thanh toán một lần vào cuối tháng.

quản lý

Sản phẩmQuản lý

Sản xuất

Phần Ii

Thiết kế và cài đặt chơng trình

I Tạo bảng : 1 - Bảng :

Bảng đợc sử dụng để cập nhật và lu trữ thông tinChơng trình đợc thiết kế gồm các bảng sau :

- Bảng lu trữ hồ sơ về công nhân : HO SO CONG NHAN

- Bảng lu trữ đơn giắ sản phẩm mà doanh nghiệp sản xuất : DON GIA SAN PHAM

- Bảng lu trữ về số sản phẩm công nhân làm đợc theo tháng : CN_SP- Bảng lu trữ thông tin về cán bộ : HO SO CAN BO

- Bảng danh mục chức vụ trong công ty : DANH MUC CHUC VU- Bảng danh sách phòng ban của công ty : DANH SACH PHONG BAN- Bảng danh sách ngày công của cán bộ quản lý trong công ty : DS NGAY CONG THUC LAM

2.2>Bảngđơn giá sản phẩm DON GIA SAN PHAM :

Field NameData TypeField Size/FormatCaption

NgaysinhDate/TimeShort DateNgày sinh

Field NameData TypeField Size/FormatCaption

NambatdaucongtacDate/TimeShort DateN¨m b¾t ®Çu c«ng t¸cField NameData TypeField Size/FormatCaption

NgayhoanthanhDate/TimeShort DateNgµy hoµn thµnh

2.5> B¶ng danh môc chøc vô DANH MUC CHUC VU:

Field NameData TypeField Size/FormatCaption

2.6> B¶ng danh s¸ch phßng ban DANH SACH PHONG BAN :

Field NameData TypeField Size/FormatCaption

Field NameData TypeField Size/FormatCaption

NgayThangDate/TimeShort DateNgµy th¸ng

2.8>B¶ng hÖ sè thëng cho c«ng nh©n HE SO THUONG CN

Field NameData TypeField Size/FormatCaption

3 - C¸c b¶ng cã quan hÖ nh sau :

II các truy vấn :

Truy vấn đợc dùng để xử lý thông tin từ các bảng tuỳ theo yêu cầu sử dụngTrong chơng trình này sử dụng các truy vấn sau:

1> Bảng đa ra số tiền ứng với từng sản phẩm mà công nhân làm đợc Q_TIEN UNGVOI SP Bảng này gồm các trờng :

- Mã công nhân - Họ tên công nhân - Mã sản phẩm

- Số sản phẩm làm đợc- Đơn giá của SP đó

- Số tiền tơng ứng = [Số sản phẩm làm đợc]*[Đơn giá của SP đó]Tơng ứng với câu lệnh SQL nh sau :

SELECT CN_SP.MaCN, CN_SP.Hoten, CN_SP.MaSP, CN_SP.SoSPlamduoc, [DON GIA SAN PHAM].Dongia, [SoSPlamduoc]*[Dongia] AS [Tientuongung(dong)],

Month([Ngayhoanthanh]) AS Thang, Year([Ngayhoanthanh]) AS NamFROM [DON GIA SAN PHAM] INNER JOIN CN_SP ON [DON GIA SAN PHAM].MaSP=CN_SP.MaSP;

2> Truy vÊn ®a ra b¶ng l¬ng cña c«ng nh©n : Q_LUONG CNGåm c¸c trêng sau :

- M· c«ng nh©n

- L¬ng = tæng sè tiÒn t¬ng øng (céng theo nhãm m· c«ng nh©n,th¸ng vµn¨m)

- Th¸ng t¬ng øng- N¨m t¬ng øng

T¬ng øng víi c©u lÖnh SQL nh sau :

SELECT [Q_TIEN UNG VOI SP].MaCN, Sum([Q_TIEN UNG VOI SP].[Tientuongung(dong)]) AS [Luong(dong)], [Q_TIEN UNG VOI SP].Thang, [Q_TIEN UNG VOI SP].Nam

FROM [Q_TIEN UNG VOI SP]

GROUP BY [Q_TIEN UNG VOI SP].MaCN, [Q_TIEN UNG VOI SP].Thang, [Q_TIEN UNG VOI SP].Nam;

3> B¶ng quü thëng cho c«ng ty Q_QUY THUONG: Gåm c¸c trêng sau :

- Th¸ng - N¨m

- Tæng l¬ng c«ng nh©n - Quü thëng chung - Quü thëng cho CN- Quy thuong cho CB

T¬ng øng víi c©u lÖnh SQL nh sau :

SELECT [Q_LUONG CN].Thang, [Q_LUONG CN].Nam, Sum([Q_LUONG CN].[Luong(dong)]) AS [Tong luong CN], IIf([Tong luong CN]>20000000,([Tong luong CN]-20000000)*0.25,0) AS [Quy thuong chung], [Quy thuong chung]*0.7 AS [Quy thuong cho CN], [Quy thuong chung]*0.3 AS [Quy thuong cho CB]

FROM [Q_LUONG CN]

GROUP BY [Q_LUONG CN].Thang, [Q_LUONG CN].Nam;

4>Bảng tham số chung Q_THAM SO CHUNG : đa ra các thông số để tính lơng cho cán bộ

Gồm các trờng sau :

- Quỹ lơng cho cán bộ = 20%Tổng lơng công nhân- Số ngày làm việc tiêu chuẩn (lấy bằng 26)

- Lơng cơ bản (lấy bằng 214000đ)- Tổng tiền phụ cấp khác

- Tháng- Năm

Tơng ứng với câu lệnh SQL nh sau :

SELECT Sum([Luong(dong)])*0.2 AS [Quy luong cho CB], 26 AS [So ngay lam viec chuan], 214000 AS [Luong can ban], [Quy luong cho CB] AS [Tong tien phu cap khac], [Q_LUONG CN].Thang, [Q_LUONG CN].Nam

FROM [Q_LUONG CN]

GROUP BY [Q_LUONG CN].Thang, [Q_LUONG CN].Nam;

5>Bảng ngày công thực tính của cán bộ quản lý Q_NGAY CONG THUC TINH:

Gåm c¸c trêng sau : - M· c¸n bé

- Ngµy c«ng thùc lµm- Ngµy c«ng thùc tÝnh- Th¸ng t¬ng øng- N¨m t¬ng øng

T¬ng øng víi c©u lÖnh SQL nh sau :

SELECT [DS NGAY CONG THUC LAM].MaCB, [DS NGAY CONG THUC LAM].Thuclam, IIf([Thuclam]<=26,[Thuclam],26+([Thuclam]-26)*2) AS Thuctinh, Month([NgayThang]) AS Thang, Year([NgayThang]) AS Nam

FROM [DS NGAY CONG THUC LAM];

6>Truy vÊn long chÝnh cña c¸n bé Q_LUONG CHINH CB : Gåm c¸c trêng sau :

- M· c¸n bé - Hä tªn - HÖ sè l¬ng

- Ngµy c«ng thùc tÝnh

- L¬ng chÝnh = [Heso]*[Thuctinh]*214000/26- Th¸ng t¬ng øng

- N¨m t¬ng øng

T¬ng øng víi c©u lÖnh SQL nh sau :

SELECT [Q_NGAY CONG THUC TINH].MaCB, [HO SO CAN BO].Hoten, [HO SO CAN BO].Heso, [Q_NGAY CONG THUC

TINH].Thuctinh, [Heso]*[Thuctinh]*214000/26 AS [Luong chinh],

[Q_NGAY CONG THUC TINH].Thang, [Q_NGAY CONG THUC TINH].Nam

FROM [Q_NGAY CONG THUC TINH] INNER JOIN [HO SO CAN BO] ON [Q_NGAY CONG THUC TINH].MaCB = [HO SO CAN BO].MaCB;

7> Truy vÊn phô cÊp cña c¸n bé Q_PHU CAPGåm c¸c trêng sau :

- M· c¸n bé- Hä tªn- M· chøc vô- Chøc vô- Møc phô cÊp

- Ngµy c«ng thùc tÝnh

- TiÒn phô cÊp = [Mucphucap]*[Thuctinh]/26- Th¸ng

- N¨m

T¬ng øng víi c©u lÖnh SQL nh sau :

SELECT [Q_NGAY CONG THUC TINH].MaCB, [HO SO CAN BO].Hoten, [DANH MUC CHUC VU].Machucvu, [DANH MUC CHUCVU].Chucvu, [DANH MUC CHUC VU].Mucphucap, [Q_NGAY CONG THUC TINH].Thuctinh, [Mucphucap]*[Thuctinh]/26 AS [Phu cap], [Q_NGAY CONG THUC TINH].Thang, [Q_NGAY CONG THUC TINH].Nam

FROM [DANH MUC CHUC VU] INNER JOIN ([Q_NGAY CONG THUC TINH] INNER JOIN [HO SO CAN BO] ON [Q_NGAY CONG THUC TINH].MaCB = [HO SO CAN BO].MaCB) ON [DANH MUC CHUC VU].Machucvu = [HO SO CAN BO].Machucvu;

8> Truy vÊn b¶ng l¬ng thùc tÕ cña c¸n bé qu¶n lýGåm c¸c trêng sau :

- M· c¸n bé - Hä tªn - M· phßng - M· chøc vô- L¬ng chÝnh- Phô cÊp

- L¬ng thùc tÕ = [Luong chinh]+[Phu cap]- Th¸ng t¬ng øng

- N¨m t¬ng øng

T¬ng øng víi c©u lÖnh SQL nh sau :

SELECT [Q_LUONG CHINH CB].MaCB, [Q_LUONG CHINH

CB].Hoten, [Q_LUONG CHINH CB].Maphong, [Q_LUONG CHINH CB].Machucvu, [Q_LUONG CHINH CB].[Luong chinh], [Q_PHU CAP].[Phu cap], [Luong chinh]+[Phu cap] AS [Luong thuc te], [Q_PHU CAP].Thang, [Q_PHU CAP].Nam

FROM [Q_LUONG CHINH CB] INNER JOIN [Q_PHU CAP] ON [Q_LUONG CHINH CB].MaCB = [Q_PHU CAP].MaCB;

9> Truy vÊn hÖ sè phô cÊp kh¸c Q_HE SO PHU CAP KHACGåm c¸c trêng sau :

- M· c¸n bé- Hä tªn- HÖ sè - Thùc tÝnh

- HÖ sè PC kh¸c = [Heso]*[Thuctinh]- Th¸ng

- N¨m

T¬ng øng víi c©u lÖnh SQL nh sau :

SELECT [HO SO CAN BO].MaCB, [HO SO CAN BO].Hoten, [HO SO CAN BO].Heso, [Q_NGAY CONG THUC TINH].Thuctinh, [Heso]*[Thuctinh] AS [Heso PC khac], [Q_NGAY CONG THUC TINH].Thang, [Q_NGAY CONG THUC

FROM ([HO SO CAN BO] INNER JOIN [Q_NGAY CONG THUC TINH] ON [HO SO CAN BO].MaCB = [Q_NGAY CONG THUC TINH].MaCB) INNER JOIN [Q_THAM SO CHUNG] ON ([Q_NGAY CONG THUC TINH].Thang = [Q_THAM SO CHUNG].Thang) AND ([Q_NGAY CONG THUC TINH].Nam = [Q_THAM SO CHUNG].Nam);

9> Truy vấn tổng hệ số phụ cấp khác Q_TONG HE SO PC KHAC : truy vấn này dùng để tính tổng hệ số phụ cấp khác của tất cả cán bộ quản lý trong doanh nghiệp

10> Truy vÊn phô cÊp kh¸c cña c¸n bé Q_PHU CAP KHAC : Gåm c¸c trêng sau :

- M· c¸n bé - Hä tªn

T¬ng øng víi c©u lÖnh SQL nh sau :

SELECT [Q_HE SO PHU CAP KHAC].MaCB, [Q_HE SO PHU CAP KHAC].Hoten, [Q_HE SO PHU CAP KHAC].[He so PC khac], [Tong tien phu cap khac]*[He so PC khac]/[Tong he so PC khac] AS [PC khac], [Q_THAM SO

CHUNG].Thang, [Q_THAM SO CHUNG].Nam

FROM [Q_TONG HE SO PC KHAC], [Q_HE SO PHU CAP KHAC] INNER JOIN [Q_THAM SO CHUNG] ON ([Q_HE SO PHU CAP KHAC].Nam = [Q_THAM SO CHUNG].Nam) AND ([Q_HE SO PHU CAP KHAC].Thang = [Q_THAM SO CHUNG].Thang);

11> Truy vÊn tæng l¬ng vµ sè tiÒn cßn l¹i Q_TONG LUONG VA CON LAI : Gåm c¸c trêng sau :

- M· c¸n bé- Hä tªn

- Tæng l¬ng = Luong thuc te]+[PC khac]- BHYT = 0.01*[Tong luong]

- BHXH = 0.05*[Tong luong]

- Cßn l¹i = [Tong luong]-[BHYT]-[BHXH]- Th¸ng

- N¨m

T¬ng øng víi c©u lÖnh SQL nh sau :

SELECT [Q_LUONG THUC TE CB].MaCB, [Q_LUONG THUC TE CB].Hoten, [Luong thuc te]+[PC khac] AS [Tong luong], 0.01*[Tong luong] AS BHYT, 0.05*[Tong luong] AS BHXH, [Tong luong]-[BHYT]-[BHXH] AS [Con lai], [Q_LUONG THUC TE CB].Thang, [Q_LUONG THUC TE CB].Nam

FROM [Q_LUONG THUC TE CB] INNER JOIN [Q_PHU CAP KHAC] ON ([Q_LUONG THUC TE CB].MaCB = [Q_PHU CAP KHAC].MaCB) AND ([Q_LUONG THUC TE CB].Hoten = [Q_PHU CAP KHAC].Hoten) AND ([Q_LUONG THUC TE CB].Thang = [Q_PHU CAP KHAC].Thang) AND ([Q_LUONG THUC TE CB].Nam = [Q_PHU CAP KHAC].Nam);

12>Truy vÊn Q_TONG HE SO THUONG CNGåm c¸c trêng sau :

- Tæng hÖ sè thëng

- Th¸ng : Month([ThangNam])- N¨m : Year([ThangNam])T¬ng øng víi c©u lÖnh SQL nh sau :

SELECT Sum([HE SO THUONG CN].Hesothuong) AS [Tong he so thuong], Month([ThangNam]) AS Thang, Year([ThangNam]) AS Nam

FROM [HE SO THUONG CN]

GROUP BY Month([ThangNam]), Year([ThangNam]);

13> Truy vÊn l¬ng thëng cho c«ng nh©n Q_THUONG CHO CN : Gåm c¸c trêng sau :

- M· c¸n bé- Hä tªn

- HÖ sè thëng

- TiÒn thëng = [Quy thuong cho CN]*[Hesothuong]/[Tong he so thuong]

- Th¸ng- N¨m

T¬ng øng víi c©u lÖnh SQL nh sau :

SELECT [HE SO THUONG CN].MaCN, [HE SO THUONG CN].Hoten, [HE SO THUONG CN].Hesothuong, [Quy thuong cho CN]*[Hesothuong]/[Tong he so thuong] AS [Tien thuong], [Q_THAM SO CHUNG].Thang, [Q_THAM SO

FROM [HE SO THUONG CN], ([Q_THAM SO CHUNG] INNER JOIN [Q_QUY THUONG] ON ([Q_THAM SO CHUNG].Thang = [Q_QUY

THUONG].Thang) AND ([Q_THAM SO CHUNG].Nam = [Q_QUY

THUONG].Nam)) INNER JOIN [Q_TONG HE SO THUONG CN] ON ([Q_THAM SO CHUNG].Nam = [Q_TONG HE SO THUONG CN].Nam) AND ([Q_THAM SO CHUNG].Thang = [Q_TONG HE SO THUONG CN].Thang) AND ([Q_QUY THUONG].Nam = [Q_TONG HE SO THUONG CN].Nam) AND ([Q_QUY THUONG].Thang = [Q_TONG HE SO THUONG CN].Thang);

14> B¶ng thëng cho c¸n bé Q_THUONG CHO CBGåm c¸c trêng sau :

- M· c¸n bé- Hä tªn

- HÖ sè PC kh¸c

- TiÒn thëng: [Quy thuong cho CB]*[He so PC khac]/[Tong he so PC khac]

- Th¸ng - N¨m

T¬ng øng víi c©u lÖnh SQL nh sau :

SELECT [Q_HE SO PHU CAP KHAC].MaCB, [Q_HE SO PHU CAP KHAC].Hoten, [Q_HE SO PHU CAP KHAC].[He so PC khac], [Quy thuong cho CB]*[He so PC khac]/[Tong he so PC khac] AS [Tien thuong], [Q_HE SO PHU CAP KHAC].Thang, [Q_HE SO PHU CAP KHAC].Nam

FROM [Q_TONG HE SO PC KHAC], [Q_HE SO PHU CAP KHAC] INNER JOIN [Q_QUY THUONG] ON ([Q_HE SO PHU CAP KHAC].Nam = [Q_QUY THUONG].Nam) AND ([Q_HE SO PHU CAP KHAC].Thang = [Q_QUY THUONG].Thang);

15> B¶ng thèng kª tæng l¬ng theo tõng phßng ban Q_TONG LUONG THEO PHONG BAN

Gåm c¸c trêng sau :- M· phßng - Tªn phßng

- Tong luong: sum([Luong thuc te])- Th¸ng

- N¨m

T¬ng øng víi c©u lÖnh SQL nh sau :

SELECT [DANH SACH PHONG BAN].Maphong, [DANH SACH PHONG BAN].Tenphong, Sum([Q_LUONG THUC TE CB].[Luong thuc te]) AS [Tongluong], [Q_LUONG THUC TE CB].Thang, [Q_LUONG THUC TE CB].Nam

FROM [DANH SACH PHONG BAN] INNER JOIN [Q_LUONG THUC TE CB] ON [DANH SACH PHONG BAN].Maphong = [Q_LUONG THUC TE

Gåm c¸c trêng sau :- M· phßng - Tªn phßng- Tæng l¬ng

- TØ lÖ % = FormatPercent([Tong luong]/[TONG THONG KE],0)- Th¸ng

- N¨m

T¬ng øng víi c©u lÖnh SQL nh sau :

SELECT [Q_TONG LUONG THEO PHONG BAN].Maphong, [Q_TONG LUONG THEO PHONG BAN].Tenphong, [Q_TONG LUONG THEO PHONG BAN].[Tong luong], FormatPercent([Tong luong]/[TONG THONG KE],0) AS[Ti le %], [Q_TONG LUONG THEO PHONG BAN].Thang, [Q_TONG LUONG THEO PHONG BAN].Nam

FROM [Q_TONG THONG KE], [Q_TONG LUONG THEO PHONG BAN];

III c¸c MÉu biÓu :

1> Form giao diện của chơng trình

a) Form giới thiệu F_GIOI THIEU khi chơng trình đợc khởi động

b) Form gioa dien chinh của chơng trình F_CHUONG TRINH CHINH

2> Các Form để cập nhật thông tin đầu vào

a) Form nhập đơn giá sản phẩm F_NHAP DON GIA SAN PHAM

b) Form nhập hồ sơ về công nhân F_NHAP HO SO CONG NHAN

c) Form nhập số sản phẩm công nhân làm đợc trong mỗi tháng

d)Form nhËp hå s¬ c¸n bé F_NHAP HO SO CAN BO

d) Form nhËp ngµy c«ng cña c¸n bé F_NHAP DS NGAY CONG THUC LAM

e) Form nhập danh sách phòng ban của công ty F_NHAP DANH SACH PHONG BAN

f) Form nhập các chức vụ trong công ty

Tất cả các form trên đợc đa vào menu Nhập số liệu của chơng trình

3> Các Form và Report đa ra kết quả : đợc đặt trong menu Báo cáo tổng hợp :

Tất cả các Form đa ra kết quả đều có riêng một Sub Form

a)Form hiển thị ra bảng lơng của công nhân theo từng tháng F_LUONG CN : Ta chỉ cần chọn tháng và năm cần hiển thị lơng trong 2 hộp ComboBox thì Sub Form SUB_LUONG CN ở dới sẽ tự động hiển ra kết quả , SubForm này có thuộc tính Record Source lấy theo câu lệnh truy vấn nh sau :

SELECT [Q_LUONG CN].MaCN, [HO SO CONG NHAN].Hoten, [HO SO CONG NHAN].Ngaysinh, [HO SO CONG NHAN].Gioitinh, [Q_LUONG CN].[Luong(dong)] FROM [Q_LUONG CN] INNER JOIN [HO SO CONG NHAN] ON [Q_LUONG CN].MaCN=[HO SO CONG NHAN].MaCN WHERE ((([Q_LUONG CN].Thang)=[t]) AND (([Q_LUONG CN].Nam)=[n]));

Trên Form này có 2 nút command : một command là thực hiện lệnh đóng cửa sổ và một command thực hiện việc in ra kết quả bằng cách gọi đến Report có tên là R_LUONG CN , Report này đợc thiết kế nh sau :

b)Form hiển thị lơng theo từng tháng của cán bộ quản lý F_LUONG CB : Sub Form tơng ứng là SUB_LUONG CB , thuộc tính Record Source nh sau :