Đang tải... (xem toàn văn)
Việt Nam cũng như các quốc gia trên thế giới đang bước vào thời đại công nghệ thông tin bùng nổ với sự phát triển mạnh mẽ như vũ bão đang tạo ra những bước tiến thần kì không chỉ cho ngành công nghệ thông tin mà đã, đang trở nên vô cùng gần gũi với các hoạt động của đời sống con người trên tất cả các lĩnh vực:Văn hoá, kinh tế, xã hội, buôn bán… và trong hầu hết các ngành nghề. Trong đó tin học hoá quản lý là một ví dụ điển hình. Có quá nhiều yếu tố ảnh hưởng đến sự phát triển của một doanh nghiệp: Thị trường, sản phẩm, nhân lực, trí tuệ… nhưng như người ta thường hay nói: Doanh nghiệp được quản lý tốt thì hoạt động sẽ hiệu quả. Với một doanh nghiệp đã hoạt động lâu năm và rất có tiềm lực như Công ty TNHH Cảnh Loan Doanh nghiệp chuyên cung câp các trang thiết bị điện, điện tử, điện lạnh thì việc sử dụng một phần mềm quản lý bán hàng là tất yếu, vô cùng cần thiết, đảm bảo cho sự quản lý bán hàng cũng như phát triển lâu dài của công ty. Nhận thấy đây là 1 đề tài hay, thực sự gây hứng thú, đồng thời rất phù hợp với những gì em đã học được trên lớp, nên em đã quyết đình chọn đề tài thực tập tốt nghiệp là “Xây dựng hệ thống thông tin quản lý bán các trang thiết bị điện, điện tử, điện lạnh tại công ty TNHH Cảnh Loan”. Chuyên đề thực tập tốt nghiệp của em bao gồm 3 chương trong nội dung chính. Đó là: Chương 1: Tổng quan về công ty cổ phần phần mềm BSG và công ty TNHH Cảnh Loan Chương 2: Phương pháp luận phát triển hệ thống thông tin quản lý bán hàng tại công ty TNHH Cảnh Loan Chương 3: Phân tích thiết kế hệ thống thông tin quản lý bán hàng cho công ty TNHH Cảnh Loan Trong quá trình làm chuyên đề em đã nhận được sự chỉ bảo nhiệt tình của các anh chị công tác tại công ty BSG. Đặc biệt, em xin gửi lời cảm ơn chân thành đến giáo viên hướng dẫn thực tập TS. Trần Thị Song Minh. Do còn thiếu kinh nghiệm thực tế nên chuyên đề còn nhiều thiếu sót, rất mong nhận được những ý kiến đóng góp của cô và các bạn để chuyên đề được hoàn chỉnh hơn. Em xin chân thành cảm ơn . Hà Nội, ngày 27 tháng 4 năm 2008 Sinh viên Nguyễn Anh Đức
Chuyên đề thực tập tốt nghiệp Quản lý Bán hàng MỤC LỤC Lời nói đầu CHƯƠNG 1: TỔNG QUAN VỀ CÔNG TY TNHH BUSINESS STAR GROUP VÀ CÔNG TY TNHH CẢNH LOAN Error: Reference source not found 1.1 GIỚI THIỆU CHUNG CÔNG TY TNHH BUSINESS STAR GROUP( BSG) Error: Reference source not found 1.1.1 Vài nét BSG: Error: Reference source not found 1.1.2 Cơ cấu tổ chức Error: Reference source not found 1.1.3 Quy trình nghiệp vụ kinh doanh công ty BSG .Error: Reference source not found 1.1.4 Lưu đồ kinh doanh công ty BSG Error: Reference source not found 1.1.5 Quy trình chuyển giao cơng nghệ Error: Reference source not found 1.2 GIỚI THIỆU CHUNG VỀ CÔNG TY TNHH CẢNH LOAN: .Error: Reference source not found 1.2.1 Chức nhiệm vụ công ty TNHH Cảnh Loan.Error: Reference source not found 1.2.2 Thực trạng ứng dụng công nghệ thông tin công ty TNHH Cảnh Loan Error: Reference source not found 1.2.3 Chiến lược phát triển hệ thống thông tin công ty TNHH Cảnh Loan Error: Reference source not found 1.2.4 Giải pháp tin học hố q trình bán hàng cơng ty TNHH Cảnh Loan Error: Reference source not found CHƯƠNG 2: PHƯƠNG PHÁP LUẬN CƠ BẢN PHÁT TRIỂN HỆ THỐNG THÔNG TIN QUẢN LÝ BÁN HÀNG TẠI CÔNG TY TNHH CẢNH LOAN Error: Reference source not found Nguyễn Anh Đức Lớp: Tin Học Kinh Tế 46A Chuyên đề thực tập tốt nghiệp Quản lý Bán hàng 2.1 MỘT SỐ VẤN ĐỀ CƠ BẢN VỀ HỆ THỐNG THÔNG TIN QUẢN LÝ Error: Reference source not found 2.1.1 Tổng quan HTTT quản lý Error: Reference source not found 2.1.2 Phân loại hệ thống thông tin tổ chức: Error: Reference source not found 2.2 PHÁT TRIỂN MỘT HỆ THỐNG THÔNG TIN .Error: Reference source not found Nguyễn Anh Đức Lớp: Tin Học Kinh Tế 46A Chuyên đề thực tập tốt nghiệp Quản lý Bán hàng 2.2.1 Những nguyên nhân dẫn đến việc phát triển hệ thống thông tin Error: Reference source not found 2.2.2 Các công đoạn phát triển hệ thống Error: Reference source not found 2.3 CÁC CƠNG CỤ MƠ HÌNH HỐ HỆ THỐNG THÔNG TIN .Error: Reference source not found 2.3.1 Sơ đồ luồng thông tin (IFD – Information Flow Data) Error: Reference source not found 2.3.2 Sơ đồ phân rã chức (BFD – Business Function Diagram) Error: Reference source not found 2.3.3 Sơ đồ luồng liệu (DFD – Data Flow Diagram) .Error: Reference source not found 2.3.4 Thiết kế sở liệu Error: Reference source not found CHƯƠNG 3: PHÂN TÍCH VÀ THIẾT KẾ PHẦN MỀM QUẢN LÍ BÁN HÀNG CHO CƠNG TY TNHH CẢNH LOAN Error: Reference source not found 3.1 YÊU CẦU PHÂN TÍCH Error: Reference source not found 3.1.1 Khảo sát phân tích yêu cầu chung .Error: Reference source not found 3.1.2 Bài toán đặt việc xây dựng hệ thống thông tin công ty TNHH Cảnh Loan Error: Reference source not found 3.2 PHÂN TÍCH CHI TIẾT HỆ THỐNG THƠNG TIN QUẢN LÝ BÁN HÀNG TẠI CÔNG TY TNHH CẢNH LOAN Error: Reference source not found 3.2.2 Phân tích yêu cầu người sử dụng: .Error: Reference source not found 3.2.3 Mơ hình hóa hoạt động bán hàng công ty TNHH Cảnh Loan Error: Reference source not found Nguyễn Anh Đức Lớp: Tin Học Kinh Tế 46A Chuyên đề thực tập tốt nghiệp Quản lý Bán hàng 3.3 THIẾT KẾ CƠ SỞ DỮ LIỆU LOGIC HỆ THỐNG THÔNG TIN QUẢN LÝ BÁN HÀNG CÔNG TY TNHH CẢNH LOAN .Error: Reference source not found 3.3.1 Thiết kế liệu .Error: Reference source not found 3.3.2 Thiết kế thủ tục .Error: Reference source not found 3.3.3 Thiết kế giao diện Error: Reference source not found Kết Luận Error: Reference source not found Danh Mục Tài Liệu Tham Khảo Error: Reference source not found Danh Mục Tài Liệu Tham Khảo Error: Reference source not found Phụ Lục Error: Reference source not found Nguyễn Anh Đức Lớp: Tin Học Kinh Tế 46A Chuyên đề thực tập tốt nghiệp Quản lý Bán hàng Lời nói đầu Việt Nam quốc gia giới bước vào thời đại công nghệ thông tin bùng nổ với phát triển mạnh mẽ vũ bão tạo bước tiến thần kì khơng cho ngành cơng nghệ thơng tin mà đã, trở nên vô gần gũi với hoạt động đời sống người tất lĩnh vực:Văn hoá, kinh tế, xã hội, buôn bán… hầu hết ngành nghề Trong tin học hố quản lý ví dụ điển hình Có q nhiều yếu tố ảnh hưởng đến phát triển doanh nghiệp: Thị trường, sản phẩm, nhân lực, trí tuệ… người ta thường hay nói: Doanh nghiệp quản lý tốt hoạt động hiệu Với doanh nghiệp hoạt động lâu năm có tiềm lực Cơng ty TNHH Cảnh Loan- Doanh nghiệp chuyên cung câp trang thiết bị điện, điện tử, điện lạnh việc sử dụng phần mềm quản lý bán hàng tất yếu, vô cần thiết, đảm bảo cho quản lý bán hàng phát triển lâu dài công ty Nhận thấy đề tài hay, thực gây hứng thú, đồng thời phù hợp với em học lớp, nên em đình chọn đề tài thực tập tốt nghiệp “Xây dựng hệ thống thông tin quản lý bán trang thiết bị điện, điện tử, điện lạnh công ty TNHH Cảnh Loan” Chuyên đề thực tập tốt nghiệp em bao gồm chương nội dung Đó là: Chương 1: Tổng quan công ty cổ phần phần mềm BSG công ty TNHH Cảnh Loan Chương 2: Phương pháp luận phát triển hệ thống thông tin quản lý bán hàng công ty TNHH Cảnh Loan Chương 3: Phân tích thiết kế hệ thống thông tin quản lý bán hàng Nguyễn Anh Đức Lớp: Tin Học Kinh Tế 46A Chuyên đề thực tập tốt nghiệp Quản lý Bán hàng cho công ty TNHH Cảnh Loan Trong trình làm chuyên đề em nhận bảo nhiệt tình anh chị công tác công ty BSG Đặc biệt, em xin gửi lời cảm ơn chân thành đến giáo viên hướng dẫn thực tập TS Trần Thị Song Minh Do thiếu kinh nghiệm thực tế nên chuyên đề cịn nhiều thiếu sót, mong nhận ý kiến đóng góp bạn để chuyên đề hoàn chỉnh Em xin chân thành cảm ơn Hà Nội, ngày 27 tháng năm 2008 Sinh viên Nguyễn Anh Đức Nguyễn Anh Đức Lớp: Tin Học Kinh Tế 46A Chuyên đề thực tập tốt nghiệp Quản lý Bán hàng CHƯƠNG TỔNG QUAN VỀ CÔNG TY TNHH BUSINESS STAR GROUP VÀ CÔNG TY TNHH CẢNH LOAN 1.1 GIỚI THIỆU CHUNG CÔNG TY TNHH BUSINESS STAR GROUP( BSG) 1.1.1 Vài nét BSG: Hoạt động lĩnh vực CNTT, kinh doanh dịch vụ trực tuyến Cơng ty TNHH Tập đồn ngơi doanh nghiệp (Tên viết tắt: BSG Ltd.) thành lập điều hành nhà quản trị doanh nghiệp giàu kinh nghiệm ngồi nước Chúng tơi hoạt động theo giấy chứng nhận đầu tư số: 011022000091, Ủy ban nhân dân thành phố Hà Nội cấp ngày 15 tháng 10 năm 2007, theo luật doanh nghiệp Việt Nam, có trụ sở tại: P3001 – 34T Trung Hịa Nhân Chính – Hà Nội BSG thực cung cấp dịch vụ gia tăng mạng Internet, bao gồm: o Xây dựng phát triển cổng điện tử nhiều lĩnh vực thông tin – giải trí – mua sắm, nhằm tạo kênh thơng tin phục vụ nhu cầu chung cộng đồng mạng Việt Nam o Nhận thiết kế, gia công sản phẩm phần mềm – website theo đơn đặt hàng khách hàng nước o Các hoạt động nhằm hướng tới mục tiêu chung nhất: Tạo kênh quảng cáo hiệu quả, đem lại nhiều lợi ích mặt truyền thong cho đơn vị ngồi nước Tầm nhìn – sứ mệnh: Hoạt động lĩnh vực CNTT, kinh doanh dịch vụ trực Nguyễn Anh Đức Lớp: Tin Học Kinh Tế 46A Chuyên đề thực tập tốt nghiệp Quản lý Bán hàng tuyến, Với thành viên trẻ nhiệt huyết công việc, BSG tự hào người góp phần vào phát triển thị trường mạng ngày lớn mạnh nước nhà Với tiêu chí “Hoạt động lợi ích cộng đồng”, BSG ln mong muốn hoạt động góp phần đem đến công cụ tri thức thông tin - giải trí – mua sắm cho người tiêu dùng, tham gia vào thị trường cạnh tranh lành mạnh hình thức kinh doanh tiên tiến Mục tiêu BSG: “Hoạt động lợi ích cộng đồng” – Chúng xây dựng sản phẩm đáp ứng nhu cầu sử dụng cộng đồng mạng Việt Nam Đem đến cho khách hàng kênh quảng cáo hiệu quả; Chúng hoạt động dựa hiệu khách hàng đánh giá Sự hài lòng chất lượng dịch vụ khách hàng niềm vinh hạnh đói với chúng tơi Giá trị cốt lõi Luôn xác dịnh mục tiêu tạo lập uy tín với đối tác khách hàng ưu tiên hàng đầu Thành công đến từ tin tưởng bạn Niềm tin đối tác khách hàng thước đo hàng đầu cho chất lượng – hiệu dịch vu Ln ln quan tâm - chăm sóc ln làm hài lòng đến khách hàng ý thức Chúng mong muốn tạo công cụ quảng cáo hiệu cho đối tác khách hàng; tạo giá trị tri thức cho cộng đồng người Việt Nam Thế mạnh Nhận thức rõ sứ mệnh mục tiêu mình, chúng tơi xác lập mạnh BSG dưa yếu tố: Nguyễn Anh Đức Lớp: Tin Học Kinh Tế 46A Chuyên đề thực tập tốt nghiệp Quản lý Bán hàng Đội ngũ nhân viên nhiệt tình hăng say cơng việc, với khả chuyên môn ngày nâng cao Chăm sóc khách hàng phục vụ khách hàng cách tận tình chun nghiệp ln ln tơn hoạt động Sản phẩm đại, xây dựng công nghệ tiên tiến giới Được cộng đồng mạng Việt Nam ngày yêu quý tin cậy Nền tảng kiến thức phong phú, với kết hợp nhuần nhuyễn trí tuệ phương tây tinh thần truyền thống phương đông Dịch vụ chúng tôi: Gia công – xây dựng sản phẩm công nghệ thông tin theo đơn đặt hàng đối tác nước Kinh doanh dịch vụ gia tăng cổng điện tử BSG xây dựng điều hành Con người Để tạo tên tuổi ngày hôm nay, chúng tơi có: Đội ngũ ban lãnh đạo uy tín, có kến thức thâm sâu quản lý, có quan hệ sâu rộng với đối tác nước Đội ngũ nhân viên trẻ tuổi, đầy động nhiệt huyết Chúng luôn tâm niệm cống hiến cho tơn cao q : “Hoạt động lợi ích cộng đồng” 1.1.2 Cơ cấu tổ chức Sơ đồ tổ chức Nguyễn Anh Đức Lớp: Tin Học Kinh Tế 46A Chuyên đề thực tập tốt nghiệp Quản lý Bán hàng 10 TỔNG GIÁM ĐỐC GIÁM ĐỐC PHĨ GIÁM ĐỐC PHỊNG HÀNH CHÍNH SỰ NGHIỆP PHỊNG KINH DOANH PHĨ GIÁM ĐỐC TRƯỞNG BAN KIỂM SỐT PHỊNG KẾ TỐN PHỊNG BẢO HÀNH BẢO TRÌ PHỊNG CHĂM SĨC KHÁCH HÀNG PHỊNG KỸ THUẬT TRIỂN KHAI PHỊNG GIỚI THIỆU SẢN PHẨM 1.1.3 Quy trình nghiệp vụ kinh doanh cơng ty BSG Các nhiệm vụ bao gồm: Bộ phận chăm sóc khách hàng theo dõi danh sách khách hàng, theo dõi danh sách nhân viên Bộ phận marketting lập kế hoạch thông qua gọi điên thoại hẹn gặp khách hàng Sau lập kế hoạch thơng qua mẫu biểu MS-04-08/MGS Xác định kế hoach tháng thông qua mẫu biểu dự kiến cho tương lai Gửi kế hoạch, mẫu biểu cho giám đốc Giám đốc xem xét Nguyễn Anh Đức Lớp: Tin Học Kinh Tế 46A Chuyên đề thực tập tốt nghiệp Quản lý Bán hàng 96 Dim Sql As String Sql = "Delete * From ChiTietBan Where SoHDB= '" & Me.TxtSoHD.Text & "'" conn.Execute Sql Else Exit Sub End If End Sub Private Sub CmdXoaMH_Click() If MsgBox("Bạn muốn xóa mặt hng ny khụng?", vbQuestion + vbYesNo, "Thông Báo") = vbNo Then Exit Sub Else Me.AdoCTB.Recordset.Delete Dim rsLT As New ADODB.Recordset Dim Str As String Str = "select LuongTon From HangHoa Where MaHang = '" & Me.CboMH.Text & "'" rsLT.Open Str, conn, adOpenDynamic, adLockOptimistic rsLT!LuongTon = Me.TxtLuongTon.Text + Me.TxtLuongBan.Text rsLT.Update rsLT.Close Me.AdoCTB.Refresh TinhTien End If End Sub Private Sub Command1_Click() NapAdoCTB End Sub Nguyễn Anh Đức Lớp: Tin Học Kinh Tế 46A Chuyên đề thực tập tốt nghiệp Quản lý Bán hàng 97 Private Sub DataGrid2_Click() Command1_Click End Sub Private Sub Form_Load() AdoCTB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\BanHang.mdb;Persist Security Info=False" AdoHDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\BanHang.mdb;Persist Security Info=False" conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\BanHang.mdb;Persist Security Info=False" KhongUpdate NapAdoCTB NapAdoHDB Me.TxtChietKhau.Text = "0" Me.CmdLuu2.Visible = False Command1_Click End Sub Private Sub KhongUpdate() Me.TxtSoHD.Locked = True Me.TxtNgayBan.Locked = True Me.CboKH.Locked = True Me.CboHTTT.Locked = True Me.CboNB.Locked = True Me.TxtDienGiai.Locked = True Me.TxtChietKhau.Locked = True Me.TxtDVT.Locked = True Me.TxtDiaChi.Locked = True Me.TxtLuongBan.Locked = True Me.TxtLuongTon.Locked = True Me.TxtTenhang.Locked = True Nguyễn Anh Đức Lớp: Tin Học Kinh Tế 46A Chuyên đề thực tập tốt nghiệp 98 Quản lý Bán hàng Me.CboTT.Locked = True Me.TxtThue.Locked = True End Sub Private Sub ChoUpdate() Me.TxtSoHD.Locked = False Me.TxtNgayBan.Locked = False Me.CboKH.Locked = False Me.CboHTTT.Locked = False Me.CboNB.Locked = False Me.TxtDienGiai.Locked = False Me.TxtChietKhau.Locked = False Me.TxtDiaChi.Locked = False Me.TxtLuongBan.Locked = False Me.TxtLuongTon.Locked = False Me.TxtDVT.Locked = False Me.TxtTenhang.Locked = False Me.CboTT.Locked = False Me.TxtThue.Locked = False End Sub Private Sub NapCboKH() Dim rsMaKH As New ADODB.Recordset Dim Sql As String Sql = " Select MaKH From KhachHang Order by MaKH" rsMaKH.Open Sql, conn Me.CboKH.Clear Do While Not rsMaKH.EOF CboKH.AddItem rsMaKH!MaKH rsMaKH.MoveNext Loop rsMaKH.Close End Sub Private Sub NapCboTT() Nguyễn Anh Đức Lớp: Tin Học Kinh Tế 46A Chuyên đề thực tập tốt nghiệp Quản lý Bán hàng 99 Me.CboTT.AddItem "VND" Me.CboTT.AddItem "USD" Me.CboTT.AddItem "EUR" End Sub Private Sub NapCboHH() Dim rs As New ADODB.Recordset Dim Sql As String Sql = " Select MaHang From HangHoa Where MaHang Null " rs.Open Sql, conn CboMH.Clear Do While Not rs.EOF Me.CboMH.AddItem rs!MaHang rs.MoveNext Loop rs.Close End Sub Private Sub NapCBoNB() Dim RsNB As New ADODB.Recordset Dim Sql As String Sql = "Select HoTen From NhanVien where HoTen Null" RsNB.Open Sql, conn CboNB.Clear Do While Not RsNB.EOF CboNB.AddItem RsNB!HoTen RsNB.MoveNext Loop RsNB.Close End Sub Private Sub NapAdoCTB() AdoCTB.CommandType = adCmdText AdoCTB.RecordSource = " SELECT * FROM ChiTietBan WHERE SoHDB='" & TxtSoHD.Text & "'" Nguyễn Anh Đức Lớp: Tin Học Kinh Tế 46A Chuyên đề thực tập tốt nghiệp 100 Quản lý Bán hàng AdoCTB.Refresh End Sub Private Sub NapAdoHDB() AdoHDB.CommandType = adCmdText AdoHDB.RecordSource = "SELECT SoHDB, NgayLap, MaKH,NguoiBan,ChietKhau,HTTT, TongThanhTien,DienGiai,TienTe FROM HoaDonBan Order by SoHDB " AdoHDB.Refresh End Sub Private Sub NapCboHTTT() Me.CboHTTT.AddItem "Thanh To¸n Ngay" Me.CboHTTT.AddItem "Ghi Nỵ" End Sub Private Sub TxtNgayBan_Click() Me.TxtNgayBan.Text = Format(Me.Calendar1.Value, "dd/mm/yyyy") End Sub Private Sub TinhTien() Dim rs As New ADODB.Recordset Dim Sql As String Sql = "select Sum((LuongBan*GiaBan)*(1 + Thue/100)) as TongTien From ChiTietBan Where SoHDB = '" & Me.TxtSoHD.Text & "'" rs.Open Sql, conn Me.txtTien.Text = rs!TongTien - Me.TxtChietKhau rs.Close End Sub Code Form Danh Mục Hàng Hóa Private Sub CmdHuy_Click() Me.CmdLuu.Enabled = False Nguyễn Anh Đức Lớp: Tin Học Kinh Tế 46A Chuyên đề thực tập tốt nghiệp 101 Quản lý Bán hàng Me.CmdThem.Enabled = True Me.CmdSua.Enabled = True Me.CmdXoa.Enabled = True Me.CmdHuy.Enabled = False KhongUpdate End Sub Private Sub CmdLuu_Click() If Me.TxtMaHang.Text = "" Then MsgBox "Cha nhập mà hàng hoá!" Me.CmdSua.Enabled = True Me.CmdXoa.Enabled = True Me.CmdHuy.Enabled = False Me.CmdLuu.Enabled = False Exit Sub Else Me.DaTaHH.Recordset.Update Me.DaTaHH.Refresh Me.CmdLuu.Enabled = False Me.CmdThem.Enabled = True Me.CmdSua.Enabled = True Me.CmdXoa.Enabled = True Me.CmdHuy.Enabled = False End If Me.DaTaHH.Recordset.MoveNext KhongUpdate End Sub Private Sub CmdSua_Click() Me.DaTaHH.Recordset.Edit Me.CmdLuu.Enabled = True Me.CmdThem.Enabled = False Nguyễn Anh Đức Lớp: Tin Học Kinh Tế 46A Chuyên đề thực tập tốt nghiệp 102 Quản lý Bán hàng Me.CmdXoa.Enabled = False Me.CmdSua.Enabled = False Me.CmdHuy.Enabled = True ChoUpdate End Sub Private Sub CmdThem_Click() Me.DaTaHH.Recordset.AddNew Me.CmdLuu.Enabled = True Me.CmdHuy.Enabled = True Me.CmdSua.Enabled = False Me.CmdXoa.Enabled = False Me.CmdThem.Enabled = False ChoUpdate End Sub Private Sub CmdTK_Click() If Me.CboTK.Enabled = True Then Me.CmdTk.Caption = "NgõngTK" Me.CboTK.Enabled = False Me.TxtTK.Locked = True Else Me.CmdTk.Caption = "&T×m KiÕm" Me.CboTK.Enabled = True Me.TxtTK.Locked = False End If End Sub Private Sub CmdXoa_Click() If MsgBox("Bạn có muốn xóa ghi không", vbQuestion + vbYesNo, "Thông Báo") = vbYes Then Me.DaTaHH.Recordset.Delete Nguyễn Anh Đức Lớp: Tin Học Kinh Tế 46A Chuyên đề thực tập tốt nghiệp 103 Quản lý Bán hàng Else Exit Sub End If End Sub Private Sub CmThoat_Click() Me.Hide FrmMain.Show End Sub Private Sub Form_Load() Me.DaTaHH.DatabaseName = App.Path & "\data\BanHang.mdb" Me.DaTaHH.RecordSource = "Select * From HangHoa" Me.DaTaHH.Visible = False Me.CboTK.Enabled = False Me.CmdHuy.Enabled = False Me.CmdLuu.Enabled = False NapComboKH KhongUpdate Me.TxtTK.Locked = True End Sub Sub NapComboKH() Me.CboTK.AddItem "Hiện Tất Cả" Me.CboTK.AddItem "Mà Hàng Hoá" Me.CboTK.AddItem "Tên Hàng Hoá" Me.CboTK.AddItem "Giá Bán" Me.CboTK.AddItem "Lợng Tồn" End Sub Sub TimKiem() Dim chuoiTK As String Dim Ma As String Dim Ten As String Nguyễn Anh Đức Lớp: Tin Học Kinh Tế 46A Chuyên đề thực tập tốt nghiệp Quản lý Bán hàng 104 Dim DC As String Dim DT As String Select Case Me.CboTK.Text Case "HiƯn TÊt C¶" Exit Sub Case "Mà Hàng Hoá" Ma = " MaHang LiKe '*" & Trim(Me.TxtTK.Text) & "*'" Case "Tên Hàng Hoá" Ten = " TenHang LiKe '*" & Trim(Me.TxtTK.Text) & "*'" Case "Gi¸ B¸n" DC = " GiaBan LiKe '*" & Trim(Me.TxtTK.Text) & "*'" Case "Lỵng Tån" DT = " LuongTon LiKe '*" & Trim(Me.TxtTK.Text) & "*'" End Select chuoiTK = "Select * From HangHoa Where " & Ma & Ten & DC & DT Me.DaTaHH.RecordSource = chuoiTK Me.DaTaHH.Refresh End Sub Private Sub txtTK_Change() TimKiem End Sub Sub ChoUpdate() Me.TxtDVTinh.Locked = False Me.TxtGiaBan.Locked = False Me.TxtGiaNhap.Locked = False Me.TxtLuongTon.Locked = False Me.TxtMaHang.Locked = False Me.TxtTenHang.Locked = False End Sub Sub KhongUpdate() Me.TxtDVTinh.Locked = True Nguyễn Anh Đức Lớp: Tin Học Kinh Tế 46A Chuyên đề thực tập tốt nghiệp 105 Quản lý Bán hàng Me.TxtGiaBan.Locked = True Me.TxtGiaNhap.Locked = True Me.TxtLuongTon.Locked = True Me.TxtMaHang.Locked = True Me.TxtTenHang.Locked = True End Sub Code Form Phiếu Thu Private Sub Form_Load() AdoTTCongNoKH.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\BanHang.mdb;Persist Security Info=False" NapAdoTTCongNoKH conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\BanHang.mdb;Persist Security Info=False" NapCmbSoHDB KhongUpdate End Sub Private Sub NapAdoTTCongNoKH() AdoTTCongNoKH.CommandType = adCmdText AdoTTCongNoKH.RecordSource = " SELECT SoHDTTB,NgayThu,MaKH,SoHDB,TongThanhTien,ConLai,SoTienTra,DienGiai FROM HoaDonThanhToanBan ORDER BY SoHDTTB" AdoTTCongNoKH.Refresh End Sub Sub NapTenKH() Dim rs As New ADODB.Recordset Dim Sql As String Sql = " Select MaKH,TenKH From KhachHang where MaKH = '" & Me.txtmaKH.Text Nguyễn Anh Đức Lớp: Tin Học Kinh Tế 46A Chuyên đề thực tập tốt nghiệp Quản lý Bán hàng 106 & "'" rs.Open Sql, conn If Not rs.EOF Then Me.TxtTenKH.Text = rs!TenKH End If End Sub Private Sub Text1_Click() Me.Text1.Text = Format(Me.Calendar1.Value, "dd/mm/yyyy") End Sub Private Sub TxtGiaTriConLai_Click() Me.TxtGiaTriConLai.Text = Me.TxtConLai.Text - Me.TxtSoTienTra.Text End Sub Sub ChoUpdate() Me.TxtConLai.Locked = False Me.TxtGiaTriConLai.Locked = False Me.txtmaKH.Locked = False Me.TxtSoHDTTB.Locked = False Me.TxtSoTienTra.Locked = False Me.TxtTenKH.Locked = False Me.CmbSoHDB.Locked = False End Sub Sub KhongUpdate() Me.TxtConLai.Locked = True Me.TxtGiaTriConLai.Locked = True Me.txtmaKH.Locked = True Me.TxtSoHDTTB.Locked = True Me.TxtSoTienTra.Locked = True Me.TxtTenKH.Locked = True Me.CmbSoHDB.Locked = True End Sub Nguyễn Anh Đức Lớp: Tin Học Kinh Tế 46A Chuyên đề thực tập tốt nghiệp Quản lý Bán hàng 107 Code Form Main Dim conn As New ADODB.Connection Private Sub KhachHang_Click() Dim rs As New ADODB.Recordset Dim Sql As String Sql = "select * from BCongNoKH" rs.Open Sql, conn Me.BCKHNo.ReportFileName = App.Path & "\Report\CongNoKH.rpt" Me.BCKHNo.PrintReport End Sub Private Sub MDIForm_Load() conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\BanHang.mdb;Persist Security Info=False" End Sub Private Sub MnuBCCNNhaCungCap_Click() Dim rs As New ADODB.Recordset Dim Sql As String Sql = "select * from BCCongNoNCC" rs.Open Sql, conn Me.BCNCCNo.ReportFileName = App.Path & "\Report\CongNoNCC.rpt" Me.BCNCCNo.PrintReport End Sub Private Sub mnuBG_Click() Me.BaoGia.ReportFileName = App.Path & "\Report\BaoGia.rpt" Me.BaoGia.PrintReport End Sub Nguyễn Anh Đức Lớp: Tin Học Kinh Tế 46A Chuyên đề thực tập tốt nghiệp 108 Quản lý Bán hàng Private Sub MnuCNHangHoa_Click() FrmHangHoa.Show End Sub Private Sub MnuCNKhachHang_Click() FrmKhachHang.Show End Sub Private Sub MnuCNNhaCungCap_Click() FrmNhaCungCap.Show End Sub Private Sub MnuDangNhapLai_Click() Unload Me FrmDangNhap.Show End Sub Private Sub MnuDMHangHoa_Click() End Sub Private Sub MnuDMKhachHang_Click() End Sub Private Sub MnuDMNhaCungCap_Click() End Sub Nguyễn Anh Đức Lớp: Tin Học Kinh Tế 46A Chuyên đề thực tập tốt nghiệp 109 Quản lý Bán hàng Private Sub MnuDangKy_Click() FrmDangKy.Show End Sub Private Sub MnuDoanhThuBH_Click() Dim rs As New ADODB.Recordset Dim Sql As String Sql = "select * from BCDoanhThuBanHang" rs.Open Sql, conn Me.BCDoanhThu.ReportFileName = App.Path & "\Report\BCDoanhThu.rpt" Me.BCDoanhThu.PrintReport End Sub Private Sub MnuHangBan_Click() Dim rs As New ADODB.Recordset Dim Sql As String Sql = "select * from BCHangBan" rs.Open Sql, conn Me.BCHangBan.ReportFileName = App.Path & "\Report\BCHangBan.rpt" Me.BCHangBan.SetTablePrivateData 0, 3, rs Me.BCHangBan.PrintReport End Sub Private Sub MnuHangNhap_Click() Dim rs As New ADODB.Recordset Dim Sql As String Sql = "select * from BCHangNhap" rs.Open Sql, conn Me.BCHangNhap.ReportFileName = App.Path & "\Report\BCHangNhap.rpt" Me.BCHangNhap.SetTablePrivateData 0, 3, rs Me.BCHangNhap.PrintReport Nguyễn Anh Đức Lớp: Tin Học Kinh Tế 46A Chuyên đề thực tập tốt nghiệp 110 Quản lý Bán hàng End Sub Private Sub MnuHangTon_Click() Dim rs As New ADODB.Recordset Dim Sql As String Sql = "select * from BCHangTon" rs.Open Sql, conn Me.BCHangTon.ReportFileName = App.Path & "\Report\BCHangTon.rpt" BCHangTon.SetTablePrivateData 0, 3, rs Me.BCHangTon.PrintReport End Sub Private Sub MnuHDB_Click() FrmHoaDonBanHang.Visible = True End Sub Private Sub MnuHDN_Click() FrmHoaDonNhapHang.Visible = True End Sub Private Sub MnuKetThuc_Click() If MsgBox(" Bạn có muốn khỏi chương trình khơng?", vbQuestion + vbYesNo, "Thơng Báo") = vbYes Then End Else Exit Sub End If End Sub Private Sub MnuNhanVien_Click() FrmNhanVien.Show End Sub Nguyễn Anh Đức Lớp: Tin Học Kinh Tế 46A ... ? ?Xây dựng hệ thống thông tin quản lý bán trang thiết bị điện, điện tử, điện lạnh công ty TNHH Cảnh Loan? ?? Chuyên đề thực tập tốt nghiệp em bao gồm chương nội dung Đó là: Chương 1: Tổng quan công. .. toán đặt việc xây dựng hệ thống thông tin công ty TNHH Cảnh Loan Error: Reference source not found 3.2 PHÂN TÍCH CHI TIẾT HỆ THỐNG THƠNG TIN QUẢN LÝ BÁN HÀNG TẠI CÔNG TY TNHH CẢNH LOAN Error:... công ty cổ phần phần mềm BSG công ty TNHH Cảnh Loan Chương 2: Phương pháp luận phát triển hệ thống thông tin quản lý bán hàng cơng ty TNHH Cảnh Loan Chương 3: Phân tích thiết kế hệ thống thông tin