Khi các doanh nghiệp ngày càng mở rộng quy mô hoạt động sản xuất thì nhu cầu nâng cấp phần mềm quản lý hàng tồn kho ngày càng cấp thiết và trở nên quan trọng. Với khối lượng dữ liệu lớn, mức độ xử lý chứng từ phức tạp đòi hỏi sự chính xác tuyệt đối trong từng khâu thì yêu cầu đối với phần mềm ngày càng cao, điều đó đồng nghĩa với việc phần mềm quản lý hàng tồn kho hiện tại không còn phù hợp nữa. Vì vậy trong tương lai cần phải cải thiện phần mềm theo hướng ngày càng hoàn thiện, chính xác các chức năng, các xử lý là một điều tất yếu.
Với phần mềm này, dữ liệu của các kho thuộc chi nhánh khác nhau trong một công ty, doanh nghiệp được thống nhất về một mối, quản lý trên máy chủ. Như vậy việc đưa ra các báo cáo sẽ chính xác nhanh chóng, hỗ trợ kịp thời đưa ra những quyết định chiến lược thu lại nhiều cơ hội, lợi nhuận cho công ty.
KẾT LUẬN
Quản lý hàng tồn kho là một phần không thể thiếu trong công việc kinh doanh của doanh nghiệp thương mại, đặc biệt là đối với các doanh nghiệp có quy mô lớn. Đối với quản trị doanh nghiệp thì việc quản lý hàng tồn kho một cách có hệ thống, khoa học, cập nhật nhanh chóng, đầy đủ thông tin là việc làm cần thiết làm căn cứ cho nhà quản lý phân tích tình hình kinh doanh để từ đó đưa ra các quyết đinh kinh doanh đạt hiệu quả.
Trong thời gian thực tập tại Công ty cổ phần thương mại và dịch vụ Mạnh Hưng Phát, bằng những kiến thức đã được học trong trường và tình hình thực tế tìm hiểu tại công ty em đã hoàn thành chuyên đề thực tập tốt: “Xây dựng phần mềm quản lý hàng tồn kho tại công ty cổ phần thương mại và dịch vụ Mạnh Hưng Phát”. Chuyên đề thực tập tốt nghiệp của em đã trình bày một cách có hệ thống các vấn đề chủ yếu có liên quan đến vấn đề quản lý hàng tồn kho trên cả phương diện thực tiễn và lý thuyết.
Những bài học thực tiến được tĩnh lũy trong quá trình thực tập đã giúp em nắm vững hơn kiến thức đã được học trên ghế nhà trường. Với mong muốn góp một phần vào công tác quản lý hàng tồn kho tại công ty, em hy vọng phần mềm được xây dựng sẽ có tính khả thi cao, phù hợp với đặc điểm hoạt động của công ty.
Do kiến thức về lý luận và chuyên môn còn hạn chế nên chuyên đề thực tập tốt nghiệp của em khó tránh khỏi những thiếu xót, kính mong các thầy cô thông cảm.
Một lần nữa em xin chân thành gửi lời cảm ơn đến T.S Nguyễn Thị Bạch Tuyết cùng các thầy cô giáo trong khoa đã tận tình chỉ bảo, dạy dỗ trong suốt quá trình thực tập và thời gian theo học tại trường Đại học Kinh tế Quốc dân. Em cũng xin gửi lời cảm ơn tới ban lãnh đạo công ty cổ phần thương mại và dịch vụ Mạnh Hưng Phát, các anh chị trong bộ phận kho hàng của công ty đã tạo điều kiện , giúp đỡ em hoàn thành chuyên đề thực tập của mình.
Em xin chân thành cảm ơn! Sinh viên thực tập
MỘT SỐ ĐOẠN CODE CHƯƠNG TRÌNH
1. Kết nối cơ sở dữ liệu
Option Explicit
Public db As New ADODB.Connection Public tensd As String
Public quyen As String Public temp As String
Public temp1, temp2, temp3 As String Public Sub ketnoi()
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "" & App.Path & "\Database\CSDL.mdb" & "; Persist Security Info=False;Jet
OLEDB:Database Password=12344321" db.Open
End Sub
2. Đăng nhập hệ thống
Dim i As Integer
Private Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Sub kiemtra() i = i + 1 If i = 3 Then Unload frmDN
MsgBox "Bạn không có quyền truy nhập vào hệ thống", vbOKOnly, "Chú ý"
End End If
rs.MoveFirst
Do While rs.EOF = False
If (txtName.Text = rs.Fields("Name")) And (txtPass.Text = rs.Fields("Pass")) Then
quyen = rs.Fields("quyen") tensd = rs.Fields("hvt")
temp = tensd & " Quyền" & quyen Timer1.Interval = 0
Me.Hide
SetTimer hwnd, NV_CLOSEMSGBOX, 1000&, AddressOf TimerProc MDIQLHTK.Show Exit Do Else rs.MoveNext End If Loop SendKeys "{TAB}" SendKeys "{TAB}" txtName.Text = "" txtPass.Text = "" End Sub
Private Sub cmdCancel_Click(Index As Integer) End
Private Sub cmdOk_Click(Index As Integer) MDIQLHTK.Show
Unload Me End Sub
3. Phiếu nhập kho
Private Sub cmdCapNhat_Click() Data1.Recordset.AddNew Data1.Refresh
End Sub
Private Sub cmdCancel_Click() Unload Me
End Sub
Private Sub cmdThem_Click() Data1.Recordset.AddNew txtMH.SetFocus
End Sub
Private Sub cmdXoa_Click()
If MsgBox("Bạn có chắc chắn muốn xóa thông tin về phiếu nhập này?", vbYesNo, "Cảnh báo ") = vbYes Then
Data1.Recordset.Delete Data1.Recordset.MoveNext End If
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\Database\CSDL.mdb" End Sub
4. In Báo cáo hàng nhập theo ngày
rptINBCN.ReportFileName = App.Path & "\Reports\rptINBCN.rpt" sql = "select MaHang,TenHang,NgayNhap,DVT,SL,DG from CTPN db.OpenRecordset(sql)
rptINBCN.SetTablePrivateData 0, 3, res rptINBCN.WindowState = crptMaximized
rptINBCN.Formulas(0) = "='" & DBDMHH.Text & "'" rptINBCN.PrintReport
End Sub
Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "\Database\CSDL.mdb") Data1.DatabaseName = App.Path & "\Database\CSDL.mdb" End Sub
MỘT SỐ GIAO DIỆN TRONG PHẦN MỀM 1 Danh mục nhân viên
TÀI LIỆU THAM KHẢO
1. PGS.TS Đăng Minh Ắt (ĐH kinh tế quốc dân) - Bài giảng phân tích và thiết kế HTTTQL.
2. Nguyễn Quang Thông (TT đào tạo công nghệ AVNet) - Giáo trình phân tích thiết kế HTTTQL.
3. Báo cáo thực tập tốt nghiệp của SV Trần Thị Thu Hà – Lớp CQ44/41.04 Học viện Tài chính
4. Phân tích thiết kế HTTTKT_Phương pháp và ứng dụng – NXB Lao động và Xã hội
5. ThS Trịnh Hoài Sơn (ĐH kinh tế quốc dân) – Giáo trình Phát triển ứng dụng trong quản lý.