Xây dựng chương trình quản lý cắt sửa điện thoại

Mục lục Chương Khảo sát thực trạng toán - 1.1 Giới thiệu sơ lược bưu điện tỉnh Phú Thọ - 1.2 Tổ chức hoạt động dịch vụ nhận xử lý máy điện thoại hỏng - 1.2.1 Hoạt động dịch vụ 119 - 1.2.2 Ưu nhược điểm hệ thống - 1.3 Xây dựng hoạt động dịch vụ 119 tự động - 1.3.1 Nhu cầu có hệ thống - 1.3.2 Giới thiệu hệ thống dịch vụ 119 - 1.3.3 Hoạt động dịch vụ 119 tự động - 1.4 Thu nạp tri thức - 12 1.5 Biểu diễn tri thức - 12 1.5.1 Các dạng tri thức - 12 1.5.2 Các phương pháp biểu diễn tri thức - 13 1.6 Tập mờ - 14 1.6.1 Khái niệm tập mờ - 14 1.6.2 Các phép toán tập mờ - 17 1.7 Quan hệ mờ - 18 1.7.1 Khái niệm quan hệ mờ - 18 1.7.2 Hợp thành quan hệ mờ - 18 1.7.3 Nguyên lý mở rộng - 19 1.8 Tổng quát hóa phép toán tập mờ - 19 1.9 Phương pháp khử mờ - 20 1.10 Các hệ trợ giúp định - 20 1.10.1 Giới thiệu - 20 1.10.2 DSS - 21 1.10.3 Các đặc tính khả DSS - 22 1.10.4 Những lợi ích DSS - 23 1.10.5 Các thành phần DSS - 23 1.10.6 Hệ chuyên gia trợ giúp chẩn đoán loại hỏng máy điện thoại - 24 1.11 Suy diễn mờ - 26 1.11.1 Suy diễn mờ - 26 1.11.2 Các phương pháp suy diễn - 26 1.12 Mờ hoá - 27 1.12.1 Mờ hoá đơn thể - 28 -1- 1.12.2 Mờ hoá Gaus - 28 1.12.3 Mờ hoá tam giác - 28 1.13 Kết nối đo thông số kỹ thuật đường dây thuê bao - 28 1.13.1 Mô hình kết nối máy tính tổng đài trung tâm - 29 1.13.2 Kỹ thuật kết nối - 29 1.13.3 Thực phép đo tự động - 29 1.13.4 Phân tích kết quả, cập nhật kho liệu - 30 1.14 Xây dựng hệ hỗ trợ định - 31 1.14.1 Các tham số suy diễn - 31 1.14.2 Định nghĩa mờ hoá biến logic vào - 32 1.14.3 Định nghĩa luật mờ - 34 1.14.4 Lựa chọn hệ sở liệu ngôn ngữ lập trình - 35 Chương Phân tích thiết kế chương trình - 37 2.1 Đặc tả toán - 37 2.1.1 Giới thiệu chung - 37 2.1.2 Đặc tả công việc - 38 2.2 Phân tích sơ đồ - 43 2.2.1 Sơ đồ tổ chức - 43 2.2.2 Sơ đồ môi trường - 43 2.2.3 Sơ đồ chức nghiệp vụ (bfd) - 44 2.2.4 Sơ đồ dòng liệu (data flow diagram - dfd) - 47 Chương Thiết kế chương trình - 51 3.1 Xây dựng mô hình liệu thực thể (erd) - 51 3.2 Xây dựng mô hình liệu quan hệ (rdm) - 51 3.2.1 Xác định tập thực thể - 51 3.2.2 Cấu trúc tập tin sở liệu - 52 3.2.3 Sơ đồ liên kết tập tin sở liệu - 58 3.2.4 Các chương trình hệ thống - 59 3.2 Một số giao diện chức chương trình chương trình - 69 Phụ Lục - 73 Kết Luận - 101 Tài liệu tham khảo - 102 - -2- Danh mục hình Hình 1: Mô hình hệ thống báo sử lý máy hỏng tự động 119 Hình 2: Nguyên lý hoạt động hệ thống 10 Hình 3: Quá trình thu nhận tri thức 12 Hình 4: Cấu trúc hệ chuyên gia 26 Hình 5: Sơ đồ tổ chức 43 Hình 6: Sơ đồ môi trường 43 Hình 7: Sơ đồ chức nghiệp vụ 44 Hình 8: Sơ đồ chức hệ thống 44 Hình 9: Sơ đồ chức cập nhật tập luật chẩn đoán 44 Hình 10: Sơ đồ chức quản lý thuê bao 45 Hình 11: Sơ đồ chức quản lý máy hỏng máy sửa chữa 45 Hình 12: Sơ đồ chức báo cáo 46 Hình 13: Sơ đồ chức chi tiết cập nhật thuê bao 46 Hình 14: Sơ đồ chức chi tiết cập nhật máy bị chêm 46 Hình 15: Sơ đồ dòng lữ liệu tổng quát 47 Hình 16: Sơ đồ dòng liệu chức quản lý thuê bao 48 Hình 17: Sơ đồ dòng liệu chức quản lý máy hỏng máy sửa 49 chữa Hình 18: Sơ đồ luồng liệu chức quản lý nghiệp vụ 50 Hình 19: Sơ đồ liên kết thực thể 58 Hình 20: Sơ đồ giải thuật nhập thuê bao 60 Hình 21: Sơ đồ giải thuật hiệu chỉnh thuê bao 61 Hình 22: Sơ đồ giải thuật xoá thuê bao 63 Hình 23: Sơ đồ giải thuật kết nối tổng đài lấy kết đo thông số 65 Hình 24: Sơ đồ giải thuật suy diễn xác định loại hỏng máy điện thoại 67 -3- Lời nói đầu Trong giai đoạn nay, với phát triển vượt bậc ngành điện tử, công nghệ thông tin phát triển nhanh chóng ngành bưu điện nhằm tăng nhanh số lượng thuê bao điện thoại chất lượng phục vụ khách hàng Với phương châm tắt, đón đầu công nghệ ngành bưu điện trọng vấn đề áp dụng kỹ thuật mới, đặc biệt lĩnh vực công nghệ thông tin ngành áp dụng triệt để khoa học kỹ thuật, công tác quản lý, khai thác điều hành sản xuất kinh doanh Tuy nhiên, với phát triển nhanh chóng số lượng thuê bao điện thoại, bưu điện tỉnh, thành phải đối mặt trước vấn đề khó khăn làm để đảm bảo chất lượng thông tin trì liên tục thông tin cho khách hàng Một nghiệp vụ quan trọng đặt việc quản lý, đo thử sửa chữa thuê bao Kết hợp kiến thức thực tế nghiệp vụ bưu điện có qua thời gian tìm hiểu đài tự động Phú Thọ đài đo thử 119 trung tâm với kiến thức tin học học, em định chọn đề tài Xây dựng chương trình quản lý cắtsửa chữa điện thoại hỏng cách ứng dụng lý thuyết tập mờ lập luận mờ để chẩn đoán loại hỏng máy điện thoại dựa thông số trạng thái kỹ thuật đường dây thuê bao mà tổng đài đo Lý thuyết tập mờ mở rộng sở lý thuyết tập hợp, cung cấp cho công cụ mạnh xử lý thông tin mang tính chất không xác không chắn Các hệ hỗ trợ định dựa sở lý thuyết mờ áp dụng nhiều lĩnh vực: chẩn đoán, nhận dạng, dự báo, giảng dạy, tự động hóa Hệ hỗ trợ chẩn đoán loại hỏng máy điện thoại trình bày đồ án thử nghiệm ứng dụng lý thuyết tập mờ lập luận mờ, góp phần đẩy mạnh công tác nghiên cứu khoa học, bước tin học hóa việc khai thác, quản lý điều hành sản xuất kinh doanh dịch vụ bưu viễn thông cách có hiệu quả, đặc biệt tự động hóa số dịch vụ để tăng cường tính xác giảm chi phí sản xuất (nhân công, công cụ) Hệ chương trình cài đặt -4- môi trường Windows, hệ quản trị sở liệu SQL Server ngôn ngữ lập trình Visual Basic 6.0 Đồ án hoàn thành với giúp đỡ tận tình cô giáo hướng dẫn Đặng Thị Oanh, thầy cô giáo khoa công nghệ thông tin đại học Thái Nguyên Em xin chân thành cám ơn cô Đặng Thị Oanh, thầy cô giáo, bạn bè cô công tác bưu điện tỉnh Phú Thọ giúp đỡ em hoàn thành đồ án Thái Nguyên, tháng năm 2007 -5- Chương Khảo sát thực trạng toán 1.1 Giới thiệu sơ lược bưu điện tỉnh Phú Thọ Bưu điện tỉnh Phú Thọ đặt 1468 đường Hùng Vương thành phố Việt Trì Tổng số công nhân viên chức bưu điện khoảng gần 700 người Bưu điện có 14 phòng ban chính: Phòng Tổ Chức, Phòng Tổng Hợp Thi Đua, Phòng Kế Hoạch-ĐT, Phòng Thanh Tra, Phòng Tài Chính Kế Toán, Phòng Viễn Thông Tin Học, Phòng Kiểm Toán Nội Bộ, Phòng Bưu Chính, Phòng Hành Chính Quản Trị, Phòng Y Tế, Tổ Lái Xe, Nhà Khách, Phòng Kỹ Thuật Ngoài bưu điện có công ty điện báo điện thoại, trung tâm chăm sóc khách hàng, trung tâm thu cước, điểm bưu điện văn hoá Thành Phố, huyện, xã đại lý tỉnh Sau 10 năm đổi với kế hoạch tăng tốc ngành bưu điện, nói chất lượng mạng lưới viễn thông nước ta ngang tầm với nước khu vực bước tiếp cận với nước tiên tiến giới Tại tỉnh Phú Thọ, năm 1997 có khoảng 5000 máy điện thoại hoạt động với kỹ thuật lạc hậu, dịch vụ hạn chế, với sách đổi thay đổi công nghệ từ kỹ thuật Analog sang Digital làm tốc độ mạng lưới phát triển nhanh chóng kèm dịch vụ gia tăng tổng đài điện tử đem lại nhiều tiện ích cho khách hàng, đến sau gần 10 năm phát triển, tổng số máy có toàn mạng 90000 máy, tăng 16 lần so với năm 1997 tỷ lệ đạt gần 50 máy/100 dân Hiện nay, mạng lưới viễn thông tỉnh Phú Thọ số hoá 100%, kết cấu bao gồm 02 tổng đài trung tâm (OCB : Organization Center Basic) 10 trạm vệ tinh (CSND : Center Satellite Numberic Distance) phân bố rộng khắp toàn địa bàn tỉnh có khả phát triển đến 200000 máy điện thoại thuê bao Tốc độ phát triển máy điện thoại tỉnh Phú Thọ khoảng 8000 máy/năm, với phát triển sở hạ tầng sách đổi thành phố, chắn số lượng máy điện thoại thành phố tiếp tục tăng nhanh năm tới -6- 1.2 Tổ chức hoạt động dịch vụ nhận xử lý máy điện thoại hỏng 1.2.1 Hoạt động dịch vụ 119 Khi khách hàng có máy điện thoại bị hỏng gọi số 119 (từ máy điện thoại nào), nhân viên đài 119 tiếp nhận điện thoại ghi lại số máy bị hỏng, sau thực phép đo đồng hồ, đo trực tiếp đường dây thuê bao Căn giá trị điện áp trả qua mạch vòng đường dây thuê bao đồng hồ đo, qua kinh nghiệm thực tế, người khai thác viên phán đoán loại hỏng (đứt, chập dây, hỏng máy ) tiến hành cập nhật máy loại hỏng vào mạng máy tính công ty Các đội sửa chữa dây máy thường xuyên kiểm tra số liệu mạng để xác định số lượng máy hỏng thuộc khu vực phụ trách phân công nhân viên sửa chữa kịp thời Khi khắc phục xong, nhân viên xử lý gọi điện thông báo lại cho đài 119 kiểm tra lại cập nhật số liệu để phục vụ cho công việc báo cáo theo dõi quản lý 1.2.2 Ưu nhược điểm hệ thống Ưu điểm - Khi dịch vụ số liệu quản lý tập trung thuận lợi công tác điều hành sản xuất, khách hàng hài lòng với thời gian chất lượng khắc phục máy hỏng - Khách hàng làm quen với số máy 119 để báo hỏng - Trao đổi số liệu đài 119 đội sửa chữa qua mạng máy tính Công ty nên thống mặt số liệu, báo cáo thống kê thực cách dể dàng xác, giải khiếu nại khách hàng nhanh chóng xác Nhược điểm - Nhân viên phán đoán trạng thái hỏng máy điện thoại mang tính thụ động, phụ thuộc vào kinh nghiệm nên kết chưa chắn, nên đôi lúc kéo dài thời gian sửa chữa - Nhân viên đài 119 phải thao tác qua nhiều công đoạn: Tiếp nhận máy hỏng, đo thử, xác định trạng thái hư hỏng, cập nhật vào hệ thống, số lượng máy điện thoại hỏng nhiều khó đáp ứng kịp thời -7- 1.3 Xây dựng hoạt động dịch vụ 119 tự động 1.3.1 Nhu cầu có hệ thống Do nhu cầu phát triển mạnh hệ thống viễn thông, số lượng máy điện thoại ngày gia tăng nhanh, lỗi thời sai sót hệ thống khai thác quản lý cũ chắn không phù hợp Cho nên cần phải xây dựng lại hệ thống khai thác dịch vụ 119 để phục vụ nhu cầu khách hàng với thời gian ngắn điều quan trọng giảm bớt số công đoạn làm việc căng thẳng cho nhân viên đài 119, tránh sai sót, cáu gắt với khách hàng nhân viên xử lý số lượng máy hỏng nhiều Trong dịch vụ này, khó khăn thực chẩn đoán loại hỏng máy điện thoại thuê bao thời gian chờ lấy số liệu từ tổng đài lâu (hơn phút cho máy), đôi lúc bị nghẽn thực nhanh được, thời gian mưa bão Ngoài phải thực công đoạn máy tính tự giao tiếp với tổng đài trung tâm thực phép đo, xây dựng hệ hỗ trợ định chẩn đoán loại hỏng máy điện thoại từ kết đo Nếu thực thành công đề tài ứng dụng thực tế tiết kiệm chi phí nhân công (từ 10 người giảm xuống người), giảm thời gian xử lý tăng thêm niềm tin khách hàng với ngành bưu điện 1.3.2 Giới thiệu hệ thống dịch vụ 119 Hệ thống cần phải khắc phục nhược điểm hệ thống cũ, tăng suất lao động, giảm chi phí, tạo niềm tin uy tín khách hàng Khi máy điện thoại bị hỏng, khách hàng cần gọi 119 thông báo số máy hỏng, nhân viên đài 119 tiếp nhận thực nhập số máy hỏng vào kho liệu chung Tất công đoạn từ việc kết nối tổng đài thực phép đo định trạng thái hỏng hoàn toàn máy tính thực thay cho nhân viên Ta có mô hình hệ thống báo sử lý máy hỏng (hình 1): -8- CSDN OCB Trung tâm CSDN OCB Nông Trang OFC RS 232C Máy tính liên kết Đài 119 Máy tính liên kết HUB Máy tính đơn vị Mạng máy tính công ty Máy tính đội sửa chữa Máy tính lãnh đạo Hình 1: Mô hình hệ thống báo sử lý máy hỏng tự động 119 1.3.3 Hoạt động dịch vụ 119 tự động Khi máy hỏng, đâu hay lúc khách hàng cần gọi 119 có nhân viên trực tiếp nhận gọi đưa thông tin số máy hỏng vào máy tính (số liệu báo hỏng cập nhật vào kho liệu) Máy tính giao tiếp với tổng đài trung tâm bắt đầu thực phép đo lấy thông số kỹ thuật đồng thời kết hợp với thông tin lưu trữ thực suy diễn, chẩn đoán loại hỏng máy điện thoại cập nhật kho thông tin Nhiệm vụ thực tiếp nhận số liệu, thực đo hệ hỗ trợ định máy tiếp giao tiếp với tổng đài trung tâm thực Số liệu lưu trữ kho thông tin chung mạng máy tính công ty Các đội xử lý có quản lý máy điện thoại thuê bao, định kỳ kết nối mạng lấy số liệu máy hỏng thuộc đơn vị mình, thực in xử lý cho khách -9- hàng Sau thực xử lý xong cập nhật lại báo cho hệ thống thực hiện, máy tính giao tiếp tổng đài thực đo kiểm tra có đủ điều kiện kỹ thuật chưa Nếu chưa đủ điều kiện thông tin máy hỏng đưa cho đơn vị quản lý, ngược lại xử lý tốt kết thông báo hoàn thành Tất thông tin hệ thống báo xử lý máy hỏng thực báo cáo qua mạng máy tính công ty, lãnh đạo phòng ban chức nắm thông tin Qua đạo điều hành việc quản lý sửa chữa máy hỏng thuận lợi nhanh chóng, góp phần hoàn thành tiêu kế hoạch giảm nhẹ chi phí hoạt động sản xuất Khách hàng báo hỏng Nhận báo hỏng Lọc máy hỏng Đo thử Hợp lệ Suy diễn Đi sửa Báo sửa Báo kết Hỏng Tình trạng hỏng Tốt Nhận kết Kết thúc Hình 2: Nguyên lý hoạt động hệ thống Trong hệ thống hoạt động dịch vụ báo xử lý máy hỏng 119 chuyên gia đóng vai trò quan trọng định loại hỏng số máy điện thoại thuê bao, góp phần việc xử lý hỏng nhanh hay chậm công nhân kỹ thuật dây máy - 10 - MsgBox "Xin vui lòng chọn kết luận luật", vbInformation + vbOKOnly, "Yêu cầu" Me.cbmKet_luan.SetFocus Exit Sub End If If Trim(Me.txtDo_chinh_xac) = "" Then MsgBox "Xin vui lòng nhập độ xác", vbInformation + vbOKOnly, "Yêu cầu" Me.txtDo_chinh_xac.SetFocus Exit Sub End If ' -Tim ma loai hong -Dim Loai_hong2 As ADODB.Recordset Set Loai_hong2 = New ADODB.Recordset Loai_hong2.Source = "select Ma_loai_hong from tblLoaihong where Trang_thai_hong ='" & Me.cbmKet_luan.text & "' " Loai_hong2.ActiveConnection = TL Loai_hong2.Open ' Neu dang them luat -If Me.cmdThem.Enabled = True Then Dim Do_chinh_xac As String Do_chinh_xac = "" ' -Cap nhat cac gia tri cua luat moi -With Luat_suy_dien AddNew Fields(0).Value = Tao_ma Fields(10).Value = Loai_hong2.Fields(0).Value Fields(11).Value = Me.txtDo_chinh_xac.text If Me.chkAC_A_dat.Value = Then Fields(1).Value = True Do_chinh_xac = "M1*" Else Fields(1).Value = False End If If Me.ChkAC_B_dat.Value = Then Fields(2).Value = True Do_chinh_xac = Do_chinh_xac & "M2*" Else Fields(2).Value = False End If If Me.ChkDc_A_dat.Value = Then Fields(3).Value = True Do_chinh_xac = Do_chinh_xac & "M3*" Else Fields(3).Value = False End If If Me.chkDc_B_dat.Value = Then Fields(4).Value = True Do_chinh_xac = Do_chinh_xac & "M3*" - 88 - Else Fields(4).Value = False End If If Me.chkR_a_dat.Value = Then Fields(5).Value = True Do_chinh_xac = Do_chinh_xac & "M3*" Else Fields(5).Value = False End If If Me.chkR_B_dat.Value = Then Fields(6).Value = True Do_chinh_xac = Do_chinh_xac & "M3*" Else Fields(6).Value = False End If If Me.chkR_A_B.Value = Then Fields(7).Value = True Do_chinh_xac = Do_chinh_xac & "M3*" Else Fields(7).Value = False End If If Me.ChkF_AB.Value = Then Fields(8).Value = True Do_chinh_xac = Do_chinh_xac & "M3*" Else Fields(8).Value = False End If If Me.chkLoai_TB.Value = Then Fields(9).Value = True Do_chinh_xac = Do_chinh_xac & "M3*" Else Fields(9).Value = False End If Update Requery ' -Dien cac gia tri vao form -Me.lblTongsoluat.Caption = RecordCount MoveLast Me.lblLuat_thu.Caption = Fields(0).Value Do_chinh_xac = Do_chinh_xac & Fields(10).Value Me.txtDo_chinh_xac.text = Do_chinh_xac End With End If ' -Neu dang sua luat If Me.cmdSua.Enabled = True Then ' -Cap nhat cac gia tri -With Luat_suy_dien - 89 - .Fields(10).Value = Loai_hong2.Fields(0).Value Fields(11).Value = Me.txtDo_chinh_xac.text If Me.chkAC_A_dat.Value = Then Fields(1).Value = True Do_chinh_xac = "M1*" Else Fields(1).Value = False End If If Me.ChkAC_B_dat.Value = Then Fields(2).Value = True Do_chinh_xac = Do_chinh_xac & "M2*" Else Fields(2).Value = False End If If Me.ChkDc_A_dat.Value = Then Fields(3).Value = True Do_chinh_xac = Do_chinh_xac & "M3*" Else Fields(3).Value = False End If If Me.chkDc_B_dat.Value = Then Fields(4).Value = True Do_chinh_xac = Do_chinh_xac & "M3*" Else Fields(4).Value = False End If If Me.chkR_a_dat.Value = Then Fields(5).Value = True Do_chinh_xac = Do_chinh_xac & "M3*" Else Fields(5).Value = False End If If Me.chkR_B_dat.Value = Then Fields(6).Value = True Do_chinh_xac = Do_chinh_xac & "M3*" Else Fields(6).Value = False End If If Me.chkR_A_B.Value = Then Fields(7).Value = True Do_chinh_xac = Do_chinh_xac & "M3*" Else Fields(7).Value = False End If If Me.ChkF_AB.Value = Then Fields(8).Value = True Do_chinh_xac = Do_chinh_xac & "M3*" Else Fields(8).Value = False - 90 - End If If Me.chkLoai_TB.Value = Then Fields(9).Value = True Do_chinh_xac = Do_chinh_xac & "M3*" Else Fields(9).Value = False End If Update Requery End With End If Baoloi: If Err.Number = 3021 Then MsgBox "Lỗi liệu, ý kiểm tra phần nhập liệu cho kết luận ", vbInformation + vbOKOnly, "Thông báo" Exit Sub End If End Sub Private Sub cmdFirst_Click() ' -Dien gia tri vao cac Checkbox Dim Ma_Loai_hong As String Dim Do_chinh_xac As String Do_chinh_xac = "" If Luat_suy_dien.Fields(1).Value = True Then Me.chkAC_A_dat.Value = Do_chinh_xac = "M1*" End If If Luat_suy_dien.Fields(2).Value = True Then Me.ChkAC_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M2*" End If If Luat_suy_dien.Fields(3).Value = True Then Me.ChkDc_A_dat.Value = Do_chinh_xac = Do_chinh_xac & "M3*" End If If Luat_suy_dien.Fields(4).Value = True Then Me.chkDc_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M4*" End If If Luat_suy_dien.Fields(5).Value = True Then Me.chkR_a_dat.Value = Do_chinh_xac = Do_chinh_xac & "M5*" End If If Luat_suy_dien.Fields(6).Value = True Then Me.chkR_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M6*" End If - 91 - If Luat_suy_dien.Fields(7).Value = True Then Me.chkR_A_B.Value = Do_chinh_xac = Do_chinh_xac & "M7*" End If If Luat_suy_dien.Fields(8).Value = True Then Me.ChkF_AB.Value = Do_chinh_xac = Do_chinh_xac & "M8*" End If If Luat_suy_dien.Fields(9).Value = True Then Me.chkLoai_TB.Value = Do_chinh_xac = Do_chinh_xac & "M9*" End If Do_chinh_xac = Do_chinh_xac & Luat_suy_dien.Fields(11).Value Me.txtDo_chinh_xac.text = Do_chinh_xac Ma_Loai_hong = Luat_suy_dien.Fields(10).Value ' Tim ket luan -Set Loai_hong = New ADODB.Recordset Loai_hong.Source = "Select Trang_thai_hong from tblLoaihong where Ma_loai_hong='" & Ma_Loai_hong & "'" Loai_hong.ActiveConnection = TL Loai_hong.Open 'Me.cbmKet_luan.text = Loai_hong.Fields(0).Value Me.lblLuat_thu.Caption = Luat_suy_dien.Fields(0).Value End Sub Private Sub cmdLast_Click() Luat_suy_dien.MoveLast ' Xoa cac checkbox Me.chkAC_A_dat.Value = Me.ChkAC_B_dat.Value = Me.ChkDc_A_dat.Value = Me.chkDc_B_dat.Value = Me.chkR_a_dat.Value = Me.chkR_B_dat.Value = Me.chkR_A_B.Value = Me.ChkF_AB.Value = Me.chkLoai_TB.Value = ' -Dien gia tri vao cac Checkbox Dim Ma_Loai_hong As String Dim Do_chinh_xac As String Do_chinh_xac = "" If Luat_suy_dien.Fields(1).Value = True Then Me.chkAC_A_dat.Value = Do_chinh_xac = "M1*" End If If Luat_suy_dien.Fields(2).Value = True Then Me.ChkAC_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M2*" End If - 92 - If Luat_suy_dien.Fields(3).Value = True Then Me.ChkDc_A_dat.Value = Do_chinh_xac = Do_chinh_xac & "M3*" End If If Luat_suy_dien.Fields(4).Value = True Then Me.chkDc_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M4*" End If If Luat_suy_dien.Fields(5).Value = True Then Me.chkR_a_dat.Value = Do_chinh_xac = Do_chinh_xac & "M5*" End If If Luat_suy_dien.Fields(6).Value = True Then Me.chkR_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M6*" End If If Luat_suy_dien.Fields(7).Value = True Then Me.chkR_A_B.Value = Do_chinh_xac = Do_chinh_xac & "M7*" End If If Luat_suy_dien.Fields(8).Value = True Then Me.ChkF_AB.Value = Do_chinh_xac = Do_chinh_xac & "M8*" End If If Luat_suy_dien.Fields(9).Value = True Then Me.chkLoai_TB.Value = Do_chinh_xac = Do_chinh_xac & "M9*" End If Do_chinh_xac = Do_chinh_xac & Luat_suy_dien.Fields(11).Value Me.txtDo_chinh_xac.text = Do_chinh_xac Ma_Loai_hong = Luat_suy_dien.Fields(10).Value ' Tim ket luan -Set Loai_hong = New ADODB.Recordset Loai_hong.Source = "Select Trang_thai_hong from tblLoaihong where Ma_loai_hong='" & Ma_Loai_hong & "'" Loai_hong.ActiveConnection = TL Loai_hong.Open Me.lblLuat_thu.Caption = Luat_suy_dien.Fields(0).Value End Sub Private Sub cmdSua_Click() On Error GoTo thoat ' Tao du lieu cho Combobox Ket luan -Dim Loai_hong1 As ADODB.Recordset Set Loai_hong1 = New ADODB.Recordset Loai_hong1.Source = "Select Trang_thai_hong from tblLoaihong " Loai_hong1.ActiveConnection = TL Loai_hong1.Open Loai_hong1.MoveFirst - 93 - Do Until Loai_hong1.EOF Me.cbmKet_luan.AddItem Loai_hong1.Fields(0).Value Loai_hong1.MoveNext Loop Me.cbmKet_luan.ListIndex = -1 thoat: End Sub Private Sub cmdThem_Click() ' -Mo cac checkbox -Me.chkAC_A_dat.Value = Me.ChkAC_B_dat.Value = Me.ChkDc_A_dat.Value = Me.chkDc_B_dat.Value = Me.chkR_a_dat.Value = Me.chkR_B_dat.Value = Me.chkR_A_B.Value = Me.ChkF_AB.Value = Me.chkLoai_TB.Value = Me.cbmKet_luan.text = "" Me.txtDo_chinh_xac.text = "" Me.lblLuat_thu.Caption = "" Me.chkAC_A_dat.Enabled = True Me.ChkAC_B_dat.Enabled = True Me.ChkDc_A_dat.Enabled = True Me.chkDc_B_dat.Enabled = True Me.chkR_a_dat.Enabled = True Me.chkR_B_dat.Enabled = True Me.chkR_A_B.Enabled = True Me.ChkF_AB.Enabled = True Me.chkLoai_TB.Enabled = True Me.cbmKet_luan.Locked = False Me.txtDo_chinh_xac.Locked = False Me.cmdDong_y_them.Enabled = True Me.cmdBo_qua_them.Enabled = True ' Bao cho chuong trinh biet dang them luat -Them = True ' Tao du lieu cho Combobox Ket luan -Dim Loai_hong1 As ADODB.Recordset Set Loai_hong1 = New ADODB.Recordset Loai_hong1.Source = "Select Trang_thai_hong from tblLoaihong " Loai_hong1.ActiveConnection = TL Loai_hong1.Open Loai_hong1.MoveFirst Do Until Loai_hong1.EOF Me.cbmKet_luan.AddItem Loai_hong1.Fields(0).Value Loai_hong1.MoveNext Loop Me.cbmKet_luan.ListIndex = -1 End Sub - 94 - Private Sub cmdTim_Click() frmTimLuat.Show End Sub Private Sub Command5_Click() End Sub Private Sub cmdXoa_Click() If MsgBox("Bạn chắn muốn xóa luật ?", vbCritical + vbYesNo, " Chú ý ") = vbYes Then ' -xoa luat -Luat_suy_dien.Delete Luat_suy_dien.Update ' Sua lai cac Ma Luat Luat_suy_dien.MoveFirst Dim Ma_luat_xoa As Byte Ma_luat_xoa = Do Ma_luat_xoa = Ma_luat_xoa + If Len(Trim(Str(Ma_luat_xoa))) = Then Luat_suy_dien.Fields(0).Value = Trim(0 & Trim(Str(Ma_luat_xoa))) Else Luat_suy_dien.Fields(0).Value = Trim(Str(Ma_luat_xoa)) End If Luat_suy_dien.Update Luat_suy_dien.MoveNext Loop Until Luat_suy_dien.EOF Luat_suy_dien.Requery ' Dien cac gia tri vao form -If Not (Luat_suy_dien.BOF) Then Luat_suy_dien.MovePrevious If Luat_suy_dien.BOF Then Luat_suy_dien.MoveNext End If Me.lblTongsoluat.Caption = Luat_suy_dien.RecordCount ' -Dien gia tri vao cac Checkbox Dim Ma_Loai_hong As String Dim Do_chinh_xac As String Do_chinh_xac = "" If Luat_suy_dien.Fields(1).Value = True Then Me.chkAC_A_dat.Value = Do_chinh_xac = "M1*" End If If Luat_suy_dien.Fields(2).Value = True Then Me.ChkAC_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M2*" End If If Luat_suy_dien.Fields(3).Value = True Then Me.ChkDc_A_dat.Value = Do_chinh_xac = Do_chinh_xac & "M3*" End If - 95 - If Luat_suy_dien.Fields(4).Value = True Then Me.chkDc_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M4*" End If If Luat_suy_dien.Fields(5).Value = True Then Me.chkR_a_dat.Value = Do_chinh_xac = Do_chinh_xac & "M5*" End If If Luat_suy_dien.Fields(6).Value = True Then Me.chkR_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M6*" End If If Luat_suy_dien.Fields(7).Value = True Then Me.chkR_A_B.Value = Do_chinh_xac = Do_chinh_xac & "M7*" End If If Luat_suy_dien.Fields(8).Value = True Then Me.ChkF_AB.Value = Do_chinh_xac = Do_chinh_xac & "M8*" End If If Luat_suy_dien.Fields(9).Value = True Then Me.chkLoai_TB.Value = Do_chinh_xac = Do_chinh_xac & "M9*" End If Do_chinh_xac = Do_chinh_xac & Luat_suy_dien.Fields(11).Value Ma_Loai_hong = Luat_suy_dien.Fields(10).Value ' Tim ket luan -Set Loai_hong = New ADODB.Recordset Loai_hong.Source = "Select Trang_thai_hong from tblLoaihong where Ma_loai_hong='" & Ma_Loai_hong & "'" Loai_hong.ActiveConnection = TL Loai_hong.Open Me.cbmKet_luan.text = Loai_hong.Fields(0).Value ' -Tim thu tu luat Me.lblLuat_thu.Caption = Luat_suy_dien.Fields(0).Value End If End If thoat: End Sub Private Sub Command9_Click() Unload Me End Sub Private Sub Form_Load() Them = False Sua = False Set TL = New ADODB.Connection TL.Provider = "SQLOLEDB.1" - 96 - TL.ConnectionString = "Persist Security Info=False;User ID=sa;Initial Catalog=DULIEU;Data Source=vu" TL.Open Set Luat_suy_dien = New ADODB.Recordset Luat_suy_dien.LockType = adLockOptimistic Luat_suy_dien.CursorType = adOpenKeyset Luat_suy_dien.Source = "Select * from tblTapluat order by Ma_luat" Luat_suy_dien.ActiveConnection = TL Luat_suy_dien.Open Luat_suy_dien.MoveFirst ' -Dien gia tri vao cac Checkbox Dim Ma_Loai_hong As String Dim Do_chinh_xac As String Do_chinh_xac = "" If Luat_suy_dien.Fields(1).Value = True Then Me.chkAC_A_dat.Value = Do_chinh_xac = "M1*" End If If Luat_suy_dien.Fields(2).Value = True Then Me.ChkAC_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M2*" End If If Luat_suy_dien.Fields(3).Value = True Then Me.ChkDc_A_dat.Value = Do_chinh_xac = Do_chinh_xac & "M3*" End If If Luat_suy_dien.Fields(4).Value = True Then Me.chkDc_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M4*" End If If Luat_suy_dien.Fields(5).Value = True Then Me.chkR_a_dat.Value = Do_chinh_xac = Do_chinh_xac & "M5*" End If If Luat_suy_dien.Fields(6).Value = True Then Me.chkR_B_dat.Value = Do_chinh_xac = Do_chinh_xac & "M6*" End If If Luat_suy_dien.Fields(7).Value = True Then Me.chkR_A_B.Value = Do_chinh_xac = Do_chinh_xac & "M7*" End If If Luat_suy_dien.Fields(8).Value = True Then Me.ChkF_AB.Value = Do_chinh_xac = Do_chinh_xac & "M8*" End If If Luat_suy_dien.Fields(9).Value = True Then Me.chkLoai_TB.Value = - 97 - Do_chinh_xac = Do_chinh_xac & "M9*" End If Do_chinh_xac = Do_chinh_xac & Luat_suy_dien.Fields(11).Value Me.txtDo_chinh_xac.text = Do_chinh_xac ' Tim ket luan -Set Loai_hong = New ADODB.Recordset Loai_hong.Source = "Select Trang_thai_hong from tblLoaihong where Ma_loai_hong='" & Ma_Loai_hong & "'" Loai_hong.ActiveConnection = TL Loai_hong.Open Me.lblLuat_thu.Caption = Luat_suy_dien.Fields(0).Value Me.lblTongsoluat.Caption = Luat_suy_dien.RecordCount End Sub Exit Sub End If End If End Sub 3.Mã Code form cập nhật máy hỏng Option Explicit Const ConnectSever = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DULIEU;Data Source=vu" Public MDH As Connection Public May_dang_hong As ADODB.Recordset Private Sub cmdDa_sua_xong_Click() FrmNhap_So_may_hong.Show End Sub Private Sub cmdDo_kiem_tra_Click() Dim Somay, Ngay_gio_XP As String Somay = Me.txtSo_may.text If Somay "" Then Else MsgBox "Bạn phải chọn số máy cần đo kiểm tra", , "Thông báo" End If End Sub Private Sub cmdThoat_Click() Unload Me End Sub Private Sub cmdXuat_phieu_Click() Dim Somay, Ngay_gio_XP As String Somay = Me.txtSo_may.text If Somay "" Then Else MsgBox "Bạn phải chọn số máy cần in", , "Thông báo" End If End Sub Private Sub DataGrid1_Click() - 98 - Dim BaoLutHong As ADODB.Recordset Set BaoLutHong = New ADODB.Recordset Dim QuanTrongHong As ADODB.Recordset Set QuanTrongHong = New ADODB.Recordset Dim ChemCM_hong As ADODB.Recordset Set ChemCM_hong = New ADODB.Recordset Dim text As String On Error GoTo thoat Me.txtSo_may.text = May_dang_hong.Fields(0).Value Me.txtTen_khach_hang.text = May_dang_hong.Fields(5).Value Me.txtCLASS.text = May_dang_hong.Fields(12).Value Me.txtDuong_pho.text = May_dang_hong.Fields(8).Value Me.txtSo_nha.text = IIf(IsNull(May_dang_hong.Fields(7).Value), " ", May_dang_hong.Fields(7).Value) Me.txtNoi_dat_may.text = May_dang_hong.Fields(6).Value Me.txtLoai_thiet_bi.text = May_dang_hong.Fields(13).Value Me.txtMDF.text = May_dang_hong.Fields(9).Value Me.txtCap_goc.text = May_dang_hong.Fields(10).Value Me.txtDoi_so.text = May_dang_hong.Fields(11).Value Me.txtLoai_hong.text = May_dang_hong.Fields(3).Value 'txtMa_Tbi.text = AdoSo_lieu_chinh.Recordset.Fields(11).Value ' -Xet xem co bao lut va quan khong text = May_dang_hong.Fields(0) BaoLutHong.Source = " SELECT So_may From tblBaolut WHERE So_may = " & text & " " BaoLutHong.ActiveConnection = MDH BaoLutHong.Open QuanTrongHong.Source = " SELECT so_may From tblQuantrong WHERE So_may = " & text & " " QuanTrongHong.ActiveConnection = MDH QuanTrongHong.Open ' -Tim may bao lut If Not (BaoLutHong.EOF And BaoLutHong.BOF) Then Me.chkBaolut.Value = End If ' -Tim may QUAN TRONG If Not (QuanTrongHong.EOF And QuanTrongHong.BOF) Then Me.chkQuantrong.Value = End If thoat: End Sub Private Sub Form_Activate() Set MDH = New ADODB.Connection MDH.Provider = "SQLOLEDB.1" MDH.ConnectionString = "Persist Security Info=False;User ID=sa;Initial Catalog=DULIEU;Data Source=vu" MDH.Open Set May_dang_hong = New ADODB.Recordset May_dang_hong.LockType = adLockOptimistic - 99 - May_dang_hong.CursorType = adOpenKeyset Dim Tam As Date Tam = Format(Now - 7, "hh:nn:ss d/m/yy") May_dang_hong.Source = "Select tblDienthoaihong.So_may,ngay_gio_hong,tblDienthoaihong.ma_loai_hong,tblLo aihong.Trang_thai_hong,tblDienthoaihong.ngay_gio_xuat_phieu,Ten_Kh,Noi_d_ may,So_nha,D_pho,Toa_do_MDF,Cap_goc,Doi_so,CLASS,Ten_Tbi from tblDienthoaihong, tblDienthoai,tblKhachHang,tblThietbi,tblLoaihong Where tblDienthoaihong.So_may=tblDienthoai.So_may and tblDienThoai.Ma_Kh = tblKhachHang.Ma_Kh and tblDienthoai.Ma_Tbi=tblThietBi.Ma_Tbi and tblDienthoaihong.Ma_loai_hong=tblLoaiHong.Ma_loai_hong" ' and ngay_gio_sua_xong is null order by ngay_gio_hong desc" ngay_gio_sua_xong is null order by ngay_gio_hong desc " May_dang_hong.ActiveConnection = MDH May_dang_hong.Open Set Me.DataGrid1.DataSource = May_dang_hong End Sub Private Sub txtDang_chem_Change() End Sub Private Sub txtTim_Click() FrmTim_may_dang_hong.Show End Sub - 100 - Kết Luận Qua qúa trình làm đồ án tốt nghiệp giúp em hiểu sâu vào việc xây dựng chương trình ứng dụng cụ thể thực tế, việc giải toán thực tế phải qua công đoạn để giúp cho việc xây dựng toán thực tế đạt hiệu cao Mặc dù có nhiều cố gắng thời gian thực đề tài có hạn, kiến thức lĩnh vực chuyên môn thiếu nên đề tài nhiều điều thiếu sót, em mong muốn giúp đỡ, góp ý thầy cô giáo, bạn bè,trong khoa Nếu sau có điều kiện, em tâm tiếp tục nghiên cứu hoàn thiện tốt đề tài này, phát triển mở rộng chương trình quản lý, kết hợp góp phần phát triển mạng lưới viễn thông tỉnh Phú Thọ ngày tốt Một lần em xin chân thành cảm ơn cô giáo Đặng Thị Oanh hướng dẫn em hoàn thành tốt đồ án Em xin chân thành cám ơn - 101 - Tài liệu tham khảo 1- Trần Đình Khang , Nguyễn Thanh Thủy - Xây dựng chế suy diễn sở tri thức mờ - 1998 2- Nguyễn Thanh Thủy- Trí tuệ nhân tạo - Nhà xuất giáo dục - 1995 3- Nguyễn Hoàng Phương, Bùi Công Cường, Nguyễn Doãn Phước, Phan Xuân Minh, Chu Văn Ký - Hệ mờ ứng dụng - Nhà xuất Khoa học kỹ thuật 4- Nông Thị Hoa - Bài giảng hệ chuyên gia - Khoa công nghệ thông tin đại học Thái Nguyên 5- Tiêu chuẩn ngành bưu điện - Tổng cục bưu điện -1998 6- Kỹ thuật Tổng đài Fujisu - 1998 7- Võ Văn Viện - Bài tập thực hành lập trình với VisualBasic 6.0 - NXB tổng hợp Đồng Nai - 2003 8- Nguyễn Văn Dần - Lập trình với VisualBasic - NXB viện ĐH mở HN năm 2002 9- Nguyễn Văn Toàn, Nguyễn Thị Kim Phụng, Nguyễn Đình Loan Phương - Giáo trình lập trình sở với VisualBasic - NXB ĐHQGTPHCM 2003 10- Lập trình Visual Basic 6.0 - Nguyễn Thị Kiều Duyên 11- Phân tích thiết kế hệ thống thông tin - Thạch Bình Cường 12- Giáo trình lập trình CSDL với VisualBasic - Nguyễn Văn Toàn 13- VisualBasic 6.0 lập trình CSDL - Nguyễn Thị Ngọc Mai 14- Tự học SQL Server 21 ngày - Đoàn Thiện Ngân 15- Những thực hành CSDL VisualBasic 6.0 - Đinh Xuân Lâm 16- Lập trình VisualBasic 6.0 - Nguyễn Thị Kiều Duyên 17- Đinh Mạnh Tường - Trí tuệ nhân tạo - NXB Khoa học kỹ thuật HN năm 2002 - 102 -