Đồ án tốt nghiệp tin học hóa quản lý thông tin trong các doanh nghiệp

ĐỀ TÀI TỐT NGHIỆP 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ì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 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 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 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ồ 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 ngồi đá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 tồn liệu doanh nghiệp ĐỀ TÀI TỐT 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 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 chuyên 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ế tốn doanh nghiệp Lập chứng từ gốc để ghi nhận nghiệp vụ kinh tế phát sinh hồ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… ĐỀ TÀI TỐT NGHIỆP 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ế tốn khác : Phân hệ kế tố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 ĐỀ TÀI TỐT NGHIỆP Š 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ế tố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 yê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 ĐỀ TÀI TỐT NGHIỆP Š 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 Š 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 ĐỀ TÀI TỐT NGHIỆP Cấu trúc chương trình 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 Danh mục hình thức toán Phân hệ kế toán tiền mặt 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 ĐỀ TÀI TỐT NGHIỆP 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 b1 Phiếu nhập xuất a1 Ban quản lý c2 c1 d1 ĐỀ TÀI TỐT NGHIỆP 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 ĐỀ TÀI TỐT NGHIỆ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ý yêu cầu báo cáo công nợ f2 Lấy số nợ đầu kỳ từ danh mục khách hàng tình hình nhập xuất từ kho 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ợ Sơ đồ quan hệ thực thể Danh mục khách hàng Phiếu thu, chi 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 PHẦN III Ký hiệu quan ->DỮ n: CƠhệSỞ LIỆU CỦA CHƯƠNG TRÌNH Cơ sở liệu Cơ sở liệu kho chứa thông tin, có nhiều loại sở liệu, phổ biến CSDL quan hệ Một CSDL quan hệ Š Chứa liệu bảng, cấu tạo dòng (mẫu tin), cột (trường) Š Cho phép lấy (hay truy vấn) tập hợp liệu từ bảng Š Cho phép nối bảng với cho mục đích truy cập mẫu tin liên quan với chứa bảng khác Bộ máy (Engine) sở liệu ĐỀ TÀI TỐT NGHIỆP Chức CSDL cung cấp máy CSDL, hệ thống chương trình quản lý cách thức chứa trả liệu Bảng trường Các CSDL cấu tạo từ bảng dùng thể phân nhóm liệu Bảng chứa mẫu tin mẫu liệu riêng rẽ bên phân nhóm liệu Mẫu tin chứa trường, trường thể phận liệu mẫu tin RecordSet Khi tạo bảng cần nắm cách thao tác với bảng Thao tác với bảng liên quan đến việc nhập lấy liệu từ bảng khác việc kiểm tra sữa đổi cấu trúc bảng Thao tác liệu bảng ta dùng Recordset RecordSet cấu trúc liệu thể tập hợp mẫu tin lấy từ CSDL Mối quan hệ Khóa : trường khóa bảng phục vụ cho việc xác định mẫu tin Khóa ngoại : khóa bảng liên quan chứa khóa Mối quan hệ : cách định nghĩa thức hai bảng liên hệ với Khi định nghĩa mối quan hệ, tức thông báo với máy CSDL hai trường hai bảng liên quan nối với Hai trường liên quan với mối quan hệ khóa khóa ngoại Ngồi việc ghép mẫu tin liên quan bảng riêng biệt, mối quan hệ tận dụng mạnh tính tồn vẹn tham chiếu, thuộc tính máy CSDL trì liệu CSDL nhiều bảng ln ln qn Khi tính tồn vẹn tham chiếu tồn CSDL, máy CSDL ngăn cản xóa mẫu tin có mẫu tin khác tham chiếu đến CSDL Sử dụng Microsoft Access để tạo sở liệu cho chương trình Microsoft Access có giao diện tinh xảo dễ dùng để tạo đối tượng CSDL a Bộ liệu gốc chương trình Tbl_DMCT : Danh mục chứng từ Field name MA_CT (K) TEN_CT Data type Text Text Size 10 50 Description Mã chứng từ Diễn giải Tbl_DMTK : Danh mục tài khoản Field name MA_TK(K) DIENGIAI Data type Text Text Size 14 50 Description Mã tài khoản Diễn giải 10 ĐỀ TÀI TỐT NGHIỆP 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) 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 54 ĐỀ TÀI TỐT NGHIỆP 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 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() 55 ĐỀ TÀI TỐT NGHIỆP 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 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 56 ĐỀ TÀI TỐT NGHIỆP 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() 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) 57 ĐỀ TÀI TỐT NGHIỆP 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 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 58 ĐỀ TÀI TỐT NGHIỆP 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 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 59 ĐỀ TÀI TỐT NGHIỆP 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 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 60 ĐỀ TÀI TỐT NGHIỆP 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 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 61 ĐỀ TÀI TỐT NGHIỆP 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 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 62 ĐỀ TÀI TỐT NGHIỆP 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 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 MA_HTTT='" & 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 63 ĐỀ TÀI TỐT NGHIỆP End Sub '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 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 64 ĐỀ TÀI TỐT NGHIỆP ứng phần cho người sử dụng hiểu khái quát kế tố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 quý báo cho hồn thành đề tài Xin chân thành cảm ơn ! NHẬN XÉT CỦA GIÁO VIÊN HƯỚNG DẪN 65 ĐỀ TÀI TỐT NGHIỆP TÀI LIỆU THAM KHẢO Lý Thuyế Kế Tốn Thái Ninh Kế Tốn Doanh Nghiệp I – II Khoa Kinh Tế Trường Đại Học Thủy Sản Kế Tố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 Hồng Đức Hải GSTS Nguyễn Hữu Anh 66 ĐỀ TÀI TỐT NGHIỆP 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ế 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 67 ĐỀ TÀI TỐT NGHIỆP 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 68 ... toá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 ĐỀ TÀI TỐT NGHIỆP Sơ đồ chức Quản lý Kế Toán Doanh Nghiệp Quản. .. NGHIỆP 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... tiết tổng hợp tháng Š Cung cấp liệu cho phân hệ kế tốn khác : Phân hệ kế tố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