BÀI TẬP LỚN NGÔN NGỮ LẬP TRÌNH VISUAL BASIC CHƯƠNG TRÌNH QUẢN LÝ BÁN HÀNG TẠI SIÊU THỊ MITRACO

Lời Giới ThiệuT rong những năm gần đây, kinh doanh là một trong những nghành có tốc độ tăng trởng cao.Rất nhiều siêu thị đợc phát triển, đổi mới liên tục và nhanh chóng theo đà phát triể

Lời Giới Thiệu

T

rong những năm gần đây, kinh doanh là một trong những nghành có tốc độ tăng

trởng cao.Rất nhiều siêu thị đợc phát triển, đổi mới liên tục và nhanh chóng theo

đà phát triển của xã hội cả về quy mô và chất lợng

Hiện nay, các siêu thị phải trực tiếp nhận và quản lý một khối lợng rất lớn

và thờng xuyên các loại hàng, kèm theo đó là hàng loạt các loại dịch vụ phát

sinh đa dạng của khách hàng, do đó công việc quản lý hoạt động kinh doanh siêu

thị là ngày càng lớn và phức tạp hơn Hơn nữa, công tác quản lý không chỉ quản

lý về con số mà thông qua nó còn phảI rút ra đợc một cách nhanh chóng tình

hình biến động của thị trờng, nhu cầu ngời tiêu dùng, khả năng đáp ứng…để từ

đó định hớng, lập kế hoạch cho công việc kinh doanh Đây là kho dữ liệu rất lớn,

không thể lu trữ và xử lý một cách thủ công nh trớc đây mà cần phải tin học

hóa,cụ thể là xây dựng một chơng trình tin học để quản lý và thống nhất và toàn

diện hoạt động kinh doanh của siêu thị

Chơng trình “Quản Lý Bán Hàng tại Siêu thị” là chơng trình đợc viết bằng ngôn

ngữ Visual Basic đã giải quyết đợc phần nào công việc về vấn đề quản lý của siêu thị

nh quản lý về mặt hàng, quản lý nhân viên, quản lý khách hàng và lợng hàng tồn…với CSDL sử dụng là Microsoft Access

Đề tài này bao các phần nh sau:

Lời Giới Thiệu

PhầnI Mở Đầu

PhầnII Nội Dung

Phần III Phần CODE của chơng trình

Phần IV Kết luận

Một số hình ảnh về giao diện của chơng trình

Tài liệu tham khảo

Nhờ sự tận tâm theo sát hớng dẫn của cô Nguyễn Thị Quang, trong bớc đầu chúng

em đã nghiên cứu và vận dụng kiến thức đã học để xây dựng đợc chơng trình quản lý

đáp ứng tơng đối một số các yêu cầu đặt ra nh trên Tuy nhiên do kiến thức còn nhiều hạn chế nên không thể tránh khỏi những sai sót, chúng em rất mong đợc sự góp ý nhắc nhở của các thầy cô và các bạn để có thể từng bớc xây dựng chơng trình ngày càng hoàn thiện và hiệu quả hơn

Chúng em xin chân thành cảm ơn sự giúp đỡ tận tình của cụ Nguyễn Thị Quang,các thầy cô giáo trong tổ tin Trờng Cao Đẳng S Phạm Nghệ An, các bạn trong tập thểlớp K5A CNTT đã giúp đỡ chúng em hoàn thành đề tài này.

Chỳng em xin trõn trọng cảm ơn!

Vinh, Ngày 10/11/2009

Nhúm sinh viờn thực hiờn

Bựi Nhật Lờ Đặng Trung Kỳ Nguyễn Thị Thanh Thủy

Phần i Mở Đầu

I Lý do chọn đề tài:

Với xu thế phát triển của thời đại thì Công Nghệ Thông Tin là một lĩnh

vực không thể thiếu đuợc Sự phát triển nhảy vọt và phạm vi ứng dụng của công

nghệ thông tin đã tác động sâu sắc đến mọi lĩnh vực của đời sống xã hội và ngàycàng đợc mở rộng Trong mỗi lĩnh vực thì CNTT có một thế mạnh riêng của nó.

Đặc biệt trong lĩnh vực quản lý, CNTT càng đợc phát triển mạnh Trớc đây côngviệc quản lý bán hàng đều đợc thực hiện bằng thủ công nên mất nhiều thời gian,tốn kém về nhân lực và tiền của Việc ứng dụng CNTT vào công tác quản lí bánhàng giúp giảm bớt gánh nặng của công việc cho ngời quản lí, làm cho tiến trìnhcông việc đợc đẩy nhanh hơn và chính xác hơn Quá trình bùng nổ của thông tintrong giai đoạn hiện nay quả thật là một lợi ích cực kỳ cực kỳ to lớn Các chơngtrình quản lý là một lợi ích thiết thực cho cuộc sống nói chung mà những gì mà

nó đem đến cho công tác quản lý và quản lí bán hàng lại càng quan trọng

Trong một doanh nghiệp, để điều hành doanh nghiệp có hiệu quả, để đạt đợc lợi íchcho doanh nghiệp thì ngời chủ doanh nghiệp phải nắm bắt đợc các thông tin có liênquan đến doanh nghiệp Cũng nh vậy, trong một siêu thị việc quản lý các mặt hàng

và thông tin về quá trình trao đổi thì ngời lãnh đạo phải nắm đợc các thông tin vềhàng hoá nh các loại mặt hàng, số lợng … và các thông tin về nhân viên Hệ thốngquản lý thông tin phải thiết kế sao cho ngời quản lý có thể cập nhật các thông tin mộtcách nhanh chóng và chính xác Ngày nay nhờ sự bùng nổ của cách mạng tin học,mọi ngành đều sử dụng tin học thì công việc này đã trở nên dễ dàng và chính xáchơn rất nhiều

Chính vì những lí do trên, nên chúng em quyết định chọn đề tài là “Quản

lý bán hàng ” tại Siêu Thị MITRACO Với mục đích đem đến cho công tác bán

hàng có thêm đợc những chơng trình ứng dụng có hiệu quả hơn nữa không chỉcho quý công ty mà đối với chúng em những ngời thực hiện đề tài luôn mongmuốn đề tài của mình đợc ứng dụng một cách rộng rãi

II Mục đích của đề tài:

- Tin học hoá việc quản lý bán hàng tại siêu thị

- Lu các thông tin về bán hàng

- Tạo điều kiện cho ngời quản lý xử lý nhanh về các mặt hàng

- Giảm công sức, tiết kiệm thời gian, tăng độ chính xác

- Giảm số lợng sổ sách, giấy tờ

III Yêu cầu của đề tài:

- Có thông tin đầy đủ, chính xác

- Xử lý thông tin nhanh chóng kịp thời

- Dữ liệu có tính thống nhất cao

- Đảm bảo an toàn thông tin, dữ liệu

- Thân thiện với ngời dùng

- Tìm hiểu thực tế cơ sở để có cái nhìn khái quát về chơng trình quản lý

- Tham khảo các giáo trình, tài liệu để có kiến thức về cài đặt chơng trình

V Lựa chọn công cụ cài đặt:

Hệ quản trị cơ sở dữ liệu (CSDL) là chơng trình dùng để xử lý và thay đổiCSDL để đảm bảo sự thống nhất theo tiêu chuẩn, kiểm tra và khai thác dữ liệu.Việc dùng ngôn ngữ trong quản lý là rất quan trọng Ta thấy rằng trong nhữngnăm gần đây các phần mềm đợc ứng dụng trong việc quản lý trở nên rất quenthuộc với mọi ngời Do đó mình phải lựa chọn ngôn ngữ nào mà truy cập nhanh,tính toán nhanh và đặc biệt tính bảo mật an toàn cao Những năm trớc thì ngờidùng các ngôn ngữ nh FOXDOS, FOXWIN Nhng hiện nay khả năng quản lýcủa các ngôn ngữ này không hiệu quả bằng ngôn ngữ Visual Basic, Access,Visual FoxPro

Để đáp ứng đợc yêu cầu của đề tài, chúng em lựa chọn hệ quản trị CSDLVisual Basic làm công cụ lập trình để giải quyết bài toán này Ưu điểm của ngônngữ lập trình này là một ngôn ngữ rất mạnh, giao diện đẹp; cho phép quản lý các

số liệu một cách thông nhất có tổ chức, liên kết các số liệu rời rạc lại với nhau vàgiúp ngời sử dụng có thể thiết kế chơng trình một cách tự động, tránh nhữngthao tác thủ công trong quá trình tính toán xử lý

PhÇn II: Néi dung

Đây là bài toán mang nhiều đặc điểm chung của các bài toán quản lý hiệnnay Việc quản lý, xử lý thông tin cũng đều phải dựa trên việc quản lý theo từngthuộc tính, đặc điểm, tính chất của đối tợng cần quản lý Thông tin của đối tợngphải đợc tập hợp theo nhóm và độc lập tơng đối với nhau Bài toán quản lý bánhàng cũng vậy Các đối tợng cần đợc quản lý đều mang đặc trng của bài toán nh:mặt hàng, hoá đơn, theo các thuộc tính nh: tên hàng, mã hàng, loại hàng, đơngiá…

Chúng em chọn bài toán này với mong muốn phần nào làm quen với cáchthiết kế và xây dựng một hệ thống cụ thể, áp dụng đợc những kiến thức đã học,học hỏi thêm đợc những điều mới, cọ xát với thực tế và tích luỹ thêm kiến thức

Do vậy chúng em đã tiến hành khảo sát và thu thập thông tin ở siêu thịMITRACO để có thể hình dung rõ hơn về hệ thống này

Đề tài “Quản lý Bán Hàng tại Siêu thị” đợc viết bằng ngôn ngữ Visual

Basic Đây là ngôn ngữ mạnh, rất phù hợp với các bài toán quản lý có tính hiệu

quả và năng suất trong việc xử lý các thông tin phức tạp

Để thực hiện đợc đề tài này phải qua nhiều bớc tuần tự nh sau:

1 Tiến hành khảo sát và thu tập thông tin trên hoạt động của hệ thống thực tế

2 Phân tích hoạt động của hệ thống cũ

3 Phân tích hệ thống mới

4 Thiết kế lôgic hệ thống mới

5 Cài đặt hệ thống mới bằng các ngôn ngữ lập trình cụ thể

a- khảo sát và phân tích hệ thống cũ

Chúng em tiến hành khảo sát thực tế ở hệ thống quản lý bán hàng của siêu

thị MiTraco với hoạt động của hệ thống nh sau:

I Quản lý các mặt hàng chuyển vào gian hàng bán:

Hàng đợc nhập về từ các nhà cung cấp, đợc chuyển vào kho hàng của Siêuthị Sau đó tuỳ tình hình của từng gian hàng bán trong siêu thị ngời quản lý sẽcho chuyển hàng trong kho đến các gian hàng bán ở đây ngời ta tiến hành phânloại hàng và lu lại các thông tin của mặt hàng chuyển vào theo các thuộc tính

sau: tên hàng, mã hàng, chủng loại, mã loại, số lợng, đơn vị tính, giá bán, sau đó

các mặt hàng đợc xếp vào gian hàng bán

II Quản lý các mặt hàng đã bán ra:

Khi khách hàng có nhu cầu mua hàng sẽ tự vào các gian hàng bán để chọncác mặt hàng cần mua sau đó đa đến quầy thanh toán Tại đây nhân viên bánhàng sẽ lu lại các thông tin về mặt hàng mà khách muốn mua theo các thuộc tính

sau: số hoá đơn, ngày hoá đơn, tên nhân viên bán, mã hàng, tên hàng, số lợng, giá bán, thành tiền và in hoá đơn bán lẻ cho khách theo mẫu sau:

1 Báo cáo, thống kê theo yêu cầu.

Hàng tháng, hàng quý hoặc do ngời quản lý yêu cầu Bộ phận bán hàng sẽthống kê, báo cáo về các lợng hàng còn tồn, lợng hàng đã bán ,hàng cần thanh lý

để căn cứ vào đó siêu thị có thể quyết định nên nhập thêm về những mặt hàngnào

Báo cáo đợc chia thành hai loại:

Báo cáo tổng hợp: Nhân viên bán, ngày bán, tổng tiền bán

Báo cáo chi tiết: Mã hàng, đơn vị tính, số lợng, giá bán, thành tiền, tổng tiền bán

1 Thông tin đầu vào:

* Yêu cầu của thông tin đầu vào:

Việc tổ chức thông tin đầu vào cho hệ thống phải đáp ứng các yêu cầu sau:

- Đảm bảo cho phép đáp ứng các TT đầu ra chính xác sau các quá trình xử lý

- Tối thiểu hoá về mặt kích thớc và số liệu nhng vẫn phải đảm bảo đápứng đầy đủ các thông tin đầu ra

- Thuận lợi cho quá trình cập nhật , lu trữ và xử lý thông tin

- Cho phép khai thác từ nhiều khía cạnh

- Đảm bảo tính độc lập tơng đối của dữ liệu

* Từ thực tế của hệ thống quản lý bán hàng, thông tin đầu vào đợc đặc tả nh sau:

Thông tin mặt hàng: Tên hàng, mã hàng, tên loại, mã loại, số lợng, đơn vịtính, giá bán

Thông tin về nhân viên bán hàng: Tên nhân viên, mã nhân viên, giới tính

2 Thông tin đầu ra:

* Yêu cầu của thông tin đầu ra:

Thông tin đầu vào của hệ thống phải đáp ứng các yêu cầu và nhiệm vụ sau:

- Tập hợp , thống kê đợc các thông tin mà ngời quản lý yêu cầu

- Dự báo đợc các thông tin mới có thể phát sinh

- Thông tin đầu ra chính xác dựa trên các thông tin đầu vào

- Thông tin đầu ra độc lập tơng đối với nhau

* Thông tin đầu ra của hệ thống:

- Hoá đơn bán lẻ: số hoá đơn, ngày hoá đơn, tên nhân viên, mã hàng, tênhàng, giá bán,…

- Thống kê lợng hàng tồn, hàng đã bán

- Thông tin tìm kiếm theo yêu cầu

II Hoạt động của hệ thống:

1 Quản lý hàng trong gian hàng bán:

4 Tìm kiếm theo yêu cầu:

Việc tìm kiếm đợc thực hiện theo các tiêu chí sau:

- Tìm loại hàng: Sau khi tìm kiếm hệ thống sẽ cho thông tin đầu ra các

thuộc tính liên quan nh: số lợng, tên hàng

- Tìm mặt hàng: Tơng tự nh tìm kiếm loại hàng ,thông tin đầu ra cũng sẽ

có thêm các thuộc tính liên quan của mặt hàng

- Tìm hoá đơn: Sau khi tìm kiếm hệ thống sẽ cho thông tin đầu ra các

thuộc tính liên quan nh: những mặt hàng đã bán trong hoá đơn, số lợng hàng đãbán

5 Quản lý nhân viên bán hàng:

Để thuận tiện trong việc theo dõi bán hàng và đảm bảo tính chặt chẽ của

hệ thống Trong hệ thống này sẽ có thêm phần quản lý nhân viên, tuy nhiên phầnnày không quản lý đầy đủ nh quản lý nhân sự mà chỉ quản lý một phần nhỏ các

thông tin của nhân viên: Tên nhân viên, mã nhân viên, giới tính.

III Biểu đồ phân cấp chức năng:

Quản lý bán hàng

In hoá

đơn

Thống kê hàng tồn

Thống kê hàng bán

Tìm loại hàng

Tìm mặt hàng

Nhập, sửa, xoá nhân viên

Quản lý bán hàng

Khách

iV Biểu đồ luồng dữ liệu:

1 Biểu đồ luồng dữ liệu mức khung cảnh:

Các tác nhân ngoài: khách hàng, ngời quản lý.

Thông tin mặt hàng TT yêu cầu,TT mặt hàng

cần mua TTnhân viên

Hoá đơn Báo cáo thống kê

2 Biểu đồ luồng dữ liệu mức đỉnh:

TT mặt hàng cần mua

Hoá đơn bán lẻ

Ql hàng bán

Khách hàng

Ql nhân

viên

Tìm kiếm

Ng êi

qu¶n lý

NhËp, söa, xo¸ lo¹i hµng

NhËp, söa, xo¸ mÆt

Ng êi

qu¶n lý

Kh¸ch hµng

NhËp, söa, xo¸

hµng b¸n

Thèng kª hµng b¸n

Ng êi

qu¶n lý

Tìm hoá

hàng

Tìm loại hàng

Số lợng

Đơn vị tínhGiá bán

Mã hàngMã loạiTên hàng

Số lợng

Đơn vị tínhGiá bán

Mã loạiTên loại

Mã hàngMã loạiTên hàng

Số lợng

Đơn vị tínhGiá bán

Mã loạiTên loạiSau khi thực hiện quá trình chuẩn hoá ta thu đợc thực thể với các thuộc tính

Tài liệu/ kiểu thực thể hoá đơn bán lẻ

Số hoá đơn

Tên nhân viên

Mã nhân viên

Số hoá đơnTên nhân viênMã nhân viên

Số hoá đơnTên nhân viênMã nhân viên

Số hoá đơnMã nhân viên

hoadon hangban

mathang loaihang

Số lợng

Số hoá đơnMã hàng

Số lợngMã hàngTên hàngGiá bán

Số hoá đơnMã hàng

Số lợngMã hàngTên hàngGiá bánMã nhân viênTên nhân viênSau khi thực hiện quá trình chuẩn hoá ta thu đợc thực thể với các thuộc tính

hangba n

Text(3)

Text(30)Text(3)

Sè lîng hµng

§¬n vÞ tÝnhGi¸ b¸n

Text(6)

Text(30)Text(4)NumberText(10)Number

Text(10)

DateText(3)

Text(10)

Text(6)NumberNumber

- Mét sè h×nh ¶nh vÒ giao diÖn cña ch¬ng tr×nh:

* From giao diÖn chÝnh

* From Giíi thiÖu vÒ nhãm thùc hiÖn

* Form giao diÖn nhËp lo¹i hµng:

 Form nhËp mÆt hµng:

* Form nhập hoá đơn:

Form nhËp nh©n viªn:

* Form t×m kiÕm mÆt hµng:

* Form tìm kiếm loại hàng:

Form tìm kiếm hoá đơn:

* From In b¸o c¸o b¸n hµng:

PhÇn III: PHÇN CODE

* Frmchinh(menu.frm)

Private Sub Form_Load()

If Not opendb(App.Path & "\dulieu.mdb") Then End

Private Sub Form_Unload(Cancel As Integer)

End

End Sub

Private Sub mnudong_Click()

If MsgBox("Ban co chac chan thoat khoi chuong trinh nay khong ?",

vbQuestion + vbYesNo, "Canh bao ") = vbYes Then

Private Sub mnuhangton_Click()

MsgBox "Se duoc hoan thien trong giai doan tiep theo !", vbExclamation, "Niªn luËn m«n LËp tr×nh Visual Basic."

Private Sub Timer1_Timer()

If Me.Label2.Left + Me.Label2.Width < Me.Left Then

Me.Label2.Left = Me.Left + Me.Width

End If

Me.Label2.Left = Me.Label2.Left - 150

End Sub

Private Sub Timer2_Timer()

'Khai bao bien

Dim Dongho As String

Label16.Caption = Day(Now)

'Hien thi thang

Select Case Month(Now)

'Hien thi thu

Select Case Weekday(Now)

ngay = Calendar1.Day

thang = Calendar1.Month

nam = Calendar1.Year

If Val(ngay) < 10 Then ngay = "0" & ngay

If Val(thang) < 10 Then thang = "0" & thang

txtngay = ngay & "/" & thang & "/" & nam

End Sub

Private Sub cmdhh_Click()

ngay = Day(Date)

thang = Month(Date)

If Val(ngay) < 10 Then ngay = "0" & ngay

If Val(thang) < 10 Then thang = "0" & thang

txtngay = ngay & "/" & thang & "/" & Year(Date)

If Val(ngay) < 10 Then ngay = "0" & ngay

If Val(thang) < 10 Then thang = "0" & thang

txtngay = ngay & "/" & thang & "/" & Year(Date)

If Not opendb(App.Path & "\dulieu.mdb") Then End

End Sub

Private Sub txtmatkhau_KeyDown(KeyCode As Integer, Shift As Integer)

If (KeyCode = 13) Or (KeyCode = 40) Then cmddongy.SetFocus

End Sub

Private Sub txtnguoidung_KeyDown(KeyCode As Integer, Shift As Integer)

End Sub

* Frmhoadon(ql hang ban.frm)

Dim rshoadon, rstim, rsdem As ADODB.Recordset

Dim ssql, s1 As String

Dim nutnew As Boolean

Dim n As Date

Dim ngay, thang, nam As String

Dim nmahang, nhanvien, nmaloai, dvtt As String

Dim oldmahang As String

Dim rsinhd As ADODB.Recordset

Private Sub cmdboqua_Click()

MsgBox "Hay chon so hoa don can in"

If Not IsNumeric(txtsluong) Then

MsgBox "Hay nhap so luong hang (bang so)!", vbExclamation, "Canh bao "

Exit Sub

End If

nmahang = getfield("mathang", "mahang", "tenhang", cbomat_hang)

txtgiaban = getfield("mathang", "giaban", "tenhang", cbomat_hang)

nhanvien = getfield("nhanvien", "manv", "tennv", cboten_nv)

Label9.Caption = txtsluong * txtgiaban

dvtt = getfield("mathang", "dvt", "tenhang", cbomat_hang)

If nutnew Then

Set rsdem = New ADODB.Recordset