Báo cáo thực tập tốt nghiệp Đề tài:Quản lý kinh doanh hàng hóa LỜI MỞ ĐẦU Chúng ta sống môột thế giới có nền khoa học phát triển hiêộn đại Thế kỷ 20 là thế kỷ của công nghêộ thông tin nói chung và của tin học nói riêng.Đó là môột những thành tựu vĩ đại nhất mà người đã đạt được thiên nhiên kỷ này Tin học giữ vai trò đăộc biêột quan hoạt đôộng của toàn nhân loại Nhân loại ứng dụng tin học vào phục vụ cho nghiên cứu khoa học, cho cong nghêộ sản xuất, phục vụ cho nghành quản lý kinh tế, sản xuất kinh doanh, du lịch,y tế tạo điều kiêộn cho nền sản xuất xã hôội ngày càng phát triển đồng thời giảm bớt đáng kể sức lao đôộng của người, đưa mức sống người ngày càng cao Công nghệ thông tin ngày càng phát triển không ngừng, đã thâm nhập vào mọi lĩnh vực sống Nó đã với các lĩnh vực khác phát triển rất mạnh Công nghệ thông tin phát triển về nhiều mặt, đặc biệt là công nghệ phần mềm Các chương trình phần mềm ngày càng phát triển và ứng dụng rộng rãi đã đem lại nhiều thành tựu to lớn Ở Viêột Nam tin học cũng hòa nhâộp với thế giới để bắt kịp, sánh vai sự phát triển chung của các nước thế giới Máy tính đã và được sử dụng rôộng rãi ở hầu hết các lĩnh vực kinh tế, văn hóa xã hôội, giáo dục, y tế, quốc phòng Tin học đã giúp cho các nhà quản lý điều hành công viêộc môột cách có khoa học, chính xác, mang lại hiêộu quả cao so với trước chưa đưa máy tính vào Quản lý hàng hóa là môột những ví dụ điển hình về quản lý.Nếu khơng được tin học hóa viêộc quản lý sẽ vất vả rất nhiều với khối lượng hàng hóa của rất nhiều loại hàng Hêộ thống quản lý từ trước tới chủ yếu là phương pháp thủ công, thong qua hàng loạt sổ sách rời rạc, phức tạp nên người quản lý găộp nhiều khó khăn viêợc nhâợp, x́t thống kê tìm kiếm và giao dịch Do đó các thông tin cần quản lý phục vụ SVTH:Bùi Quang Phước Lớp: CTU081 GVHD:Lê Huy Hoàng Báo cáo thực tập tốt nghiệp Đề tài:Quản lý kinh doanh hàng hóa kinh doanh khơng tránh khỏi sự thừa hoăộc không đầy đủ dữ liêộu, sức và đòi hỏi thêm nữa phương pháp quản lý theo kiểu thủ công lại rất tốn kém về thời gian, cơng về nhân lực Chính lẽ đó mà viêợc quản lý hàng hóa với sự trợ giúp của máy tính, tin học đời giảm bớt thời gian công sức cho người quản lý kinh doanh mà còn đảm bảo được yêu cầu “nhanh chóng-chính xác-hiêộu quả” Với những suy nghĩ và được sự góp ý, giúp đỡ của thầy cô giáo em đã quyết định chọn đề tài thực tâộp tốt nghiêộp: “Quản lý hàng hóa” Chúng em xin chân thành cảm ơn thầy giáo Lê Huy Hoàng đã tâợn tình giúp đỡ, chỉ bảo cho chúng em hoàn thành báo cáo thực tâộp tốt nghiêộp này Em xin gửi lời cảm ơn chân thành đến công ty cổ phần thương mại và đầu tư phát triển thương mại Bình Minh, đã tạo điều kiêợn thợn lợi em thực tâợp tại cơng ty.Qua quá trình thực tâộp, em tiếp thu được nhiều kiến thức và kinh nghiêộm quý báu.Những kinh nghiêộm đó giúp em rát nhiều viêộc thực hiêộn báo cáo tốt nghiêộp và công viêộc của em sau này.Môột lần nữa en xin chân thành cảm ơn tất cả mọi người đã tâợn tình giúp đỡ và tạo điều kiêộn tốt để em hoàn thành chương trình thực tâợp của Em xin chân thành cảm ơn! SVTH:Bùi Quang Phước Lớp: CTU081 GVHD:Lê Huy Hoàng Báo cáo thực tập tốt nghiệp Đề tài:Quản lý kinh doanh hàng hóa MỤC LỤC SVTH:Bùi Quang Phước Lớp: CTU081 GVHD:Lê Huy Hoàng LỜI MỞ ĐẦU tập tốt nghiệp Báo cáo thực Đề tài:Quản lý kinh doanh hàng3hóa MỤC LỤC CHƯƠNG 1.GIỚI THIỆU VỀ CƠNG TY I Giới thiêộu về đơn vị thực tâộp 1.1.Giới thiệu tổng quát 1.2 Sơ đồ hoạt động kinh doanh công ty 1.3 Chức từng phận II Tình hình tin học hóa tại cơng ty 10 CHƯƠNG 2.PHÂN TÍCH HỆ THỐNG 11 I Hệ thống thông tin quản lý 11 11 Một số vấn đề chung về hệ thống thông tin quản ly 11 Những đặc điểm hệ thống thông tin II.Phân tích thiết kế hêộ thống quản lý kinh doanh hàng hóa Quy trình quản ly bán hàng 12 12 14 2.Sơ đồ phân rã chức 17 Biểu đồ phân rã chức 3.1 Mô hình luồng dữ liệu 19 26 3.2Mơ hình quan hệ thực thể liên kết 26 3.3 Sơ đồ mối quan hệ dữ liệu 27 CHƯƠNG 3.THIẾT KẾ HỆ THỐNG 27 I.Công cụ sử dụng thực hiêộn đề tài 27 1.Giới thiệu về Microsoft Access 30 II Xây dựng CSDL vâột lý 33 III.Thiết kế các chức chương trình 23 3.1 Giao diện form login 36 3.2 Giao diện (main form) 37 3.3 Giao diện hóa đơn 41 3.4 Form giao diện “phiếu nhập” 45 3.5 Form giao diện “Danh mục hàng hóa” 3.6 Giao diện form tìm kiếm hàng hóa 3.7 Giao diên form “Báo cáo tổng hợp” 51 54 56 CHƯƠNG IV.KẾT LUẬN 58 Nhận xét giáo viên hướng dẫn SVTH:Bùi Quang Phước Lớp: CTU081 GVHD:Lê Huy Hoàng Báo cáo thực tập tốt nghiệp Đề tài:Quản lý kinh doanh hàng hóa CHƯƠNG I GIỚI THIỆU VỀ CÔNG TY I Giới thiệu đơn vị thực tập 1.1 Giới thiệu tổng quát Công ty cổ phần thương mại đầu tư và phát triển Bình Minh địa chỉ trụ sở chính số 7, ngõ 36 Nguyễn Viết Xuân, phường Khương Mai, quận Thanh Xuân, thành phố Hà Nội.Công ty được thành lập theo quyết định số 0103024399 của sở kế hoạch và đầu tư thành phố Hà Nội và bắt đầu hoạt động kinh doanh từ ngày tháng năm 2008 Công ty cổ phần thương mại đầu tư và phát triển Bình Minh là công ty hoạt động khá nhiều lĩnh vực : thương mại, xây dựng các cơng trình kỹ thuật dân dụng, tư vấn và môi giới xúc tiến thương mại … - Tel: 04.662857358 - Fax:04.662857359 - Email: binhminh.jsc@gmail.com - Website: binhminhvn.com.vn 1.2.Sơ đồ hoạt động kinh doanh công ty : SVTH:Bùi Quang Phước Lớp: CTU081 GVHD:Lê Huy Hoàng Báo cáo thực tập tốt nghiệp Đề tài:Quản lý kinh doanh hàng hóa BAN GIÁM ĐỐC PHỊNG KINH DOANH PHỊNG KỸ THUẬT PHỊNG KẾ TỐN 1.3 Chức từng bôộ phâộn 1.3.1 Ban Giám đốc Ban giám đớc : • Điều hành mọi hoạt động sản x́t kinh doanh cũng các hoạt động hàng ngày khác của Cơng Ty • Chịu trách nhiệm trước Hội đờng quản trị, Hội đồng thành viên về việc thực các quyền & nhiệm vụ được giao Kiến nghị phương án bố trí cấu tổ chức, quy chế quản lý nội Công Ty bổ nhiệm, miễn nhiệm, đề xuất cách chức các chức danh quản lý Công Ty, trừ các chức danh Hội đồng Quản trị, Hội đờng thành viên bở nhiệm • Ngoài còn phải thực các nhiệm vụ khác & tuân thủ số nghĩa vụ của người quản lý Công Ty theo Luật pháp quy định Giám đớc : • Là người điều hành hoạt động hàng ngày của công ty và chịu trách nhiệm trước Hội đồng quản trị về việc thực các quyền và nhiệm vụ được giao SVTH:Bùi Quang Phước Lớp: CTU081 GVHD:Lê Huy Hoàng Báo cáo thực tập tốt nghiệp • • Đề tài:Quản lý kinh doanh hàng hóa Quyết định về tất cả các vấn đề liên quan đến hoạt động hàng ngày của công ty Tổ chức thực các quyết định của Hội đồng quản trị Tổ chức thực kế hoạch kinh doanh và phương án đầu tư của công ty Kiến nghị phương án bố trí cấu tổ chức, quy chế quản lý nội công ty 1.3.2 Phòng kinh doanh • Phòng kinh doanh đảm nhận với chức tham mưu cho Ban giám đốc việc xây dựng và triển khai các kế hoạch phát triển công ty (kế hoạch dài hạn, trung hạn, ngắn hạn, ); tham mưu việc quản lý • Điều hành mạng lưới phân phối, kinh doanh sản phẩm, dịch vụ trực tiếp chịu trách nhiệm thực các họat động tiếp thị - bán hàng tới các khách hàng và khách hàng tiềm của Doanh nghiệp nhằm đạt mục tiêu về doanh số, thị phần 1.3.3 Phòng kế tốn • • • • • • • • • Giúp việc và tham mưu cho Giám đốc Công ty công tác tổ chức, quản lý và giám sát hoạt động kinh tế, tài chính, hạch toán và thống kê Theo dõi, phân tích và phản ảnh tình hình biến động tài sản, ng̀n vốn tại Cơng ty và cung cấp thơng tin về tình hình tài chính, kinh tế cho Giám đốc công tác điều hành và hoạch định sản xuất kinh doanh Thực công tác hạch toán kế toán, thống kê theo Pháp lệnh kế toán và thống kê, Luật Kế toán và Điều lệ của Công ty Quản lý tài sản, nguồn vốn và các nguồn lực kinh tế của Công ty theo quy định của Nhà nước Xây dựng kế hoạch tài chính phù hợp với kế hoạch sản xuất kinh doanh và kế hoạch đầu tư Xây dựng kế hoạch định kỳ về giá thành sản phẩm, kinh phí hoạt động, chi phí bảo dưỡng định kỳ và sửa chữa nhỏ của Công ty và các kế hoạch tài chính khác Thực chế độ báo cáo tài chính, thống kê theo quy định của Nhà nước và Điều lệ của Công ty Thực các nghĩa vụ đối với NSNN, cổ đông và người lao động theo luật định Xác định và phản ảnh chính xác, kịp thời kết quả kiểm kê định kỳ tài sản, nguồn vốn SVTH:Bùi Quang Phước Lớp: CTU081 10 GVHD:Lê Huy Hoàng Báo cáo thực tập tốt nghiệp • • Đề tài:Quản lý kinh doanh hàng hóa Lưu trữ, bảo quản chứng từ, sở sách kế toán, bảo mật số liệu kế toán tài chính theo quy định và điều lệ Công ty Thực những nhiệm vụ khác Giám đốc Công ty phân cơng 1.3.4 Phòng kỹ thợt • Tham mưu giúp việc cho Giám đốc và Lãnh đạo Công ty việc quản lý kỹ thuật, đầu tư, thi công xây dựng • Quản lý công tác kỹ thuật, thi công xây dựng, tiến độ, chất lượng đối với những gói thầu công ty ký hợp đồng Xây dựng kế hoạch đấu thầu và hờ sơ mời thầu trình cơng ty phê duyệt đối với các gói thầu công ty làm chủ đầu tư • Có qùn đình chỉ việc gia công, sản xuất, lắp đặt các sản phẩm không đạt yêu cầu tiêu chuẩn kỹ thuật, mất an toàn cho người sản xuất và người sử dụng, đồng thời báo cáo với lãnh đạo công ty 1.3.5 Lĩnh vực hoạt đôộng Công ty cổ phần thương mại đầu tư và phát triển Bình Minh là cơng ty hoạt động khá nhiều lĩnh vực : thương mại, xây dựng các cơng trình kỹ thuật dân dụng, tư vấn và môi giới xúc tiến thương mại … Công ty cổ phần thương mại đầu tư và phát triển Bình Minh là nhà phân phối cho các thương hiệu điều hòa nổi tiếng thế giới và nước như: DAIKIN-CARRIER-FUJITSU-PANASONIC-NAGAKAWAFUNIKI II Tình hình tin học hóa công ty Hiện nay, vấn đề áp dụng công nghệ thông tin đươc đưa lên hàng đầu nhất là đối với các ngành quản lý kinh doanh nói chung và công ty cổ phần thương mại đầu tư và phát triển Bình Minh nói riêng.Cơng nghệ thơng tin được đưa vào nhằm hoàn chỉnh hóa hệ thống giao dịch và quản lý hàng hóa của công ty , nhằm tăng khả hoạt động , giảm bớt số lượng nhân viên quản lý, đảm bảo chính xác và độ bảo mật, an toàn dữ liệu cao SVTH:Bùi Quang Phước Lớp: CTU081 11 GVHD:Lê Huy Hoàng Báo cáo thực tập tốt nghiệp Đề tài:Quản lý kinh doanh hàng hóa Vì những lý đó mà việc thay thế và nâng cấp mới hệ thống quản lý kinh doanh là vấn đề cấp bách cho ngành kinh doanh Chương PHÂN TÍCH HỆ THỐNG I Hệ thớng thơng tin quản lý Môột số vấn đề chung về hêộ thống thông tin quản lý Bước cần thực hiêộn triển khai đề án tin học hóa quản lý kinh doanh hàng hóa tại công ty cổ phần thương mại và đầu tư phát triển Bình Minh là phải khảo sát hề thống tổ chức chức bôộ phâộn của công ty,cách tổ chức làm viêộc và cách thức kinh doanh hàng hóa diễn thế nào.Thông tin nhâộp xuất , thông tin khách hàng, nhà cung cấp chính,đối tác của công ty “Hêộ thống quản lý phải là môột tâộp hợp các phần tử có các ràng buôộc lẫn để hoạt đôộng nhằm đạt được hiêộu quả, mục đích.thiết thực tại công ty Từ đó rút những phương pháp cũng các bước thiết kế xây dựng môột hêộ thống phần mềm quản lý hàng hóa được tin học hóa mạng lại kết quả tốt Những đăộc điểm hêộ thống thông tin 2.1 Phân cấp quản lý Hêộ thống quản lý trước tiên là hêộ thống được tổ chức từ xuống dưới, có chức tổng hợp thông tin giúp lãnh đạo quản lý thống nhất toàn hêộ thống Và thông tin được tổng hợp từ dưới lên và truyền từ xuống 2.2 Luồng thông tin vào SVTH:Bùi Quang Phước Lớp: CTU081 12 GVHD:Lê Huy Hoàng Báo cáo thực tập tốt nghiệp Đề tài:Quản lý kinh doanh hàng hóa Trong mơợt hêợ thống thơng tin quản lý có những thông tin đầu vào khác nhau, từ khách hàng, nhà cung cấp, nhân viên - Những thông tin đầu vào là cố định và ít thay đổi, mang tính chất thay đổi lâu dài - Những thông tin về hàng hóa, thông tin về nhà cung cấp, công nghêộ … có tính chất thay đổi thường xuyên phải câộp nhâột và xử lý - Những thông tin tổng hợp, được tổng hợp từ các thông tin cấp dưới phải xử lý định kỳ theo thời gian 2.3 Luồng thông tin đầu Được thông tin tổng hợp từ thông tin đâộu vào hành hóa ,nhân viên, nhà cung cấp, khách hàng… Và phuộ thược vào nhu cầu quản lý trường hợp cuộ thể Bảng biểu và báo cáo là những thông tin đầu quan troộng dược tổng hợp phuộc vuộ cho nhu cầu quản lý của hêộ thống, nó phải ánh muộc đích của quản lý của hêộ thống.Các bảng biểu báo cáo phải đảm bảo chính xác kiộp thời 2.3 Mơ hình mơợt hêợ thớng quản lý - Câợp nhâợt thông tin có tính chất cố điộnh lưu trữ tra cứu - Câộp nhâột thông tin có tính thay đổi thường xuyên - Lâộp sổ sách báo cáo - giao diêộn mà hình hợp lý giảm tối đa các thao tác cho người nhâộp dữ liêộu và tìm kiếm 2.4 Các bước xây dựng hêộ thống quản lý - Nghiên cứu sơ bôộ và xác lâộp dự án - Phân tích thiết kế hêộ thống - Thiết kế tổng thể - Thiết kế chi tiết - Kiểm tra và cài đăột II.Phân tích thiết kế hệ thống quản lý kinh doanh tại công ty cô phần thương mại đầu tư phát triển Bình Minh Quy trình quản lý bán hàng: Giới thiêộu về hoạt đông của hệ thống quản lý kinh doanh hàng hóa SVTH:Bùi Quang Phước Lớp: CTU081 13 GVHD:Lê Huy Hoàng Báo cáo thực tập tốt nghiệp Đề tài:Quản lý kinh doanh hàng hóa If traloi = Then DoCmd.SetWarnings False DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.GoToRecord , , acFirst DoCmd.SetWarnings True End If End If Exit_xoa_Click: Exit Sub Err_xoa_Click: MsgBox "khong the xoa mau tin nay" Resume Exit_xoa_Click End Sub Private Sub List6_AfterUpdate() ' Find the record that matches the control Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[makho] = '" & Me![List6] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark 3.5 Form giao diêộn “Danh mục hàng hóa” SVTH:Bùi Quang Phước Lớp: CTU081 46 GVHD:Lê Huy Hoàng Báo cáo thực tập tốt nghiệp Đề tài:Quản lý kinh doanh hàng hóa Hình 20: Giao diêợn danh mục hàng Code Form danh sách hàng hóa Code nút lêộnh ĐẦU, TRƯỚC, SAU, CUỐI ,THOÁT giống code Form HÓA ĐƠN Private Sub IN_WORD_Click() On Error GoTo Err_IN_WORD_Click Dim oApp As Object Set oApp = CreateObject("Word.Application") oApp.Visible = True Exit_IN_WORD_Click: Exit Sub Err_IN_WORD_Click: SVTH:Bùi Quang Phước Lớp: CTU081 47 GVHD:Lê Huy Hoàng Báo cáo thực tập tốt nghiệp Đề tài:Quản lý kinh doanh hàng hóa MsgBox Err.Description Resume Exit_IN_WORD_Click End Sub Private Sub ghi_Click() On Error GoTo Err_ghi_Click If IsNull(mahh) Then MsgBox "Khong luu duoc gia tri rong!", vbExclamation + vbDefaultButton1, "chu y" Exit Sub Else DoCmd.RunCommand (acCmdSaveRecord) ketqua.Requery End If ketqua.Visible = True Me.timkiem.Visible = True dau.Visible = True truoc.Visible = True sau.Visible = True cuoi.Visible = True them.Visible = True thoat.Visible = True DoCmd.GoToControl "them" ghi.Visible = False khong.Visible = False sua.Visible = True xoa.Visible = True Xthem = False Xsua = False mahh.Locked = True tenhh.Locked = True dvt.Locked = True sltonDK.Locked = True tgtonDK.Locked = True ketqua.Requery Exit_ghi_Click: ketqua.Visible = True Me.timkiem.Visible = True dau.Visible = True sau.Visible = True truoc.Visible = True cuoi.Visible = True SVTH:Bùi Quang Phước Lớp: CTU081 48 GVHD:Lê Huy Hoàng Báo cáo thực tập tốt nghiệp Đề tài:Quản lý kinh doanh hàng hóa thoat.Visible = True ghi.Visible = False khong.Visible = False xoa.Visible = True sua.Visible = True them.Visible = True DoCmd.GoToControl "them" Xthem = False Xsua = False mahh.Locked = True tenhh.Locked = True dvt.Locked = True sltonDK.Locked = True tgtonDK.Locked = True ketqua.Requery Exit Sub Err_ghi_Click: MsgBox "Du lieu nhap khong hop le" End Sub Private Sub hien_Click() Me.txtmahh = Null Me.txtten = Null Me.ketqua.RowSource = "select * from HANGHOA" End Sub Private Sub in_Click() End Sub Private Sub ketqua_AfterUpdate() ' Find the record that matches the control Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "mahh = '" & Me!ketqua & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub Private Sub khong_Click() On Error Resume Next DoCmd.RunCommand acCmdUndo DoCmd.GoToRecord , , acFirst SVTH:Bùi Quang Phước Lớp: CTU081 49 GVHD:Lê Huy Hoàng Báo cáo thực tập tốt nghiệp Đề tài:Quản lý kinh doanh hàng hóa ketqua.Visible = True Me.timkiem.Visible = True dau.Visible = True sau.Visible = True truoc.Visible = True cuoi.Visible = True thoat.Visible = True sua.Visible = True xoa.Visible = True them.Visible = True them.SetFocus khong.Visible = False ghi.Visible = False Xthem = False Xsua = False mahh.Locked = True tenhh.Locked = True dvt.Locked = True sltonDK.Locked = True tgtonDK.Locked = True ketqua.Requery End Sub Private Sub sua_Click() On Error GoTo Err_sua_Click mahh.Locked = False tenhh.Locked = False dvt.Locked = False sltonDK.Locked = False tgtonDK.Locked = False mahh.SetFocus ketqua.Visible = False Me.timkiem.Visible = False dau.Visible = False sau.Visible = False truoc.Visible = False cuoi.Visible = False sua.Visible = False khong.Visible = True ghi.Visible = True xoa.Visible = False thoat.Visible = False them.Visible = False SVTH:Bùi Quang Phước Lớp: CTU081 50 GVHD:Lê Huy Hoàng Báo cáo thực tập tốt nghiệp Đề tài:Quản lý kinh doanh hàng hóa Xsua = True Exit_sua_Click: Exit Sub Err_sua_Click: MsgBox Err.Description Resume Exit_sua_Click End Sub Private Sub them_Click() On Error GoTo Err_them_Click DoCmd.GoToRecord , , acNewRec mahh.Locked = False tenhh.Locked = False dvt.Locked = False sltonDK.Locked = False tgtonDK.Locked = False mahh.SetFocus ketqua.Visible = False Me.timkiem.Visible = False dau.Visible = False sau.Visible = False truoc.Visible = False cuoi.Visible = False sua.Visible = False khong.Visible = True ghi.Visible = True xoa.Visible = False thoat.Visible = False them.Visible = False Xthem = True Exit_them_Click: Exit Sub Err_them_Click: MsgBox Err.Description Resume Exit_them_Click End Sub Private Sub tim_Click() If IsNull(txtmahh) = False And IsNull(txtten) = True Then Me.ketqua.RowSource = "select * from HANGHOA where([HANGHOA]! [mahh] like '*" & [txtmahh] & "*')" SVTH:Bùi Quang Phước Lớp: CTU081 51 GVHD:Lê Huy Hoàng Báo cáo thực tập tốt nghiệp Đề tài:Quản lý kinh doanh hàng hóa Else If IsNull(txtmahh) = True And IsNull(txtten) = False Then Me.ketqua.RowSource = "select * from HANGHOA where([HANGHOA]! tenhh like '*" & [txtten] & "*')" Else If IsNull(txtmahh) = False And IsNull(txtten) = False Then Me.ketqua.RowSource = "select * from HANGHOA where([HANGHOA]! [mahh] like '*" & [txtmahh] & "*' or [HANGHOA]![tenhh] like '*" & [txtten] & "*')" Else If IsNull(txtmahh) = True And IsNull(txtten) = True Then MsgBox "Ban chua nhap dieu kien tim kiem", + 60, "Thong bao" End If End If End If End If End Sub Private Sub xoa_Click() Dim traloi If IsNull(mahh) Then MsgBox "Khong the xoa du lieu rong", 48, "chu y" Else traloi = MsgBox("Ban muon xoa ma hang: " & [mahh] & " (cung nhung mau tin lien quan )?", 48 + 4, "thong bao") If traloi = Then DoCmd.SetWarnings False DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.GoToRecord , , acFirst ketqua.Requery DoCmd.SetWarnings True End If End If Exit_xoa_Click: Exit Sub Err_xoa_Click: MsgBox "khong the xoa mau tin nay" Resume Exit_xoa_Click End Sub 3.6 Giao diêợn form tìm kiếm hàng hóa SVTH:Bùi Quang Phước Lớp: CTU081 52 GVHD:Lê Huy Hoàng Báo cáo thực tập tốt nghiệp Đề tài:Quản lý kinh doanh hàng hóa Hình 21 “ Giao diên form tìm hàng hóa Code nút lêợnh form tìm hàng hóa Private Sub chon_Click() Select Case chon Case 1: txtmahang.Enabled = True txtten.Enabled = False Case 2: txtmahang.Enabled = False txtten.Enabled = True Case 3: txtmahang.Enabled = False txtten.Enabled = False End Select SVTH:Bùi Quang Phước Lớp: CTU081 53 GVHD:Lê Huy Hoàng Báo cáo thực tập tốt nghiệp Đề tài:Quản lý kinh doanh hàng hóa End Sub Private Sub Command16_Click() On Error GoTo Err_Command16_Click DoCmd.Quit Exit_Command16_Click: Exit Sub Err_Command16_Click: MsgBox Err.Description Resume Exit_Command16_Click End Sub Private Sub in_Click() Select Case chon Case 1: DoCmd.RunMacro "TIMHANG_MA" Case 2: DoCmd.RunMacro "TIMHANG_TEN" End Select End Sub Private Sub intoanbo_Click() On Error GoTo Err_intoanbo_Click Dim stDocName As String stDocName = "DS_HANGHOA" DoCmd.OpenReport stDocName, acPreview Exit_intoanbo_Click: Exit Sub Err_intoanbo_Click: MsgBox Err.Description Resume Exit_intoanbo_Click End Sub Private Sub tim_Click() If IsNull(txtmahang) = False And IsNull(txtten) = True Then Me.ketqua.RowSource = "select * from HANGHOA where ([HANGHOA]! [mahh] like '*" & txtmahang & "*')" If Me.ketqua.ListCount = Then Me.ketqua.Visible = False SVTH:Bùi Quang Phước Lớp: CTU081 54 GVHD:Lê Huy Hoàng Báo cáo thực tập tốt nghiệp Đề tài:Quản lý kinh doanh hàng hóa MsgBox "Khong co vat tu nao thoa man dieu kien tim kiem", + 60, "Thong bao" Else Me.ketqua.Visible = True End If End If If IsNull(txtmahang) = True And IsNull(txtten) = False Then Me.ketqua.RowSource = "select * from HANGHOA where ([HANGHOA]! [tenhh] like '*" & [txtten] & "*')" If Me.ketqua.ListCount = Then Me.ketqua.Visible = False MsgBox "Khong co vat tu nao thoa man dieu kien tim kiem", + 60, "Thong bao" Else Me.ketqua.Visible = True End If End If If IsNull(txtmahang) = False And IsNull(txtten) = False Then Me.ketqua.RowSource = "select * from HANGHOA where ([HANGHOA]! [tenhh] like '*" & [txtten] & "*' or [HANGHOA]![mahh] like '*" & txtmahang & "*')" If Me.ketqua.ListCount = Then Me.ketqua.Visible = False MsgBox "Khong co vat tu nao thoa man dieu kien tim kiem", + 60, "Thong bao" Else Me.ketqua.Visible = True End If End If If IsNull(txtmahang) = True And IsNull(txtten) = True Then MsgBox "Ban chua nhap dieu kien tim kiem", + 60, "Thong bao" End If End Sub Private Sub thoat_Click() On Error GoTo Err_thoat_Click DoCmd.close Exit_thoat_Click: Exit Sub Err_thoat_Click: MsgBox Err.Description Resume Exit_thoat_Click End Sub SVTH:Bùi Quang Phước Lớp: CTU081 55 GVHD:Lê Huy Hoàng Báo cáo thực tập tốt nghiệp Đề tài:Quản lý kinh doanh hàng hóa Private Sub toan_Click() Me.txtmahang = Null Me.txtten = Null Me.ketqua.RowSource = "select * from HANGHOA" Me.ketqua.Visible = True End Sub 3.7 Giao diên form “Báo cáo tổng hợp” Hình 22 : Giao diêợn form báo cáo tổng hợp Code nút lêộnh form báo cáo tổng hợp Option Compare Database Private Sub thoat_Click() On Error GoTo Err_Command6_Click DoCmd.close Exit_thoat_Click: Exit Sub Err_thoat_Click: MsgBox Err.Description Resume Exit_thoat_Click SVTH:Bùi Quang Phước Lớp: CTU081 56 GVHD:Lê Huy Hoàng Báo cáo thực tập tốt nghiệp Đề tài:Quản lý kinh doanh hàng hóa End Sub Private Sub in_Click() On Error GoTo err_in_Click Dim strdocname As String strdocname = "BAOCAOTONGHOP" DoCmd.OpenReport strdocname, acViewNormal Exit_in_click: Exit Sub err_in_Click: MsgBox " ban muon in mau tin khong ", vbOKOnly, "TB" Resume Exit_in_click End Sub Private Sub xem_Click() Dim Loc As String 'Mo Report Bao Cao Tong Hop Loc = "year([ngaynhap])>= forms!THONGKENHAP!TN and year([ngaynhap])