Đang tải... (xem toàn văn)
Luận văn : Bổ sung thêm Modul vào hệ thống quản lý thu cước phí để tính phần dư nợ của khách hàng khi họ chưa nộp đủ cước phí
Chuyên đề thực tập tốt nghiệp - Phí Thanh Hoa - Tin 41B Lời nói đầu Chúng ta sống kinh tế thị trờng theo định hớng xà hội chủ nghĩa, nhà nớc đà tạo môi trờng cạnh tranh lành mạnh cho Doanh nghiệp kinh tế đồng thời môi trờng cạnh tranh khốc liệt mà Doanh nghiệp cạnh tranh để chia bánh thị trờng Với cạnh tranh khốc liệt nh Doanh nghiệp phải trang bị cho môi trờng hoạt động thuận lợi để tồn phát triển thị trờng nớc nh thị trờng giới Chính mà việc thu thập thông tin trở nên quan trọng thiếu Doanh nghiệp việc sử dụng Internet Doanh nghiệp trở thành nhu cầu thiÕt yÕu Trêng §HKTQD - Khoa Tin häc kinh tÕ Chuyên đề thực tập tốt nghiệp - Phí Thanh Hoa - Tin 41B Thêm vào đó, cá nhân xà hội ngày không ngừng học hỏi, trau tích lũy kiến thức nh hiểu biết xà hội để phù hợp với tốc độ phát triển kinh tế nói riêng xà hội nói chung, công cụ hữu ích ®ã lµ viƯc sư dơng Internet ë ViƯt Nam hiƯn nay, số lợng khách hàng thuê bao Internet cha lớn, nhiên với tốc độ phát triển kinh tế đời sống ngời dân ngày đợc nâng cao nhu cầu sử dụng Internet lớn Với thị trờng khách hàng thuê bao Internet rộng lớn nh việc quản lý khách hàng nh quản lý thu cớc phí vấn đề cốt yếu Doanh nghiệp cung cấp dịch vụ Internet Công ty Điện tử viễn thông quân đội (Vietel) Doanh nghiệp cung cấp dịch vụ Internet hàng đầu Việt Nam, hệ thống tính cớc VIETEL đà đợc vận hành năm hệ thống ổn định thuận tiện, nhiên để đáp ứng đợc nhu cầu ngày cao thị trờng, công ty đà định việc bảo trì hệ thống bảo trì nâng cao Với phơng pháp bảo trì việc bảo trì tơng đơng nh việc phát triĨn hƯ thèng míi vËy mµ hƯ thèng ngµy đợc nâng cao Trong phạm vi thực tập tốt nghiệp em đà đợc tham gia vào bảo trì hệ thống Đề tài bổ sung thêm modul vào hệ thống để tính phần d nợ khách hàng họ cha nộp đủ cớc phí mà họ đà sử dụng Với đề tài tơng đối nhỏ so với hệ thống công ty nhng công ty kiểm soát việc nợ khách hàng cách dễ dàng loạt báo cáo phù hợp thêm vào chơng trình đợc viết ngôn ngữ Visual Basic ngôn ngữ mạnh phù hợp với hệ thống công ty Chuyên đề thực tập tốt nghiệp đợc chia làm chơng Trong đó: Chơng I : Các vấn đề tổng quan Trờng ĐHKTQD - Khoa Tin học kinh tế Chuyên đề thực tập tốt nghiệp - PhÝ Thanh Hoa - Tin 41B Ch¬ng II : Phơng pháp luận để nghiên cứu đề tài Chơng III : Kết thu đợc Em trân thành cảm ơn Cô Nguyễn Bạch Tuyết anh Vũ Trờng Giang thầy cô khoa tin học kinh tế tập thể cán công nhân viên trung tâm VIETEL Internet đà tạo điều kiện, hớng dẫn tận tình đà cung cấp cho em công cụ, thông tin tài liệu để thực hoàn thành chuyên đề Tuy nhiên, với trình độ thực tế non yếu chuyên đề thiếu sót, em kính mong thầy cô lợng thứ Em xin chân thành cảm ơn! Nội dung Đây phần trung tâm chuyên đề, phần giới thiệu cách đầy đủ dõ nét đề tài nghiên cứu, phơng pháp luận sở nh kết thu đợc sau hoàn thành đề tài Chơng I vấn đề tổng quan Trong chơng chuyên đề giới thiệu vấn đề tổng quan quan thực tập Công ty Điện tử viễn thông quân đội (VIETEL), cần thiết đề tài nghiên cứu nh mục tiêu phơng pháp đợc sử dụng để nghiên cứu đề tài Trờng ĐHKTQD - Khoa Tin học kinh tế Chuyên ®Ị thùc tËp tèt nghiƯp - PhÝ Thanh Hoa - Tin 41B I Tỉng quan vỊ c¬ së thùc tËp Giới thiệu chung Công ty Điện tử Viễn thông Quân đội (VIETEL) doanh nghiệp Nhà nớc đợc thành lập từ tháng năm 1989 nhà cung cấp viễn thông thứ Việt Nam, có chức cung cấp dịch vụ viễn thông phạm vi toàn quốc Quốc tế Công ty có trung tâm, xí nghiệp trực thuộc đảm trách việc khảo sát thiết kế, xuất nhập khẩu, xây lắp hệ thống thông tin, dịch vụ bu phạm vi Quân đội Trụ sở công ty đặt Số Giang Văn Minh - Ba Đình - Hà Nội Cácvăn phòng khu vực Địa : 16 Cát Linh - Đống Đa - Hà Nội Địa : 16 Pháo đài Láng - Đống đa - Hà nội Địa : Trạm khách M48 Bộ T lệnh thông tin - Ngõ 68 Nguyên Hồng - Nam Thành Công - Hà Nội Chi nhánh phía nam.Số 270 Lý Thờng Kiệt - Quận Tân Bình- TP HCM Đến Công ty đà trải qua 13 năm xây dựng trởng thành với 700 cán công nhân viên, gồm Kỹ s, Thạc sü, Phã tiÕn sü víi nhiỊu kinh nghiƯm thùc tÕ công tác quản lý kinh doanh Công ty đà đợc Chính phủ cho phép hoạt động nhiều lĩnh vực với phạm vi hoạt động rộng lớn, cụ thể: Kinh doanh loại hình dịch vụ bu viễn thông nớc quốc tế Các dịch vụ: Điện thoại cố định, Điện thoại di động, Nhắn tin, Trờng ĐHKTQD - Khoa Tin học kinh tế Chuyên đề thực tập tốt nghiệp - Phí Thanh Hoa - Tin 41B Cung cÊp dÞch vơ Internet, dÞch vơ kÕt nèi Internet, dÞch vơ Radio Trunking, dÞch vơ Bu cho thuê kênh truyền dẫn Khảo sát, thiết kế, xây lắp công trình tin học viễn thông Xuất nhập thiết bị viễn thông Trong năm qua, Công ty lực lợng tham gia xây dựng mạng Viễn thông Quân đội bao gồm: Các hệ thống chuyển mạch, truyền dẫn hệ thống truyền số liệu, xây dựng mạng ngoại vi phạm vi toàn quân Đặc biệt từ năm 1999 đến nay, Công ty đà tham gia khảo sát, thiết kế thi công dự án lớn cho Bộ Quốc phòng: Đờng trục cáp quang quân Bắc - Nam sử dụng công nghệ SDH, ghép bớc sóng, thu phát sợi với dung lợng 2,5 GB/s dài 2000km, hàng chục trạm nhánh với giá trị 400 tỷ đồng Đội ngũ xây dựng dự án thi công trình đà có nhiều năm kinh nghiệm thực thi nhiều loại công trình khác đạt chất lợng Quốc tế Mạng truyền dẫn số liệu công nghệ ATM, mạng toàn quốc với lớp lõi, biên truy nhập Dịch vụ IP/FR/ATM đợc cung cấp tới tận ngời sử dụng đầu cuối Mạng có giá trị 20 tỷ đồng Mạng truyền số liệu cho Cục Tác chiến - Bộ Quốc phòng với công nghệ đại: Mạng LAN dựa chuyển mạch LAN Mạng LAN ¶o M¹ng CAMPUS dïng kÕt nèi quang Bøc tờng lửa bảo vệ mạng Sử dụng hệ quản lý m¹ng tËp trung Truy nhËp tõ xa qua PSTN Mạng có giá trị lên đến hàng tỷ ®ång Trêng §HKTQD - Khoa Tin häc kinh tÕ Chuyên đề thực tập tốt nghiệp - Phí Thanh Hoa - Tin 41B Với tính đặc thù mạng quân sự, dự án hoàn toàn đội ngũ Bộ T lệnh Thông tin, Công ty Điện tử Viễn thông Quân đội tham gia từ khâu khảo sát, thiết kế, lắp đặt đa vào khai thác Qua công trình trên, đội ngũ công nghệ thông tin, đặc biệt mạng công ty đà trởng thành nhanh chóng số lợng trình độ chuyên môn Là ngời trực tiếp triển khai mạng thông tin toàn quân, nhân viên kỹ thuật công ty ngời am hiểu sử dụng khai thác tài nguyên phạm vi an ninh quốc phòng kinh tế Với khách hàng quân đội, VIETEL đà tham gia cung cấp nhiều chủng loại thiết bị, chủ trì khảo sát thiết kế thi công nhiều hệ thống cột cao, hệ thống tổng đài, tuyến cống bể, mạng cáp quang, mạng cáp truy nhập cho Bộ Công an, Bu điện Hà Nội, Bu điện tỉnh Công ty có hệ thống trung tâm, xí nghiệp thành viên đơn vị có uy tín cao lĩnh vực khảo sát thiết kế, thi công hệ thống tổng đài, mạng truyền số liệu, mạng máy tính cho khách hàng lớn nh Bộ Công an, Liên hiệp Đờng sắt Việt Nam, Hàng hải, công ty Viễn thông Liên tỉnh (VTN), Bu điện Hà Nội, Bu điện tỉnh, đài phát truyền hình phạm toàn quốc số nớc Đông Nam Công ty Điện tử Viễn thông Quân đội công ty đợc tín nhiệm việc xây dựng hệ thống thông btin mang tính chất mạng lới, thực khảo sát thiết kế thi công số dự án thông tin lớn nh: Dự án Hệ thống thông tin phục vụ Kiểm lâm toàn quốc; dự án thông tin phục vụ tìm kiếm cứu nạn toàn quốc, dự án thông tin Bộ Thuỷ sản v.v a Về lĩnh vực kinh doanh dịch vụ công cộng: Bắt đầu từ tháng 10 năm 2000, VIETEL đà triển khai kinh doanh mạng dịch vụ điện thoại đờng dài sử dụng công nghệ VoIP mạng tên Trờng ĐHKTQD - Khoa Tin học kinh tế Chuyên đề thực tập tốt nghiƯp - PhÝ Thanh Hoa - Tin 41B DÞch vơ 178, dịch vụ lần đợc triển khai thị trờng Việt Nam, đà mang lại hiệu kinh tế cao cho ngời sử dụng Đây loại hình dịch vụ tiết kiệm, đơn giản giúp khách hàng gọi liên tỉnh quốc tế trực tiếp từ máy điện thoại cố định Dịch vụ đà đợc Công ty triển khai rộng rÃi phạm vi nớc Quốc tế Ngoài ra, VIETEL đà triển khai hệ thống Radio Trunking Việt Nam, cung cáp thuê bao cho khách hàng nh công ty Taxi, công ty kinh doanh vận tải, ngành xăng dầu, khí đốt, Bộ T lệnh Cảnh vệ, Bộ Công an, Công an Hà nội công an tỉnh, khu công nghiệp, nhà máy xi măng, công trình xây dựng Dịch vụ Internet công cộng (ISP) đà thức đợc VIETEL cung cấp từ tháng 9/2002 Là nhà cung cấp mới, VIETEL đà đợc tiếp cận công nghệ đại, sẵn sàng cung cấp cho khách hàng dịch vụ truy nhập Internet băng rộng đa dịch vụ với chất lợng cao Vietel có đờng trục cáp quang Bắc-Nam Hà Nội - Tp Hồ Chí Minh, sử dụng công nghệ SDH với dung lợng 2,5Gb/s, rẽ nhánh đến hầu hết tỉnh thành, đảm bảo cung cấp kênh thuê đến khách hàng nhiều tỉnh thành Vietel tiếp tục xây dựng mạng truyền dẫn nội hạt tốc độ cao đảm bảo cung cấp kênh thuê đờng dài, nội hạt cho khách hàng với đầu mối giá mềm dẻo, hợp lý Vietel đà đầu t thiết bị ATM/IP để xây dựng đờng trục truyền số liệu cửa ngõ quốc tế sẵn sàng cung cấp dịch vụ kết nối Internet (IXP) Ngoài ra, Vietel đà chuẩn bị điều kiện cần thiết để xây dựng mạng cung cấp dịch vụ thông tin di động sử dụng công nghệ GSM-900 Mạng di động Vietel phủ sóng toàn quốc vòng năm, xây dựng Trờng ĐHKTQD - Khoa Tin học kinh tế Chuyên ®Ị thùc tËp tèt nghiƯp - PhÝ Thanh Hoa - Tin 41B tảng 2,5 G sẵn sàng nâng cấp lên 3G Dự kiến triển khai cung cấp dịch vụ Di động vào tháng 3/2003 Mạng lới bu Vietel đà mở rộng đến 45 tỉnh thành toàn quốc trở thành đại lý nhiều hÃng Bu chÝnh lín trªn thÕ giíi Thêi gian tíi Vietel nhanh chóng mở rộng mạng lới Bu toàn quốc Đây hoạt động trợ giúp thêm cho công ty việc tạo dựng hạ tầng sở nhiều điểm địa phơng, tạo điều kiện cho công ty bố trí lực lợng kỹ thuật bảo hành thiết bị chỗ, bảo đảm tính kịp thời giải cố mạng đờng trục b Quan điểm hợp tác: Để đáp ứng tốt yêu cầu nhiệm vụ, VIETEL đà tiến hành thoả thuận hợp tác với trung tâm công nghệ cao quân đội, đặc biệt kết hợp chặt chẽ Công ty Trung tâm công nghệ cao trực thuộc Bộ t lệnh Thông tin, trung tâm tập trung nhiều chuyên gia giỏi Công nghệ thông tin, viễn thông đợc trang bị trang thiết bị, phơng tiện đại với giá trị hàng chục tỷ đồng phục vụ cho việc nghiên cứu triển khai dự án Tin học, Viễn thông Công ty tăng cờng hợp tác với Viện nghiên cứu, trờng đại học để trao đổi khoa học công nghệ, đào tạo Công ty mong nhận đợc hỗ trợ từ phía đối tác cung cáp thiết bị nớc điều kiện kỹ thuật thơng mại c Về nhân lực triển khai dự án: Đội ngũ cán bộ, nhân viên kỹ thuật công ty đa phần trởng thành môi trờng Quân đội, số chuyên gia kỹ thuật kỹ s trẻ vào công ty đà đợc chọn lọc qua kỳ thi tuyển nghiêm túc, lực lợng tham gia dự án đợc tuyển chọn số gần 200 kỹ s thạc sỹ công ty, đợc đào tạo từ trờng đại học nớc, có nhiều năm Trờng ĐHKTQD - Khoa Tin học kinh tế Chuyên đề thực tập tốt nghiÖp - PhÝ Thanh Hoa - Tin 41B kinh nghiÖm lĩnh vực Bu chính, Viễn thông công nghệ thông tin, có tính kỷ luật cao, nghiêm túc trách nhiệm công việc Mô hình tổ chức công ty ã ã ã ã ã ã ã ã ã ã Phòng Chính trị Phòng Kế hoạch Phòng tổ chức lao động Phòng Hành Phòng Tài Phòng Đầu t phát triển Phòng Kỹ thuật Phòng Xây dựng nBan Marketing Ban Dự án ã Xí nghiệp khảo sát thiết kế công trình ã Xí nghiệp xây lắp công trình ã Trung tâm Bu ã Trung tâm Xuất-Nhập ã Trung tâm Công nghệ thông tin ã Trung tâm điện thoại đờng dài 1780 ã Trung tâm mạng truyền dẫn ã Trung tâm dịch vụ kỹ thuật viễn thông Công ty liên doanh, liên kết với nhiều HÃng sản xuất, công ty nớc việc cung cấp giải pháp, thiết bị đào tạo c¸n bé nh: Lucent Technologies, Intel, IBM, Clarent, Motorola, HP, Sun Microsystem, Cisco, Fujitsu, ALCATEL, SIEMENS, ERICSSION, Nortel, ECI, Mind, Conncert, Riêng lĩnh vực Công nghệ thông tin VIETEL đà lập dự án triển khai mạng truyền sè liƯu sư dơng c«ng nghƯ ATM cho Bé qc phòng, Mạng diện rộng (WAN) cho Cục tác chiến BQP, Mạng máy tính, truyền thông thí nghiệm công nghệ cao cho Cục Nhà trờng - BQP Lập dự án thiết kế mạng diện rộng cho Tổng công ty Hàng không ViƯt nam VIETEL cịng t vÊn, thiÕt kÕ vµ triĨn khai mạng máy tính dùng cho doanh nghiệp quân đội (Công ty giấy BÃi Bằng) Trờng ĐHKTQD - Khoa Tin học kinh tế Chuyên đề thực tËp tèt nghiÖp - PhÝ Thanh Hoa - Tin 41B Các dịch vụ Vietel cung cấp Phạm vi hoạt động nớc Quốc tế Dịch vụ Viễn thông Theo giấy phép thiết lập mạng cung cấp dịch vụ Viễn thông Tổng cục Bu điện cấp (nay Bộ Bu viễn thông) Công ty Điện tử Viễn thông Quân đội (VIETEL ) đợc phép thiết lập mạng khai thác dịch vụ Viễn thông sau: ã Thiết lập mạng cung cấp dịch vụ điện thoại chuyển mạch công cộng nội hạt (PSTN) ã Cung cấp dịch vụ viễn thông đờng dài nớc quốc tế sử dụng công nghệ VOIP ã Thiết lập mạng cung cấp dịch vụ thuê kênh ã Cung cấp dịch vụ Internet (ISP) ã Cung cấp dịch vụ kết nối Internet (IXP) ã Thiết lập mạng cung cấp dịch vụ thông tin di động mặt đất ã Thiết lập mạng cung cấp dịch vụ điện thoại trung kế vô tuyến ã Thiết lập mạng cung cấp dịch vụ nhắn tin ã Thiết lập mạng cung cấp dịch vụ bu nớc quốc tế Các dịch vụ viễn thông khác đợc triển khai theo nhu cầu thị trờng dới hình thức tự đầu t hợp tác Trờng ĐHKTQD - Khoa Tin học kinh tế 10 Chuyên ®Ị thùc tËp tèt nghiƯp - PhÝ Thanh Hoa - Tin 41B Trong trình nhập liệu ngời sử dụng gặp phải nhầm lẫn thông tin khách hàng việc nhu cầu sửa liệu đà đợc lu điều tất yếu khách quan Để đáp ứng nhu cầu này, form sưa d÷ liƯu sÏ gióp ngêi sư dơng sưa chữa sai sót nhập vào Form Sửa liệu đợc thiết kế nh sau: Form Sửa thông tin cíc phÝ Trêng §HKTQD - Khoa Tin häc kinh tế 53 Chuyên đề thực tập tốt nghiệp - Phí Thanh Hoa - Tin 41B Để phục vụ mục đích quản lý, nhà quản lý có yêu cầu muốn xem liệu đà đợc lu trữ nh ? Vấn đề đợc đáp øng víi form xem d÷ liƯu cđa hƯ thèng Trong Form liệu đợc hiển thị dới dạng bảng để nhà quản lý dễ dàng xen xét Form xem đà đợc thiết kế nh sau: Form xem liệu Trờng ĐHKTQD - Khoa Tin học kinh tế 54 Chuyên đề thực tập tốt nghiệp - Phí Thanh Hoa - Tin 41B Trong trình quản lý, nhà quản lý phải thêm vào khách hàng mới, phải có giao diện vào để nhà quản lý thêm khách hàng Form nhập hệ thống đáp ứng nhu cầu Form thêm liệu đà đợc thiết kế nh sau: Form thêm khách hàng vào liệu Trờng ĐHKTQD - Khoa Tin học kinh tế 55 Chuyên đề thực tập tèt nghiƯp - PhÝ Thanh Hoa - Tin 41B §Ĩ chọn lựa khách hàng mà ngời quản lý cần gửi giấy thông báo tình hình nợ nh tình hình sử dụng Internet khách hàng chơng trình có form giúp nhà quản lý lựa chọn khách hàng cần gửi từ để report cần thiết lên phục vụ cho mục đích nhà quản lý Form gọi report đà đợc thiết kế nh sau Form gọi thông báo tình hình sử dụng Internet khách hàng Trờng ĐHKTQD - Khoa Tin học kinh tế 56 Chuyên đề thực tập tốt nghiệp - PhÝ Thanh Hoa - Tin 41B Form lùa chän hiển thị thông báo nợ cho khách hàng Báo cáo gửi tới khách hàng thông báo cho khách hàng biết tình hình sử dụng Internet họ Trờng ĐHKTQD - Khoa Tin học kinh tế 57 Chuyên đề thực tËp tèt nghiÖp - PhÝ Thanh Hoa - Tin 41B Báo cáo đà đợc thiết kế nh sau: Report Thông báo tình hình sử dụng Internet khách hàng Báo cáo tổng hợp chơng trình cung cấp toàn thông tin khách hàng nh tình hình sử dụng cớc phí họ Báo cáo đợc thiết kÕ nh sau: Trêng §HKTQD - Khoa Tin häc kinh tế 58 Chuyên đề thực tập tốt nghiệp - Phí Thanh Hoa - Tin 41B Báo cáo tổng hợp 11.Code chơng trình Code form chính(MDI Form) Private Sub mnuCanhan_Click() Trêng §HKTQD - Khoa Tin häc kinh tÕ 59 Chuyên đề thực tập tốt nghiệp - Phí Thanh Hoa - Tin 41B frmcanhan.Show End Sub Private Sub mnugiay_Click() frmthongbao.Show End Sub Private Sub mnuInan_Click() rp1.Show End Sub Private Sub mnuThang_Click() frmnothang.Show End Sub Private Sub mnuSua_Click() Frmsua.Show End Sub Private Sub mnuThem_Click() frmthem.Show End Sub Private Sub mnuThoat_Click() If MsgBox(" Bạn có chắn thoát ?", vbYesNo, "Thông b¸o") vbYes Then Exit Sub End If End Trêng ĐHKTQD - Khoa Tin học kinh tế 60 Chuyên đề thùc tËp tèt nghiÖp - PhÝ Thanh Hoa - Tin 41B End Sub Private Sub mnuthongbao_Click() frmcanhan.Show End Sub Private Sub mnuThutien_Click() frmnhap.Show End Sub Private Sub mnuVung_Click() frmvung.Show End Sub Private Sub mnuXem_Click() Frmxem.Show End Sub Private Sub mnuXoa_Click() Frmxoa.Show End Sub Code form NhËp TiỊn cíc phÝ Private Sub Cmdluu_Click() Data2.Refresh Trêng §HKTQD - Khoa Tin häc kinh tế 61 Chuyên đề thực tập tốt nghiệp - PhÝ Thanh Hoa - Tin 41B While Not Data2.Recordset.EOF With Data2.Recordset If (!makh = UID.Text) Then Edit !datra = Val(Txttong.Text) - Val(Txtno.Text) !no = Val(Txtno.Text) Update End If MoveNext End With Wend MsgBox "Dữ liệu đà đợc lu!", , "Thông b¸o" Cmdluu.Enabled = False Cmdmoi.SetFocus End Sub Private Sub Cmdmoi_Click() Cmdluu.Enabled = False UID.Text = "" Txttong.Text = "" Txttra.Text = "" Txtuser.Text = "" Txtno.Text = "" Txtdura.Text = "" Txtdatra.Text = "" UID.SetFocus End Sub Private Sub cmdthoat_Click() Unload frmnhap End Sub Trêng §HKTQD - Khoa Tin häc kinh tế 62 Chuyên đề thực tập tốt nghiệp - PhÝ Thanh Hoa - Tin 41B Private Sub Form_Load() Dim mySQL As String mySQL = "SELECT MAKH FROM BANGNO GROUP BY MAKH" data1.RecordSource = mySQL data1.Refresh While Not data1.Recordset.EOF With data1.Recordset If (Not IsNull(!makh)) Then UID.AddItem !makh End If MoveNext End With Wend Cmdluu.Enabled = False End Sub Private Sub Txttra_KeyPress(KeyAscii As Integer) Dim s As Double On Error GoTo Err_Txttra_Click If KeyAscii = 13 Then s = CLng(Txtno.Text) - CLng(Txttra.Text) s = Val(Txtno.Text) - Val(Txttra.Text) If s < Then MsgBox "Đà trả thừa " & -s & "!", , "Thông báo" Txttra.SetFocus Else Txtno.Text = s Cmdluu.Enabled = True Cmdluu.SetFocus Trêng §HKTQD - Khoa Tin häc kinh tÕ 63 Chuyên đề thực tập tốt nghiệp - Phí Thanh Hoa - Tin 41B End If End If Exit_Txttra_Click: Exit Sub Err_Txttra_Click: MsgBox "Nhập sai liệu!", , "Thông báo" Cmdluu.Enabled = False Resume Exit_Txttra_Click End Sub Private Sub UID_Click() Dim s As Long Cmdluu.Enabled = False Txttong.Text = "" Txttra.Text = "" Txtuser.Text = "" Txtno.Text = "" Txtdura.Text = "" Txtdatra.Text = "" Data2.Refresh While Not Data2.Recordset.EOF With Data2.Recordset If (!makh = UID.Text) Then Txtdura.Text = !Duration Txttong.Text = !tongtien Txtuser.Text = !UserName If Not (IsNull(!datra)) Then Txtdatra.Text = !datra Txtno.Text = Val(Txttong.Text) - Val(Txtdatra.Text) Else Trêng §HKTQD - Khoa Tin học kinh tế 64 Chuyên đề thực tËp tèt nghiÖp - PhÝ Thanh Hoa - Tin 41B Txtdatra.Text = Txtno.Text = Txttong.Text End If End If MoveNext End With Wend Txttra.SetFocus End Sub Code form thêm khách hàng Private Sub Command1_Click() With Data2.Recordset AddNew !UserName = Text2.Text !Duration = Val(Text3.Text) !tongtien = Val(Text6.Text) !datra = !no = Val(Text6.Text) Update End With MsgBox "D÷ liƯu đà đợc lu!", , "Thông báo" Command1.Enabled = False Command2.SetFocus End Sub Private Sub Command2_Click() Text2.Text = "" Trêng §HKTQD - Khoa Tin học kinh tế 65 Chuyên đề thực tËp tèt nghiÖp - PhÝ Thanh Hoa - Tin 41B Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text2.SetFocus Command1.Enabled = False End Sub Private Sub Command3_Click() Unload frmthem End Sub Private Sub Form_Load() Command1.Enabled = False End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Not (Text2.Text = "") Then Text3.SetFocus Else Text2.SetFocus End If End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) On Error GoTo Err_Text3_Click If KeyAscii = 13 Then Text4.Text = CLng(Text3.Text) * / Text5.Text = CLng(Text3.Text) * / 30 Trêng §HKTQD - Khoa Tin học kinh tế 66 Chuyên đề thực tập tốt nghiÖp - PhÝ Thanh Hoa - Tin 41B Text6.Text = Val(Text4.Text) + Val(Text5.Text) If Not (Text2.Text = "") Then Command1.Enabled = True Command1.SetFocus Else Text3.SetFocus Command1.Enabled = False End If End If Exit_Text3_Click: Exit Sub Err_Text3_Click: MsgBox "NhËp sai d÷ liệu!", , "Thông báo" Text3.SetFocus Command1.Enabled = False Resume Exit_Text3_Click End Sub Code form Sửa khách hàng Private Sub Command1_Click() Data2.Refresh While Not Data2.Recordset.EOF With Data2.Recordset If (!makh = UID.Text) Then Edit !no = Val(txttong.Text) - Val(txtda.Text) Trêng §HKTQD - Khoa Tin häc kinh tÕ 67 ... đà đợc tham gia vào bảo trì hệ thống Đề tài bổ sung thêm modul vào hệ thống để tính phần d nợ khách hàng họ cha nộp đủ cớc phí mà họ đà sử dụng Với đề tài tơng đối nhỏ so với hệ thống công ty nhng... kÕ thõa hệ thống mẹ phát triển thêm, bổ sung thêm chức mà hệ thống mẹ cha có Với việc đà có sẵn hệ thống mẹ phải bổ sung thêm chức vào hệ thống thu? ??n lợi cho việc tiếp cận, phân tích hệ thống nh... Giao diện Thêm khách hàng Để thêm khách hàng ta phải thêm tất yếu tố khách hàng nh Mà khách hàng, tên khách hàng , yếu tố đà tồn bảng liệu Do việc thiết kế giao diện để thêm khách hàng phải thiết
