- Xác định tập hợp các đối tượng cần mã hóa Xác định các xử lý tra cứu cần thực hiện
PHÂN TÍCH, THIẾT KẾ HTTT QUẢN LÝ TIỀN MẶT TẠI CÔNG TY TNHH MỸ NGHỆ HOA SƠN
3.5.3. Giao diện Phiếu thu tiền của chương trình.
Hình 3.12. Giao diện phiếu thu tiền.
Giao diện cho phép nguời sử dụng thực hiện một số thao tác với phiếu thu như: Lập
GVHD: Th.S Trịnh Phú Cường SV: Nguyễn Thị Thắm– Khóa 11B
thêm phiếu thu mới, lưu phiếu thu, xoá phiếu thu đã tồn tại, in phiếu thu.
Code:
Private Sub cmd_Click(Index As Integer) Select Case Index
Case 0 'Nhap Call lockthecontrols(False, "X") VSF.Editable = flexEDKbdMouse Flag = "N" vsftrue txtSoP.SetFocus cmd(2).Enabled = False Case 1 'Ghi
'Ghi trong truong hop Nhap moi If Flag = "N" Then
Call SetConnection("CSDL.mdb") 'Ghi vao bang PhieuT
Dim strFields As String Dim strValues As String
strFields = "SoPT,Ngay_Thu, MaKH, MaTK, MaNT, Ly_Do, So_Tien"
strValues = "'" & txtSoP.Text & "','" & txtNgay_Thu.Text & "', '" & txtMaKH.Text & "', '" & txtMaTK.Text & "', '" & txtMaNT.Text & "', "
strValues = strValues & "'" & txtLyDo.Text & "', " & Val(lblTongVN.Caption) & ""
Call INSERTINTO("PhieuT", strFields, strValues) vsftrue
Call lockthecontrols(True) cmd(1).Enabled = False cmd(2).Enabled = True ' Ghi vao bang CTPT
Dim i%, c0%, c1$, c2$, c3!, c4$
Dim KT As Boolean, strCondi$, strExpre$
strFields = "SoPT, TT_DPT, TKCo, Dien_Giai, TienVN, NgayCT" For i = 0 To VSF.Rows - 1 c0 = Val(VSF.Cell(flexcpText, i, 0)) c1 = VSF.Cell(flexcpText, i, 1) c2 = VSF.Cell(flexcpText, i, 2) c3 = Val(VSF.Cell(flexcpText, i, 3)) c4 = txtNgay_Thu.Text
KT = (Len(txtSoP.Text)) > 0 And (c0 > 0) And (Len(c1) > 0) And Len(c2) > 0 And c3 > 0 And Len(c4) > 0
If KT Then
GVHD: Th.S Trịnh Phú Cường SV: Nguyễn Thị Thắm– Khóa 11B
strValues = "'" & txtSoP.Text & "' , " & c0 & " ,'" & c1 & "','" & c2 & "', " & c3 & ", '" & c4 & "'"
Call INSERTINTO("CTPT", strFields, strValues) End If
Next i
MsgBox "da thuc hien thanh cong !", vbOKOnly, "tinh` cop' xin thong bao "
CloseConnection
'Ghi trong truong hop Sua ElseIf Flag = "S" Then
Call SetConnection("CSDL.mdb") 'Cap nhat PhieuT
strExpre = "Ngay_Thu = '" & Format(txtNgay_Thu.Text, "dd/mm/yyyy") & "'"
strExpre = strExpre & ",MaKH = '" & txtMaKH.Text & "'" strExpre = strExpre & ",MaTK = '" & txtMaTK.Text & "'" strExpre = strExpre & ",MaNT= '" & txtMaNT.Text & "'" strExpre = strExpre & ",Ly_Do = '" & txtLyDo.Text & "'" strExpre = strExpre & ",So_Tien = " &
Val(lblTongVN.Caption) & ""
strCondi = "SoPT = '" & txtSoP.Text & "'" Call UpdateDB("PhieuT", strExpre, strCondi) 'Cap nhat bang CTPT
Dim SoHPT$, TTDPT%, TKC$, DG$, TienVN! Dim NCT As String SoHPT = txtSoP.Text For i = 0 To VSF.Rows - 1 TTDPT = Val(VSF.TextMatrix(i, 0)) TKC = VSF.TextMatrix(i, 1) DG = VSF.TextMatrix(i, 2) TienVN = Val(VSF.TextMatrix(i, 3)) NCT = txtNgay_Thu.Text If IsNumeric(TTDPT) Then
strExpre = "TT_DPT = " & TTDPT & ""
strExpre = strExpre & ",TKCo = '" & TKC & "'" strExpre = strExpre & ", Dien_Giai = '" & DG & "'" strExpre = strExpre & ",TienVN = " & TienVN & "" strExpre = strExpre & ",NgayCT = '" & NCT & "'" strCondi = "SoPT = '" & SoHPT & "'"
strCondi = strCondi & " AND TT_DPT = " & TTDPT & "" Call UpdateDB("CTPT", strExpre, strCondi)
End If
GVHD: Th.S Trịnh Phú Cường SV: Nguyễn Thị Thắm– Khóa 11B
Next i
MsgBox "da thuc hien thanh cong !", vbOKOnly, "tinh` cop' xin thong bao " CloseConnection Call lockthecontrols(True) End If Case 2 'Sua cmd(0).Enabled = False Call SetConnection("CSDL.mdb")
Set RsKQ = GetRs("PhieuT", "SoPT", "", "SoPT") lst.Clear Flag = "S" Do Until RsKQ.EOF lst.AddItem RsKQ("SoPT") RsKQ.MoveNext Loop CloseRecordset CloseConnection cmdlst.Visible = True cmdlst.SetFocus Case 3 'Xoa Case 4 'Thoat Unload Me End Select End Sub 3.6. Đóng gói chương trình.
Setup Factory là một phần mềm tiện ích nhỏ dùng để tạo bộ cài cho những ứng dụng viết bằng Visual Basic 6.0 hay bất kỳ ngôn ngữ lập trình nào.
Chương trình được đóng gói thành một file dưới dạng (*.EXE) nên khi sử dụng chương trình bạn chỉ cần nhấn vào file.exe để tiến hành cài đặt chương trình. Sau khi chương trình được cài thành công thì người sử dụng sẽ làm việc với các chức năng của chương trình.
GVHD: Th.S Trịnh Phú Cường SV: Nguyễn Thị Thắm– Khóa 11B
KẾT LUẬN
Hiện nay, sự kết hợp giữa kinh tế và công nghệ thông tin đang dành được nhiều sự ưu tiên trong phát triển kinh tế xã hội bởi ai cũng thấy được những tác dụng to lớn mà nó mang lại cho cuộc sống, đặc biệt là trong công tác kế toán, một phần mềm kế toán và một nhân viên kế toán có thể thay thế hàng chục nhân viên kế toán bằng tay mà vẫn có đầy đủ các báo cáo tài chính một cách chính xác, vẫn đảm bảo tuân thủ các nguyên tắc và chuẩn mực kế toán.
Trong quá trình thực tập dưới sự dẫn tận tình của Th.S. Trịnh Phú Cường, khoa Tin học kinh tế - trường Đại học Kinh tế Quốc dân và các anh chị trong công ty TNHH Mỹ Nghệ Hoa Sơn cũng như sự cố gắng của bản thân, em đã hoàn thành đề tài thực tập của mình. Đề tài đã được đưa vào áp dụng tại công ty TNHH Mỹ Nghệ Hoa Sơn và đã hạn chế được những tồn tại của quản lý tiền mặt như giảm bớt được sự thiếu sót khi nhập các thông tin của nhân viên kế toán, thông tin không bi trùng lặp, quản lý được sổ thu chi tiền mặt.
Kết quả của đề tài phù hợp với mục đích đã đề ra và đã giải quyết được việc quản lý sổ thu chi tiền mặt của công ty; nhờ đó công tác quản lý tiền mặt đã trở nên đơn giản hơn rất nhiều.
Một lần nữa, em xin chân thành cảm ơn thầy giáo Th.S. Trịnh Phú Cường và các thầy cô trong Khoa Tin học Kinh tế - trường Đại học Kinh tế Quốc dân, các anh chị trong công ty TNHH Mỹ Nghệ Hoa Sơn đã giúp đỡ em thực hiện đề tài này.
Em xin chân thành cảm ơn!
Hà Nội, tháng 05/2012
Sinh viên thực hiện
Nguyễn Thị Thắm
GVHD: Th.S Trịnh Phú Cường SV: Nguyễn Thị Thắm– Khóa 11B