Báo cáo thực tập tốt nghiệp- Xây dựng phần mềm quản lý bán hàng

TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN
VIỆN CÔNG NGHỆ THÔNG TIN KINH TẾ
-----

BÁO CÁO CHUYÊN ĐỀ THỰC TẬP TỐT NGHIỆP

XÂY DỰNG PHẦN MỀM
QUẢN LÝ BÁN HÀNG
Chuyên ngành: Công nghệ thông tin
Hệ: Chính quy
Lớp: Liên thông K10B
Mã sinh viên: LT106617
Họ và tên sinh viên: Nguyễn Trọng Thuấn
Giáo viên hướng dẫn: Ths. Đào Phan Vũ

Hà Nội - 2012


Chương trình Quản lý bán hàng

MỤC LỤC
LỜI CẢM ƠN...............................................................................20
LỜI MỞ ĐẦU................................................................................21
CHƯƠNG I: TỔNG QUAN VỀ CƠ SỞ THỰC TẬP................23
1.1 Giới thiệu chung về cơ sở thực tập:..............................................................................................................23
1.1.1 Quá trình hình thành và phát triển:................................................................................................. 23
1.1.2 Sơ đồ tổ chức của công ty CP Tin Học Trẻ Việt Nam:.....................................................................24
1.1.3 Chức năng của các bộ phận:........................................................................................................... 24
1.2 Phát biểu đề tài:...............................................................................................................................................25
1.2.1 Lí do chọn đề tài............................................................................................................................. 25
1.2.2 Mục đích nghiên cứu:..................................................................................................................... 26

1.3 Nghiệp vụ của hệ thống:.................................................................................................................................26
1.3.1 Khảo sát hệ thống bán hàng cũ:...................................................................................................... 26
1.3.2 Xây dựng hệ thống bán hàng mới:.................................................................................................. 29

CHƯƠNG II: CÁC CÔNG CỤ THỰC HIỆN............................33
2.1 Hệ quản trị cơ sở dữ liệu SQL Server 2000:...............................................................................................33
2.1.1 Giới thiệu chung............................................................................................................................. 33
2.1.2 Lịch sử phát triển của SQL Server 2000:........................................................................................ 33
2.2 Giới thiệu về ngôn ngữ lập trình Visual Basic 6.0:....................................................................................34

CHƯƠNG III: PHÂN TÍCH THIẾT KẾ HỆ THỐNG..............36
3.1 Phân tích hệ thống về chức năng:.................................................................................................................36
3.1.1 Biểu đồ phân cấp chức năng:.......................................................................................................... 36
3.1.2 Biểu đồ luồng dữ liệu (BLD) mức khung cảnh:..............................................................................38
3.1.3 Biểu đồ luồng dữ liệu (BLD) mức đỉnh:.........................................................................................39
3.1.4 Biểu đồ luồng dữ liệu (BLD) mức dưới đỉnh:.................................................................................40
3.2 Phân tích hệ thống về cơ sở dữ liệu:.............................................................................................................45
3.2.1 Xác định các thực thể:.................................................................................................................... 45
3.2.2 Mô hình quan hệ giữa các thực thể:................................................................................................ 47
3.2.3 Danh sách các bảng dữ liệu:........................................................................................................... 48
3.2.4 Mô tả chi tiết các bảng:.................................................................................................................. 49
3.2.5 Sơ đồ quan hệ giữa các Bảng:......................................................................................................... 55

.........................................................................................................55
Báo cáo chuyên đề

2


Chương trình Quản lý bán hàng

CHƯƠNG IV: GIỚI THIỆU MỘT SỐ SƠ ĐỒ THUẬT TOÁN
VÀ GIAO DIỆN CHÍNH CỦA PHẦN MỀM.............................56
4.1 Giới thiệu một số sơ đồ thuật toán sử dụng trong phần mềm:................................................................56
4.2 Một số giao diện chính của phần mềm:.......................................................................................................61

KẾT LUẬN.....................................................................................70
1. Đánh giá về chương trình Quản lý bán hàng (QLBH):...............................................................................70
2. Hướng phát triển trong tương lai:..................................................................................................................71

TÀI LIỆU THAM KHẢO.............................................................72
NHẬN XÉT CỦA GIÁO VIÊN HƯỚNG DẪN BÁO CÁO
THỰC TẬP TỐT NGHIỆP...........................................................73
NHẬN XÉT CỦA ĐƠN VỊ THỰC TẬP TỐT NGHIỆP............74
PHỤ LỤC.......................................................................................75
MỘT SỐ HÀM SỬ DỤNG TRONG CHƯƠNG TRÌNH:.........75
PUBLIC FUNCTION RONG(BYVAL VARX AS VARIANT) AS
BOOLEAN.....................................................................................75
IF ISNULL(VARX) OR TRIM(VARX) = "" THEN.................75
RONG = TRUE.............................................................................75
ELSE..............................................................................................75
RONG = FALSE...........................................................................75
END IF...........................................................................................75
END FUNCTION..........................................................................75
Báo cáo chuyên đề

3


Chương trình Quản lý bán hàng

‘------------------------------------........................................................75
PUBLIC FUNCTION NULLTONUMBER(VARX AS
VARIANT) AS DOUBLE..............................................................75
ON ERROR GOTO LOI...............................................................75
IF RONG(VARX) THEN.............................................................75
NULLTONUMBER = 0................................................................75
ELSE..............................................................................................75
NULLTONUMBER = VARX.......................................................75
END IF...........................................................................................75
LOI:.................................................................................................75
IF ERR.NUMBER <> 0 THEN THONGBAO ("ERROR: " &
ERR.NUMBER & VBCR & ERR.DESCRIPTION)..................75
END FUNCTION..........................................................................75
‘------------------------------------........................................................75
PUBLIC FUNCTION NULLTOSTRING(VARX AS VARIANT)
AS STRING....................................................................................75
ON ERROR GOTO LOI...............................................................75
IF RONG(VARX) THEN.............................................................75
NULLTOSTRING = ""................................................................75
ELSE..............................................................................................75
Báo cáo chuyên đề

4


Chương trình Quản lý bán hàng

NULLTOSTRING = VARX.........................................................75
END IF...........................................................................................75

LOI:.................................................................................................75
IF ERR.NUMBER <> 0 THEN THONGBAO ("ERROR: " &
ERR.NUMBER & VBCR & ERR.DESCRIPTION)..................75
END FUNCTION..........................................................................75
‘------------------------------------........................................................75
PUBLIC FUNCTION FORMATDATE(STRVALUE AS
VARIANT) AS STRING................................................................75
DIM STRNGAY AS STRING......................................................75
DIM STRTHANG AS STRING..................................................75
DIM STRNAM AS STRING.......................................................76
IF RONG(STRVALUE) THEN...................................................76
FORMATDATE = ""...................................................................76
ELSE..............................................................................................76
STRNGAY = IIF(LEN(DAY(STRVALUE)) = 1, "0" &
DAY(STRVALUE), DAY(STRVALUE))......................................76
STRTHANG = IIF(LEN(MONTH(STRVALUE)) = 1, "0" &
MONTH(STRVALUE), MONTH(STRVALUE)).......................76
STRNAM = YEAR(STRVALUE)................................................76
Báo cáo chuyên đề

5


Chương trình Quản lý bán hàng

FORMATDATE = STRNGAY & "/" & STRTHANG & "/" &
STRNAM........................................................................................76
END IF...........................................................................................76
END FUNCTION..........................................................................76
‘------------------------------------........................................................76

PUBLIC FUNCTION FORMATDATESQL(STRVALUE AS
VARIANT) AS STRING................................................................76
DIM STRNGAY AS STRING......................................................76
DIM STRTHANG AS STRING..................................................76
DIM STRNAM AS STRING.......................................................76
IF RONG(STRVALUE) THEN...................................................76
FORMATDATESQL = ""...........................................................76
ELSE..............................................................................................76
STRNGAY = IIF(LEN(DAY(STRVALUE)) = 1, "0" &
DAY(STRVALUE), DAY(STRVALUE))......................................76
STRTHANG = IIF(LEN(MONTH(STRVALUE)) = 1, "0" &
MONTH(STRVALUE), MONTH(STRVALUE)).......................76
STRNAM = YEAR(STRVALUE)................................................76
FORMATDATESQL = STRTHANG & "/" & STRNGAY & "/"
& STRNAM....................................................................................76
END IF...........................................................................................76
Báo cáo chuyên đề

6


Chương trình Quản lý bán hàng

END FUNCTION..........................................................................76
‘------------------------------------........................................................76
PUBLIC SUB THONGBAO(MSG AS STRING, OPTIONAL
TITLE AS STRING).....................................................................76
ON ERROR GOTO LOI...............................................................76
IF TITLE = "" THEN..................................................................76
TITLE = "THÔNG BÁO"...........................................................76

END IF...........................................................................................76
MSGBOX MSG, VBOKONLY, TITLE......................................76
EXIT SUB......................................................................................76
LOI:.................................................................................................76
IF ERR.NUMBER <> 0 THEN MSGBOX ("ERROR: " &
ERR.NUMBER & VBCR & ERR.DESCRIPTION)..................76
END SUB........................................................................................76
‘------------------------------------........................................................76
PUBLIC FUNCTION TONTAIGIATRI(TBL AS STRING,
TRUONG AS STRING, VALUE AS STRING) AS BOOLEAN76
DIM RST AS NEW ADODB.RECORDSET..............................76
DIM STRSQL1 AS STRING.......................................................77
DIM II AS INTEGER...................................................................77
Báo cáo chuyên đề

7


Chương trình Quản lý bán hàng

ON ERROR GOTO LOI..............................................................77
STRSQL1 = "SELECT " & TRUONG & " FROM " & TBL &
" WHERE " & TRUONG & " = '" & VALUE & "'"................77
SET RST = CNN.EXECUTE(STRSQL1)..................................77
IF RST.FIELDS(TRUONG).VALUE <> "" THEN..................77
RST.CLOSE..................................................................................77
TONTAIGIATRI = TRUE...........................................................77
ELSE..............................................................................................77
RST.CLOSE..................................................................................77
TONTAIGIATRI = FALSE..........................................................77

END IF...........................................................................................77
LOI:.................................................................................................77
IF ERR.NUMBER <> 0 THEN THONGBAO ("ERROR: " &
ERR.NUMBER & VBCR & ERR.DESCRIPTION)..................77
END FUNCTION..........................................................................77
‘------------------------------------........................................................77
PUBLIC FUNCTION GETFIELD(TBL AS STRING, FIELD
AS STRING, OPTIONAL COND AS STRING) AS VARIANT
.........................................................................................................77
DIM SQL AS STRING.................................................................77
Báo cáo chuyên đề

8


Chương trình Quản lý bán hàng

DIM RST AS ADODB.RECORDSET........................................77
SQL = "SELECT " & FIELD & " FROM " & TBL................77
IF COND <> "" THEN................................................................77
SQL = SQL & " WHERE " & COND........................................77
END IF...........................................................................................77
SET RST = CNN.EXECUTE(SQL)............................................77
IF (NOT RST.BOF) THEN..........................................................77
GETFIELD = RST.FIELDS(0).VALUE.....................................77
ELSE..............................................................................................77
GETFIELD = "NORECORD"...................................................77
END IF...........................................................................................77
END FUNCTION..........................................................................77
‘------------------------------------........................................................77

PUBLIC SUB LOGINSERVER(OPTIONAL BYVAL
DANGMO AS BOOLEAN = FALSE).........................................77
ON ERROR GOTO LOI...............................................................77
IF NOT DANGMO THEN FRMSERVER.SHOW...................77
SQLSERVERNAME = FRMSERVER.TXTMAYCHU...........77
SQLLOCATION = FRMSERVER.TXTCSDL.........................77
Báo cáo chuyên đề

9


Chương trình Quản lý bán hàng

SQLUSER = FRMSERVER.TXTTAIKHOAN.........................77
SQLPASSWORD = FRMSERVER.TXTMATKHAU..............77
STRCONNECTIONDATA =
"PROVIDER=SQLOLEDB.1;PASSWORD=" &
SQLPASSWORD & "; PERSIST SECURITY
INFO=FALSE;USER ID=" & SQLUSER & ";INITIAL
CATALOG=" & SQLLOCATION & ";DATA SOURCE=" &
SQLSERVERNAME.....................................................................77
SET CNN = NEW ADODB.CONNECTION..............................78
CNN.OPEN STRCONNECTIONDATA....................................78
SAVETOFILE...............................................................................78
UNLOAD FRMSERVER.............................................................78
FRMLOGIN.SHOW 1.................................................................78
FRMMAIN.SHOW.......................................................................78
EXIT SUB......................................................................................78
LOI:.................................................................................................78
THONGBAO "THÔNG TIN VỀ MÁY CHỦ BỊ SAI. XIN VUI

LÒNG KIỂM TRA LẠI.".............................................................78
FRMSERVER.TXTMAYCHU.SETFOCUS..............................78
EXIT SUB......................................................................................78
END SUB........................................................................................78
Báo cáo chuyên đề

10


Chương trình Quản lý bán hàng

‘------------------------------------........................................................78
PUBLIC SUB SAVETOFILE()....................................................78
DIM FNUM AS INTEGER...........................................................78
DIM I AS INTEGER.....................................................................78
DIM FILE_NAME AS STRING..................................................78
ON ERROR GOTO LOI..............................................................78
FNUM = FREEFILE....................................................................78
FILE_NAME = APP.PATH & "/SYS/QLBH.DLL"..................78
KILL FILE_NAME......................................................................78
OPEN FILE_NAME FOR OUTPUT AS #FNUM.....................78
WRITE #FNUM, FRMSERVER.TXTMAYCHU.TEXT & "#"
& FRMSERVER.TXTCSDL & "#" &
FRMSERVER.TXTTAIKHOAN.TEXT & "#" &
FRMSERVER.TXTMATKHAU.TEXT......................................78
CLOSE #FNUM............................................................................78
EXIT SUB......................................................................................78
LOI:.................................................................................................78
IF ERR.NUMBER <> 0 THEN THONGBAO ("ERROR: " &
ERR.NUMBER & VBCR & ERR.DESCRIPTION)..................78

END SUB........................................................................................78
Báo cáo chuyên đề

11


Chương trình Quản lý bán hàng

‘------------------------------------........................................................78
PUBLIC SUB READFROMFILE().............................................78
DIM FNUM AS INTEGER..........................................................78
DIM I AS INTEGER....................................................................78
DIM KQ() AS STRING................................................................78
DIM VALUE AS STRING...........................................................78
ON ERROR GOTO LOI..............................................................78
FNUM = FREEFILE....................................................................78
OPEN "SYS/QLBH.DLL" FOR INPUT AS FNUM.................78
INPUT #FNUM, VALUE.............................................................78
KQ = SPLIT(VALUE, "#")..........................................................78
FRMSERVER.TXTMAYCHU.TEXT = KQ(0).........................78
FRMSERVER.TXTCSDL.TEXT = KQ(1)................................78
FRMSERVER.TXTTAIKHOAN.TEXT = KQ(2).....................78
FRMSERVER.TXTMATKHAU.TEXT = KQ(3)......................79
CLOSE FNUM..............................................................................79
EXIT SUB......................................................................................79
LOI:.................................................................................................79
Báo cáo chuyên đề

12

Chương trình Quản lý bán hàng

THONGBAO "THÔNG TIN VỀ MÁY CHỦ BỊ SAI. XIN VUI
LÒNG KIỂM TRA LẠI.".............................................................79
END SUB........................................................................................79
‘------------------------------------.......................................................79
PUBLIC FUNCTION STRINGSQL(VALUE AS STRING) AS
STRING..........................................................................................79
ON ERROR GOTO LOI...............................................................79
STRINGSQL = "'" & VALUE & "'"..........................................79
LOI:.................................................................................................79
IF ERR.NUMBER <> 0 THEN THONGBAO ("ERROR: " &
ERR.NUMBER & VBCR & ERR.DESCRIPTION)..................79
END FUNCTION..........................................................................79
‘------------------------------------........................................................79
FUNCTION EXISTRECORD(TABLENAME AS STRING,
CONDITION AS STRING, CNN AS ADODB.CONNECTION)
AS BOOLEAN...............................................................................79
DIM SQL AS STRING..................................................................79
DIM RST AS NEW ADODB.RECORDSET...............................79
ON ERROR GOTO LOI...............................................................79
SET RST = NEW ADODB.RECORDSET..................................79
SQL = "SELECT COUNT(*) FROM " & TABLENAME........79
Báo cáo chuyên đề

13


Chương trình Quản lý bán hàng

IF NOT RONG(CONDITION) THEN........................................79
SQL = SQL & " WHERE " & CONDITION............................79
END IF............................................................................................79
RST.OPEN SQL, CNN, ADOPENSTATIC,
ADLOCKREADONLY, ADCMDTEXT......................................79
IF RST.FIELDS(0).VALUE > 0 THEN........................................79
EXISTRECORD = TRUE............................................................79
ELSE...............................................................................................79
EXISTRECORD = FALSE..........................................................79
END IF............................................................................................79
RST.CLOSE...................................................................................79
SET RST = NOTHING.................................................................79
LOI:.................................................................................................79
IF ERR.NUMBER <> 0 THEN THONGBAO ("ERROR: " &
ERR.NUMBER & VBCR & ERR.DESCRIPTION)..................79
END FUNCTION..........................................................................79
‘------------------------------------........................................................79
PUBLIC FUNCTION BANGCHU(X AS VARIANT,
OPTIONAL VND AS STRING = " ĐỒNG", OPTIONAL
BDOCDIEM AS BOOLEAN = FALSE) AS STRING...............79
Báo cáo chuyên đề

14


Chương trình Quản lý bán hàng

DIM SO AS STRING, II AS INTEGER, CHU AS STRING, S
AS STRING, SO1 AS STRING, SO2 AS STRING, SO3 AS

STRING, SSTR AS STRING, A, B, DEM AS INTEGER,
CHUANSO AS STRING...............................................................79
DIM SOPHAY AS STRING..........................................................79
ON ERROR GOTO LOI...............................................................79
IF RONG(VND) THEN VND = "ĐỒNG ".................................80
IF BDOCDIEM = TRUE THEN VND = "ĐIỂM".....................80
A = ARRAY("KHÔNG ", "MỘT ", "HAI ", "BA ", "BỐN ",
"NĂM ", "SÁU ", "BẢY ", "TÁM ", "CHÍN ").......................80
B = ARRAY("", "NGHÌN ", "TRIỆU ", "TỶ ", "NGHÌN ")
'NGHÌN Ở PHÍA SAU LÀ NGHÌN TỶ.......................................80
CHU = ""........................................................................................80
CHUANSO = ""............................................................................80
SO = MID(TRIM(X), 1, IIF(INSTR(1, X, ".") = 0, LEN(X),
INSTR(1, X, "."))).........................................................................80
SOPHAY = IIF(INSTR(1, X, ".") = 0, "", MID(X, INSTR(1, X,
".") + 1))..........................................................................................80
DO WHILE MID(SO, 1, 1) = "0"................................................80
SO = MID(SO, 2)...........................................................................80
LOOP..............................................................................................80
FOR II = 1 TO LEN(SO)...............................................................80
Báo cáo chuyên đề

15


Chương trình Quản lý bán hàng

IF INSTR(1, "0123456789", MID(SO, II, 1)) THEN................80
CHUANSO = CHUANSO & MID(SO, II, 1).............................80
END IF...........................................................................................80

NEXT..............................................................................................80
SO = CHUANSO............................................................................80
IF RONG(SO) THEN....................................................................80
CHU = "".......................................................................................80
EXIT FUNCTION........................................................................80
END IF............................................................................................80
DEM = 0..........................................................................................80
DO WHILE LEN(SO) > 0.............................................................80
SSTR = ""......................................................................................80
S = RIGHT(SO, 3)........................................................................80
S = LEFT("///", 3 - LEN(S)) + S..................................................80
SO1 = MID(S, 1, 1)........................................................................80
SO2 = MID(S, 2, 1).......................................................................80
SO3 = MID(S, 3, 1)........................................................................80
IF SO1 = "/" THEN SO1 = "".....................................................80
Báo cáo chuyên đề

16


Chương trình Quản lý bán hàng

IF SO2 = "/" THEN SO2 = "".....................................................80
IF SO3 = "/" THEN SO3 = "".....................................................80
SSTR = IIF(RONG(SO1), "", IIF(VAL(SO1) = 0 AND
VAL(SO2) = 0 AND VAL(SO3) = 0, "", A(VAL(SO1)) + "TRĂM
"))....................................................................................................80
SSTR = SSTR + IIF(RONG(SO2), "", IIF(VAL(SO2) = 0 AND
VAL(SO3) = 0, "", IIF(VAL(SO2) = 0, "LINH ", IIF(VAL(SO2)
= 1, "MƯỜI ", A(VAL(SO2)) + "MƯƠI ")))).............................80

SSTR = SSTR + IIF(RONG(SO3), "", IIF(VAL(SO3) = 0, "",
IIF(VAL(SO3) = 1 AND VAL(SO2) <> 1 AND SO2 <> "",
"MỐT ", IIF(NOT RONG(SSTR) AND VAL(SO3) = 5, "LĂM
", A(VAL(SO3))))))........................................................................80
CHU = SSTR + IIF(RONG(SSTR) AND DEM > 0, "",
B(DEM)) + CHU............................................................................80
DEM = DEM + 1...........................................................................80
IF LEN(SO) >= 3 THEN..............................................................80
SO = LEFT(SO, LEN(SO) - 3).....................................................80
ELSE..............................................................................................81
SO = ""..........................................................................................81
END IF...........................................................................................81
LOOP..............................................................................................81
IF RONG(SO) AND RONG(SOPHAY) THEN..........................81
Báo cáo chuyên đề

17


Chương trình Quản lý bán hàng

CHU = CHR(IIF(ASC(LEFT(CHU, 1)) > -97,
ASC(LEFT(CHU, 1)) - 32, ASC(LEFT(CHU, 1)))) +
RIGHT(CHU, LEN(CHU) - 1).....................................................81
BANGCHU = CHU & VND.........................................................81
EXIT FUNCTION........................................................................81
ELSE..............................................................................................81
CHU = CHR(IIF(ASC(LEFT(CHU, 1)) > -97,
ASC(LEFT(CHU, 1)) - 32, ASC(LEFT(CHU, 1)))) +
RIGHT(CHU, LEN(CHU) - 1).....................................................81

IF NULLTONUMBER(SOPHAY) <> 0 THEN.........................81
CHU = CHU & "PHẨY "............................................................81
BANGCHU = CHU & LCASE(BANGCHU(SOPHAY)) '&
VND.................................................................................................81
ELSE..............................................................................................81
BANGCHU = CHU & VND.........................................................81
END IF...........................................................................................81
BANGCHU = REPLACE(BANGCHU, " ", " ")......................81
EXIT FUNCTION........................................................................81
END IF...........................................................................................81
LOI:.................................................................................................81
IF ERR.NUMBER = 9 THEN.......................................................81
Báo cáo chuyên đề

18


Chương trình Quản lý bán hàng

MSGBOX "SỐ VƯỢT QUÁ GIỚI HẠN ĐỌC CỦA CHƯƠNG
TRÌNH (CHƯƠNG TRÌNH QLBH CHỈ ĐỌC ĐƯỢC ĐẾN
NGHÌN TỶ)"..................................................................................81
EXIT FUNCTION........................................................................81
END IF............................................................................................81
END FUNCTION..........................................................................81

Báo cáo chuyên đề

19

Chương trình Quản lý bán hàng

LỜI CẢM ƠN
Em xin chân thành gửi lời cảm ơn sâu sắc tới các thầy cô giáo trong bộ
môn công nghệ thông tin trường Đại học Kinh tế Quốc Dân đã nhiệt tình
giảng dạy, truyền đạt cho em những kiến thức trong thời gian qua.
Em xin được gửi lời cảm ơn đến Thầy giáo Th.s Đào Phan Vũ đã tận tình
giúp đỡ, hướng dẫn và chỉ bảo cho em trong suốt quá trình thực tập tốt
nghiệp. Bên cạnh những kết quả khiêm tốn mà em đạt được, chắc chắn không
tránh khỏi những thiếu sót khi thực hiện báo cáo của mình, kính mong thầy cô
thông cảm. Sự góp ý của thầy cô sẽ là những kinh nghiệm quý báu cho công
việc của em sau khi tốt nghiệp ra trường.
Em cũng xin được tỏ lòng biết ơn của mình tới Công ty cổ phần Tin Học
Trẻ Việt Nam đã tạo mọi điều kiện giúp đỡ và hướng dẫn em trong suốt quá
trình thực tập vừa qua.
Kính chúc các thầy cô luôn mạnh khoẻ, đạt được nhiều thành công
trong sự nghiệp trồng người của mình.
Hà Nội, tháng 12 năm 2012
Sinh viên

Nguyễn Trọng Thuấn

Báo cáo chuyên đề

20


Chương trình Quản lý bán hàng

LỜI MỞ ĐẦU
Để xử lý thông tin một cách nhanh chóng, chính xác và có hiệu quả thì
ngành công nghệ thông tin (CNTT) đã phát triển khá nhanh và mạnh trên thế
giới nói chung và Việt Nam nói riêng. CNTT đã có mặt ở hầu hết các ngành
và các lĩnh vực. Mỗi lĩnh vực đều có những sản phẩm mang tính ứng dụng
cho lĩnh vực đó.
Quản lý bán hàng cũng vậy, nhờ có các sản phẩm quản lý bán hàng mà
giúp cho nhà quản lý doanh nghiệp tra cứu thông tin, kết quả kinh doanh một
cách nhanh chóng, chính xác. Từ đó, nhà quản lý có thể đưa ra các kế hoạch
và quyết định đúng đắn, giảm chi phí và tăng khả năng cạnh tranh, nâng cao
kết quả hoạt động sản xuất kinh doanh.
Quản lý bán hàng trong doanh nghiệp là một việc rất quan trọng đòi hỏi bộ
phận quản lý phải tiến hành nhiều nghiệp vụ phức tạp. Để quản lý kho hàng,
quản lý doanh số bán hàng, quản lý công nợ khách hàng, công nợ nhà cung
cấp,… không phải là việc đơn giản nếu chỉ sử dụng phương pháp thủ công
truyền thống.
Đã qua đi thời tính toán, lưu trữ dữ liệu bằng các phương pháp thủ công
truyền thống mang nặng tính chất lạc hậu, lỗi thời. CNTT đã đi vào các
nghành với một phương thức hoạt động hoàn toàn mới mẻ, sáng tạo và nhanh
chóng mà không mất đi sự chính xác.
Trên cơ sở những kiến thức đã học trong nhà trường và thực tế, em đã lựa
chọn đề tài “Xây dựng phần mềm quản lý bán hàng” nhằm ứng dụng
những kiến thức công nghệ thông tin đã được học.

Báo cáo chuyên đề

21


Chương trình Quản lý bán hàng

Nội dung chính của báo cáo bao gồm:
Chương 1: Tổng quan về cơ sở thực tập
- Giới thiệu chung về công ty mà em tham gia thực tập và một số lĩnh
vực hoạt động chính của công ty, các sản phẩm phần mềm đã và đang
được ứng dụng trong thực tế .
- Phát biểu đề tài, mục đích nghiên cứu và phạm vi của đề tài.
Chương 2: Các công cụ thực hiện
- Giới thiệu công cụ thực hiện triển khai đề tài: Visual Basic 6.0,
Microsoft SQL Server 2000.
Chương 3: Phân tích thiết kế hệ thống
- Phân tích và thiết kế hệ thống.
- Phân tích và thiết kế cơ sở dữ liệu.
Chương 4: Nghiệp vụ và giao diện chính của phần mềm
- Giới thiệu một số giao diện với các nghiệp vụ cơ bản trong phần
mềm.
Kết luận:
- Đánh giá, phân tích các ưu điểm, nhược điểm và hướng phát triển của
chương trình.
Tài liệu tham khảo:
- Danh sách các tài liệu sử dụng để hoàn thiện chương trình.

Báo cáo chuyên đề

22


Chương trình Quản lý bán hàng

CHƯƠNG I: TỔNG QUAN VỀ CƠ SỞ THỰC TẬP

Vấn đề đặt ra cho chúng ta trước khi xây dựng phần mềm là: Khảo sát hệ
thống hiện tại của đối tượng cần nghiên cứu để có những thông tin chính xác
về hệ thống để chúng ta xây dựng một hệ thống mới với cơ cấu thích hợp, với
các chức năng yêu cầu dành cho một chương trình quản lý.
1.1 Giới thiệu chung về cơ sở thực tập:
1.1.1 Quá trình hình thành và phát triển:
Cơ sở thực tập : Công ty Cổ Phần Tin Học Trẻ Việt Nam
Địa chỉ : A3P2 Khu TTGV – Đại Học Quốc Gia – Cầu Giấy – Hà Nội
Điện thoại : 04.37549350

Fax: 04.37549350

Website :
Công ty Cổ Phần Tin Học Trẻ Việt Nam tiền thân là Trung tâm Tin học
Ngoại Ngữ Sư phạm được thành lập từ năm 1996. Chuyên hoạt động trong
lĩnh vực: Đào tạo Tin học, Ngoại ngữ, Kế toán, Nghiệp vụ sư phạm,…
Sau 2 năm hoạt động, với đội ngũ giáo viên tận tụy có trình độ chuyên
môn cao, chuyên sâu về các ngôn ngữ lập trình, có bề dày kinh nghiệm và
lòng đam mê nghề nghiệp, Trung tâm đã thành lập một phòng CNTT chuyên
nghiên cứu và phát triển về các sản phẩm công nghệ, mã vạch mã số, phần
mềm quản lý bán hàng siêu thị, phần mềm quản lý Nhà hàng, Khách sạn,…
Để phù hợp với nền kinh tế thị trường cùng với sự trưởng thành vững
mạnh của Trung tâm. Năm 2004 Ban lãnh đạo đã quyết định đổi tên Trung
tâm thành CÔNG TY CỔ PHẦN TIN HỌC TRẺ VIỆT NAM, Số Đăng ký
0103005468 do Sở Kế Hoạch Đầu Tư Thành phố Hà nội cấp.
Báo cáo chuyên đề

23

Chương trình Quản lý bán hàng

1.1.2 Sơ đồ tổ chức của công ty CP Tin Học Trẻ Việt Nam:
Sơ đồ công ty:

BAN GIÁM ĐỐC

CÔNG NGHỆ
PHẦN MỀM

PHÒNG TỔ
CHỨC HÀNH
CHÍNH

CÁC TRUNG
TÂM TRỰC
THUỘC

PHÒNG TÀI
CHÍNH KẾ
TOÁN

Phòng phân tích - thiết kế

TT Tin Học

Phòng lập trình

TT Ngoại ngữ

Phòng kiểm thử (Testing)

TT Kế toán

Phòng kinh doanh

TT Dịch thuật

Phòng triển khai

TT Nghiệp vụ Sư phạm

Phòng hỗ trợ khách hàng

Hình 1.1: Sơ đồ tổ chức của Công ty CP Tin Học Trẻ Việt Nam

1.1.3 Chức năng của các bộ phận:
- Ban Giám đốc: Trực tiếp giao nhiệm vụ và tiếp nhận các thông tin, báo
cáo của các phòng ban.
- Công nghệ phần mềm: nghiên cứu, phát triển và cung cấp các giải
pháp phần mềm ứng dụng cho các doanh nghiệp.

Báo cáo chuyên đề

24


Chương trình Quản lý bán hàng

- Phòng phân tích – thiết kế: Sau khi tiếp nhận các yêu cầu của khách

hàng, phòng này có nhiệm vụ phân tích nghiệp vụ và thiết kế dữ liệu để
chuyển sang phòng lập trình.
- Phòng lập trình: Từ các yêu cầu nghiệp vụ sẵn có từ phòng phân tích –
thiết kế, phòng lập trình có nhiệm vụ tạo ra sản phẩm có ứng dụng
trong thực tế đáp ứng yêu cầu của khách hàng.
- Phòng kiểm thử (Testing): Kiểm tra chất lượng sản phẩm từ phòng lập
trình chuyển đến trước khi bàn giao sản phẩm phần mềm cho khách
hàng.
- Phòng Kinh doanh: được phát triển dựa trên đòi hỏi từ thực tiễn và
phải đáp ứng, giải quyết ngay lập tức các yêu cầu của khách hàng cũng
như các yêu cầu về phát triển, mở rộng của khách hàng trong tương lai.
- Phòng triển khai: Bàn giao sản phẩm cho khách hàng, cài đặt phần
mềm, hướng dẫn cách sử dụng cho khách hàng.
- Phòng hỗ trợ khách hàng: Hỗ trợ sau bán hàng là một bộ phận không
thể thiếu của một đơn vị cung cấp phần mềm. Trong quá trình sử dụng
sản phẩm, nếu có vướng mắc hoặc phần mềm phát sinh lỗi kỹ thuật,
khách hàng có thể liên hệ với phòng này để được hỗ trợ.
1.2 Phát biểu đề tài:
1.2.1 Lí do chọn đề tài
Do nhu cầu đòi hỏi ngày càng cao của xã hội cũng như của con người, để
đáp ứng được yêu cầu của khách hàng thì phải luôn đổi mới và hoàn thiện
hơn. Hiện nay do xã hội phát triển không ngừng và kéo theo là sự lớn mạnh
của các doanh nghiệp, của các tổ chức, chính vì vậy mà việc quản lý sao cho
Báo cáo chuyên đề

25