Luận văn đề tài : “Viết chương trình Quản Lý Kế Toán Doanh Nghiệp” pdf

ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Văn Uy LỜI MỞ ĐẦU Hiện doanh nghiệp Việt Nam, doanh nghiệp có quy mơ trung bình lớn hoạt động lĩnh vực dịch vụ, thương mại, sản xuất vai trị thơng tin quản lý thơng tin tin học lại có ý nghĩa đặc biệt, giúp đơn vị đột biến chất lượng quản lý điều hành qua góp phần quan trọng việc nâng cao chất lượng hiệu hoạt động doanh nghiệp, đáp ứng yêu cầu cạnh tranh phát triển làm cho thị trường phần mềm quản trị liệu chuyển trở thành thị trường quan trọng hai điều kiện : Một : Số lượng máy tính trang bị công ty nhiều bắt đầu tiến trình nối mạng Hai : Mơi trường kinh doanh ngày mang tính thị trường rõ rệt với cạnh tranh mạnh mẽ doanh nghiệp nước với doanh nghiệp nước Điều đòi hỏi doanh nghiệp phải trang bị hệ thống quản lý thơng tin tiên tiến để phân tích tình hình kinh doanh định cách nhanh Do đó, phần mềm ứng dụng quản lý đóng vai trị quan trọng, đặc biệt phần mềm quản trị liệu nghiệp vụ kế toán cho doanh nghiệp Hiện nay, thị trường có nhiều phần mềm quản trị sở liệu để thực cho việc quản lý kế toán doanh nghiệp để xác định hệ quản trị tối ưu, gần gũi với người sử dụng Đặc biệt, nước ta việc nắm vững, thao tác sử dụng cịn nhiều khó khăng nên việc tạo phần mềm quan trọng cần thiết Bởi vì, giao diện chương trình sử dụng Font chữ tiếng việt nên người sử dụng thao tác, sử dụng dễ dàng người sử dụng khơng thành thạo tiếng anh… Từ nhận định đó, tơi chọn đề tài : “Viết chương trình Quản Lý Kế Toán Doanh Nghiệp” sở nghiên cứu phát triển, tơi cố gắng hồn thành đề tài với giúp đỡ tận tình Thầy Đỗ Văn Uy đóng góp ý kiến vơ quan trọng cho việc nghiên cứu cách thức lập trình Tơi xin chân thành cảm ơn !  Quý thầy cô trường Đại Học Thủy Sản trường Bách Khoa Hà Nội tận tình hướng dẫn, giúp đỡ  Bạn Trần Thị Thanh Trâm lớp 41DN-2 tận tình góp ý nghiệp vụ cung cấp tài liệu kế tốn  Cùng tồn thể lớp TIN HỌC 40 đóng góp ý kiến quan trọng thao tác lập trình Tơi mong đề tài đón nhận đóng góp để đề tài phát triển hồn thiện Sinh Viên Thực Hiện Hồ Hải Au PHẦN I TIN HỌC HÓA QUẢN LÝ THƠNG TIN TRONG CÁC DOANH NGHIỆP Kế tốn Kế tốn cơng việc ghi chép, tính tốn số hình thức giá trị, vật thời gian lao động Chủ yếu hình thức giá trị để phản ánh, kiểm tra ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Văn Uy tình hình vận động loại tài sản, trình kết sản xuất kinh doanh, sử dụng vốn kinh phí nhà nước, tổ chức, xí nghiệp Vai trị kế tốn Đối với doanh nghiệp : Kế tốn giúp theo dõi thường xun tình hình hoạt động sản xuất kinh doanh doanh nghiệp sản xuất sản phẩm, tiêu thụ sản phẩm, tình hình cung ứng nguyên vật liệu phục vụ sản xuất, giúp cho việc theo dõi thị trường để sản xuất, tích trữ hàng hóa nhằm cung cấp kịp thời cho thị trường sản phẩm đáp ứng nhu cầu thị hiếu người tiêu dùng Ngồi ra, kế tốn cịn cung cấp tài liệu cho doanh nghiệp để làm sở hoạch định chương trình hành động cho giai đoạn, thời kỳ Nhờ kế toán mà người quản lý điều hành trôi chảy hoạt động đơn vị, giúp cho việc quản lý lành mạnh, tránh tượng tham ơ, lãng phí tài sản, thực việc kiểm sốt nội có hiệu Nhờ kế tốn mà người quản lý tính cơng việc điều hành giai đoạn qua vạch phương hướng hoạt động cho tương lai Điều hoà tình hình tài doanh nghiệp Kế tốn sở để giải tranh chấp, khiếu tố, sở pháp lý chứng minh hành vi thương mại Vai trò tin học quản lý Thơng tin từ lâu đánh giá có vai trò quan trọng quản lý kinh tế, ngày việc nhận định “ Ai nắm thông tin, người chiến thắng ” lại trở nên đắn Chính từ việc tin học hóa thơng tin với trợ giúp Computer Phần mềm đưa đến khái niệm Kỹ nguyên kỹ thuật số, Nền kinh tế trí thức… Việc tin học hóa vào quản lý hoạt động sản xuất kinh doanh giúp cho doanh nghiệp có khả cạnh tranh kinh tế thị trường, đồng thời cạnh tranh với doanh nghiệp nước đánh giá qua đặc điểm sau: a Tính nhanh chóng Bất kỳ lúc trả lời thơng tin cách nhanh chóng, xác b Tính thích ứng Giúp người quản lý điều hành trơi chảy hoạt động đơn vị tính cơng việc điều hành giai đoạn qua vạch phương hướng hoạt động cho tương lai Điều hành tình hình tài doanh nghiệp c Tính an tồn Bảo đảm an toàn liệu doanh nghiệp Nhiệm vụ đề tài Thay việc ghi chép vào sổ sách cách nhập, xuất lưu trữ lượng thơng tin khổng lồ cách nhanh chóng, xác an toàn liệu Đáp ứng kịp thời thơng tin người kế tốn cần đến Tránh sai sót giảm thiểu thời gian ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Văn Uy cơng việc nhằm nâng cao hiệu kinh doanh giai đoạn, chu kỳ sản xuất kinh doanh doanh nghiệp Cung cấp giao diện gần gũi với người sử dụng, người sử dụng tham khảo danh mục tài khoản doanh nghiệp lúc cần đến, cho biết mặt hàng nhập – xuất khoảng thời gian định… Tuy nhiên, chương trình đáp ứng phần cơng việc Cịn chun sâu phần mềm mang tính kế tốn thực thụ địi hỏi chương trình phải cải tiến, bổ sung để chương trình sử dụng doanh nghiệp chấp nhận phần mềm thức cho hầu hết cơng việc kế tốn Ở đề tài mang tính tham khảo phát tiển ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Văn Uy PHẦN II PHÂN TÍCH VÀ THIẾT KẾ HỆ THỐNG CHO CHƯƠNG TRÌNH QUẢN LÝ KẾ TỐN DOANH NGHIỆP Các bước thực kế toán doanh nghiệp Lập chứng từ gốc để ghi nhận nghiệp vụ kinh tế phát sinh hoàn thành Phân tích nghiệp vụ kế tốn sở chứng từ gốc để : Định khoản cho nghiệp vụ kế tốn Cập nhật chứng từ vào máy tính : chứng từ nhập xuất hàng hóa, chứng từ thu chi, ủy nhiệm chi, ủy nhiệm thu… In báo cáo : báo cáo nhập xuất kỳ, tổng hợp thu chi kỳ, báo cáo hàng tồn kho, thẻ kho… Ghi chép nghiệp vụ phân tích vào nhật ký chung theo trình tự thời gian : Lập chứng từ ghi sổ hay sổ nhật ký chung Chuyển số liệu từ nhật ký vào sổ tài khoản liên quan để in lúc cần đến Điều chỉnh số liệu để phản ánh chi phí doanh thu đạt kỳ : Lập bảng cân đối số phát sinh Kết chuyển số liệu tài khoản tạm thời để : Tính giá thành sản phẩm Tính kết hoạt động kinh doanh… Kiểm tra đối chiếu số liệu sổ sách kế toán lập, tài khoản tổng hợp Tổng hợp số liệu từ tài khoản từ tài liệu có liên quan để lập báo cáo tài : Lập bảng cân đối kế toán Bảng báo cáo kết hoạt động kinh doanh Bảng lưu chuyển tiền tệ Thuyết minh báo cáo tài Tình hình thực nghĩa vụ thuế với nhà nước ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Văn Uy Mơ tả u cầu quản lý chương trình a Quản lý tiền mặt Chương trình :  Quản lý khoản thu – chi doanh nghiệp  Xác định tồn quỹ tiền mặt doanh nghiệp  In phiếu thu – chi để xác định giao cho khách hàng hay để lưu trữ  Lập báo cáo thu – chi chi tiết tổng hợp tháng  Cung cấp liệu cho phân hệ kế toán khác : Phân hệ kế toán tổng hợp Phân hệ kế tốn chi phí… b Quản lý hàng hóa Chương trình :  Quản lý phiếu nhập xuất kho doanh nghiệp, biết mua hàng từ nhà cung cấp xuất bán cho khách hàng  Lập báo cáo chi tiết nhập xuất hàng hóa  Lập báo cáo tổng hợp nhập xuất hàng hóa theo ngày, tháng, kho, mặt hàng, khách hàng nhà cung cấp  In thẻ kho cho biết việc nhập xuất tồn mặt hàng ứng với kho khoảng thời gian xác định tháng  In báo cáo tồn kho : Tồn kho tổng hợp : cho biết việc nhập xuất tồn tất hàng hóa tất kho có đến ngày cần biết Tồn theo kho : cho biết việc nhập xuất tồn tất hàng hóa kho ngày cần biết  Lập báo cáo giá vốn mặt hàng xuất bán tháng  Báo cáo giá hàng nhập : cho biết đơn giá cụ thể mặt hàng Nếu mặt hàng có nhiều đơn giá nhập khác phải liệt kê tất đơn giá nhập số lượng nhập tương ứng  In báo cáo thống kê : Theo mặt hàng Theo nhóm hàng Theo kho hàng  Nguồn nhập xuất : cho biết nguồn nhập xuất tháng  Cung cấp liệu cho phân hệ kế toán khác : tổng hợp, chi phí, tiền mặt…  Tra cứu : Phiếu nhập kho Phiếu xuất kho c Quản lý cơng nợ Chương trình  Quản lý hình thức tốn cơng nợ khách hàng với doanh nghiệp doanh nghiệp với nhà cung cấp  Đối với nhà cung cấp : ĐỀ TÀI TỐT NGHIỆP     GVHD : Đỗ Văn Uy Khi mua hàng (Phiếu nhập kho) làm cơng nợ nhà cung cấp tăng lên Khi doanh nghiệp trả tiền mặt cho nhà cung cấp (Phiếu chi tiền mặt) làm cơng nợ nhà cung cấp giảm Đối với khách hàng : Khi xuất hàng cho khách hàng (Hóa đơn bán hàng) làm cơng nợ khách hàng tăng lên Khi doanh nghiệp thu tiền mặt khách hàng trả nợ (Phiếu thu tiền mặt) làm cơng nợ khách hàng giảm Lập báo cáo tổng hợp công nợ khách hàng nhà cung cấp Lập báo cáo công nợ chi tiết cho khách hàng nhà cung cấp Cung cấp liệu cho phân hệ kế toán khác : tổng hợp, tiền mặt, hàng hóa,… Q trình phân tích chương trình  Khảo sát u cầu chương trình, làm rõ thơng tin đầu vào, thông tin đầu báo cáo phục vụ cho việc quản lý  Dựa yêu cầu chương trình, xây dựng sơ đồ chức năng, lấy sơ đồ chức làm sở để xây dựng hệ thống menu cho chương trình  Dựa sơ đồ chức năng, xây dựng sơ đồ dịng liệu thể thơng tin đưa vào hệ thống sau chức xử lý lưu trữ tạo thành báo cáo  Qua phân tích sơ đồ dịng liệu thông tin khảo sát ban đầu, xây dựng thực thể (lưu trữ thông tin bản) mối quan hệ chúng Đó bước xây dựng sơ đồ quan hệ thực thể, làm sở xây dựng Table Relationship Dữ liệu đầu vào đầu chương trình a Thơng tin nhập  Danh mục chứng từ  Danh mục tài khoản  Danh mục tài khoản đối ứng  Danh mục hàng hóa  Danh mục nhóm hàng  Danh mục kho hàng  Danh mục khách hàng  Danh mục nhà cung cấp  Danh mục nhân viên  Danh mục ngoại tệ  Danh mục ngân hàng  Danh mục thuế  Danh mục hình thức nhập xuất  Danh mục hình thức tốn  Các loại phiếu : Phiếu nhập phiếu xuất b Thông tin xuất  Báo cáo tình hình thu, chi tồn quỹ tiền mặt ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Văn Uy  Báo cáo tình hình việc nhập xuất tồn kho hàng hóa  Báo cáo cơng nợ khách hàng nhà cung cấp Hệ thống danh mục Danh mục chứng từ Danh mục tài khoản Danh mục tài khoản đối ứng Danh mục kho Danh mục hàng hóa Danh mục nhóm hàng Danh mục khách hàng Danh mục nhà cung cấp Danh mục nhân viên Danh mục ngoại tệ Danh mục ngân hàng Danh mục thuế Danh mục hình thức nhập xuất Cấu trúc chương trình mặt Phân hệ kế tốn tiền Danh mục hình thức tốn Cập nhật phiếu thu – chi Báo cáo tiền mặt Tổng hợp Chi tiết Phân hệ kế tốn hàng hóa Cập nhật chứng từ nhập - xuất Báo cáo hàng hóa Tổng hợp Chi tiết Phân hệ kế tốn cơng nợ Cập nhật phiếu thu - chi Báo cáo công nợ Tổng hợp Chi tiết ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Văn Uy Quản lý Kế Toán Doanh Nghiệp Quản lý Tiền mặt Sơ đồ chức Quản lý Hàng hóa Quản lý Công nợ 1.1 Cập nhật phiếu thu chi tiền mặt 2.1 Cập nhật phiếu nhập xuất hàng hóa 3.1 Cập nhật phiếu thu chi 1.2 Cập nhật danh mục khách hàng nhà cung cấp 2.2 Cập nhật danh mục hàng hóa 3.2 Cập nhật danh mục khách hàng nhà cung cấp 1.3 Báo cáo tình hình thu chi tồn quỹ tiền mặt 2.3 Báo cáo hàng hóa (Tổng hợp chi tiết) 3.3 Báo cáo cơng nợ (Tổng hợp chi tiết) ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Văn Uy Sơ đồ luồng liệu Khách hàng a1 b1 c2 Phiếu nhập xuất a3 c1 d1 b2 a2 Phiếu nhập xuất Cập nhật danh mục hàng hóa a4 Cập nhật phiếu thu chi c4 c3 Cập nhật danh mục khách hàng a5 Danh mục khách hàng e2 Báo cáo danh mục hàng hóa e2 d2 Lưu phiếu thu chi c5 Danh mục hàng hóa e1 Ban quản lý f2 e3 f2 f3 Báo cáo công nợ f1 Ban quản lý f3 ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Văn Uy Cập nhật phiếu nhập xuất hàng hóa a1 Khách hàng mua hàng nhà cung cấp giao hàng a2 Lưu phiếu nhập xuất a3 Yêu cầu cập nhật danh mục hàng hóa (Nếu hàng hóa mới) a4 Cập nhật danh mục khách hàng (Nếu khách hàng mới) a5 Lưu thơng tin hàng hóa Điều chỉnh phiếu nhập xuất b1 Ban quản lý yêu cầu điều chỉnh phiếu nhập xuất (Do nhập xuất sai sót) b2 Lấy phiếu nhập xuất cần điều chỉnh từ kho lưu điều chỉnh theo yêu cầu lưu lại Báo cáo tồn kho e1 Ban quản lý yêu cầu báo cáo tồn kho e2 Lấy số tồn từ danh mục hàng hóa tình hình nhập xuất từ kho liệu phiếu nhập xuất để xác định số tồn kho cuối kỳ e3 Gửi ban quản lý báo cáo tồn kho Cập nhật phiếu thu chi c1 Ban quản lý chi trả nợ cho nhà cung cấp (Yêu cầu lập phiếu chi) c2 Khách hàng trả nợ (Yêu cầu lập phiếu thu) c3 Lưu phiếu thu chi lập c4 Yêu cầu cập nhật danh mục khách hàng (Nếu khách hàng mới) c5 Lưu thông tin khách hàng Điều chỉnh phiếu thu chi d1 Ban quản lý yêu cầu điều chỉnh phiếu thu chi (Do nhập sai sót) d2 Lấy phiếu thu chi cần điều chỉnh từ kho lưu điều chỉnh theo yêu cầu lưu lại Báo cáo công nợ f1 Ban quản lýmục cầu báo cáo công nợ Danh yêu f2 Lấy số nợhđầugkỳ từ danh mục khách hàng tình hình nhập xuất từ kho khác hàn Phiếu thu, chi liệu phiếu nhập xuất, tình hình thu chi từ kho liệu phiếu thu chi để xác định tăng giảm nợ kỳ nợ cuối kỳ f3 Gửi ban quản lý báo cáo công nợ Phiếu nhập, xuất Danh mục tài khoản Chi tiết danh mục hàng hóa Danh mục hàng hóa Sơ đồ quan hệ thực thể Ký hiệu quan hệ -> n : 10 ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Văn Uy End Sub Private Sub DCDMCT_change() Dim db As DAO.Database Dim rs As DAO.Recordset Dim chuoi As String If DCDMCT.Text "" Then Set db = OpenDatabase("c:\QL_ktdn\ktdn.mdb") chuoi = "select * from Tbl_DMCT where MA_CT='" & DCDMCT.Text & "'" Set rs = db.OpenRecordset(chuoi) If rs.RecordCount > Then txtTENCT.Text = rs.Fields("TEN_CT") End If rs.Close db.Close End If End Sub Private Sub DCDMCT_keypress(keyascii As Integer) Dim str As String Dim rs As New ADODB.Recordset Select Case keyascii Case 13: str = "select MA_CT from Tbl_DMCT where MA_CT= '" & DCDMCT & "'" rs.Open str, cn If rs.EOF = False Then DCDMCT = rs!MA_CT txtNGAYCT.SetFocus Else Frm_CHONDMCTofHDNHAP.Show End If End Select End Sub Private Sub DCDMCT_lostfocus() Me.DCDMCT.BackColor = &HFFFFFF End Sub 'Khi chung tu nhan focus Private Sub txtNGAYCT_gotfocus() txtNGAYCT.BackColor = &HC0E0FF End Sub Private Sub txtNGAYCT_keypress(keyascii As Integer) 56 ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Văn Uy Select Case keyascii Case 13 txtSCTG.SetFocus End Select End Sub Private Sub txtNGAYCT_lostfocus() txtNGAYCT.BackColor = &HFFFFFF End Sub 'Khi so chung tu goc nhan focus Private Sub txtSCTG_gotfocus() txtSCTG.BackColor = &HC0E0FF End Sub Private Sub txtSCTG_keypress(keyascii As Integer) Select Case keyascii Case 13 txtSCT.SetFocus End Select End Sub Private Sub txtSCTG_lostfocus() txtSCTG.BackColor = &HFFFFFF End Sub Private Sub txtSCT_gotfocus() Dim db As DAO.Database Dim rs As DAO.Recordset Dim rd As DAO.QueryDef Dim max Dim thang, nam Dim so, so1 Dim chuoi1 As String Dim chuoi2 As String txtSCT.BackColor = &HC0E0FF thang = txtTHANG.Text nam = txtNAM.Text chuoi1 = Trim(nam) & Right("0" & Trim(thang), 2) chuoi2 = "Select * from Tbl_HDNHAP where month(NGAYLAP_CT)='" & Val(thang) & "'" & "and year(NGAYLAP_CT)='" & Val(nam) & "'" Set db = OpenDatabase("c:\QL_ktdn\ktdn.mdb") Set rs = db.OpenRecordset(chuoi2) max = If rs.RecordCount > Then rs.MoveFirst 57 ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Văn Uy Do Until rs.EOF 'Tang gia tri so chung tu len phu thuoc vao thang va nam xu ly If (Trim(Month(rs!NGAYLAP_CT)) = txtTHANG) And (Trim(Year(rs! NGAYLAP_CT)) = txtNAM) Then so = Mid(Trim(rs!SO_CT), 7) 'Lay SO_CT tu vi tri thu If (Len(so) 0) Then so1 = Val(so) If (max < so1) Then max = so1 End If End If End If rs.MoveNext Loop End If 'Tru truong hop SO_CT0 thi record hien hanh la record cu If Me.txtSCT.Text = "" Then Me.txtSCT.Text = Trim(chuoi1) & Right("0" & Trim(CStr(max + 1)), 2) End If End Sub 'Su kien thay doi so chung tu Private Sub txtSCT_change() Dim n Dim n1 n=0 n1 = n = Ado_HDNHAP.Recordset.RecordCount If (Ado_HDNHAP.Recordset.EOF (Ado_HDNHAP.Recordset.BOF = False) Then n1 = Ado_HDNHAP.Recordset.Bookmark End If txtBGHH.Text = n1 txtSBG.Text = n End Sub = False) And 'Su kien So chung tu nhan enter Private Sub txtSCT_keypress(keyascii As Integer) Select Case keyascii Case 13 txtDIENGIAI.SetFocus End Select End Sub Private Sub txtSCT_lostfocus() txtSCT.BackColor = &HFFFFFF 58 ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Vaên Uy End Sub Private Sub txtDIENGIAI_gotfocus() txtDIENGIAI.BackColor = &HC0E0FF End Sub Private Sub txtDIENGIAI_keypress(keyascii As Integer) Select Case keyascii Case 13 DCDMNCC.SetFocus End Select End Sub Private Sub txtDIENGIAI_lostfocus() txtDIENGIAI.BackColor = &HFFFFFF End Sub Private Sub DCDMNCC_gotfocus() DCDMNCC.BackColor = &HC0E0FF End Sub Private Sub DCDMNCC_change() Dim db As DAO.Database Dim rs As DAO.Recordset Dim chuoi As String If DCDMNCC.Text "" Then Set db = OpenDatabase("c:\QL_ktdn\ktdn.mdb") chuoi = "select * from Tbl_DMNCC where MA_NCC='" & DCDMNCC.Text & "'" Set rs = db.OpenRecordset(chuoi) If rs.RecordCount > Then txtTENNCC.Text = rs.Fields("TEN_NCC") End If rs.Close db.Close End If End Sub Private Sub DCDMNCC_keypress(keyascii As Integer) Dim str As String Dim rs As New ADODB.Recordset Select Case keyascii Case 13: str = "select MA_NCC from Tbl_DMNCC where MA_NCC= '" & DCDMNCC & "'" rs.Open str, cn 59 ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Văn Uy If rs.EOF = False Then DCDMNCC = rs!MA_NCC DCDMKHO.SetFocus Else Frm_CHONDMNCCofHDNHAP.Show End If End Select End Sub Private Sub DCDMNCC_lostfocus() Me.DCDMNCC.BackColor = &HFFFFFF End Sub Private Sub DCDMKHO_gotfocus() Me.DCDMKHO.BackColor = &HC0E0FF End Sub Private Sub DCDMKHO_change() Dim db As DAO.Database Dim rs As DAO.Recordset Dim chuoi As String If DCDMKHO.Text "" Then Set db = OpenDatabase("c:\QL_ktdn\ktdn.mdb") chuoi = "select * from Tbl_DMKHO where MA_KHO='" & DCDMKHO.Text & "'" Set rs = db.OpenRecordset(chuoi) If rs.RecordCount > Then txtTENKHO.Text = rs.Fields("TEN_KHO") End If rs.Close db.Close End If End Sub Private Sub DCDMKHO_keypress(keyascii As Integer) Dim str As String Dim rs As New ADODB.Recordset Select Case keyascii Case 13: str = "select MA_KHO from Tbl_DMKHO where MA_KHO= '" & DCDMKHO & "'" rs.Open str, cn If rs.EOF = False Then DCDMKHO = rs!MA_KHO DCDMTK.SetFocus Else Frm_CHONDMKHOofHDNHAP.Show 60 ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Văn Uy End If End Select End Sub Private Sub DCDMKHO_lostfocus() Me.DCDMKHO.BackColor = &HFFFFFF End Sub Private Sub DCDMTK_gotfocus() Me.DCDMTK.BackColor = &HC0E0FF End Sub Private Sub DCDMTK_change() Dim db As DAO.Database Dim rs As DAO.Recordset Dim chuoi As String If DCDMTK.Text "" Then Set db = OpenDatabase("c:\QL_ktdn\ktdn.mdb") chuoi = "select * from Tbl_DMTK where MA_TK='" & DCDMTK.Text & "'" Set rs = db.OpenRecordset(chuoi) If rs.RecordCount > Then txtDGTKN.Text = rs.Fields("DIENGIAI") End If rs.Close db.Close End If End Sub Private Sub DCDMTK_keypress(keyascii As Integer) Dim str As String Dim rs As New ADODB.Recordset Select Case keyascii Case 13: str = "select MA_TK from Tbl_DMTK where MA_TK= '" & DCDMTK & "'" rs.Open str, cn If rs.EOF = False Then DCDMTK = rs!MA_TK DCDMTKDU.SetFocus Else Frm_CHONDMTKofHDNHAP.Show End If End Select End Sub Private Sub DCDMTK_lostfocus() Me.DCDMTK.BackColor = &HFFFFFF 61 ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Văn Uy End Sub Private Sub DCDMTKDU_gotfocus() Me.DCDMTKDU.BackColor = &HC0E0FF End Sub Private Sub DCDMTKDU_change() Dim db As DAO.Database Dim rs As DAO.Recordset Dim chuoi As String If DCDMTKDU.Text "" Then Set db = OpenDatabase("c:\QL_ktdn\ktdn.mdb") chuoi = "select * from Tbl_DMTK where MA_TK='" & DCDMTKDU.Text & "'" Set rs = db.OpenRecordset(chuoi) If rs.RecordCount > Then txtDGTKC.Text = rs.Fields("DIENGIAI") End If rs.Close db.Close End If End Sub Private Sub DCDMTKDU_keypress(keyascii As Integer) Dim str As String Dim rs As New ADODB.Recordset Select Case keyascii Case 13: str = "select MA_TK from Tbl_DMTK where MA_TK= '" & DCDMTKDU & "'" rs.Open str, cn If rs.EOF = False Then DCDMTKDU = rs!MA_TK DCDMNT.SetFocus Else Frm_CHONDMTKDUofHDNHAP.Show End If End Select End Sub Private Sub DCDMTKDU_lostfocus() Me.DCDMTKDU.BackColor = &HFFFFFF End Sub Private Sub DCDMNT_gotfocus() Me.DCDMNT.BackColor = &HC0E0FF End Sub 62 ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Văn Uy Private Sub DCDMNT_change() Dim db As DAO.Database Dim rs As DAO.Recordset Dim chuoi As String If DCDMNT.Text "" Then Set db = OpenDatabase("c:\QL_ktdn\ktdn.mdb") chuoi = "select * from Tbl_DMNT where MA_NT='" & DCDMNT.Text & "'" Set rs = db.OpenRecordset(chuoi) If rs.RecordCount > Then txtTENNT.Text = rs.Fields("DIENGIAI") End If rs.Close db.Close End If End Sub Private Sub DCDMNT_keypress(keyascii As Integer) Dim str As String Dim rs As New ADODB.Recordset Select Case keyascii Case 13: str = "select MA_NT from Tbl_DMNT where MA_NT= '" & DCDMNT & "'" rs.Open str, cn If rs.EOF = False Then DCDMNT = rs!MA_NT DCDMNV.SetFocus Else Frm_CHONDMNTofHDNHAP.Show End If End Select End Sub Private Sub DCDMNT_lostfocus() Me.DCDMNT.BackColor = &HFFFFFF Dim db As DAO.Database Dim rs As DAO.Recordset Dim chuoi As String If DCDMNT.Text "" Then Set db = OpenDatabase("c:\QL_ktdn\ktdn.mdb") chuoi = "select * from Tbl_DMNT where MA_NT='" & DCDMNT.Text & "'" Set rs = db.OpenRecordset(chuoi) If rs.RecordCount > Then Me.txtTYGIA = rs.Fields("TYGIA") End If rs.Close 63 ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Văn Uy db.Close End If End Sub Private Sub DCDMNV_gotfocus() Me.DCDMNV.BackColor = &HC0E0FF End Sub Private Sub DCDMNV_change() Dim db As DAO.Database Dim rs As DAO.Recordset Dim chuoi As String If DCDMNV.Text "" Then Set db = OpenDatabase("c:\QL_ktdn\ktdn.mdb") chuoi = "select * from Tbl_DMNV where MA_NV='" & DCDMNV.Text & "'" Set rs = db.OpenRecordset(chuoi) If rs.RecordCount > Then txtHONV.Text = rs.Fields("HO_NV") txtTENNV.Text = rs.Fields("TEN_NV") End If rs.Close db.Close End If End Sub Private Sub DCDMNV_keypress(keyascii As Integer) Dim str As String Dim rs As New ADODB.Recordset Select Case keyascii Case 13: str = "select MA_NV from Tbl_DMNV where MA_NV= '" & DCDMNV & "'" rs.Open str, cn If rs.EOF = False Then DCDMNV = rs!MA_NV txtTYGIA.SetFocus Else Frm_CHONDMNVofHDNHAP.Show End If End Select End Sub Private Sub DCDMNV_lostfocus() Me.DCDMNV.BackColor = &HFFFFFF 64 ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Văn Uy End Sub Private Sub txtTYGIA_gotfocus() txtTYGIA.BackColor = &HC0E0FF End Sub Private Sub txtTYGIA_keypress(keyascii As Integer) Select Case keyascii Case 13 chkTHUE.SetFocus End Select End Sub Private Sub txtTYGIA_lostfocus() txtTYGIA.BackColor = &HFFFFFF End Sub Private Sub chkTHUE_gotfocus() chkTHUE.BackColor = &HC0E0FF End Sub Private Sub chkTHUE_keypress(keyascii As Integer) Select Case keyascii Case 13 DCDMHTTT.SetFocus End Select End Sub Private Sub chkTHUE_lostfocus() chkTHUE.BackColor = &H8000000F End Sub Private Sub DCDMHTTT_gotfocus() Me.DCDMHTTT.BackColor = &HC0E0FF End Sub Private Sub DCDMHTTT_change() Dim db As DAO.Database Dim rs As DAO.Recordset Dim chuoi As String If DCDMHTTT.Text "" Then Set db = OpenDatabase("c:\QL_ktdn\ktdn.mdb") chuoi = "select * from Tbl_DMHTTT where MA_HTTT='" & DCDMHTTT.Text & "'" Set rs = db.OpenRecordset(chuoi) If rs.RecordCount > Then txtTENHTTT.Text = rs.Fields("TEN_HTTT") End If 65 ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Văn Uy rs.Close db.Close End If End Sub Private Sub DCDMHTTT_keypress(keyascii As Integer) Dim str As String Dim rs As New ADODB.Recordset Select Case keyascii Case 13: str = "select MA_HTTT from Tbl_DMHTTT where MA_HTTT= '" & DCDMHTTT & "'" rs.Open str, cn If rs.EOF = False Then DCDMHTTT = rs!MA_HTTT 'Goi Form Frm_HDNHAPCT cmdchitiet.SetFocus Else Frm_CHONDMHTTTofHDNHAP.Show If (cmdchitiet.Enabled = True) Then Me.cmdchitiet.SetFocus Else Me.cmdghi.SetFocus End If End If End Select End Sub Private Sub DCDMHTTT_lostfocus() Me.DCDMHTTT.BackColor = &HFFFFFF End Sub 'Goi Form cap nhat chung tu nhap chi tiet Private Sub cmdchitiet_click() Frm_HDNHAPCT.Show End Sub 66 ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Văn Uy PHẦN VI ĐĨNG GĨI - ĐÁNH GIÁ VÀ HƯỚNG PHÁT TRIỂN ĐỀ TÀI Để chương trình mang phần tính chun nghiệp, cần đóng gói chương trình thành Setup ( Package & Deloyment Wizard ) cung cấp cho người sử dụng Setup chép, cài đặt sử dụng máy tính Một chương trình hồn hảo để đảm bảo cho cơng việc kế tốn thực thụ địi hỏi tính chuyên nghiệp cao, nên sở nghiên cứu phát triển, đề tài đáp ứng phần cho người sử dụng hiểu khái quát kế toán, cách nghiên cứu sở liệu cho kế tốn doanh nghiệp Ngồi ra, nắm bắt cách sử dụng ngơn ngữ lập trình để tạo phát triển chương trình ứng dụng Đồng thời góp phần làm hồn hảo chương trình kế tốn đáp ứng rộng rãi cho nhiều doanh nghiệp sử dụng Đề tài cần bổ sung thiếu sót, hạn chế chưa tính tốn tồn quỹ tiền mặt, tồn kho hàng hóa giá vốn hàng bán….Và phát triển theo hướng mở rộng tìm kiếm loại hàng tồn kho, khách hàng có cơng nợ, tình hình thu chi tồn quỹ tiền mặt, tiền lương để trả cho công nhân viên chức doanh nghiệp tháng, quý hay thời kỳ sản xuất kinh doanh Cuối xin chân thành cám ơn đến thầy Đỗ Văn Uy tạo điều kiện, giúp đỡ tơi q trình nghiên cứu phát triển đề tài Mặc dù không trực tiếp, hạn chế khoảng cách thời gian thầy đóng góp ý kiến q báo cho tơi hồn thành đề tài Xin chân thành cảm ơn ! 67 ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Văn Uy NHẬN XÉT CỦA GIÁO VIÊN HƯỚNG DẪN 68 ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Vaên Uy TÀI LIỆU THAM KHẢO Lý Thuyế Kế Toán Thái Ninh Kế Toán Doanh Nghiệp I – II Khoa Kinh Tế Trường Đại Học Thủy Sản Kế Toán Doanh Nghiệp Với Visual Basic KS Đinh Xuân Lâm Học Visual Basic Qua Thực Hiện Chương Trình Viện kinh tế Tp HCM Trung tâm ứng dụng kinh tế thành phố Microsoft Visual Basic & Lập Trình Cơ Sở Dữ Liệu 6.0 Nguyễn Thị Ngọc Mai Nguyễn Thị Kim Trang Hoàng Đức Hải GSTS Nguyễn Hữu Anh MỤC LỤC LỜI MỞ ĐẦU PHẦN I TIN HỌC HÓA QUẢN LÝ THÔNG TIN TRONG CÁC DOANH NGHIỆP Kế tốn Vai trị kế tốn Vai trò tin học quản lý Nhiệm vụ đề tài PHẦN II PHÂN TÍCH VÀ THIẾT KẾ HỆ THỐNG CHO CHƯƠNG TRÌNH QUẢN LÝ KẾ TỐN DOANH NGHIỆP Các bước thực kế toán doanh nghiệp Mô tả yêu cầu quản lý chương trình 69 ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Văn Uy Q trình phân tích chương trình Dữ liệu đầu vào đầu chương trình Cấu trúc chương trình Sơ đồ chức Sơ đồ luồng liệu Sơ đồ quan hệ thực thể PHẦN III CƠ SỞ DỮ LIỆU CỦA CHƯƠNG TRÌNH Cơ sở liệu Sử dụng Microsoft Access để tạo sở liệu PHẦN IV SỬ DỤNG NGƠN NGỮ LẬP TRÌNH VISUAL BASIC ĐỂ THIẾT KẾ CHƯƠNG TRÌNH Ngơn ngữ lập trình visual basic Các đối tượng truy cập liệu Sử dụng đối tượng truy cập liệu chương trình Các giao diện người sử dụng Sử dụng câu truy vấn (SQL) Thiết lập báo cáo xuất thông tin Tạo giúp đỡ Đóng gói chương trình PHẦN V CHƯƠNG TRÌNH QUẢN LÝ KẾ TỐN DOANH NGHIỆP GIAO DIỆN VÀ MÃ NGUỒN CỦA MỘT SỐ FORM CẬP NHẬT – BÁO CÁO Hệ thống Folder để lưu trữ chương trình Giao diện chương trình Một số thủ tục dùng để mở kết nối liệu Access với Visual Basic Giao diện mã nguồn số Form cập nhật xuất thông tin PHẦN VI ĐÓNG GÓI – ĐÁNH GIÁ VÀ HƯỚNG PHÁT TRIỂN ĐỀ TÀI NHẬN XÉT CỦA GIÁO VIÊN HƯỚNG DẪN TÀI LIỆU THAM KHẢO 70 ... với nhà nước ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Văn Uy Mơ tả u cầu quản lý chương trình a Quản lý tiền mặt Chương trình :  Quản lý khoản thu – chi doanh nghiệp  Xác định tồn quỹ tiền mặt doanh nghiệp... hệ kế tốn cơng nợ Cập nhật phiếu thu - chi Báo cáo công nợ Tổng hợp Chi tiết ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Văn Uy Quản lý Kế Toán Doanh Nghiệp Quản lý Tiền mặt Sơ đồ chức Quản lý Hàng hóa Quản lý. .. liệu cho Chương Trình Quản Lý Kế Tốn Doanh Nghiệp ĐỀ TÀI TỐT NGHIỆP GVHD : Đỗ Văn Uy c Mối quan hệ cho bảng liệu chương trình Relationship phân hệ kế toán tiền mặt Relationship phân hệ kế tốn hàng