Đang tải... (xem toàn văn)
Xây dựng phần mềm kế toán quản lý tiền lương tại Công ty TNHH Tư Vấn Thiết Kế Giao thông Ngọc Việt.
LỜI MỞ ĐẦU Ngày có nhiều tiến mạnh mẽ công nghệ thông tin, từ tiềm thơng tin có trở thành tài ngun thực tạo thay đổi lớn lĩnh vực sản xuất, kiến trúc thượng tầng, sở hạ tầng cách thức quản lý lĩnh vực xã hội Những năm gần công nghệ thông tin nước ta có bước phát triển lĩnh vực sống lĩnh vực quản lý khác Một ứng dụng quan trọng việc sử dụng hệ thống máy tính vào cơng tác quản lý điều hành cơng việc Việc làm kế tốn máy tính ln mối quan tâm hàng đầu doanh nghiệp nói chung Công ty TNHH Tư Vấn Thiết Kế Giao Thơng Ngọc Việt nói riêng Hiện nay, có nhiều doanh nghiệp sâu vào khai thác phần mềm ứng dụng cho quản lý, bên cạnh xuất nhiều doanh nghiệp cung cấp phần mềm ứng dụng tiện ích Việc quản lý doanh nghiệp khác nên việc cạnh tranh gay gắt, Công ty TNHH Tư Vấn Thiết Kế Giao Thông Ngọc Việt hồ vào tiến trình phát triển chung Tuy thành lập cơng ty nhiều người biết đến,là đối tác tin cậy cơng ty ngồi tỉnh Lào Cai.Với quy mơ, tính phức tạp cơng việc ngày cao nên việc xây dựng hệ thống thông tin quản lý không công việc lập trình đơn giản mà phải xây dựng cách có hệ thống Các giai đoạn phân tích thiết kế phải tiến hành cách tỷ mỷ xác Đặc biệt cần độ xác việc hoạch định tài cơng ty mức thu nhập cơng ty, vấn đề cần quan tâm người làm kế toán doanh nghiệp cơng ty lớn nhỏ nói riêng Có nhiều doanh nghiệp sử dụng phần mềm kế tốn để làm kế tốn máy tính thay cho việc làm kế tốn thủ cơng trước Do cách thức tổ chức hoạt động nhu cầu quản lý doanh nghiệp khác nên nhu cầu cơng tác kế tốn họ khác rõ rệt Công ty TNHH Tư Vấn Thiết Kế Giao Thông Ngọc Việt cơng ty có khả tư vấn thiêt kế cơng trình giao thơng nên việc cập nhật lưu trữ, in ấn liệu thông tin công ty nhu cầu cấp thiết Trong cơng tác kế tốn có vai trị đặc biệt quan trọng Nhận thấy cần thiết đó, thời gian thực tập Công ty TNHH Tư vấn Thiết Kế Giao thông Ngọc Việt với giúp đỡ tận tình nhân viên kế tốn Cơng ty, với giúp đỡ hướng dẫn nhiệt tình Thầy giáo Đỗ Minh Nam, em có điều kiện để thực việc tìm hiểu cơng tác kế tốn tiền lương công ty Xuất phát từ nhu cầu em chọn đề tài “Xây dựng phần mềm kế toán quản lý tiền lương ” cho báo cáo tốt nghiệp với Hệ quản trị Cơ sở liệu Access, lập trình ngơn ngữ Visual Basic 6.0 mục tiêu sâu nghiên cứu tìm hiểu công tác quản lý tiền lương Công ty TNHH Tư Vấn Thiết Kế Giao thông Ngọc Việt Với báo cáo tốt nghiệp em cố gắng để hoàn thành cách tốt nhất.Tuy nhiên với khả trình độ có hạn nên khơng thể tránh khỏi sai xót.Em mong tiếp thu ý kiến đóng góp thầy bạn bè để em có điều kiện bổ sung kiến thức nhằm phục vụ tốt cho công tác thực tế sau Em xin chân thành cảm ơn ! Hưng Yên, ngày 20 tháng 02 năm 2009 Sinh viên Nguyễn Thị Hảo KẾ TỐN TIỀN LƯƠNG VÀ CÁC KHOẢN TRÍCH THEO LƯƠNG * Nội dung báo cáo gồm chương: * CHƯƠNG I : Giới thiệu sở thực tập lựa chọn giới hạn đề tài * CHƯƠNG II : Thực tế cơng tác kế tốn tiền lương khoản trích theo lương cơng ty TNHH Tư Vấn Thiết Kế Giao Thơng Ngọc Việt Phân tích hệ thơng thơng tin xây dựng chương trình hệ quản trị sở liệu SQL server 2005 * CHƯƠNG III : Thiết kế giao diện xây dựng chương trình ngơn ngữ lập trình visualbasic 6.0 CHƯƠNG I : GIỚI THIỆU CƠ SỞ THỰC TẬP, LỰA CHỌN VÀ GIỚI ĐỀ TÀI 1.1Giới thiệu sở thực tập 1.1.1Giới thiệu chung sơ lược công ty Công ty TNHH Tư Vấn Thiết Kế Giao Thông Ngọc Việt doanh nghiệp thuộc loại hình tư nhân thành lập vào hoạt động từ ngày 04 tháng 08 năm 2008 theo giấy phép đăng ký kinh doanh số 0502000744/CTTNHH Giám đốc Vũ Đình Văn đăng ký UBND tỉnh Lào Cai cấp tháng 08 năm 2008 Cơng ty hoạt động ngun tắc: hạch tốn kinh doanh độc lập Giám đốc cơng ty: Vũ Đình Văn Trụ sở kinh doanh: 198 - Hoàng Liên -TP Lào Cai - Lào Cai Công ty TNHH Tư Vấn Thiết Kế Giao Thông Ngọc Việt tư vấn thiết kế cơng trình giao thơng Tuy vào hoạt động cơng ty có sở làm việc, đội ngũ nhân viên có trình độ nghiệp vụ phù hợp với yêu cầu công ty tiến trình phát triển chung đất nước Hệ thống quản lý điều hành trực tiếp Giám đốc Vũ Đình Văn, từ cơng ty nhỏ với số lượng nhân viên Ngọc Việt trở thành công ty vững mạnh phát triển mặt 1.1.2 Đặc điểm hoạt động công ty 1.1.2.1 Một số nét chung công ty - Tên cơng ty: CƠNG TY TNHH TƯ VẤN THIẾT KẾ GIAO THƠNG NGỌC VIỆT - Hình thức sở hữu vốn: Cơng ty TNHH thành viên - Chủ sở hữu: Công ty TNHH Tư Vấn Thiết Kế Giao Thông Ngọc Việt - Số điện thoại: 0203820895 - 0206299927 - Mã số thuế: 5300245218 - Vốn điều lệ công ty lúc đầu 2.000.000.000 đồng, đến tăng lên 3.500.000 đồng - Ngành nghề kinh doanh: Công ty chuyên tư vấn thiết kế cơng trình giao thơng 1.1.2.2 Tổ chức máy hành Cơng ty TNHH Tư Vấn Thiết Kế Giao Thông Ngọc Việt * Ban Giám đốc Ban giám đốc gồm 01 Giám đốc 02 Phó giám đốc giúp việc cho giám đốc Giám đốc trực tiếp điều hành hoạt động công ty với đầy đủ tư cách pháp nhân Giám đốc có quyền ký, ban hành định liên quan đến công ty phải chịu trách nhiệm định trước pháp luật Các phó giám đốc giúp việc cho giám đốc cơng ty, phó giám đốc quyền ban hành định liên quan đến công ty ủy quyền giám đốc Các phó giám đốc chịu trách nhiệm định trước giám đốc pháp luật * Các phịng ban Cơng ty có 05 phịng ban: phịng Tổ chức - Hành Phịng Tài - Kế tốn Phịng vật tư thiết bị Phòng kế hoạch Phòng thiết kế - Phịng Tổ chức - Hành chính: Có nhiệm vụ xây dựng chương trình theo tháng, theo quý, theo năm cơng ty Đồng thời phịng Tổ chức - Hành có nhiệm vụ lưu trữ hồ sơ, văn liên quan đến công ty ( định, văn luật, hồ sơ nhân sự, ) theo quy định - Phịng Tài - Kế tốn: Có nhiện vụ hoạch toán kế toán, hoạch toán thống kê tiêu tài sản, nguồn vốn công ty Lưu trữ hồ sơ, văn liên quan đến hoạt động hoạch toán, kiểm toán, toán, báo cáo theo quy định - Phòng Vật tư thiết bị: Quản lý quy trình xuất, nhập vật tư thiết bị công ty Tổng hợp, thống kê số liệu quy trình xuất, nhập vật tư thiết bị Bảo dưỡng, bảo trì vật tư thiết bị kho - Phòng Kế hoạch: Xây dựng chiến lược ngắn, trung dài hạn cho cơng ty - Phịng Thiết kế: Nghiên cứu, thiết kế cơng trình Lập dự tốn cơng trình - Các đội khảo sát: Đo đạc, khảo sát thực địa 1.1.3 Thực trạng ứng dụng tin học cơng ty Trước tình hình ngày phát triển tin học thành tựu mà công nghệ thông tin đem lại cho tổ chức Công ty TNHH Tư Vấn Thiết kế Giao Thơng Ngọc Việt thấy cần phải tin học hóa công tác công ty Và thực tiễn việc tin học hóa đem lại cho cơng ty thành tưu đáng kể Hiên nay, công ty trang bị 18 máy tính 07 máy in Số máy tính máy in phân bổ cho phịng ban Các phần mềm tin học hỗ trợ sử dụng cơng ty: - Phần mềm kế tốn - Phần mềm quản lý nhân - Phần mềm quản lý vật tư - Phần mềm hỗ trợ soạn thảo văn - Auto cad + Nova 1.2 Lí lựa chọn đề tài mô tả giới hạn đề tài 1.2.1 Lí chọn lựa đề tài : kế tốn tiền lương khoản trích theo lương Trong điều kiện kinh tế thi trường hiên nay, đứng trước bùng nổ kinh tế với sư cạnh tranh gay gắt doanh nghiệp nhu cầu xã hội ngày đa dạng đòi hỏi doanh nghiệp phải củng cố hoàn thiện muốn tồn phát triển Một yếu tố giúp công ty ngày phát triển việc tổ chức máy kế tốn nói chung kế tốn tiền lương khoản trích theo lương nói riêng giúp cho việc hạnh tốn tiền lương phải trả cho người lao động khoản trích theo lương xác Kế tốn tiền lương lao động cung cấp thông tin đầy đủ kịp thời lao động để phục vụ cho công tác quản lý công tác phân phối lao động tiền lương phù hợp Hơn tiền lương để trả cho người lao động phải phù hợp với đặc điểm kinh tế đất nước Ở nước ta, nước phát triển, tiền lương người lao động phải đảm bảo mối thu nhập công nhân chủ doanh nghiệp, người lãnh đào người bị lãnh đào Đảm bảo tiền lương danh nghĩa tiền lương thực tế khơng ngừng tăng.Vì chế độ tiền lương đắn tác động lớn đến việc củng cố hồn thiện doanh nghiệp.Chính ý tưởng phần mền tự động tính lương cho cơng nhân viên nảy sinh để giúp việc tính lương cho kế tốn dễ dàng 1.2.2 Mô tả giới hạn đề tài 1.2.2.1 Mơ tả đề tài Phần mềm kế tốn vật tư hoạt động dựa theo chu trình làm việc kế tốn tiền lương khoản trích theo lương theo phương pháp thủ cơng cơng việc tính tốn, ghi sổ, lập báo cáo chức tự động Nhân viên kế tốn nhập thơng tin cần thiết nghiệp vụ vào phần mềm, phần mềm in bảng lương hàng tháng.,theo tiêu lương theo phòng ban chức vụ Đến cuối kỳ, có yêu cầu, phần mềm đưa cho người dùng báo cáo, mẫu sổ cần thiết liên quan 1.2.2.2 Giới hạn đề tài Như biết có nhiều cách tính lương tính lương theo sản phản, tính lương theo thời gian Nhưng cơng ty phần mềm kế tốn BRAVO nói riêng thi cánh tính lương lương hành nghiệp Thơng tin đầu vào gồm - hồ sơ nhân viên - Bảng chi tiết lương Thông tin đầu - Bảng lương hàng tháng cán công ty -Bảng lương theo chức vụ 1.2.3 Tính cấp thiết đề tài Áp dụng hệ thống thông tin vào lao động kế tốn tiền lương cơng ty TNHH Tư Vấn Thiết Kế Giao Thông Ngọc Việt Công nghệ thông tin với phát triển mạnh mẽ thực tác động đến lĩnh vực đời sống xã hội đặc biệt lĩnh vực quản lý kinh tế, công nghệ thông tin trở thành mục tiêu then chốt, phương tiện để tát ngành lĩnh vực tạo ổn định bước nhảy vọt Công ty áp dụng ứng dụng hệ thống tin học vào trình thu thập xử lý thông tin càn thiết Mục tiêu hệ thống thơng tin kế tốn tiền lương pgương abs đạt nhằm giải nhữmh tồn là: • Xử lý thủ công Phương án dựa nguồn nhân lực có, thiết bị có trì cơng tác theo dõi, quản lý nâng cao suất lao động phận tổ chức lao động tiền lương Phương án giải vấn đề thời gian ngắn chắn gặp nhiều khó khăn theo dõi quản lý cơng tác lao động tiền lương dài hạn Như phương pháp chi phí thấp gạp nhiều hạn chế • Bố trí phận chun trách Vẫn dựa nguyên tắc theo dõi xử lý thủ công tại, sễ bố trí nhân lực chun biệt cho cơng tác Điều tạo co cấu cồng kềnh cho phận tổ chức lao động tiền lương Bên cạnh đó, khối lượng thơng tin lao động tiền lương phát sinh ngày tăng khó giải vấn đề Phương án khó có khả thực lãnh đạo đơn vị khó chấp nhận thêm lao đơng cho phịng tổ chức • Chuyển xử lý tồn máy Đây phương án mà doanh nghiệp dang bước đầu áp dụng, địi hỏi khoản đầu tư cao, xét mặt tổng quát đem lại hiệu lớn cho dài hạn Tuy nhiên, vốn lớn, yêu cầu đào tạo lại toàn đội ngũ cán tổ chức kế toán tiền lương toàn đội ngũ cán người cao tuổi khó khăn Bên cạnh vốn lớn áp dụng sễ dôi nhiều lao đọng cần giải công ăn việc làm nên phương án khó cho q trình thực • Tự viết thực chương trình Tự viết thực chương trình cho riêng cơng tác quản lý lao động tiền lương doanh nghiệp phương án có tính phù hợp cao xét điều kiện doanh nghiệp: - Quy mô đầu tư thích hợp chi bồi thường cho cán lập chương trình, khơng cần đầu tư chi phí cho phần cứng phần mềm - Nhân lực không tăng phù hợp với khả hiên có lao động, tận dụng khả lập trình hiểu biết tin học đội ngũ cán nhân viên - Khả ứng dụng cao: Chương trình viết phù hợp với điều kiên thực tế đơn vị, giải khó khăn đặt với quản lý lao động tiền lương - Nâng cao không ngừng trình độ lao động, bước đệm có điều kiện để chuyển đổi sang xử lý toàn máy Vậy nhận thấy phương pháp tối ưu công ty Em phân công vào phịng kế tốn Phịng đảm nhận số nhiêm vụ sau: - Tổng hợp lên báo cáo hàng tháng, quý năm tình hình hoạt động cơng ty - hoạch tốn kế tốn hịp thời, đầy đủ toàn tài sản, tiền vốn, hoạt động thu chi tài kết hoạt động kinh doanh, đảm bảo tốt cho hoạt động kinh doanh - Lập kế hoạch kinh doanh kế hoạch tài cho cơng ty - Chỉ đạo, kiểm tra giám sát việc quản lý chấp hành chế độ tài kế tốn chung nhà nước Trong nhiều mảng công việc trên, em thấy việc quản lý tiền lương cơng nhân viên phịng hồn tồn làm thủ công, khối lương xử lý liệu lớn, tốn thời gian công sức em mong với kiến thức học em xây dựng chương trình để giúp cho cơng ty anh chị phịng kế tốn nhân giảm bớt thời gian công sức để làm việc có hiệu Vì vậy, em chọn đề tài tài thực tập "Xây dựng phần mềm quản lý tiền lương công ty TNHH Tư Vấn Thiết Kế Giao Thông Ngọc Việt ngơn ngữ lập trình Visual Basic" CHƯƠNG II : THỰC TẾ CƠNG TÁC KẾ TỐN TIỀN LƯƠNG VÀ CÁC KHOẢN TRÍCH THEO LƯƠNG TẠI CƠNG TY TNHH Tư Vấn Và Thiết Kế Giao Thơng Ngọc Việt, PHÂN TÍCH HỆ THỐNG THƠNG, XÂY DƯNG CHƯƠNG TRÌNH TRÊN HỆ QUẢN TRỊ CƠ SỞ DỮ LIỆU SQL 2005 2.1 Khái Niệm, Nhiệm Vụ Của Kế Tốn Tiền Lương Và Các Khoản Trích Theo Lương: 2.1.1 Khái niệm ý nghĩa tiền lương khoản trích theo lương sản xuất kinh doanh: Tiền lương biểu tiền phận sản phẩm xã hội mà người lao động sử dụng để bù đắp hao phí lao động trình sản xuất nhằm tái sản xuất sức lao động Mặt khác, tiền lương phận cấu thành nên giá trị sản phẩm lao động tạo Tùy theo chế quản lý mà tiền lương xác định phận chi phí sản xuất kinh doanh cấu thành nên giá thành sản phẩm hay xác định phận thu nhập - kết tài cuối hoạt động SXKD doanh nghiệp Ngoài tiền lương mà người lao động hưởng theo số lượng chất lượng lao động, để bảo vệ sức khỏe sống lâu dài người lao động, theo chế độ tài hành, người lao động hưởng trợ cấp bảo hiểm xã hội: - Bảo hiểm xã hội trích vào chi phí SXKD nhằm trợ cấp cho trường hợp người lao động tạm thời hay vĩnh viễn sức lao động bị ốm đau, thai sản, tai nạn lao động, hưu trí sức hay tử tuất… - Bảo hiểm y tế để trợ cấp cho việc phòng, chữa bệnh chăm sóc sức khỏe người lao động - Kinh phí cơng đồn để phục vụ chi tiêu cho hoạt động tổ chức cơng đồn nhằm chăm lo, bảo vệ quyền lợi người lao động 2.1.2 Nhiệm vụ kế tốn tiền lương khoản trích theo lương: Để thực chức kế toán việc điều hành quản lý hoạt động doanh nghiệp, kế toán tiền lương, bảo hiểm xã hội, bảo hiểm y tế, kinh phí cơng đồn cần thực nhiệm vụ sau: - Ghi chép, phản ánh, tổng hợp kịp thời, đầy đủ xác số lượng, chất lượng lao động, tình hình sử dụng thời gian lao động kết lao động - Tính toán khoản tiền lương, tiền thưởng, khoản trợ cấp phải trả cho người lao động toán đầy đủ, kịp thời - Kiểm tra việc sử dụng lao động, việc chấp hành sách chế độ lao động, tiền lương, bảo hiểm xã hội…Đồng thời quản lý chặt chẽ việc sử dụng, chi tiêu quỹ tiền lương, quỹ BHXH, BHYT, KPCĐ - Tính tốn, phân bổ hợp lý, xác chi phí tiền lương khoản trích BHXH, BHYT, KPCĐ cho đối tượng liên quan - Định kỳ tiến hành phân tích tình hình sử dụng lao động, tình hình quản lý chi tiêu quỹ tiền lương, quỹ bảo hiểm xã hội, BHYT, KPCĐ từ đề xuất biện pháp khai thác có hiệu tiềm lao động, tăng suất lao động, ngăn ngừa vi phạm kỷ luật lao động, vi phạm sách, chế độ lao động tiền lương khoản trợ cấp bảo hiểm xã hội, bảo hiểm y tế, chế độ sử dụng chi tiêu KPCĐ, chế độ phân phối theo lao động… 2.2 Hình Thức Tính Tiền Lương, Quỹ Tiền Lương Và Các Khoản Trích Theo Lương: 2.2.1 Hình thức tính tiền lương Khi tiến hành phân tích HTTT quản lý tiền lương CBCNV công ty em sử dụng hai phương pháp vấn nghiên cứu tài liệu để thu thập thông tin công ty hoạt động tính lương cơng ty Kết thu thập thơng tin thể sau: Công ty THHH tư vấn thiết kế giao thơng Ngọc Việt có tổng số CBCNV 52 người co 01 Giám đốc, 02 phó Giám đốc, 05 trưởng phịng, 15 nhân viên đào tạo trương ĐH, CĐ có uy tín.Số CBCNV làm việc 05 phịng ban đội khảo sát BEGIN insert into tbHSNV (manv,tennv,ngaysinh,chucvu,MaPB,sotaikhoan,quequan,choo hientai,GioiTinh) values (@_MaNV,@_TenNV,@_NgaySinh,@_ChucVu,@_MaPB,@_SoTaiKhoan ,@_QueQua,@_ChoOHienTai,@_GioiTinh) END If @_DuaVao='S' BEGIN update tbHSNV set MaNV=@_MaNV,TenNV=@_TenNV,NgaySinh=@_NgaySinh ,ChucVu=@_ChucVu,MaPB=@_MaPB,SoTaiKhoan=@_SoT aiKhoan,QueQuan=@_QueQua,ChoOHienTai=@_ChoOHi enTai,GioiTinh = @_GioiTinh where MaNV=@_MaNV END IF @_DuaVao='X' delete from tbHSNV where MaNV=@_MaNV END 3.1.1.4.1 Các thủ tục báo cáo: Việc tạo báo cáo SQL Server 2005 tương đối thuận tiện cách truy vấn tạo bảng tự định nghĩa Sau dùng câu truy vấn để SELECT liệu từ bảng tạm cơng việc cịn lại đưa liệu sang Report Ví dụ Code viết cho báo cáo bảng lương tháng ALTER proc [dbo].[BT] @_DuaVao char(1)='' As IF @_DuaVao='N' SELECT a.MaNV AS MANV,a.TenNV AS TenNV,a.ChucVu AS ChucVu,b.LuongCoBan AS LuongCoBan,b.HeSoLuong AS heSoluong,b.HeSoTrachNhiem as HeSoTrachNhiem, b.PhuCap AS PhuCap,b.Thuong AS Thuong,b.Phat AS Phat,(luongCoBan *(HesoLuong+HeSoTrachNhiem))*0.5 AS BHXH,(luongCoBan * (HesoLuong+HeSoTrachNhiem))*0.1 AS BHYT, (luongCoBan * (HesoLuong+HeSoTrachNhiem))*0 AS KPCD, CASE WHEN (((luongCoBan*(HesoLuong+HeSoTrachNhiem))+PhuCap+Thuong+phat))>5000000 THEN ((luongCoBan*(HesoLuong+HeSoTrachNhiem))+(PhuCap+Thuong+phat))*0.5 Else ((luongCoBan*(HesoLuong+HeSoTrachNhiem))+(PhuCap+Thuong+phat))*0 END AS TTNCN, ((luongCoBan *(HesoLuong+HeSoTrachNhiem))+(PhuCap+Thuong+phat)) AS ThucLinh into tbBT FROM tbHSNV a,tbBangLuong b IF @_DuaVao='X' DROP TABLE TBBT 3.2 Xây dựng giao diện Ý tưởng: Thiết kế chương trình với giao diện giản dị, thân thiện,có thể thêm chỉnh sửa xố Sau hình minh hoạ số Form điển hình -Form Đăng nhập (frmbaomat): Kiểm tra tên NSD mật khẩu, xác cho phép đăng nhập hệ thống phân quyền, không xác thỉ thơng báo khơng cho đăng nhập vào hệ thống: -Form Bảng lương (frmBangLuong) lưu chi tiết thuộc tính nhân viên -Form Hồ Sơ Nhân Viên (frmHSNV) lưu tất các thông tin nhân viên công ty - FROM (frmHSNV) 3.3 Viết Code: -Ý tưởng: Viết sẵn thủ tục, hàm dùng chung, khai báo “Public”các biến dùng chung, nhiều lần Module.bas để viết Code cho form ta việc gọi chúng Ví dụ Code viết from frmHSNV * Khai báo cáo biến dùng chung Module.bas cần lấy việc gọi B/ Các thủ tục hàm trongModule.bas * Option Explicit Public conn As New ADODB.Connection Public rsKQ As New ADODB.Recordset Public Flag As String Public giUserID% Public gsQLNSD$, gsCNHSNV$, gsCNBL$ Public gsCNPB$, gsCNNSD$, gsCNPQ$, gsCNCNCT$ Public gsReport$ * Thủ tục kết nối liệu đóng kết nối Public Sub Connection(M_severname As String, M_Database As String) Dim strconn As String strconn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;" strconn = strconn & "Initial Catalog=" & "CSDL" & ";Data Source=" & "LAPNT" conn.Open strconn End Sub Public Sub CloseConnection() conn.Close Set conn = Nothing End Sub * Hàm lấy mẩu tin recordset đóng Public Function GetRS(strTables, strFields, strCondition, strSort) As ADODB.Recordset strSQL = "SELECT " & strFields & " FROM " & strTables If Trim(strCondition) "" Then strSQL = strSQL & " WHERE " & strCondition End If If Trim(strSort) "" Then strSQL = strSQL & " ORDER BY " & strSort End If RS.Open strSQL, Conn Set GetRS = RS End Function Public Sub CloseRecordset() rsKQ.Close Set rsKQ = Nothing End Sub * Thủ tục tự động khoá /mở điều khiển nhập liệu từ bàn phím hay chuột với tham số vFlag tuỳ chọn Public Sub lockthecontrols(blocked As Boolean, Optional vflag As String) Dim i% With Screen.ActiveForm For i = To Controls.Count - If (.Controls(i).Tag = 1) Then If (TypeOf Controls(i) Is TextBox) Then If (blocked) Then Controls(i).Enabled = False Controls(i).BackColor = vbWhite Else Controls(i).Enabled = True .Controls(i).BackColor = &HFFC0C0 End If If vflag = "X" Then Controls(i) = "" End If End If If (TypeOf Controls(i) Is VSFlexGrid) Then If (blocked) Then Controls(i).Editable = flexEDNone Controls(i).Editable = vbWhite Else Controls(i).Editable = flexEDKbdMouse Controls(i).Editable = vbYellow End If End If End If Next i End With End Sub A / Viết code from tiêu biểu *** FROM (frmHSNV) * Private Sub Form_Activate() Call lockthecontrols(True) vsf.Editable = flexEDNone cmd(0).SetFocus vsftrue lstManv.Visible = False cmdManv.Visible = False lstmapb.Visible = False cmdmapb.Visible = False End Sub * Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys "{Tab}" End If End Sub Private Sub lstmanv_Click() txt(0) = lstManv.Text End Sub * Private Sub cmdmanv_Click() If lstManv.Visible = False Then lstManv.Visible = True lstManv.SetFocus Else lstManv.Visible = False End If End Sub Private Sub vsftrue() vsf.Cols = vsf.FixedCols = vsf.Rows = 17 vsf.FixedRows = vsf.ColWidth(0) = 1500 vsf.ColWidth(1) = 1500 vsf.ColWidth(2) = 1000 vsf.ColWidth(3) = 1200 vsf.ColWidth(4) = 1400 vsf.ColWidth(5) = 1200 vsf.ColWidth(6) = 1500 vsf.ColWidth(7) = 1500 vsf.ColWidth(8) = 500 vsf.ExtendLastCol = True vsf.Cell(flexcpText, 0, 0) = "MÃ nhân viên" vsf.Cell(flexcpText, 0, 1) = "Tên nhân viên" vsf.Cell(flexcpText, 0, 2) = "Ngày sinh" vsf.Cell(flexcpText, 0, 3) = "Chøc vô" vsf.Cell(flexcpText, 0, 4) = "M· Phòng Ban" vsf.Cell(flexcpText, 0, 5) = "Số tài khoản" vsf.Cell(flexcpText, 0, 6) = "Quê quán" vsf.Cell(flexcpText, 0, 7) = "Chỗ hiên tại" vsf.Cell(flexcpText, 0, 8) = "Giớitính" vsf.Cell(flexcpBackColor, 0, 0, 0, 8) = &H80000013 vsf.Cell(flexcpForeColor, 0, 0, 0, 8) = vbBlue vsf.Cell(flexcpFontBold, 0, 0, 0, 8) = True vsf.Cell(flexcpAlignment, 0, 0, 0, 6) = flexAlignLeftCenter vsf.Cell(flexcpAlignment, 0, 0, 0, 8) = flexAlignLeftCenter vsf.Cell(flexcpAlignment, 0, 4, 0, 8) = flexAlignRightCenter vsf.BackColorSel = vbBlue vsf.SelectionMode = flexSelectionByRow vsf.ColAlignment(0) = flexAlignCenterCenter vsf.ColAlignment(1) = flexAlignCenterCenter vsf.ColAlignment(2) = flexAlignCenterCenter vsf.ColAlignment(3) = flexAlignCenterCenter vsf.ColAlignment(4) = flexAlignCenterCenter vsf.ColAlignment(5) = flexAlignCenterCenter vsf.ColAlignment(6) = flexAlignCenterCenter vsf.ColAlignment(7) = flexAlignCenterCenter vsf.ColAlignment(8) = flexAlignCenterCenter End Sub * Private Sub lstmanv_DblClick() Call lockthecontrols(False) lstManv.Visible = False vsf.Editable = flexEDKbdMouse lstManv.Visible = False Dim strFields$, i% strFields = "manv,tennv,ngaysinh,chucvu,MaPB,sotaikhoan,quequan,choohientai,gioitinh" 'vsf.Clear Call Connection("USER\SQLEXPRESS", "CSDL") Set rsKQ = GetRs("tbHSNV", strFields, "", "") i=0 Do Until rsKQ.EOF i=i+1 vsf.TextMatrix(i, 0) = rsKQ("manv") vsf.TextMatrix(i, 1) = rsKQ("tennv") vsf.TextMatrix(i, 2) = rsKQ("ngaysinh") vsf.TextMatrix(i, 3) = rsKQ("chucvu") vsf.TextMatrix(i, 4) = rsKQ("MaPB") vsf.TextMatrix(i, 5) = rsKQ("sotaikhoan") vsf.TextMatrix(i, 6) = rsKQ("quequan") vsf.TextMatrix(i, 7) = rsKQ("choohientai") vsf.TextMatrix(i, 8) = rsKQ("gioitinh") rsKQ.MoveNext Loop CloseRecordset CloseConnection txt(0).Enabled = False cmdManv.Visible = False lstManv.Visible = False vsf.SetFocus End Sub * Private Sub lstmanv_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then lstManv.Visible = False lstManv.Visible = False Dim strFields$, i% strFields "manv,tennv,ngaysinh,chucvu,MaPB,sotaikhoan,quequan,choohientai,gioitinh" 'vsf.Clear Call Connection("USER\SQLEXPRESS", "CSDL") Set rsKQ = GetRs("tbHSNV", strFields, "", "") i=0 Do Until rsKQ.EOF = i=i+1 vsf.TextMatrix(i, 0) = rsKQ("manv") vsf.TextMatrix(i, 1) = rsKQ("tennv") vsf.TextMatrix(i, 2) = rsKQ("ngaysinh") vsf.TextMatrix(i, 3) = rsKQ("chucvu") vsf.TextMatrix(i, 4) = rsKQ("MaPB") vsf.TextMatrix(i, 5) = rsKQ("sotaikhoan") vsf.TextMatrix(i, 6) = rsKQ("quequan") vsf.TextMatrix(i, 7) = rsKQ("choohientai") vsf.TextMatrix(i, 8) = rsKQ("gioitinh") rsKQ.MoveNext Loop CloseRecordset CloseConnection Call lockthecontrols(False) txt(0).Enabled = False cmdManv.Visible = False lstManv.Visible = False vsf.Editable = flexEDKbdMouse vsf.SetFocus End If End Sub * Private Sub lstmapb_DblClick() txt(4) = lstmapb.Text txt(5).SetFocus lstmapb.Visible = False End Sub * Private Sub lstMaPB_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txt(4) = lstmapb.Text txt(5).SetFocus lstmapb.Visible = False End If End Sub Private Sub vsf_Click() Dim i% For i = To txt(i) = vsf.TextMatrix(vsf.Row, i) Next i End Sub * Private Sub vsf_AfterEdit(ByVal Row As Long, ByVal Col As Long) If vsf.Col < vsf.Cols - Then vsf.Col = vsf.Col + ... nét chung công ty - Tên cơng ty: CƠNG TY TNHH TƯ VẤN THIẾT KẾ GIAO THƠNG NGỌC VIỆT - Hình thức sở hữu vốn: Công ty TNHH thành viên - Chủ sở hữu: Công ty TNHH Tư Vấn Thiết Kế Giao Thông Ngọc Việt... tài tài thực tập "Xây dựng phần mềm quản lý tiền lương công ty TNHH Tư Vấn Thiết Kế Giao Thông Ngọc Việt ngơn ngữ lập trình Visual Basic" CHƯƠNG II : THỰC TẾ CƠNG TÁC KẾ TỐN TIỀN LƯƠNG VÀ CÁC KHOẢN... nay, công ty trang bị 18 máy tính 07 máy in Số máy tính máy in phân bổ cho phòng ban Các phần mềm tin học hỗ trợ sử dụng công ty: - Phần mềm kế toán - Phần mềm quản lý nhân - Phần mềm quản lý vật
