Bài giảng Tin học quản lý

HỌC VIỆN CƠNG NGHỆ BƯU CHÍNH VIỄN THƠNG KHOA CƠNG NGHỆ THÔNG TIN I BÀI GIẢNG TIN HỌC QUẢN LÝ NGƯỜI VIẾT: Ths TRỊNH THỊ VÂN ANH HÀ NỘI - 2013 MỤC LỤC MỤC LỤC 1: 1.1 ậ 1.1.1 ụ 1.1.2 ụ 1.1.3 ệ 1.2 10 ệ 1.2.1 10 1.2.2 11 2: Ậ 13 2.1 13 2.2 ặt Microsoft Visual Studio.NET 14 2.3 Gi i thiệu MS Visual Studio.Net 22 2.4 Th ô ụ 24 3: Ậ 27 31 rì u tiên 27 3.2 Mở rộng welcome 34 ệ 3.3 39 3.4 Bi n s (Variable) 40 3.4.1 Chú thích 40 3.4.2 Loại d ệ ( ) 41 3.4.3 Hằng s (Contants) 42 3.5 Tên 42 36 ức (method) 43 3.7 Phạm vi (scope) 44 4: ẤU TRÚC LỆNH 45 4.1 Lệ u kiện 45 4.2 Toán tử so sánh 47 4.3 So sánh xâu 49 4.4 Lệnh l a chọn 49 4.5 Vòng lặp 51 5: 51 Ẫ 56 r 56 52 ệ 6: r 60 NG 62 6.1 Làm việc v i m ng 62 6.2 Làm việc v i ph n tử m ng 62 cc 6.3 Sử dụ 6.4 Tạo m ịnh 62 ộng 64 7: 71 Ệ 66 ì 66 7.2 Lập trình v i ADO.NET 67 7.2.1 Thuật ng v d liệu Access 67 7.2.2 Làm việc v 7.2.3 Tạo d liệu 67 u ph i d liệu Data Adapter 69 ượ 7.2.4 Sử dụ u n OleDbDataAdapter 69 7.2.5 Làm việc v i DataSet 71 7.3 Sử dụ 7.4 Tạ u n ràng buộc d liệu 71 u n duyệt xem d liệu 73 7.5 Hi n thị vị trí c a b n ghi hành 74 7.6 Sử dụ r 7 ịnh ô i DataGrid 77 7.8 Cập nhậ d liệu trở lại b ng 77 hi n thị d liệu b ng 75 CHƯ NG NG U N VỀ B I N UẢN D NG C D CH B I N UẢN 1.1 ề V ả Cơng nghệ thơng tin có th hỗ trợ doanh nghiệp c i thiện hiệu qu hiệu suất c a qui trình nghiệp vụ kinh doanh, qu n trị quy ịnh, cộng tác nhóm làm việ , ă ường vị th cạnh tranh c a doanh nghiệp mộ rườ i nhanh Tin học hóa cơng tác qu n lý c ị kinh t , hành (tin học qu ) ĩ c quan trọng c a ứng dụng tin học Xây d ng phát tri n hệ th ng thông tin kinh t qu n lý hiệ ại nội dung ch y u c a ứng dụng tin học việc t ộng hóa ph n tồn quy trình nghiệp vụ, qu n lý t chức kinh t 1.1.1 Hệ th ng tập hợp g m nhi u ph n tử , ác m i quan hệ ràng buộc lẫn hoạ ộ ng t i mục tiêu chung thơng qua chấp thuậ u vào, bi i có t tạo k t qu u Ví dụ: - Hệ th u n giao thông - Hệ th ng mạng máy tính - ệ : - Nhập vào (Input): N m b t tập hợp y u t ệth xử lý - Xử ( r ): c bi i nhằm chuy n y u t ạng c n thi t - K t xuất (Output): Chuy n y u t ược tạo từ trình xử lý thành k t qu cu i ệ ô : ột tập hợp ph n cứng, ph n m m, hệ mạng truy n thông ược xây d ng sử dụ thu thập, tạo, tái tạo, phân ph i chia sẻ d liệu, thông tin tri thức nhằm phục vụ mục tiêu c a t chức ệ : ột hệ th ng tích hợ " ười - Máy" tạo thông tin ú ười s n xuất, qu n lý quy ịnh hệ thông tin qu n lý Hệ thông tin qu n lý sử dụng thi t bị tin học, ph n m m, CSDL, th tục th cơng, mơ hình phân tích, lập k hoạch qu n lý quy ịnh Nh ộng c a CNTT t i ngành sau: + Dịch vụ tài + ă ức khỏe + S n xuất + Dịch vụ gi i trí nghe nhìn + Giáo dục + Bán lẻ + Du lịch khách sạn Một s công ty ứng dụ ô r : + Boeing Airplane Company + Wal-Mart Stores + Bissett Nursery Corp + Federal Express + Charles Schwab + USAA + L.L Bean + Progressive Corp 1.1.2 ị ng hệ th ng thông tin qu ười ta d ị ng hoạt ộng c a hệ th ng thông tin t ng th toán qu n lý mà hệ th ng gi i quy t Theo cách có th chia hệth ng thông tin thành s dạng sau: - Hệ th ng thông tin d báo - Hệ th ng thông tin khoa học - Hệ th ng thông tin k hoạch - Hệ th ng thông tin th c Hệ th ng thông tin d báo: ì 1.1: ì hệ th ng thơng tin d báo Hệ th ng thông tin d báo bao g , r ạn DB ng n hạn v vấ n doanh nghiệ , ộ KH-CN, d báo qui mô s n xuất, d báo v nhu c u c a thị rường, v mứ ộ r r ị rườ ,… ệ th ng thông tin d báo quan trọng hoạ ộng kinh t thị rường Hệ th ng thông tin khoa học: ì 1.2: ì ệ th ng thơng tin khoa học Hệ th ng thông tin khoa học bao g m thông tin v KHCB, KHCN, KHKT KHTN Từ ô rường KH rộng l n hệ th ng thông tin khoa học thu thập thông tin liên n s n xuất - kinh d ứng yêu c u qu n lý c a doanh nghiệp Hệ th ng thơng tin k hoạch: ì 1.3: ì ệ th ng thông tin k hoạch Hệ th ng thơng tin k hoạch bao g m tồn thơng tin v cơng tác k hoạch hố c a doanh nghiệp Các k hoạ ượ cập n mứ ộ: k hoạch hóa chi ược, k hoạch hóa trung hạn, k hoạ ộng HTTTKH bao quát tất c ĩ ộng c a doanh nghiệp g m c r ĩ c s n xuất qu n lý Hệ th ng thơng tin th c hiện: ì 1.4: ì ệ th ng thơng tin th c Hệ th ng thông tin th c sử dụng công cụ th ng kê k giá, phân tích q trình th c k hoạch theo thờ r HTTT th c hiện, mà cán ã ạo có th quy ịnh u chỉnh ậ , ại thông tin theo nộ ú ú mụ a dịng thơng tin hệ th ng qu r hoàn thiện nộ r ệ th ng qu n lý ki r , s liệu c a ị ng rõ n hành phát tri n 1.1.3 xây dụng ệ ứng dụng cẩm nang hỗ trợ ười dùng r ẩ ấ ă Đặc tả chức ă : Chứ ă ì ă : Cho phép tìm ki ă n b c, trung, nam Mỗi mi n g m ười hai loạ ă i loạ ă ười dùng xem mộ ă ặc s c thuộc loạ ười dùng xem chi ti t v ă : ă , ại gia vị s ượng (n u có), tác dụng gia vị, cách ch bi ă C ườ ù ấ ă ă Chứ ă x ấ ă : ười dùng xem danh sách video nấ ă c u b p n i ti ười dùng chọn video v ă ub ười dùng x ng dẫn ch bi n Chứ ă m nhà hàng: ười dùng tim ki m nhà hàng theo khu v c Hu , Hà Nội, Sài Gòn V i khu v c hi n thị danh sách nhà hàng thuộc khu v c ười dùng xem thông tin chi ti t v nhà hàng: nh nhà hàng, ịa chỉ, ện thoại liên lạc, mở cử ửa, website Chứ ă x ng cáo nhà hàng: ười dùng xem thơng tin v rì n mại c , ười dùng liên hệ v i nhà hàng thông qua s ện thoạ bi t thêm thông tin Chứ ă ẻ ph n m m: ười dùng chia sẻ thông tin v ph n m m qua sms, facebook, gmail bao g m: tên ph n m m, mô t ph n m , ường dẫn c Bi Usecase t ng quát c a hệ th ng 1.1: Danh sách usecase TT Tên usecase ĩ TimkiemMonan (Tìm ki ă ) Chứ ă ười dùng xem danh sách loạ ă n B c, Trung, Nam XemDanhsachMonan (Xem danh sách Chứ ă ười dùng xem ă ) ă a loạ ă ( ă ) Chứ ă ười dùng xem chi ti ă XemDanhsachMonanYeuthich (Xem Chứ ă ười dùng xem ă ) ă ượ ười ù dấu XemTacdungGiavi (Xem tác dụng gia Chứ ă ười dùng xem tác vị) dụng c a gia vị r ă ã ọn XemChebienMonan(Xem ch bi n Chứ ă ười dùng xem ă ) c ch bi ă ã ọn TimkiemNhahang (Tìm ki m nhà hàng) Chứ ă ười dùng tìm ki m nhà hàng Hà Nội, Hu , Sài Gòn XemChitietNhahang (Xem chi ti t nhà Chứ ă ười dùng xem chi hàng) ti t thông tin v nhà hàng (Hình , ịa chỉ, s ện thoại liên hệ, website nhà hàng, mở cửa, , a ườ ù iv …) XemDanhsachQuangcao (Xem danh Chứ ă ười dùng xem sách qu ng cáo) danh sách qu ng cáo c a nhà hàng Lienhe (Liên hệ) Chứ ă ười dùng liên hệ 10 v i nhà hàng XemDanhsachvideoChebienMonan(Xem Chứ ă ười dùng xem 11 danh sách video ch bi ă ) ng dẫn nấ ă a XemVideoChebienMonan (Xem video Chứ ă ười dùng xem 12 ch bi ă ) ng dẫn ch bi ă ười dùng ã ọn ChiasePhanmem (Chia sẻ ph n m m) Chứ ă ười dùng chia sẻ 13 ph n m m bạn bè qua sms, gmail, facebook ì 1.5: usecase t ng quát c a hệ th ng cẩm nang hỗ trợ ười dùng Bi l p phân tích L p biên: - GDDanhsachLoaiMonan (Giao diện danh sách loạ ă ) - GDDanhsachMonan (Giao diệ ă ) - GDChitietMonan (Giao diện chi ti ă ) - GDChitietMonan (Giao diện chi ti ă ) - GDTacdungGiavi (Giao diện tác dụng gia vị) - GDDanhsachNhahang (Giao diện danh sách nhà hàng) - GDThongtinChitietNhahang (Giao diện thông tin chi ti t nhà hàng) - GDDanhsachvideoChebienMonan (Giao diện danh sách video ch bi ă ) L p th c th : - Amthuc (Ẩm th c) - Quangcao (Qu ng cáo) ( ị m) - ChitietDiadiem (Chi ti ị m) - Giavi (Gia vị) - Nhahang (Nhà hàng) L u n: ế LopDieukhien (L ế ứ ă ì 1.6: Bi u n) tu n t cho ì 1.2 C c 1.7: ă l p chi ti t ềC D 1.2.1 Hệ qu n trị d liệu (Database Management System - DBMS): Là hệ th ng ph n m m cho phép tạo lậ d liệ u n truy nhậ iv d liệu 10 gán giá trị hàm InputBox nhờ vòng lặ F r… x ộ nội dung c a m lạ ược hi n thị lại vào mộ x x ũ vòng lặ F r… x Thi t k giao diện: Tạo m i gi i pháp thêm vào d án có tên MyFixedArray Thi t k giao diệ ì 6.1 r Hình 6.1 Màn hình thi t k x “ n nhiệ ộ”, : ú “ n thị nhiệ ộ”, “ ” t mã: rư c h t ta khai báo m ng nhietdo ò F r : Dim nhietdo(6) As Single ĩ ất c th tụ , u có th sử dụng m ng Ti p theo ta tạo s kiện nhập vào giá trị nhiệ ộ tu n cách tạo th tục Button1_Click nhậ ã : Private Sub Button1_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim Prompt, tieude As String Dim i As Short Prompt = "Điền vào nhiệt độ ngày." For i = To UBound(nhietdo) tieude = "Ngày " & (i + 1) nhietdo(i) = CInt(InputBox(Prompt, tieude)) Next End Sub r , ( ) v s c a m ng nhietdo, rường hợ n thị giá trị nhiệ ộ b y ngày tu ũ rị nhiệt ộ trung bình th tụ 2_ ười dùng click vào nút “ n thị nhiệ ộ” : Private Sub Button2_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles Button2.Click 63 Dim ketqua As String Dim i As Short Dim tong As Single = ketqua = "Nhiệt độ tuần: " & vbCrLf & vbCrLf For i = To UBound(nhietdo) ketqua = ketqua & "Ngày " & (i + 1) & _ vbTab & nhietdo(i) & vbCrLf tong = tong + nhietdo(i) Next ketqua = ketqua & vbCrLf & _ "Nhiệt độ trung bình: " & _ Format(tong / 7, "0.0") TextBox1.Text = ketqua End Sub Th tục lại sử dụng vòng lặ F r… x duyệt lại ph n tử m ng sau ã ược gán giá trị th tục button1_Click Bi ượ ù làm chuỗi k t xuất gộp giá trị ph n tử m ng Sau l n gộp ta sử dụng s r i u n dấu ng t dòng dấu v ò (ư i hai hàm Chr(13) Chr(10)) Hằ phân cách gi a ph n ghi ngày ghi nhiệ ộ Ta tạo th thục Button3_Click nhập phát bi k ú rì ạy rì : Khi chạ rì ậ giá trị nhiệ ộ cho ngày 6.4 Tạo mả ộng Việc dùng m ng thuận tiện Tuy nhiên ta t xác s ph n tử c a m ì ? Ví dụ ta mu ười dùng nhập vào nhiệ ộ tùy thích, nhập nhi ì ộ xác cao VB gi i quy t việc m ộ cm ộng ược ị rì c thi không ịnh lúc vi t mã Việ rư c m ng không c n thi ũ c n dành chỗ rư c cho m c tạo m ộng: - Chỉ ịnh tên ki u cho m ng thi t k form, ví dụ Dim nhietdo() As Single ãx ị cm rì c thi Ví dụ rì chạy ta hỏ x ười dùng mu n nhập ngày, ví dụ: Dim songay As Integer songay = InputBox("Ban muon nhap bao nhieu ngay?", "Tao mang dong") - Dùng bi ịnh lạ c m ng (trừ ì ng tính từ 0) Ví dụ If songay > Then ReDim nhietdo(songay - 1) - Ti ù ( ) x ịnh s ph n tử c a m ng Bây làm lại ví dụ sử dụng m ộng: - rư c h t, ta khai báo lại m ộng khai báo bi n songay chứa s ười dùng mu n nhập bằ ã i dòng khai báo l p form1: Dim nhietdo() As Single Dim songay As Integer 64 ửa lại mã c a th tụ 1_ : Dim Prompt, tieude As String Dim i As Short Prompt = "Điền vào nhiệt độ ngày." 'Nhap so muon ghi nhiet songay = InputBox("Ban muon nhap bao so ngay?","") If songay > Then ReDim nhietdo(songay - 1) For i = To UBound(nhietdo) tieude = "Ngày " & (i + 1) nhietdo(i) = CInt(InputBox(Prompt, tieude)) Next - Ti p theo thay s th tục Button2_Click bi n songay: ketqua = ketqua & vbCrLf & _ "Nhiệ ộ trung bình: " & _ Format(tong / songay, "0.0") - Ta có th dùng phát bi r … b t lỗi n ười dùng nhập vào s nhỏ - - Chạy lạ rì t qu rõ r ộ 65 CHƯ NG 7: VB NE 7.1 ADO.NET Ế N IC ADO.NET ỞD IỆU D NG ì ActiveX Data Object.NET (ADO.NET) mộ ện ph n m m NET Framework Bao g m thành ph n ph n m m cung cấp dịch vụ truy cập d liệ ược thi t k cho phép nhà phát tri n vi ã ược qu n lý cho việc ti p cận ngu n d liệu bị ng t k t n i, có th có quan hệ không quan hệ ( ặc d liệu ứng dụng) Tính ă a ADO.NET giúp ứng dụng có th chia sẻ d liệu hay ứng dụng phân tán ADO.NET cung cấp k t n i truy cập v i CSDL cách sử ụ NET Managed Provinder (mặc định Net Framework có hai Managed Provi OleDB Managed Provider) truy cập bị ng t k t n i cách sử dụng Datasets, ứng dụng sử dụng k t n d liệu thời gian truy xuất d liệu cập nhật d liệu Datasets thành ph ú ỡ r d liệu liên tục nh cung cấp truy cập bị ng t k t n i sử dụng ngu d liệu cách hiệu qu kh ă rộng t ược phát tri n từ , ũ ột công nghệ ư i mộ i cấ rú n Mặc dù có mộ rường hợ làm việc ch ộ bị ng t k t n i cách sử dụ , liệ ược chuy n CSDL ADO.NET hiệu qu ằng cách sử dụng Data Adapters ại diện nh c a d liệu gi a ADO ADO.NET khác ADO.NET có th gi d liệu b ng k t qu nhấ , nhi u b ng v i chi ti t c a m i quan hệ Không gi , ệc truy n d liệu gi a ứng dụng cách sử dụng ADO.NET không sử dụ ( j ) s p x p mà dùng datasets, truy n d liệ ột dòng XML Ki n trúc ADO.NET d a hai y u t : Dataset NET Framework data provider Data provides g m thành ph n sau : Datasets - Một tập hợ c a CSDL bao g có liên quan , ràng buộc m i quan hệ c a chúng - Chứ ă r ập d liệu từ xa từ dịch vụ Web XML - Thao tác v i d liệ ộng - Xử lý d liệu theo ki u không k t n i - Cung cấp cho xem thứ bậc XML c a d liệu quan hệ - Xử dụng công cụ XSL r hoạ ộng d liệu NET Framework Data Provider bao g m thành ph thao tác d liệu : - Connection: Cung cấp k t n i v i ngu n d liệu (database) Hay nói cách khác ượng có nhiệm vụ th c k t n i t i CSDL - Command: Th c thao tác c n thi t v lấy d liệu, sử i d liệu th c th tụ ượ r Hi r ệnh lệ iv i CSDL 66 - DataReader: Cung cấp việ ọc d liệu ọc dòng d liệu thờ m ọc theo chi u ti n từ n cu i r: rò u n i gi a Dataset CSDL, t i d liệu lên dataset hoặ ng i dataset v lại CSDL : r , truy cập từ xa lập trình v i d liệu phẳng (Flat), d liệu XML d liệu quan hệ ADO.NET cho phép: - Thao tác v i CSDL c ô rường Connected data & Disconnected data - Làm việc t t v i XML - ược v i nhi u ngu n d liệu - Làm việ r rường internet 7.2 Lập trình v i ADO.NET d liệu quan trọng việ r thơng tin D liệu có nhi u ngu n ạng VB.NET ược thi t k v i mụ r xuất, hi n thị, phân tích ệ ADO.NET mơ hình lập trình truy xuấ ệ chung cho tất c ngôn ng trình Windows V i , ú có th truy xuấ n hệ ệ theo cách thứ ã rì 7.2.1 Thu t ngữ sở li u Một s thuật ng v ệ : ệ file t chức thông tin thành b ng gọi (Table) - Mỗi b ng bao g m nhi u hàng cột, cộ ườ ược gọ rường (field) dòng ược gọ tin (record) Mơ hình truy xuất ệ ADO.NET: thi t lập k t n n ệ Ti ượ u ph ( r) ược tạ r truy vấn dl từ b tạ ượng DataSet chứa b ệ ú mu r ệ DataSet tạo b n c a b ệ mà Cu i gán thông tin ượng hi n thị r F r x x, , , r ,… 7.2.2 Làm vi c vớ sở li u Access MS Access có tên ã t cách k t n liệu vào dataset, xây d ng tích hợp chúng vào giao diện c a form ú tạo m i Solution có tên MyADOForm thêm vào d án tên Chọn View | Server Explorer từ cửa s r r x r r ì sau: 67 Hì ệ ệ ụ ộ ô ụ họa cho phép k t n ệ cục bộ, server theo mơ hình client server Ta có th ù xem cấ rú r ệ , xem thuộc tính c a b ng, ki ệ c rườ r ệ ú có th kéo k t n i b ệ cửa s tạ r ượ ệ rì ú ù , bằ ộ vào nút Connect To DataBase cửa s Server Explorer Một hộp thoại Choose Data Source cho phép ta chọn ngu n ệ ì 72 ệ ọ ú chọn Microsoft Access DataBase File thoại Add ì sau: 68 ệ ọ ú ệ , xuất hộp ì 73 ệ ọ ườ ẫ ệ ệ ọ ường dẫ ệ cách ọ nút Browse, chọn ệ Students.mdb ú có th ki m tra xem k t n i có thành cơng khơng cách ọ ú , ũ tùy chỉnh k t n i cách ọ nút Advanced ú thấy dòng mã k t n i cu i cùng, dịng mã có nội dung : “ r er=Microsoft.Jet.OLEDB.4.0;DataSource="D:\Data\Studying\VS.Net05\Bai tap\DataBase\ "” Nhấ thêm k t n i vào Server Explorer 7.2.3 Tạo ều ph i li u Data Adapter r ệ tạo u ph i Data Adapter Data Adapter ị ĩ x ng thông tin mà ta mu n lấ r ệ , n n t tạo DataSet VB.NET cung cấp nhi u cách tạo u ph n ta kéo bi ượng b ng Server Explorer vào cửa s form ch ộ thi t k ũ thứ hai dùng công cụ Data Adapter Configuration Winzard Ta gọ n công cụ cách chọn i ượng OledbDataAdapter tab Data c a ToolBox ặt lên form 7.2.4 Sử d ượ ều n OleDbDataAdapter Chọn tab Data cửa s ToolBox Tab u thao tác v ệ r ượ u cho phép tạo k tn ệ ú ã t n i Server Explorer nên không c n hai ượng n a 69 ượng OleDbDataAdapter vào form N ượng khơng xuất hiện, ta có th thêm vào cách ộ vào tab Data chọn Choose Item, xuất cửa s Choose ToolBox Items Chọn tab Net Framework Components chọ r ọ hoàn thiện việc thêm Item cho ToolBox ú ũ th v ượng khác r ược thi t k k tn ệ Access Khi kéo th ượng vào r ì VS.NET tao trình Data Adapter Configuration Winzard Một hình khở , ọ x chuy n sang hình thứ hai ọ Next hai l xuất hình soạn th o câu lệnh SQL N u ú ô ù câu lệnh SQL, có th nhấn vào nút Qu r r, ù ỗ rợ ọ b ng Instructors, ọ Add, ọ ửa s lại ấ b r r ô x ứng v rường, Query tạo câu lệ ứ rút thông tin c a b ng Trong ụ rút thông tin từ cột b ng, ọ cột Instructor ì 7.4, ọ OK (câu lệ r rút d liệu) ì 7.4 Chọ rườ xây d ng câu lệnh SQL 70 ì 7.5 Giao diện Form Sau nhấn OK, cửa s Generate The SQL Statement hi n thị câu lệnh SQL ta vừa tạo ọ F ệc tạ ượ u ph i 7.2.5 Làm vi c với DataSet ú ta tạ r ượng trình diễn d liệ ườ ù , ượng DataSet Nó nh c ệ nên thao tác c ười dùng ưở ệ n có yêu c u cập nhật r ụ tạ ượng DataSet trình diễn thơng tin cột Instructor c a b r r r ệ Students.mdb ọ ọ form1 n u không chọn lệnh tạo DataSet khơng hi n thị menu Chọn Data | Generate DataSet từ làm xuất hộp thoại Generate DataSet ú ặt tên tùy thích New, ụ DsInstructors Chọn checkBox r Visual Basic r ô ụ ọ OK ượng DataSet r r ược tạo khay công cụ VB.NET t thêm vào file có tên DsInstructors.xsd cửa s Solution Explorer File chứa thông tin v d liệu theo khuôn dạng XML 7.3 Sử dụ ú c c ụ ều khiển ràng buộc li u u x x, , ược ta ràng buộc d liệu (data binding), ứ d liệu u n phụ thuộc vào ngu n d liệu có DataSet hay d liệ r rì hi n thị r DataAdapter ú a ràng buộc d liệu v u n sau: TextBox, Label, ListBox, x, , r r x r ặc biệt DataGrid, cho phép ta hi n thị tồn nội dung c a DataSet Trong ụ ta ràng buộc d liệ x x hi n thị thông tin b ng Instructors c ệ Students.mdb ú thi t k giao diệ r ì 8.5 r ộc tính c u : 71 Button First: Name – btnFirst, enable – False Button Last: Name – btnLast, enable – False Button Next: Name – btnNext, enable – False Button Previous: Name – btnPrevious, enable – False Button Load Data: Name – btnLoadData TextBox1: Name - txtInstructors u n cịn lại có thuộ ì Bây ta ti n hành ràng buộc d liệ rường (cột d liệu – field) vào textbox txtInstructors u này, ta chọn ô textbox mở Properties c r ộ vào dấu (+) bên cạnh nhánh thuộc tính DataBindings chọn ô text, ộ vào nút ũ x ng ta có th nhìn thấy ngu n d liệu DsInstructors1 hi n thị danh sách ì : - ì 76 ệ ọ ệ ộ Chọn cộ r r ị rường hi n thị ô textbox txtInstructor ã ệ ràng buộc xong, vi t ã xuất d liệ rì c thi Chúng ta tạo th tục btnLoadData_Click cách cửa s thi t k form ấ ú ộ vào nút Load Data r i nhậ ã rì : DsInstructors1.Clear() OleDbDataAdapter1.Fill(DsInstructors1) btnFirst.Enabled = True btnLast.Enabled = True btnNext.Enabled = True btnPrevious.Enabled = True 72 ã xóa d liệu DataSet DsInstructors1 u ph i DataAdapter1 ậ ậ d liệ ượ r r1 ú ã ạo c bằ ức Fill() Chạy thử rì : ọ F5 ki m thử rì rì ạy, ọ ú rì n thị b u tiên c rường Instructor b ng d liệ ú mở rộng s ă a ứng dụ d liệ ệt b , m hi n thị s b n ghi hành ệ : - Tạo k t n ệ c n truy xuất - Tạ ượ u ph i DataAdapter - Tạ ượng trình diễn DataSet - ràng buộc d liệ u n ị : cập nhật, th ng kê, tìm ki , … 7.4 Tạ c c ều khiển t xem li u ú dừng lại việc ràng buộc d liệu hi n thị ược b u tiên vào ô textbox Trong ph n ti p theo tạo nút cho phép duyệt qua b n ghi khác nhau, xem b u tiên cu i ADO.NET cho phép qu n lý duyệt qua b n ghi (record) bằ ượng CurrentManager V ượng ta có th bi ược vị trí hành , n sau cùng, trở v u tiên, n k , rư Mỗi DataSet u có sẵ ượng CurrentManager mỗ ượ r u có thuộc tính BindingContext theo dõi tất c ượng CurrentManager form Trong ph n ú ã ạo b ú ọ ượ First, Last, Next, Previous Giờ vi t mã cho chúng x , rr r duyệt qua b n ghi Tạo th tục btnFirst_Click v i nộ : Me.BindingContext(DsInstructors1,"Instructors").Position = btnFirst.Enabled = False btnNext.Enabled = True btnLast.Enabled = True ã hi n thị b u tiên c a DsInstructors1 sử dụ ượng BindingContext Nó gán giá trị cho thuộc tính Position ( ị r ) trỏ hành c a d liệu chuy nb u tiên Tạo th tục btnLast_Click nhậ ạn mã sau: 'Đếm tổng số ghi Dim tongsobanghi As Integer = Me.BindingContext (DsInstructors1, "Instructors").Count 'Chuyển trỏ đến ghi cuối Me.BindingContext(DsInstructors1, "Instructors").Position = tongsobanghi - btnLast.Enabled = False btnFirst.Enabled = True btnPrevious.Enabled = True 73 btnNext.Enabled = False Tạo th tục btnNext_Click nhậ ạn mã sau: 'Đếm số ghi hành Dim tongsobanghi As Integer = Me.BindingContext (DsInstructors1, "Instructors").Count 'Nếu chưa phải ghi cuối next lên If Me.BindingContext(DsInstructors1, "Instructors").Position < tongsobanghi - Then Me.BindingContext(DsInstructors1, _ "Instructors").Position += btnFirst.Enabled = True btnPrevious.Enabled = True btnLast.Enabled = True Else btnNext.Enabled = False btnLast.Enabled = False btnFirst.Enabled = True btnPrevious.Enabled = True End If Th tục btnPrevious_Click: 'Nếu chưa phải ghi đầu lùi lại If Me.BindingContext(DsInstructors1,"Instructors").Position > Then Me.BindingContext(DsInstructors1,"Instructors").Position -= btnFirst.Enabled = True btnLast.Enabled = True btnNext.Enabled = True Else btnFirst.Enabled = False btnPrevious.Enabled = False End If Vậ ú ã ạo xong nút cho phép duyệt qua b n ghi ọ F5 chạy rì Ấ ú hi n thị d liệu vào textbox Ấ duyệt qua b r d liệu ọ nút Close góc ph i c r trình lại Chúng ta tạ u n label cho hi n thị vị trí b n ghi hiệ ười dùng tiện quan sát 7.5 Hiển thị vị trí ghi hi n hành duyệt xem b , ũ ười dùng bi n ghi thứ Chúng ta thêm mộ ã hi n thị thứ t c a b n ghi thi t k form thêm vào nhãn label1 có thuộc tính Name lblIndexOfRecord, thuộc tính Text c a ã “ r 0” ạo th tục có tên count() i phát bi u khai báo r : Private Sub Count() 74 Dim tongsobanghi, banghihienhanh As Integer tongsobanghi = Me.BindingContext _ (DsInstructors1, "Instructors").Count banghihienhanh = Me.BindingContext _ (DsInstructors1, "Instructors").Position + lblIndexOfRecord.Text = "Record " & _ banghihienhanh.ToString & "Of " & tongsobanghi.ToString End Sub Th tục gán thuộc tính count c ượng BindingContext vào bi n tongsobanghi thuộc tính Position c a cho bi ộng thêm thứ t b n ghi b ng d liệ ược tính từ ó hai giá trị c a hai bi r ược gán cho thuộc tính Text c u n Label lblIndexOfRecord th tục phát huy tác dụng bạn thêm lời gọi th tục th tục Fr _ , _ , r _ , x_ : Count() rì ú ện ọ F5 chạ rì 7.6 Sử dụ D Gr ể hiển thị li u bảng Trong ph n ù r hi n thị d liệu c a b r ệ Students.mdb ú nộ i d liệu c a b ng dạng chuỗ c s ịnh dạng, s p x p ghi lại nh ng i DataGrid trở lạ ệ Gi x x, Ta có th ràng buộc d liệu DataSet vào DataGrid Ràng buộc thơng qua hai thuộc tính DataSource DataMember Trong MyDataGridBinding ộ nội dung c a b ng Instructors có DsInstructors1 hi n thị r i DataGrid ụ MyDataGridBinding: Tạo m i Solution thêm vào d án tên MyDataGridBinding K tn d liệu: rong ụ rư ú ã tn iv ệ r cửa s Server Explorer có k t n ệ ột gạ ỏởk tn u mu n sử dụng lại k t n i ta việc ọ nút Refresh Trong ụ này, ệ ù ục v i d tiện thao tác Ta chọn nút th c k t n ệ ã t Chọ ệ mà vừa copy vào ục chứa d án ọ hoàn thành k t n i Tạ ượ u ph i DataAdapter: Tạ ượng OleDbDataAdapter vào form cách kéo từ ToolBox r r ột cửa s Data Adapter Configuration xuất ọ Next hai l cửa s Generate SQL Statements Tạ có th t gõ câu lệnh SQL hay sử dụng Query Builder ụ ọ nhập tr c ti p câu lệnh SQL SELECT Extension, PhoneNumber, Instructor, InstructorID FROM Instructors ệ ấ d liệu c b rường b ng Instructors ọ x xem k t qu c a Winzard Lúc này, trình Winzard t tạo câu lệnh Update (cập nhật), Select, 75 Insert (chèn), Delete (xóa) ọ F k t thúc q trình xây d ng tạ ượ u ph i DataAdapter có tên OleDbDataAdapter1 Tạ ượng trình diễn DataSet: F r : Chọn Data | Generate DataSet từ menu làm hộp thoại Generate DataSet ã t Tại ô New bạn nhậ r r ấu vào ô checkBox Add r Visual studio tạ r ượ hệ th ọ Visual studio tạ ượng DataSet cho b ng Instructors r ệ Students.mdb Lúc cửa s r ượ ọ ú ã u c a thao tác v ệ sử dụng r trình bày d liệu Tạ ượng DataGrid: Kéo form cho c rộ i DataGrid v i cột 10 dòng u n DataGrid ToolBox vào form Kéo chi u dài c a cho phù hợp v i chi c c a form Tạo thêm nút nhấn n r ặt thuộc tính Name btnLoad x “ ” Mở Properties c r ặt thuộc tính Anchor c a c Left, Right, Top, Bottom Ti p theo ta dùng thuộ r r ràng buộc d liệu r r1 i DataGrid ú hi n thị tùy chọn c a thuộc tính DataSource cửa s Properties Mộ rì có nhi thờ i có th th DataSet mà thôi, ta chọn DsInstructors1 Ti p chọn thuộc tính DataMember Instructors Ngay sau ta chọn xong hai thuộ r r ì i hi n thị cột d liệ ù ò liệu hi n thị D liệu ượ ư rì c thi Chọn nút Load ặt thuộc tính Anchor c a Bottom, Left Lúc giao diện form thi t k ì 7.7 , c n vi ã d liệ i bằ ứ F ã r ụ 7.5 ì 7.7 Cửa s form thi t k xong Tạo th tục btnLoad_Click bằ ú 76 nhập mã sau: DsInstructors1.Clear() OleDbDataAdapter1.Fill(DsInstructors1) Nhấ ú i chạy thử rì ọ F5 chạ rì ọ nú nạp d liệ r i DataGrid: Ta có th c form cho thông tin v ệ xuất hiệ ọ ú rì 7.7 Định c c ô i DataGrid ú ịnh dạng thành ph n DataGrid thông qua thuộc tính c a lúc thi t k hay th rì ụ r : cửa s thi t k form mở thuộc tính Properties c i DataGrid - ặt thuộc tính PreferredColumnWidth 110 (rộ 110 ị x ) - ặt thuộc tính ColumnHeadersVisible False V i thi t lập ph c a cột không hi n thị ọ thuộc tính BackColor, chọn màu vàng nhạt hi n thị cho nội dung chuỗi chứa r ô i tạo dịng xen kẽ - ặt thuộc tính GridLineColor, chọn màu xanh Cịn nhi u thuộc tính khác ta ọ 7.8 Cập nhậ li u trở lại bảng DataSet ti n hành chép b ng c ệ , ô i nội d ệ n có yêu c u cập nhật bằ ức UpDate Cùng v i thuộc tính ReadOnly c a DataSet i hay khơng v ệ cửa s thi t k form mở thuộc tính properties c a DataGrid thi t lập giá trị TRUE i v i thuộc tính ReadOnly cho phép có nh i d liệ r i nút n a form Thuộc tính: Name – btnUpdate, Text – “ ” Nút Update hi n thị có nh i DataGrid cập nhật trở lạ d liệu ườ ù ộ vào Tạo th tục btnUpdate_Click nhập ã : Try OleDbDataAdapter1.Update(DsInstructors1) Catch ex As Exception MsgBox(ex.ToString) End Try Th tục sử dụ ức Update c r1 yêu c u thay i tập DataSet DsInstructors1 trở lại b ệ Khi chạ rì , i nội dung cộ thêm b n ghi n ọ ú cập nhậ ệ ại ọ ú x ệ i khơng 77 ... nhanh Tin học hóa cơng tác qu n lý c ị kinh t , hành (tin học qu ) ĩ c quan trọng c a ứng dụng tin học Xây d ng phát tri n hệ th ng thông tin kinh t qu n lý hiệ ại nội dung ch y u c a ứng dụng tin. .. tin tri thức nhằm phục vụ mục tiêu c a t chức ệ ô : ột hệ th ng tích hợ " ười - Máy" tạo thông tin ú ười s n xuất, qu n lý quy ịnh hệ thông tin qu n lý Hệ thông tin qu n lý sử dụng thi t bị tin. .. rườ ,… ệ th ng thông tin d báo quan trọng hoạ ộng kinh t thị rường Hệ th ng thơng tin khoa học: ì 1.2: ì ệ th ng thơng tin khoa học Hệ th ng thông tin khoa học bao g m thông tin v KHCB, KHCN, KHKT