Khoa: Hệ thống thông tin kinh tế Đồ án tốt nghiệp LỜI CAM ĐOAN Em xin cam đoan cơng trình nghiên cứu riêng em 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ế Cơng ty Cổ phần Ba An Sinh viên Phạm Văn Phương SV: Phạm Văn Phương Lớp: K43/41.02 Khoa: Hệ thống thông tin kinh tế Đồ án tốt nghiệp LỜI CẢM ƠN Sau năm học tập nghiên cứu mái trường Học Viện Tài Chính, em thầy giáo, cô giáo trường trang bị cho kiến thức để làm hành trang bước vào sống sau tốt nghiệp trường Để có ngày hôm nay, với cố gắng nỗ lực thân cịn có dạy dỗ, dìu dắt, bảo tận tình thầy giáo, giáo.Em ghi nhớ công ơn thầy,các cô Đồ án em hoàn thành nhờ giúp đỡ nhiều thầy, cơ.Trước tiên, em xin tỏ lịng biết ơn sâu sắc tới thầy giáo Ths: Vũ Bá Anh, người trực tiếp hướng dẫn đồ án cho em Trong trình làm đồ án, thầy bảo tận tình bước để em có định hướng đắn để triển khai đồ án Em xin gửi lời cảm ơn chân thành tới thầy cô giáo mơn Tin học tài kế tốn người truyền dạy cho em kiến thức bản, lý luận chung để lựa chọn đề tài đồ án hồn thành Em xin gửi lời cảm ơn tới lãnh đạo công ty Cổ phần Ba An tạo điều kiện cho em Được thực tập phịng tài chính-kế tốn cơng ty, em cô chú, anh chị bảo, giúp đỡ em nhiều, nhờ mà em hiểu rõ cơng việc thực tiễn liên quan đến đề tài nghiên cứu mình, giúp em hồn thành đồ án Cuối cùng, em xin gửi lời cảm ơn sâu sắc tới gia đình, bạn bè người giúp đỡ động viên em suốt trình thực đồ án Tuy cố gắng đồ án không tránh khỏi thiếu sót, hạn chế Em mong tiếp tục nhận ý kiến đóng góp thầy giáo, giáo, bạn đọc để đồ án ngày hồn thiện Em xin chân thành cảm ơn! SV: Phạm Văn Phương Lớp: K43/41.02 Khoa: Hệ thống thông tin kinh tế Đồ án tốt nghiệp Bảng từ viết tắt Viết tắt HTTT GTGT SXKD QLDN XDCB CB_CNV SV: Phạm Văn Phương Tên đầy đủ Hệ thống thông tin Gía trị gia tăng Sản xuất kinh doanh Quản lý doanh nghiệp Xây dựng Cán công nhân viên Lớp: K43/41.02 Khoa: Hệ thống thông tin kinh tế Đồ án tốt nghiệp MỤC LỤC LỜI MỞ ĐẦU PHẦN NỘI DUNG CHƯƠNG .8 LÝ LUẬN CHUNG VỀ PHÂN TÍCH, THIẾT KẾ HỆ THỐNG THƠNG TIN VÀ CƠNG TÁC KẾ TỐN CHI TIẾT VẬT TƯ TRONG DOANH NGHIỆP 1.1 HỆ THỐNG THÔNG TIN TRONG DOANH NGHIỆP 1.2 LÝ LUẬN CHUNG VỀ CƠNG TÁC HẠCH TỐN CHI TIẾT VẬT TƯ 14 CHƯƠNG 21 TÌNH TRẠNG THỰC TẾ CƠNG TÁC KẾ TỐN CHI TIẾT VẬT TƯ TẠI CÔNG TY CỔ PHẦN BA AN .21 2.1 KHÁI QUÁT VỀ CÔNG TY CỔ PHẦN BA AN .21 2.2 THỰC TRẠNG TỔ CHỨC CÔNG TÁC KẾ TỐN VẬT TƯ TẠI CƠNG TY 26 2.3 NHẬN XÉT VÀ ĐÁNH GIÁ VỀ CÔNG TÁC KẾ TỐN CHI TIẾT VẬT TƯ TẠI CƠNG TY 28 2.4 PHÂN TÍCH HỆ THỐNG 28 CHƯƠNG 47 THIẾT KẾ ỨNG DỤNG CỦA BÀI TOÁN KẾ TOÁN CHI TIẾT VẬT TƯ TẠI CÔNG TY CỔ PHẦN BA AN 47 3.1 THIẾT KẾ CHƯƠNG TRÌNH ỨNG DỤNG 47 3.2 GIỚI THIỆU CÁC CHỨC NĂNG CHƯƠNG TRÌNH 71 KẾT LUẬN 72 TÀI LIỆU THAM KHẢO .73 PHỤ LỤC 74 SV: Phạm Văn Phương Lớp: K43/41.02 Khoa: Hệ thống thông tin kinh tế Đồ án tốt nghiệp LỜI MỞ ĐẦU I Lý chọn đề tài Cùng với phát triển vượt bậc khoa học kỹ thuật, tin học ngày trở thành lĩnh vực quan trọng, thiết yếu thời đại ngày Bất lĩnh vực sống người ta phải ứng dụng tin học để nâng cao chất lượng hoạt động Một máy tính điện tử giúp người ta thực hàng chục triệu phép tính vịng giây, giảm thiểu thời gian công sức người bỏ nên tiết kiệm chi phí nhân cơng, lại có thơng tin nhanh chóng, xác, kịp thời Cùng với phát triển công ty, khối lượng công việc lớn công ty khiến cho việc ứng dụng tin học vào trình quản lý tất yếu khách quan giúp nâng cao hiệu hoạt động quản lý doanh nghiệp Vì vậy, ngày doanh nghiệp coi việc ứng dụng tin học trình sản xuất kinh doanh việc phải làm nên làm Thực tế cho thấy, từ áp dụng phần mềm tin học, hoạt động quản lý ngày nhẹ nhàng, hiệu quả, xác đem lại thành công lớn cho nhiều doanh nghiệp Tuy nhiên, để có phần mềm phù hợp với cơng tác quản lý, phù hợp với hoạt động doanh nghiệp lại vấn đề dễ dàng Khi nghiên cứu, khảo sát hoạt động sản xuất, kinh doanh Công ty cổ phần Ba An, em nhận thấy hệ thống quản lý nguyên liệu, vật liệu công ty phức tạp, khối lượng công việc nhiều, đị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 Chính vậy, em chọn đề tài “Thiết kế hệ thống thơng kế tốn chi tiết vật tư cơng ty cổ phần BA AN” II.Mục đích phạm vi đề tài * Hoàn thiện thêm hệ thống thông tin quản lý vật tư công ty cổ phần Ba An Qua hình thành phần mềm trợ giúp trình quản lý thực cơng tác kế tốn vật tư nhằm nâng cao chất lượng quản lý vật tư đáp ứng nhu cầu sản xuất cho doanh nghiệp * Được người sử dụng chấp nhận SV: Phạm Văn Phương Lớp: K43/41.02 Khoa: Hệ thống thông tin kinh tế Đồ án tốt nghiệp * Cung cấp thơng tin cách xác, kịp thời, đầy đủ, nhanh chóng, phục vụ tốt q trình quản lý kho, phục vụ tốt cho phận sản xuất, phận Kế hoạch sản xuất * Hỗ trợ cho nhân viên kế toán thủ kho việc quản lý nguyên liệu, vật liệu Công ty * Giúp Cơng ty nâng cao doanh thu, tiết kiệm chi phí nhờ giảm bớt đội ngũ nhân công, tiết kiệm chi phí thất thốt, lãng phí ngun liệu, vật liệu, giảm thiểu sai sót xảy trình quản lý nguyên liệu, vật liệu III Đối tượng nghiên cứu * Hệ thống quản lý vật tư Công ty * Hệ thống kho Công ty IV Phương pháp nghiên cứu *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ý V Kết cấu đồ án Đề tài :“Thiết kế hệ thống thơng tin kế tốn chi tiết vật tư cơng ty cổ phần Ba An” *Đồ án gồm có chương Chương 1: Lý luận chung phân tích, thiết kế hệ thống thơng tin cơng tác kế tốn chi tiết vật tư doanh nghiệp Chương 2: Tình trạng thực tế cơng tác kế tốn chi tiết vật tư công ty cổ phần Ba An Chương 3: Thiết kế ứng dụng toán kế toán chi tiết vật tư công ty cổ phần Ba An Để hoàn thành đồ án, em nhận giúp đỡ nhiệt tình cơ, chú, anh chị phịng kế tốn cơng ty cổ phần Ba An Em xin chân thành cảm ơn dạy dỗ, bảo tận tình thầy giáo giáo q trình học tập thực đồ án, đặc biệt thầy giáo - ThS Vũ Bá Anh hướng dẫn em chu đáo, nhiệt tình thời gian qua SV: Phạm Văn Phương Lớp: K43/41.02 Khoa: Hệ thống thông tin kinh tế Đồ án tốt nghiệp Tuy cố gắng để hoàn thiện đề tài cách tốt nhất, đề tài khơng tránh khỏi thiếu sót, em mong nhận ý kiến đóng góp Thầy giáo, Cô giáo để đồ án em hoàn thiện Sinh viên: Phạm Văn Phương SV: Phạm Văn Phương Lớp: K43/41.02 Khoa: Hệ thống thông tin kinh tế Đồ án tốt nghiệp PHẦN NỘI DUNG CHƯƠNG LÝ LUẬN CHUNG VỀ PHÂN TÍCH, THIẾT KẾ HỆ THỐNG THƠNG TIN VÀ CƠNG TÁC KẾ TỐN CHI TIẾT VẬT TƯ TRONG DOANH NGHIỆP 1.1 HỆ THỐNG THÔNG TIN TRONG DOANH NGHIỆP 1.1.1 Hệ thống thông tin quản lý doanh nghiệp Thông tin yếu tố quan trọng tồn phát triển tổ chức nói chung, doanh nghiệp nói riêng; điều kiện nay, cạnh tranh ngày gay gắt liệt, thông tin cần phải tổ chức thành hệ thống khoa học, giúp cho nhà quản lý khai thác thơng tin cách triệt để Hệ thống thông tin xác định tập hợp thành phần tổ chức để thu thập, xử lý, lưu trữ, phân phối biểu diễn thông tin thông tin trợ giúp việc định kiểm soát tổ chức Hệ thống thơng tin cịn giúp nhà quản lý phân tích xác vấn đề, nhìn nhận cách trực quan đối tượng phức tạp, tạo sản phẩm Hệ thống thông tin quản lý: phát triển sử dụng Hệ thống thơng tin có hiệu tổ chức trợ giúp hoạt động quản lý tổ chức lập kế hoạch, kiểm tra thực hiện, tổng hợp làm báo cáo, làm cho định quản lý sở quy trình, thủ tục cho trước Nó sử dụng thơng tin đầu vào hệ xử lý giao dịch cho thông tin đầu báo cáo định kì hay theo u cầu Ứng dụng HTTT cơng nghệ có liên quan tới doanh nghiệp đối tượng rộng Xem xét tính đa dạng doanh nghiệp phạm vi công nghệ hệ thống thơng tin hỗ trợ cho chúng Có vơ số ứng dụng áp dụng Úng dụng HTTT quản lý Doanh nghiệp như: - HTTT quản lý tiền lương - HTTT quản lý nhân - HTTT quản lý vật tư SV: Phạm Văn Phương Lớp: K43/41.02 Khoa: Hệ thống thông tin kinh tế Đồ án tốt nghiệp - HTTT kế toán - HTTT quản lý công văn - đến 1.1.2 HTTT quản lý vật tư doanh nghiệp HTTT quản lý vật tư phân hệ thuộc HTTT quản lý kinh doanh sản xuất nên có chức nhiệm vụ HTTT quản lý kinh doanh sản xuất 1.1.2.1 Chức năng, nhiệm vụ HTTT quản lý vật tư trợ giúp cho hoạt động quản lý tổ chức lập kế hoạch, kiểm tra thực hiện, tổng hợp làm báo cáo vật tư sở quy trình thủ tục cho trước Từ góp phần làm cho q trình sản xuất kinh doanh tổ chức tốt 1.1.2.2 Tổ chức hệ thống thông tin quản lý vật tư Với chức năng, nhiệm vụ vậy, HTTT quản lý vật tư gồm hệ thống thơng tin chính: Thơng tin hoạch định nhu cầu nguyên vật liệu: thông tin mức vật tư dự trữ cần cho kế hoạch sản xuất Với thông tin cụ thể mức hàng dự trữ, kế hoạch sản xuất, báo giá vật tư để trả lời vấn đề: vật liệu cần cho sản xuất, số lượng bao nhiêu, cần… Thông tin Nhập kho, Xuất kho, Mức dự trữ: cung cấp thông tin việc nhập vật tư, xuất vật tư cho sản xuất tính tốn lượng tồn để đảm bảo sẵn sàng vật tư cho q trình sản xuất Thơng tin Kiểm tra việc thực kế hoạch sử dụng vật liệu: phản ánh việc sử dụng vật tư hiệu kế hoạch đặt hay không để có báo cáo đánh giá xác phần hoạt động tổ chức 1.1.3 Vòng đời phát triển HTTT HTTT xây dựng sản phẩm loạt hoạt động gọi phát triển hệ thống Quá trình phát triển HTTT kể từ lúc sinh đến tàn lụi gọi vòng đời phát triển hệ thống Vòng đời phát triển hệ thống phương pháp luận cho việc phát triển HTTT SV: Phạm Văn Phương Lớp: K43/41.02 Khoa: Hệ thống thông tin kinh tế Đồ án tốt nghiệp Hình Mơ hình thác nước vòng đời hệ thống 1.1.3.1 Khởi tạo lập kế hoạch dự án Hai hoạt động khởi tạo lập kế hoạch dự án phát ban đầu thức vấn đề hệ thống hội nó, trình bày rõ lý tổ chức cần hay khơng cần phát triển HTTT Tiếp đến xác định phạm vi cho hệ thống dự kiến 1.1.3.2 Phân tích hệ thống Phân tích hệ thống nhằm để xác định nhu cầu thơng tin tổ chức, cung cấp liệu sở cho việc thiết kế HTTT sau này, bao gồm công việc - Xác định phân tích u cầu: Chính mà người sử dụng mong đợi hệ thống mang lại - Nghiên cứu yêu cầu cấu trúc phù hợp với mối quan hệ bên trong, bên giới hạn đặt lên dịch vụ cần thực - Tìm giải pháp cho thiết kế ban đầu để đạt yêu cầu đặt ra, so sánh để lựa chọn giải pháp thiết kế tốt đáp ứng yêu cầu với chi phí, nguồn lực, thời gian kỹ thuật cho phép để tổ chức thông qua 1.1.3.3 Thiết kế hệ thống Thiết kế hệ thống q trình tìm giải pháp cơng nghệ thông tin để đáp ứng yêu cầu đặt SV: Phạm Văn Phương 10 Lớp: K43/41.02 Khoa: Hệ thống thông tin kinh tế Đồ án tốt nghiệp IF EMPTY(thisform.text4.Value) =MESSAGEBOX("hẵ g¸n chøc vơ cho ngêi dïng!",1+16) else SELECT nguoidung LOCATE FOR UPPER(ten_dangnhap)=UPPER(ALLTRIM(thisform.text1.Value)) IF FOUND() =MESSAGEBOX("Ngêi dïng đà tồn !",0+16) ELSE APPEND BLANK REPLACE ten_dangnhap WITH thisform.text1.Value,mat_khau WITH thisform.text2.Value, quyen WITH thisform.combo1.value,chuc_vu WITH thisform.text4.value =MESSAGEBOX("cËp nhật thành công !",0,32) thisform.text1.Value="" thisform.text2.Value="" thisform.combo1.Value="" thisform.text4.Value="" endif endif endif ENDIF ENDIF thisform.Refresh Procedure sua.click IF (this.Caption="Sưa") q=MESSAGEBOX("B¹n mn sưa th«ng tin?",1+32) IF q=1 thisform.them.Caption="cËp nhËt" SELECT nguoidung thisform.text1.Value=nguoidung.ten_dangnhap SV: Phạm Văn Phương 76 Lớp: K43/41.02 Khoa: Hệ thống thông tin kinh tế Đồ án tốt nghiệp thisform.text2.Value=nguoidung.mat_khau thisform.combo1.Value=nguoidung.quyen thisform.text4.Value=nguoidung.chuc_vu SELECT nguoidung SET DELETED ON DELETE ENDIF ENDIF Procedure xoa.click #define msgbox_yes #define c_msgbox1 36 #define c_thongbao "Cã chắn xoá bn ghi ko? IF MESSAGEBOX(c_thongbao,c_msgbox1,"Chú ý")=msgbox_yes DELETE IF !EOF() SKIP IF EOF() GO bott ELSE SKIP IF EOF() GO bott ELSE SKIP -1 ENDIF ENDIF ENDIF thisform.Refresh endif Form danh mục vật tư SV: Phạm Văn Phương 77 Lớp: K43/41.02 Khoa: Hệ thống thông tin kinh tế Đồ án tốt nghiệp Procedure them.click IF (this.Caption="Thªm") thisform.ma_vt.Enabled= T thisform.ten_vt.Enabled= T thisform.ma_loaivt.Enabled= T thisform.text1.enabled=.t thisform.dvt.Enabled= T thisform.ma_vt.Value="" thisform.ten_vt.Value="" thisform.ma_loaivt.Value="" thisform.text1.Value="" thisform.dvt.Value="" this.Caption="Lu" thisform.thoat.Caption="Cancel" thisform.Sua.Enabled= F thisform.Xoa.Enabled= F thisform.ma_vt.SetFocus ELSE IF (EMPTY(thisform.ma_vt.Value).or.EMPTY(thisform.ten_vt.Value).or.EMPTY(thi sform.ma_loaivt.Value)) MESSAGEBOX("Thông tin điền thiếu sai.Bạn điền lại!!",0+16) thisform.ma_vt.setfocus ELSE SELECT vat_tu LOCATE FOR ALLTRIM(UPPER(ma_vt))==ALLTRIM(UPPER(thisform.ma_vt.Value)) IF FOUND() Ok=MESSAGEBOX("Đã có mã này!!!Bạn có muốn sửa không?",1+32) IF (Ok=1) THISFORM.ma_vt.Value=vat_tu.ma_vt SV: Phạm Văn Phương 78 Lớp: K43/41.02 Khoa: Hệ thống thông tin kinh tế Đồ án tốt nghiệp THISFORM.ten_vt.Value=vat_tu.ten_vt thisform.ma_loaivt.Value=vat_tu.ma_loaivt thisform.text1.Value=loaivt.ten_loaivt thisform.dvT.Value=vat_tu.dvt thisform.Sua.Caption="Lu" thisform.Sua.Enabled= T thisform.them.Enabled= F thisform.Xoa.Enabled= F thisform.thoat.Caption="Cancel" thisform.them.caption="Thªm" skip THISFORM.Refresh ELSE THISFORM.ma_vt.Value="" THISFORM.ten_vt.Value="" thisform.ma_loaivt.Value="" thisform.text1.Value="" thisform.dvt.Value="" thisform.ma_vt.Enabled= F thisform.ten_vt.Enabled= F thisform.ma_loaivt.Enabled= F thisform.text1.Enabled= F thisform.dvt.Enabled= F thisform.Sua.Caption="Söa" thisform.Sua.Enabled= T thisform.them.Enabled= T thisform.Xoa.Enabled= T thisform.thoat.Caption="Thoát" thisform.them.Caption="Thêm" thisform.ma_vt.SetFocus ENDIF SV: Phm Vn Phng 79 Lớp: K43/41.02 Khoa: Hệ thống thông tin kinh tế Đồ án tốt nghiệp ELSE APPEND BLANK replace ma_vt WITH UPPER(thisform.ma_vt.Value) replace ten_vt WITH ALLTRIM(thisform.ten_vt.Value) replace ma_loaivt WITH ALLTRIM(thisform.ma_loaivt.Value) replace dvt WITH ALLTRIM(thisform.dvt.Value) MESSAGEBOX("Thêm Thành Công ",0+32,"Thành Công",120) thisform.ma_vt.Value="" thisform.ten_vt.Value="" thisform.ma_loaivt.Value="" thisform.text1.Value="" thisform.dvt.Value="" thisform.ma_vt.Enabled= F thisform.ten_vt.Enabled= F thisform.ma_loaivt.Enabled=.F thisform.text1.enabled=.f thisform.dvt.Enabled= F thisform.Sua.Enabled= T thisform.Xoa.Enabled= T thisform.Thoat.Caption="Cancel" this.Caption="Thªm" thisform.them.Enabled= T thisform.grid1.Refresh thisform.Refresh ENDIF ENDIF ENDIF Procedure sua.click SV: Phạm Văn Phương 80 Lớp: K43/41.02 Khoa: Hệ thống thông tin kinh tế Đồ án tốt nghiệp IF this.Caption ="Söa" thisform.ma_vt.Value=vat_tu.ma_vt thisform.ten_vt.Value=vat_tu.ten_vt thisform.ma_loaivt.Value=vat_tu.ma_loaivt THISform.text1.Value=loaivt.ten_loaivt thisform.dvt.Value=vat_tu.dvt this.Caption ="Lu" thisform.grid1.Enabled= F thisform.them.Enabled= F thisform.them.Caption=" Thªm" thisform.Xoa.Enabled= F thisform.thoat.Caption="Cancel" thisform.ma_vt.Enabled= T thisform.ten_vt.Enabled= T thisform.ma_loaivt.Enabled=.T thisform.text1.Enabled= T thisform.dvt.Enabled= T ELSE replace ma_vt WITH UPPER(thisform.ma_vt.Value ) replace ten_vt WITH thisform.ten_vt.Value replace ma_loaivt WITH thisform.ma_loaivt.value replace ten_loaivt WITH thisform.text1.value replace dvt WITH thisform.dvt.value thisform.grid1.Enabled= T thisform.them.Enabled= T thisform.Xoa.Enabled= T thisform.thoat.Caption="Thoát" THISFORM.THEM.Caption="Thêm" this.Caption = "Sửa" thisform.ma_vt.Value="" SV: Phm Vn Phng 81 Lớp: K43/41.02 Khoa: Hệ thống thông tin kinh tế Đồ án tốt nghiệp thisform.ten_vt.Value="" thisform.ma_loaivt.Value="" thisform.text1.Value="" thisform.dvt.Value="" thisform.ma_vt.Enabled= F thisform.ten_vt.Enabled= F thisform.ma_loaivt.Enabled=.F thisform.text1.Enabled= F thisform.dvt.Enabled= F ENDIF thisform.Refresh Procedure xoa.click IF EOF() MESSAGEBOX("Khơng có ghi nào") RETURN ENDIF IF MESSAGEBOX("Bạn có muốn xóa khơng",4+32)=7 thisform.ma_vt.Value="" thisform.ten_vt.Value="" thisform.ma_loaivt.Value="" thisform.text1.Value="" thisform.dvt.Value="" thisform.grid1.Enabled= F thisform.them.Enabled= T thisform.Xoa.Enabled= T thisform.ma_vt.Enabled= F thisform.ten_vt.Enabled= F thisform.ma_loaivt.Enabled=.F thisform.text1.Enabled= F thisform.dvt.Enabled= F RETURN SV: Phạm Văn Phương 82 Lớp: K43/41.02 Khoa: Hệ thống thông tin kinh tế Đồ án tốt nghiệp ENDIF SELECT vat_tu SET DELETED ON DELETE GO TOP THISFORM.them.Enabled=.T thisform.sua.Enabled=.t thisform.Refresh Procedure thoat.click IF this.Caption="Cancel" thisform.grid1.Enabled= T thisform.them.Enabled= T thisform.Xoa.Enabled= T thisform.Sua.Enabled = T thisform.them.Caption="Thêm" thisform.Sua.Caption="Sửa" thisform.Xoa.Caption="Xoá" thisform.ma_vt.Enabled= F thisform.ten_vt.Enabled= F thisform.ma_loaivt.Enabled= F thisform.text1.Enabled= F thisform.dvt.Enabled= F thisform.ma_vt.Value="" thisform.ten_vt.Value="" thisform.ma_loaivt.Value="" thisform.text1.Value="" thisform.dvt.Value="" this.Caption="Tho¸t" thisform.Refresh ELSE SV: Phạm Văn Phương 83 Lớp: K43/41.02 Khoa: Hệ thống thông tin kinh tế Đồ án tốt nghiệp thisform.Release ENDIF Form phiếu nhập Sự kiện init form SELECT kho SELECT dongphieunhap CREATE TABLE temp_pn FREE (so_phieu character(10),ma_vt character(8),ten_vt character(20),dvt character(10),so_luong float(10,2),don_gia float(10,2),thanhtien float(15,2)) SELECT temp_pn thisform.grid1.RecordSource="temp_pn" thisform.grid1.ColumnCount=6 thisform.grid1.column1.ControlSource="temp_pn.ma_vt" thisform.grid1.column2.ControlSource="temp_pn.ten_vt" thisform.grid1.column3.ControlSource="temp_pn.dvt" thisform.grid1.column4.ControlSource="temp_pn.so_luong" thisform.grid1.column5.ControlSource="temp_pn.don_gia" thisform.grid1.column6.ControlSource="temp_pn.thanhtien" * Header Grid1 * thisform.grid1.column1.header1.caption="M· vËt t" thisform.grid1.column2.header1.caption="Tªn vËt t" thisform.grid1.column3.header1.caption="Đơn vị tính" thisform.grid1.column4.header1.caption="Số lợng" thisform.grid1.column5.header1.caption="Đơn giáá" thisform.grid1.column6.header1.caption="Số tiền" Sự kiện load form CLOSE ALL SET safety off USE bang\vat_tu IN USE bang\dongphieunhap IN USE bang\nhacungcap IN SV: Phạm Văn Phương 84 Lớp: K43/41.02 Khoa: Hệ thống thông tin kinh tế Đồ án tốt nghiệp USE bang\kho IN ALIAS kho USE bang\taikhoan IN USE temp_pn IN USE bang\phieunhap IN Procedure moi.click thisform.combo3.Value="" thisform.txt_tennhacc.Value="" thisform.txt_diachi.Value="" thisform.txt_diengiai.Value="" thisform.combo1.value="" thisform.txt_tenkho.Value="" thisform.txt_sophieu.Value="" thisform.txt_tkno.Value="" thisform.txt_tkco.Value="" thisform.txt_tentkno.Value="" thisform.txt_tentkco.Value="" thisform.txt_ngayp.Value="" thisform.combo2.Value="" thisform.txt_tongtien.Value="" thisform.txt_thue.Value="" thisform.txt_thanhtoan.Value="" SELECT temp_pn zap thisform.grid1.Refresh thisform.combo3.SetFocus Procedure themdong.click SELECT temp_pn APPEND BLANK thisform.grid1.Refresh Procedure luu.click SELECT SV: Phạm Văn Phương 85 Lớp: K43/41.02 Khoa: Hệ thống thông tin kinh tế Đồ án tốt nghiệp _so_phieu= ALLTRIM(thisform.txt_sophieu.Value) LOCATE for ALLTRIM(so_phieu)=_so_phieu IF FOUND() MESSAGEBOX("Sè phiÕu nµy ®· tån t¹i,mêi nhËp l¹i,0") ELSE DELETE FOR EMPTY(so_phieu) SET DELETED on delete APPEND BLANK replace ma_nhacc WITH ALLTRIM(thisform.combo3.Value) replace li_do WITH ALLTRIM(thisform.txt_diengiai.Value) replace ma_kho WITH ALLTRIM(thisform.combo1.Value) replace tk_no WITH ALLTRIM(thisform.txt_tkno.value) replace tk_co WITH ALLTRIM(thisform.txt_tkco.Value) replace ngay_phieu WITH thisform.txt_ngayp.value replace so_phieu WITH ALLTRIM(thisform.txt_sophieu.Value) replace so_tien WITH thisform.txt_tongtien.value SELECT GO top DO WHILE NOT EOF() STORE "" TO _ma_vt,_ten_vt,_dvt,_so_luong,_don_gia _ma_vt=ma_vt _ten_vt=ten_vt _dvt=dvt _so_luong=so_luong _don_gia=don_gia INSERT INTO bang\dongphieunhap(so_phieu,ma_vt,ten_vt,dvt,so_luong,don_gia); VALUES (thisform.txt_sophieu.value,_ma_vt,_ten_vt,_dvt,_so_luong,_don_gia) SV: Phạm Văn Phương 86 Lớp: K43/41.02 Khoa: Hệ thống thông tin kinh tế Đồ án tốt nghiệp SKIP ENDDO ENDIF SELECT DELETE FOR EMPTY(ma_vt) SET DELETED on delete thisform.refresh thisform.combo3.Value="" thisform.txt_tennhacc.Value="" thisform.txt_diengiai.Value="" thisform.combo1.value="" thisform.txt_tenkho.Value="" thisform.txt_sophieu.Value="" thisform.txt_tkno.Value="" thisform.txt_tkco.Value="" thisform.txt_tentkno.Value="" thisform.txt_tentkco.Value="" thisform.txt_ngayp.Value=CTOD("") thisform.combo2.Value="" thisform.txt_tongtien.Value=0 thisform.txt_thue.Value=0 thisform.txt_thanhtoan.Value=0 thisform.combo3.SetFocus Procedure in.click REPORT FORM bao_cao\phieunhap PREVIEW FOR ALLTRIM(dongphieunhap.so_phieu)=alltrim(thisform.txt_sophieu.value) SV: Phạm Văn Phương 87 Lớp: K43/41.02 Khoa: Hệ thống thông tin kinh tế SV: Phạm Văn Phương Đồ án tốt nghiệp 88 Lớp: K43/41.02 ... tích, thiết kế hệ thống thơng tin cơng tác kế tốn chi tiết vật tư doanh nghiệp Chương 2: Tình trạng thực tế cơng tác kế tốn chi tiết vật tư cơng ty cổ phần Ba An Chương 3: Thiết kế ứng dụng tốn kế. .. trị hệ thống Chính vậy, em chọn đề tài ? ?Thiết kế hệ thống thơng kế tốn chi tiết vật tư công ty cổ phần BA AN? ?? II.Mục đích phạm vi đề tài * Hồn thiện thêm hệ thống thơng tin quản lý vật tư cơng ty. .. Khoa: Hệ thống thông tin kinh tế Đồ án tốt nghiệp CHƯƠNG TÌNH TRẠNG THỰC TẾ CƠNG TÁC KẾ TỐN CHI TIẾT VẬT TƯ TẠI CƠNG TY CỔ PHẦN BA AN 2.1 KHÁI QUÁT VỀ CÔNG TY CỔ PHẦN BA AN 2.1.1 Giới thiệu công ty