chips_tulip
New Member
Download miễn phí Đồ án 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 đoàn Hitech
Mục lục
A. Giới thiệu chung về đề tài lựa chọn
1. Tên đề tài 5
2. Lý do chọn đề tài 5
3. Mục tiêu của đề tài 6
4. Công cụ nghiên cứu và thực hiện đề tài 6
4.1 Hệ quản trị cơ sở dữ liệu Microsoft access 2003 6
4.2 Ngôn ngữ lập trình Visual Basic 6.0 6
4.3 Công cụ làm báo cáo Crystal Report 7
B. Nội dung 7
1. Nội dung bài toán quản lý bán hàng 7
2. Phân tích nghiệp vụ 9
2.1 Quy trình mua hàng 9
2.2 Quy trình quản lý kho 13
2.3 quy trình triển khai bán hàng 14
3. Phân tích yêu cầu người sử dụng 14
3.1 Yêu cầu chung 14
3.2 Yêu cầu đối với nghiệp cụ nhập hàng 15
3.3 Yêu cầu đối với nghiệp vụ xuất hàng 16
3.4 Yêu cầu đối với nghiệp vụ xuất báo cáo 16
3.5 Các yêu cầu khác 16
4. Phân tích hệ thống thông tin quản lý bán hàng và lưu kho tại trung tâm thương mại NC-HT 17
4.1 Sơ đồ chức năng kinh doanh của trung tâm thương mại 17
4.2 Sơ đồ luồng thông tin IFD 19
4.3 Sơ đồ luồng dữ liệu DFD 21
4.3.1 Sơ đồ ngữ cảnh
4.3.2 Sơ đồ DFD mức 0 của các nghiệp vụ quản lý bán hàng
4.4 Các bảng dữ liệu đầu vào 25
4.5 Các thuật toán 25
4.5.1 Giải thuật đăng nhập chương trình 27
4.5.2 Giải thuật sửa dữ liệu 28
4.5.3 Giải thuật tìm kiếm thông tin theo các cụm từ 28
Giao diện chương trình 29
Một số đoạn code chương trình 37
Để tải bản Đầy Đủ của tài liệu, xin Trả lời bài viết này, Mods sẽ gửi Link download cho bạn sớm nhất qua hòm tin nhắn.
Ai cần download tài liệu gì mà không tìm thấy ở đây, thì đăng yêu cầu down tại đây nhé:
Nhận download tài liệu miễn phí
Tóm tắt nội dung tài liệu:
xt10
Số lượng
Mối quan hệ giữa các bảng
Các thuật toán
Giải thuật đăng nhập chương trình
Bắt đầu
N=0
Nhập tên và mật khẩu
N=N+1
N<=3
Thông báo lỗi
Thực hiện chương trình
Đăng nhập hệ thống
Kiểm tra thông tin đăng nhập
Đăng nhập lại không
Kết thúc
F
T
T
T
F
Giải thuật sửa dữ liệu
Hiện thông báo
Có tồn tại bản ghi này không
T
F
Kết thúc
Có tiếp tục sửa không?
Đóng Form sau khi sửa
Bắt đầu
Mở Form cần sửa
Tìm bản ghi cần sửa
F
T
Hiện bản ghi cần sửa
Tiến hành sửa dữ liệu của bản ghi
Lưu bản ghi
Giải thuật tìm kiếm thông tin theo từ hay cụm từ
T
T
F
Đóng Form
Có tiếp tục không?
Kết thúc
Hiển thị bản ghi tìm thấy
Kiểm tra có bản ghi nào thoả mãn không ?
Bắt đầu
Nhập thông tin cần tìm kiếm
Hiện thông báo
F
Các giao diện chương trình
Một số đoạn code chương trình
Code form danh mục khách hàng
Private Sub KhongChoUpDate()
GrdKH.AllowUpdate = False
txtMakh.Locked = True
txtTenkhachhang.Locked = True
txtDiachi.Locked = True
txtDienthoai.Locked = True
txtGhichu.Locked = True
End Sub
Private Sub ChoPhepUpDate()
GrdKH.AllowUpdate = True
txtMakh.Locked = False
txtTenkhachhang.Locked = False
txtDiachi.Locked = False
txtDienthoai.Locked = False
txtGhichu.Locked = False
End Sub
Private Sub cmdKTTK_Click()
txtGiatri.Text = ""
cbTimtheo.Text = ""
NapAdodcKH
lbSokq.Caption = ""
lbSokq1.Caption = "Số bản ghi:" & AdodcKH.Recordset.RecordCount
KhongChoUpDate
End Sub
Private Sub cmdTim_Click()
Dim str As String
Dim trloi As Integer
If cbTimtheo.Text = "" Then
trloi = MsgBox("Bạn hãy nhập tiêu thức cần tìm kiếm", vbOKOnly)
If trloi = vbOK Then
cbTimtheo.SetFocus
Exit Sub
End If
ElseIf txtGiatri.Text = "" Then
trloi = MsgBox("Bạn hãy nhập giá trị cần tìm kiếm", vbOKOnly)
If trloi = vbOK Then
txtGiatri.SetFocus
Exit Sub
End If
ElseIf cbTimtheo.Text = "Ma KH" Then
str = "MaKH"
ElseIf cbTimtheo.Text = "Ten KH" Then
str = "TenKH"
ElseIf cbTimtheo.Text = "Địa chỉ" Then
str = "DiaChi"
ElseIf cbTimtheo.Text = "Điện thoạii" Then
str = "DT"
ElseIf cbTimtheo.Text = "Ghi chú" Then
str = "GhiChu"
End If
AdodcKH.RecordSource = "SELECT MaKH,TenKH,DiaChi, DT,GhiChu FROM KhachHang where " & str & "='" & txtGiatri.Text & "' ORDER BY MaKH "
AdodcKH.Refresh
lbSokq.Caption = "Số kết quả:" & AdodcKH.Recordset.RecordCount
lbSokq1.Caption = ""
End Sub
Private Sub Form_Load()
AdodcKH.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database\QuanLyBanHang.mdb;Persist Security Info=False"
NapAdodcKH
lbSokq1.Caption = "Số bản ghi:" & AdodcKH.Recordset.RecordCount
KhongChoUpDate
End Sub
Private Sub NapAdodcKH()
AdodcKH.CommandType = adCmdText
AdodcKH.RecordSource = "SELECT MaKH,TenKH,DiaChi, DT,GhiChu FROM KhachHang ORDER BY MaKH"
AdodcKH.Refresh
End Sub
Private Sub CmdThem_Click()
Dim Traloi As Integer
Traloi = MsgBox("Bạn muốn thêm bản ghi mớii ?", vbInformation + vbYesNo)
If Traloi = vbNo Then
AdodcKH.Refresh
Exit Sub
Else
AdodcKH.Recordset.AddNew
ChoPhepUpDate
txtMakh.SetFocus
End If
End Sub
Private Sub CmdLuu_Click()
AdodcKH.Recordset.Save
GrdKH.AllowUpdate = False
lbSokq1.Caption = "Số bản ghi:" & AdodcKH.Recordset.RecordCount
End Sub
Private Sub CmdChon_Click()
ChoPhepUpDate
End Sub
Private Sub CmdSua_Click()
Dim Traloi As Integer
Traloi = MsgBox("Bạn muốn sửa bản ghi ?", vbInformation + vbYesNo)
If Traloi = vbNo Then
AdodcKH.Refresh
Exit Sub
Else
GrdKH.AllowUpdate = True
AdodcKH.Recordset.Update
End If
KhongChoUpDate
End Sub
Private Sub CmdXoa_Click()
Dim Traloi As Integer
Traloi = MsgBox("bạn muốn xoá bản ghi này ?", vbInformation + vbYesNo)
If Traloi = vbNo Then
GrdKH.AllowDelete = False
Else
GrdKH.AllowDelete = True
AdodcKH.Recordset.Delete
End If
lbSokq1.Caption = "Số bản ghii:" & AdodcKH.Recordset.RecordCount
End Sub
Code form danh mục mặt hàng
Private Sub KhongChoUpDate()
GrdMH.AllowUpdate = False
txtMahh.Locked = True
txtTenhang.Locked = True
txtDvt.Locked = True
txtGianhap.Locked = True
txtGiaban.Locked = True
txtTonkho.Locked = True
txtXuatxu.Locked = True
txtHansudung.Locked = True
End Sub
Private Sub ChoPhepUpDate()
GrdMH.AllowUpdate = True
txtMahh.Locked = False
txtTenhang.Locked = False
txtDvt.Locked = False
txtGianhap.Locked = False
txtGiaban.Locked = False
txtTonkho.Locked = False
txtXuatxu.Locked = False
txtHansudung.Locked = False
End Sub
Private Sub cmdKTTK_Click()
txtGiatri.Text = ""
cbTimtheo.Text = ""
NapAdodcMH
lbSokq.Caption = ""
lbSokq1.Caption = "Số bản ghi:" & AdodcMH.Recordset.RecordCount
KhongChoUpDate
End Sub
Private Sub cmdTim_Click()
Dim str As String
Dim trloi As Integer
If cbTimtheo.Text = "" Then
trloi = MsgBox("Bạn hãy nhập tiêu thức tìm kiếm", vbOKOnly)
If trloi = vbOK Then
cbTimtheo.SetFocus
Exit Sub
End If
ElseIf txtGiatri.Text = "" Then
trloi = MsgBox("Bạn hãy nhập giá trị cần tìm kiếm, vbOKOnly)
If trloi = vbOK Then
txtGiatri.SetFocus
Exit Sub
End If
ElseIf cbTimtheo.Text = "M· hµng" Then
str = "MaHH"
AdodcMH.RecordSource = "SELECT MaHH,TenHH,DVT,GiaNhap,GiaBan,TonKho,Xuatxu,HanSuDung FROM HangHoa where " & str & "='" & txtGiatri.Text & "' ORDER BY MaHH "
ElseIf cbTimtheo.Text = "Tên hàng" Then
str = "TenHH"
AdodcMH.RecordSource = "SELECT MaHH,TenHH,DVT,GiaNhap,GiaBan,TonKho,Xuatxu,HanSuDung FROM HangHoa where " & str & "='" & txtGiatri.Text & "' ORDER BY MaHH "
ElseIf cbTimtheo.Text = "Đơn vị tính" Then
str = "DVT"
AdodcMH.RecordSource = "SELECT MaHH,TenHH,DVT,GiaNhap,GiaBan,TonKho,Xuatxu,HanSuDung FROM HangHoa where " & str & "='" & txtGiatri.Text & "' ORDER BY MaHH "
ElseIf cbTimtheo.Text = "Giá nhập" Then
str = "GiaNhap"
AdodcMH.RecordSource = "SELECT MaHH,TenHH,DVT,GiaNhap,GiaBan,TonKho,Xuatxu,HanSuDung FROM HangHoa where " & str & "=" & txtGiatri.Text & " ORDER BY MaHH "
ElseIf cbTimtheo.Text = "Xuất xứ" Then
str = "Xuatxu"
AdodcMH.RecordSource = "SELECT MaHH,TenHH,DVT,GiaNhap,GiaBan,TonKho,Xuatxu,HanSuDung FROM HangHoa where " & str & "='" & txtGiatri.Text & "' ORDER BY MaHH "
ElseIf cbTimtheo.Text = "Hạn sử dụng" Then
str = "HanSuDung"
AdodcMH.RecordSource = "SELECT MaHH,TenHH,DVT,GiaNhap,GiaBan,TonKho,Xuatxu,HanSuDung FROM HangHoa where " & str & "=DateValue('" & txtGiatri.Text & "') ORDER BY MaHH "
ElseIf cbTimtheo.Text = "Tồn kho" Then
str = "TonKho"
AdodcMH.RecordSource = "SELECT MaHH,TenHH,DVT,GiaNhap,GiaBan,TonKho,Xuatxu,HanSuDung FROM HangHoa where " & str & "=" & txtGiatri.Text & " ORDER BY MaHH "
ElseIf cbTimtheo.Text = "Giá bán" Then
str = "GiaBan"
AdodcMH.RecordSource = "SELECT MaHH,TenHH,DVT,GiaNhap,GiaBan,TonKho,Xuatxu,HanSuDung FROM HangHoa where " & str & "=" & txtGiatri.Text & " ORDER BY MaHH "
End If
AdodcMH.Refresh
lbSokq.Caption = "Số kết quả:" & AdodcMH.Recordset.RecordCount
lbSokq1.Caption = ""
End Sub
Private Sub Form_Load()
AdodcMH.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database\QuanLyBanHang.mdb;Persist Security Info=False"
NapAdodcMH
lbSokq1.Caption = "Số bản ghi:" & AdodcMH.Recordset.RecordCount
KhongChoUpDate
End Sub
Private Sub NapAdodcMH()
AdodcMH.CommandType = adCmdText
AdodcMH.RecordSource = "SELECT MaHH,TenHH,DVT,GiaNhap,GiaBan,TonKho,Xuatxu,HanSuDung FROM HangHoa ORDER BY MaHH"
AdodcMH.Refresh
End Sub
Private Sub CmdThem_Click()
Dim Traloi As Integer
Traloi = MsgBox("Bạn muốn thêm bản ghi mới ?", vbInformation + vbYesNo)
If Traloi = vbNo Then
AdodcMH.Refresh
Exit Sub
Else
AdodcMH.Recordset.AddNew
ChoPhepUpDate
txtMahh.SetFocus
End If
End Sub
Private Sub CmdLuu_Click()
AdodcMH.Recordset.Save
GrdMH.AllowUpdate = False
lbSokq1.Caption = "Số bản ghi:" & AdodcMH.Recordset.RecordCount
End Sub
Private Sub CmdChon_Click()
ChoPhepUpDate
End Sub
Private Sub CmdSua_Click()
Dim Traloi As Integer
Traloi = MsgBox("Bạn muốn sửa bản ghi này?", vbInformation + vbYesNo)
If Traloi = vbNo Then
AdodcMH.Refresh
Exit Sub
Else
GrdMH.AllowUpdate = True
AdodcMH.Recordset.Update
End If
KhongChoUpDate
End Sub
Private Sub CmdXoa_Click()
Dim Traloi As Integer
Traloi = MsgBox("Bạn muốn xoá bản ghi này ?", vbInformation + vbYesNo)
If Traloi = vbNo Then
GrdMH.AllowDelete = False
Else
GrdMH.AllowDelete = True
AdodcMH.Recordset.Delete
End If
lbSokq1.Caption = "Số bản ghi:" & AdodcMH.Recordset.RecordCount
End Sub
Code form hoá đơn bán hàng
Option Explicit
Dim KiemtraHH As Intege...