II. Lý do lựa chọn đề tài
3.5. Thiết kế giao diện cho phần mềm quản lý bảo hành khuyến mại
mại
Trước khi vào được giao diện chính và các danh mục, chứng từ thì người sử dụng phải kết nối với server và cơ sở dữ liệu qua form:
Sau khi kết nối thành công thì người sử dụng phải đăng nhập hệ thống để có thể truy nhập vào phần mềm qua form:
Giao diện chính của phần mềm
Kết luận
Do thời gian thực tập và khả năng có hạn nên phần mềm “quản lý bảo hành - khuyến mại cho công ty TNHH Thương mại Việt Hàn” do em xây dựng vẫn còn nhiều thiếu sót và chưa được áp dụng vào thực tế. Tuy vậy nhưng trong thời gian thực tập vừa qua em đã học hỏi được rất nhiều kiến thức cũng như tích luỹ thêm kinh nghiệm để có thể giúp em làm được một phần mềm tốt hơn trong tương lai. Em rất mong được sự góp ý của thầy cô giáo và bạn bè để phần mềm của em có thể hoàn thiện hơn.
Phần mềm này được em xây dựng dựa trên nhu cầu cấp thiết của công ty TNHH Thương mại Việt Hàn, với giao diện thân thiện với người sử dụng, dễ hiểu và giao tác thuận tiện. Tuy rằng phần mềm chưa thể áp dụng vào thực tế nhưng cũng đáp ứng được phần nào yêu cầu của một phần mềm quản lý bảo hành và khuyến mại cho công ty Việt Hàn. Và đó cũng là thành công phần nào trong quá trình thực tập của em. Em xin gửi lời cảm ơn sâu sắc tới cô giáo TS.Trần Thị Thu Hà đã nhiệt tình hướng dẫn em trong kỳ thực tập vừa qua, cũng như các cán bộ hướng dẫn trong nhóm Triển khai 1 của công ty
Cổ phần phần mềm BRAVO và Trưởng phòng kế toán công ty TNHH Thương mại Việt Hàn đã giúp đỡ em hoàn thành phần mềm và báo cáo thực tập tốt nghiệp. Một lần nữa em xin chân thành cảm ơn!
Sinh viên thực hiện Bùi Hồng Phương
Phụ lục Một số đoạn code trong chương trình:
Form Danh mục nhà cung cấp
Định dạng lưới: Sub FormatVSF() With vsf .Cols = 3 .Rows = 1 .FixedCols = 0 .FixedRows = 1 .ColWidth(0) = 1000 .ColWidth(1) = 2500 .ColWidth(2) = 5000
.TextMatrix(0, 0) = "M· NCC" .TextMatrix(0, 1) = "Tªn NCC" .TextMatrix(0, 2) = "§Þa chØ" .BackColorSel = vbBlue .ForeColorSel = vbRed .SelectionMode = flexSelectionByRow End With vsf.RowHeight(0) = 380 vsf.Cell(flexcpFontSize, 0, 0, 0, vsf.Cols - 1) = 13
vsf.Cell(flexcpForeColor, 0, 0, 0, vsf.Cols - 1) = &HC0& vsf.Cell(flexcpBackColor, 0, 0, 0, vsf.Cols - 1) = &HC0FFC0
vsf.Cell(flexcpAlignment, 0, 0, 0, vsf.Cols - 1) = flexAlignCenterCenter Set rs = GetRs("NhaCungCap", "*", "", "MaNCC")
Do Until rs.EOF vsf.Rows = vsf.Rows + 1 vsf.TextMatrix(vsf.Rows - 1, 0) = rs(0) vsf.TextMatrix(vsf.Rows - 1, 1) = rs(1) vsf.TextMatrix(vsf.Rows - 1, 2) = rs(2) rs.MoveNext Loop CloseRS If vsf.Rows < 28 Then vsf.Rows = 28 End If End Sub Cập nhật nhà cung cấp mới:
Private Sub cmdThem_Click() Private strSQL As String Private MaNCC As String
Private TenNCC As String Private DiaChi As String MaNCC = txtMaNCC.Text TenNCC = txtTenNCC.Text DiaChi = txtDiaChi.Text
strSQL = "SELECT * FROM NhaCungCap WHERE MaNCC='" & MaNCC & "'" If txtMaNCC.Text <> "" Then
If SearchKey(strSQL) = True Then
strSQL = "INSERT INTO NhaCungCap(MaNCC,TenNCC,DiaChi) VALUES('" & MaNCC & "','" & TenNCC & "','" & DiaChi & "')"
conn.Execute strSQL
MsgBox "Da Them xong", vbOKOnly, "Thong Bao" End If
Else
MsgBox "Moi ban nhap ma nha cung cap va cac thong tin can thiet" End If txtMaNCC.Text = "" txtTenNCC.Text = "" txtDiaChi.Text = "" End Sub
Sửa thông tin về nhà cung cấp:
Private Sub cmdSua_Click() MaNCC = txtMaNCC.Text TenNCC = txtTenNCC.Text DiaChi = txtDiaChi.Text
strSQL = "SELECT * FROM NhaCungCap WHERE MaNCC='" & MaNCC & "'" If txtMaNCC.Text <> "" Then
strSQL = "UPDATE NhaCungCap SET TenNCC='" & TenNCC & "', DiaChi ='" & DiaChi & " WHERE ( MaNCC ='" & MaNCC & "')"
conn.Execute strSQL
MsgBox "Da Sua xong", vbOKOnly Else
MsgBox "Khong ton tai ma nay", vbOKOnly, "Thong Bao" End If
Else
MsgBox "Moi ban nhap ma nha cung cap" End If txtMaNCC.Text = "" txtTenNCC.Text = "" txtDiaChi.Text = "" txtMaNCC.Locked = True End Sub
Private Sub cmdThem_Click() MaNCC = txtMaNCC.Text TenNCC = txtTenNCC.Text DiaChi = txtDiaChi.Text
strSQL = "SELECT * FROM NhaCungCap WHERE MaNCC='" & MaNCC & "'" If txtMaNCC.Text <> "" Then
If SearchKey(strSQL) = True Then
strSQL = "INSERT INTO NhaCungCap(MaNCC,TenNCC,DiaChi) VALUES('" & MaNCC & "','" & TenNCC & "','" & DiaChi & "')"
conn.Execute strSQL
MsgBox "Da Them xong", vbOKOnly, "Thong Bao" End If
MsgBox "Moi ban nhap ma nha cung cap va cac thong tin can thiet" End If txtMaNCC.Text = "" txtTenNCC.Text = "" txtDiaChi.Text = "" End Sub
Xoá thông tin về nhà cung cấp:
Private Sub cmdXoa_Click() MaNCC = txtMaNCC.Text TenNCC = txtTenNCC.Text DiaChi = txtDiaChi.Text Dim strs As String
strSQL = "SELECT * FROM NhaCungCap WHERE MaNCC='" & MaNCC & "'" If txtMaNCC.Text <> "" Then
If SKey(strSQL) = False Then
strs = " DELETE FROM NhaCungCap WHERE (MaNCC='" & MaNCC & "')" conn.Execute strs
MsgBox "Da Xoa xong", vbOKOnly, "Thong Bao" Else
MsgBox "Khong ton tai ma nay", vbOKOnly, "Thong Bao" End If
Else
MsgBox "Moi ban nhap ma nha cung cap" End If
txtMaNCC.Text = "" txtTenNCC.Text = "" txtDiaChi.Text = "" End Sub
Thoát khỏi form:
Unload Me frmChinh.Show End Sub
Sự kiện click cho lưới:
Private Sub vsf_Click() Dim vitri As Integer vitri = vsf.Row MaNCC = vsf.TextMatrix(vitri, 0) TenNCC = vsf.TextMatrix(vitri, 1) DiaChi = vsf.TextMatrix(vitri, 2) txtMaNCC.Text = MaNCC txtTenNCC.Text = TenNCC txtDiaChi.Text = DiaChi End Sub
Code form Tìm kiếm bảo hành – nút Tìm:
Private Sub cmdTim_Click() Dim str1 As String
str1 = ""
If optdl.Value = True Then
str1 = "SET DATEFORMAT DMY select
PhieuBH.MaBH,MaHang,SoSeri,NgayHenTra,NgayNhan from PhieuBH,ChiTietBH WHERE PhieuBH.MaBH=ChiTietBH.MaBH and (PhieuBH.NgayNhan >= '" & txtTung.Text & "') and (PhieuBH.NgayNhan <= '" & txtDenng.Text & "') and PhieuBH.MaDL='" & cbodl.Text & "'"
Else
If optncc.Value = True Then
str1 = "SET DATEFORMAT DMY select
PhieuBH.MaBH,MaHang,SoSeri,NgayHenTra,NgayNhan from PhieuBH,ChiTietBH WHERE PhieuBH.MaBH=ChiTietBH.MaBH and (PhieuBH.NgayNhan >= '" & txtTung.Text & "') and (PhieuBH.NgayNhan <= '" & txtDenng.Text & "') and ChiTietBH.MaNCC='" & cboncc.Text & "'"
End If End If
Dim rs As New ADODB.Recordset If str1 <> "" Then rs.Open str1, conn Do Until rs.EOF VSF.Rows = VSF.Rows + 1 VSF.TextMatrix(VSF.Rows - 1, 0) = rs(0) VSF.TextMatrix(VSF.Rows - 1, 1) = rs(1) VSF.TextMatrix(VSF.Rows - 1, 2) = rs(2) VSF.TextMatrix(VSF.Rows - 1, 3) = rs(3) VSF.TextMatrix(VSF.Rows - 1, 4) = rs(4) rs.MoveNext Loop rs.Close Set rs = Nothing If VSF.Rows < 28 Then VSF.Rows = 28 End If End If
If optseri.Value = True Then str1 = "select
ChungTuNXBH.MaBH,ChungTuNXBH.SoChungTu,MaHang,SoSeri,NgayCT,LoaiCT, ChiTietCTBH.MaTT,DienGiaiTT FROM ChungTuNXBH,ChiTietCTBH,TrangThai WHERE ChungTuNXBH.SoChungTu=ChiTietCTBH.SoChungTu and
ChiTietCTBH.MaTT=TrangThai.MaTT and SoSeri='" & cboseri.Text & "'and NgayCT between ('" & txtTung.Text & "') and ('" & txtDenng.Text & "')"
With VSF .Cols = 7 .Rows = 1 .FixedCols = 0
.FixedRows = 1 .ColWidth(0) = 2000 .ColWidth(1) = 2000 .ColWidth(2) = 1500 .ColWidth(3) = 1500 .ColWidth(4) = 3000 .ColWidth(5) = 2000 .ColWidth(6) = 3000 .ExtendLastCol = True .TextMatrix(0, 0) = "M· b¶o hµnh" .TextMatrix(0, 1) = "Sè chng tõ" .TextMatrix(0, 2) = "M· hµng" .TextMatrix(0, 3) = "Sè seri" .TextMatrix(0, 4) = "Ngµy chøng tõ" .TextMatrix(0, 5) = "Lo¹i chøng tõ" .TextMatrix(0, 6) = "Tr¹ng th¸i" .SelectionMode = flexSelectionByRow End With VSF.RowHeight(0) = 380 VSF.Cell(flexcpFontSize, 0, 0, 0, VSF.Cols - 1) = 13
VSF.Cell(flexcpForeColor, 0, 0, 0, VSF.Cols - 1) = &HC0& VSF.Cell(flexcpBackColor, 0, 0, 0, VSF.Cols - 1) = &HC0FFC0
VSF.Cell(flexcpAlignment, 0, 0, 0, VSF.Cols - 1) = flexAlignCenterCenter rs.Open str1, conn Do Until rs.EOF VSF.Rows = VSF.Rows + 1 VSF.TextMatrix(VSF.Rows - 1, 0) = rs(0) VSF.TextMatrix(VSF.Rows - 1, 1) = rs(1) VSF.TextMatrix(VSF.Rows - 1, 2) = rs(2) VSF.TextMatrix(VSF.Rows - 1, 3) = rs(3) VSF.TextMatrix(VSF.Rows - 1, 4) = rs(4)
VSF.TextMatrix(VSF.Rows - 1, 5) = rs(5) VSF.TextMatrix(VSF.Rows - 1, 6) = rs(7) rs.MoveNext Loop rs.Close Set rs = Nothing If VSF.Rows < 28 Then VSF.Rows = 28 End If End If End Sub
1. TS. Trương Văn Tú – TS. Trần Thị Song Minh: Giáo trình hệ thống thông tin quản lý, Nhà xuất bản Thống kê năm 2000 – Hà Nội
2. Ths. Trần Công Uẩn: Giáo trình Cơ sở dữ liệu 1 và 2, Nhà xuất bản năm 2006 – Hà Nội
3. PGS. TS Hàn Viết Thuận: Bài giảng công nghệ phần mềm
4. THS. Trịnh Hoài Sơn – Bài giảng Lập trình ứng dụng trong quản lý 5. Hồ sơ công ty Cổ phần phần mềm BRAVO
6. Hồ sơ công ty TNHH Thương mại Việt Hàn 7. Trang web http ://vi.wikipedia.org
MỤC LỤC
LỜI NÓI ĐẦU...1
I. Tổng quan về Công ty cổ phần phần mềm Bravo...3
1.1. Giới thiệu chung về công ty...3
1.2. Lĩnh vực kinh doanh...3
1.3. Sứ mệnh – Tầm nhìn...3
1.4. Quan điểm phát triển và chiến lược phát triển...4
1.5. Văn hoá công ty và giá trị cốt lõi...4
1.6. Cơ cấu tổ chức của công ty...5
1.6.1. Sơ đồ tổ chức...5
1.6.2. Nhân sự...6
1.7. Thị trường và sản phẩm...6
1.8. Khách hàng...8
1.9. Dịch vụ...8
II. Lý do lựa chọn đề tài...9
2.1. Giới thiệu về công ty TNHH Thương mại Việt Hàn...9
2.1.1. Quá trình hình thành và phát triển...9
2.1.2. Bộ máy tổ chức của công ty ...9
2.1.3. Chức năng của các phòng ban trong công ty...10
2.1.4. Chức năng - nhiệm vụ của công ty...11
2.1.5. Các sản phẩm kinh doanh của công ty...11
2.1.6. Thị trường kinh doanh của công ty...12
2.2. Tình hình tin học hoá của công ty và lý do lựa chọn đề tài...12
2.1. Quy trình nghiệp vụ trong bảo hành và khuyến mại tại công ty TNHH Thương mại Việt Hàn...14
2.1.1. Quy trình bảo hành tại công ty TNHH Thương mại Việt Hàn...14
2.1.2. Quy trình khuyến mại của công ty TNHH Thương mại Việt Hàn...14
2.2. Một số khái niệm về phần mềm và thiết kế, xây dựng phần mềm...15
2.2.1. Khái niệm phần mềm...15
2.2.2. Vòng đời phát triển của phần mềm...15
Hình 2.2. Mô hình tiến hoá[ 7 ]...18
Hình 2.3. Mô hình xoắn ốc Boehm[ 7]...19
Hình 2.5 : Mô hình Prototype[ 7]...21
2.2.3. Thiết kế phần mềm và các phương pháp thiết kế phần mềm...22
Hình 2.6. Mô hình tiến trình thiết kế phần mềm[3]...24
2.2.4. Các quy trình trong sản xuất phần mềm...26
2.2.4.1. Xây dựng và quản lý hợp đồng phần mềm...26
2.2.4.2. Quy trình xác định yêu cầu người sử dụng...26
2.2.4.3. Quy trình thiết kế phần mềm...29
2.2.4.4. Quy trình lập trình...32
2.2.4.6. Quy trình triển khai...34
2.3. Một số công cụ thực hiện đề tài “Xây dựng phần mềm quản lý bảo hành - khuyến mại cho công ty TNHH Thương mại Việt Hàn”...35
2.3.1. Các phương pháp thu thập thông tin...35
2.3.1.1. Phương pháp quan sát:...35
2.3.1.2. Phương pháp phỏng vấn:...35
2.3.1.3. Nghiên cứu tài liệu:...36
2.3.2. Các công cụ mô hình hoá...36
2.3.2.1. Sơ đồ chức năng kinh doanh BFD(Business Function Diagram)...36
2.3.2.2. Sơ đồ luồng dữ liệu DFD(Data Flow Diagram)...36
2.3.2.3. Sơ đồ thuật toán:...37
2.3.3. Giới thiệu về hệ quản trị cơ sở dữ liệu MicroSoft SQL Server 2005 và ngôn ngữ lập trình Visual Basic 6.0...38
2.3.3.1. Hệ quản trị cơ sở dữ liệu Microsoft SQL Server 2005...38
2.3.3.2. Đôi nét về ngôn ngữ lập trình Visual Basic 6.0(VB6)...40
Chương 3...42
Phân tích và thiết kế phần mềm quản lý bảo hành – khuyến mại cho công ty TNHH Thương mại Việt Hàn...42
3.1. Mô hình hoá nghiệp vụ quản lý bảo hành - khuyến mại...42
3.1.1. Mô hình chức năng nghiệp vụ của phần mềm quản lý bảo hành - khuyến mại...42
Giải thích:...43
3.1.2. Mô hình luồng dữ liệu(DFD) của phần mềm quản lý bảo hành - khuyến mại...43
Sơ đồ 3.4. Sơ đồ DFD mức 1 của chức năng quản lý bảo hành...46
Sơ đồ 3.5. Sơ đồ DFD mức 1 của chức năng quản lý khuyến mại...47
3.2. Thiết kế kiến trúc phần mềm quản lý bảo hành - khuyến mại...48
Sơ đồ 3.6. Sơ đồ kiến trúc phần mềm quản lý bảo hành - khuyến mại...48
3.3. Thiết kế cơ sở dữ liệu cho phần mềm quản lý bảo hành - khuyến mại...49
3.3.1. Thiết kế CSDL bằng phương pháp mô hình quan hệ thực thể...49
Sơ đồ 3.7. Mô hình quan hệ thực thể(ERD) trong quản lý bảo hành...50
...51
Sơ đồ 3.8. Mô hình quan hệ thực thể(ERD) trong quản lý khuyến mại...51
3.3.2. Thiết kế cơ sở dữ liệu từ các thông tin đầu ra...52
Sơ đồ 3.9. Sơ đồ quan hệ giữa các bảng trong cơ sở dữ liệu SQL Server 2005...58
3.4. Thiết kế giải thuật cho phần mềm quản lý bảo hành - khuyến mại...59
3.4.1. Giải thuật đăng nhập phần mềm...59
3.4.2. Giải thuật sửa, xoá dữ liệu...60
3.4.3. Giải thuật cập nhật dữ liệu...61
3.4.4. Giải thuật tìm kiếm...62
3.4.5. Giải thuật in báo cáo...63
3.5. Thiết kế giao diện cho phần mềm quản lý bảo hành - khuyến mại...64
Kết luận...84
Phụ lục...85