Cỏc ký phỏp được sử dụng trong thiết kế giải thuật là:

Giải thuật đăng nhập chương trỡnh B

Bắt đầu

E

Kết thỳc

Tờn xử lý Điều

Xử lý Kiểm tra điều

S Đ Đ S Đ S B Nhập tờn đăng nhập và mật khẩu Kiểm tra tờn đăng nhập Thụng bỏo lỗi Kiểm tra mật khẩu Đăng nhập chương trỡnh Tiếp tục đăng nhập E

Giải thuật thờm một bản ghi mới S S Đ B Mở form cập nhật Thờm bản ghi mới

Điền thụng tin vào cỏc ụ nhập liệu

E

Kiểm tra giỏ trị khoỏ chớnh đó tồn tại trong bảng dữ Chọn lưu thụng tin Tiếp tục thờm bản ghi mới Thụng bỏo mó đó tồn tại.

Thực hiện lưu thụng tin

Giải thuật lưu dữ liệu

B

Chọn lưu dữ liệu

Kiểm tra dữ liệu cần thiết đó nhập đủ chưa?

Kiểm tra bản ghi cú khoỏ chớnh vừa nhập đó tồn tại hay

Đ Đ Nếu ở chế độ thờm mới S E S Nếu ở chế độ sửa S Thụng bỏo chưa nhập đủ dữ liệu. Bổ sung bản ghi vào bảng S Đ Thụng bỏo mó đó tồn tại. Đ Cập nhật dữ liệu đó sửa vào bảng

Giải thuật sửa dữ liệu

E B

Khoỏ Textboxma

Chuyển quyền điều khiển cho ụ nhập liệu tiếp theo

Chọn bản ghi cần sửa

Hiệu chỉnh bản ghi

Giải thuật xúa dữ liệu E B Kiểm tra Textboxma cú Đ Cú chắc chắn muốn xúa bản ghi này

S

Xúa bản ghi khỏi bảng dữ liệu Chọn bản ghi cần xoỏ

S

Giải thuật in dữ liệu B E Kiểm tra bảng dữ liệu đó mở chưa? Mở bảng dữ liệu Trỡnh bày dữ liệu Đ S

Giải thuật thay đổi mật khẩu

B A

Nhập tờn đăng nhập, mật khẩu cũ, mật khẩu mới

Kiểm tra tờn đăng nhập đó tồn tại hay

Kiểm tra mật khẩu cũ cú đỳng khụng? Đổi mật khẩu cũ bằng mật khẩu mới E A Thụng bỏo tờn đăng nhập khụng đỳng

Cú muốn thay đổi mật khẩu lại Thụng bỏo mật khẩu khụng đỳng Đ Đ S S S Đ

KẾT LUẬN

Túm lại, hệ thống thụng tin quản lý dịch vụ chăm súc khỏch hàng đó thực hiện được cỏc chức năng là: quản lý dịch vụ phỏt triển phần mềm “may đo”, quản lý dịch vụ đào tạo khỏch hàng, quản lý dịch vụ hỗ trợ và bảo trỡ, tra cứu, thống kờ bỏo cỏo.

Hệ thống thụng tin quản lý dịch vụ chăm súc khỏch hàng đó giải quyết được cỏc yờu cầu đặt ra của cụng ty. Hệ thống mới đó đem lại một phương phỏp chăm súc khỏch hàng khoa học, giỳp nõmg cao hiệu quả năng suất phục vụ khỏch hàng của nhõn viờn, đồng thời giảm chi phớ quản lý, giảm thời gian đỏp ứng cỏc yờu cầu và giải quyết cỏc yờu cầu của khỏch hàng.

Do thời gian nghiờn cứu cú hạn nờn hệ thống thụng tin khụng trỏnh khỏi thiếu sút nhưng nú đó gúp phần giải quyết những vấn đề cấp bỏch ngày nay trong dịch vụ chăm súc khỏch hàng.

Cuối cựng em xin chõn thành cảm ơn thầy giỏo Đoàn Quốc Tuấn đó tận tỡnh hướng dẫn và giỳp đỡ em hoàn thành chuyờn đề tụt nghiệp này. Em xin chõn thành cảm ơn giỏm đốc điều hành Lờ Khắc Bỡnh đó tạo điều kiện thuận lợi cho em trong quỏ trỡnh thực tập tại cụng ty. Xin chõn thành cảm ơn cỏc anh chị trong cụng ty dó giỳp đỡ và cung cấp nhiều tài liệu cú ớch giỳp em hoàn thành chuyờn đề này.

PHỤ LỤC

Một số đoạn code của chương trỡnh ‘ Code của mode

Public cn As New ADODB.Connection Public flag_chon_khach Public flag_chon_pm Public flag_chon_nv Public flag_chon_nhom Sub open_mdb() Dim str As String

str = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data

Source=C:\Documents and Settings\TN\Desktop\Nhung12\luan_van\luan_van.mdb" DE1.CN1.ConnectionString = str DE1.CN1.Open cn.Open str End Sub

Public Function checkdate(strdate As String) Dim temp As Integer

Dim strtemp As String temp = 3

If IsNumeric(Left(strdate, 1)) Then If IsNumeric(Mid(strdate, 2, 1)) Then If Left(strdate, 2) <= 31 Then

If Mid(strdate, temp, 1) = "/" Then

If IsNumeric(Mid(strdate, temp + 1, 1)) Then If IsNumeric(Mid(strdate, temp + 2, 1)) Then If Mid(strdate, temp + 1, 2) <= 12 Then If Mid(strdate, temp + 3, 1) = "/" Then strtemp = Left(strdate, temp + 3) If IsDate(strdate) Then

checkdate = strtemp & Format(strdate, "yyyy") Else GoTo msgdate End If End If Else GoTo msgdate End If Else

If Mid(strdate, temp + 2, 1) = "/" Then strtemp = Left(strdate, temp + 2) If IsDate(strdate) Then

checkdate = strtemp & Format(strdate, "yyyy") Else GoTo msgdate End If End If End If Else GoTo msgdate

End If Else GoTo msgdate End If Else GoTo msgdate End If Else If Mid(strdate, 2, 1) = "/" Then temp = 2 GoTo mask1 Else GoTo msgdate End If End If Else msgdate: checkdate = "1" End If End Function

‘ Code của chức năng khảo sỏt nhu cầu xõy dựng phần mềm “may đo” Option Explicit

Private flag As String

Private Sub Cmdchon_nv_Click() flag_chon_nv = "phieu_ks" Frmchon_nv.Show

Cmdluu.SetFocus End Sub

Private Sub Cmdsua_Click() flag = "sua"

un_lock_text

Txtma.Enabled = False MaskEdBox1.SetFocus End Sub

Private Sub Cmdthoat_Click() Beep

Unload Me End Sub

Private Sub Cmdin_Click() Dim str

str = " shape {select phieu_ks.*, nhan_vien.ho_ten from phieu_ks, nhan_vien where phieu_ks.ma_nv =nhan_vien.ma_nv and ma_pks = '" & Trim(Txtma) & "'}" DE1.Commands(14).CommandText = str If DE1.rsphieu_ks.State = 0 Then DE1.rsphieu_ks.Open End If DE1.rsphieu_ks.Requery report_phieu_ks.Show 1 End Sub

Private Sub Cmdmoi_Click() flag = "moi" un_lock_text set_null SSTab1.Tab = "0" End Sub

Private Sub Cmdtracuu_Click() Frmtracuu_khaosat.Show End Sub

Private Sub Cmdxoa_Click() Dim str

Dim traloi As String If Trim(Txtma) = "" Then Exit Sub

End If

traloi = MsgBox("Bạn có chắc chắn muốn xoá phiếu khảo sát này không?", vbYesNo + vbQuestion, "Thông báo")

If traloi = vbNo Then set_null

un_lock_text Exit Sub Else

str = "delete * from phieu_ks where ma_pks = '" & Trim(Txtma) & "'" cn.Execute (str)

End If set_null lock_text

display_listview End Sub

Private Sub Cmdluu_Click()

Dim rs As New ADODB.Recordset Dim str

If Trim(Txtma) = "" Or Trim(MaskEdBox1) = "" Or Trim(Txtma_nv) = "" Or Trim(Txtten_nv) = "" Or Trim(Txtma_nc) = "" Or Trim(Txtphuong_phap) = "" Or Trim(Txtnguoi_trach_nhiem) = "" Or Trim(Txtnguoi_gap) = "" Or Trim(Txtpham_vi) = "" Or Trim(Txtnam) = "" Or Trim(Txtkt_tochuc) = "" Or Trim(Txtkt_kithuat) = "" Or Trim(Txtkt_thoigian) = "" Or Trim(Txtkt_taichinh) = "" Then

MsgBox "Chú ý: Phải nhập dữ liệu đầy đủ trớc khi lu", vbOKOnly + vbExclamation, "Thông báo"

Exit Sub End If

str = "select * from phieu_ks where ma_pks = '" & Trim(Txtma) & "'" rs.Open str, cn

If rs.EOF = True Then

str = "insert into phieu_ks values( '" & Trim(Txtma) & "','" & Trim(MaskEdBox1) & "','" & Trim(Txtma_nv) & "','" & Trim(Txtma_nc) & "','" & Trim(Txtphuong_phap) & "','" & Trim(Txtnguoi_trach_nhiem) & "','" & Trim(Txtnguoi_gap) & "','" & Trim(Txtpham_vi) & "','" & Trim(Txtnam) & "','" & Trim(Txtkt_tochuc) & "','" & Trim(Txtkt_kithuat) & "','" &

Trim(Txtkt_thoigian) & "','" & Trim(Txtkt_taichinh) & "','" & Trim(Txttiep_tuc) & "')"

cn.Execute (str) Else

If flag = "moi" Then

MsgBox "Mã phiếu khảo sát [ " & Txtma & "] đã tồn tại. Vui lònh kiểm tra lại", vbOKOnly + vbExclamation, "Thông báo"

set_null un_lock_text Exit Sub End If

flag = "sua"

str = " update phieu_ks set ngay_ks = # " & Format(MaskEdBox1, "dd/mm/yyyy") & "#" & " ,ma_nv = '" & Trim(Txtma_nv) & "',"

str = str & "ma_ncpm = '" & Trim(Txtma_nc) & "', phuong_phap = '" &

Trim(Txtphuong_phap) & "',nguoi_tnhiem = '" &

Trim(Txtnguoi_trach_nhiem) & "',"

str = str & "nguoi_gap = '" & Trim(Txtnguoi_gap) & "', pv_ahuong = '" & Trim(Txtpham_vi) & "', th_duan = '" & Trim(Txtnam) & "',"

str = str & "khathi_tchuc = '" & Trim(Txtkt_tochuc) & "', khathi_kthuat = '" & Trim(Txtkt_kithuat) & "',khathi_tgian = '" & Trim(Txtkt_thoigian) & "', khathi_tchinh = '" & Trim(Txtkt_taichinh) & "', tiep_tuc = '" & Trim(Txttiep_tuc) & "' where ma_pks = '" & Trim(Txtma) & "'"

cn.Execute (str) End If

set_null lock_text

display_listview Cmdmoi.SetFocus End Sub

Private Sub Cmdchon_nc_phan_mem_Click() Frmchon_nc_phan_mem.Show 1

Cmdluu.SetFocus End Sub

Private Sub Form_Load() lock_text

display_listview

Me.Move (Screen.Width - Me.Width) * 0.5, (Screen.Height - Me.Height) * 0.5

End Sub

Private Sub set_null() Txtma = "" MaskEdBox1 = "__/__/____" Txtma_nv = "" Txtten_nv = "" Txtma_nc = "" Txtphuong_phap = "" Txtnguoi_trach_nhiem = "" Txtnguoi_gap = "" Txtpham_vi = "" Txtnam = ""

Txtkt_tochuc = "" Txtkt_kithuat = "" Txtkt_thoigian = "" Txtkt_taichinh = "" Txttiep_tuc.Value = 1 End Sub

Private Sub display_listview()

Dim rs As New ADODB.Recordset Dim rs1 As New ADODB.Recordset Dim str

Dim mitem As ListItem Lvitem.ListItems.Clear

str = "select * from phieu_ks order by ma_pks asc"

rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then

While Not rs.EOF

Set mitem = Lvitem.ListItems.Add(, , rs!ma_pks) mitem.SubItems(1) = rs!ngay_ks

mitem.SubItems(2) = rs!ma_nv

str = "select ho_ten from nhan_vien where ma_nv = '" & rs!ma_nv & "'" rs1.Open str, cn

If rs1.EOF = False Then

mitem.SubItems(3) = rs1!ho_ten End If

rs1.Close

mitem.SubItems(5) = rs!tiep_tuc rs.MoveNext

Wend End If End Sub

Private Sub un_lock_text() Txtma.Enabled = True MaskEdBox1.Enabled = True Txtma_nv.Enabled = True Txtten_nv.Enabled = True Txtma_nc.Enabled = True Txtphuong_phap.Enabled = True Txtnguoi_trach_nhiem.Enabled = True Txtnguoi_gap.Enabled = True Txtpham_vi.Enabled = True Txtnam.Enabled = True Txtkt_tochuc.Enabled = True Txtkt_kithuat.Enabled = True Txtkt_thoigian.Enabled = True Txtkt_taichinh.Enabled = True Txttiep_tuc.Enabled = True Txtma.SetFocus Cmdmoi.Enabled = False Cmdluu.Enabled = True Cmdsua.Enabled = False Cmdxoa.Enabled = False

End Sub

Private Sub Lvitem_ItemClick(ByVal Item As MSComctlLib.ListItem) Dim rs As New ADODB.Recordset

Dim str Txtma = Item.Text MaskEdBox1 = Item.SubItems(1) Txtma_nv = Item.SubItems(2) Txtten_nv = Item.SubItems(3) Txtma_nc = Item.SubItems(4) If Item.SubItems(5) Then Txttiep_tuc = 1 Else Txttiep_tuc = 0 End If

str = "select * from phieu_ks where ma_pks = '" & Trim(Txtma) & "' " rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText

If rs.EOF = False Then

Txtphuong_phap = rs!phuong_phap Txtnguoi_trach_nhiem = rs!nguoi_tnhiem Txtnguoi_gap = rs!nguoi_gap Txtpham_vi = rs!pv_ahuong Txtnam = rs!th_duan Txtkt_tochuc = rs!khathi_tchuc Txtkt_kithuat = rs!khathi_kthuat Txtkt_thoigian = rs!khathi_tgian Txtkt_taichinh = rs!khathi_tchinh

End If rs.Close

Cmdsua.Enabled = True Cmdxoa.Enabled = True End Sub

Private Sub Txtma_GotFocus() Txtma.BackColor = &H80000013 End Sub

Private Sub Txtma_KeyPress(KeyAscii As Integer) Select Case KeyAscii

Case 13

MaskEdBox1.SetFocus End Select

End Sub

Private Sub Txtma_LostFocus() Txtma.BackColor = &H80000005 End Sub

Private Sub maskedbox1_GotFocus() MaskEdBox1.BackColor = &H80000013 End Sub

Private Sub maskedbox1_KeyPress(KeyAscii As Integer) Select Case KeyAscii

Case 13

Txtma_nv.SetFocus

If checkdate(MaskEdBox1) = "1" Then

MsgBox "Chú ý: Dữ liệu kiểu ngày tháng. Vui lòng kiểm tra lại", vbOKOnly + vbExclamation, "Thông báo"

MaskEdBox1.SetFocus Exit Sub

End If End Select End Sub

Private Sub maskedbox1_LostFocus() MaskEdBox1.BackColor = &H80000005 End Sub

Private Sub Txtma_nv_GotFocus() Txtma_nv.BackColor = &H80000013 End Sub

Private Sub Txtma_nv_KeyPress(KeyAscii As Integer) Dim rs As New ADODB.Recordset

Dim str

Select Case KeyAscii Case 13

str = "select ho_ten from nhan_vien where ma_nv = '" & Txtma_nv & "'" rs.Open str, cn

Txtten_nv = rs!ho_ten If flag = "moi" Then Txtma_nc.SetFocus End If

If flag = "sua" Then

flag_chon_nv = "phieu_ks" Frmchon_nv.Show 1 Txtma_nc.SetFocus End If Else flag_chon_nv = "phieu_ks" Frmchon_nv.Show 1 End If End Select End Sub

Private Sub Txtma_nv_LostFocus() Txtma_nv.BackColor = &H80000005 End Sub

Private Sub Txtma_nc_GotFocus() Txtma_nc.BackColor = &H80000013 End Sub

Private Sub Txtma_nc_KeyPress(KeyAscii As Integer) Dim rs As New ADODB.Recordset

Select Case KeyAscii Case 13

str = "select * from nc_phanmem where ma_ncpm = '" & Trim(Txtma_nc) & "'"

rs.Open str, cn

If rs.EOF = False Then If flag = "moi" Then

Txtphuong_phap.SetFocus End If

If flag = "sua" Then

Frmchon_nc_phan_mem.Show 1 Txtphuong_phap.SetFocus End If Else Frmchon_nc_phan_mem.Show 1 End If End Select End Sub

Private Sub Txtma_nc_LostFocus() Txtma_nc.BackColor = &H80000005 End Sub

Private Sub Txtphuong_phap_GotFocus() Txtphuong_phap.BackColor = &H80000013 End Sub

Private Sub Txtphuong_phap_KeyPress(KeyAscii As Integer) Select Case KeyAscii

Case 13

Txtnguoi_trach_nhiem.SetFocus End Select

End Sub

Private Sub Txtphuong_phap_LostFocus() Txtphuong_phap.BackColor = &H80000005 End Sub

Private Sub Txtnguoi_trach_nhiem_GotFocus() Txtnguoi_trach_nhiem.BackColor = &H80000013 End Sub

Private Sub Txtnguoi_trach_nhiem_KeyPress(KeyAscii As Integer) Select Case KeyAscii

Case 13

Txtnguoi_gap.SetFocus End Select

End Sub

Private Sub Txtnguoi_trach_nhiem_LostFocus() Txtnguoi_trach_nhiem.BackColor = &H80000005 End Sub

Txtnguoi_gap.BackColor = &H80000013 End Sub

Private Sub Txtnguoi_gap_KeyPress(KeyAscii As Integer) Select Case KeyAscii

Case 13

Txtpham_vi.SetFocus End Select

End Sub

Private Sub Txtnguoi_gap_LostFocus() Txtnguoi_gap.BackColor = &H80000005 End Sub

Private Sub Txtpham_vi_GotFocus() Txtpham_vi.BackColor = &H80000013 End Sub

Private Sub Txtpham_vi_KeyPress(KeyAscii As Integer) Select Case KeyAscii

Case 13

Txtnam.SetFocus End Select

End Sub

Private Sub Txtpham_vi_LostFocus() Txtpham_vi.BackColor = &H80000005

End Sub

Private Sub Txtnam_GotFocus() Txtnam.BackColor = &H80000013 End Sub

Private Sub Txtnam_KeyPress(KeyAscii As Integer) Select Case KeyAscii

Case 13

Txtkt_tochuc.SetFocus SSTab1.Tab = "1" End Select

End Sub

Private Sub Txtnam_LostFocus() Txtnam.BackColor = &H80000005 End Sub

Private Sub Txtkt_tochuc_GotFocus() Txtkt_tochuc.BackColor = &H80000013 End Sub

Private Sub Txtkt_tochuc_KeyPress(KeyAscii As Integer) Select Case KeyAscii

Case 13

Txtkt_kithuat.SetFocus End Select

End Sub

Private Sub Txtkt_tochuc_LostFocus() Txtkt_tochuc.BackColor = &H80000005 End Sub

Private Sub Txtkt_kithuat_GotFocus() Txtkt_kithuat.BackColor = &H80000013 End Sub

Private Sub Txtkt_kithuat_KeyPress(KeyAscii As Integer) Select Case KeyAscii

Case 13

Txtkt_thoigian.SetFocus End Select

End Sub

Private Sub Txtkt_kithuat_LostFocus() Txtkt_kithuat.BackColor = &H80000005 End Sub

Private Sub Txtkt_thoigian_GotFocus() Txtkt_thoigian.BackColor = &H80000013 End Sub

Private Sub Txtkt_thoigian_KeyPress(KeyAscii As Integer) Select Case KeyAscii

Case 13

Txtkt_taichinh.SetFocus End Select

End Sub

Private Sub Txtkt_thoigian_LostFocus() Txtkt_thoigian.BackColor = &H80000005 End Sub

Private Sub Txtkt_taichinh_GotFocus() Txtkt_taichinh.BackColor = &H80000013 End Sub

Private Sub Txtkt_taichinh_KeyPress(KeyAscii As Integer) Select Case KeyAscii

Case 13

Txttiep_tuc.SetFocus SSTab1.Tab = "2" End Select

End Sub

Private Sub Txtkt_taichinh_LostFocus() Txtkt_taichinh.BackColor = &H80000005 End Sub

Private Sub Txttiep_tuc_KeyPress(KeyAscii As Integer) Select Case KeyAscii

Case 13

Cmdluu.SetFocus End Select

End Sub

Private Sub lock_text() Txtma.Enabled = False MaskEdBox1.Enabled = False Txtma_nv.Enabled = False Txtten_nv.Enabled = False Txtma_nc.Enabled = False Txtphuong_phap.Enabled = False Txtnguoi_trach_nhiem.Enabled = False Txtnguoi_gap.Enabled = False Txtpham_vi.Enabled = False Txtnam.Enabled = False Txtkt_tochuc.Enabled = False Txtkt_kithuat.Enabled = False Txtkt_thoigian.Enabled = False Txtkt_taichinh.Enabled = False Txttiep_tuc.Enabled = False Cmdmoi.Enabled = True Cmdluu.Enabled = False Cmdsua.Enabled = True Cmdxoa.Enabled = True End Sub

‘ Code của chức năng tra cứu lỗi và cỏch khắc phục Dim str

Private Sub Cmdin_Click()

Dim rs As New ADODB.Recordset

str = "select loi_khacphuc.* , phan_mem.ten_pm from phan_mem, loi_khacphuc where loi_khacphuc.ma_pm = phan_mem.ma_pm"

If Optten_pm Then

str = str & " and phan_mem.ten_pm like '%" & Txttracuu & "%'" rs.Open str, cn

If rs.EOF = True Then thong_bao Else hien_bc End If End If If Optten_loi Then

str = str & " and loi_khacphuc.ten_loi like '%" & Txttracuu & "%'" rs.Open str, cn

If rs.EOF = True Then thong_bao Else hien_bc End If End If End Sub

Private Sub Cmdthoat_Click() Beep

Unload Me End Sub

Private Sub Optten_loi_Click() Txttracuu = ""

Txttracuu.SetFocus End Sub

Private Sub Optten_pm_Click() Txttracuu = ""

Txttracuu.SetFocus End Sub

Private Sub Txttracuu_GotFocus() Txttracuu.BackColor = &H80000013 End Sub

Private Sub Txttracuu_KeyPress(KeyAscii As Integer) Select Case KeyAscii

Case 13

Cmdin.SetFocus End Select

Private Sub Txttracuu_LostFocus() Txttracuu.BackColor = &H80000005 End Sub

Private Sub Form_Load()

Me.Move (Screen.Width - Me.Width) * 0.5, (Screen.Height - Me.Height) * 0.5

End Sub

Private Sub hien_bc()

DE1.Commands(26).CommandText = str If DE1.rstracuu_loi_khacphuc.State = 0 Then DE1.rstracuu_loi_khacphuc.Open End If DE1.rstracuu_loi_khacphuc.Requery Report_tracuu_loi_khacphuc.Show 1 End Sub

Private Sub thong_bao()

MsgBox "Không có kết quả nào thoả mãn", vbOKOnly + vbExclamation, "Thông báo"

Txttracuu = "" Txttracuu.SetFocus End Sub

DANH MỤC TÀI LIỆU THAM KHẢO

1.Giỏo trỡnh hệ thống thụng tin quản lý.. TS:Trương Văn Tỳ

TS.Trần Thị Song Minh

2.Giỏo trỡnh phõn tớch và thiết kế hệ thống thụng tin quản lý Nguyễn Quang Thụng

3.Giỏo trỡnh CSDL I,II .Trần Cụng Uẩn

MỤC LỤC

LỜI MỞ ĐẦU...1

CHƯƠNG I...3

TỔNG QUAN VỀ CễNG TY PHẦN MỀM QUẢN Lí DOANH NGHIỆP FAST VÀ ĐỀ TÀI THỰC HIỆN...3

1.1 TỔNG QUAN VỀ CễNG TY PHẦN MỀM QUẢN Lí DOANH NGHIỆP FAST...3

1.1.1 Giới thiệu chung...3

1.1.2 Ngành nghề đăng ký kinh doanh của cụng ty gồm:...3

1.1.3 Cỏc sản phẩm của cụng ty...3

1.1.4 Cỏc khỏch hàng của cụng ty ...4

1.1.5 Cơ cấu tổ chức của cụng ty ...5

1.1.6 Mục tiờu của cụng ty ...8

1.2 TỔNG QUAN VỀ ĐỀ TÀI THỰC HIỆN...8

1.2.1 Bài toỏn quản lý dịch vụ chăm súc khỏch hàng...8

1.2.2 Lý do lựa chọn đề tài...10

CHƯƠNG II...12

PHƯƠNG PHÁP LUẬN VỀ HỆ THỐNG THễNG TIN, PHÂN TÍCH, THIẾT KẾ HỆ THỐNG THễNG TIN VÀ CễNG CỤ THỰC HIỆN ĐỀ TÀI...12

2.1 PHƯƠNG PHÁP LUẬN VỀ HỆ THỐNG THễNG TIN...12

2.1.1 Định nghĩa và cỏc bộ phận cấu thành hệ thống thụng tin...12

2.1.2 Phõn loại hệ thống thụng tin trong một tổ chức...12

2.1.3 Mụ hỡnh biểu diễn hệ thống thụng tin...13

2.1.4 Cỏc cụng đoạn của phỏt triển hệ thống...15

2.1.5 Những nguyờn nhõn dẫn đến việc phỏt triển một hệ thống thụng tin mới...18

2.1.6 Tầm quan trọng của một hệ thống thụng tin tốt...18

2.1.7 Phương phỏp phỏt triển một hệ thống thống tin...19

2.1.8 Cơ sở dữ liệu...19

2.2 PHƯƠNG PHÁP LUẬN VỀ PHÂN TÍCH HỆ THỐNG THễNG TIN...20

2.2.1 Cỏc phương phỏp thu thập thụng tin...20

2.2.2 Mó hoỏ dữ liệu...21

2.2.3.Cỏc cụng cụ mụ hỡnh hoỏ hệ thống thụng tin...21

2.3 PHƯƠNG PHÁP LUẬN VỀ THIẾT KẾ HỆ THỐNG THễNG TIN...29

2.3.1 Một số nguyờn tắc cho thiết kế vật lý ngoài...29

2.3.2 Một số nguyờn tắc cho việc trỡnh bày thụng tin trờn màn hỡnh...29

2.3.3 Một số nguyờn tắc cho thiết kế màn hỡnh nhập liệu...30

2.3.4 Thiết kế CSDL bằng phương phỏp mụ hỡnh hoỏ...31

2.4 PHƯƠNG PHÁP LUẬN VỀ CễNG CỤ THỰC HIỆN ĐỀ TÀI...34

CHƯƠNG 3...35

PHÂN TÍCH VÀ THIẾT KẾ HỆ THỐNG THễNG TIN QUẢN Lí DỊCH VỤ CHĂM SểC KHÁCH HÀNG TẠI TY PHẦN MỀM QUẢN Lí DOANH NGHIỆP FAST...35

3.1 PHÂN TÍCH HỆ THỐNG THễNG TIN QUẢN Lí DỊCH VỤ CHĂM SểC KHÁCH HÀNG...35

3.1.1 Phõn tớch yờu cầu...35

3.1.3 Sơ đồ luồng thụng tin...39

3.1.4 Sơ đồ cấu trỳc dữ liệu (DFD)...54

3.2 THIẾT KẾ HỆ THỐNG THễNG TIN...69

3.2.1 Sơ đồ quan hệ thực thể (ERD)...69

3.2.2 Sơ đồ cấu trỳc dữ liệu (DSD)...76

3.2.3 Cỏc giao diện của hệ thống thụng tin quản lý dịch vụ chăm súc khỏch hàng...84

3.2.4 Cỏc ký phỏp được sử dụng trong thiết kế giải thuật là:...102

DANH MỤC HèNH

Hỡnh 1 : Sơ đồ tổ chức của Cụng ty Fast...6

Hỡnh 1 : Sơ đồ tổ chức của Cụng ty FAST...6

Hỡnh 2 : Mụ hỡnh hệ thống thụng tin...12

Hỡnh 3 : Phõn loại hệ thống thụng tin theo lĩnh vực và mức ra quyết định...13

Hỡnh 5 : Sơ đồ luồng thụng tin (IFD) của hệ thống thụng tin quản lý dich vụ chăm súc khỏch hàng...39

Hỡnh 6 : Sơ đồ luồng thụng tin (IFD) của xử lý quản lý dịch vụ phỏt triển phần mềm “may đo”...40

Hỡnh 7 : Sơ đồ luồng thụng tin (IFD) của xử lý quản lý dịch vụ đào tạo khỏch hàng...41

Hỡnh8 : Sơ đồ luồng thụng tin (IFD) của xử lý quản lý dịch vụ hỗ trợ và bảo trỡ...42

Hỡnh 9 : Sơ đồ luồng thụng tin (IFD) của xử lý tra cứu, thống kờ bỏo cỏo...43

Hỡnh 10 : Sơ đồ dữ liệu ngữ cảnh...54

Hỡnh 11 : Sơ đồ luồng dữ liệu mức 0...55

Hỡnh 13 : Sơ đồ luồng dữ liệu mức 1 của xử lý quản lý dịch vụ đào tạo khỏch hàng...57