Chương trình quản lí hợp đồng thuê bao điện thoại

Tài liệu tham khảo chuyên ngành tin học Chương trình quản lí hợp đồng thuê bao điện thoại

1 LỜI NÓI ĐẦU Sau thời gian thực tập tìm hiểu quan Bưu điện tỉnh Lai Châu Phịng Kinh doanh Viễn thơng Tin học, với kiến thức, kinh nghiệm trình thực tập tơi viết nên báo cáo tổng hợp này.Trong báo cáo tổng hợp trình bày Bưu điện tỉnh Lai Châu phịng Kinh doanh Viễn thơng Tin học nơi tơi thực tập.Và báo cáo trình bày ln đề tài: ”Chương trình quản lí hợp đồng thuê bao điện thoại”, đề tài thực tập Ngày ,các công nghệ khoa học ,kỹ thuật ngày phát triển vũ bão,trong khoa học máy tính phát triển mạnh mẽ xâm nhập vào lĩnh vực khoa học ,kinh tế ,xã hội ,quản lý , máy tính có đóng góp khả tuyệt vời tới tất lĩnh vực Từ việc xây dựng chương trình khoa học kỹ thuật lớn đến cơng việc quản lý thường nhật ,máy tính giúp cập nhật ,tìm kiếm lưu trữ thơng tin cách tốt Nhiệm vụ chương trình bao gồm : + Khảo sát thực tế + Quản lý số điện thoại đăng ký thuê bao + Quản lý hoá đơn trả tiền hàng tháng *.chức nhiệm vụ hệ thống Hệ thống quản lý số điện thoại đăng ký thuê bao có chức thường xuyên cho phép cập nhật thông tin khách hàng đồng thời cho phép tính tốn tiền cước tiền th bao hàng tháng Khi cần biết thông tin mà khách hàng đăng ký thuê bao hệ thống phải có nhiệm vụ đưa thơng tin mà khách hàng đăng ký Với chức vậy,hệ thống quản lý số điện thoại đăng ký thuê bao trạm điện thoại có nhiệm vụ ln cập nhật hồ sơ khách hàng ,thường xuyên bổ sung thông tin thay đổi trình hoạt động hệ thống Một nhiệm vụ hệ thống cuối tháng phải có nhiệm vụ in hố đơn tiền hàng tháng khách hàng tức hệ thống cần phải tính tiền cho khách hàng đăng ký thuê bao trạm điện thoại *.yêu cầu hệ thống khó khăn Trước khối lượng lớn khách hàng đăng ký thuê bao yêu cầu đặt việc quản lý theo phương pháp thủ công đáp ứng ,do gặp nhiều khó khăn.Nó địi hỏi phải có nhiều nhân lực,nhiều thời gian cơng sức,mỗi khách hàng trạm điện thoại cho đăng ký có hồ sơ việc lưu trữ , tìm kiếm,bổ sung, sửa đổi để đáp ứng yêu cầu dễ dàng Từ nhược điểm ta thấy cần thiết phải có hệ thống tin học hoá cho việc quản lý số điện thoại đăng ký thuê bao hệ thống quản lý khác Tuy nhiên khó khăn mà làm việc với hệ thống ta phải thực việc tính tiền cho khách hàng tháng mà q khách hàng gọi Điều có nghĩa phải biết cách tính cước cho gọi với khu vực khác , qua khảo sát nghiên cứu ưu cầu thực tế mà hệ thống quản lý số điện thoại đăng ký thuê bao thực tính theo giá cước mà nước ta áp dụng * Đối tượng, phạm vi, mục đích chương trình - Phạm vi, đối tượng : Chương trình “quản lí hợp đồng th bao điện thoại” quản lí số điện thoại đăng kí thuê bao khu vực tỉnh Lai Châu huyện, xã trực thuộc - Mục đích : tiết kiệm thời gian tra cứu thông tin khách hàng, dễ dàng việc thu cước điện thoại cuối tháng, tiết kiệm khơng gian lưu trữ, dễ tìm kiếm, dễ bổ sung sửa đổi * Phương pháp nghiên cứu : Chương trình thiết kế theo phương pháp thiết kế từ đáy lên * Kết cấu : gồm phần - Phần I : phân tích hệ thống - Phần II : nội dung chương trình Chương I CƠ SỞ PHƯƠNG PHÁP LUẬN XÂY DỰNG PHẦN MỀM I Giới thiệu đôi nét công nghệ phần mềm (Software Technology) Phần mềm (Software) 1.1 Khái niệm phần mềm Phần mềm tổng thể gồm yếu tố sau:  Các lênh (chương trình máy tính) thực cung cấp chức kết qủa mong muốn  Các cấu trúc liệu làm cho chương trình thao tác thơng tin thích hợp  Các tư liệu mơ tả thao tác cách sử dụng chương trình Tiến trình phát triển PM bao gồm giai đoạn biểu diễn hình vẽ đây: Giai đoạn Giai đoạn Giai đoạn Giai đoạn 1950-1960 1960-1970 1970-1990 1990-> -Xử lý theo lô - Đơn theo đơn đặt hàng -Nhiều người sử dụng -Thời gian thực -Bắt đầu có PM thương mại -Hệ phân tán -HT để bàn -Hiệu thương mại hố -HT thơng minh -Quy mơ cơng nghiệp Qua giai đoạn phát triển phần mềm ta thấy xu chung: tính phần mềm ngày đa dạng, quy mô công cụ thiết bị ngày giảm dần 1.2 Vòng đời phát triển phần mềm Mỗi phần mềm từ đời phát triển trải qua chu kì cơng nghệ phần mềm gọi vòng đời phát triển phần mềm Người ta nghiên cứu vòng đời phát triển phần mềm để hiểu rõ giai đoạn có phương pháp thích hợp để tác động vào giai đoạn nhằm đảm bảo chất lượng sản phẩm Vịng đời phát triển phần mềm biểu diễn mơ hình gọi mơ hình thác nước: Trong quy trình này, giai đoạn phía trước tác động tới tất giai đoạn phía sau Tức CNHT giai đoạn tác động đến giai đoạn cịn lại Đến lượt cơng đoạn phân tích chịu tác động cơng đoạn CNHT lại bao trùm, tác động lên cơng đoạn cịn lại 1.3 Cấu hình phần mềm Trong Cơng nghệ phần mềm(CNPM) khái niệm cấu hình phần mềm tương thích với khái niệm cấu hình phần cứng Cấu hình phần mềm q trình phát triển phần mềm Cấu hình phần mềm gồm thành phần biểu diễn theo hình vẽ sau: Kế hoạch Đặc tả YCầu Thiết kế VBản Ctrình Ctrình làm việc Kiểm thử Công nghệ phần mềm (Software Technology) Công nghệ phần mềm bao gồm tập hợp với ba yếu tố chủ chốt: Phương pháp, công cụ thủ tục giúp cho người quản lý kiểm sốt q trình phát triển phần mềm cung cấp cho kỹ sư phần mềm tảng để xây dựng phần mềm chất lượng cao CƠNG NGHỆ PHẦN MỀM Thành phần Phương pháp Cơng cụ Thủ tục Chức Kỹ sư phần mềm Quản trị dự án Mỗi quy trình phần mềm khơng phụ thuộc vào lĩnh vực ứng dụng, độ phức tạp, quy trình công nghệ bao gồm giai đoạn: Xác định, phát triển, bảo trì biểu diễn sơ đồ sau: Phân tích Giai đoạn Xác định Lập kế hoạch Xác định yêu cầu Thiết kế Giai đoạn Phát triển Mã hố Kiểm thử Bảo trì sửa đổi Giai đoạn Bảo trì Bảo trì thích nghi Bảo trì hồn thiện Giai đoạn 1: Xác định u cầu trả lời câu hỏi gì? tức kỹ sư phần mềm phải giới hạn định nghĩa rõ ràng sản phẩm phần mềm xây dựng để tung thị trường, giai đoạn có cơng đoạn chính: phân tích hệ thống, lập kế hoạch, xác định yêu cầu người sử dụng (khách hàng) Giai đoạn 2: Phát triển trả lời câu hỏi “thế nào?” kỹ sư phần mềm sử dụng công cụ thiết bị ngơn ngữ, quy trình cơng nghệ để sản xuất phần mềm Giai đoạn bao gồm bước: thiết kế, mã hố, kiểm thử Trong khái niệm mã hố cơng nghệ phần mềm khác với khái niệm mã hố hệ thống thơng tin, mã hố cơng nghệ phần mềm dùng ngơn ngữ lập trình cụ thể để dịch từ vẽ thiết kế thhàn chương trình cụ thể Giai đoạn 3: Bảo trì trả lời câu hỏi “Thay đổi nào?” Mỗi phần mềm sau bán cho khách hàng phải trải qua giai đoạn hậu (chăm sóc khách hàng) giai đoạn bao gồm ba cơng việc chính: bảo trì sử đổi, bảo trì thích nghi, bảo trì hồn thiện Trong bảo trì sửa đổi: sửa lỗi chương trình chẳng may xuất sau bán cho khách hàng Giữa máy tính sản xuất phần mềm cơng ty phần mềm máy tính doanh nghiệp sử dụng phần mềm mua ln ln có khác biệt cấu hình, chức năng, việc bảo trì thích nghi cần tiến hành để phần mềm hoạt động an tồn mơi trường cơng nghệ khách hàng Q trình bảo trì hồn thiện xảy khách hàng có u cầu cơng ty phần mềm phát triển thêm chức phần mềm phạm vi cho phép Quy trình làm mẫu cơng nghệ phần mềm Bản mẫu phần mềm kỹ thuật đặc biệt riêng có cơng nghệ phần mềm Nó khơng đề cập đến mơn lập trình cụ thể mục đích cơng nghệ phần mềm sản xuất sản phẩm để bán thị trường trước tung sản phẩm thị trường người ta sản xuất thử sản phẩm mẫu để khách hàng đánh giá, sau mẫu chấp nhận tiến hành sản xuất hàng loạt Bản mẫu phần mềm sản phẩm phần mềm bao hàm đặc trưng phần mềm đượcc xây dựng nhằm mục đích đưa phác thảo để khách hàng đánh giá sở để kỹ sử phần mềm phát triển sản phẩm Bản mẫu phần mềm thể ba hình thức sau:  Sử dụng vẽ thiết kế giấy  Là sản phẩm phần mềm bao gồm nét đặc trưng  Là chương trình máy tính chứa kỹ thuật thiết kế phầm mềm Tuỳ vào trình độ hiểu biết khách hàng mà công ty phầm mềm sử dụng hình thức sử dụng đồng thời ba Mục tiêu cao làm mẫu cố gắng khoảng thời gian ngắn làm cho khách hàng tiếp thu phần nhìn thấy đuơcj phần mềm tương lai để họ đến ký kết hợp đồng Quy trình làm mẫu phần mềm: gồm bước: Bắt đâù SP mẫu PM YC K.Hàng Làm mềm mẫu KH đánh giá mẫu TKế Nhanh Làm mẫu Bước 1: Xác định yêu cầu khách hàng: Trong bước đại diện công ty phần mềm gặp gỡ khách hàng để xác định yêu cầu họ phần mềm Thông thường khách hàng bày tỏ nguyện vọng chính, than cán cơng ty phần mềm phải lượng hóa mơ hình hóa nguyện vọng Bước 2: Thiết kế nhanh: Mục đích bước dạng phác thảo bao gồm vài đặc trưng phần mềm Bước 3: Làm mẫu: nhằm mục đích cơng ty phần mềm cho đời nhanh mẫu dạng phác thảo gồm vài đặc trưng phần mềm Bước 4: Khách hàng đánh giá mẫu Bước 5: Làm mịn mẫu, chi tiết hóa chức phần mềm Bước 6: Kết thúc ta sản phẩm chưa thương mại hóa thị trường mà mẫu phần mềm II Nền tảng thiết kế phần mềm Vai trò thiết kế cơng nghệ phần mềm Vai trị thiết kế phần mềm công nghệ phần mềm Trong sản xuất quy mô công nghiệp vấn đề thiết kế có vai trị đặc biệt quan trọng: • Thiết tảng để phát triển phần mềm đảm bảo tính ổn định bền vững • Nhờ có thiết kế đảm bảo khơng có đổ vỡ phần mềm có biến động xảy thay đổi phần mềm So sánh phần mềm có thiết kế phần mềm khơng có thiết kế: 10 Bảo trì Bảo trì Kiểm thử Kiểm thử Thiết Kế Có TKế Ko có TKế Đối với phần mềm khơng có thiết kế đầy đủ cần thay đổi nhỏ cấu trúc liệu hay chức chương trình dẫn đến phá hủy phần mềm hay hỏng hóc chức ban đầu Đặc biệt giai đoạn xuất khái niệm lập trình tự động, lập trình máy tính Hiệp hội cơng nghệ phần mềm giới tuyên bố tài liệu xác nhận rằng: nhu cầu giới từ lại khơng phải người lập trình biết dung câu lệnh để chế tác phần mềm mà trước hết người biết đọc vẽ thiết kế Các phương pháp thiết kế công nghệ phần mềm 2.1 Phương pháp thiết kế từ đỉnh xuống Ý tưởng phương pháp thiết kế giải thuật từ đỉnh xuống dựa ý niệm module hoá( Phân rã vấn đề cần giải thành vấn đề nhỏ hơn, chi tiết theo sở đồ hình cho đêế nhận module độc lập không phân chia nhỏ nữa) tức thiết kế phần mềm ứng dụng, người ta từ tổng quát đến chi tiết, để tạo thành hệ thống thống Trên sở hệ thống này, người ta phân chia cơng việc cho nhóm mà đảm bảo tính mục tiêu chương trình Để nắm ý tưởng phương pháp này, xem xét toán tin học hoá trung tâm thương mại: Trên sở thực tế, đưa mơ hình tốn dạng phác thảo: • Phác thảo 1: 76 dem1 = rs.RecordCount ' qur.SQL = st 'da.QueryDefs.Append qur rs.MoveLast T.Text = "" T.Text = T.Text & " VIET NAM CONG HOA XA HOI CHU NGHIA " & Chr(13) & Chr(10) T.Text = T.Text & " Doclap_tudo_hanhphuc "& Chr(13) & Chr(10) T.Text = T.Text & " o0o "& Chr(13) & Chr(10) T.Text = T.Text & " THONG TIN HOA DON TR TIEN OF CUSTOMER DA THUE BAO " & Chr(13) & Chr(10) T.Text = T.Text & " KINH GUI ONG\BA : " & rs![HO] & rs![TEn] & Chr(13) & Chr(10) T.Text = T.Text & " Chr(10) ADDRESS 'T.Text = T.Text & " : " & rs![DC] & Chr(13) & XIN CHAN THANH CAM ON QUI KHACH HANG DA DUNG THUE BAO CUA CHUNG TOI " & Chr(13) & Chr(10) T.Text = T.Text & " SO DT HIEN DANG THUE BAO : "& Data1.Recordset.Fields("MASDT") & Chr(13) & Chr(10) T.Text = T.Text & " CAC SO DIEN THOAI MA QUI KHACK DA GOI TRONG THANG " & Chr(13) & Chr(10) T.Text = T.Text & " MAVUNG : "& Data1.Recordset.Fields("MAVUNG") & Chr(13) & Chr(10) T.Text = T.Text & " SODT : "& Data1.Recordset.Fields("SODT") & Chr(13) & Chr(10) 77 T.Text = T.Text & " NGAY GOI LA : "& Data1.Recordset.Fields("NGAYGOI") & Chr(13) & Chr(10) T.Text = T.Text & " THOI GIAN LA : "& Data1.Recordset.Fields("THOIGIAN") & Chr(13) & Chr(10) T.Text = T.Text & " SO TIEN CHO CUOC GOI NAY : "& Data1.Recordset.Fields("TIEN") & Chr(13) & Chr(10) End Sub Private Sub cd2_Click() If thu.Caption > Then Data1.Recordset.MovePrevious rs.MovePrevious thu.Caption = thu.Caption - T.Text = "" T.Text = T.Text & " VIET NAM CONG HOA XA HOI CHU NGHIA " & Chr(13) & Chr(10) T.Text = T.Text & " Doclap_tudo_hanhphuc "& Chr(13) & Chr(10) T.Text = T.Text & " o0o "& Chr(13) & Chr(10) T.Text = T.Text & " THONG TIN HOA DON TR TIEN OF CUSTOMER DA THUE BAO " & Chr(13) & Chr(10) T.Text = T.Text & " KINH GUI ONG\BA : " & rs![HO] & rs![TEn] & Chr(13) & Chr(10) T.Text = T.Text & " Chr(10) ADDRESS 'T.Text = T.Text & " : " & rs![DC] & Chr(13) & XIN CHAN THANH CAM ON QUI 78 KHACH HANG DA DUNG THUE BAO CUA CHUNG TOI " & Chr(13) & Chr(10) T.Text = T.Text & " SO DT HIEN DANG THUE BAO : "& Data1.Recordset.Fields("MASDT") & Chr(13) & Chr(10) T.Text = T.Text & " CAC SO DIEN THOAI MA QUI KHACK DA GOI TRONG THANG " & Chr(13) & Chr(10) T.Text = T.Text & " MAVUNG : "& Data1.Recordset.Fields("MAVUNG") & Chr(13) & Chr(10) T.Text = T.Text & " SODT : "& Data1.Recordset.Fields("SODT") & Chr(13) & Chr(10) T.Text = T.Text & " NGAY GOI LA : "& Data1.Recordset.Fields("NGAYGOI") & Chr(13) & Chr(10) T.Text = T.Text & " THOI GIAN LA : "& Data1.Recordset.Fields("THOIGIAN") & Chr(13) & Chr(10) T.Text = T.Text & " SO TIEN CHO CUOC GOI NAY Data1.Recordset.Fields("TIEN") & Chr(13) & Chr(10) Else MsgBox "ban ghi da het ", , "in ban ghi cuoi" Exit Sub End If End Sub Private Sub cd3_Click() If thu.Caption < Data1.Recordset.RecordCount Then Data1.Recordset.MoveNext rs.MoveNext thu.Caption = thu.Caption + T.Text = "" : "& 79 T.Text = T.Text & " VIET NAM CONG HOA XA HOI CHU NGHIA " & Chr(13) & Chr(10) T.Text = T.Text & " Doclap_tudo_hanhphuc "& Chr(13) & Chr(10) T.Text = T.Text & " o0o "& Chr(13) & Chr(10) T.Text = T.Text & " THONG TIN HOA DON TR TIEN OF CUSTOMER DA THUE BAO " & Chr(13) & Chr(10) T.Text = T.Text & " KINH GUI ONG\BA : " & rs![HO] & rs![TEn] & Chr(13) & Chr(10) T.Text = T.Text & " Chr(10) ADDRESS 'T.Text = T.Text & " : " & rs![DC] & Chr(13) & XIN CHAN THANH CAM ON QUI KHACH HANG DA DUNG THUE BAO CUA CHUNG TOI " & Chr(13) & Chr(10) T.Text = T.Text & " SO DT HIEN DANG THUE BAO : "& Data1.Recordset.Fields("MASDT") & Chr(13) & Chr(10) T.Text = T.Text & " CAC SO DIEN THOAI MA QUI KHACK DA GOI TRONG THANG " & Chr(13) & Chr(10) T.Text = T.Text & " MAVUNG : "& Data1.Recordset.Fields("MAVUNG") & Chr(13) & Chr(10) T.Text = T.Text & " SODT : "& Data1.Recordset.Fields("SODT") & Chr(13) & Chr(10) T.Text = T.Text & " NGAY GOI LA : "& Data1.Recordset.Fields("NGAYGOI") & Chr(13) & Chr(10) T.Text = T.Text & " THOI GIAN LA : "& Data1.Recordset.Fields("THOIGIAN") & Chr(13) & Chr(10) 80 T.Text = T.Text & " SO TIEN CHO CUOC GOI NAY : "& Data1.Recordset.Fields("TIEN") & Chr(13) & Chr(10) Else MsgBox "ban ghi ban chon da het ", , "in ban ghi dau" Exit Sub End If End Sub Private Sub cd4_Click() Data1.Recordset.MoveLast rs.MoveLast thu.Caption = Data1.Recordset.RecordCount T.Text = "" T.Text = T.Text & " VIET NAM CONG HOA XA HOI CHU NGHIA " & Chr(13) & Chr(10) T.Text = T.Text & " Doclap_tudo_hanhphuc "& Chr(13) & Chr(10) T.Text = T.Text & " Private Sub cd1_Click()" Data1.Recordset.MoveFirst rs.MoveFirst thu.Caption = T.Text = "" T.Text = T.Text & " VIET NAM CONG HOA XA HOI CHU NGHIA " & Chr(13) & Chr(10) T.Text = T.Text & " Chr(13) & Chr(10) Doclap_tudo_hanhphuc "& 81 T.Text = T.Text & " o0o "& Chr(13) & Chr(10) T.Text = T.Text & " THONG TIN HOA DON TR TIEN OF CUSTOMER DA THUE BAO " & Chr(13) & Chr(10) T.Text = T.Text & " KINH GUI ONG\BA : " & rs![HO] & rs![TEn] & Chr(13) & Chr(10) T.Text = T.Text & " Chr(10) ADDRESS 'T.Text = T.Text & " : " & rs![DC] & Chr(13) & XIN CHAN THANH CAM ON QUI KHACH HANG DA DUNG THUE BAO CUA CHUNG TOI " & Chr(13) & Chr(10) T.Text = T.Text & " SO DT HIEN DANG THUE BAO : "& Data1.Recordset.Fields("MASDT") & Chr(13) & Chr(10) T.Text = T.Text & " CAC SO DIEN THOAI MA QUI KHACK DA GOI TRONG THANG " & Chr(13) & Chr(10) T.Text = T.Text & " MAVUNG : "& Data1.Recordset.Fields("MAVUNG") & Chr(13) & Chr(10) T.Text = T.Text & " SODT : "& Data1.Recordset.Fields("SODT") & Chr(13) & Chr(10) T.Text = T.Text & " NGAY GOI LA : "& Data1.Recordset.Fields("NGAYGOI") & Chr(13) & Chr(10) T.Text = T.Text & " THOI GIAN LA : "& Data1.Recordset.Fields("THOIGIAN") & Chr(13) & Chr(10) T.Text = T.Text & " SO TIEN CHO CUOC GOI NAY Data1.Recordset.Fields("TIEN") & Chr(13) & Chr(10) End Sub : "& 82 Private Sub cd1_Click() Data1.Recordset.MoveFirst rs.MoveFirst thu.Caption = T.Text = "" T.Text = T.Text & " VIET NAM CONG HOA XA HOI CHU NGHIA " & Chr(13) & Chr(10) T.Text = T.Text & " Doclap_tudo_hanhphuc "& Chr(13) & Chr(10) T.Text = T.Text & " o0o "& Chr(13) & Chr(10) T.Text = T.Text & " THONG TIN HOA DON TR TIEN OF CUSTOMER DA THUE BAO " & Chr(13) & Chr(10) T.Text = T.Text & " KINH GUI ONG\BA : " & rs![HO] & rs![TEn] & Chr(13) & Chr(10) T.Text = T.Text & " Chr(10) ADDRESS 'T.Text = T.Text & " : " & rs![DC] & Chr(13) & XIN CHAN THANH CAM ON QUI KHACH HANG DA DUNG THUE BAO CUA CHUNG TOI " & Chr(13) & Chr(10) T.Text = T.Text & " SO DT HIEN DANG THUE BAO : "& Data1.Recordset.Fields("MASDT") & Chr(13) & Chr(10) T.Text = T.Text & " CAC SO DIEN THOAI MA QUI KHACK DA GOI TRONG THANG " & Chr(13) & Chr(10) T.Text = T.Text & " MAVUNG : "& Data1.Recordset.Fields("MAVUNG") & Chr(13) & Chr(10) T.Text = T.Text & " SODT : "& Data1.Recordset.Fields("SODT") & Chr(13) & Chr(10) 83 T.Text = T.Text & " NGAY GOI LA : "& Data1.Recordset.Fields("NGAYGOI") & Chr(13) & Chr(10) T.Text = T.Text & " THOI GIAN LA : "& Data1.Recordset.Fields("THOIGIAN") & Chr(13) & Chr(10) T.Text = T.Text & " SO TIEN CHO CUOC GOI NAY : "& Data1.Recordset.Fields("TIEN") & Chr(13) & Chr(10) End Sub Form VI ( In Báo Cáo Và Tính Tốn) Các phương thức Form Public cout As Integer Dim da As DAO.Database Dim bien Dim rec As DAO.Recordset Dim rec1 As DAO.Recordset Dim i, j, dem As Integer Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button) End Sub Private Sub cmdre_Click() baocao1.Show ' baocaohoadon1.Show End Sub Private Sub Cmdthoat_Click() Form1.WindowState = 84 Unload xuly End Sub Private Sub Form_Load() dem = Set da = OpenDatabase("e:\dienthoai\PHONE.mdb") Set rec = da.OpenRecordset("GOI") Set rec1 = da.OpenRecordset("CUOCGOI") dieu_chinh End Sub Public Function dem1() Dim bien As Integer bien = bien = Data1.Recordset.RecordCount dem1 = bien End Function Private Sub cmddk_Click() i=i+1 Dim d As Double dem1 If i > Then MsgBox "khong the khoi tao " Exit Sub Else da.Execute "UPDATE GOI " & _ "set TIEN =[TIEN]+10" 85 End If End Sub Sub dieu_chinh() Do Until rec.EOF If rec![MAVUNG] = "04" Then rec.Edit rec![TIEN] = rec![TIEN] + rec![THOIGIAN] * 15 rec.Update If rec![TIEN] > rec![THOIGIAN] * 15 + 27 Then rec.Edit rec![TIEN] = rec![THOIGIAN] * 15 + 27 rec.Update End If End If If rec![MAVUNG] = "037" Then rec.Edit rec![TIEN] = rec![TIEN] + rec![THOIGIAN] * 25 rec.Update If rec![TIEN] > rec![THOIGIAN] * 25 + 27 Then rec.Edit rec![TIEN] = rec![THOIGIAN] * 25 + 27 rec.Update End If End If If rec![MAVUNG] = "0210" Then rec.Edit rec![TIEN] = rec![TIEN] + rec![THOIGIAN] * 17 86 rec.Update If rec![TIEN] > rec![THOIGIAN] * 17 + 27 Then rec.Edit rec![TIEN] = rec![THOIGIAN] * 17 + 27 rec.Update End If End If If rec![MAVUNG] = "08" Then rec.Edit rec![TIEN] = rec![TIEN] + rec![THOIGIAN] * 30 + 27 rec.Update If rec![TIEN] > rec![THOIGIAN] * 30 + 27 Then rec.Edit rec![TIEN] = rec![THOIGIAN] * 30 + 27 rec.Update End If End If rec.MoveNext Loop rec.Close da.Close End Sub Sub kiem_tra() Set rec = da.OpenRecordset("GOI") Do Until rec.EOF If rec![MAVUNG] = "04" Then 87 If rec![TIEN] > rec![THOIGIAN] * 15 + 27 Then rec.Edit rec![TIEN] = rec![THOIGIAN] * 15 + 27 rec.Update End If End If If rec![MAVUNG] = "037" Then If rec![TIEN] > rec![THOIGIAN] * 25 + 27 Then rec.Edit rec![TIEN] = rec![THOIGIAN] * 25 + 27 rec.Update End If End If If rec![MAVUNG] = "0210" Then If rec![TIEN] > rec![THOIGIAN] * 17 + 27 Then rec.Edit rec![TIEN] = rec![THOIGIAN] * 17 + 27 rec.Update End If End If rec.MoveNext Loop rec.Close da.Close End Sub 88 Private Sub HIEN_Click() xuly.WindowState = inbaocao.Show End Sub Private Sub Label1_Change() Dim i As Integer For i = To 100 Label1.BackColor = i * Rnd Next End Sub 89 MỤC LỤC Trang LỜI NÓI ĐẦU I Giới thiệu đôi nét công nghệ phần mềm (Software Technology) Phần mềm (Software) .4 1.1 Khái niệm phần mềm Phần mềm tổng thể gồm yếu tố sau: 1.2 Vòng đời phát triển phần mềm 1.3 Cấu hình phần mềm .5 Công nghệ phần mềm (Software Technology) Quy trình làm mẫu cơng nghệ phần mềm .8 II Nền tảng thiết kế phần mềm Vai trị thiết kế cơng nghệ phần mềm Các phương pháp thiết kế công nghệ phần mềm .10 2.1 Phương pháp thiết kế từ đỉnh xuống 10 2.2 Phương pháp thiết kế từ đáy lên 12 Tiến trình thiết kế cơng nghệ phần mềm 14 Kiến trúc phần mềm .15 III Các quy trình thiết kế cơng nghệ phần mềm .16 Quy trình 1: Xây dựng quản lý hợp đồng phần mềm .17 Quy trình 2: Xác định yêu cầu .19 Quy trình 3: Phân tích thiết kế phần mềm 21 Quy trình 4: Lập trình 23 Quy trình 5: Test .25 Quy trình 6: Triển khai phần mềm .28 Quy trình 7: Quản lý dự án cơng nghệ phần mềm 31 7.1 Xác định mục tiêu .31 90 7.2 Xác định quy mô phần mềm .31 7.3 Quản lý rủi ro 31 7.4 Lập lịch thực 32 7.5 Theo dõi kiểm soát 32 CHƯƠNG II: GIỚI THIỆU VỀ ĐƠN VỊ THỰC TẬP 33 Sơ lược Bưu Điện Tỉnh Lai Châu 33 Các phòng ban chức năng: 35 II.Biểu đồ phân cấp chức hệ thống quản lý thuê bao điện thoại 40 41 42 Biểu Đồ Luồng Dữ Liệu Mức Dưới Đỉnh 43 Hồ sơ lưu .46 47 47 STT 47 MASDT 47 Text 47 HO 47 Text 47 TEN 47 Text 47 Tên khách hàng 47 DC 47 Text 47 STT 48 I Giới Thiệu Ngôn Ngữ 48 ... thống quản lý số điện thoại đăng ký thuê bao thực tính theo giá cước mà nước ta áp dụng * Đối tượng, phạm vi, mục đích chương trình - Phạm vi, đối tượng : Chương trình ? ?quản lí hợp đồng th bao điện. .. tiền tháng + Báo cáo tình hình chung bưu điện tháng II.Biểu đồ phân cấp chức hệ thống quản lý thuê bao điện thoại 41 Quản lý hợp đồng thuê bao điện thoại Quản lý khách hàng Tra cứu, tìm kiếm BÁO... theo dõi tiến trình thực hợp đồng, tốn lý hợp đồng Các dấu hiệu: Quy trình xây dựng hợp đồng phần mềm đặc trưng dấu hiệu sau: • Kí kết hợp đồng • Theo dõi thực • Thanh toán lý hợp đồng Lưu đồ: