Đang tải... (xem toàn văn)
Báo cáo thực tập: Xây dựng hệ thống thông tin quản lý công văn tại Trung tâm Hệ thống Thông tin Viễn thông - Chính phủ FPT Information System Telecom and Government FIS TEG
1 MỤC LỤC I Những vấn đề hệ thống thông tin 25 Định nghĩa phận cấu thành hệ thống thông tin .25 Phân loại hệ thống thông tin tổ chức theo mục đích phục vụ thông tin đầu 26 Các giai đoạn phát triển hệ thống 28 Cơng cụ mơ hình hóa 32 II Khái niệm phần mềm quy trình thết kế phần mềm công nghệ phần mềm .35 Khái niệm phần mềm 35 Các quy trình thết kế phần mềm cơng nghệ phần mềm 36 III Tìm hiểu công cụ nghiên cứu đề tài 46 Hệ quản trị sở liệu Microsoft Access 46 Giới thiệu ngơn ngữ lập trình Microsoft Visual Basic 6.0 47 Công cụ làm báo cáo Cristal Report .49 CHƯƠNG 51 I Mơ tả tốn nghiệp vụ .51 Mô tả lời 51 2.Các hồ sơ liên quan 53 - Quản lý công văn 54 Hình 1: Sơ đồ BFD 55 55 Mô tả chi tiết chức 56 DANH MỤC CÁC HÌNH VẼ Hình 1: Sơ đồ BFD………………………………………………………… 56 Hình 2: Sơ đồ IFD …………………………………………………………… 59 Hình 3:Sơ đồ DFD ngữ cảnh……………………………………………… 60 Hình 4: Sơ đồ DFD mức 0…………………………………………………… 61 Hình 5: Sơ đồ DFD mức1: Quản lý cơng văn đến…………………………… 62 Hình 6: Sơ đồ DFD mức 1: Quản lý cơng văn đến…………………………… 63 Hình 7: Sơ đồ DFD mức 1: Báo cáo thống kê………………………………….64 Hình 8: Sơ đồ DFD mức 1: Tìm kiếm cơng văn……………………………… 65 Hình 9: Sơ đồ quan hệ thực thể ERP……………………………………………66 Hình 10: Sơ đồ cấu trúc liệu (DSD)…………………………………………71 Hình 11: Giao diện chính…………………………………………………… 77 Hình 13: Đổi mật khẩu………………………………………………………….78 Hình 14: Cập nhật cơng văn…………………………………………………….79 Hình 15: Danh sách nhân viên ……………………………………………… 80 Hình 16: Danh mục đơn vị…………………………………… …………… 81 Hình 17:Cập nhật loại cơng văn……………………………………………… 82 Hình 18:Tìm kiếm cơng văn……………………………………………………83 Hình 19:Phân cơng nhiệm vụ………………………………………………… 84 Hình 20 Báo cáo cơng văn đến theo tháng…………………………………… 85 Hình 21 Báo cáo cơng văn theo tháng…………………………………… 86 Hình 22 Báo cáo cơng văn xử lý theo tháng……………………………….87 Hình 23 Báo cáo công văn hạn……………………………………………88 LỜI MỞ ĐẦU Xã hội loài người bước sang thời đại xã hội công nghệ thông tin Thông tin tri thức trở thành nguồn lực quan trọng hoạt động người, thông tin phục vụ sản xuất, thông tin phục vụ quản lý Người sản xuất cần thông tin nhằm phục vụ cho việc sản xuất sản phẩm có tính cạnh tranh thị trường, nhà lãnh đạo cần thông tin để định xác kịp thời Đầu thông tin mà nhà lãnh đạo cần thường thể dạng báo cáo Ngày với hỗ trợ hệ thống máy tính, thơng tin xử lý thành liệu cần thiết, phục vụ tốt cho hoạt động định Hầu hết cơng ty tồn giới dù hoạt động lĩnh vực ứng dụng Công Nghệ Thông Tin vào hoạt động với hình thức qui mơ khác Do hàng loạt cơng ty phần mềm đời góp phần làm phong phú thêm thị trường phần mềm ứng dụng lĩnh vực lĩnh vực kinh tế, tạo điều kiện thuận lợi cho công ty kinh doanh quản lý hoạt động hiệu Ỏ nước ta hầu hết doanh nghiệp đưa tin học hóa vào cơng tác quản lý nhằm mang lại hiệu lợi ích Trung tâm Hệ Thống Thơng Tin Viễn Thơng Chính Phủ khơng nằm ngồi xu hướng chung Là phận công ty trách nhiện hữu hạn Hệ Thống Thông Tin FPT-chuyên sản xuất phầm mềm ứng dụng cho doanh nghiệp vừa nhỏ, hết Trung tâm hiểu rõ nhu cầu thiết việc tin học hóa cơng tác quản lý Trung tâm sử dụng số phần mềm quản lý như: phần mềm quản lý nhân sự, phần mềm quản lý khách hàng, phần mềm quản lý công văn viết FoxPro… Là doanh nghiệp đà phát triển lớn mạnh, để đảm bảo cho trình hoạt động Trung tâm tốt, người lãnh đạo có sách quản lý nhanh chóng, kịp thời Trung tâm cần phải tiếp tục tiến hành tin học hóa sâu nữa, tiếp tục hoàn thiện phần mềm quản lý có, mở rộng thêm lĩnh vực ứng dụng tin học hóa Và hội để đề tài “Xây dựng hệ thống thông tin quản lý công văn Trung tâm Hệ Thống Thơng Tin Viễn thơng_Chính phủ FPT Information System Telecom and Goverment FIS TEG” thực hiện, giúp hoàn thiện thêm cho phần mềm có Ngồi phần khác, cấu trúc khóa luận tốt nghiệp bao gồm chương • Chương 1: Tổng quan quan thực tập giới thiệu hệ thống thông tin quản lý công văn Giới thiệu tổng quan Công ty Hệ Thống Thông Tin FPT, Trung tân Hệ Thống Thông Tin Viễn Thơng Chính Phủ: cấu tổ chức, chức phịng ban Lý lựa chọn đề tài, tính khả thi đề tài công cụ để thực đề tài • Chương 2: Cơ sở phương pháp luận Trình bày khái quát phương pháp luận làm sở cho việc nghiên cứu đề tài • Chương 3: Phân tích thiết kế hệ thống thơng tin quản lý cơng văn Trình bày q trình khảo sát thơng tin tốn ‘quản lý cơng văn’ Trung tâm để từ tiến hành phân tích thiết kế chi tiết hệ thống Xây dựng phần mềm dựa sở thiết kế hệ thống Vì thời gian có hạn, lần đầu sâu nghiên cứu vấn đề nghiệp vụ quản lý cơng văn Trung tâm cộng thêm kiến thức cịn hạn chế nên khóa luận tốt nghiệp em cịn nhiều thiếu sót Vậy em mong đóng góp ý kiến thầy bạn bè để khóa luận tốt nghiệp em hồn thiện Em xin chân thành cảm ơn tới thầy cô giáo khoa Tin Học Kinh Tế đặc biệt thầy Bùi Thế Ngũ – người xem xét đưa ý kiến đóng góp, đánh giá giúp em kịp thời bổ sung chỗ thiếu sót để em hồn thành tốt khóa luận tốt nghiệp Em xin gửi lời cảm ơn tới công ty FPT, anh Nguyễn Việt Dũng người hướng dẫn trưc tiếp cho em, chị Lê Thị Hiền cán nhân tồn thể anh chị phịng Test Trung Tâm Hệ Thống Thơng Tin Viễn Thơng Chính Phủ tận tình giúp đỡ, tạo điều kiện cho em thực tập tốt hồn thành khóa luận tốt nghiệp thời gian thực tập vừa qua CHƯƠNG TỔNG QUAN VỀ CƠ QUAN THỰC TẬP VÀ GIỚI THIỆU HỆ THỐNG THÔNG TIN QUẢN LÝ CÔNG VĂN I Tổng quan quan thực tập Giới thiệu công ty Hệ Thống Thông Tin FPT Tên công ty : Công ty Trách Nhiệm Hữu Hạn Hệ Thống Thông Tin FPT Tên tiếng Anh : FPT Information System Tên giao dịch : FIS Trụ sở : 101 Láng Hạ-Đống Đa-Hà Nội Điện thoại : (+84 ) 5626000 Fax : (+84 ) 5624850 Chi nhánh : 51 Lê Đại Hành -Hai Bà Trưng -Hà Nội Người hướng dẫn: Nguyễn Việt Dũng - trưởng phòng test Điện thoại : 04 5626000 máy lẻ 2340 Website : www.fis.com.vn 1.1 Sơ đồ tổ chức FPT 1.2 Sản phẩm dịch vụ FPT Nguồn lực công nghệ Tài &ngân hàng TRUNG TÂM PHÁT TRIỂN OFFSHORE PHÁT TRIỂN ỨNG DỤNG TỐI ƯU HÓA PHẦN MỀM : 20 ERP : ORACLE, SAP, MS Dynamic CRM: Siebel, Dynamic CRM HRM: ORACLE HRM, Peoplesoft Banking: Iflex, Temenos, Reuters, Switching Application BẢO HÀNH VÀ HỖ TRỢ PHẦN MỀM BiẾN ĐỔI VÀ DI TRÚ DỮ LIỆU DỊCH VỤ PHÁT TRIỂN NỘI DUNG DI ĐỘNG DỊCH VỤ KIỂM TRA Yt ế Telecom: Intec Billing, ZTE Billing 1.3 10 line kinh doanh dẫn đầu FPT Phát triển Giải pháp phần mềm Tích hợp hệ thống Outsourcing phần mềm Các dịch vụ ERP Phân phối sản phẩm ICT Dịch vụ Internet Cung cấp dịch vụ viễn thông Dịch vụ trực tuyến Lắp ráp máy tính Đào tạo CNTT nh Doa iệp ngh Tà ic n hính g Dịch vụ triển khai TÍCH HỢP PHẦN MỀM g ng T ô Thô V ễn Viễn Á h nh hín ch ii c Tà Tà cơng Data Warehouse Ch ín hp hủ MS NET/VB/MS SQL : 150 ORACLE database : 500 ORACLE form/developer : 200 IBM Websphere : 100 Java : 80 SAP : 30 ORACLE ERP : 150 1.4 Các số FPT 10 1.5 Các đối tác công nghệ FPT 101 CongVan2TLDinhKem.MaTLDinhKem = TaiLieuDinhKem.MaTLDinhKem Where CongVan.MaCongVan=" & txtMaCV Set txtSubMaCV.DataSource = SubAdo txtSubMaCV.DataField = SubAdo.Recordset.fields(0).Name Set DataGrid1.DataSource = SubAdo: DataGrid1.Refresh showDataOnCombo cbbLoaiCV, "Select TenLoai from LoaiCongVan order by MaLoai" showDataOnCombo cbbMucDoKhan, "Select MucDoKhan from MucDoKhan order by MaDoKhan" showDataOnCombo cbbTrangThai, "Select TrangThai from TrangThai order by MaTrangThai" showDataOnCombo cbbNoiGui, "Select TenDonVi from DonVi order by MaDonVi" showDataOnCombo cbbNoiDen, "Select TenDonVi from DonVi order by MaDonVi" showDataOnCombo cbbTenTLDK, "SELECT TenTaiLieu FROM TaiLieuDinhKem order by MaTLDinhKem" Exit Sub Form_LoadErrLabel: 'MsgBox Err.Description End Sub 102 Private Sub Image1_Click() ' Chu thich truong GuiNhan bang CongVan2DonVi ' GuiNhan=1 la Nhan ' GuiNhan=2 la Gui (Noi khac gui den minh) (Minh gui di noi khac) ' GuiNhan=1 la nhan/gui (Minh nhan, xu ly roi lai gui di) End Sub Private Sub mainAdd_Click() SetEmpty mainColl: SetEmpty subColl SubAdo.RecordSource = "SELECT CongVan.TenCongVan AS [Tên Công Văn], TaiLieuDinhKem.TenTaiLieu AS [Tên Tài Liệu Đính Kèm] FROM (CongVan INNER JOIN CongVan2TLDinhKem ON CongVan.MaCongVan = CongVan2TLDinhKem.MaCongVan) INNER JOIN TaiLieuDinhKem ON CongVan2TLDinhKem.MaTLDinhKem = TaiLieuDinhKem.MaTLDinhKem Where CongVan.MaCongVan=-1" SubAdo.Recordset.Requery: SubAdo.Refresh isMainAddNew = True: MainAdo.Recordset.AddNew 'txtMaHang.Enabled = False: txtSoLuong.Enabled = False SubUpdate.Enabled = False: SubAdd.Enabled = False: SubDelete.Enabled = False 'SubFirst.Enabled = False: SubPrev.Enabled = False: SubNext.Enabled = False: SubLast.Enabled = False txtTenCV.SetFocus End Sub 103 Private Sub mainClose_Click() If isMainAddNew Or isSubAddNew Then ShowMsg "Bạn thêm Bạn có mn hđy bá kh«ng?", "Thong Bao", If MsgYes Then If isMainAddNew Then CancelAddNew True If isSubAddNew Then CancelAddNew False End If End If Unload Me End Sub Private Sub mainDelete_Click() On Error GoTo mainDeleteErrLabel Dim cmd As New ADODB.Command If Not isMainAddNew Then ShowMsg "Bạn có muốn xóa không?", "Thong Bao", Else ShowMsg "Bạn thêm Bạn có muốn hủy bỏ không?", "Thong Bao", If MsgYes Then If isMainAddNew Then CancelAddNew True If isSubAddNew Then CancelAddNew False Exit Sub 104 End If End If If MsgYes And Not isMainAddNew Then cmd.ActiveConnection = Conn cmd.CommandType = adCmdUnknown 'cmd.CommandText = "Delete * from CongVan2TLDinhKem where MaCongVan=" & txtMaCV 'cmd.Execute cmd.CommandText = "Delete * from CongVan where MaCongVan=" & txtMaCV cmd.Execute MainAdo.Recordset.Requery: MainAdo.Refresh SubAdo.RecordSource = "SELECT CongVan.TenCongVan AS [Tên Công Văn], TaiLieuDinhKem.TenTaiLieu AS [Tên Tài LiƯu §Ýnh KÌm] FROM (CongVan INNER JOIN CongVan2TLDinhKem ON CongVan.MaCongVan = CongVan2TLDinhKem.MaCongVan) INNER JOIN TaiLieuDinhKem ON CongVan2TLDinhKem.MaTLDinhKem = TaiLieuDinhKem.MaTLDinhKem Where CongVan.MaCongVan=" & txtMaCV SubAdo.Recordset.Requery: SubAdo.Refresh End If Exit Sub mainDeleteErrLabel: 'Text1 = CStr(Err.Number) & " " & Err.Description 'MsgBox Err.Description 105 If Err.Number = -2147467259 Then ShowMsg "Đang có liệu liên kết bảng Không thể xóa!", "Loi", End If End Sub Sub CancelAddNew(isMain As Boolean) If isMain Then MainAdo.Recordset.CancelBatch: isMainAddNew = False SubUpdate.Enabled = True: SubAdd.Enabled = True: SubDelete.Enabled = True MainAdo.Refresh Else isSubAddNew = False: SubAdo.Refresh End If End Sub Private Sub mainFirst_Click() On Error GoTo mainFirst_ClickErrLabel If isMainAddNew Or isSubAddNew Then ShowMsg "Bạn thêm Bạn có muốn hủy bỏ không?", "Thong Bao", If MsgYes Then If isMainAddNew Then CancelAddNew True If isSubAddNew Then CancelAddNew False 106 Else Exit Sub End If End If MainAdo.Recordset.MoveFirst SubAdo.RecordSource = "SELECT CongVan.TenCongVan AS [Tên Công Văn], TaiLieuDinhKem.TenTaiLieu AS [Tên Tài Liệu Đính Kèm] FROM (CongVan INNER JOIN CongVan2TLDinhKem ON CongVan.MaCongVan = CongVan2TLDinhKem.MaCongVan) INNER JOIN TaiLieuDinhKem ON CongVan2TLDinhKem.MaTLDinhKem = TaiLieuDinhKem.MaTLDinhKem Where CongVan.MaCongVan=" & txtMaCV SubAdo.Recordset.Requery: SubAdo.Refresh Exit Sub mainFirst_ClickErrLabel: End Sub Form phân công xử lý Private Sub btnHuyPhanCong_Click() On Error GoTo btnHuyPhanCong_ClickErrLabel Dim sql As String sql = "Delete * from NhanVien2CongVan where MaCongVan=" & Text1 sql = sql & " and MaNhanVien=" & CStr(GetRealValue("Select MaNhanVien from NhanVien where HoTen='" & lstNhanVien.List(lstNhanVien.ListIndex) & "' And MaPB=27")) Conn.Execute sql 107 btnHuyPhanCong.Enabled = False Call lstNhanVien_Click Dim pos As Integer If optChuaPhanCong.value = False Then pos = Adodc1.Recordset.AbsolutePosition Adodc1.Refresh Adodc1.Recordset.AbsolutePosition = pos End If Exit Sub btnHuyPhanCong_ClickErrLabel: End Sub Private Sub btnPhanCong_Click() On Error GoTo btnPhanCong_ClickErrLabel Dim sql As String If lstNhanVien.ListIndex = -1 Or txtCongViec = "" Then ShowMsg "H·y chän nh©n viên nhập nội dung công việc phân c«ng!", "Thong Bao", Exit Sub End If sql = "Delete * from NhanVien2CongVan where MaCongVan=" & Text1 sql = sql & " and MaNhanVien=" & CStr(GetRealValue("Select MaNhanVien from NhanVien where HoTen='" & lstNhanVien.List(lstNhanVien.ListIndex) & "' And MaPB=27")) Conn.Execute sql 108 sql = "Insert into NhanVien2CongVan values('" & CStr(GetRealValue("Select MaNhanVien from NhanVien where HoTen='" & lstNhanVien.List(lstNhanVien.ListIndex) & "' And MaPB=27")) & "'," & Text1 & ",'" & txtCongViec & "')" Conn.Execute sql btnHuyPhanCong.Enabled = True Call lstNhanVien_Click Dim pos As Integer If optChuaPhanCong.value = False Then pos = Adodc1.Recordset.AbsolutePosition Adodc1.Refresh Adodc1.Recordset.AbsolutePosition = pos End If Exit Sub btnPhanCong_ClickErrLabel: If Err.Number = -2147217887 Then ShowMsg "Trùng mÃ! Không phân công đợc", "Loi", End If End Sub Private Sub Command1_Click() Unload Me End Sub 109 Private Sub Form_Load() On Error GoTo Form_LoadErrLabel ControlXP1.SetupControlXPUni Dim cvRs As New ADODB.Recordset, i As Integer cvRs.Open "Select MaNhanVien,HoTen from NhanVien Where MaPB=27", Conn, adOpenKeyset, adLockOptimistic For i = To cvRs.RecordCount - lstNhanVien.AddItem cvRs(1) cvRs.MoveNext Next cvRs.Close RowFilter lstNhanVien.ListIndex = Call lstNhanVien_Click Exit Sub Form_LoadErrLabel: End Sub 110 Báo cáo công văn hạn Private Sub Command1_Click() On Error GoTo Command1_ClickErrLabel Dim sql As String, rs As New ADODB.Recordset Dim whereClause As String If txtSoNgay = "" Then ShowMsg "H·y chän số ngày trớc in báo cáo", "Loi", Exit Sub ElseIf CInt(txtSoNgay)
