4. Công cụ thực hiện
3.4.6 Giao diện nhập chứng từ chi NS
Với giao diện này người sử dụng có thể thêm mới các chứng từ chi NS chi tiết theo mục lục NSNN, sửa các thông tin liên quan đến chứng từ, xóa chứng từ, lưu lại vào CSDL các thông tin chính xác
3.4.7. Báo cáo chứng từ chi
3.4.8. Báo cáo chứng từ thu
3.4.9 Báo cáo chi tiết tài khoản tiền mặt
Báo cáo chi tiết tài khoản tiền mặt cho phép đưa ra thông tin chi tiết về số phát sinh nợ, có, và số dư của tài khoản 501
KẾT LUẬN
Trong quá trình thực tập tại KBNN Na Hang em đã học hỏi và tiếp thu thêm được kiến thức mới về kế toán NSNN và nghiệp vụ KBNN với sự giúp đỡ, chỉ bảo của các cán bộ tại bộ phận Kế toán nhất là sự quan tâm, hướng dẫn và đồng ý của giáo viên hướng dẫn TS Trần Thị Thu Hà. Từ đó em quyết định lựa chọn đề tài "Phân tích và thiết kế HTTT Kế toán thu - chi NSNN bằng tiền mặt" để thực hiện.
Chuyên đề này thực hiện nhằm mục đích chủ yếu là áp dụng kiến thức đã tiếp thu được của bản thân vào thực tế công việc.Tuy nhiên, do quỹ thời gian thực tập quá ngắn lại thiếu kinh nghiệm tìm hiểu thực tế, sự hạn chế về kiến thức nên không thể tránh khỏi những thiếu sót trong việc thực hiện, em rất mong nhận được những ý kiến đóng góp quý báu của thầy cô và các bạn.
DANH MỤC TÀI LIỆU THAM KHẢO
1. Bộ Tài Chính (tháng 06 /2006)kế toán ngân sách nhà nước và hoạt động nghiệp vụ Kho bạc Nhà nước", NXB Tài chính, Hà Nội.
2. Bộ Tài Chính, Kho bạc Nhà nước (2005), "Kho bạc Nhà nước Việt Nam - Quá trình xây dựng và phát triển", NXB Tài chính, Hà Nội.
3. Bộ Tài Chính, Kho bạc Nhà nước, QĐ số: 748 KB/QĐ/TCCB ngày 24/12/2003, Quyết định của Tổng giám đốc KBNN: Quy định nhiệm vụ, quyền hạn và cơ cấu tổ chức của KBNN huyện trực thuộc KBNN tỉnh, Hà Nội.
4. Bộ Tài chính (tháng 07/2003),"Luật ngân sách nhà nước và các văn bản hướng dẫn thực hiện", NXB Tài chính, Hà Nội.
5. TS Trương Văn Tú, Trần Thị Song Minh (2000), "Giáo trình Hệ thống thông tin quản lý", NXB Thống kê, Hà Nội.
PHẦN CODE CHÍNH CỦA CHƯƠNG TRÌNH
1. Mã nguồn của Form đăng nhập
Private Sub CmdThoat_Click() Unload FrmMain
FrmDangNhap.Hide End Sub
Private Sub CmdDangNhap_Click() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim strSQL As String
Dim bHople As Boolean
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\Data\KeToanNSNN.mdb"
cn.Open
strSQL = "SELECT MaNhanVien,Matkhau FROM DMNhanVien" Set rs = New ADODB.Recordset
rs.Open strSQL, cn, adOpenStatic, adLockOptimistic If (rs.BOF = True) Then
MsgBox " Thong tin nhan vien khong co trong co so du lieu" rs.Close
cn.Close Exit Sub End If
rs.MoveFirst bHople = False
Do While (Not rs.EOF) And (Not bHople = True)
If (rs!MaNhanVien = TxtMaNhanVien.Text) And (rs!Matkhau = TxtMatKhau.Text) Then bHople = True Else rs.MoveNext End If Loop rs.Close cn.Close
If bHople = True Then
MsgBox ("Chao mung ban den voi chuong trinh Ke toan NSNN") Unload Me
FrmMain.Show Else
MsgBox "Ma nhan vien hoac mat khau sai!" Unload Me
End If End Sub
2. Mã nguồn của Form danh mục tài khoản Option Explicit
Dim recnum Dim xThem
Dim cn As ADODB.Connection Dim res As New ADODB.Recordset
Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\Data\KeToanNSNN.mdb"
cn.Open Adodc1.Visible = True CmdThoat.Visible = True CmdSua.Visible = True CmdLuu.Visible = False CmdKhongLuu.Visible = False CmdXoa.Visible = True CmdThem.Visible = True Adodc1.Visible = True DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False DataGrid1.AllowRowSizing = False DataGrid1.AllowArrows = False End Sub
Private Sub CmdThem_Click() On Error GoTo Err_Them_click DataGrid1.AllowDelete = True DataGrid1.AllowUpdate = True Adodc1.Recordset.AddNew 'DataGrid1.SetFocus TxtMa.SetFocus CmdThoat.Visible = False
CmdSua.Visible = False CmdKhongLuu.Visible = True CmdLuu.Visible = True CmdXoa.Visible = False CmdThem.Visible = False 'CmdSearch.Visible = False xThem = True Exit_Them_click: Exit Sub Err_Them_click: MsgBox Err.Description Resume Exit_Them_click End Sub
Private Sub CmdSua_Click() On Error GoTo Err_Sua_click
recnum = Adodc1.Recordset.Bookmark CmdThoat.Visible = False CmdSua.Visible = False CmdKhongLuu.Visible = True CmdLuu.Visible = True CmdXoa.Visible = False CmdThem.Visible = False xThem = False DataGrid1.AllowDelete = True DataGrid1.AllowUpdate = True Exit_Sua_click: Exit Sub
Err_Sua_click:
MsgBox Err.Description Resume Exit_Sua_click End Sub
Private Sub CmdXoa_Click() On Error GoTo Err_Xoa_click Dim TraLoi
TraLoi = MsgBox("Ban muon xoa Ma Chuong " & _
Adodc1.Recordset.Fields("TenChuong") & " (cung voi cac thong tin lien quan)?" _
, vbYesNo, "Thong bao") If TraLoi = 6 Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext Adodc1.Recordset.Clone If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End If Exit_Xoa_click: Exit Sub Err_Xoa_click:
MsgBox "Khong the xoa ban ghi nay!" Resume Exit_Xoa_click
End Sub
On Error GoTo Err_KhongLuu_Click Adodc1.Refresh Adodc1.Recordset.Clone Adodc1.Recordset.MoveLast CmdThoat.Visible = True CmdSua.Visible = True CmdKhongLuu.Visible = False CmdLuu.Visible = False CmdXoa.Visible = True CmdThem.Visible = True 'CmdSearch.Visible = True CmdThem.SetFocus xThem = False Exit_KhongLuu_Click: DataGrid1.SetFocus Exit Sub Err_KhongLuu_Click:
MsgBox "Data is invalid!" Resume Exit_KhongLuu_Click End Sub
Private Sub CmdLuu_Click() On Error GoTo Err_Luu_click
Adodc1.Recordset.UpdateBatch adAffectAll CmdThoat.Visible = True
CmdSua.Visible = True
CmdLuu.Visible = False CmdXoa.Visible = True CmdThem.Visible = True ' CmdSearch.Visible = True CmdThem.SetFocus xThem = False Exit_Luu_click: DataGrid1.SetFocus Exit Sub Err_Luu_click:
MsgBox "Data is invalid." Resume Exit_Luu_click End Sub
Private Sub CmdThoat_Click() Unload Me
End Sub
3. Mã nguồn của Form tìm kiếm chứng từ Option Explicit
Dim recnum Dim xThem
Dim cn As ADODB.Connection
Private Sub CmdDung_Click() Cbo1.Clear
CmdFind.Enabled = True CmdDung.Enabled = False
End Sub
Private Sub CmdFind_Click() CmdDung.Enabled = True AddItem
Cbo1.SetFocus
CmdFind.Enabled = False End Sub
Public Sub AddItem()
Cbo1.AddItem ("MaNhanVien") Cbo1.AddItem ("SoChungTu") Cbo1.AddItem ("TaiKhoanNo") Cbo1.AddItem ("TaiKhoanCo") End Sub
Private Sub CmdThoat_Click() Unload Me
End Sub
Private Sub TxTFind_Change()
If Cbo1.Text = "" Or TxtFind = "" Then Adodc1.Recordset.Filter = "" Adodc1.Refresh
Exit Sub End If
Adodc1.Recordset.Filter = Cbo1 & " LIKE '*" & TxtFind & "*'" End Sub
Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\Data\KeToanNSNN.mdb"
cn.Open Adodc1.Visible = True CmdThoat.Visible = True CmdFind.Visible = True CmdDung.Visible = True Adodc1.Visible = True DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False DataGrid1.AllowRowSizing = False DataGrid1.AllowArrows = False End Sub
4. Mã nguồn của Form nhập chứng từ Option Explicit
Dim recnum Dim xThem
Dim cn As ADODB.Connection Dim res As New ADODB.Recordset
Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\Data\KeToanNSNN.mdb"
Adodc1.Visible = True CmdThoat.Visible = True CmdSua.Visible = True CmdLuu.Visible = False CmdKhongLuu.Visible = False CmdXoa.Visible = True CmdThem.Visible = True Adodc1.Visible = True DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False DataGrid1.AllowRowSizing = False DataGrid1.AllowArrows = False End Sub
Private Sub CmdThem_Click() On Error GoTo Err_Them_click DataGrid1.AllowDelete = True DataGrid1.AllowUpdate = True Adodc1.Recordset.AddNew 'DataGrid1.SetFocus TxtSoCT.SetFocus CmdThoat.Visible = False CmdSua.Visible = False CmdKhongLuu.Visible = True CmdLuu.Visible = True CmdXoa.Visible = False CmdThem.Visible = False 'CmdSearch.Visible = False
xThem = True Exit_Them_click: Exit Sub Err_Them_click: MsgBox Err.Description Resume Exit_Them_click End Sub
Private Sub CmdSua_Click() On Error GoTo Err_Sua_click
recnum = Adodc1.Recordset.Bookmark CmdThoat.Visible = False CmdSua.Visible = False CmdKhongLuu.Visible = True CmdLuu.Visible = True CmdXoa.Visible = False CmdThem.Visible = False xThem = False DataGrid1.AllowDelete = True DataGrid1.AllowUpdate = True Exit_Sua_click: Exit Sub Err_Sua_click: MsgBox Err.Description Resume Exit_Sua_click End Sub
Private Sub CmdXoa_Click() On Error GoTo Err_Xoa_click
Dim TraLoi
TraLoi = MsgBox("Ban muon xoa Chung Tu " & _
Adodc1.Recordset.Fields("SoChungTu") & " (cung voi cac thong tin lien quan)?" _
, vbYesNo, "Thong bao") If TraLoi = 6 Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext Adodc1.Recordset.Clone If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End If Exit_Xoa_click: Exit Sub Err_Xoa_click:
MsgBox "Khong the xoa ban ghi nay!" Resume Exit_Xoa_click
End Sub
Private Sub CmdKhongLuu_Click() On Error GoTo Err_KhongLuu_Click Adodc1.Refresh
Adodc1.Recordset.Clone Adodc1.Recordset.MoveLast CmdThoat.Visible = True CmdSua.Visible = True
CmdKhongLuu.Visible = False CmdLuu.Visible = False CmdXoa.Visible = True CmdThem.Visible = True 'CmdSearch.Visible = True CmdThem.SetFocus xThem = False Exit_KhongLuu_Click: DataGrid1.SetFocus Exit Sub Err_KhongLuu_Click:
MsgBox "Data is invalid!" Resume Exit_KhongLuu_Click End Sub
Private Sub CmdLuu_Click() On Error GoTo Err_Luu_click
Adodc1.Recordset.UpdateBatch adAffectAll CmdThoat.Visible = True CmdSua.Visible = True CmdKhongLuu.Visible = False CmdLuu.Visible = False CmdXoa.Visible = True CmdThem.Visible = True ' CmdSearch.Visible = True CmdThem.SetFocus xThem = False
Exit_Luu_click:
DataGrid1.SetFocus Exit Sub
Err_Luu_click:
MsgBox "Data is invalid." Resume Exit_Luu_click End Sub
Private Sub CmdThoat_Click() Unload Me
DANH MỤC CÁC CHỮ VIẾT TẮT ...1
LỜI NÓI ĐẦU...2
CHƯƠNG 1. TỔNG QUAN VỀ KBNN NA HANG -TUYÊN QUANG VÀ ĐỀ TÀI THỰC HIỆN...4
1.1. VÀI NÉT VỀ KBNN NA HANG...4
1.1.1 Lịch sử ra đời, chức năng và quyền hạn của KBNN...4
1.1.1.1 Lịch sử ra đời của hệ thống KBNN Việt Nam...4
1.1.1.2 Chức năng và quyền hạn của KBNN Việt Nam...10
1.1.2. Vài nét cơ bản về KBNN huyện Na Hang...13
1.1.2.1 Vị trí và chức năng của KBNN Na Hang...13
1.1.2.2 Nhiệm vụ và quyền hạn của KBNN Na Hang...13
1.1.2.3 Sơ đồ bộ máy tổ chức của KBNN Na Hang...15
1.1.2.4 Nhiệm vụ cụ thể của các bộ phận nghiệp vụ thuộc KBNN Na Hang...15
1.2. TỔNG QUAN VỀ ĐỀ TÀI THỰC HIỆN...18
1.2.1. Lý do chọn đề tài...18
1.2.2 Mục tiêu của đề tài...19
CHƯƠNG 2. NHỮNG VẤN ĐỀ CƠ BẢN VỀ NSNN, KẾ TOÁN THU – CHI NSNN VÀ PHÁT TRIỂN HTTT KẾ TOÁN...20
A. TỔNG QUAN VỀ NGÂN SÁCH NHÀ NƯỚC VÀ KẾ TOÁN THU – CHI NGÂN SÁCH NHÀ NƯỚC...20
1. NGÂN SÁCH NHÀ NƯỚC...20
1.1 Khái niệm...20
1.2. Phân cấp quản lý ngân sách và mối quan hệ giữa ngân sách các cấp...21
1.2.3. Nguồn thu của ngân sách địa phương...26
1.2.4. Việc phân cấp nguồn thu phải đảm bảo các yêu cầu...27
1.2.5. Nhiệm vụ chi của ngân sách địa phương...27
2. TỔNG QUAN VỀ KẾ TOÁN NSNN, KẾ TOÁN THU – CHI NSNN BẰNG TIỀN MẶT VÀ HOẠT ĐỘNG NGHIỆP VỤ KBNN...30
2.1. Khái niệm...30
2.2. Quy định chung về Kế toán NSNN...30
2.2.1. Đối tượng của Kế toán NSNN và hoạt động nghiệp vụ KBNN...30
2.2.2. Nhiệm vụ của Kế toán NSNN và hoạt động nghiệp vụ KBNN...31
2.2.3. Phương pháp ghi chép...32
2.2.4. Đơn vị tiền tệ...32
2.2.5. Kỳ kế toán...32
2.2.6. Tài liệu kế toán...32
2.2.7. Ứng dụng tin học vào công tác kế toán...33
2.3. Chứng từ kế toán liên quan đến hoạt động Kế toán thu – chi NSNN bằng tiền mặt (Ban hành theo quyết định số 24/2006/QĐ – BTC ngày 06/04/2006 của Bộ Tài chính)...33
2.3.1. Giấy nộp tiền vào NSNN bằng tiền mặt (Mẫu số C1- 02/NS)...34
2.3.2. Lệnh chi tiền (Mẫu số C2-01/NS)...35
2.3.3. Lệnh chi tiền ngân sách xã kiêm lĩnh tiền mặt (Mẫu số C2- 02/NS)...36
2.3.5. Giấy rút dự toán ngân sách kiêm lĩnh tiền mặt (CTMT)
(Mẫu số C2-04b/NS)...39
2.3.6. Phiếu nhập dự toán ngân sách...39
2.4. Tài khoản kế toán liên quan đến hoạt động Kế toán thu – chi NSNN bằng tiền mặt...40
2.4.1. Tài khoản loại III – Chi từ nguồn vốn NSNN và các nguồn vốn khác...42
2.4.2.Tài khoản loại V – Vốn bằng tiền...45
2.4.3.Tài khoản loại VII – Thu NSNN...46
2.5. Một số loại sổ kế toán liên quan đến Kế toán thu – chi NSNN bằng tiền mặt...48
2.5.1 Sổ cái tài khoản trong bảng (Mẫu số S1-01/KB)...48
2.5.2 Sổ chi tiết tài khoản tiền mặt (Mẫu số S2-01/KB)...49
2.5.3 Sổ chi tiết thu NSNN (Mẫu số S2-05/KB) ...50
2.5.4 Sổ chi tiết chi NSNN bằng tiền mặt (Mẫu số S2-07/KB)...51
B. NHỮNG VẤN ĐỀ CƠ BẢN VỀ PHÁT TRIỂN HỆ THỐNG THÔNG TIN KẾ TOÁN...52
1. Khái niệm...52
2. Nguyên nhân dẫn tới việc phát triển một HTTT...54
3. Các giai đoạn phát triển HTTT...55
3.1.Giai đoạn 1: Đánh giá yêu cầu...55
3.2. Giai đoạn: Phân tích chi tiết...56
3.3.Giai đoạn 3: Thiết kế lô gíc...57
3.4.Giai đoạn 4: Đề xuất các phương án của giải pháp...57
4. Công cụ thực hiện...60
4.1. Các phương pháp thu thập thông tin...60
4.1.1.Phương pháp phỏng vấn và nghiên cứu tài liệu...60
4.1.3. Quan sát...62
4.2. Công cụ mô hình hóa...62
4.2.1 Sơ đồ luồng thông tin...62
4.2.2 Sơ đồ luồng dữ liệu...63
CHƯƠNG III. PHÂN TÍCH VÀ THIẾT KẾ HTTT KẾ TOÁN THU – CHI NGÂN SÁCH NHÀ NƯỚC BẰNG TIỀN MẶT...65
3.1. KHẢO SÁT THỰC TẾ...65
3.1.1 Tổ chức bộ máy kế toán...65
3.1.2.Những quy định chung về tập trung, quản lý các khoản thu NSNN qua KBNN và chế độ quản lý, cấp phát, thanh toán các khoản chi NSNN qua KBNN...65
3.1.2.1 Quy định về tập trung, quản lý thu NSNN bằng tiền mặt qua KBNN...65
3.1.2.2 Một số quy định về quản lý, cấp phát, thanh toán các khoản chi NSNN bằng tiền mặt qua KBNN...68
3.1.3. Quy trình kế toán thu – chi NSNN ...72
3.1.3.1 Quy trình kế toán thu NSNN bằng tiền mặt...72
3.1.3.2 Quy trình kế toán chi NSNN bằng tiền mặt...74
3.1.4. Phương pháp hạch toán...76
3.1.4.1 Hạch toán Thu NSNN bằng tiền mặt...76
3.2. Phân tích chi tiết HTTT Kế toán thu – chi NSNN bằng tiền mặt. .83 3.2.1 Sơ đồ chức năng (BFD) của hệ thống...83
3.2.2.1 Sơ đồ mức ngữ cảnh...84
3.2.2.2 Sơ đồ DFD mức 0 của HTTT Kế toán thu – chi NSNN bằng tiền mặt...85
3.2.2.3Sơ đồ DFD mức 1 của chức năng 1.0...86
3.2.2..4 Sơ đồ DFD mức 1 của chức năng 2.0...87
3.2.2.5 Sơ đồ DFD mức 2 của chức năng 2.1...88
3.2.2.6 Sơ đồ DFD mức 2 của chức năng 2.2...89
3.2.3. Sơ đồ luồng thông tin (IFD) của hệ thống...90
3.2.3.1 Sơ đồ luồng thông tin quá trình thu NS...90
3.2.3.2 Luồng thông tin quá trình chi thường xuyên...91
3.2.3.3 Luồng thông tin quá trình chi đầu tư...92
3.3. Thiết kế logic HTTT kế toán thu – chi NSNN bằng tiền mặt...93
3.3.1. Thiết kế CSDL lôgíc...93
3.3.1.1 Khái quát về thiết kế CSDL...93
3.3.1.2 Thiết kế cơ sở dữ liệu Kế toán thu – chi NSNN bằng tiền mặt...94
3.3.2. Các giải thuật trong chương trình...103
3.3.2.1. Thuật toán đăng nhập chương trình...103
3.3.2.2 Thuật toán thêm bản ghi...104
3.3.2.3. Thuật toán xóa bản ghi...105
3.3.2.4. Thuật toán tìm kiếm...106
3.3.2.5. Thuật toán tạo lập báo cáo...107
3.4. Thiết kế giao diện chính của HTTT Kế toán Thu – chi NSNN bằng tiền mặt...108
3.4.6 Giao diện nhập chứng từ chi NS...113
...113
KẾT LUẬN...117