(Luận văn học viện tài chính) xây dựng phần mềm kế toán doanh thu bán hàng tại công ty cổ phần thiết bị y tế việt sing

ĐỒ ÁN TỐT NGHIỆP HỌC VIỆN TÀI CHÍNH 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 tốt nghiệp trung thực xuất phát từ tình hình thực tế đơn vị thực tập Tác giả đồ án Đinh Thị Ngọc Ánh SV: ĐINH THỊ NGỌC ÁNH i LỚP: CQ50/41.04 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ĐỒ ÁN TỐT NGHIỆP HỌC VIỆN TÀI CHÍNH LỜI CẢM ƠN Trong q trình nghiên cứu hồn thành đồ án “Xây dựng phần mềm kế tốn doanh thu bán hàng Công ty Cổ phần Thiết bị Y tế Việt Sing”, em nhận giúp đỡ nhiệt tình giáo viên 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 Thiết bị Y tế Việt Sing, chị kế toán trưởng, anh chị phịng kế tốn Với lịng biết ơn sâu sắc em xin chân thành cảm ơn Cô giáo ThS Đồng Thị Ngọc Lan tận tình hướng dẫn, giúp đỡ em suốt thời gian qua Cảm ơn Cô bảo cung cấp cho em kiến thức quý báu để em hoàn thành đồ á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 hoàn thành tốt đồ án tốt nghiệp Thực đề tài em nhận giúp đỡ tận tình anh các 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 Thiết bị Y tế Việt Sing 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 luôn độ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 bạn bè Em xin chân thành cảm ơn! Hà Nội, ngày 05 tháng 05 năm 2016 Sinh viên Đinh Thị Ngọc Ánh SV: ĐINH THỊ NGỌC ÁNH ii LỚP: CQ50/41.04 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ĐỒ ÁN TỐT NGHIỆP HỌC VIỆN TÀI CHÍNH MỤC LỤC LỜI CAM ĐOAN i LỜI CẢM ƠN .ii DANH MỤC VIẾT TẮT vi DANH MỤC HÌNH ẢNH vii LỜI MỞ ĐẦU .1 CHƯƠNG : NHẬN THỨC CHUNG VỀ XÂY DỰNG PHẦN MỀM KẾ TOÁN DOANH THU BÁN HÀNG .4 1.1 Nhận thức chung xây dựng phần mềm kế toán 1.1.1 Khái niệm phần mềm kế toán 1.1.2 Những đặc điểm phần mềm kế toán 1.1.3 Những thành phần phần mềm kế toán .8 1.1.4 Yêu cầu phần mềm kế toán 1.1.5 Công cụ thực đề tài 1.1.6 Quy trình xây dựng phần mềm kế toán .13 1.2 Nhận thức chung kế toán doanh thu bán hàng 17 1.2.1 Những khái niệm kế toán kế toán doanh thu bán hàng 17 1.2.2 Yêu cầu quản lý nghiệp vụ kế toán doanh thu bán hàng .20 1.2.3 Nhiệm vụ kế toán doanh thu bán hàng 20 1.2.4 Các tài khoản kế toán hệ thống chứng từ sử dụng 21 1.2.5 Các hình thức kế tốn hệ thống sổ kế toán 22 1.2.6 Quy trình hạch tốn kế tốn doanh thu bán hàng 29 CHƯƠNG :THỰC TRẠNG VỀ PHẦN MỀM KẾ TỐN DOANH THU BÁN HÀNG TẠI CƠNG TY CỔ PHẦN THIẾT BỊ Y TẾ VIỆT SING .33 SV: ĐINH THỊ NGỌC ÁNH iii LỚP: CQ50/41.04 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ĐỒ ÁN TỐT NGHIỆP HỌC VIỆN TÀI CHÍNH 2.1 Giới thiệu khái qt Cơng ty cổ phần thiết bị Y tế Việt Sing 33 2.1.1.Giới thiệu khái quát Công ty 33 2.1.2.Sơ đồ cấu tổ chức Công ty: 36 2.2.Thực trạng tổ chức cơng tác kế tốn doanh thu bán hàng Công ty Cổ phần thiết bị Y tế Việt Sing 37 2.2.1 Tổ chức máy kế tốn Cơng ty 37 2.2.2 Các hình thức sổ kế toán sử dụng 40 2.2.3 Hệ thống tài khoản chứng từ sử dụng 42 2.2.4 Quy trình luân chuyển chứng từ 43 2.2.5 Quy trình hạch tốn kế tốn .45 2.3 Đánh giá phần mềm kế toán Công ty 47 2.3.1 Về tổ chức máy kế toán, sở vật chất, người 47 2.3.2 Hình thức kế tốn áp dụng .48 2.3.3 Tài khoản sử dụng 48 2.3.4 Các chứng từ sử dụng 49 2.3.5 Tổ chức sổ kế toán 50 2.3.6 Tổ chức hệ thống báo cáo kế tốn 50 2.3.7.Tình hình ứng dụng công nghệ thông tin 51 CHƯƠNG 3: XÂY DỰNG HỆ THỐNG PHẦN MỀM KẾ TOÁN DOANH THU BÁN HÀNG TẠI CÔNG TY CỔ PHẦN THIẾT BỊ Y TẾ VIỆT SING 52 3.1 Phân tích hệ thống 52 3.1.1 Xác định yêu cầu mơ tả tốn 52 3.1.2 Sơ đồ ngữ cảnh 55 3.1.3 Biểu đồ phân cấp chức 56 3.1.4 Ma trận thực thể chức .58 SV: ĐINH THỊ NGỌC ÁNH iv LỚP: CQ50/41.04 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ĐỒ ÁN TỐT NGHIỆP 3.1.5 HỌC VIỆN TÀI CHÍNH Phân tích mơ hình khái niệm logic 61 3.1.6 Mơ hình khái niệm liệu .65 3.1.7 Mơ hình khái niệm liệu E-R 72 3.1.8 Chuyển mơ hình E - R sang mơ hình quan hệ .73 3.2 Thiết kế mơ hình vật lý 76 3.2.1 Thiết kế sở liệu vật lý 76 3.2.2 Hệ thống giao diện tương tác hệ thống 83 3.2.3 Một số form phần mềm 86 3.2.4 Giới thiệu chức chương trình 90 PHẦN KẾT LUẬN 91 DANH MỤC TÀI LIỆU THAM KHẢO 92 SV: ĐINH THỊ NGỌC ÁNH v LỚP: CQ50/41.04 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ĐỒ ÁN TỐT NGHIỆP HỌC VIỆN TÀI CHÍNH DANH MỤC VIẾT TẮT TỪ VIẾT TẮT TÊN ĐẦY ĐỦ BHTN Bảo hiểm thất nghiệp BHXH Bảo hiểm xã hội CKTM Chiết khấu thương mại CSDL Cơ sở liệu GBC Giấy báo có GBN Giấy báo nợ GTGT Giá trị gia tăng HTL Hàng trả lại HTTT Hệ thống thông tin KT Kế tốn KPCĐ Kinh phí cơng đồn TK Tài khoản TS Tài sản TSCĐ Tài sản cố định UNC Ủy nhiệm chi SV: ĐINH THỊ NGỌC ÁNH vi LỚP: CQ50/41.04 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ĐỒ ÁN TỐT NGHIỆP HỌC VIỆN TÀI CHÍNH DANH MỤC HÌNH ẢNH Hình 1.1: Mơ hình hoạt động phần mềm kế tốn .6 Hinh 1.2: Trình tự ghi sổ kế tốn theo hình thức nhật ký- sổ 23 Hình 1.3: Trình tự ghi sổ kế tốn theo hình thức nhật ký chung 24 Hình 1.4: Trình tự ghi sổ kế tốn theo hình thức chứng từ ghi sổ 25 Hình 1.5: Trình tự ghi sổ kế tốn theo hình thức nhật ký chứng từ 26 Hình 1.7: Quy trình hạch tốn doanh thu bán hàng 31 Hình 1.8: Quy trình hạch tốn khoản giảm trừ doanh thu 32 Hình 2.1: Sơ đồ cấu tổ chức Công ty 36 Hình 2.2 Sơ đồ máy kế tốn Cơng ty .38 Hình 2.3: Sơ đồ trình tự ghi sổ kế tốn theo hình thức Nhật ký chung 41 Hình 2.4: Trình tự luân chuyển phiếu thu .43 Hình 2.5: Trình tự luân chuyển phiếu chi .44 Hình 2.6: Trình tự kế tốn bán hàng trực tiếp, thu tiền chưa thu tiền 46 Hình 2.7:Quy trình hạch tốn khoản giảm trừ doanh thu .46 Hình 2.8: Quy trình hạch tốn giá vốn hàng bán bị trả lại 47 Hình 3.1: Sơ đồ ngữ cảnh 55 Hình 3.2: Biểu đồ phân cấp chức 56 Hình 3.3: Ma trận thực thể chức 60 Hình 3.4: Biểu đồ luồng liệu mức 61 Hình 3.5: Phân rã tiến trình “1.0 Tăng doanh thu” 62 Hình 3.6: Phân rã tiến trình “2.0.Giảm doanh thu” .63 Hình 3.7: Biểu đồ tiến trình “3.0Lập báo cáo” 64 Hình 3.8: Mơ hình khái niệm E - R .72 Hình 3.9: Mơ hình quan hệ liệu 75 Hình 3.10 Giao diện chương trình 83 SV: ĐINH THỊ NGỌC ÁNH vii LỚP: CQ50/41.04 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ĐỒ ÁN TỐT NGHIỆP HỌC VIỆN TÀI CHÍNH Hình 3.11: Menu quản trị người dùng 83 Hình 3.12: Menu danh mục 84 Hình 3.13: Menu nghiệp vụ 84 Hình 3.15: Menu trợ giúp 85 Hình 3.16: Form đăng nhập 86 Hình 3.19 Form danh mục khách hàng 87 Hình 3.20 Form danh mục tài khoản .87 Hình 3.21 Form danh mục ngân hàng 88 Hình 3.22: Form hố đơn GTGT 88 Hình 3.23: Form phiếu thu 89 Hình 3.24: Form phiếu chi 89 SV: ĐINH THỊ NGỌC ÁNH viii LỚP: CQ50/41.04 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ĐỒ ÁN TỐT NGHIỆP HỌC VIỆN TÀI CHÍNH LỜI MỞ ĐẦU Tính cấp thiết đề tài Như biết, chức kế tốn cung cấp thơng tin tình hình kinh kế, tài doanh nghiệp cho nhà quản lý Việc thực chức có tốt hay khơng, trước hết phụ thuộc vào tính thường xuyên, kịp thời xác thông tin Ngày theo đà phát triển công nghệ thơng tin, việc đưa máy vi tính vào sử dụng cơng tác kế tốn tương đối phổ biến Tin học hóa cơng tác kế tốn khơng giải vấn đề xử lý cung cấp thơng tin nhanh chóng, thuận lợi mà cịn làm tăng suất lao động máy kế toán, tạo sở để tinh giản máy, nâng cao hiệu hoạt động kế toán Tuy nhiên, thực tế việc sử dụng máy vi tính cơng tác kế toán doanh nghiệp, đặc biệt doanh nghiệp vừa nhỏ cịn mang tính chất hình thức, chưa phát huy hết khả việc sử dụng máy Vì vậy, tin học hóa cơng tác kế tốn điều vô quan trọng, giúp cho việc quản lý doanh nghiệp chặt chẽ hơn, tiết kiệm thời gian, chi phí, từ mà tạo lợi cạnh tranh cho doanh nghiệp Qua trình thực tập Công ty Cổ phần Thiết bị Y tế Việt Sing em nhận thấy rằng: với đặc thù chuyên kinh doanh thiết bị Y tế đa dạng chủng loại mẫu mã; với nhiều đối tác, khách hàng lớn nên việc quản lý kế toán doanh thu bán hàng có hiệu quan trọng ảnh hưởng trực tiếp đến kế hoạch, chiến lược phát triển Công ty doanh thu, lợi nhuận Cơng ty Hệ thống phần mềm kế tốn doanh thu bán hàng tin học hoá số lượng sản phẩm nhiều, đa dạng phong phú địi hỏi cần có phần mềm tin học có khả quản lý cách xác, thống nhất, cung cấp báo cáo, thông tin cách kịp thời cho người sử dụng quản trị hệ thống Vậy nên, em chọn đề tài: “Xây dựng SV: ĐINH THỊ NGỌC ÁNH LỚP: CQ50/41.04 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ĐỒ ÁN TỐT NGHIỆP HỌC VIỆN TÀI CHÍNH phần mềm kế tốn doanh thu bán hàng Công ty Cổ phần Thiết bị Y tế Việt Sing” Mục đích đề tài Được người sử dụng chấp nhận dễ dàng sử dụng Đáp ứng yêu cầu công tác kế tốn cung cấp thơng tin cách xác, kịp thời, đầy đủ, phục vụ hiệu cơng tác kế tốn doanh thu bán hàng Cơng ty Tận dụng tối đa lực tài nguyên (hệ thống máy tính), lực người nhằm nâng cao hiệu cơng tác hạch tốn Đối tượng nghiên cứu: Hệ thống phần mềm kế toán doanh thu bán hàng Công ty Cổ phần Thiết bị Y tế Việt Sing Phạm vi nghiên cứu đề tài: Nghiên cứu hệ thống kế toán kế toán doanh thu bán hàng Cơng ty, sở sử dụng ngơn ngữ lập trình Visual FoxPro để thiết kế ứng dụng cho toán kế toán doanh thu bán hàng đáp ứng thực trạng Công ty Phương pháp nghiên cứu đề tài: Nghiên cứu đề tài theo phương pháp vật biện chứng Thu thập thông tin thông qua vấn, ghi chép, trưng cầu ý kiến chuyên gia kế tốn Phương pháp phân tích hệ thống thơng tin Phương pháp tin học cơng cụ lập trình Visual FoxPro để giải toán phân tích SV: ĐINH THỊ NGỌC ÁNH LỚP: CQ50/41.04 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ĐỒ ÁN TỐT NGHIỆP HỌC VIỆN TÀI CHÍNH PHẦN KẾT LUẬN Sau trình nghiên cứu, tìm hiểu thực trạng cơng tác kế tốn doanh thu bán hàng Cơng ty Cổ phần Thiết bị Y tế Việt Sing, với kiến thức học từ trường lớp, thầy cô bạn bè Với hướng dẫn, giúp đỡ nhiệt tình Cô giáo Th.S Đồng Thị Ngọc Lan, em xây dựng thành cơng phần mềm kế tốn doanh thu bán hàng cho Công ty Với mục tiêu giảm bớt khó khăn cho phận kế tốn bán hàng, đảm bảo xác số liệu lên báo cáo, tiền đề giúp Công ty định hướng xây dựng phần mềm hoàn thiện cho phận kế toán Phần mềm kế toán doanh thu bán hàng xây dựng đề tài giải yêu cầu Bên cạnh kiến thức cịn hạn chế kinh nghiệm thực tế cịn nên phần mềm em không tránh khỏi 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ó nhiều kinh nghiệm quý giá hơn, khắc phục khuyết điểm thêm chức tốt tương lai Một lần em xin cảm ơn Cô giáo Th.S Đồng Thị Ngọc Lan, cô chú, anh chị làm việc tại Công ty Cổ phần Thiết bị Y tế Việt Sing, gia đình, bạn bè giúp em hoàn thành đề tài Sinh viên Đinh Thị Ngọc Ánh SV: ĐINH THỊ NGỌC ÁNH 95 LỚP: CQ50/41.04 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ĐỒ ÁN TỐT NGHIỆP HỌC VIỆN TÀI CHÍNH DANH MỤC TÀI LIỆU THAM KHẢO [1] Nguyễn Văn Ba - Phân tích và thiết kế hệ thống thông tin - Nhà xuất bản Đại học Quốc Gia Hà Nội, Hà Nợi 2006 [2] ThS Vũ Bá Anh - Giáo trình Cơ sở liệu II - Học viện tài [3] GS.TS Ngô Thế Chi, TS Trương Thị Thủy - Giáo trình Kế Tốn Tài Chính - Nhà xuất Tài Chính 2010 [4] Google.com.vn SV: ĐINH THỊ NGỌC ÁNH 96 LỚP: CQ50/41.04 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ĐỒ ÁN TỐT NGHIỆP A HỌC VIỆN TÀI CHÍNH Mẫu chứng từ SV: ĐINH THỊ NGỌC ÁNH 97 LỚP: CQ50/41.04 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ĐỒ ÁN TỐT NGHIỆP B HỌC VIỆN TÀI CHÍNH Một số đoạn code Form lưu liệu Sự kiện load form lưu CLOSE TABLES all OPEN DATABASE data1 Sự kiện click nút chọn thisform.text1.Value=GETDIR("","","Chon thu muc de luu") Sự kiện click nút lưu SET TALK OFF SET SAFETY OFF IF thisform.check1.Value=0 AND thisform.check2.Value=0 thisform.check3.Value=0; AND thisform.check4.Value=0 AND thisform.check5.value=0 ; AND thisform.check7.Value=0 AND thisform.check8.Value=0; MESSAGEBOX("Ban phai chon bang de luu",16) ELSE path=thisform.text1.value IF !EMPTY(path) WAIT WINDOW [Dang thuc hien ] TIMEOUT STORE path + "taikhoan" TO pTemp1 STORE path + "hanghoa" TO pTemp2 STORE path + "khachhang" TO pTemp3 STORE path + "nganhang" TO pTemp4 STORE path + "giaybao" TO pTemp5 STORE path + "hoadon" TO pTemp6 STORE path + "phieutc" TO pTemp7 STORE path + "matkhau" TO pTemp8 IF thisform.check1.Value==1 USE table\taikhoan IN SELECT taikhoan COPY TO EVALUATE("pTemp1") ENDIF IF thisform.check2.Value==1 USE table\hanghoa IN SELECT hanghoa COPY TO EVALUATE("pTemp2") SV: ĐINH THỊ NGỌC ÁNH 98 AND LỚP: CQ50/41.04 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ĐỒ ÁN TỐT NGHIỆP HỌC VIỆN TÀI CHÍNH ENDIF IF thisform.check3.Value==1 USE table\khachhang IN SELECT khachhang COPY TO EVALUATE("pTemp3") ENDIF IF thisform.check4.Value==1 USE table\nganhang IN SELECT nganhang COPY TO EVALUATE("pTemp4") ENDIF IF thisform.check5.Value==1 USE table\giaybao IN SELECT giaybao COPY TO EVALUATE("pTemp5") ENDIF IF thisform.check6.Value==1 USE table\hoadon IN SELECT hoadon COPY TO EVALUATE("pTemp6") ENDIF IF thisform.check7.Value==1 USE table\phieutc IN SELECT phieutc COPY TO EVALUATE("pTemp7") ENDIF IF thisform.check8.Value==1 USE free\matkhau IN SELECT matkhau COPY TO EVALUATE("pTemp8") ENDIF MESSAGEBOX("Sao luu cong",0) ENDIF ENDIF Form phục hồi liệu Sự kiện click nút phục hồi SET TALK OFF SV: ĐINH THỊ NGỌC ÁNH 99 LỚP: CQ50/41.04 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ĐỒ ÁN TỐT NGHIỆP HỌC VIỆN TÀI CHÍNH SET SAFETY OFF IF thisform.check1.Value=0 AND thisform.check2.Value=0 thisform.check3.Value=0; AND thisform.check4.Value=0 AND thisform.check5.value=0 ; AND thisform.check7.Value=0 AND thisform.check8.Value=0 MESSAGEBOX("Ban phai chon bang can phuc hoi",16) ELSE newpath=thisform.text1.value IF !EMPTY(newpath) WAIT WINDOW [Dang thuc hien ] TIMEOUT STORE newpath + "taikhoan" TO pTemp1 STORE newpath + "hanghoa" TO pTemp2 STORE newpath + "khachhang" TO pTemp3 STORE newpath + "nganhang" TO pTemp4 STORE newpath + "giaybao" TO pTemp5 STORE newpath + "hoadon" TO pTemp7 STORE newpath + "phieutc" TO pTemp8 STORE newpath + "matkhau" TO pTemp9 IF thisform.check1.Value==1 USE table\taikhoan IN SELECT taikhoan ZAP APPEND FROM EVALUATE("pTemp1") ENDIF IF thisform.check2.Value==1 USE table\hanghoa IN SELECT hanghoa ZAP APPEND FROM EVALUATE("pTemp2") ENDIF IF thisform.check3.Value==1 USE table\khachhang IN SELECT khachhang ZAP APPEND FROM EVALUATE("pTemp3") ENDIF IF thisform.check4.Value==1 USE table\nganhang IN SELECT nganhang SV: ĐINH THỊ NGỌC ÁNH 100 AND LỚP: CQ50/41.04 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ĐỒ ÁN TỐT NGHIỆP HỌC VIỆN TÀI CHÍNH ZAP APPEND FROM EVALUATE("pTemp4") ENDIF IF thisform.check5.Value==1 USE table\giaybao IN SELECT giaybao ZAP APPEND FROM EVALUATE("pTemp5") ENDIF IF thisform.check6.Value==1 USE table\hoadon IN SELECT hoadon ZAP APPEND FROM EVALUATE("pTemp6") ENDIF IF thisform.check7.Value==1 USE table\phieutc IN SELECT phieutc ZAP APPEND FROM EVALUATE("pTemp7") ENDIF IF thisform.check8.Value==1 USE table\matkhau IN SELECT matkhau ZAP APPEND FROM EVALUATE("pTemp8") ENDIF MESSAGEBOX("Phuc hoi cong",0) ELSE = MESSAGEBOX("Ban phai chon duong dan.",16,"CHU Y") ENDIF ENDIF Form hoá đơn GTGT Sự kiện click nút tạo hoá đơn IF this.Caption='Tạo hoá đơn' this.Caption = 'Lưu' thisform.text1.ReadOnly= F thisform.text2.ReadOnly= F SV: ĐINH THỊ NGỌC ÁNH 101 LỚP: CQ50/41.04 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ĐỒ ÁN TỐT NGHIỆP HỌC VIỆN TÀI CHÍNH thisform.text4.ReadOnly= F thisform.text5.ReadOnly= F thisform.text6.ReadOnly= F thisform.text7.ReadOnly= F thisform.text9.ReadOnly= F thisform.text10.ReadOnly= F thisform.text11.ReadOnly= F thisform.text12.ReadOnly= F thisform.text13.ReadOnly= F thisform.text14.ReadOnly= F thisform.text15.ReadOnly= F thisform.combo1.ReadOnly= F thisform.combo2.ReadOnly= F thisform.combo3.ReadOnly= F thisform.combo4.ReadOnly= F thisform.combo5.ReadOnly= F thisform.combo6.ReadOnly= F thisform.command5.Enabled=.T thisform.command6.Enabled=.T thisform.command7.Enabled=.T ******************************* thisform.text1.value='' thisform.text4.value='' thisform.text5.value='' thisform.text6.value='' thisform.text7.value='' thisform.text9.value='' thisform.text2.value= DATE() *CTOD('') thisform.text11.value='' thisform.text10.value=0 thisform.text12.value=0 thisform.text13.value=0 thisform.text14.value=0 thisform.text15.value=0 thisform.combo5.setfocus ********************************************** SELECT hoadon SV: ĐINH THỊ NGỌC ÁNH 102 LỚP: CQ50/41.04 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ĐỒ ÁN TỐT NGHIỆP HỌC VIỆN TÀI CHÍNH Public x,i,j j='' GO BOTTOM x=STR((VAL(RIGHT(ALLTRIM(sohdb),5))+1),5) FOR i=1 TO LEN(x) IF SUBSTR(x,i,1)=' ' j=j+'0' ENDIF ENDFOR x='HD'+j+ALLTRIM(x) thisform.text1.Value=x tongtien1=0 *********************************************************** SELECT donghoadon SET FILTER TO ALLTRIM(sohdb)=ALLTRIM(thisform.text1.Value) *********************************************************** ELSE this.Caption='Tao hoa don' SELECT hoadon APPEND BLANK replace sohdb WITH thisform.text1.value replace WITH thisform.text2.value replace makh WITH thisform.combo5.value replace noidung WITH thisform.text7.value replace hinhthuctt WITH thisform.combo1.value replace tkno WITH thisform.combo2.value replace tkco WITH thisform.combo3.value replace tongtien WITH thisform.text12.value replace chietkhau WITH thisform.text14.value replace thuegtgt WITH IIF(thisform.combo4.value='0%',0,IIF(thisform.combo4.value='5%',0.05,IIF(thisfor m.combo4.value='10%',0.1,0.2))) thisform.grid1.Refresh ******************************* thisform.text1.ReadOnly= T thisform.text2.ReadOnly= T SV: ĐINH THỊ NGỌC ÁNH 103 LỚP: CQ50/41.04 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ĐỒ ÁN TỐT NGHIỆP HỌC VIỆN TÀI CHÍNH thisform.text4.ReadOnly= T thisform.text5.ReadOnly= T thisform.text6.ReadOnly= T thisform.text7.ReadOnly= T thisform.text9.ReadOnly= T thisform.text10.ReadOnly= T thisform.text11.ReadOnly= T thisform.text12.ReadOnly= T thisform.text13.ReadOnly= T thisform.text14.ReadOnly= T thisform.text15.ReadOnly= T thisform.combo1.ReadOnly= T thisform.combo2.ReadOnly= T thisform.combo3.ReadOnly= T thisform.combo4.ReadOnly= T thisform.combo5.ReadOnly= T thisform.combo6.ReadOnly= T thisform.command5.Enabled=.F thisform.command6.Enabled=.F thisform.command7.Enabled=.F ENDIF Form báo cáo tổng hợp doanh thu Sự kiện click nút xem SET SAFETY OFF ngay1=thisform.text1.Value ngay2=thisform.text2.value CREATE TABLE b1 FREE (mahh c(12),tenhh c(50),makh c(20), tenkh c(60), dt n(12,2),gtdt n(12,2)) USE hoadon IN SV: ĐINH THỊ NGỌC ÁNH 104 LỚP: CQ50/41.04 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ĐỒ ÁN TỐT NGHIỆP HỌC VIỆN TÀI CHÍNH SELECT hoadon INDEX on ALLTRIM(makh) TO i1 FOR ngay>=ngay1 and ngay=ngay1 and ngayphieu=ngay1 and ngayct=ngay1 and ngay=ngay1 and ngayphieu=ngay1 and ngayct