Đang tải... (xem toàn văn)
Sự ra đời và phát triển của công nghệ thông tin là một trong những thành quả vĩ đại nhất của con người. Nhịp độ phát triển của công nghệ thông tin đang là vấn đề rất được các ngành khoa học giáo dục kinh tế… quan tâm. Nó hiện hữu với một tầm vóc hết sức mạnh mẽ to lớn và ngày đang một lớn mạnh thêm. Ngày nay những thành tự, những đổi mới trong công nghệ, trong quản lý kinh doanh, trong lĩnh vực giáo dục… đều có sự góp phần quan trọng của tin học. Vai trò của tin học rất to lớn, đa dạng vô tận… bởi vậy khi loài người đang bước vào thời kỳ công nghiệp hoá, hiện dại hoá, tin học đã thực sự trở thành một ngành khoa học công nghệ mũi nhọn. Trong hoạt động sản xuất kinh doanh như hiện nay, việc tin hoc hoá các hoạt động mua bán hàng hoá là rất cần thiết. Một doanh nghiệp muốn phát triển khả năng tiếp cận thông tin, thị trường, … và khả năng đáp ứng nhu cầu của khách hàng cũng như của đối tác một cách hiệu quả nhất thì không thể thiếu một hệ thống thông tin hỗ trợ. Việc ứng dụng vào các lĩnh vực làm sao để đạt được một cách có hiệu quả, sự lựa chọn và vận dụng những phần mềm sao cho phù hợp và đạt được kết quả tốt là câu hỏi luôn đặt ra đối với các nhà quản lý. Ngày nay các phần mềm cơ bản đó được ứng dụng và phát triển rộng rãi trong hầu hết mọi doanh nghiệp. Thế nhưng yêu cầu của người sử dụng phần mềm ngày càng đa dạng và nhiều tính năng hơn. Do dó yêu cầu người làm phần mềm phải đáp ứng được các yêu cầu trên. Cũng nhằm mục đích nói trên mà đề tài “Xây dựng phần mềm quản lý bán hàng tại trung tâm thương mại NC-TH” ra đời. Qua đây em xin chân thành cảm ơn sự quan tâm giúp đỡ tận tình của TS. Đặng Quế Vinh. Người đã trực tiếp hướng dẫn em hoàn thành đề án này.
Mục lục A Giới thiệu chung đề tài lựa chọn Tên đề tài Lý chọn đề tài Mục tiêu đề tài Công cụ nghiên cứu thực đề tài 4.1 Hệ quản trị sở liệu Microsoft access 2003 4.2 Ngôn ngữ lập trình Visual Basic 6.0 4.3 Cơng cụ làm báo cáo Crystal Report B Nội dung Nội dung tốn quản lý bán hàng Phân tích nghiệp vụ 2.1 Quy trình mua hàng 2.2 Quy trình quản lý kho 2.3 quy trình triển khai bán hàng Phân tích yêu cầu người sử dụng 3.1 Yêu cầu chung 3.2 Yêu cầu nghiệp cụ nhập hàng 3.3 Yêu cầu nghiệp vụ xuất hàng 3.4 Yêu cầu nghiệp vụ xuất báo cáo 3.5 Các u cầu khác Phân tích hệ thống thơng tin quản lý bán hàng lưu kho trung tâm thương mại NC-HT 4.1 Sơ đồ chức kinh doanh trung tâm thương mại 4.2 Sơ đồ luồng thông tin IFD 4.3 Sơ đồ luồng liệu DFD 4.3.1 Sơ đồ ngữ cảnh 4.3.2 Sơ đồ DFD mức nghiệp vụ quản lý 5 6 6 7 9 13 14 14 14 15 16 16 16 17 17 19 21 bán hàng 4.4 Các bảng liệu đầu vào 4.5 Các thuật tốn 4.5.1 Giải thuật đăng nhập chương trình 4.5.2 Giải thuật sửa liệu 4.5.3 Giải thuật tìm kiếm thông tin theo cụm từ 25 25 27 28 28 Giao diện chương trình Một số đoạn code chương trình 29 37 Lời mở đầu Sự đời phát triển công nghệ thông tin thành vĩ đại người Nhịp độ phát triển công nghệ thông tin vấn đề ngành khoa học giáo dục kinh tế… quan tâm Nó hữu với tầm vóc mạnh mẽ to lớn ngày lớn mạnh thêm Ngày thành tự, đổi công nghệ, quản lý kinh doanh, lĩnh vực giáo dục… có góp phần quan trọng tin học Vai trị tin học to lớn, đa dạng vô tận… lồi người bước vào thời kỳ cơng nghiệp hoá, dại hoá, tin học thực trở thành ngành khoa học công nghệ mũi nhọn Trong hoạt động sản xuất kinh doanh nay, việc tin hoc hoá hoạt động mua bán hàng hoá cần thiết Một doanh nghiệp muốn phát triển khả tiếp cận thông tin, thị trường, … khả đáp ứng nhu cầu khách hàng đối tác cách hiệu khơng thể thiếu hệ thống thơng tin hỗ trợ Việc ứng dụng vào lĩnh vực để đạt cách có hiệu quả, lựa chọn vận dụng phần mềm cho phù hợp đạt kết tốt câu hỏi đặt nhà quản lý Ngày phần mềm ứng dụng phát triển rộng rãi hầu hết doanh nghiệp Thế yêu cầu người sử dụng phần mềm ngày đa dạng nhiều tính Do dó yêu cầu người làm phần mềm phải đáp ứng yêu cầu Cũng nhằm mục đích nói mà đề tài “Xây dựng phần mềm quản lý bán hàng trung tâm thương mại NC-TH” đời Qua em xin chân thành cảm ơn quan tâm giúp đỡ tận tình TS Đặng Quế Vinh Người trực tiếp hướng dẫn em hoàn thành đề án Em xin chân thành cảm ơn! A.Giới thiệu chung đề tài lựa chọn Tên đề tài Xây dựng phần mềm quản lý bán hàng cho trung tâm thương mại NC- HT thuộc tập đồn Hitech Lý chọn đề tài Trong mơi trường kinh doanh cạnh tranh ngày để đảm bảo doanh nghiệp ln đứng vững tất yếu doanh nghiệp phải có chiến lược quản lý phù hợp Đối với lĩnh vực quản lý nói chung quản lý kinh doanh doanh nghiệp nói riêng, việc xử lý thông tin nhận vấn đề khơng đơn giản lượng thơng tin ngày lớn thường xun thay đổi, ln toán phức tạp, việc tổ chức xếp liệu cho phù hợp đồng thời tìm phương pháp tính toán tối ưu ….Tuy nhiên đời máy vi tính với phát triển cơng nghệ thông tin đưa tới giải pháp hiệu để giải vấn đề cách nhanh chóng hiệu Đó giải pháp sử dụng phần mềm để quản lý hoạt động kinh doanh doanh nghiệp Đối với trung tâm thương mại, đứng trước phát triển mạnh mẽ kinh tế họ lựa chọn công cụ tin học hố phận quản lý nhằm mục đích thúc đẩy việc kinh doanh đồng thời giảm chi phí thời gian cách tối uư quản lý Mục tiêu để nhà quản lý lựa chọn để tiến hành cơng tác tin học hố phận quản lý bán hàng Bời vì, số lượng hoá đơn cần phải xử lý ngày tăng lên nhiều đồng thời yêu cầu báo cáo doanh thu, hàng tồn kho, khách hàng, nhà cung cấp…phải cách thường xuyên liên tục nên phương pháp quản lý thủ cơng khơng cịn phù hợp Nắm bắt thực tế trung tâm nên em lựa chọn đề tài viết phần mềm quản lý bán hàng nhằm giúp trung tâm quản lý dễ dàng hiệu nghiệp vụ bán hàng Mục tiêu đề tài Chuyên nghiệp hoá hoạt động liên quan đến bán hàng, giảm thiểu thời gian tìm kiếm thông tin đối tác, khách hàng, hoạt động vật tư, thông tin hàng tồn kho … Đơn giản hoá chứng từ: Các chứng từ hoàn thành theo mẫu, việc cập nhật chứng từ đơn giản tốn thời gian Đáp ứng nhu cầu quản lý quan liên quan cách nhanh chóng xác báo cáo việc nhập xuất hàng hoá… Đáp ứng nhu cầu ứng dụng thành tựu q trình phát triển khoa học cơng nghệ vào quản lý Công cụ nghiên cứu thực đề tài 4.1.Hệ quản trị sở liệu Microsoft access 2003 Để tạo lập sở liệu ta sử dụng hệ quản trị sở liệu Microsoft Access 2003, hệ quản trị sở liệu phổ biến, thân thiện với người sử dụng, dễ sử dụng có độ tương thích cao với ngơn ngữ lập trình Visual Basic 6.0 4.2 Ngơn ngữ lập trình Visual Basic 6.0 Để viết Code chương trình em lựa chọn ngơn ngữ Visual Basic 6.0 Đây ngơn ngữ lập trình hướng kiện cho phép lập trình hướng đối tượng để xây dựng chương trình mơi trường Windows.Hơn Visual Basic 6.0 ngơn ngữ lập trình với tính trực quan cao: việc sử dụng công cụ Toolbox để thiết kế giúp người lập trình thiết kế cách dễ dàng Visual Basic cung cấp nhiều công cụ phép kết nối khai thác liệu nhiều hệ quản trị sở liệu khác Ngoài ngơn ngữ lập trình có chế độ bảo mật an toàn liệu tốt, dễ sử dụng sử dụng phổ biến thông tin quản lý 4.3.Công cụ làm báo cáo Crystal Report Khi xây dựng chương trình với mục đích ứng dụng thực tiễn kết cuối liệu phải kết xuất xuất thiết bị máy in hay chương trình hỗ trợ khác cho phép người dùng in hay trích liệu sang chương trình tương thích khác Crystal Report công cụ chuẩn cho phép thiết kế báo cáo ứng dụng Visual Basic Ngồi tạo báo cáo ứng dụng Web, sau thiết lập dịch vụ trình chủ tệp tin dạng Crystal Report có tên mở rộng “.rpt” Để tạo báo cáo Crystal Report Visual Basic kết nối với sở liệu, Microsoft Access hay SQL Server 2000 Trong phần mềm sử dụng hệ quản trị sở liệu Microsoft Access 2003 B.Nội dung Nội dung toán quản lý bán hàng Trung tâm thương mại NC-HT năm gần phát triển mạnh, quy mô ngày mở rộng doanh thu liên tục tăng Vì việc quản lý bán hàng gặp nhiều khó khăn việc quản lý thủ công đáp ứng nhu cầu nhà quản lý cấp trên.Hoạt động quản lý bán hàng trung tâm sau: Khi khách hàng có nhu cầu hàng hố phận tiếp nhận yêu cầu mua hàng, khách hàng mua hàng trung tâm gọi điện để đặt hàng Sau phiếu mua hàng khách hàng gửi đến phịng vật tư Phịng vật tư thơng báo đến phận quản lý kho, thủ kho tiến hành kiểm tra kho hàng xuất hàng cho phận chuyển hàng cho khách hàng Ngược lại kho khơng cịn đủ hàng phịng vật tư đơn hàng cần mua đến nhà cung cấp nhập hàng vào kho Để thực việc quản lý có theo dõi bảng danh mục sau đây: o Danh mục hàng hoá o Danh mục khách hàng o Danh mục nhà cung cấp o Danh mục nhân viên Việc mua bán trung tâm ln tốn nên khơng có cơng nợ, hố đơn bán nhiều mặt hàng, tỷ lệ thuế cho mặt hàng bán mua vào 10%.Khách hàng hưởng chiết khấu trực tiếp hoá đơn theo quy định sau: o Nếu tổng giá trị hoá đơn từ triệu đến triệu chiết khấu 5% o Nếu triệu chiết khấu 8% Định kỳ hay bất thường lên báo cáo sau: o Báo cáo tổng hợp hàng nhập khoảng thời gian xác định o Báo cáo hàng bán khoảng thời gian xác định o Báo cáo tổng hợp tồn kho o Báo cáo tổng hợp hàng bán theo khách hàng o Báo cáo tổng hợp hàng mua theo nhà cung cấp Phân tích nghiệp vụ 2.1.Quy trình mua hàng Hàng nội địa o Mục đích: Quy trình nhập cung cấp trình thống lĩnh vực nhập hàng, tạo điều kiện cho ban tài kế tốn, phịng vật tư đơn vị có quy trình thống nhất, hiệu chuẩn hố có nhu cầu đặt hàng nhập o Lưu đồ Nhận yêu cầu mua hàng Kiểm tra hàng kho Đánh giá nhà cung cấp Không Lựa chọn nhà cung ứng Chọn Đàm phán ký kết hợp đồng Thực hợp đồng Nhập kho hàng hóa Thơng báo cho người sử dụng T Vật tư hàng hóa kho có giá trị khơng lớn Lưu HS Hàng nhập o Mục đích : Quy trình nhập cung cấp trình thống lĩnh vực nhập hàng, tạo điều kiện cho ban tài kế tốn, phịng vật tư đơn vị có quy trình thống nhất, hiệu chuẩn hố có nhu cầu đặt hàng nhập o Lưu đồ 10 Dim sql5 As String If KT2 = Then sql5 = "Select SoHHDM from HoaDonMua" rsSoHHDM.Open sql5, Conn Do Until rsSoHHDM.EOF If TxtSoHHDM.Text rsSoHHDM!SoHHDM Then rsSoHHDM.MoveNext Else sql = "Select MaHH from HangHoa" rsMaHH.Open sql, Conn Do Until rsMaHH.EOF If cmbMaHH.Text rsMaHH!MaHH Then rsMaHH.MoveNext ElseIf Val(TxtSoLuong.Text) = "0" Then MsgBox " Số lợng mua không hợp lÖ!", vbOKOnly rsSoHHDM.Close rsMaHH.Close Exit Sub Else sql1 = "Select MaHH from ChiTietHangMua where MaHH=('" & cmbMaHH.Text & "') and SoHHDM=('" & TxtSoHHDM.Text & "')" rsKiemTraCTM1.Open sql1, Conn If rsKiemTraCTM1.EOF Then sql2 = " Insert into ChiTietHangMua values ('" & TxtSoHHDM.Text & "', '" & cmbMaHH.Text & "', '" & TxtSoLuong.Text & "')" Conn.Execute sql2 sql3 = " Update HangHoa set TonKho=TonKho + val('" & TxtSoLuong.Text & "') where MaHH=('" & cmbMaHH.Text & "')" Conn.Execute sql3 adoCTM.Refresh adoTHM.Refresh 'NapadoCTB 'cmbMaHH.DataField =AdoCTB.Recordset!TenHH 'TxtTenHH.DataField = AdoCTB.Recordset!TenHH 'TxtSoLuong.DataField = adoCTB.Recordset!SoLuong 'TxtDVT.DataField = AdoCTB.Recordset!DVT 'TxtGiaBan.DataField = AdoCTB.Recordset!GiaBan 'TxtTonKho.DataField = adoCTB.Recordset!TonKho 'txtThanhTien.DataField = adoCTB.Recordset!ThanhTien 't xtXuatXu.DataField = AdoCTB.Recordset!XuatXu 66 MsgBox "Đà lu thành công!", vbOKOnly Else Traloi = MsgBox(" Mặt hàng đà có bạn có muốn cộng dồn không?", vbInformation + vbYesNo) If Traloi = vbYes Then sql3 = " Update ChiTietHangMua set SoLuong=SoLuong + val('" & TxtSoLuong.Text & "') where MaHH=('" & cmbMaHH.Text & "') and SoHHDM=('" & TxtSoHHDM.Text & "')" Conn.Execute sql3 sql3 = " Update HangHoa set TonKho=TonKho + val('" & TxtSoLuong.Text & "') where MaHH=('" & cmbMaHH.Text & "')" Conn.Execute sql3 adoCTM.Refresh adoTHM.Refresh 'NapadoCTB MsgBox "Đà lu thành công!", vbOKOnly Else MsgBox "Bạn hÃy nhập lại mặt hàng!", vbOKOnly End If End If rsKiemTraCTM1.Close rsSoHHDM.Close rsMaHH.Close Exit Sub End If Loop If rsMaHH.EOF Then MsgBox "Mặt hàng cha có danh mục mặt hàng!", vbOKOnly End If rsMaHH.Close rsSoHHDM.Close Exit Sub End If Loop If rsSoHHDM.EOF Then MsgBox "Bạn hÃy lu hoá đơn trớc!", vbOKOnly End If rsSoHHDM.Close ElseIf KT3 = Then 67 sql = "Update ChiTietHangMua set SoLuong=val('" & TxtSoLuong.Text & "') where SoHHDM=('" & TxtSoHHDM.Text & "') and MaHH=('" & cmbMaHH.Text & "')" sql1 = "Update HangHoa set TonKho=(TonKho - val('" & Text1.Text & "')+ val('" & TxtSoLuong.Text & "')) where MaHH=('" & cmbMaHH.Text & "')" Conn.Execute sql Conn.Execute sql1 adoCTM.Refresh adoTHM.Refresh NapadoCTM Else Exit Sub End If End Sub Private Sub cmdNext1_Click() If KT1 = Or KT2 = Or (adoCTM.Recordset.EOF And adoCTM.Recordset.BOF) Then Exit Sub Else If adoCTM.Recordset.EOF = False Then adoCTM.Recordset.MoveNext Else adoCTM.Recordset.MoveLast End If End If End Sub Private Sub cmdNext2_Click() If KT1 = Or KT2 = Or (adoHDM.Recordset.EOF And adoHDM.Recordset.BOF) Then Exit Sub Else If adoHDM.Recordset.EOF = False Then adoHDM.Recordset.MoveNext NapadoCTM NapadoTHM Else adoHDM.Recordset.MoveLast 68 NapadoCTM NapadoTHM End If End If End Sub Private Sub cmdPri1_Click() If KT1 = Or KT2 = Or (adoCTM.Recordset.EOF And adoCTM.Recordset.BOF) Then Exit Sub Else If adoCTM.Recordset.BOF = False Then adoCTM.Recordset.MovePrevious Else adoCTM.Recordset.MoveFirst End If End If End Sub Private Sub cmdPri2_Click() If KT1 = Or KT2 = Or (adoHDM.Recordset.EOF And adoHDM.Recordset.BOF) Then Exit Sub Else If adoHDM.Recordset.BOF = False Then adoHDM.Recordset.MovePrevious NapadoCTM NapadoTHM Else adoHDM.Recordset.MoveFirst NapadoCTM NapadoTHM End If End If End Sub Private Sub CmdSuaHD_Click() KT2 = MsgBox "Nếu hoá đơn đà có bạn không sửa đợc số hiệu hoá đơn!", vbOKOnly 69 TxtNgayMua.Locked = False cmbMaNV.Locked = False txtTennv.Locked = False cmbMaNCC.Locked = False txtTenNCC.Locked = False txtDiachi.Locked = False txtDT.Locked = False End Sub Private Sub CmdSuaMH_Click() KT3 = Dim Traloi As Integer Traloi = MsgBox(" Bạn có muốn sửa lợng bán mặt hàng không?", vbYesNo) If Traloi = vbYes Then rsSoLuong.Open "Select SoLuong from ChiTietHangMua where MaHH=('" & cmbMaHH.Text & "') and SoHHDM=('" & TxtSoHHDM.Text & "')", Conn Text1.Text = rsSoLuong!SoLuong TxtSoLuong.Locked = False cmbMaHH.DataField = "" TxtTenHH.DataField = "" TxtSoLuong.DataField = "" txtDvt.DataField = "" txtGianhap.DataField = "" txtTonkho.DataField = "" txtThanhTien.DataField = "" txtXuatxu.DataField = "" txtHansudung.DataField = "" TxtSoLuong.Text = "" txtThanhTien.Text = "" rsSoLuong.Close End If End Sub Private Sub cmdThemHD_Click() KT1 = adoTHM.Recordset.AddNew ChoUpdate TxtSoHHDM.Text = "" 70 TxtNgayMua.Text = "" cmbMaNV.Text = "" txtTennv.Text = "" cmbMaNCC.Text = "" txtTenNCC.Text = "" txtDiachi.Text = "" txtDT.Text = "" txtTongThue.Text = "" txtTongTien.Text = "" txtTongTT.Text = "" cmbMaHH.DataField = "" TxtTenHH.DataField = "" TxtSoLuong.DataField = "" txtDvt.DataField = "" txtGianhap.DataField = "" txtTonkho.DataField = "" txtThanhTien.DataField = "" txtXuatxu.DataField = "" txtHansudung.DataField = "" cmbMaHH.Text = "" TxtTenHH.Text = "" txtGianhap.Text = "" txtTonkho.Text = "" txtDvt.Text = "" txtXuatxu.Text = "" TxtSoLuong.Text = "" txtThanhTien = "" txtHansudung.Text = "" cmbMaHH.Locked = True TxtTenHH.Locked = True TxtSoLuong.Locked = True txtDvt.Locked = True txtGianhap.Locked = True txtTonkho.Locked = True txtXuatxu.Locked = True txtThanhTien.Locked = True txtTongTT.Locked = True txtHansudung.Locked = True NapcmbMaHH NapcmbMaNCC 71 NapcmbMaNV NapadoCTM NapadoTHM TxtSoHHDM.SetFocus End Sub Private Sub CmdThemMH_Click() KT2 = If TxtSoHHDM.Text = "" Or cmbMaNV.Text = "" Or TxtNgayMua.Text = "" Or cmbMaNCC.Text = "" Then MsgBox "Bạn cha điền đủ thông tin!", vbInformation + vbOKOnly Exit Sub Else Dim Traloi As Integer Traloi = MsgBox(" Bạn muốn thêm ghi ?", vbInformation + vbYesNo) If Traloi = vbNo Then adoCTM.Refresh Exit Sub Else ChoUpdate NapcmbMaHH cmbMaHH.DataField = "" TxtTenHH.DataField = "" TxtSoLuong.DataField = "" txtDvt.DataField = "" txtGianhap.DataField = "" txtTonkho.DataField = "" txtThanhTien.DataField = "" txtXuatxu.DataField = "" txtHansudung.DataField = "" cmbMaHH.Text = "" TxtTenHH.Text = "" txtGianhap.Text = "" txtTonkho.Text = "" txtDvt.Text = "" txtXuatxu.Text = "" TxtSoLuong.Text = "" txtThanhTien = "" txtHansudung = "" 72 cmbMaHH.SetFocus End If End If End Sub Private Sub CmdThoat_Click() Unload Me End Sub Private Sub CmdXoaHD_Click() Dim sql As String Dim sql1 As String sql = "Select SoHHDM from ChiTietHangMua" rsSoHHDM.Open sql, Conn Do Until rsSoHHDM.EOF If (TxtSoHHDM.Text) = rsSoHHDM!SoHHDM Then MsgBox "Ho¸ đơn không đợc xoá đà phát sinh giao dich!", vbOKOnly rsSoHHDM.Close Exit Sub Else rsSoHHDM.MoveNext End If Loop If rsSoHHDM.EOF Then sql1 = "Delete * from HoaDonMua where SoHHDM=('" & TxtSoHHDM.Text & "')" Conn.Execute sql1 adoHDM.Refresh adoTHM.Refresh MsgBox "Đà xoá thành công" NapadoHDM End If rsSoHHDM.Close End Sub Private Sub CmdXoaMH_Click() Dim sql As String Dim sql2 As String 73 sql = "delete * from ChiTietHangMua where MaHH=('" & cmbMaHH.Text & "') and SoHHDM=('" & TxtSoHHDM.Text & "')" sql2 = "update HangHoa set TonKho=TonKho-val('" & TxtSoLuong.Text & "') where MaHH=('" & cmbMaHH.Text & "') " Conn.Execute sql Conn.Execute sql2 'NapadoCTB adoCTM.Refresh MsgBox "Đà xoá thành công!" End Sub Private Sub Form_Load() NapadoHDM NapadoCTM NapadoTHM Naptooltip KhongChoUpDate End Sub Private Sub NapadoHDM() adoHDM.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database\QuanLyBanHang.mdb;Persist Security Info=False" adoHDM.CommandType = adCmdText adoHDM.RecordSource = " SELECT SoHHDM, NgayMua, NhanVien.MaNV, TenNV, NhaCC.MaNCC, TenNCC, NhaCC.DiaChi, NhaCC.DT from HoaDonMua, NhaCC, NhanVien " & _ "where HoaDonMua.MaNV=NhanVien.MaNV and HoaDonMua.MaNCC=NhaCC.MaNCC" adoHDM.Refresh End Sub Private Sub NapadoCTM() adoCTM.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database\QuanLyBanHang.mdb;Persist Security Info=False" adoCTM.CommandType = adCmdText adoCTM.RecordSource = " select HangHoa.MaHH, TenHH, XuatXu, DVT, SoLuong, GiaNhap, HanSuDung, SoLuong* GiaNhap as ThanhTien, TonKho from HangHoa, ChiTietHangMua " & _ "where HangHoa.MaHH=ChiTietHangMua.MaHH and SoHHDM=('" & TxtSoHHDM.Text & "')" 74 adoCTM.Refresh End Sub Private Sub NapadoTHM() adoTHM.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database\QuanLyBanHang.mdb;Persist Security Info=False" adoTHM.CommandType = adCmdText adoTHM.RecordSource = "select Sum(SoLuong*GiaNhap) as TongTien, Sum(SoLuong*GiaNhap*0.1) as TongThue, (Sum(SoLuong*GiaNhap) + sum(SoLuong*GiaNhap*0.1)) as TongTT " & _ "From HoaDonMua, HangHoa, ChiTietHangMua " & _ "Where HoaDonMua.SoHHDM=ChiTietHangMua.SoHHDM and HangHoa.MaHH=ChiTietHangMua.MaHH " & _ "and HoaDonMua.SoHHDM=('" & TxtSoHHDM.Text & "')" adoTHM.Refresh End Sub Private Sub Naptooltip() CmdThemHD.ToolTipText = "Thêm hoá đơn" CmdLuuHD.ToolTipText = "Lưu hoá đơn" CmdSuaHD.ToolTipText = "Sửa hoá đơn” CmdXoaHD.ToolTipText = "Xoá hoá đơn" CmdThoat.ToolTipText = "Thoát " End Sub Private Sub KhongChoUpDate() TxtSoHHDM.Locked = True TxtNgayMua.Locked = True cmbMaNV.Locked = True txtTennv.Locked = True cmbMaNCC.Locked = True txtTenNCC.Locked = True txtDiachi.Locked = True txtDT.Locked = True txtTongThue.Locked = True txtTongTien.Locked = True txtTongTT.Locked = True cmbMaHH.Locked = True TxtTenHH.Locked = True TxtSoLuong.Locked = True txtDvt.Locked = True txtGianhap.Locked = True 75 txtTonkho.Locked = True txtXuatxu.Locked = True txtThanhTien.Locked = True txtHansudung.Locked = True GrdHHM.AllowDelete = False GrdHHM.AllowUpdate = False End Sub Private Sub ChoUpdate() TxtSoHHDM.Locked = False TxtNgayMua.Locked = False cmbMaNV.Locked = False txtTennv.Locked = False cmbMaNCC.Locked = False txtTenNCC.Locked = False txtDiachi.Locked = False txtDT.Locked = False txtTongThue.Locked = False txtTongTien.Locked = False txtTongTT.Locked = False cmbMaHH.Locked = False TxtTenHH.Locked = False TxtSoLuong.Locked = False txtDvt.Locked = False txtGianhap.Locked = False txtTonkho.Locked = False txtXuatxu.Locked = False txtHansudung.Locked = False txtThanhTien.Locked = False GrdHHM.AllowDelete = True GrdHHM.AllowUpdate = True End Sub Private Sub NapcmbMaHH() Dim sql As String sql = "Select MaHH from HangHoa where TonKhonull order by MaHH" rsMaHH.Open sql, Conn cmbMaHH.Clear Do While Not rsMaHH.EOF cmbMaHH.AddItem rsMaHH!MaHH rsMaHH.MoveNext 76 Loop rsMaHH.Close End Sub Private Sub NapcmbMaNCC() Dim sql As String sql = "Select MaNCC from NhaCC order by MaNCC" rsMaNCC.Open sql, Conn cmbMaNCC.Clear Do While Not rsMaNCC.EOF cmbMaNCC.AddItem rsMaNCC!MaNCC rsMaNCC.MoveNext Loop rsMaNCC.Close End Sub Private Sub txtThanhTien_Gotfocus() txtThanhTien.Text = Val(TxtSoLuong.Text) * Val(txtGianhap.Text) End Sub Private Sub NapcmbMaNV() Dim sql As String sql = " select MaNV from NhanVien order by MaNV" rsMaNV.Open sql, Conn cmbMaNV.Clear Do Until rsMaNV.EOF cmbMaNV.AddItem rsMaNV!MaNV rsMaNV.MoveNext Loop rsMaNV.Close End Sub Private Sub cmbMaNV_Click() Dim sql As String sql = "Select TenNV from NhanVien where MaNV=('" & cmbMaNV.Text & "')" rsNapTuDong.Open sql, Conn txtTennv.Text = rsNapTuDong!TenNV rsNapTuDong.Close End Sub Private Sub cmbMaNCC_Click() 77 Dim sql As String sql = "Select TenNCC, DiaChi, DT from NhaCC where MaNCC=('" & cmbMaNCC.Text & "')" rsNapTuDong.Open sql, Conn txtTenNCC.Text = rsNapTuDong!TenNCC txtDiachi.Text = rsNapTuDong!DiaChi txtDT.Text = rsNapTuDong!DT rsNapTuDong.Close End Sub Private Sub cmbMaNCC_LostFocus() Dim sql As String On Error GoTo XuLyLoi sql = "Select TenNCC, DiaChi, DT from NhaCC where MaNCC=('" & cmbMaNCC.Text & "')" Dim rsTenKH As New ADODB.Recordset rsTenNCC.Open sql, Conn txtTenNCC.Text = rsTenNCC!TenNCC txtDiachi.Text = rsTenNCC!DiaChi txtDT.Text = rsTenNCC!DT rsTenNCC.Close Exit Sub XuLyLoi: rsTenNCC.Close Exit Sub End Sub Private Sub cmbMaNV_LostFocus() Dim sql As String On Error GoTo XuLyLoi sql = "Select TenNV from NhanVien where MaNV=('" & cmbMaNV.Text & "')" Dim rsTenNV As New ADODB.Recordset rsTenNV.Open sql, Conn txtTennv.Text = rsTenNV!TenNV rsTenNV.Close Exit Sub XuLyLoi: rsTenNV.Close cmbMaNV.SetFocus Exit Sub End Sub 78 Private Sub cmbMaHH_LostFocus() Dim sql As String On Error GoTo XuLyLoi sql = "Select TenHH, XuatXu, GiaNhap ,DVT, TonKho, HanSuDung from HangHoa where MaHH=('" & cmbMaHH.Text & "')" Dim rsTenHH As New ADODB.Recordset rsTenHH.Open sql, Conn TxtTenHH.Text = rsTenHH!TenHH txtDvt.Text = rsTenHH!DVT txtXuatxu.Text = rsTenHH!XuatXu txtTonkho.Text = rsTenHH!TonKho txtGianhap.Text = rsTenHH!GiaNhap txtHansudung.Text = rsTenHH!HanSuDung rsTenHH.Close Exit Sub XuLyLoi: rsTenHH.Close cmbMaHH.SetFocus Exit Sub End Sub 79 ... xử lý thơng tin, có cơng cụ tìm kiếm nhanh hợp lý Phân tích hệ thống thơng tin quản lý bán hàng trung tâm thương mại NC-HT 4.1.Sơ đồ chức kinh doanh trung tâm thương mại 16 Quản lý bán hàng Quản. .. Vì việc quản lý bán hàng gặp nhiều khó khăn việc quản lý thủ cơng khơng thể đáp ứng nhu cầu nhà quản lý cấp trên.Hoạt động quản lý bán hàng trung tâm sau: Khi khách hàng có nhu cầu hàng hố... cầu người làm phần mềm phải đáp ứng u cầu Cũng nhằm mục đích nói mà đề tài ? ?Xây dựng phần mềm quản lý bán hàng trung tâm thương mại NC-TH? ?? đời Qua em xin chân thành cảm ơn quan tâm giúp đỡ tận
