B¸o c¸o thùc tËp tèt nghiƯp LỜI NĨI ĐẦU Ngày nay, trình hội nhập kinh tế giới, lúc hết, thành công quan phụ thuộc vào khả thu thập kịp thời, đầy đủ xác liệu cần thiết, xử lí, quản lí sử dụng chúng cách có hiệu để phân tích tình hình đề phương hướng hành động tương lai Chúng ta sống thời đại mà cách mạng công nghệ thông tin ( CNTT ) diễn mạnh mẽ hàng ngày hàng khắp nơi giới “ Làn sóng thứ ba “ tác động tích cực đến hầu hết hoạt động kinh tế - xã hội, làm thay đổi không lối sống, phong cách làm việc tư người mà tạo thay đổi lớn phương thức điều hành, quản lí tổ chức việc sản xuất, kinh doanh doanh nghiệp Nhờ ứng dụng CNTT mà việc quản lí tổ chức, quan trở nên gọn nhẹ hiệu Hiện nay, theo xu chung giới lợi ích to lớn đem lại, không nước phát triển mà nước phát triển, công ty lớn mà tổ chức nhỏ cố gắng tự xây dựng, thuê hay mua chương trình tin học phù hợp với yêu cầu, điều kiện tổ chức Cũng theo xu chung giới, cơng ty lớn nhỏ Việt Nam dần đưa vào sử dụng chương trình quản lí phù hợp với cơng ty, tổ chức Đó chương trình quản lí hoạt động kinh doanh, quản lí nguồn nhân lực, quản lí khách hàng… hay chương trình quản lí hố đơn, quản lí hồ sơ… Việc sử dụng chương trình khơng đem lại nhiều lợi ích mặt kết cơng việc mà cịn giảm tối đa chi phí phát sinh như: chi phí nguồn nhân lực, chi phí lưu trữ, chi phí thời gian… Thạch Như Thành Lớp: 35- CDTH1 B¸o c¸o thùc tËp tèt nghiƯp Là sinh viên khoa Tin học ứng dụng , với mục tiêu chuyên ngành đào tạo ứng dụng tin học có hiệu vào hoạt động quản lí tác nghiệp tổ chức kinh tế - xã hội với giúp đỡ anh chị công ty , em học hỏi xây dựng chương trình Quản lí bán hàng cho công ty , ứng dụng chuyên ngành đào tạo thời gian thực tập tai cong ty Hi vọng, chương trình em giúp anh chị chuyên viên công ty giải phần khối lượng công việc mà hàng ngày h phi gii quyt Phần mềm Quản lý bán hàng phần mềm phổ biến mà hầu nh doanh nghiệp cần Tổng quan gồm nội dung sau: Chơng I: Mô tả đề tài Chơng II: Phân tích thiết kế Chờng III: Cài đặt Chơng IV: Đánh giá kết đạt đợc nghiên cứu hớng phát triển Tuy em đà cố gắng nhiều, song trình trình bày chắn không tránh khỏi hạn chế nội dung hình thức Vì em mong nhận đợc góp ý tận tình thầy cô giáo ban đạo thực tập để thu hoạch em đợc hoàn thiện đầy đủ Em xin chân thành cảm ơn cô Trn Th Thuý Hằng đà giúp đỡ em hoàn thành chơng trình Sinh viên Thch Nh Thnh Lp: 35- CDTH1 Báo cáo thực tập tốt nghiệp Thạch Nh Thành Chơng I: MÔ Tả BàI TOáN Chơng đề ti trình by kết thu đợc trình khảo sắt trạng Qua lm rõ yêu cầu tin học hoá Cách tiếp cận giải vấn đề đợc giải chơng ny I Khảo sát trạng Giới thiệu chung toán Một công ty kinh doanh mặt hng máy tính để kinh doanh đem lại hiệu nhiệm vụ phòng ban công ty quan trọng Đối víi ng−êi thđ kho th× nhiƯm vơ lμ xt nhËp hng theo phiếu xuất nhập ngời bán hàng viết Ngoi định kỳ, ngời thủ kho phải kiểm kê v báo cáo tồn kho loại mặt hng kho Để nhập hng, Công ty lập đơn đặt hng v gởi đến nh cung cấp Sau nh cung cấp lập hoá đơn xuất hng cho đơn vị đặt hng (có thể l nhiều hoá đơn) Với hoá đơn, nh cung cấp xuất lm nhiều lần v đợc ghi nhận qua phiếu nhập hng gồm thông tin nh: Số phiếu nhập, ngy nhập, đơn vị, mặt hng, số lợng, đơn giá, thnh tiền, đơn vị tính, số hợp đồng, số hoá đơn Tơng tự nh để xuất hng cho đơn vị no (hay khách lẻ) Công ty phải lm phiếu giao hng (Có thể l nhiều hoá đơn) v Công ty Thch Nh Thnh Lớp: 35- CDTH1 B¸o c¸o thùc tËp tèt nghiƯp cã thĨ dïng PhiÕu giao hμng ®ã lμm phiÕu bảo hnh cho khách hng Bộ phận kế toán theo dâi viÖc xuÊt nhËp hμng vμ lËp phiÕu toán gồm: Số phiếu chi, ngy chi, đơn vị, số hợp đồng, lý do, số tiền toán phiếu thu gồm :Số phiếu thu, ngy thu, đơn vị, số hợp đồng, lý do, số tiền, phát sinh nợ Định kỳ (hằng ngy, hng tuần, hng tháng, hng quý, hng năm) ngời bán hng trực tiếp báo cáo với ban lảnh đạo số lợng tồn lại kho Ban lảnh đạo vo số liệu ny để nắm tình hình kinh doanh công ty Phạm vi đề tài Chơng trình xây dựng nhằm mục đích phục vụ công việc quản lý bán hng Doanh nghiệp kinh doanh mặt hng máy tính, bao gồm chức sau: 2.1 Chức nhập kho * Dữ liệu (Tên, nhÃn hiệu, quy cách hng hoá vật t v thông tin khác) đợc nhập vo hệ thống theo cách: + Cập nhật liệu thông qua form nhập liệu * Sắp xếp phân loại hng hoá kho theo danh mục, chủng loại v nhiều cấp độ khác * Quản lý, xếp v phân loại nh cung cấp để tiện cho trình quản lý hng hoá * Cập nhật trạng thái hng hoá, tự động thông báo cho ngời quản lý tình trạng hng hoá VD: Hng hoá hết hạn sử dụng, hng nhập mức yêu Thch Nh Thành Lớp: 35- CDTH1 B¸o c¸o thùc tËp tèt nghiệp cầu, hng phẩm chất 2.2 Chức xuất kho * Cập nhật thông tin phiếu xuất kho nh : Tên hng hoá, số lợng, ngy xuất, ngời nhận hng * Cập nhật số lợng hng hoá lại kho * In phiếu xuất kho * Đồng liệu kho hệ thống 2.3 Chức kiểm kê * Khoá hoạt động giao dịch mặt hng cần kiĨm kª Sau kiĨm kª xong míi cho phÐp nở giao dịch đà bị đóng để tiếp tục giao dịch nhập xuất kho * Kiểm kê hng hoá tồn kho v tình trạng hng hoá 2.4 Chức bán hàng * Quản trị thông tin giao dịch khách hng: Thông tin khách hng; Thông tin đơn đặt hng; Thông tin số lợng hng hoá bán * Quản lý doanh thu *Quản lý chi tiết hng hoá v công nợ khách hng theo tiêu thức quản trị tuỳ chọn 2.5 Chức bảo mật Hệ thống cho phép phân quyền sử dụng, từ chống đợc truy nhập bất hợp pháp vo hệ thống liệu, đồng thời định rõ đợc trách nhiệm trờng hợp có cố Thạch Như Thành Lớp: 35- CDTH1 B¸o c¸o thùc tập tốt nghiệp 2.6 Chức thống kê, báo cáo * Báo cáo phân loại hng hoá Cho biết thông tin hng hoá hệ thống kho theo tiêu chí phân loại ngời sử dụng * Báo cáo doanh thu thu đợc theo mặt hng, theo kỳ, * Thống kê đơn đặt hng, số lợng hng bán * Lập báo giá theo loại khách hng * Lập hoá đơn mua hng * Lập hoá đơn bán hng * Lập phiếu thu * LËp phiÕu chi * PhiÕu xuÊt kho * Phiếu nhập kho * Lập hoá đơn toán mua hng * Lập hoá đơn toán bán hng * Cho phÐp ng−êi sư dơng in c¸c b¸o c¸o xuất file dới dạng MS World, MS Excel, Acrobat Reader để lu trữ Đây l chơng trình có tính cách xây dựng hệ thống thông tin để tin học hoá chức cho đơn vị Công ty TNHH Đầu T Thuơng Mại Dịch Vụ Đức Linh bao gồm từ chức phận đơn vị Trong phần ny, xây dựng hệ thống lu trữ sở liệu phù hợp với nhu cầu, hỗ trợ công việc Thch Nh Thnh Lp: 35- CDTH1 Báo cáo thực tập tốt nghiệp Nghiên cứu trạng giải vấn đề Trong Công ty TNHH Đầu T Thuơng Mại Dịch Vụ Đức Linh hệ thống tổ chức phận có hỗ trợ lần bao gồm: Giám đốc (Ban điều hnh), Bộ phận bán hμng, Bé phËn kÕ to¸n, Bé phËn kho, Bé phËn hnh 3.1 Giám đốc (Ban điều hành) - Quản lý v phân phối hoạt động công ty - Quản lý v điều hnh hoạt động nhân viên Phân loại khách hng: Quyết định giá thức cho mặt hng Tuy nhiên giá đợc chia theo loại tuỳ vo khách hng (Khách hng mua số lợng nhiều, khách hng thờng xuyên ) Nhận báo cáo từ phần khác nh: kế toán, hnh chính, bán hng Từ có cách nhìn tình hình công ty, Thạch Như Thành Lớp: 35- CDTH1 B¸o c¸o thực tập tốt nghiệp thị hiếu khách hng để có kế định hớng, phát triển nhằm đáp ứng yêu cầu hiếu khách hng v tiến triển công ty 3.2 Bộ phận hành - Ghi chép chi phÝ vỊ vËn chun, mua hμng tõ nhμ cung cấp Chế độ tiền lơng nhân viên - Xem suất để có chế độ khen thởng cá nhân có thnh tích góp phần phát triển công ty kỹ luật cá nhân không hon thnh nhiệm vụ hau biểu tiêu cực - Bên cạnh phải theo dõi biến động giá v l biến động theo thời gian Từ đa giá phù hợp cho loại hng 3.3 Bộ phận bán hàng Trực tiếp cửa hng: Tại cửa hng công việc bán hng l lập đơn đặt hng khách Khách hng phải đăng ký phận bán hng thông tin để dễ liên lạc v quản lý nh: Tên khách hng, địa liên lạc, số điện thoại, v khách hng đợc quản lý mà số riêng v khách hng dùng mà số để mua hng hay đặt hng Hng đợc trng by cửa hng, khách hng chọn mặt hng cách tự chọn cửa hng hay thông qua bảng Báo giá Khi kh¸ch hμng mua hμng, bé phËn b¸n hμng trao đổi thông tin khách hng, chịu trách nhiện hớng dẫn, lm Phiếu giao hàng (trong trờng hợp khách hng mua) Sau tiếp nhận yêu cầu phận nμy Thạch Như Thành Lớp: 35- CDTH1 B¸o c¸o thực tập tốt nghiệp lm hoá đơn v toán tiền Trong trờng hợp nhiều công ty, doanh nghiệp có yêu cầu đặt hng, mua với số lợng lớn cửa hng nhanh chóng lm phiếu đặt hàng, phiếu thu có giá trị thuế cho loại hng v chuyển giao hng theo yêu cầu Công việc cụ thể cho phận bán hng: - Theo dõi đợc hng hoá kho - Nhân viên bán hng cần phải nhập thông tin cần thiết mặt hng vo Chơng trình tự tạo mà số riêng khách hng - Nhập thông tin khách hang với mà số riêng biệt - Theo dõi, xác định thời gian giao hng 3.4 Bộ phận kho Chức bé phËn nμy lμ nhËp hμng, xuÊt hμng cho bé phận bán hng, theo dõi số lợng tồn kho Nhân viên phải thờng xuyên kiểm tra để biết đợc số lợng hng hoá bị h hỏng, hết, phải đề xuất để ban điều hnh có kế hoạch xử lý 3.4.1 Quản lý hng hoá Sản phẩm đợc lấy từ công ty buôn bán khác, nh cung cấp t nhân, công ty nớc hay ngoi nớc Công ty l đối tác cho công ty khác Các mặt hng kinh doanh phải có loại mà số riêng (Mà hng) để phân biệt với hng hoá khác.Các mặt hng phải đầy đủ thông tin nh: Mà hng, tên hng hoá, chi tiết hng hoá, giá cả, thông tin nh sản xuất Các quy định mà số Thch Nh Thành Lớp: 35- CDTH1 B¸o c¸o thùc tËp tèt nghiệp Công ty thờng đợc lu trữ nội phận quản lý đặt 3.4.2 Quá trình đặt hng với nh cung cấp Hằng ngy nhân viên kiểm tra hng hoá v đề xuất lên ban điều hnh cần xử lý việc mặt hng cần nhập Trong trình đặt hng ban ®iỊu hμnh sÏ cã tr¸ch nhiƯm xem xÐt c¸c ®Ị xuất Về mặt hng yêu cầu v định loại hng, số lợng hng cần đặt v phơng thức đặt hng với nh cung cấp 3.4.3 Quá trình nhập hng vo kho * Quá trình nhập hng vo kho theo nhiều cách khác nhau: - Mua từ bên ngoi (Công ty khác, đại lý ) - Do bị trả lại từ khách hng no (trờng hợp ny xảy ra) Sau nhận yêu cầu đặt hng qua điện thoại hay qua Fax, nh cung cấp giao hng cho công ty có kèm theo hoá đơn hay bảng kê chi tiết loại mặt hang loại Thủ kho kiểm tra lô hng tõng nhμ cung cÊp vμ tr−êng hỵp giao hμng hoá không yêu cầu đặt hng hay chất lợng thủ kho trả lại nh cung cấp v yêu cầu giao lại mặt hng bị trả Trong lm việc cho trờng hợp xảy thủ kho phải ghi liại hng hoá nhËp thùc KÕ tiÕp thđ kho sÏ kiĨm tra chøng từ giao hng (hoá đơn trực tiếp không khấu trừ VAT, bảng kê hng hoá, giá cả) để gán giá trị thnh tiền cho loại sản phẩm Những Thch Như Thành 10 Lớp: 35- CDTH1 B¸o c¸o thùc tËp tèt nghiÖp Me.Func_CTXuatByIDTableAdapter.Fill(Me.CuaHangDataSet.func_CTXuatByID, 0) Me.Func_CTThanhToanKHTableAdapter.Fill(Me.Cua_hang_1DataSet.Func_CTThanhT oanKH, 0) End Try Case "Số phiếu" Me.Func_ThongKePhieuXuatTableAdapter.Fill(Me.Cua_hang_1DataSet.func_Thong KePhieuXuat, "", "", strTukhoa, Me.dtTuNgay, Me.dtDenNgay) Try Me.Func_CTXuatByIDTableAdapter.Fill(Me.CuaHangDataSet.func_CTXuatByID, Me.grdDsPhieuXuat.CurrentRow.Cells(0).Value) Me.Func_CTThanhToanKHTableAdapter.Fill(Me.Cua_hang_1DataSet.Func_CTThanhT oanKH, Me.grdDsPhieuXuat.CurrentRow.Cells(0).Value) Catch ex As Exception Me.Func_CTXuatByIDTableAdapter.Fill(Me.CuaHangDataSet.func_CTXuatByID, 0) Me.Func_CTThanhToanKHTableAdapter.Fill(Me.Cua_hang_1DataSet.Func_CTThanhT oanKH, 0) End Try Case Else Me.cmbDKLocPB.Text = "Tên khách hàng" Me.Func_ThongKePhieuXuatTableAdapter.Fill(Me.Cua_hang_1DataSet.func_Thong KePhieuXuat, strTukhoa, "", "", Me.dtTuNgay, Me.dtDenNgay) Try Me.Func_CTXuatByIDTableAdapter.Fill(Me.CuaHangDataSet.func_CTXuatByID, Me.grdDsPhieuXuat.CurrentRow.Cells(0).Value) Me.Func_CTThanhToanKHTableAdapter.Fill(Me.Cua_hang_1DataSet.Func_CTThanhT oanKH, Me.grdDsPhieuXuat.CurrentRow.Cells(0).Value) Catch ex As Exception Me.Func_CTXuatByIDTableAdapter.Fill(Me.CuaHangDataSet.func_CTXuatByID, 0) Me.Func_CTThanhToanKHTableAdapter.Fill(Me.Cua_hang_1DataSet.Func_CTThanhT oanKH, 0) End Try Thạch Như Thành 98 Lớp: 35- CDTH1 B¸o c¸o thùc tËp tèt nghiƯp End Select End Sub Private Sub cmbDKLocPB_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbDKLocPB.SelectedIndexChanged txtTuKhoaPB_TextChanged(sender, e) End Sub Private Sub grdDsPhieuXuat_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles grdDsPhieuXuat.CellClick If grdDsPhieuXuat.RowCount Then Me.Func_CTXuatByIDTableAdapter.Fill(Me.CuaHangDataSet.func_CTXuatByID, Me.grdDsPhieuXuat.CurrentRow.Cells(0).Value) Me.Func_CTThanhToanKHTableAdapter.Fill(Me.Cua_hang_1DataSet.Func_CTThanhT oanKH, Me.grdDsPhieuXuat.CurrentRow.Cells(0).Value) End If End Sub Private Sub grdDsPhieuXuat_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles grdDsPhieuXuat.KeyUp If e.KeyCode = Keys.Enter Or e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Or e.KeyCode = Keys.Tab Then Me.Func_CTXuatByIDTableAdapter.Fill(Me.CuaHangDataSet.func_CTXuatByID, Me.grdDsPhieuXuat.CurrentRow.Cells(0).Value) Me.Func_CTThanhToanKHTableAdapter.Fill(Me.Cua_hang_1DataSet.Func_CTThanhT oanKH, Me.grdDsPhieuXuat.CurrentRow.Cells(0).Value) End If End Sub 'TAB THỐNG KÊ HÀNG NHẬP========================= Private Sub txtTimTKHangNhap_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTimTKHangNhap.TextChanged Me.dtTuNgay = Me.datTuNgay.Value Me.dtDenNgay = Me.datDenNgay.Value Dim strTuKhoa As String strTuKhoa = Me.txtTimTKHangNhap.Text Thạch Như Thành 99 Lớp: 35- CDTH1 B¸o c¸o thùc tËp tèt nghiƯp Me.Func_LocTKHangNhapTableAdapter.Fill(Me.CuaHangDataSet.func_LocTKHangNh ap, strTuKhoa, dtTuNgay, dtDenNgay) showTotalMoney() End Sub 'TAB THỐNG KÊ HÀNG Bán========================= Private Sub txtTKHangBan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTKHangBan.TextChanged Me.dtTuNgay = Me.datTuNgay.Value Me.dtDenNgay = Me.datDenNgay.Value Dim strTuKhoa As String strTuKhoa = Me.txtTKHangBan.Text Me.Func_LocTKHangBanTableAdapter.Fill(Me.CuaHangDataSet.func_LocTKHangBan , strTuKhoa, dtTuNgay, dtDenNgay) showToTalMoneySale() End Sub Private Sub txtTuKhoaHangCon_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTuKhoaHangCon.TextChanged Me.dtTuNgay = Me.datTuNgay.Value Me.dtDenNgay = Me.datDenNgay.Value Dim strTuKhoa As String strTuKhoa = Me.txtTuKhoaHangCon.Text Me.Func_TkHangConTableAdapter.Fill(Me.Cua_hang_1DataSet.func_TkHangCon, strTuKhoa) showTotalProduct() End Sub Private Sub txtTuKhoaHangHet_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTuKhoaHangHet.TextChanged Me.dtTuNgay = Me.datTuNgay.Value Me.dtDenNgay = Me.datDenNgay.Value Dim strTuKhoa As String strTuKhoa = Me.txtTuKhoaHangHet.Text Me.Func_TkHangHetTableAdapter.Fill(Me.Cua_hang_1DataSet.func_TkHangHet, strTuKhoa) End Sub Thạch Như Thành 100 Lớp: 35- CDTH1 B¸o c¸o thùc tËp tèt nghiƯp Sub thongKeTienMat() Me.Func_ThongKeTienVaoTableAdapter.Fill(Me.Cua_hang_1DataSet.func_ThongKe TienVao, dtTuNgay, dtDenNgay) Me.Func_ThongKeTienRaTableAdapter.Fill(Me.Cua_hang_1DataSet.func_ThongKeT ienRa, dtTuNgay, dtDenNgay) End Sub Private Sub txtTienVao_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTienVao.TextChanged If txtTienVao.Text.Trim = "" Then txtTienVao.Text = "0" Else txtTienVao.Text = Format(CType(txtTienVao.Text, Long), "N0") txtTienVao.SelectionStart = txtTienVao.Text.Length End If End Sub Private Sub txtTienRa_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTienRa.TextChanged If txtTienRa.Text.Trim = "" Then txtTienRa.Text = "0" Else txtTienRa.Text = Format(CType(txtTienRa.Text, Long), "N0") txtTienRa.SelectionStart = txtTienRa.Text.Length End If End Sub Private Sub BtnIn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIn.Click FrmTKKho.ShowDialog() End Sub Dim i As Integer Dim total As Long Sub showTotalMoney() total = For i = To grdTKHangNhap.RowCount - total = total + Me.grdTKHangNhap.Rows(i).Cells(6).Value Next Try Thạch Như Thành 101 Lớp: 35- CDTH1 B¸o c¸o thùc tËp tèt nghiƯp Me.lblTotalMoney.Text = Format(CType(total, Long), "N0") Catch ex As Exception '' End Try End Sub Sub showToTalMoneySale() total = For i = To grdTKHangBan.RowCount - total = total + Me.grdTKHangBan.Rows(i).Cells(6).Value Next Try Me.lblTotalMoneySale.Text = Format(CType(total, Long), "N0") Catch ex As Exception '' End Try End Sub Sub showTotalProduct() total = For i = To grdTkHangCon.RowCount - total = total + Me.grdTkHangCon.Rows(i).Cells(4).Value Next Try Me.lblTotalPro.Text = Format(CType(total, Long), "N0") Catch ex As Exception '' End Try End Sub Private Sub grdDsPhieuNhap_CellDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles grdDsPhieuNhap.CellDoubleClick If e.RowIndex -1 Then frmSuaPN.ID_PN = grdDsPhieuNhap.CurrentRow.Cells("IDPNDataGridViewTextBoxColumn").Value frmSuaPN.ShowDialog() End If End Sub Private Sub grdDsPhieuXuat_CellDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles grdDsPhieuXuat.CellDoubleClick If e.RowIndex -1 Then frmSuaPX.ID_PX = grdDsPhieuXuat.CurrentRow.Cells(0).Value Thạch Như Thành 102 Lớp: 35- CDTH1 B¸o c¸o thùc tËp tèt nghiƯp frmSuaPX.ShowDialog() End If End Sub 'Private Sub grdCTThanhToanNCC_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles grdCTThanhToanNCC.CellContentClick ' If e.RowIndex -1 And e.ColumnIndex = Then ' If MessageBox.Show("Bạn chắn muốn xóa Thanh tốn này?", TenCH, MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then ' Dim ID_ThanhToan As Integer = grdCTThanhToanNCC.CurrentRow.Cells(0).Value ' Queries.Del_CtThanhToanNCC(ID_ThanhToan) ' Me.Func_CTThanhToanNCCTableAdapter.Fill(Cua_hang_1DataSet.Func_CTThanhToa nNCC, Me.grdDsPhieuNhap.CurrentRow.Cells(0).Value) ' Me.Func_ThongKePhieuNhapTableAdapter.Fill(Me.Cua_hang_1DataSet.func_Thong KePhieuNhap, "", "", Me.dtTuNgay, Me.dtDenNgay) ' End If ' End If 'End Sub '======================================================================== ================ 'Truyền tham số gọi form sửa toán nhà cung cấp Private Sub grdCTThanhToanNCC_CellDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles grdCTThanhToanNCC.CellDoubleClick If e.RowIndex -1 Then frmSuaThanhToanNcc.tongTien = grdDsPhieuNhap.CurrentRow.Cells(4).Value frmSuaThanhToanNcc.daThanhToan = grdDsPhieuNhap.CurrentRow.Cells(5).Value frmSuaThanhToanNcc.ID_ThanhToan = grdCTThanhToanNCC.CurrentRow.Cells("IDThanhToanDataGridViewTextBoxColumn" ).Value frmSuaThanhToanNcc.ID_PN = grdDsPhieuNhap.CurrentRow.Cells("IDPNDataGridViewTextBoxColumn").Value frmSuaThanhToanNcc.ShowDialog() End If End Sub Thạch Như Thành 103 Lớp: 35- CDTH1 B¸o c¸o thùc tËp tèt nghiƯp 'Truyền tham số gọi form sửa tốn khách hàng Private Sub grdCTThanhToanKH_CellDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles grdCTThanhToanKH.CellDoubleClick If e.RowIndex -1 Then frmSuaThanhToanKh.ID_ThanhToan = grdCTThanhToanKH.CurrentRow.Cells(0).Value frmSuaThanhToanKh.tongTien = grdDsPhieuXuat.CurrentRow.Cells(5).Value frmSuaThanhToanKh.daThanhToan = grdDsPhieuXuat.CurrentRow.Cells(6).Value frmSuaThanhToanKh.ID_PX = grdDsPhieuXuat.CurrentRow.Cells("IDPXDataGridViewTextBoxColumn").Value frmSuaThanhToanKh.ShowDialog() End If End Sub Private Sub frmThongKe_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed FrmMain.Activate() Me.Dispose() End Sub Private Sub tabThongKe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tabThongKe.Click showTotalMoney() Me.Func_LocTKHangNhapTableAdapter.Fill(Me.CuaHangDataSet.func_LocTKHangNh ap, "", Me.dtTuNgay, Me.dtDenNgay) End Sub End Class Thạch Như Thành 104 Lớp: 35- CDTH1 Báo cáo thực tập tốt nghiệp Form Thông tin cửa hàng Chức : tên , địa , fax , số điện thoại , mà số thuế c«ng ty Public Class FrmThongtinMH Inherits DevComponents.DotNetBar.Office2007Form Private Sub FrmThongtinMH_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the 'Cua_hang_1DataSet.Tb_ThongTin' table You can move, or remove it, as needed Me.Tb_ThongTinTableAdapter.Fill(Me.Cua_hang_1DataSet.Tb_ThongTin) strOldName = txtName.Text txtName.Select() End Sub Thạch Như Thành 105 Lớp: 35- CDTH1 B¸o c¸o thùc tËp tèt nghiƯp 'Private Sub Tb_ThongTinBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tb_ThongTinBindingNavigatorSaveItem.Click ' Me.Validate() ' Me.Tb_ThongTinBindingSource.EndEdit() ' Me.Tb_ThongTinTableAdapter.Update(Me.Cua_hang_1DataSet.Tb_ThongTin) 'End Sub Dim strOldName As String Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click 'Dim strOldName As String = Me.Tb_ThongTinTableAdapter.GetData("1") Dim strNewName As String = txtName.Text Dim strAddress As String = txtAddress.Text Dim strFax As String = txtFax.Text Dim strPhoneNo As String = txtPhoneNo.Text Dim strMST As String = txtIdTax.Text If Trim(strNewName) = "" Then txtName.Text = "" MessageBox.Show("Chưa nhập tên cửa hàng", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Warning) txtName.Focus() Exit Sub End If If Trim(strAddress) = "" Then txtAddress.Text = "" MessageBox.Show("Chưa nhập địa chỉ", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Warning) txtAddress.Focus() Exit Sub End If If Trim(strPhoneNo) = "" Then txtPhoneNo.Text = "" MessageBox.Show("Chưa nhập số điện thoại", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Warning) txtPhoneNo.Focus() Thạch Như Thành 106 Lớp: 35- CDTH1 B¸o c¸o thùc tËp tèt nghiÖp Exit Sub End If Me.Queries.upd_ThongTin(strOldName, strNewName, strAddress, strPhoneNo, strFax, strMST) MessageBox.Show("Dữ Liệu cập nhật", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information) End Sub Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click FrmMain.Activate() Me.Dispose() End Sub Private Sub FrmThongtinMH_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed FrmMain.Activate() Me.Dispose() End Sub End Class Thạch Như Thành 107 Lớp: 35- CDTH1 B¸o c¸o thùc tập tốt nghiệp Chơng Kết luận I Đánh giá kết đạt đợc Qua trình tìm hiểu nghiên cứu đề ti, em đà đa đợc ứng dụng chơng trình Quản lý bán hng - Cho phép nhập/xuất hng theo đơn đặt hng - Quản lý việc mua b¸n nhËp xt - Xư lý thèng kÕ theo yêu cầu nh: Đơn đặt hng, Phiếu giao hng, Báo giá, - Cho phép tìm kiếm, tra cứu hng hoá II KÕt luËn Sau thời gian thực tập công ty TNHH Đầu Tư Thương Mại Dịch Vụ Đức Linh em nhận thấy tầm quan trọng việc tin học hóa quản lý đặc biệt hoạt động quản lý bán hàng công ty Trong thời gian em học hỏi trang bị cho thêm nhiều kiến thức từ mơi trường thực tế mà em tiếp xúc Qua em hồn thành đề tài: “Phân tích, thiết kế xây dựng phần mềm quản lí bán hàng taị cơng ty TNHH Đầu Tư Thương Mại Dịch Vụ Đức Linh” Kết đạt chương trình phần mềm Quản lý bán hàng công ty TNHH Đầu Tư Thương Mại Dịch Vụ Đức Linh, chương trình đáp ứng yêu cầu hệ thống quản lý bán hàng Cùng với giao diện đơn giản, thân thiện, tương tác linh hoạt dễ dàng cho người sử dụng Chương trình quản lý giao dịch ngày cơng ty, chương trình theo dõi trình thực giao dịch nhân viên Chương trình cho phép người sử dụng tìm kiếm thơng tim khách hàng theo tiêu thức khác Thạch Như Thành 108 Lớp: 35- CDTH1 B¸o c¸o thùc tËp tèt nghiƯp nhau, cho người sử dụng lựa chọn đồng thời chương trình lập báo cáo theo giai đoạn cụ thể theo loại khách hàng thực giao dịch… Víi kiÕn thức tảng đà học Trờng v nỗ lực mình, em đà hon thnh đề ti Quản lý bán hng Mặc dù đà cố gắng v đầu t nhiều nhng thời gian có hạn nên đề ti nhiều hạn chế v chơng trình có thĨ ch−a tèi −u, ®ång thêi kinh nghiƯm lËp trình cha tốt nên giao diện có nhiều điểm cha phù hợp cách phân bố mu sắc hình ảnh Em xin nhận ý kiến đóng góp quý báu thầy cô v bạn để chơng trình ngy cng hon thiện Một lần em xin chân thành cảm ơn! Sinh viên Thạch Nh Thành Thch Nh Thành 109 Lớp: 35- CDTH1 B¸o c¸o thùc tËp tèt nghiƯp MỤC LỤC CHƯƠNG I: MƠ TẢ BÀI TỐN I Khảo sát trạng Giíi thiệu chung toán Phạm vi đề tài 2.1 Chức nhập kho 2.2 Chức xuất kho 2.3 Chức kiểm kª 2.4 Chức bán hàng 2.5 Chøc bảo mật 2.6 Chức thống kê, b¸o c¸o Nghiên cứu trạng giải vấn ®Ị .6 3.1 Gi¸m ®èc (Ban điều hành) 3.2 Bé phËn hµnh chÝnh 3.3 Bộ phận bán hàng 3.4 Bé phËn kho 3.4.1 Quản lý hng hoá 3.4.2 Quá trình đặt hng với nh cung cấp 3.4.3 Quá trình nhập hμng vμo kho .9 3.4.4 Quá trình xuất hng 3.4.5 Định giá 10 3.5 Bộ phận kế toán thống kê 10 3.6 Bộ phận quản trị 11 Yêu cầu tin häc ho¸ 11 4.1 Nội dung đề tài 11 4.2 Mô tả yêu cầu: 12 Cách tiếp cận giải vấn đề 14 5.1 C¸ch tiÕp cËn 14 5.2 Giải vấn đề 14 CHƯƠNG II: PHÂN TÍCH VÀ THIẾT KẾ HỆ THỐNG Ph©n tÝch mô hình hoá liệu .15 Xác định líp 15 Sơ đồ ngữ cảnh bi toán Quản lý bán hng Điểm trung tâm lμ 16 Thạch Như Thành 110 Lớp: 35- CDTH1 B¸o cáo thực tập tốt nghiệp Mối quan hệ c¸c thùc thĨ 17 Mô tả quan hệ 17 Mô hình quan niệm xử lý 18 Danh s¸ch c¸c thuéc tÝnh 20 6.1 Danh mục Thanh toán nhà cung cấp 20 6.2 Danh Mơc Th«ng Tin 20 6.3 Danh mơc Thanh To¸n Khách hàng 21 6.4 Danh môc PhiÕu xuÊt .21 6.5 Danh môc PhiÕu nhËp 22 6.6 Danh mục Nhân viên 22 6.7 Danh môc Nh·n hiÖu 22 6.8 Danh mơc Nhµ cung cÊp 23 6.9 Danh mục Khách hàng 23 6.10 Danh mục Hàng hoá .23 6.11 Danh môc Chi tiÕt xuÊt 24 6.12 Danh môc Chi tiÕt nhËp 24 6.13 Danh mơc Chi tiÕt B¸o gi¸ 25 6.14 Danh môc Chđng lo¹i 25 6.15 Danh mơc B¸o gi¸ 25 6.16 Danh môc Admin 26 II Thiết kế sở liệu sơ đồ quan hệ .26 Thiết kế sở liÖu 26 Sơ đồ quan hệ 27 CHƯƠNG III: XY DNG CHNG TRèNH Form Đăng nhập 28 Form Nhập hàng 30 Form Bán hàng 43 Form Công nợ 56 Form Quản lý hàng hóa 65 Form B¸o gi¸ 71 Form Nhân viên 77 Form Thèng kê bán hàng 81 Form Thông tin cửa hàng .99 CHƯƠNG 4: KT LUN I Đánh giá kết đạt đợc 102 II KÕt luËn .102 Thạch Như Thành 111 Lớp: 35- CDTH1 B¸o c¸o thùc tËp tèt nghiÖp Thạch Như Thành 112 Lớp: 35- CDTH1