1.6.1 Tên đề tài
3.5.4.16 Form hoá đơn xuất hàng
Hình 3.5.4.17 Form chi tiết hoá đơn 3.5.4.18 Form phiếu nhập hàng
Hình 3.5.4.18 Form phiếu nhập hàng 3.5.4.19 Form chi tiết phiếu nhập
Hình 3.5.4.19 Form chi tiết phiếu nhập 3.5.4.20 Menu báo cáo
Hình 3.5.4.20 Menu báo cáo 3.5.4.21 Form báo cáo tồn kho
Hình 3.5.4.21 Form báo cáo tồn kho 3.5.4.22 Form báo cáo nhập kho
Hình 3.5.4.22 Form báo cáo nhập kho 3.5.4.23 Form báo cáo xuất kho
Hình 3.5.4.23 Form báo cáo xuất kho 3.5.4.24 Menu trợ giúp
Hình 3.5.4.24 Menu trợ giúp 3.5.4.25 Form giới thiệu tác giả
Hình 3.5.4.25 Form giới thiệu tác giả 3.5.4.26 Form liên hệ trực tuyến
Hình 3.5.4.26 Form liên hệ trực tuyến 3.6 Một số báo cáo điển hình
3.6.1 Báo cáo hàng tồn kho của Công ty INET
Hình 3.6.1 Báo cáo hàng tồn kho 3.6.2 Báo cáo nhập kho của Công ty INET
Hình 3.6.2 Báo cáo hàng nhập kho
Hình 3.6.3 Báo cáo hàng xuất kho Kết luận
Trước sự năng động của cơ chế thị trường các doanh nghiệp luôn phải chịu đựng những sự cạnh tranh gay gắt giữa các doanh nghiệp với nhau. Để đứng vững trên thị trường và không ngừng phát triển là một vấn đề hết sức khó khăn. Nhưng chính sự biến động này của nền kinh tế đó giỳp nhiều doanh nghiệp làm ăn có hiệu quả.
Việc ứng dụng công nghệ thông tin (CNTT) sẽ mang lại bước đột phá mới cho công tác quản lý kho, giúp doanh nghiệp nắm bắt được thông tin về hàng hóa, vật tư, nguyên vật liệu và sản phẩm một cách chính xác kịp thời. Từ đó, người quản lý doanh nghiệp có thể đưa ra các kế hoạch và quyết định đúng đắn, giảm chi phí và tăng khả năng cạnh tranh, nâng cao kết quả hoạt động sản xuất kinh doanh của doanh nghiệp.
Việc hoàn thiện công tác quản lý kho là rất cần thiết đối với mỗi doanh nghiệp. Nó sẽ tạo điều kiện cho doanh nghiệp tổ chức hoạt động tiêu thụ hàng hóa của mình một cách hiệu quả hơn, đồng thời nó giỳp doanh nghiệp có thể quản lý tốt hơn hoạt động tiêu thụ của mỡnh, trỏnh thất thoát và giảm thiết hại cho doanh nghiệp.
Do thời gian thực tập không nhiều, khả năng nghiên cứu có hạn nờn cỏc vấn đề em đưa ra và biện pháp giải quyết chưa hẳn đã hoàn toàn thấu đáo và không tránh khỏi những thiếu sót. Em rất mong nhận được nhiều ý kiến đóng góp chỉ bảo của cán bộ trong công ty INET, các Thầy, cô Giáo để chuyên đề thực tập tốt nghiệp của em được hoàn thiện hơn nữa.
Em xin chân thành cảm ơn sự giúp đỡ tận tình của ban lãnh đạo công ty, phòng kinh doanh và phòng kế toán của Công ty Cổ phần mạng thông minh INET, cùng với sự hướng dẫn đầy đủ và cặn kẽ của Th.S Nguyễn Văn Thư, đó giỳp em hoàn thành tốt chuyên đề thực tập tốt nghiệp này.
Hà nội, ngày 28 tháng 4 năm 2009
Sinh viên Nguyễn Đình Thuận
1. Tác giả Trần Công Uẩn (2005). Giáo trình Cơ sở dữ liệu 1 SQL, Microsoft Access
2003.
2. Tác giả Trần Công Uẩn (2005). Giáo trình Cơ sở dữ liệu 2 Microsoft Access 2003 giới
thiệu Microsoft SQL Server 2000/2005.
3. Tác giả PGS-TS Hàn Viết Thuận. Bài giảng Công nghệ phần mềm, khoa tin học kinh
tế trường ĐH Kinh tế quốc dõn.
4. Tác giả Ths Trịnh Hoài Sơn, Bài giảng lập trình ứng dụng trong quản lý, khoa tin học
kinh tế trường ĐH Kinh tế quốc dõn.
5. Tác giả TS Trương Văn Tú – TS Trần Thị Song Minh (2000), Giáo trình Hệ thống
thông tin quản lý.
Phụ lục 1. Code đăng nhập
sql = " select * from Users where TenUser='" & txtUser.Text & "' and Password = '" & txtPassword.Text & "'" rs.Open sql If rs.RecordCount > 0 Then rs.MoveFirst Quyen = rs(2).Value
MsgBox "Đăng nhập thành công!", vbInformation, "Thông báo" OK = True
Unload Me Else
dem = dem + 1 If dem > 3 Then
MsgBox " Đăng nhập sai quá 3 lần. Chương trình tự thoát", vbInformation, "Thông báo"
End Else
MsgBox "Đăng nhập sai ! Hãy nhập lại", vbInformation, "Thông báo" txtUser.SetFocus
End If End If rs.Close End Sub
2. Code xuất báo cáo
Private Sub cmdncc_Click() If rs.State = 1 Then rs.Close End If
sql = " SELECT NhaCC.MaNCC, NhaCC.TenNCC, NhaCC.DiaChi,
INNER JOIN HoaDonNhap ON NhaCC.MaNCC = HoaDonNhap.MaNCC where HoaDonNhap.NgayNhap between #" & dtpdau.Month & "/" & dtpdau.Day & "/" & dtpdau.Year & "# and #" & dtpcuoi.Month & "/" & dtpcuoi.Day & "/" & dtpcuoi.Year & "#;"
rs.Open sql
crtbc.ReportFileName = App.Path & "\Reports\rptChiPhiNCC.rpt" crtbc.SetTablePrivateData 0, 3, rs crtbc.Action = 1 If rs.State = 1 Then rs.Close End If End Sub 3. Code lưu
Private Sub CmdCapNhat_Click()
If check = True Then ' Ham kiem tra su day du cua dlieu On Error GoTo ErrorHandler
With myRS If AddNewRecord Then .AddNew Else .Edit End If .Fields("MaHang") = txtmahang.Text .Fields("MaNhom") = cmbtennhom.BoundText .Fields("MaKho") = cboMaKho.Text .Fields("TenHang") = txttenhang.Text .Fields("DonVT") = txtdonvt.Text .Fields("GiaNhap") = txtgianhap.Text .Fields("GiaBan") = txtgiaxuat.Text
.Fields("LuongTon") = txtluongton.Text .Update End With SetControls (False) Data1.Refresh End If ErrorHandlerExit: Exit Sub ErrorHandler: If Err.Number = 3022 Then
MsgBox " Trùng khoá chính. Hãy nhập khoá khác", vbCritical, "Chó ý" ElseIf Err.Number <> 0 Then
MsgBox "Nhập tối đa 4 ký tự. Hãy nhập lại", vbCritical, "Chó ý" End If
Resume ErrorHandlerExit Displayrecord
End Sub
4. Code hiện bản ghi
Private Sub Displayrecord()
txtmahang.Text = myRS.Fields("MaHang") txttenhang.Text = myRS.Fields("TenHang") cmbtennhom.BoundText = myRS.Fields("manhom") txtdonvt.Text = myRS.Fields("donvt") txtgianhap.Text = myRS.Fields("gianhap") txtgiaxuat.Text = myRS.Fields("giaban") txtluongton.Text = myRS.Fields("luongton") cboMaKho.Text = myRS.Fields("MaKho")
End Sub
5. Code liên hệ trực tuyến
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Const SW_SHOW = 5
Dim t As String
Private Sub cmdlhtt_Click()
t = "www.360.yahoo.com/darklord_nqt_2006" ShellExecute cmdlhtt.hwnd, "open", t, _ vbNullString, vbNullString, SW_SHOW End Sub
6. Code xuất help file
Private Sub mnutlhd_Click()
App.HelpFile = App.Path & "/Help/Help.chm" If Len(App.HelpFile) = 0 Then
MsgBox "Không có tài liệu trợ giúp !", vbInformation, Me.Caption Exit Sub
End If
HtmlHelp hwnd, App.Path & "/Help/Help.chm", 0, 0 End Sub.
Cộng hoà xã hội chủ nghĩa Việt Nam Độc lập - Tự do - Hạnh phúc
GIẤY XÁC NHẬN THỰC TẬP
Cơ sở thực tập : Công Công ty cổ phần mạng thông minh INET Địa chỉ: 64 Ngô T 64 Ngô Thì Nhậm – Hai Bà Trưng – Hà Nội Cán bộ hướng dẫn : Quản Thị Thu Hà Quản Thị Thu Hà
Họ tên sinh viờn thực tập: Nguyễn Đình Thuận Nguyễn Đình Thuận
Lớp : Tin học kinh tế 47 A
Khoa: Tin học kinh tế Tin học kinh tế
Trường : Đại học Kinh tế quốc dân Đại học Kinh tế quốc dân Thời gian thực tập : Từ ngà Từ ngày 05/01/2009 đến ngày 25/4/2009
Đề tài thực tập : Xây dựng Hệ thông tin quản lý kho của công Xây dựng Hệ thông tin quản lý kho của công ty cổ phần mạng thông minh INET
Nhận xét của cơ sở thực tập: ... ... ... ... ... ... Ngày 28 tháng 04 năm 2009 THỦ TRƯỞNG ĐƠN VỊ (Ký tên và đóng dấu) Mục lục 1.6.1 Tên đề tài...10