Viết chương trình quản lý kế toán Doanh nghiệp

Viết chương trình quản lý kế toán Doanh nghiệp

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ị d ữ 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 ngồi Đ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 m ột cách nhanh nh ất 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ế Tố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 hoà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 ị, hi ện vật thời gian lao động Chủ yếu hình thức giá tr ị để phản ánh, ki ểm tra 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ế toán Đối với doanh nghiệp : Kế toán giúp theo dõi thường xuyên 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ế tố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 hi ện 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 hồ đ ược tình hình tài doanh nghiệp Kế toá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 toà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 tồn d ữ 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 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 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 Mô tả yê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ế tố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 : 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,… Quá 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 d ữ liệu thể hi ện thông tin đưa vào hệ thống sau chức xử lý s ẽ đ ược 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 toá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 Hệ thống danh mục  Báo cáo tình hình việc nhập xuất tồn kho hàng hóa Danh mục  Báo cáo công nợ khách hàng nhà cung cấp 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 Cấu trúc chương trình 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 Phân hệ kế tốn tiền mặt 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 Sơ đồ chức Quản lý Kế Toán Doanh Nghiệp Quản lý Tiền mặt 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) Sơ đồ luồng liệu Khách hàng a1 b1 c2 Phiếu nhập xuất a3 a2 c1 Phiếu nhập xuất a4 Cập nhật phiếu thu chi c4 c3 Cập nhật danh mục khách hàng a5 c5 Danh mục hàng hóa e2 d2 Lưu phiếu thu chi Danh mục khách hàng e2 Báo cáo danh mục hàng hóa d1 b2 Cập nhật danh mục hàng hóa e1 Ban quản lý f2 f2 e3 f3 Báo cáo công nợ f1 f3 Ban quản lý 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 10 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 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 70 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 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() 71 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 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 72 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 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 73 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 Private Sub DCDMNT_change() Dim db As DAO.Database Dim rs As DAO.Recordset Dim chuoi As String 74 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") 75 End If rs.Close 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 76 End Select End Sub Private Sub DCDMNV_lostfocus() Me.DCDMNV.BackColor = &HFFFFFF 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 77 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 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 78 'Goi Form cap nhat chung tu nhap chi tiet Private Sub cmdchitiet_click() Frm_HDNHAPCT.Show End Sub 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 b ất kỳ 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 chun 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ế toá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 đỡ trình nghiên cứu phát triển đề tài M ặc dù không đ ược tr ực ti ếp, h ạn chế khoảng cách thời gian thầy đóng góp ý kiến quý báo cho tơi hồn thành đề tài Xin chân thành cảm ơn ! 79 80 NHẬN XÉT CỦA GIÁO VIÊN HƯỚNG DẪN - 81 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 82 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Ế TOÁN DOANH NGHIỆP Các bước thực kế tốn doanh nghiệp Mơ tả yêu cầu quản lý chương trình Quá 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 83 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 84 ... hầu hết cơng việc kế tốn Ở đề tài mang tính tham khảo phát tiển PHẦN II PHÂN TÍCH VÀ THIẾT KẾ HỆ THỐNG CHO CHƯƠNG TRÌNH QUẢN LÝ KẾ TOÁN DOANH NGHIỆP Các bước thực kế toán doanh nghiệp Lập chứng... bảng liệu chương trình Relationship phân hệ kế tốn tiền mặt Cơ sở liệu cho Chương Trình Quản Lý Kế Toán Doanh Nghiệp Relationship phân hệ kế toán hàng hóa 24 25 Relationship phân hệ kế tốn cơng... gói chương trình Chương trình đóng gói triển khai 39 40 PHẦN V CHƯƠNG TRÌNH QUẢN LÝ KẾ TOÁ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