Thiết kế hệ thống thông tin kế toán vật tư tại Công ty Cổ phần xây dựng số II Thái Nguyên

Đồ án tốt nghiệp Học viện tài LỜI CAM ĐOAN Tơi xin cam đoan cơng trình nghiên cứu Các số liệu, kết nêu đồ án trung thực, xuất phát từ tình hình thực tế đơn vị thực tập Hà Nội, ngày 26 tháng năm 2012 Tác giả đồ án Trần Thùy Anh SV : Trần Thùy Anh GVHD: Th.S Nguyễn Hữu Xuân Trường -1- Lớp: CQ46/41.01 Đồ án tốt nghiệp Học viện tài LỜI CẢM ƠN Trong q trình nghiên cứu hoàn thành đồ án “Xây dựng phần mềm quản lý vật tư Công ty Cổ phần xây dựng số II Thái Nguyên”, em nhận giúp đỡ nhiệt tình thầy giáo hướng dẫn, thầy cô khoa hệ thống thông tin kinh tế, ban lãnh đạo công ty cổ phần xây dựng số II Thái Nguyên, cô Phạm Thị Huệ – kế tốn trưởng, anh chị phòng kế tốn tài Với lòng biết ơn sâu sắc em xin chân thành cảm ơn thầy giáo TS Nguyễn Hữu Xuân Trường tận tình hướng dẫn, giúp đỡ em suốt thời gian qua Thầy bảo cung cấp cho em kiến thức quý báu để em hoàn thành chuyên đề Em xin chân thành cảm ơn thầy cô giáo khoa Hệ thống thông tin kinh tế có giảng bổ ích giảng dạy nhiệt tình suốt thời gian em theo học trường, để em vận dụng tốt kiến thức chun mơn hồn thành tốt đồ án tốt nghiệp Thực đề tài em nhận giúp đỡ tận tình anh chị, đơn vị thực tập, em chân thành cảm ơn ban lãnh đạo Công ty Cổ phần xây dựng số II Thái Nguyên tạo điều kiện giúp đỡ em suốt trình thực tập Em xin cảm ơn gia đình, bạn bè người thân ln động viên hỗ trợ em suốt trình học tập Đồ án hồn thành, song khơng tránh khỏi hạn chế định em mong muốn tiếp tục nhận ý kiến đóng góp thầy cô bạn bè Em xin chân thành cảm ơn! Hà Nội, ngày 26 tháng 04 năm 2012 Sinh viên Trần Thùy Anh SV : Trần Thùy Anh GVHD: Th.S Nguyễn Hữu Xuân Trường -2- Lớp: CQ46/41.01 Đồ án tốt nghiệp Học viện tài MỤC LỤC LỜI CAM ĐOAN LỜI CẢM ƠN MỤC LỤC KÍ HIỆU VÀ VIẾT TẮT PHẦN MỞ ĐẦU .7 Mục đích, phạm vi đề tài .8 Đối tượng nghiên cứu Phương pháp nghiên cứu .8 PHẦN NỘI DUNG 10 CHƯƠNG I: TỔNG QUAN VỀ HTTT VÀ CƠNG TÁC KẾ TỐN VẬT TƯ 10 1.1.TỔNG QUAN HỆ THỐNG THÔNG TIN 10 1.1.1.Sơ lược hệ thống thông tin 10 1.1.2.Chu trình phát triển HTTT .13 1.1.3 Một số khái niệm 16 1.1.4 Giới thiệu chung Microsoft Visual Foxpro (VFP) .19 3.2.TỔNG QUAN VỀ CÔNG TÁC KẾ TOÁN VẬT TƯ 19 3.1.Nhiệm vụ kế toán vật tư 19 4.2.Phân loại vật tư 20 4.3.Nguyên tắc kế toán .23 4.4.Mơ hình hóa hoạt động nhập, xuất kho 26 4.5.Kế toán tổng hợp vật tư 27 CHƯƠNG II: THỰC TRẠNG VÀ GIẢI PHÁP PHÂN TÍCH THIẾT KẾ HTTT KẾ TỐN VẬT TƯ TẠI CƠNG TY CỔ PHẦN XÂY DỰNG SỐ II THÁI NGUYÊN 31 2.1.KHÁI QUÁT VỀ CÔNG TY CỔ PHẦN XÂY DỰNG SỐ II THÁI NGUYÊN 31 SV : Trần Thùy Anh GVHD: Th.S Nguyễn Hữu Xuân Trường -3- Lớp: CQ46/41.01 Đồ án tốt nghiệp Học viện tài 2.1.1.Giới thiệu chung Cơng ty CP xây dựng số II Thái Nguyên 31 2.1.2.Cơ cấu tổ chức công ty 32 2.2.THỰC TRẠNG CƠNG TÁC KẾ TỐN VẬT TƯ TẠI CÔNG TY CỔ PHẦN XÂY DỰNG SỐ II THÁI NGUYÊN 35 2.2.1.Đặc điểm tổ chức máy kế toán 35 2.2.2.Đặc điểm hạch toán Cơng ty .36 2.2.3.Hình thức tổ chức cơng tác kế tốn 36 2.2.4.Hệ thống chứng từ, sổ sách báo cáo áp dụng Công ty 37 2.2.5.Kế tốn tổng hợp vật tư Cơng ty Cổ Phần xây dựng số II Thái Nguyên .38 2.3.NHẬN XÉT VÀ GIẢI PHÁP CHUNG 43 2.3.1 Tổ chức kế toán, sở vật chất, người 43 2.3.2 Hình thức kế tốn 44 2.3.3 Các chứng từ sử dụng 44 2.3.4 Tổ chức sổ kế toán nguyên vật liệu 45 2.3.5 Tổ chức hệ thống báo cáo kế toán nguyên vật liệu 46 2.4.PHÂN TÍCH HỆ THỐNG THƠNG TIN KẾ TỐN VẬT TƯ TẠI CÔNG TY CP XÂY DỰNG SỐ II THÁI NGUYÊN 46 2.4.1.Mục tiêu hệ thống .46 2.4.2.Mơ tả tốn xác định yêu cầu 47 2.4.3.Mơ hình chức hệ thống 55 2.4.4.Mơ hình liệu hệ thống 60 CHƯƠNG III: THIẾT KẾ VÀ XÂY DỰNG HTTT KẾ TOÁN VẬT TƯ TẠI CÔNG TY CỔ PHẦN XÂY DỰNG SỐ II THÁI NGUN .71 3.1.Mơ hình logic 71 3.1.1.Chuyển đổi mơ hình E-R sang mơ hình quan hệ .71 3.1.2.Thiết kế sở liệu vật lý 75 3.1.3.Các giao diện hệ thống .80 SV : Trần Thùy Anh GVHD: Th.S Nguyễn Hữu Xuân Trường -4- Lớp: CQ46/41.01 Đồ án tốt nghiệp Học viện tài 3.2.Giới thiệu chức Module chương trình 94 3.3.Các hạn chế phương hướng phát triển đề tài .94 PHỤ LỤC 95 KẾT LUẬN 107 DANH MỤC TÀI LIỆU THAM KHẢO .108 SV : Trần Thùy Anh GVHD: Th.S Nguyễn Hữu Xuân Trường -5- Lớp: CQ46/41.01 Đồ án tốt nghiệp Học viện tài KÍ HIỆU VÀ VIẾT TẮT Tên thuật ngữ VT HTTT VFP CCDC XDCB SXKD TK NVL N-X-T XD SV : Trần Thùy Anh GVHD: Th.S Nguyễn Hữu Xuân Trường Tên viết tắt Vật tư Hệ thống thông tin Visual Fox Pro Công cụ dụng cụ Xây dựng Sản xuất kinh doanh Tài khoản Nguyên vật liệu Nhập-xuất-tồn Xây dựng -6- Lớp: CQ46/41.01 Đồ án tốt nghiệp Học viện tài PHẦN MỞ ĐẦU Hệ thống thông tin - Một ngành mũi nhọn cơng nghệ thơng tin - có nhiều ứng dụng quản lý kinh tế, đặc biệt quản lý doanh nghiệp Quản trị liệu hệ thống thông tin lĩnh vực quan trọng khoa học công nghệ thông tin, cho phép tin học hóa hệ thống thơng tin quản lý đơn vị cách hiệu phục vụ yêu cầu quản lý kinh doanh Việc ứng dụng máy vi tính để quản lý thông tin phát triển mạnh nước tiên tiến từ thập niên 70 kỷ XX Hiện nay, nước ta vấn đề áp dụng tin học để xử lý thông tin công tác quản lý trở thành nhu cầu thiết, doanh nghiệp bước tin học hóa quản lý thơng tin cho đơn vị Tuy nhiên thời gian qua, việc tin học hóa chưa mang lại hiệu mong muốn doanh nghiệp thường quan tâm tới trang bị hệ thống máy tính đại xây dựng phần mềm quản lý cho Vật tư đối tượng lao động tham gia trực tiếp vào trình sản xuất kinh doanh góp phần chủ yếu cấu thành nên sản phẩm, hàng hóa Chi phí vật tư phần chí phí cấu thành phí sản xuất đối tượng chi phí tập hợp tính giá thành sản xuất đòi hỏi phải có quản lý mặt sô lượng, giá trị vật liệu nhập – xuất kho Cơng tác tổ chức kế tốn vật tư cần thiết cho doanh nghiệp để quản lý chặt chẽ chi phí đầu vào lập kế hoạch điều tiết hàng tồn kho cho hợp lý đảm bảo trình sản xuất diễn liên tục, thường xuyên Việc xây dựng phần mềm để quản lý công tác kế toán vật tư quan trọng cần thiết, để công việc quản lý vật tư thực đồng bộ, hiệu quả, dễ quản lý, kiểm soát từ gián tiếp mang lại lợi ích kinh tế cao cho doanh nghiệp Đối với công ty Cổ phần xây dựng số II, phần mềm kế tốn giúp cho cơng ty tiết kiệm nguồn nhân lực, trình hoạch tốn diễn nhanh chóng, tiết kiệm đươc thời gian chi phí quản lý doanh nghiệp Phần mềm kế toán vật tư kiểm tra khả cung ứng vật tư cho trình sản xuất kinh doanh, in phiếu nhập, phiếu xuất kho từ in báo SV : Trần Thùy Anh GVHD: Th.S Nguyễn Hữu Xuân Trường -7- Lớp: CQ46/41.01 Đồ án tốt nghiệp Học viện tài cáo như: bảng tổng hợp nhập – xuất – tồn, sổ chi tiết vật tư, hàng hóa… cần thiết Do việc xây dựng phần mềm kế tốn vật tư vơ cần thiết có ý nghĩa Xuất phát từ tầm quan trọng cơng tác kế tốn vật tư qua việc khảo sát hoạt động Công ty Cổ phần xây dựng số II, em chọn đề tài: “Thiết kế hệ thống thơng tin kế tốn vật tư Cơng ty Cổ phần xây dựng số II Thái Nguyên”  Mục đích, phạm vi đề tài Cơng ty cổ phần xây dựng số II Thái Nguyên công ty xây lắp, hoạt động lĩnh vực xây dựng thi cơng cơng trình Vì cơng tác kế tốn vật tư cơng tác đóng vai trò quan trọng Yêu cầu đặt phải quản lý tốt, xử lý thông tin vật tư cách xác, nhanh chóng, kịp thời Em chọn đề tài với mong muốn xây dựng hệ thống thơng tin kế tốn vật tư cơng ty phù hợp với thực tế hoạt động tổ chức kế toán vật tư cơng ty, tiết kiệm chi phí, tài ngun máy tính sử dụng thơng tin có hiệu Với chúng em, thực hành thực tế cầu nối lý thuyết thực tiễn, việc thực đề tài ngồi mục đích thực tế giúp cho công ty quản lý tốt mà đồng thời có mục đích giúp cho thân em có kinh nghiệm kiến thức làm việc thực tế Đó điều vơ quan trọng sinh viên năm cuối trường Vì thời gian có hạn độ phức tạp công ty xây dựng Bởi vậy, phạm vi đề tài em em xin phép tập trung chủ yếu vào nghiệp vụ xuất nhập phục vụ cho nhu cầu xây dựng đội xây dựng Mong thầy cô bạn thông cảm  Đối tượng nghiên cứu Đối tượng nghiên cứu đề tài hệ thống thơng tin kế tốn ngun vật tư Công ty cổ phần số II Thái Nguyên  Phương pháp nghiên cứu Để thực đề tài em vận dụng phương pháp nghiên cứu vật biện chứng kết hợp với phương pháp: SV : Trần Thùy Anh GVHD: Th.S Nguyễn Hữu Xuân Trường -8- Lớp: CQ46/41.01 Đồ án tốt nghiệp Học viện tài - Thu thập thông tin - Phương pháp phát triển hệ thống thơng tin quản lý - Phương pháp phân tích hệ thống thông tin quản lý Cùng với khả tư phân tích, kết hợp phương pháp nghiên cứu nắm bắt thực trạng hệ thống thông tin công ty kiến thức chuyên môn chuyên sâu để thực đề tài Kết cấu đề tài Đề tài: “Thiết kế hệ thống thơng tin kế tốn vật tư Công ty Cổ phần xây dựng số II Thái Nguyên” Ngoài phần mở đầu, kết luận danh mục tài liệu tham khảo, đề tài em gồm có chương: Chương 1: Tổng quan HTTT cơng tác kế tốn vật tư Chương 2: Thực trạng giải pháp phân tích thiết kế HTTT kế tốn vật tư Công ty CP xây dựng số II Thái Nguyên Chương 3: Thiết kế xây dựng HTTT kế tốn vật tư Cơng ty CP xây dựng số II Thái Nguyên Với mục tiêu xây dựng hệ thống quản lý thơng tin kế tốn vật tư công ty nhằm đạt hiệu cao hơn, đề tài nghiên cứu cơng tác kế tốn vật tư điều kiện ứng dụng công nghệ tin học Do thời gian không cho phép, em tập trung vào phân tích, thiết kế hệ thống thơng tin cho cơng tác kế toán vật tư thực số chức chương trình, sử dụng ngơn ngữ lập trình hệ quản trị sở liệu Visual Foxpro Mặc dù cố gắng để hồn thiện cơng việc, song thời gian có hạn kinh nghiệm, kiến thức hạn chế nên đề tài nhiều thiếu sót Em mong nhận ý kiến đóng góp thầy bè bạn để đề tài ngày hoàn thiện Em xin chân thành cảm ơn! SV : Trần Thùy Anh GVHD: Th.S Nguyễn Hữu Xuân Trường -9- Lớp: CQ46/41.01 Đồ án tốt nghiệp Học viện tài PHẦN NỘI DUNG CHƯƠNG I: TỔNG QUAN VỀ HTTT VÀ CƠNG TÁC KẾ TỐN VẬT TƯ 1.1 TỔNG QUAN HỆ THỐNG THÔNG TIN 1.1.1 Sơ lược hệ thống thông tin 1.1.1.1 Thông tin hệ thống thông tin * Thơng tin Thơng tin hiểu liệu xử lý thành dạng dễ hiểu, tiện dụng, có ý nghĩa có giá trị đối tượng nhận tin việc định Với mục đích quản lý, doanh nghiệp, thơng tin thường phân theo hai loại chính: Thơng tin tự nhiên: thông tin sinh thu nhận người trực tiếp quan biểu đạt hay cảm thụ tự nhiên người Cụ thể: Thơng tin viết (văn bản) Thơng tin hình ảnh (tranh, ảnh, sơ đồ, …) Thơng tin miệng (lời nói) Thông tin xúc giác, khứu giác, âm thanh, … Thông tin có cấu trúc: thơng tin chắt lọc từ thông tin tự nhiên, cách cấu trúc hóa lại, làm cho đọng hơn, chặt chẽ Việc sử dụng thơng tin có cấu trúc mang lại lợi ích so với thơng tin tự nhiên vì: - Nhờ tính đọng, ngắn gọn mà thơng tin cấu trúc truyền đạt nhanh hơn, với độ tin cậy cao không gian để lưu trữ nhỏ - Nhờ có cú pháp chặt chẽ, thơng tin có cấu trúc cho phép thực tính tốn, xử lý theo giải thuật: từ tập hợp thơng tin nhận cách tự động thông tin ( thông tin kết xuất) SV : Trần Thùy Anh GVHD: Th.S Nguyễn Hữu Xuân Trường - 10 - Lớp: CQ46/41.01 Đồ án tốt nghiệp Học viện tài LOCATE FOR mavt = ALLTRIM(x1) IF FOUND() MESSAGEBOX("Ma vat tu da ton tai",32) thisform.text1.Value = "" thisform.text1.SetFocus() ELSE INSERT INTO vattu(mavt,tenvt,dvt,maloaivt); values (x1,x2,x3,x5) MESSAGEBOX("Ban da them cong",32) ENDIF ENDIF thisform.Refresh thisform.grid1.Refresh - Sự kiện Click “EDIT” SELECT vattu REPLACE tenvt WITH thisform.text2.Value replace dvt WITH thisform.text3.Value REPLACE maloaivt WITH thisform.combo2.Value thisform.Refresh - Sự kiện Click “CLEAR” SELECT vattu x=mavt k=MESSAGEbox("Ban co chac muon xoa khong?",1+32) IF k=1 DELETE ALL FOR mavt==x PACK thisform.grid1.Refresh SELECT dudauky DELETE ALL FOR mavt==x PACK thisform.grid1.Refresh ENDIF - Sự kiện Click nút “CANCEL” thisform.text1.Value = "" thisform.text2.Value = "" thisform.text3.Value = "" thisform.text5.Value = "" thisform.combo2.Value = "" thisform.text1.SetFocus() thisform.them.Enabled = T thisform.text1.Enabled = T Form “Nhập phiếu nhập xuất” - Sự kiện Click nút “SAVE” để thêm phiếunhập xuất SELECT phieunx x1=thisform.text1.Value x2=thisform.text2.Value x3=thisform.text3.Value x4=thisform.text14.Value SV : Trần Thùy Anh GVHD: Th.S Nguyễn Hữu Xuân Trường - 96 - Lớp: CQ46/41.01 Đồ án tốt nghiệp Học viện tài x5=thisform.combo1.Value x6=thisform.combo4.Value x7=thisform.text7.Value x8=thisform.combo2.Value x9 = thisform.text4.Value x10=thisform.combo5.Value x12= thisform.text6.Value x13=thisform.text19.Value x14=thisform.text15.Value x15=thisform.text16.Value x16=thisform.combo6.Value x17=thisform.combo7.Value x18 = thisform.text13.Value IF (EMPTY(x1).or.empty(x3).or.empty(x7).or.empty(x8).or.empty(x16).or.empty(x17 ).or.empty(x15)) MESSAGEBOX("Ban chua dien du thong tin!",0,"warning!") thisform.text1.SetFocus() thisform.Refresh ELSE SELECT phieunx LOCATE FOR ALLTRIM(sophieu)==ALLTRIM(thisform.text1.Value) IF FOUND() MESSAGEBOX("So phieu da ton tai.Nhap lai!",0,"Thong bao") thisform.text1.SetFocus() thisform.Refresh ELSE INSERT INTO phieunx(sophieu,ngaylap,theo,sohd,ngayhd,mann,mang,lydo,makho,mact,ctu_goc,t kno,tkco); VALUES (x1,x3,x2,x14,x4,x5,x6,x7,x8,x10,x15,x16,x17) MESSAGEBOX("Ban da them cong",32) ENDIF ENDIF thisform.Refresh thisform.grid2.Refresh - Sự kiện Click nút “EDIT”để sửa thông tin phiếu nhập xuất SELECT phieunx REPLACE ngaylap WITH thisform.text3.Value REPLACE mann WITH thisform.combo1.Value replace makho WITH thisform.combo2.Value replace theo WITH thisform.text2.Value replace sohd WITH thisform.text15.Value replace ngayhd WITH thisform.text14.Value replace mang WITH thisform.combo4.Value replace lydo WITH thisform.text7.Value replace mact WITH thisform.combo5.Value replace ctu_goc WITH thisform.text16.Value replace tkno WITH thisform.combo6.Value replace tkco WITH thisform.combo7.Value thisform.Refresh thisform.grid2.Refresh SV : Trần Thùy Anh GVHD: Th.S Nguyễn Hữu Xuân Trường - 97 - Lớp: CQ46/41.01 Đồ án tốt nghiệp Học viện tài - Sự kiện Click nút “CLEAR” để xóa phiếu SELECT phieunx x=sophieu k=MESSAGEbox("Ban co chac muon xoa khong?",1+32) IF k=1 DELETE ALL FOR sophieu==x PACK thisform.grid2.Refresh SELECT dongphieu DELETE ALL FOR sophieu==x PACK thisform.grid1.Refresh ENDIF - Sự kiện Click nút “CANCEL” để nhập vào phiếu thisform.text1.Value = "" thisform.text2.Value = "" thisform.text1.SetFocus() thisform.command1.Enabled = T thisform.text1.Enabled = T thisform.combo1.Enabled=.t thisform.combo4.Enabled=.t thisform.text2.Enabled=.t thisform.text14.Enabled=.t thisform.text15.Enabled=.t thisform.Refresh - Sự kiện Click nút “ADD” để thêm chi tiết phiếu nhập xuất SELECT dongphieu x1=thisform.combo8.Value x9=thisform.combo3.Value x11=thisform.text11.Value x12=thisform.text12.Value x13=(x11*x12) IF (EMPTY(x1).or.empty(x9).or.empty(x11).or.empty(x12)) MESSAGEBOX("Ban chua dien du thong tin!",0,"warning!") thisform.text1.SetFocus() thisform.Refresh ELSE INSERT INTO dongphieu(sophieu,mavt,soluong,dongia,thanhtien); VALUES (x1,x9,x11,x12,x13) MESSAGEBOX("Ban da them cong",32) ENDIF thisform.Refresh thisform.grid1.Refresh - Sự kiện Click nút “CHANGE” để thay đối thông tin chi tiết phiếu SELECT dongphieu replace sophieu WITH thisform.combo8.Value REPLACE mavt WITH thisform.combo3.Value REPLACE soluong WITH thisform.text11.Value SV : Trần Thùy Anh GVHD: Th.S Nguyễn Hữu Xuân Trường - 98 - Lớp: CQ46/41.01 Đồ án tốt nghiệp Học viện tài replace dongia WITH thisform.text12.Value replace thanhtien WITH (thisform.text11.Value * thisform.text12.Value) thisform.combo8.Enabled = t thisform.combo5.Enabled = t thisform.Refresh thisform.grid1.Refresh - Sự kiện Click nút “STOP” để nhập chi tiết SELECT dongphieu replace sophieu WITH thisform.combo8.Value REPLACE mavt WITH thisform.combo3.Value REPLACE soluong WITH thisform.text11.Value replace dongia WITH thisform.text12.Value replace thanhtien WITH (thisform.text11.Value * thisform.text12.Value) thisform.combo8.Enabled = t thisform.combo5.Enabled = t thisform.Refresh thisform.grid1.Refresh - Sự kiện click nút “DELETE” SELECT phieunx x=sophieu k=MESSAGEbox("Ban co chac muon xoa khong?",1+32) IF k=1 SELECT dongphieu DELETE ALL FOR sophieu==x PACK thisform.grid1.Refresh ENDIF -Sự kiện Click nút “PLUSH” để cộng số tiền phiếu SELECT dongphieu INDEX on sophieu TO i2 SUM thanhtien FOR dongphieu.sophieu=ALLTRIM(thisform.combo8.Value) TO sotien thisform.text17.Value = sotien SET PROCEDURE TO program\tienchu thisform.text18.Value = tienchu (thisform.text17.Value) thisform.Refresh Form “In phiếu nhập xuất” -Sự kiện load form SET DEFAULT TO e:\thuyanh4101 SET DATE FRENCH CLOSE DATABASES ALL OPEN DATABASE ketoanvt USE phieunx IN USE dongphieu IN USE vattu IN USE taikhoan IN USE kho IN SV : Trần Thùy Anh GVHD: Th.S Nguyễn Hữu Xuân Trường - 99 - Lớp: CQ46/41.01 Đồ án tốt nghiệp USE USE USE USE Học viện tài nhacungcap IN nguoinhan IN bophan IN nguoigiao IN -Sự kiện Click nút “PREVIEW” x1=ALLTRIM(Thisform.combo9.value) IF LEFT(ALLTRIM(thisform.combo9.Value),2)=="pn" SELECT a1.sophieu, a1.ngaylap, a1.theo,a1.sohd,a1.ngayhd,a1.tkco,a1.mang,a1.makho,a1.lydo,a1.ctu_goc,; dongphieu.mavt, dongphieu.soluong,dongphieu.dongia, dongphieu.thanhtien; FROM phieunx a1, dongphieu; WHERE ALLTRIM(dongphieu.sophieu)==ALLTRIM(a1.sophieu) and; ALLTRIM(dongphieu.sophieu)== x1; INTO TABLE temp1 SELECT nguoigiao.mang,nhacungcap.tenncc,nguoigiao.tenng FROM nguoigiao,nhacungcap; WHERE ALLTRIM(nguoigiao.mancc)== ALLTRIM(nhacungcap.mancc); INTO TABLE temp2 SELECT temp2 SELECT temp1.sophieu, temp1.ngaylap, temp1.sohd,temp2.tenng,temp2.tenncc,temp1.lydo,; temp1.theo,temp1.ngayhd,temp1.tkco,kho.tenkho,kho.diachik,temp1.ctu_goc,; temp1.mavt, vattu.tenvt, vattu.dvt,temp1.soluong,temp1.dongia, temp1.thanhtien; FROM temp1, temp2, vattu,kho; WHERE ALLTRIM(temp1.mavt)=ALLTRIM(vattu.mavt) AND; ALLTRIM(temp1.mang)==ALLTRIM(temp2.mang) AND; ALLTRIM(temp1.makho)==ALLTRIM(kho.makho) AND; ALLTRIM(temp1.sophieu)== ALLTRIM(x1); INTO TABLE temp SELECT temp SELECT temp INDEX on mavt TO a5 TOTAL ON temp.mavt TO inphieun FIELDS thanhtien FOR ALLTRIM(temp.sophieu)==x1 USE inphieun IN SELECT dongphieu INDEX on sophieu TO i2 SUM thanhtien FOR dongphieu.sophieu=x1 TO sotien y = sotien SET PROCEDURE TO program\tienchu bangchu = tienchu (y) SV : Trần Thùy Anh GVHD: Th.S Nguyễn Hữu Xuân Trường - 100 - Lớp: CQ46/41.01 Đồ án tốt nghiệp Học viện tài SELECT inphieun REPORT FORM reports\phieunhapkho PREVIEW SELECT USE DELETE SELECT USE DELETE inphieun FILE inphieun.dbf temp FILE temp.dbf ************************************************************************* ELSE SELECT a1.sophieu, a1.ngaylap,a1.tkno,a1.mann,a1.makho,a1.lydo,a1.ctu_goc,; dongphieu.mavt, dongphieu.soluong,dongphieu.dongia, dongphieu.thanhtien; FROM phieunx a1, dongphieu; WHERE ALLTRIM(dongphieu.sophieu)==ALLTRIM(a1.sophieu) and; ALLTRIM(dongphieu.sophieu)== x1; INTO TABLE temp1 SELECT nguoinhan.mann,bophan.tenbp,nguoinhan.tennn FROM nguoinhan,bophan; WHERE ALLTRIM(nguoinhan.mabp)== ALLTRIM(bophan.mabp); INTO TABLE temp2 SELECT temp2 SELECT temp1.sophieu, temp1.ngaylap,temp2.tennn,temp2.tenbp,temp1.lydo,; temp1.tkno,kho.tenkho,kho.diachik,temp1.ctu_goc,;temp1.mavt, vattu.tenvt, vattu.dvt,temp1.soluong,temp1.dongia, temp1.thanhtien; FROM temp1, temp2, vattu,kho; WHERE ALLTRIM(temp1.mavt)=ALLTRIM(vattu.mavt) AND; ALLTRIM(temp1.mann)==ALLTRIM(temp2.mann) AND; ALLTRIM(temp1.makho)==ALLTRIM(kho.makho) AND; ALLTRIM(temp1.sophieu)== ALLTRIM(x1); INTO TABLE temp SELECT temp SELECT temp INDEX on mavt TO a5 TOTAL ON temp.mavt TO inphieux FIELDS thanhtien FOR ALLTRIM(temp.sophieu)==x1 USE inphieux IN SELECT dongphieu INDEX on sophieu TO i2 SUM thanhtien FOR dongphieu.sophieu=x1 TO sotien SV : Trần Thùy Anh GVHD: Th.S Nguyễn Hữu Xuân Trường - 101 - Lớp: CQ46/41.01 Đồ án tốt nghiệp Học viện tài y = sotien SET PROCEDURE TO program\tienchu bangchu = tienchu (y) SELECT inphieux REPORT FORM reports\phieuxuatkho PREVIEW SELECT inphieux USE DELETE FILE inphieux.dbf SELECT temp USE DELETE FILE temp.dbf ENDIF thisform.Refresh Form “Báo cáo nhập xuất tồn” - Sự kiện load form SET DATE FRENCH CLOSE DATABASES ALL PUBLIC makho OPEN DATABASE ketoanvt CLOSE TABLES USE kho IN USE bophan IN USE phieunx IN USE dongphieu IN USE vattu IN USE dudauky IN - Sự kiện Click nút “PREVIEW” makho=thisform.ma_kho.Value tenkho = thisform.ten_kho.Value x1=thisform.text1.Value x2=thisform.text2.Value a=thisform.text3.Value IF (EMPTY(x1) OR EMPTY(x2) OR EMPTY(makho)) MESSAGEBOX("Ban nhap thieu thong tin.",64) ELSE ****************************************************************** IF x1>x2 MESSAGEBOX("Ban nhap khong dung.",16) ELSE ****************************************************************** CREATE CURSOR nxt ; (mavt char(10),; soluongdudk number (20,0),; thanhtiendudk number(20,0),; soluongn number(10,0),; thanhtienn number(20,0),; soluongx number(10,0),; thanhtienx number (20,0),; SV : Trần Thùy Anh GVHD: Th.S Nguyễn Hữu Xuân Trường - 102 - Lớp: CQ46/41.01 Đồ án tốt nghiệp Học viện tài thanhtienduck number(20,0),; soluongduck number(20,0),; dvt char(4),; tenvt char(40)) SELECT vattu SCAN SELECT nxt APPEND BLANK replace mavt WITH vattu.mavt replace tenvt WITH vattu.tenvt replace dvt WITH vattu.dvt SELECT vattu ENDSCAN SELECT dudauky SET FILTER TO ALLTRIM(dudauky.makho)==ALLTRIM(thisform.ma_kho.Value) SCAN SELECT nxt LOCATE FOR ALLTRIM(mavt)==ALLTRIM(dudauky.mavt) IF FOUND() then replace soluongdudk WITH dudauky.soluongdudk replace thanhtiendudk WITH dudauky.soluongdudk*dudauky.dongiadudk ENDIF SELECT dudauky ENDSCAN *********XAC DINH SO TON DAU TAI NGAY1******** SELECT phieunx Select * FROM ; phieunx ; INNER JOIN dongphieu ; ON phieunx.sophieu=dongphieu.sophieu ; WHERE (ALLTRIM(phieunx.makho)==ALLTRIM(thisform.ma_kho.Value))and(phieunx.ngaylap< x1) AND (LEFT(ALLTRIM(phieunx.sophieu),2)=="pn") INTO CURSOR nhap READWRITE SELECT nhap INDEX on mavt TO t1 TOTAL TO tongnhap ON mavt USE tongnhap IN SELECT tongnhap SET FILTER TO ALLTRIM(tongnhap.makho)==ALLTRIM(thisform.ma_kho.Value) SCAN SELECT nxt LOCATE FOR ALLTRIM(mavt)=ALLTRIM(tongnhap.mavt) IF FOUND()then replace soluongn WITH tongnhap.soluong replace thanhtienn WITH tongnhap.thanhtien ENDIF SELECT tongnhap ENDSCAN SV : Trần Thùy Anh GVHD: Th.S Nguyễn Hữu Xuân Trường - 103 - Lớp: CQ46/41.01 Đồ án tốt nghiệp Học viện tài SELECT phieunx.sophieu,phieunx.ngaylap,phieunx.makho,dongphieu.mavt,dongphieu.soluo ng,dongphieu.dongia,; dongphieu.thanhtien; FROM dongphieu,phieunx; WHERE ALLTRIM(phieunx.sophieu)==ALLTRIM(dongphieu.sophieu); AND (ALLTRIM(phieunx.makho)==ALLTRIM(thisform.ma_kho.Value)); and(ngaylap0 COUNT ALL TO dem IF dem>0 REPORT FORM reports\bcnxt PREVIEW ELSE MESSAGEBOX("Khong co du lieu, kiem tra lai phieu nhap xuat!",0+32) ENDIF ENDIF ENDIF SELECT phieunx SET FILTER TO SELECT dudauky SET FILTER TO SELECT tongnhap USE DELETE FILE tongnhap.dbf SELECT tongxuat USE DELETE FILE tongxuat.dbf SELECT nhap USE DELETE FILE nhap.dbf SELECT xuat USE DELETE FILE xuat.dbf SELECT nxt USE DELETE FILE nxt.dbf thisform.text1.Value=CTOD("") thisform.text2.Value = CTOD("") thisform.ma_kho.Value="" thisform.text1.SetFocus() - Sự kiện Click nút “Thoát” thisform.Release SV : Trần Thùy Anh GVHD: Th.S Nguyễn Hữu Xuân Trường - 106 - Lớp: CQ46/41.01 Đồ án tốt nghiệp Học viện tài KẾT LUẬN Tác động mạnh mẽ Cơng nghệ thông tin tạo thay đổi lĩnh vực đời sống kinh tế xã hội Đặc biệt kinh tế thị trường, cạnh tranh vấn đề định đến sống doanh nghiệp ứng dụng tin học vào cơng tác quản lí trở thành tất yếu, hệ thống quản lí Vật tư cơng ty Xây dựng vô quan trọng Đề tài: “Xây dựng phần mềm quản lý Vật tư công ty Cổ phần xây dựng số II Thái Nguyên” thực dựa nhu cầu thực tế với mong muốn giảm bớt vất vả khó khăn việc quản lý vật tư Trong điều kiện định, đề tài đáp ứng số mục tiêu cơng tác quản lý Vật tư như: Xây dựng hồn chỉnh sở liệu quản lý Vật tư Công ty Xây dựng số module công tác quản lý Vật tư Công ty Xây dựng hồn chỉnh thuật tốn điển hình phần mềm Dù cố gắng song đồ án tránh khỏi hạn chế thiếu sót Em kính mong nhận ý kiến đóng góp thầy giáo giáo, chú, anh chị phòng kế tốn Cơng ty, để em có thêm nhiều kinh nghiệm quý giá Một lần em xin chân thành cảm ơn cán phòng kế tốn Cơng ty Cổ phần xây dựng số II Thái Nguyên; thầy cô giáo, đặc biệt thầy giáo Th.s Nguyễn Hữu Xuân Trường tạo điều kiện để em hoàn thành đồ án Hà Nội, ngày 26 tháng 04 năm 2012 Sinh viên: Trần Thùy Anh SV : Trần Thùy Anh GVHD: Th.S Nguyễn Hữu Xuân Trường - 107 - Lớp: CQ46/41.01 Đồ án tốt nghiệp Học viện tài DANH MỤC TÀI LIỆU THAM KHẢO [1] - Ths Vũ Bá Anh Giáo trình Cơ sở liệu (học phần 2), 2006 [2] - Nguyễn Văn Ba Phân tích thiết kế hệ thống thơng tin Nhà xuất Đại học Quốc Gia Hà Nội, 2006 [3] - Nguyễn Văn Vỵ - Phân tích thiết kế hệ thống thông tin quản lý Nhà xuất khoa học tự nhiên công nghệ Hà Nội, 2007 [4] - PGS.TS Ngô Thế Chi – TS Trương Thị Thuỷ - Giáo trình kế tốn Tài - Học viện tài Nhà xuất Tài – Hà Nội, 2007 [5] – PGS.TS Ngô Thế Chi – TS Trương Thị Thuỷ - Giáo trình kế tốn doanh nghiệp - Học viện tài Nhà xuất thống kê – Hà Nội, 2006 [6] Một số tài liệu Công Ty Cổ phần xây dựng số II Thái Nguyên [7] Kế toán doanh nghiệp với Visual Foxpro Nhà xuất Thống Kê [8] Chế độ kế toán doanh nghiệp ban hành theo định số 48/2006/QĐ-BTC ngày 14 tháng 09 năm 2006 Bộ trưởng Bộ Tài [9] - TS Trương Thị Thủy – ThS Nguyễn Thị Hòa – ThS Bùi Thị Phượng Thực hành kế toán tài doanh nghiệp – Học viện tài Nhà xuất tài – Hà Nội, 2009 SV : Trần Thùy Anh GVHD: Th.S Nguyễn Hữu Xuân Trường - 108 - Lớp: CQ46/41.01 Đồ án tốt nghiệp Học viện tài NHẬN XÉT CỦA GIÁO VIÊN HƯỚNG DẪN Họ tên giảng viên hướng dẫn: Th.s Nguyễn Hữu Xuân Trường Nhận xét đồ án ……… ………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… Sinh viên: ………………………………………………… Lớp: ……………………… Khóa: ……………………………………………… Tên đề tài: ……………………………………………… ……………………………………………………………………………………… Điểm: - Bằng số: ………………………………………………………………… - Bằng chữ: ………………………………………………………………… Hà Nội, ngày ……tháng……năm…… Người nhận xét (Ký ghi rõ họ tên) SV : Trần Thùy Anh GVHD: Th.S Nguyễn Hữu Xuân Trường - 109 - Lớp: CQ46/41.01 Đồ án tốt nghiệp Học viện tài NHẬN XÉT CỦA HỘI ĐỒNG CHẤM Nhận xét đồ án Sinh viên: Lớp: Khóa: ……………………………………………… Tên đề tài: Điểm: - Bằng số: ………………………………………………………………… - Bằng chữ: ………………………………………………………………… Hà Nội, ngày ……tháng……năm…… Người nhận xét (Ký ghi rõ họ tên) SV : Trần Thùy Anh GVHD: Th.S Nguyễn Hữu Xuân Trường - 110 - Lớp: CQ46/41.01 ... TÍCH THIẾT KẾ HTTT KẾ TỐN VẬT TƯ TẠI CÔNG TY CỔ PHẦN XÂY DỰNG SỐ II THÁI NGUYÊN 2.1 KHÁI QUÁT VỀ CÔNG TY CỔ PHẦN XÂY DỰNG SỐ II THÁI NGUYÊN 2.1.1 Giới thiệu chung Công ty CP xây dựng số II Thái Nguyên. .. dựng số II, em chọn đề tài: Thiết kế hệ thống thơng tin kế tốn vật tư Công ty Cổ phần xây dựng số II Thái Nguyên  Mục đích, phạm vi đề tài Công ty cổ phần xây dựng số II Thái Nguyên công ty. .. ty CP xây dựng số II Thái Nguyên Chương 3: Thiết kế xây dựng HTTT kế tốn vật tư Cơng ty CP xây dựng số II Thái Nguyên Với mục tiêu xây dựng hệ thống quản lý thông tin kế tốn vật tư cơng ty nhằm