Đồ án viết chương trình quản lý kế toán doanh nghiệp - 3 ppsx

Frm_HDNHAPCT.Show 1 End Sub PHẦN VI: ĐÓNG GÓI - ĐÁNH GIÁ VÀ HƯỚNG PHÁT TRIỂN ĐỀ TÀI Để chương trình mang một phần tính chuyên nghiệp, cần đóng gói chương trình thành bộ Setup Package &

Private Sub cmdxoa_mousemove(button As Integer, shift As Integer, x As Single, y

As Single)

txtTT.Text = "Xóa bản ghi"

End Sub

Private Sub cmdghi_click()

On Error GoTo Loi_Ghi

If them = True Then

txtTT.Text = "Bỏ qua không thêm bản ghi"

'Khi thay doi gia tri txtTHANG xu ly

Private Sub txtTHANG_change()

Dim thang

Dim nam

'Lay thang va nam cap nhat chung tu

(Ado_HDNHAP.Recordset.BOF = False) Then

Private Sub VScrollTHANG_change()

Dim thang As Byte

'Dem so ban ghi va cho biet ban ghi hien tai

(Ado_HDNHAP.Recordset.BOF = False) Then

End Sub

'Cac su kien khi chon ma chung tu

Private Sub DCDMCT_gotfocus()

Select Case keyascii

'Khi ngay chung tu nhan focus

Private Sub txtNGAYCT_gotfocus()

txtNGAYCT.BackColor = &HC0E0FF

End Sub

Private Sub txtNGAYCT_keypress(keyascii As Integer)

Select Case keyascii

'Khi so chung tu goc nhan focus

Private Sub txtSCTG_gotfocus()

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) & "'"

'Tang gia tri so chung tu len 1 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 7

If (Len(so) <> 0) Then

so1 = Val(so)

If (max < so1) Then

'Su kien khi thay doi so chung tu

Private Sub txtSCT_change()

(Ado_HDNHAP.Recordset.BOF = False) Then

n1 = Ado_HDNHAP.Recordset.Bookmark

End If

txtBGHH.Text = n1

txtSBG.Text = n

End Sub

'Su kien khi So chung tu nhan enter

Private Sub txtSCT_keypress(keyascii As Integer) Select Case keyascii

Private Sub DCDMNCC_gotfocus()

Dim rs As New ADODB.Recordset

Select Case keyascii

Case 13:

str = "select MA_NCC from Tbl_DMNCC where MA_NCC= '" & DCDMNCC & "'"

chuoi = "select * from Tbl_DMKHO where MA_KHO='" & DCDMKHO.Text

Dim rs As New ADODB.Recordset

Select Case keyascii

Dim str As String

Dim rs As New ADODB.Recordset

Select Case keyascii

Dim chuoi As String

Dim rs As New ADODB.Recordset

Select Case keyascii

Dim rs As New ADODB.Recordset

Select Case keyascii

Dim rs As New ADODB.Recordset

Select Case keyascii

Select Case keyascii

'Goi Form cap nhat chung tu nhap chi tiet

Private Sub cmdchitiet_click()

Frm_HDNHAPCT.Show 1

End Sub

PHẦN VI: ĐÓNG GÓI - ĐÁNH GIÁ VÀ HƯỚNG PHÁT TRIỂN ĐỀ TÀI

Để chương trình mang một phần tính chuyên nghiệp, cần đóng gói chương trình thành bộ Setup ( Package & Deloyment Wizard ) và có thể cung cấp cho người sử dụng bộ Setup này như có thể sao chép, cài đặt và có thể sử dụng trên bất kỳ máy tính nào

Một chương trình hoàn hảo để đảm bảo cho công việc kế toán thực thụ thì đòi hỏi tính chuyên nghiệp rất cao, nên trên cơ sở nghiên cứu và phát triển, đề tài chỉ đáp ứng được phần nào cho người sử dụng hiểu khái quát về kế toán, cũng như cách nghiên cứu về cơ sở dữ liệu cho kế toán doanh nghiệp Ngoài ra, nắm bắt cách sử dụng ngôn ngữ lập trình để tạo và phát triển các chương trình ứng dụng Đồng thời góp phần làm hoàn hảo một chương trình kế toán có thể đáp ứng rộng rãi cho nhiều doanh nghiệp sử dụng

Đề tài cần được bổ sung những thiếu sót, hạn chế như chưa tính toán được tồn quỹ tiền mặt, tồn kho hàng hóa và giá vốn hàng bán….Và phát triển theo hướng mở rộng như tìm kiếm các 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 của doanh nghiệp trong tháng, quý hay trong từng thời kỳ sản xuất kinh doanh

Cuối cùng tô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 trong quá trình nghiên cứu và phát triển đề tài Mặc dù không được trực tiếp, hạn chế về khoảng cách và thời gian nhưng thầy đã đóng góp những ý kiến quý báo cho tôi hoà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

TÀI LIỆU THAM KHẢO

1 Lý Thuyế Kế Toán

Thái Ninh

2 Kế Toán Doanh Nghiệp I – II

Khoa Kinh Tế Trường Đại Học Thủy Sản

3 Kế Toán Doanh Nghiệp Với Visual Basic

KS Đinh Xuân Lâm

4 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ố

5 Microsoft Visual Basic & Lập Trình Cơ Sở Dữ Liệu 6.0

2 Vai trò của kế toán

3 Vai trò tin học trong quản lý

4 Nhiệm vụ của đề 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

1 Các bước thực hiện cơ bản của kế toán doanh nghiệp

2 Mô tả yêu cầu quản lý của chương trình

3 Quá trình phân tích chương trình

4 Dữ liệu đầu vào và đầu ra của chương trình

5 Cấu trúc chương trình

6 Sơ đồ chức năng

7 Sơ đồ luồng dữ liệu

8 Sơ đồ quan hệ giữa các thực thể

PHẦN III CƠ SỞ DỮ LIỆU CỦA CHƯƠNG TRÌNH

1 Cơ sở dữ liệu

2 Sử dụng Microsoft Access để tạo cơ sở dữ liệu

PHẦN IV SỬ DỤNG NGÔN NGỮ LẬP TRÌNH VISUAL BASIC ĐỂ THIẾT KẾ CHƯƠNG TRÌNH

1 Ngôn ngữ lập trình visual basic

2 Các đối tượng truy cập dữ liệu

3 Sử dụng các đối tượng truy cập dữ liệu trong chương trình

4 Các giao diện người sử dụng

5 Sử dụng các câu truy vấn (SQL)

6 Thiết lập báo cáo và xuất thông tin

7 Tạo bộ giúp đỡ

8 Đóng gói chương trình

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

1 Hệ thống Folder để lưu trữ chương trình

2 Giao diện chính của chương trình

3 Một số thủ tục dùng để mở kết nối dữ liệu giữa Access với Visual Basic

4 Giao diện và mã nguồn của một số Form cập nhật và 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