Bài giảng Tin học quản lý: Phần 1

Bài giảng Tin học quản lý: Phần 1 cung cấp cho học viên những kiến thức tổng quan về bài toán quản lý và xây dựng cơ sở dữ liệu cho bài toán quản lý; phân tích và thiết kế bài toán cụ thể; nhập môn Visual Basic.NET; các phép toán của bài toán cơ sở dữ liệu; ngôn ngữ lập trình Visual Basic.NET;... Mời các bạn cùng tham khảo!

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 ĩ 1TimkiemMonan (Tìm ki ă ) Chứ ă ười dùng xem danh sách loạ ă n B c, Trung, Nam 2XemDanhsachMonan (Xem danh sách Chứ ă ười dùng xem ă ) ă a loạ ă ( ă ) Chứ ă ười dùng xem chi ti ă 4XemDanhsachMonanYeuthich (Xem Chứ ă ười dùng xem ă ) ă ượ ười ù dấu 5XemTacdungGiavi (Xem tác dụng gia Chứ ă ười dùng xem tác vị) dụng c a gia vị r ă ã ọn 6XemChebienMonan(Xem ch bi n Chứ ă ười dùng xem ă ) c ch bi ă ã ọn 7TimkiemNhahang (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 8XemChitietNhahang (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 …) 9XemDanhsachQuangcao (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 1Lienhe (Liên hệ) Chứ ă ười dùng liên hệ 10 v i nhà hàng 1XemDanhsachvideoChebienMonan(Xem Chứ ă ười dùng xem 11 danh sách video ch bi ă ) ng dẫn nấ ă a 1XemVideoChebienMonan (Xem video Chứ ă ười dùng xem 12 ch bi ă ) ng dẫn ch bi ă ười dùng ã ọn 1ChiasePhanmem (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 Ta có th ọ ú Start nằm Toolbar: r ki m tra t c F r ã i theo ý hay khơng? Nút Hình 3.5 Chạy nút start ậy, ta thấy Microsoft Visual Studio.NET IDE giúp ta tạo Form dễ Bư c 4: Từ Form 'Welcome' này, ta g n:  nhãn hiệu (label) mang t a 'Enter your name:"  hộp ch nhận d kiện từ user  nút mệnh lệnh 'Click Me' hi n thị hàng ch 'Chào Mừng'  nút mệnh lệnh 'Exit' chấm dứt ứng dụng (application) Mở Toolbox Window (nằm phía trái window thi t k Form) chọn công cụ Label Hộp công cụ chứa mọ ượng dùng tạo giao diệ ũ ô ụ phụ thuộc n n Windows Hình 3.6 Cơng cụ thi t k 30 Dùng mouse kéo lê (click and drag) hình ch nhật vừ rộng nhằm chứa hàng ch 'Enter your name:' N u c n ta có th u ộ ộ cao nhãn hiệu tùy ý Nhấp hộp ch Text Properties Window gỏ hàng ch Enter your name: ặt tên nhãn hiệu lblName hộp ch (Name) Properties Window: Hình ặt tên c 5: Lập lại thao tác cho công cụ ẽ (click and drag) giao diện Form: 31 ọ ằng cách chọn công cụ Toolbox ượ Công cụ Tên (Name) Text Textbox tbxName (enter your name here) Button btnClickMe Click Me Button btnExit Exit Cu i cùng, ta có giao diện cho ứng dụ ( )W : Hình 3.8 Sau thi t k ườ , ô ũ ẩn chung v danh pháp cho hệ th ng tin học, máy vi tính, thi t bị, công cụ hay ngu n mã th ng lập trình v i Visual Basic.NET (VB.NET) khóa học, ta có th ấ ịnh danh pháp cho cơng cụ lập trình : 31 2: Cơng cụ p ê rư c ộ ượ è r Thí dụ: Button btn cmd btnClickMe, cmdClickMe ComboBox cboContactName cbo CheckBox chkOver50 chk Label lblTitle lbl ListBox lstProduct lst MainMenu mnuExtraOption mnu RadioButton rdbYes rdb PictureBox picVovisoft pic TextBox tbxName tbx ậy, vi n mã, l n gặp công cụ è rư c tbx, ta bi Textbox Bư c 6: Sau hoàn tất ph n giao diện cho ứng dụng (application), ta c n thêm ngu ã xử lý tình hu ặc biệt, tỷ ư: u user nhấp vào nút Click Me chuyện xãy ra? Code Editor giúp ta chuẩn bị ngu n mã Thật vậy, ta nhấ ô ú e, Code Editor hi n thị ngu n mã tạo sẵn t ng quát cho giao diện Windows cho phép ta thêm mã vào ph n btnClickMe_Click , Click biến c mặc ịnh user nhấp nút Click Me, Microsoft Visual Studio.NET chuẩn bị dùm ta Subroutine xử lý bi n c ỉ gỏ ph ã ậ : Private Sub btnClickMe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClickMe.Click 'Display a greeting box MessageBox.Show("Chào mừng " & tbxName.Text & _ " đến với Khóa Học Cơ Bản Visual Basic.NET", "Welcome") End Sub W Nhấp tab Welcome.vb [Design]* (k ph n thi t k Form, nhấ ô ú x ỏ mã: 'End the program Me.Dispose() 32 * ì rõ) trở lại Hình 3.9 Màn hình code c 7: Nhấ ú chạy thử ứng dụ hàng 'Enter your name:' r ô rường IDE Nhập tên vào hộp ch Hình 3.10 Nhập liệu ọ nút Click Me, ứng dụng xử lý bi n c ộ i n thị chào mừng: Hình 3.11 K t qu ậ , ã ứ mạng tạo ứng dụ ( ) u tiên dùng Microsoft Visual Studio.NET v i ngơn ng lập trình Visual Basic.NET (VB.NET) 33 3.2 Mở rộng welcome c 8: ạo vòng làm quen v i IDE c a MS Visual Studio.NET, ta ti p tục d án Adder v i giao diện sau: Hình 3.12 Thi t k rì Dùng (bằ - Click and Drag hay Click and Draw) thi t bị hộp công cụ (Toolbox) vào Form1 b r : ,ở ỉ ng dẫn trình bày chi ti ù r ặc tính (property) c a thi t bị hộp công cụ ô , ạn áp dụ ư ậy v i thi t bị khác Thí dụ ù rì (lable) Tốn Cộng :  Nhấp hộp cơng cụ (phía bên trái IDE) nhấ t bị Label (Click )  Vẽ ( and Draw) hình ch nhật mặt tr ng c a Form  Chọn Properties Window c ( ược chọn hay khơng, n u khơng, ta có th mở nhằm properties window c a thi t bị khác không ph i thi t bị ta mu n b trí)  Chọn ặc tính (property) Text va gõ hàng ch Tốn Cộng (có th dùng ứng dụng VPSKeys v i b trí Unicode ứng dụng gõ ti ng Việ ư )  Chọn mở rộ ặc tính (property) Fonts i cở ch màu tùy ý  Chọ ặt tên theo tiêu chuẩ ị rư c, tỷ ư: lblTitle v i lbl ch vi t t c c a label cộng v i tên c  Kéo lê (Click and Drag) thi t bị n vị trí tùy ý Form, tỷ ư: ị trí phía bên r ì rì Áp dụ ộ ng dẫn cho thi t bị x x, , : 34 3: Công cụ textbox1 textbox2 textbox3 ộ ượ B r ặc tính (property) Name = TbxNumber1 Text = (để trống đây) Text Align = Right BackColor = (tùy ý) Name = TbxNumber2 Text = (để trống đây) Text Align = Right BackColor = (tùy ý) Name = TbxNumber1 Text = (để trống đây) Text Align = Right BackColor = (tùy ý) ForeColor = Red button1 Name = cmdMore Text = More button2 Name = cmdCheckIt Text = Check It label2 r Name = lblResult Text = Answers Status TextAlign = MiddleCenter Tuy ta có th gi tên mặ ịnh Form1 d r ẻ không chuyên nghiệp bằ i tên mặ ị F r r ợp v i d án i tên Form mặ ị ậy, ta ph i b trí Startup Object v i tên Adder object ta mu n khở ộ u tiên chạy d án Adder N u không, d án dùng Form1 tạo lỗ ì F r ã i tên khơng cịn diện n a  i tên Form1 cách chọn d án Adder Solution Explorer chọn Properties  Chọn Adder hộp ch combo Startup Object  Nhấp nút Apply, OK 35 Hình 3.13 Thêm thuộc tính Bư c 10: Lập trình theo ki u mẫu event - driven ù rường lập trình v i Visual Basic.NET ( ), ườ ường ta tạo giao diệ ( i hình thứ F r ) rư ngu n mã vào, tỷ ư: ấ ô ú Check It mở tập tin chứa ngu n mã v i tên mặ ịnh tên c a d rư c tiên, MS Visual Studio.NET tạo ngu n mã mặ ịnh v i công dụ n y m trợ giao diện ta vừa thi t k (Form Adder) ta cộ ã b trí k hoạch sẵn tình hu ng có th x y h ộng kịp thời tùy theo bi n c mà Form nhậ ược (thí dụ: ười dùng nhấ ú ki m tra toán cộng ứng dụng Adder) Ki u chuẩn bị v i ngu n mạ ị rư ậ ược gọi lập trình theo ki u mẫu Event-Driven Bây giờ, ta b u thêm ngu n mã xử lý bi n c Click c a nút Check It :  Nhấ ô F r , ẽ dùng Designer Code Generator tạo ph n ngu n mã v i tập tin Adder.vb  Ngu n mã b u v i Public Class Adder  Nhấp vào tab mang tên Adder.vb [Design] trở v giao diệ F r r ( hình trỏ tab IDE từ Satrt Page, Adder.vb [Design] Adder.vb )  Nhấ ô ú Check It mở ph n ngu n mã c a nút v i bi n c Click  Gỏ ngu ã i hàng Private Sub cmdCheckIt_Click (nh c lại, cmdCheckIt ặt cho nút Check It ph n giao diện Form Adder): mã ki r x i s hay ch vào hộp ch tbxResult? N u s , mã so sánh s i k t qu toán cộng báo cáo lại ph n nh n hiệu lblResult Dim resultNumber As Integer If IsNumeric(tbxResult.Text) Then resultNumber = CInt(tbxNumber1.Text) + CInt(tbxNumber2.Text) If CInt(tbxResult.Text) = resultNumber Then lblResult.Text = "Correct" Else lblResult.Text = "Wrong" End If 36 Else tbxResult.Text = "" lblResult.Text = "Answer Status" MsgBox("Please enter your answer MsgBoxStyle.Information, "Warning") End If    in number Thanks", , trở v ph n thi t k Form: Nhấ ô tr ng c a Form cho ngu n mã Adder_Load Nhấ ô ú r n mã cmdMore_Click Gỏ ngu n mã cho Subroutine (sẽ học cách tạo Subroutine Function k ) SetRandomNumber Mã ạo s ngẫu nhiên từ n 10000 cho toán cộng chạy ứng dụng Adder ph n Adder_Load nút More Private Sub Adder_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load SetRandomNumber() End Sub Private Sub cmdMore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdMore.Click SetRandomNumber() End Sub Private Sub SetRandomNumber() Dim firstNumber, secondNumber As Integer Randomize() firstNumber = CInt(Int((10000 - + 1) * Rnd() + 0)) secondNumber = CInt(Int((10000 - + 1) * Rnd() + 0)) tbxNumber1.Text = firstNumber tbxNumber2.Text = secondNumber End Sub ì ặ rư n mã c a d án Adder: 37 Hình 3.14 Vi t code Bư c 11: Nhấ ú rường IDE: ( ì ) chạy ứng dụng (application) Adder mơi Hình 3.15 Thanh menu Ta thấy tốn cộ ược hình thành v i s ngẫu nhiên chờ ta gỏ vào gi hộp ch k ú , ấp nút ki m tra k t qu Khi mu n làm lại toán cộng này, nhấp nút More: Hình 3.16 Chạ rì MS Visual Studio.NET tạo executable file mặ ị r x i ă ứa cấ i (subfolder) BIN Tập tin ứng dụng Adder tạo d án Adder Bư c 12: r tập tin v i th File, Save All 38 3.3 Dữ ế Thông tin (Information) diễn t s việ i nhi u hình thức khác nhau, tỷ ư: ức báo, tin nhận ược từ ký gi vi t tay giấy, s c báo cáo TV, khác v i d kiện (Data) dùng di n t ô ã ược ki r , i chi u, so sánh, x p loại theo thứ t quan trọ ược t dùng ứng dụ ( ) ện tốn , ược ghi s tay không th d kiện mà ứng dụng ( ) ù ược N u mu ù ô ậy, ta ph i chuy i qua hình thức d kiện, tỷ ư: r ( ) ập (enter) vào trang k tốn c a MS x có th phân tích k t qu ượm Mặc dù, Cơng Nghệ Tin Họ ã r n trình xử lý phát tri n nhu liệu h ẫ ' rư ộ ', ĩ i c , ta mu n p ươ ức cho phát tri n gi ấ cho việc lập trình Anh Ng gọi Algorithm r : rư c ta vi t nhu liệu gi i quy t v , i phân (phân tích) thành nh ng ph n nhỏ ù rường hợp mộ di n t cách gi i quy t vấ sau t ng hợp lại Tóm lạ , ột p ươ ức phân tích t ng hợp N u khơng áp dụ ức này, vấ xem 'r i tung lên' không th gi i quy ược Bây giờ, ưở ượng bạ ệc cho ông ty vi n thông Vấ ặt cung cấ ượ ện thoạ ã ù ib u từ ? ì r , ì ? nào? ức c n có chia vấ thành nh ng ph n việc nhỏ truy cập cách gi i quy t ph n việ , dụ ư:  Vào mỗ u tháng, ta cung cấ n khách hàng  Cho khách hành, ta c n b ng liệt kê cú gọ r  Ta c n bi t khoãng thời gian dùng cho mỗ ú ện thoại? lúc gọi? tu n hay cu i tu n? ba ? tính tốn chi phí mỗ ú ện thoại  Trong từ ột, ta t ng k ú ện thoạ ( nộ ịa, ngoại qu c hay mobile, )  Trong dịp lễ lạc hay khuy n mãi, ph ră giá?  Ta c n cộng thêm ti n thu bán dịch vụ cho mỗ  Sau t ng hợp lại, in gở n khách hàng ậy, ta thấ gi i quy t vấ vi t nhu liệ , ý hay làm dính dáng t i ngơn ng lập trình Thật s , mấu ch t quan trọng c a chuyên gia lập trình chuyên nghiệp N u khơng, ta ơ, ì , t ì rở ngại nêu chuẩn bị thi t k phát tri n ứng dụng (application) Nên làm chuyên gia lập trình ừng ngừng lại ' ười vi t mã' mà thơi Việc cịn lại chọn cho ngơn ng lập trình hùng mạ kh ă r n gi ọi trở ngại: Visual Basic.NET (VB.NET) Một cách t ng qt, ngơn ng lập trình g m biến s (variables) cách thức (methods) Ngôn ng lập trình dù phức tạ ì ũ ược xây d ng bi n s cách thứ ô , ô so sánh ngôn ng lập trình mạ u , ất ngơn ng lậ rì ( ) # ++ 39 Trên th c t , ngơn ng lậ rì ược biên dịch ngơn ng trung gian MSIL (Microsoft Intermediate Language) Ngôn ng lập trình cơng cụ phụ giúp cơng việc c a ta ch c ch n i r 3.4 Biến s (Variable) Biến s (Variable) dùng chứa giá trị r ức lập trình (algorithm) Ta có th làm quy ịnh d a giá trị , ụ: giá trị ằng không? hay nhỏ 7? hay có th th c thuật toán giá trị ộng, trừ, nhân, chia, ức lập trình (algorithm) sau:  Tạo bi n s ặt tên 'count'  Trong bi n s count, chứa giá trị 35  Cộng thêm vào bi n s count  Hi n thị giá trị c a bi n s count hình (monitor) ậy, ta ph i tuyên b bi n s (variables) count, cho vào giá trị 35, cộng thành 36 hi n thị s 36 hình Trong Visual Basic.NET (VB.NET), dùng Dim Redim tuyên b bi n s : Dim myVariable As Long Dim myArray (5) As Integer Dim yourArray ( ) As String = {"Dần", "Thân", "Tỵ", "Hợi", "Tứ Hành Xung"} Redim myArray (10) As Integer Giải thích: Dùng Dim tuyên b (hay tuyên cáo) bi n s myVariable thuộc loại d kiện Long tuyên b lại, nhấ i cở c a Array myArray (5) chuỗi bi n s g m6s b u từ s v r (0), rr (1), n myArray (5) loại d kiện s nguyên (Integer) yourArray ( ) dùng giá trị bên dấu { } xác ịnh cở (ở , = 5, s hay 'index' b u từ s 0, 1, 2, 3, 4) Array: Array dùng s ( x) r nhi u giá trị i tên bi n s (variables), tỷ ư: Dim yourArray ( ) As String = {"Dần", "Thân", "Tỵ", "Hợi", "Tứ Hành Xung"} Dim strMonths ( ) As String = {"Giêng", "Hai", "Ba", "Tư", "Năm", "Sáu", "Bảy", "Tám", "Chín", "Mười", "Mười Một", "Chạp"} Dim empRecords (100) 3.4.1 Chú thích Trình biên dịch Visual Basic.NET (VB.NET Compiler) bỏ qua không biên dịch ph n comments, ta có th thích thêm ph n dẩn gi ức gi i quy t vấn cho ngu n mã Chuyên nghiệp ghi lại algorithm c lập trình viên khác hay c ta có th hi ã ã t từ nhi rư c Nh ười 40 'mau quên lạ lùng' Trên th c t , ũ ô t ta vi t n ọc lại mã sau chừng vài tháng r ( ), ấ ú i dấu ' (dấu apostrophe) , tỷ ư: 'tạo biến số count chứa giá trị 35 Dim count As Integer count = 35 'cộng thêm vào count count = count + 'hiển thị giá trị count MessageBox.Show ("Value of count is now " & count) Whitespace ũ rọng khơng Việc chừa khỗng tr ậy nhằm cho ngu ã ượ ọc dễ ườ ường, ta nên chừa hàng tr ng gi c r ức lậ rì ( r ) ụ trình bày trên, ta thấy có hàng tr ng sau hàng count = 35 3.4.2 Loại (Data Types) Khi dùng bi n s (variables), ta c n bi t b r rư c bi n s ( ) , u giúp ích máy vi tính xử lý tài nguyên dễ ứng dụng (application) T ng quát, loại d kiện (data types) bao g m: 4: S nguyên (Number) Loại ki n Cở (Size) Range r loại d kiện r ú ạy Chú thích Byte byte t i 255 Byte = bits hệ th ng nhị phân Byte không y m trợ s âm (negative number) Short bytes -32,768 t i 32,768 Rất tiện lợi cho bi n s (variables) r s nguyên cở nhỏ Integer bytes -2,147,483,648 2,147,483,647 Long bytes 9,223,372,036,854,775,808 nguyên l n từ -9 quintillion t i t i quintillion (-9 x 1018 t i +9 x 9,223,372,036,854,775,808 1018) t i Tiêu chuẩn s nguyên Loại d kiện ược máy vi tính xử lý nhanh tài nguyên 5: S th c (Decimal Number) Loại ki n Single Cở (Size) bytes Range Chú thích Cho s âm: -3.402823 x 10-38 t i th c vô nhỏ -45 -1.401298 x 10 hay vô l n Cho s : 401298 x 10-45 t i 3.402823 x 1038 41 Double bytes Cho s âm: -1.79769313486231 Double gọi loại d kiện x 10308 t i -4.94065645841247 x 'double prescision floating 10-324 point' có th r s lẻ Cho s : gấ ô ại 'single', tức 15 -324 4.94065645841247 x 10 t i s lẻ sau 'decimal point' 308 1.79769313486231 x 10 6: Ch hàng ch (hay câu) Loại ki n Cở (Size) Range Chú thích Char bytes Một ch String 10 bytes + bytes Hàng ch có ù r hàng ch cho ch th kéo dài t i tỷ nguyên cu n sách (character) (billion) ch ù 7: Các loạ Loại ki n Cở (Size) Range Boolean True bytes bytes r ch hay c n khác Chú thích False Date VB.NET dùng bytes cho s (False) (True) Từ ngày Loại d kiện có kh ă ă ă nhu n N u ta cộng ngày vào bi n s r 100 t i ngày 31 ngày 28/02/2000, ta 29/02/2000 tháng Chạ ă n u cộng cho ngày 28/02/2001, ta lại có 9999 01/03/2001 3.4.3 Hằng s (Contants) Trái v i bi n s (variables), s ô i giá trị su dụng (application) Ta dùng Const tuyên b s , tỷ ư: Const PI = 3.1416 As Double Const DSN As String = "MyDatabaseName" ời s ng c a ứng 3.5 Tên ô ường, ta tho thuận mộ ặt tên bi n s (variables) hay s , n u khơng, ta sau có th cơng tìm hi u loại bi n s hay s ứng dụng (application) ct ặt tên bao g m ph n:  Ti n t ( r x): ường dùng ch ường loại bi n s (variables) hay s (constant)  Tên: ch u tiên dùng ch Hoa tên ph ĩ khỏi công tham kh o sau nghị tên quy ư : 8: ặ Loại ki n Tiền T (Prefix) Thí dụ Byte Byt bytAge Short Sht shtCounter 42 Integer Int intCounter Long Lng lngResolution Single Sng sngInterestRate Double Dbl dblTotalSalesInYear Char Chr chrMiddleName String Str strAddress Boolean Bol bolIsCompleted Date Dte dteHireDate (User-defined types) (vài ch - hay empRecord ch tên c a structure) Constant (no prefix, ch n i TAX_RATE dấu _ underscores) Enumerations (vài ch - hay dteWeekday, ch tên c a dowWeekday, Enumerations) colBackGroundColor 3.6 ươ ức (method) Method ngu ã ộc lập (self) ù th c công việc ta mu n làm ứng dụng (application) Method quan trọng vì:  Phân gi i (break- ) rì n tử nhỏ , r ệm rõ ràng, ễ hi u  Khuy n khích dùng lại ngu n mã (reusable code) Ta phân biệt loại mehods:  Subroutine: với Sub End Sub  Function: với Function End Function Dùng Subroutine ta mu n th c công việ ì F n nhận k t qu tr v Thí dụ dùng subroutine 'SetRandomNumber' 5: B trí s ngẫu nhiên vào hộp ch r v giá trị Sub SetRandomNumber() Dim firstNumber, secondNumber As Integer Randomize() firstNumber = CInt(Int((10000 - + 1) * Rnd() + 0)) secondNumber = CInt(Int((10000 - + 1) * Rnd() + 0)) tbxNumber1.Text = firstNumber tbxNumber2.Text = secondNumber End Sub Thí dụ dùng Function: Cộng s tr v k t qu toán cộng 43 Function Addition (ByVal Number1 As Integer, ByVal Number2 As Integer) Addition = Number1 + Number2 End Function Tên methods: ườ ườ , ặ c cho methods bằ tên ph ĩ , ụ: GetCustomerName OpenCustomerRecord CalculateRepaymentPerMonth ReadXMLFile GetEnvironementVariables SaveMyNetworkConfiguration ộng từ công việc th c 3.7 Phạm vi (scope) ứ (method) ngu n mã chạ ộc lậ , ns ( r method ĩ ù r ô phạm vi method (scope) Bi n s (variables) dùng method khơng có n bi n s ( r ) r , ụ: Sub DisplayMyName Dim strName strName = "Vũ Năng Hiền" MessageBox.Show(strName) End Sub Sub DisplayYourName Dim strName strName = "Đặng Quang Lương" MessageBox.Show(strName) End Sub Ta nhận thấy subroutine có bi n s (variables) strName ( r ) i giá trị bi n s strName DisplayMyName ô i giá trị bi n s strName DisplayYourName 44 ) ượ ọi ưởng rị bi n s subroutine subroutine ... 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... x 10 -38 t i th c vô nhỏ -45 -1. 4 012 98 x 10 hay vô l n Cho s : 4 012 98 x 10 -45 t i 3.402823 x 10 38 41 Double bytes Cho s âm: -1. 79769 313 4862 31 Double gọi loại d kiện x 10 308 t i -4.940656458 412 47... 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