Giáo trình Phát triển ứng dụng trong quản lý: Phần 1

ƯỜNG ĐẠI HỌC KINH TẾ Q U Ố C DÂN KHOA TIN HỌC KINH TÊ Chủ biên: ThS Trịnh Hoài Sơn crystal reports &2001 CrytUI Decmorn Inc All right* rtitrved Crytul Dccitlona Crytul Report* Crytlil Enlcrptls* Cfytlil Anítyils Sejgaic Info, and Sejgite Holot ttt ư*đemirk» or registered Iradtmirk* ol Crytul Dfcitlon* Inc All 0U»r Irid*fn»rks referenced t'C u>»property Ol Uwlr retpectne owner •ĩ» crystal decisions InstallShieldỴ Premier Edition Ẩ M e l i a s o f t Giáo trình PHÁT TRIỂN ỨNG DỤNG TRONG QUẢN LÝ NHÀ XUẤT BẢN ĐẠI HỌC KINH TẾ Q UỐ C DÂN TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN KHOA TIN HỌC KINH T Ế »0 t ã ca Chủ biên: ThS TRỊNH HOÀI SƠN Giáo trinh PHÁT TRIỂN ÚNG DỤNG TRONG QUẢN LÝ NHÀ XUẤT BẢN ĐẠI HỌC KINH TẾ Quốc DÂN Lời nói đầu Đât nước V iệt N am trinh hội nhập kinh tế quốc tế mạnh mẽ Các doanh nghiệp Việt N am không ngừng tự đổi mới, đại hóa cơng tác quản lý, nâng cao giá trị thân để đáp ứng địi hỏi q trình hội nhập kinh tế quốc tế đất nước Tin học hóa cơng tác quản lý việc trang bị phần mềm ứng dụng để đại hóa cơng tác quản lý giải pháp m ột xu hướng tất yếu doanh nghiệp Việt Nam trình phát triển hội nhập Chương trình đào tạo chuyên ngành sinh viên khoa Tin học Kinh tế Đại học Kinh tế Quốc dân bao gồm nhiều m ơn học phân chia thành nhóm sau: mơn học cung cấp kiến thức lý thuyết sở, tàng tin học lĩnh vực nghiên cứu tin học; môn học rèn luyện tư kỹ lập trình; M ơn học Phát triển ứng dụng qn lý khơng thuộc vào nhóm nêu m tồng hợp kiến thức hầu hết môn học chuyên ngành Thực vậy, để phát triển phần mềm ứng dụng quản lý thương mại hóa địi hỏi nhiều mảng kiến thức khác nhau: từ kiến thức m ang tính lý thuyết thơng tin, hệ thống thông tin, sở liệu, công nghệ phần m ềm đến kiến thức kỹ cụ thể lập trình sở; lập trình nâng cao; cấu trúc liệu giải th u ậ t M ục đích mơn học: • bước mềm dụng Trang bị cho sinh viên kiến thức kỹ để thực trinh phân tích, thiết xây dựng đóng gói m ột phần ứng dụng quản lý sờ ngơn ngữ lập trình cao cấp sừ phổ biến thực tế Sau kêt thúc môn học, sinh viên thu kết sau: • N ắm rõ bước để xây dựng phần mềm hồn chinh mang tính thương mại • Biết cách sử dụng khai thác số tiện ích quan trọng để tạo phần m ềm quản lý m ang tính chun nghiệp • Có kinh nghiệm vận dụng việc thực làm Đề án chuyên ngành Báo cáo thực tập tốt nghiệp cuối khóa Nội dung giáo trình Giáo trình viết theo chương trình m ơn học thuộc chương trình khung ngành Hệ thống thông tin kinh tế trường Đại học K inh tế Quốc dân Hiệu trường phê duyệt làm tài liệu thức dùng cho giảng dạy, học tập trường Đại học Kinh tế Quốc dân theo hợp đồng trách nhiệm số 10-08/HĐTN ngày 15 tháng năm 2008 N gồi lịi nói đầu tài liệu tham khảo, giáo trình chia thành chương phụ lục Chương 1: Hệ thống thông tin quản lý với tổ chức doanh nghiệp Chương 2: N gôn ngữ lập trình Visual Basic 6.0 Chương 3: Xây dựng giao diện ứng dụng quản lý Chương 4: Lập trình liên kết khai thác sờ liệu Chương 5: Tạo báo cáo đầu cho ứng dụng Chương 6: Biên soạn tài liệu hướng dẫn sử dụng Chương 7: Tạo cài đặt cho ứng dụng Phụ lục: M ột số đề tập lớn dành cho việc thực hành phát triển ứng dụng quản lý m ột tài liệu m inh họa tất bước quy trình phân tích, thiết kế xây dựng m ột phần m ềm ứng dụng cụ thể Tác giả xin trân trọng cám ơn tất thầy, cô giáo khoa Tin học Kinh tế, Đại học K inh tế Quốc dân, đặc biệt thầy, giáo có tên sau tư tưởng, đóng góp chun m ơn cung cấp tài liệu cho giáo trình: PGS.TS Hàn V iết Thuận; TS Cao Đ ình Thi; TS Đ ặng Quế Vinh; ThS Trần Cơng u ẩ n Giáo trình m ói biên soạn lần đầu nên không tránh khỏi thiếu sót Rất m ong nhận ý kiến đóng góp thầy, giáo bạn sinh viên để giáo trình ngày m ột hồn thiện Mọi ý kiến đóng góp xin gửi về: Trịnh H oài Sơn, giảng viên khoa Tin học Kinh tế, Đ ại học K inh tế Quốc dân, Email: sonth(a).neu edu H N ội, tháng năm 2010 Chương Hệ THỐNG THÔNG TIN QUẢN IV VỚI T ổ CHỨC DOANH NGHlệP 1.1 Lợi ích thực trạng việc tin học hố cơng tác quản lý doanh nghiệp Việt Nam 1.1.1 L ợ i ích cùa việc tin học hố cơng tác quản lý Tin học hóa cơng tác quản lý m ột giải pháp xu hướng tất yếu m ột doanh nghiệp muốn phát triển, m rộng tương lai Thực vậy, m quy m ô phạm vi hoạt động cùa doanh nghiệp phát triển đến m ột m ức làm cho số lượng liệu phát sinh cần phải xử lý với độ phức tạp toán quản lý ngày tăng lên Việc tri m ột hệ thống thông tin cũ thủ công hay lạc hậu dần trờ thành m ột gánh nặng, không đáp ứng yêu cầu công tác quản lý, nguyên nhân cản trở phát triển, m rộng doanh nghiệp tương lai Thực tin học hóa cơng tác quản lý đem lại cho doanh nghiệp lợi ích sau đây: ❖ Có khả cung cấp thơng tin m ột cách nhanh chóng cho nhà quản lý để hỗ trợ việc định, đồng thời hỗ trợ việc kiểm tra thi hành định Toàn trinh xử lý thông tin, tổng hợp báo cáo thực tự động hóa bời hệ thống phần m ềm ứng dụng khiến cho thời gian cần thiết đế đáp ứng yêu cầu nhà quản lý việc truy vấn khai thác thông tin rút ngắn nhiều Hơn nữa, m ột hệ thống thông tin xây dựng tồn diện, tổng thể cịn cho phép nhà quản lý thực việc kiểm tra, theo dõi trinh, tiến độ kết quà việc thực định quản lý ban hành Đ ối với cơng ty có quy mơ lớn, tính chất theo kiểu tập đồn, cơng ty m ẹ việc tin học hóa cơng tác quản lý giúp cho họ tổ chức thành công việc quản lý, thu thập tồng hợp số liệu tò nguồn khác ❖ D oanh nghiệp giảm chi phi nhân cơng, chi phí cho việc lưu trữ, bào quản tiết kiệm thời gian Để đảm bảo thực nhiệm vụ m ình thi m ột hệ thống quản lý thủ công cần nhiều nhân lực, có lên đến 10 người Khi áp dụng tin học vào hoạt động quản lý thi hầu hết công việc tổng hợp xử lý số liệu phải thực thủ công trước làm tự động hóa phần m ềm m áy tính Cơng việc cùa cán ứ ong hệ thống thông tin quản lý chi phải cập nhật sổ liệu phát sinh từ giao dịch hay hoạt động tồ chức với trợ giúp máy tính sau thực in báo cáo theo yêu cầu mục chức tương ứng phần m ềm ứng dụng Việc lưu trữ hệ thống chứng từ, hóa đơn thủ cơng trước cần nhiều không gian tốn nhiều thời gian có nhu càu tìm kiếm a cứu C sở liệu hệ thống quản lý tin học hóa lưu trữ ưong phương tiện nhớ máy tính điện tử, quản trị m ột cách hợp m ột hệ quản trị sở liệu bảo đảm tối u u không gian lưu trữ thời gian truy suất tìm kiếm ❖ Tin học hóa cơng tác quản lý giúp doanh nghiệp có hội tiếp cận ứng dụng đại công nghệ thông tin tham gia thương mại điện tử, với hội m rộng phạm vi giao dịch vượt biên giới quốc gia vuơn tới nước ứ ong khu vực ên giới, thời gian giao dịch tiến hành h /l ngày ngày/1 tuần V ói hệ thống thông tin quản lý đại, doanh nghiệp có uy tín hơn, tin tưởng ứ ong m đối tác bạn hàng khu vực giới, có hội tiếp cận hợp đồng lớn hơn, giá trị cao M ặc dù đem lại nhiều lợi ích việc tin học hóa cơng tác qn lý đem lại nhiều thách thức cho doanh nghiệp: ❖ Địi hỏi chi phí lớn cho việc trang bị m áy m óc thiết bị tin học Xây dựng hệ thống thơng tin tin học hóa địi hỏi doanh nghiệp cần đầu tư trang bị thành phần hệ thống thông tin m quan ọng tốn nhiều chi phí đầu tư trang bị phần cứng phần mềm v ề phàn cứng bao gồm máy tính, m áy văn phịng, m ạng m áy tính thiết bị phụ trợ khác; phần m ềm bao gồm hệ điều hành, hệ quản trị sở liệu, phàn m ềm ứng dụng quản lý phần m ềm tiện ích khác Theo kinh nghiệm thực tế tổng số tiền đầu tư cho toàn thành phần ên thấp vài nghìn la cao lên tới 100 nghìn la ❖ Địi hỏi cán tổ chức phải có m ột tảng kiến thức ngoại ngữ tin học Hệ thống thơng tin tin học hóa áp dụng công nghệ tiên tiến, để vận hành khai thác sử dụng hiệu địi hỏi đội ngũ cán bên canh kiến thức chuyên mơn cịn địi hỏi kiến thức tổng qt tin học ngoại ngữ Đối với doanh nghiệp thành lập u cầu hồn tồn đáp ứng nhiên doanh nghiệp lâu năm, doanh nghiệp nhà nước, yêu cầu khơng phải lúc đáp ứng ❖ N eu việc quàn lý không chặt chẽ máy móc tin học bị sừ dụng sai mục đích, làm giảm hiệu suất làm việc nhân viên Khi thay hệ thống quản lý thủ cơng hệ thống quản lý tin học hóa, doanh nghiệp nâng cao suất hiệu làm việc cán bộ, nhân viên lên nhiều lần N hững công việc m trước phải làm thù cơng làm tự động phần m ềm máy tính, số lượng nhân lực cần thiết máy quản lý m giảm chi cịn m ột nửa chí phần ba s ố lượng lao động dôi dư khơng quản lý, bố trí cơng việc hợp lý m ột lãng phí nguồn lực đáng kể Hơn theo kết cùa m ột điều a đăng m ạng Internet có tới m ột nửa thời gian ngày làm việc cùa nhân viên văn phòng dành cho việc khai thác, sử đụng m ạng internet mục đích giải trí cá nhân Đ ây m ột tốn quản lý khó nhà quản lý doanh nghiệp định trang bị hệ thống thông tin quản lý ❖ Vấn đề bảo m ật thông tin không quan tâm mức làm thất thơng tin ngồi tạo bất lợi cho tổ chức Thơng thường chi phí cho vấn đề bào mật ngăn chặn công từ bên ngồi thường chiếm 30% tổng chi phí xây dựng hệ thống thông tin V iệc coi nhẹ phòng thủ bảo mật giúp doanh nghiệp tiết kiệm nhiều chi phí đầu tư xây dựng hệ thống thông tin quản lý, quản trị kinh doanh Đây m ột sai lầm bời doanh nghiệp khơng tính trước tổn thất, thiệt hại hệ thống họ bị tin tặc công, khống chế phá hoại! Trong thời gian gần đây, thông tin việc tin tặc công phá hoại hay cô lập m ột website m ột doanh nghiệp diễn thường xuyên Việc công chủ yếu thực bàng cách khai thác lỗ hổng ứng dụng w eb hay kỹ thuật m ã hóa để vịng tránh phịng chống mạng vói khả phịng thủ doanh nghiệp V m ột kẻ cơng kiểm sốt hệ thống máy chủ cùa doanh nghiệp m ọi điều tồi tệ xảy T uy nhiên khơng có nghĩa m ột doanh nghiệp đầu tư tiền bạc vào lĩnh vực bảo m ật phòng chổng n tâm trước cơng tin tặc Thực tế chứng m inh cơng ty có trang bị hệ thống bảo m ật tốt bị công chịu nhiều thiệt hại 1.1.2 Các g ia i đoạn p h t triển ứng dụng tin học tron g m ộ t tổ chức th ế g iớ i nói chung Việt N am n ói riêng Lịch sử phát triển trinh tin học hóa cơng tác quản lý Việt Nam nói riêng tồn giới nói chung trải qua giao đoạn từ mức độ thấp đến m ức độ cao, từ xử lý thủ công đến x lý giới bàng loại máy tính học cuối xử lý tự động ữ ên sở công cụ tin học đại Theo Rechard N olan thi có giai đoạn phát triền cùa phát triển ứng dụng tin học tổ chức Giai đoạn 1: G iai đoạn khởi đầu Trong giai đoạn này, máy tính đưa vào tổ chức Công việc xử lý liệu thực cán trơng coi máy tính+ cán lập trình+ nhân viên nhập liệu X lý liệu thường gắn liền bời nghiệp vụ xác định rõ ràng, làm việc với m ột tập hợp quy tắc định, lao động giản đom, cực nhọc, đơn điệu, lặp lại Đây thực vấn đề tuyệt vời cho tự động hóa N hững tốn ong kế tốn tài thường áp dụng máy tính Trong giai đoạn này, cán xử lý liệu người sử đụng học công nghệ thông tin học cách làm việc với Đó m ột thời kỳ ngây ngô, vụng N gười dùng khơng có khái niệm m chờ đợi Họ chẳng có lý để thất vọng họ nhận Có thể nói thời kỳ người m ù dẫn đường người mù Người sử dụng không hiểu rõ loại vấn đề yêu cầu cách đánh giá hiệu cách giải Giai đoạn kết thúc G iai đoạn 2: Giai đoạn lan rộng Các thao tác để xử lý liệu đa trờ thành dễ dàng dễ tiếp cận hơn, người sử dụng thấy hứng thú vói cơng nghệ mói Do u cầu ứng dụng máy tính tăng nhanh Giai đoạn cán xử lý liệu tự động đánh giá q cao khả máy tính Khơng phải lần nghe thấy m áy tính giỏi giang thay người qn lý nút bấm; máy tính định Chẳng có ngạc nhiên thấy kết luận láo xược khơng nhà quản lý chấp nhận phàn ứng tiêu cực họ phát triển cùa ứng dụng công nghệ thống tin quản lý Tuy nhiên có nhiều người sử dụng ngây thơ bị ảo tường kích động dẫn tói thời kỳ tăng trường khơng có kiểm sốt ứng dụng xử lý liệu tự động Giai đoạn 3: Giai đoạn kiềm sốt ứng dụng Việc có q nhiều u cầu tin học hóa, thiếu hiểu biết thấu đáo CNTT thiếu kinh nghiệm làm cho nhiều ứng dụng bị hạn chế thời gian, vượt chi phí cho phép hệ thống xừ lý làm việc không tốt Chúng không đáp ứng mong đợi nhà quản lý cấp cao họ xem xét lượng tiền chi lợi nhuận tính Do đó, nhà quản lý liệu tự động bắt đầu xem xét kỹ lưỡng yêu cầu tự động hóa xử lý liệu Các nhà quản lý thấy quản lý phận xử lý liệu gần quản lý phận kỹ thuật tồ chức Cán quản lý xử lý liệu bắt đầu suy nghĩ theo nghĩa kinh doanh Người đặt yêu cầu xử lý tự động phải biện m inh cho yêu cầu Trách nhiệm người sử dụng nguồn lực thông tin đặt tồ chức M ột loại cán m ới đời - cán quản lý có khả CNTT Vì cán xử lý liệu người yêu cầu phải tiến hành phân tích chi phí/lợi nhuận cho ứng dụng cán xử lý liệu tự động phải học kinh doanh người sử dụng phải học thêm CNTT Đ iều có ảnh hưởng manh tới hoạt động kinh doanh dự án m họ đề xuất Giai đoạn 4: G iai đoạn lích hợp Trong năm 70, cơng nghệ máy tính tăng trường nhanh cơng nghệ thơng tin lúc vào thịi kỳ cạnh tranh đối đầu m ột số người cho công nghệ thông tin đưa vào đủ thay cho 10 năm sử dụng có hiệu có Cơng nghệ phần mềm m ói ngơn ngữ hệ cho phép tạo tích hợp chức nàng quàn lý kinh doanh xử lý liệu tự động, kết trực tiếp tập trung quản lý thông tin ưong cấu trúc đơn giản Trong giai đoạn người sử dụng xếp hàng dài trước cửa phòng lập trinh để đề nghị ưu tiên cho vấn đề họ Họ tự làm cơng việc họ máy tính G iả máy tính phần m ềm giảm xuống thấp phù hợp với nguồn lực tài cùa người dùng Bộ phận chuyên trách xử lý liệu tự động tập trung hoạt động m ình vào cơng việc dịch vụ, cung cấp tiện ích trợ giúp kỹ thuật cho người sử dụng Giai đoạn 5: Giai đoạn quản trị liệu Có thể nói, giai đoạn hệ thống thông tin Bộ phận hệ thống thông tin nhận thông tin nguồn lực người phải sử dụng nguồn lực cách dễ dàng C hính thế, thơng tin phải qn lý m ột cách thích hợp Dữ liệu phải lưu trữ tri cho người sử dụng tiếp cận tới chúng m ột tài nguyên dùng chung Để dùng chung, mơ hình liệu phải xây dựng độc lập với ứng dụng Tư tường cho phép người sử dụng phát triển ứng dụng để sử dụng liệu chung Giai đoạn đặc tn m g uy lực người sử dụng, người m có trách nhiệm tích hợp sử dụng riêng tài nguyên thông tin cùa doanh nghiệp Môi trường ClienƯServer pháp triển mạnh Server lưu trữ liệu Client tra cứu, xem xét xin báo cáo Giai đoạn 6: Giai đoạn chín muồi giai đoạn đan kết hoàn toàn nguồn lực thơng tin vào tồn hoạt động tổ chức từ cấp chiến lược trở xuống C án thông tin cấp cao thành viên đội ngũ qn lý cao cấp, đóng góp phần cho định kinh doanh khai thác CN TT cho việc giành lợi cạnh tranh X ét thực tế Việt N am , trình ứng dụng tin học vào công tác quản lý trải qua giai đoạn: * 10 Giai đoan 1: N hững năm 90 kỷ trước: K hi giá trị m ột máy tính khoảng vài chục triệu đồng Đó m ột khoản chi phí khơng nhỏ hầu hết doanh nghiệp Hơn nữa, việc ứng dụng tin học nói chung ên tồn giới chưa cao Ở VN chưa có phần m ềm ứng dụng phục vụ quản lý, kiến thức, trinh độ tin học nói chung tồn xã hội mức thấp, nhiều người m ói chi lần đầu Initial Catalog = databasename; Server = servername; port = 1433; ■ Trong đó: • Provider = SQLOLEDB 1: phương thức kết nối • UID = sa; PW D = sa: tài khoản đăng nhập • Initial Catalog = databasename: tên sở liệu • Server = servemam e tên server nơi cài đặt SQL Server • port = 1433 cổng truy cập sở liệu mặc định * Để mờ m ột bảng liệu có tên tên Table, Query, View hay chuỗi SQL dạng Select Ta dùng cú pháp sau: R s.O pen “ T able/Q uery/V iew /S elect” , C n Trong đó: Đối tượng Cn kết nối với sở liệu Một số thuộc tính đối tượng RecordSet: • EOF: trả giá trị True trỏ sau mẫu tin cuối • BOF: trả giá trị True trỏ mẫu tin ■ Fields: để gán lấy giá trị trường FieldNam e mẫu tin theo cú pháp: • • Rs(“FieldNam e”) = Value • x = Rs(“ FieldName”) RecordCount: trà giá trị số mẫu tin có đối tượng RecordSet ❖ M ột số phương thức cùa đối tượng RecordSet: • MoveFirst, MoveLast, MoveNext, MovePrevious: phương thức để di chuyển trỏ mẫu tin • AddNew, Update, Delete: phương thức để thêm, cập nhật xóa mẫu tin Đóng kết ADO ta dùng cú pháp sau Rs.Close Cn.Close Ghi chú: ■ Có thể m lại tập liệu với câu lệnh SQL hay tên đối tượng 180 Table, View, Query ■ Có thể kết nối sờ liệu trờ lại với chuỗi kết nối khác ConnectionString 4.6.3 L ập trìn h thêm d ữ liệu vào bảng sử d ụ n g ADO Có hai cách thêm liệu: - Cách thứ nhất: sử dụng phương thức Excute đối tượng Connection kết hợp với phát biểu Insert SQL - Cách thứ hai sừ dụng phương thức AddNew Update đối tượng RecordSet ❖ P hư ng thứ c E xcute đối tư ợ ng C n: Dim Cn As New ADODB.Connection Dim strCn As string ‘Chuỗi kết nối sở liệu Dim strSQL As string ‘Chuỗi phát biểu SQL Dim intRecords As Integer'So ghi thêm strCn = “Provider = " strSQL = “INSERT INTO VALUES ” ‘Kết nối sờ liệu Cn.Open strCn Cn.Excute strSQL, intRecordsThêm liệu Cn Close Set Cn = Nothing ❖ P hư ong th ứ c A ddN ew v U pd ate Rs: Dim Cn As New ADODB.Connection Dim Rs As New ADODB.RecordSet Dim strCn As string 'Chuỗi kết nối sờ liệu Dim strSQL As string ‘Chuỗi phát biểu SQL strCn = “Provider = ” strSQL = “SELECT * FROM " ‘Mờ kết mối Cn.Open strCn 'Mờ sờ liệu 181 Rs.Open strSQL, Cn, adOpenDynamic, adLockOptimistic ‘Thêm mẫu tin Rs AddNew Rs(“FieldName’') = Value 'Cập nhật mẫu tin Rs.Update Rs.Close Cn.Close Set Rs = Nothing S e t Cn = Nothing 4.6.4 L ập trìn h hiển th ị ghi tro n g b ản g C SD L Dim Cn As New ADODB.Connection Dim Rs As New AD ODB Record Set Dim strCn As string 'Chuỗi kết nối sở liệu Dim strSQL As string ‘Chuỗi phát biểu SQL strC n = “P ro v id er = " strS Q L = “S E L E C T * FROM ” 'Mở kết nối Cn.Open strCn 'Mờ sờ liệu Rs.Open strSQL, Cn, adOpenDynamic, adLockOptimistic ‘Liệt kê mẫu tin If NOT Rs.EOF Then Variable = RsfFieldName”) End If Rs.Close Cn.Close Set Rs = Nothing Set Cn = Nothing 182 4.6.5 C ập n h ậ t d ữ liệu vào b ản g CSDL ❖ Có hai cách cập nhật liệu vào sờ liệu sau thay đổi: ■ Cách thứ sử dụng phương thức Excute đối tượng Connection kết hợp với phát biểu UPDATE SQL ■ Cách thứ hai sử dụng phương phức Update đối tượng RecordSet ❖ Cập nhật liệu sử dụng phương thức Excute: ‘Đối tượng kết nối sở liệu Dim Cn As New ADODB.Connection Dim strCn As string Dim strSQL As string Dim intRecords As Integer strCn = “Provider = ” strSQL = “UPDATE SET ” ‘Mờ kết nối Cn.Open strCn ‘Mở sở liệu Cn.Excute strSQL, inRecords 'Liệt kê mẫu tin Cn.Close Set Rs = Nothing Set Cn = Nothing ❖ Cập nhật liệu sử dụng phương thức Update: ‘Đối tượng kết nối sờ liệu Dim Cn As New ADODB.Connection Dim Rs As New ADODB.RecordSet Dim strCn As string Dim strSQL As string strCn = “Provider = ” strSQL = “SELECT * FROM ” 'Mờ kết nối 183 Cn.Open strCn ‘Mờ sở liệu Rs.Open strSQL, Cn, adOpenDynamic, adLockOptimistic If NOT Rs.EOF Then Rs("FieldName") = Value Rs Update End If Rs.Close Cn.Close Set Rs = Nothing Set Cn = Nothing 4.6.6 Xóa d ữ liệu tro n g C SD L Có hai cách xóa liệu sờ liệu: - Cách thứ sừ dụng phương thức Excute cùa đối tượng Connection kết hợp với phát biểu DELETE cùa SQL - Cách thứ hai sừ dụng phương phức Delete đối tượng RecordSet Xóa liệu dùng phương thức Excute: ‘Đối tượng kết nối sờ liệu Dim Cn As New ADODB.Connection Dim strCn As string Dim strSQL As String Dim intRecords As Integer strCn = “Provider = ” strSQL = “DELETE FROM ” Cn.Open strCn ‘Mờ sờ liệu Cn.Excute strSQL, inRecords Cn.Close Set Rs = Nothing Set Cn = Nothing 184 ❖ Xóa liệu dụng phương thức Update: ‘Đối tượng kết nối sờ liệu Dim Cn As New ADODB.Connection Dim Rs As New ADODB RecordSet Dim strCn As string Dim strSQL As string strCn = “Provider = ” strSQL = “SELECT * FROM ” ‘Mở kết nối Cn.Open strCn ‘Mờ sở liệu Rs.Open strSQL, Cn, adOpenDynamic, adLockOptimistic ‘Xóa mẫu tin If NOT Rs.EOF Then Rs Delete End If Rs.Close Cn.Close Set Rs = Nothing Set Cn = Nothing 4.6.7 K et hợ p C om boB ox L istbox với đối tư ợ n g ADO Tương tự lập trình với DAO ta nạp danh sách vào điều khiển combobox Listbox sử dụng cấu trúc sau: ‘Nạp nội dung vào hộp ComboBox ComboBox.Clear Do Until Rs.EOF ComboBox.Addltem RsC'FieldName”) Rs.MoveNext Loop ‘Nạp nội dung vào ListBox Listbox.Clear 185 Do Until Rs.EOF ListBox.Addltem Rs(“FieldName”) Rs.MoveNext Loop 4.6.8 K ết h ọ p ô lưới D a ta G rid với ADO Đối với điều khiển Data, liên kết với lưới DBGrid Tuy nhiên DBGrid lại dùng với ADO m ô lưới sử dụng với ADO phải DataGrid Khai báo sử dụng bàng cách chọn M icrosoft Data Grid control hộp thoại Component C om ponents Controls Ị Designers I insertaWe Objects I □ Microsoft Comm Control 6.0 □ Microsoft Common Dialog Control 6.0 (SP6) □ Microsoft Data Bound Grid Control 5.0 (SP3) n Microsoft Data Bound List Controls 6.0 (SP6) V 331 1f j □ Microsoft DataList Confrols 6.0 (SP3) (Olla&B) 'tfjl Microsoft DataRepeater Conừol 6.0 (OLEDB) I J M icrosoft DOS □ Miơosoft DirectAnimation Media Controls □ Microsoft FlexGrid Conừol 6.0 (SP6) □ Microsoft Forms 2.0 object Library □ Mkrosoft Hierarchical FlexGrid Control 6.0 (SP4 □ Mtoroso ft HTML Object Library iXs.lcji X■ M '•l|ỹini.jJ.;-*.lla'.i)iầiỊ Browse S i: Ejfci.l r* Selected Items O rty Microsoft DataGrid Control 6.0 (SP6) (OLEĐB) Location: ex C:\WINDOWS\5ystEm32t4SOATGRD.OCX ■ % ,OK ; I _ •' I in I C an^ I I - ■—» r W I Lựa chọn thiết lập kết nối DataGrid với ADO làm tương tự thiết kế DBGrid kết nối với DAO 186 Chú ý: Ta truyền liệu vào ô lưới ứng dụng hoạt dộng bàng câu lệnh: S et D ataG ríd.D ataSource = R es Trong Res Recordset chứa bàn ghi truyền vào 4.7 Liên kết truy xuất C SD L với sử dụng môi trường liệu Data Invironment 4.7.1 K hai báo sử d ụ n g m ôi trư n g d ữ liệu D ata E n v iro n m e n t Đe thêm Data Environm ent vào dự án Menu Project-^ More Active design -> Data Environm ent ic r o s o lt V is u a l B a s ic [d e s ig n —— ~ ► II ■ I - F o rm l (Form ) V i s Add Q®8* Modde 1ST Add User Control ” ' iS l Add Eroperty Page k ệ Ì Ỵ }' £ AddWebCiK J i Add Data Report ^ Gi" £ E 'S' i i ,ii v*' AddDHTWLPsget Ể s p ỉ ; Add Crystal Reports 8.5 - >■' More ActiveX Designers > ịị ' T- P r o je c t ! - D a t a E n v ir o n m e n t l ( D a ta E n v ự o n m e n t) a ild s lfe il Q ( ) !* J x lta l^ li^ liB l :(nj] DalaEnvứonmenM âỊỹ C o m e clio n l Connection: Connection (not connected) _ _ - 4.7.2 L iên kết vói CSDL Trong cửa so Data Environment: An phải chuột vào tên đôi tượng Data -> Add Connection làm xuất Connection (Gọi C onnectionl) Nháy phải chuột vào Connection chọn Properties cửa số cho phép thiết lập liên kết với CSDL (chọn đường dẫn tới nơi có CSDL cần liên kết) Trong tab Provider chọn M icrosoft Jet 4.0 OLE DB Provider Next -> Chọn đường dẫn An test Connection để kiểm tra đường dẫn không [ / > jP « ííe c t t rr Ọ a tá Ẹ n v iro n m e n tl ( D a t a E n v i r o n m e n l ) , - j ;D.!x; ^ D a t a L in k P ro p e rtie s /-iS '.J • S *i ■ẾD DataEnvironmeníl Provider Connection 1Advanced Al 8Ịỹ Comeclionl Spectfy the folowing to connect to Acceu data: Sfltod or onter a database nanne: IE:\PfjDalaNQLSVjndb I Erier rformsUn to log on to the dotabaso: User name: jAdmn Connection: Connect*) • tet P-èiiiirtiị • ’ -! V ị ị ) - ịS Ệ ẵ i* 1• OK ■ J ÍỈỈL t ■-r : ■ 'í r ‘i, • ■; 188 •_ “i s ic o w e c t o n - " Cane* ** - Nháy phải chuột vào Connection -> Add Command thêm vào command (mỗi command liên kết vói bảng query CSDL - Nháy phải chuột vào Command vừa thêm chọn Properties làm cửa sổ mói cho phép lựa chọn tên bảng thuộc CSDL liên kết tới (Tương tự thuộc tính RecordSource cùa ADO) N eu muốn lập trình để cập nhật liệu cho bảng tương ứng cửa sổ thẻ Advance mục lock time (Mặc định Read Only chọn Optimistic) la f e la lt i! x j j f e j i j DalaEnvkonmentl Conneclionl Connection2 p |* a l [C % dÊarúní I Parameter* I'iRelaíĩon ị 'Grouping Ị Aggregates Ị Advanced ] : • ■ V -tW '-y - • ^ Vĩ-:í> >■ ■'&■■■Caned I - Apply ;| '■ ■ ■Hdp V T o m ộ t g ia o d iệ n n g ir ò i s d ụ n g v ó i t h iế t k ế D A T A E N V I R O N M E N T Ta tạo m ột giao diện người sử dụng nhanh chóng bàng cách dùng thiết kế DataEnvironment Thiết kế kết hợp với chế biểu mẫu cùa VB, cho phép ta dùng kỹ thuật kéo để tạo giao diện người sử dụng điều khiển bàng sờ liệu Để thực điều này, ta theo bước sau: M biểu mẫu ta muốn dùng làm giao diện người sử dụng Chọn bảng thiết kế Data Environment Thà bảng vào biểu mẫu 189 Một giao diện người sừ dụng ràng buộc liệu tạo biểu mẫu tfjvP rojeal - Form I (Form) gygorml qtelalat xlEjfo gj) DataE nvkonmenll MaiLopOTfl !•_“ “glfSfc-r if c A Connecbonl ẼMỈỊSCGnnection2 BuoÌHÕcĩịl M a Lo p N N lf Command: Command based on /; M a i mhijl J x HocKy: NamHoc!|[ p Dieml: Diem2: i ■ MaMHjl r I i l i 111 tKI««»iiw Dièmíiồị í !’ > >, Diem4 |v f D^emTG: u 'I.w!'i«ii!ri!i‘ịạmli"i Tạo giao diện người sừ dụng ràng buộc liệu Thi hành ứng dụng để xem mẩu tin thứ sờ liệu Tuy nhiên, khơng có chức duyệt từ mẩu tin sang m ẩu tin khác Để thực điều đó, ta phải lập trình dùng điều khiển liệu, mô tả phần sau Chú ý: Với môi trương liệu Data Environm ent ta lúc tạo nhiều liên kết (connection) với nhiều CSDL, liên kết lại tạo nhiều Command kết nối với nhiều bảng liệu CSDL 190 CÂU H Ỏ I ÔN TẬ P C H Ư Ơ N G B ài t ậ p tổ n g h ợ p : C sở liệu sử dụng để quản lý công tác giao hàng công ty kinh doanh Các bảng sở liệu biểu diễn sơ đồ đây: KHACHHANG\ : Í Ỉ , MAKHACHANG TENCONGTY TENGIAOOICH • DIACHI EMAIL DIENTHOAI FAX NHACUNGCAP MACONGTY TENCONGTY ĨENGIAOOICH DIACHI DIENTHOAI FAX EMAIL MATHANG MAHANG TENHANG MACONGTY MALOAIHANG SOLUONG DONVITINH QAHANG dgndatham T S0H0ADON MAKHACHHANG MANHANVIEN NGAYDATHANG NGAYGIAOHANG NGAYCHUYENHANG NOỈGỊAOHANG ■ *L= |f—4> CHITIETDATHANG _ NHANVIEN MANHANVIEN HO — TEN — NGAYSINH NGAYIAMVIEC DIACHI DIENTHOAI LUONGCOBAN PHUCAP SOHOADON MAHANG GIABAN SOLUONG MUCGIAMGIA LOAIHANG *3 MALOAIHANG TENLOAIHANG Trong đó: Bảng NHA CU NG CAP lưu trữ liệu đối tác cung cấp hàng cho công ty Bàng M ATHANG lưu trữ liệu mặt hàng có cơng ty Bảng LOAIHANG phân loại mặt hàng có Bảng N HANVIEN có liệu thơng tin nhân viên làm việc công ty Bàng KHA CH HA N G sử dụng để lưu giữ thông tin khách hàng cùa cơng ty • Khách hàng đặt hàng cho công ty thông qua đơn đặt hàng Thông tin chung đơn đặt hàng lưu trữ bảng DONDATHANG (Mỗi đơn hàng phải nhân viên cùa cơng ty lập bảng có quan hệ với bàng NHANVIEN) 191 Thơng tin chi tiết đơn đặt hàng (đặt mua mặt hàng gì, số lượng, giá c ả, ) lưu trữ bảng CHITIETDATHANG Bảng có quan hệ với bảng Đ ONATHANG MATH ANG Hãy viết câu lệnh SQL để thực yêu cầu sau đây: Cho biết danh sách đối tác cung cấp hàng cho công ty? Mã hàng, tên hàng số lượng mặt hàng có cơng ty? Họ tên, địa chi năm bắt đầu làm việc cùa nhân viên công ty? Địa số điện thoại nhà cung cấp V INAM ILK gì? Cho biết m ã tên mặt hàng có giá lớn 100000 số lượng có 50? Cho biết mặt hàng công ty cung cấp? Công ty Việt Tiến cung cấp mặt hàng nào? Loại hàng thực phẩm công ty cung cấp địa công ty gì? Những khách hàng (tên giao dịch) đặt m ua mặt hàng sữa hộp XYZ công ty? 10 Đơn đặt hàng số đặt nhân viên lập, thời gian địa điểm giao hàng đâu? 11 Hãy cho biết số tiền lương m công ty phài trà cho m ỗi nhân viên (lương=Lương bàn+ phụ cấp)? 12 T rong đơn đặt hàng số đặt m ua m ặt hàng số tiền mà khách hàng phải trả cho m ỗi m ặt hàng (số tiền phải trà tính theo cơng thức SO LU O N G xG IA B A N - SO LU O N G xG IA B A N xM U C G IA M G IA /lO O )? 13 Hãy cho biết có khách hàng lại hàng cơng ty (tức có tên giao dịch)? đối tác cung cấp 14 Trong cơng ty có nhân viên có ngày sinh? 15 N hững đơn đặt hàng yêu cầu giao công ty đặt hàng đơn cơng ty nào? 16 Cho biết tên công ty, tên giao dịch, địa chi điện thoại khách hàng nhà cung cấp hàng cho công ty 17 N hững mặt hàng chưa khách hàng đặt mua 192 18 Những nhân viên công ty chưa lập m ột hoá đơn đặt hàng nào? 19 Những nhân viên công ty có lương cao nhất? 20 Tổng số tiền m khách hàng phải trá cho đơn đặt hàng bao nhiêu? 21 Trong năm 2003, mặt hàng đặt mua lần 22 Hãy cho biết m ột khách hàng bỏ tiền để mua hàng công ty? 23 Mỗi nhân viên công ty lập đơn đặt hàng? (Neu chưa lập hóa đơn cho kết 0) 24 Cho biết tồng số tiền hàng m cửa hàng thu tháng năm 2003 25 Cho biết tồng số tiền lịi m cơng ty thu từ mặt hàng năm 2003 26 Hãy cho biết tổng số lượng hàng mặt hàng m cơng ty có (tổng số mặt hàng có bán) 27 Nhân viên cùa công ty bán số lượng hàng nhiều bao nhiêu? 28 Đơn đặt hàng có số lượng hàng đặt mua nhất? 29 Số tiền nhiều m khách hàng bỏ để đặt hàng đơn đặt hàng bao nhiêu? 30 Thống kê xem năm 2003, mặt hàng tháng năm bán với số lượng bao nhiêu? Yêu cầu: Kết hiển thị dạng bảng, hai cột đầu mã hàng tên hàng, cột lại tương ứng với tháng từ đến 12 năm N hư vậy, dòng kết cho biết số lượng hàng bán tháng năm mặt hàng Bài tập tổng h ọ p Hãy thiết kế mơ hình CSDL cho trung tâm thương mại với thông tin ràng buộc sau: Trung tâm kinh doanh nhiều loại mặt hàng, mặt hàng quàn lý với thông tin: tên hàng, nước sàn xuất, đơn giá, tỷ lệ thuế Đồng thời trung tâm cố danh sách khách hàng mình, khác 193 hàng quản lý thông tin gồm tên khách hàng, địa chi, m ã số thuế Mỗi hoá đon bán hàng trung tâm ghi nhận thơng tin m ặt hàng bán Viết lệnh SQL để trả lòi câu hỏi sau: 1, Liệt kê m ặt hàng ngoại nhập bán trung tâm 2, Liệt kê danh sách mặt hàng N hật Bản sản xuất có đơn giá cao 3, Liệt kê danh sách 10 mặt hàng có đơn giá thấp 4, Tính tổng doanh thu bán hàng trung tâm quý năm 2006 5, Tính tồng doanh thu việc kinh doanh mặt hàng tivi trung tâm năm 2006 6, Liệt kê danh sách mặt hàng có doanh thu cao năm 2006 7, Đem tổng số lượng mặt hàng tù lạnh bán quý I năm 2007 8, Liệt kê danh sách mặt hàng VN sản xuất m không bán tháng năm 2006 9, Tạo bàng tổng hợp doanh thu bán hàng theo m ặt hàng năm 2006 10, Trung tâm muốn tặng quà cho khách hàng tiêu nhiều tiền việc mua hàng trung tâm nửa đầu năm 2007 Hây tìm tên cùa người Bài tậ p 3: Hãy viết câu lệnh kết nối (connection String) với sở liệu Access có tên Data.mdb, đặt thư mục theo đường dẫn “C:\Database\data.mdb”, sở liệu có đặt mật “ktqd”, sử dụng đối tượng liệu Active Data Object Các bước đề liên kết đối tượng m ột Form chức VisualBasic với m ột sở liệu? 194