Bài tập Visual Basic

Bài tập Visual Basic

TT Visual Basic Chương THIẾT KẾ BIỂU MẪU DÙNG CÁC ĐIỀU KHIỂN Mục tiêu: Chương gồm tập nhằm rèn luyện cho sinh viên thao tác cần thiết cho phép thiết kế ứng dụng đơn giản mơi trường lập trình Visual Basic số kỹ lập trình làm việc với Visual Basic Học xong chương này, sinh viên phải nắm bắt vấn đề sau: - Sử dụng điều khiển để thiết kế giao diện Visual Basic - Vận dụng cấu trúc lập trình Visual Basic để viết mã lệnh - Sử dụng số cấu trúc liệu Visual Basic Kiến thức có liên quan: - Giáo trình “Visual Basic”; Chương 1, 2, 3, 4, Tài liệu tham khảo: - Visual Basic Certification Exam Guide - Chapter 1, Page 1; Chapter 2, Page 41; Chapter 4, Page 89 - Dan Mezick & Scot Hillier McGraw-Hill - 1998 Trang TT Visual Basic I SỬ DỤNG MỘT SỐ ĐIỀU KHIỂN I.1 Bài tập có hướng dẫn Bài tập 1I-1 THAO TÁC TRÊN LISTBOX Bước 1: Tạo thư mục Basic\Bt1-1 Tạo dự án kiểu Standard EXE, lưu vào thư mục Bước 2: Thêm List Box Button vào form (hình 1) Nhấn đúp lên form để mở cửa sổ Code, nhập đoạn mã sau kiện Form_Load: Form1.List1.AddItem “Thing 3” Form1.List1.AddItem “Thing 2” Form1.List1.AddItem “Thing 1” 90 Hình 1.1: Thao tác với List Box Bước 3: Chạy ứng dụng cách chọn Run/Start List1 hiển thị phần tử vừa thêm vào bước Chấm dứt chương trình cách chọn Run/End menu để trở môi trường soạn thảo Bước 4: Nhấp đúp lên Button Command1 để hiển thị kiện Click Command1 Bước 5: Mục đích Command1 chuyển phần tử chọn từ List1 sang List2 Thêm đoạn mã sau vào thủ tục kiện Click Command1: ' Kiem tra neu mot phan tu duoc chon If Form1.List1.ListIndex = -1 Then Exit Sub ' Chep cac phan tu duoc chon tu List1 sang List2 Form1.List2.AddItem Form1.List1.List(Form1.List1.ListIndex) Bước 6: Chạy ứng dụng Nhấp phần tử thứ List1, sau nhấp Command1 Điều xảy ra? Phần tử chọn List1 phải hiển thị bên List2 Chấm dứt ứng dụng trở mơi trường soạn thảo Bước 7: Tìm phần trợ giúp thuộc tính sau ListBox: o ListCount o List Trang TT Visual Basic o ListIndex Bước 8: Tìm phần trợ giúp hàm sau ListBox: o AddItem o RemoveItem o Clear Bước 9: Tìm trợ giúp cho lệnh VB: Exit Sub Bước 10: Đoạn mã thủ tục Command1_Click thực thao tác chép phần tử từ ListBox sang ListBox khác Bây ta làm ngược lại: loại bỏ phần tử List1 Để làm điều ta nhấp đúp lên Command1 thêm dòng code sau vào cuối thủ tục: ' Xoa phan tu duoc chon List1 Form1.List1.RemoveItem Form1.List1.ListIndex Bước 11: Chạy chương trình chọn phần tử thứ List1 Điều xảy ra? Bước 12: Nếu không chọn phần tử List1, nhấp Command1 Điều xảy ra? Tại sao? Bước 13: Ta có button dùng để chuyển phần tử lựa chọn từ trái sang phải (List1 sang List2), với button lại ta dùng để chuyển phần tử chọn từ phải sang trái (List2 sang List1) Bước 14: Với Command2 ta copy đoạn mã từ Command1 với vài thay đổi nhỏ Bước 15: Command2 thực thao tác giống với Command1, có nhiệm vụ di chuyển phần tử lựa chọn từ List2 sang List1 Đoạn mã Command1 sử dụng lại với vài thay đổi nhỏ Nhấp đúp lên Command1, chọn mã lệnh thêm vào bước trước Chọn Edit/Copy menu Bước 16: Đóng cửa sổ Code nhấp đúp lên Command2 Sự kiện Command2_Click hiển thị cửa sổ Code Nhấp bên thủ tục kiện chọn Edit/Paste menu Như ta chép đoạn mã từ Command1 sang Command2 Bước 17: Sửa lại mã lệnh vừa chép Thay đổi thích cho thích hợp; đổi List1 thành List2 ngược lại Những sửa đổi giúp Command2 thực thao tác chuyển phần tử chọn từ List2 sang List1 Lưu công việc thực cách chọn File/Save Project Bước 18: Chạy chương trình Chọn phần tử thứ List1 chọn Command1 để chuyển sang List2 Bây chọn phần tử thứ List2, nhấp Command2 Nếu Command2 không thực thi, trở lại môi trường soạn thảo Kiểm tra lại đoạn mã lệnh thủ tục Command2_Click ta vừa chép bước Bước 19: Lưu ý phần tử ListBox không thứ tự; muốn thứ tự, ta nhấp List1 đổi thuộc tính Sorted thành True, tương tự List2 Bước 20: Lưu dự án lại chạy chương trình Tất phần tử phải hiển thị theo thứ tự ListBox, bất chấp thứ tự chúng thêm vào ListBox Bài tập 1I-2 THAO TÁC VỚI SPINCONTROL Trang TT Visual Basic Một SpinControl kết hợp TextBox Slider Slider tạo miền giá trị số hiển thị TextBox Các giá trị thay đổi cách nhập trực tiếp vào TextBox Bước 1: Tạo thư mục Basic\Bt1-2 Tạo dự án thư mục Bước 2: Trong Form1, thêm TextBox Horizontal Scroll Bar hình Thiết lập thuộc tính sau cho Control: Hình I.2: Spin Control Item1: TextBox Name: Text1 Text: Item2: Horizontal Scroll Bar Name: Hscroll1 LargeChange: 10 Max: 100 Bước 3: Nhấp đúp lên scrollbar để nhập mã lệnh, kiện Change Scroll Bar gọi hàm HScroll1_Change Thêm đoạn mã sau để hiển thị giá trị thời scroll bar TextBox Text1.Text = HScroll1.Value Bước 4: Chạy ứng dụng cách chọn Run/Start menu Bây nhấp mũi tên trái phải scroll bar Giá trị TextBox phải thay đổi Bước 5: Bây thêm mã để thay đổi giá trị cách nhập trực tiếp giá trị TextBox Nhấp đúp vào TextBox thêm đoạn mã sau để thiết lập giá trị cho scroll bar TextBox thay đổi: HScroll1.Value = Text1.Text Bước 6: Chạy chương trình nhập 50 vào TextBox Vạch scroll bar thay đổi theo Thay đổi vạch scroll bar, giá trị TextBox thay đổi Bước 7: Trong chạy chương trình, nhập ký tự A vào TextBox Điều xảy ra? Nguyên nhân scroll bar nhận giá trị số ký tự Bước 8: Để ngăn chặn ký tự không mong muốn nhập vào TextBox, ta sử dụng kiện KeyPress Sự kiện xảy có phím bàn phím nhấn, trước giá trị thực hiển thị TextBox Sự kiện nhận giá trị số nguyên phím nhấn, gọi ASCII Mỗi ký tự bàn phím đại diện mã ASCII Do ta kiểm tra phím nhấn bỏ qua ta thấy khơng cần thiết Bước 9: Thêm đoạn mã sau vào kiện Text1_KeyPress để ngăn chặn giá trị số ' Loai bo ky tu khong can thiet Trang TT Visual Basic If KeyAscii = vbKeyBack Then Exit Sub If KeyAscii < vbKey0 Or KeyAscii > vbKey9 Then KeyAscii = End If Bước 10: Lưu dự án lại chạy chương trình Bài tập 1I-3 THAO TÁC VỚI DRIVELISTBOX, DIRLISTBOX, FILELISTBOX Trong ví dụ ta phải tạo đối tượng, có điều khiển: o Một Form o Một điều khiển DriveListBox o Một điều khiển DirListBox o Một điều khiển FileListBox o Một điều khiển ImageBox Bước 1: Tạo giao diện người dùng Ta cần nhấp vẽ vị trí điều khiển Form Hình I.3: Giao diện lựa chọn tập tin hình ảnh để hiển thị 1: 2: 3: 4: DriveListBox Name: drvSource DirListBox Name: dirSource FileListBox Name: filSource Pattern: *.bmp;*.wmf;*.ico;*.jpg ImageBox Name: ImgSource Stretch: TRUE Trang TT Visual Basic Bước 2: Viết mã trao đổi thông tin đối tượng: Trong cửa sổ thiết kế Form, nhấp đúp vào DriveListBox, cửa sổ Code ra, xử lý kiện sau: Private Sub drvSource_Change() dirSource.Path = drvSource.Drive End Sub Tương tự cho DirListBox & FileListBox Private Sub dirSource_Change() filSource.Path = dirSource.Path End Sub Private Sub filSource_Click() imgSource.Picture = LoadPicture(filSource.Path & "\" & filSource.FileName) End Sub Bước 3: Lưu dự án lại vào thư mục Basic\Bt1-3 Chạy chương trình nhờ phím F5 Hình I.4: Kết thực thi Bài tập 1I-4 ĐIỀU KHIỂN OLE Bước 1: Tạo dự án mới, ta có sử dụng OLE Hộp thoại Insert Object để ta lựa chọn, chọn kích hoạt Create New, Object Type Bitmap Image; đánh dấu chọn Display as Icon Trang TT Visual Basic Hình I.5: Sử dụng OLE Control Bước 2: Nhấp OK, VB gọi trình ứng dụng Paint & ta vẽ hình cửa sổ Paint Sau chọn Exit & Return cửa sổ Form, ta được: Hình I.6: Kết thực thi ứng dụng Bước 3: Lưu dự án vào thư mục Basic\Bt1I-4 chạy chương trình; nhấp đúp vào biểu tượng Bitmap Image,VB khởi động Paint để ta hiệu chỉnh hình vẽ đầu I.2 Bài tập tự làm 1) Thiết kế chương trình sau: Hình I.7 Các phép tính Nhập vào giá trị A, B; sau chọn phép toán (+,-,*,/) Nhấp chọn nút nhấn Thực hiện, kết hiển thị điều khiển nhãn Kết Trang TT Visual Basic 2) Thiết kế chương trình để nhập vào tọa độ hai điểm (x1,y1); (x2,y2) cho phép: a) Tính hệ số góc đường thẳng qua hai điểm theo cơng thức: Hệ số góc = (y2 - y1) /(x2 - x1) b) Tính khoảng cách hai điểm theo cơng thức: khoảng cách = (x2 - x1) + (y2 - y1)2 Giao diện chương trình sau: Hình I.8: Tọa độ điểm 3) Viết chương trình cho phép nhập vào bán kính r hình trịn Tính chu vi diện tích hình trịn theo cơng thức : Chu vi CV = 2*Pi*r Diện tích Dt = Pi*r*r Hiển thị kết lên hình 4) Thiết kế chương trình có giao diện hình thực chức sau: Trang TT Visual Basic Hình I.9: Lựa chọn tên o Mỗi người sử dụng chương trình nhập thơng tin vào TextBox, sau nhấp chọn nút Thêm, giá trị Mã số đưa vào ComboBox, cịn giá trị ô Họ tên đưa vào ListBox o Mỗi họ chọn mã số ComboBox, giá trị họ tên tương ứng chọn ListBox; đồng thời chúng hiển thị lên điều khiển TextBox tương ứng (như hình) (Xử lý kiện Combo1_Click & List1_Click) o Đối với mã số họ tên người, ta sửa đổi giá trị chúng nhập TextBox, sau chọn nút Sửa, giá trị chúng ComboBox & ListBox sửa đổi theo o Khi người dùng chọn mã số (hay họ tên) ComboBox (hoặc ListBox), sau họ chọn Xóa, thơng tin xóa khỏi ComboBox & ListBox II CÁC CẤU TRÚC LẬP TRÌNH TRONG VB II.1 Bài tập có hướng dẫn Bài tập 1II-1 SỬ DỤNG SELECT CASE Tạo thư mục Basic\Bt1II-1 Thiết kế chương trình có giao diện & lưu thư mục trên: Hình I.10: Select Case Ở đây, người sử dụng chương trình nhập vào tuổi nhập tuổi, sau họ nhấp nút Nhận xét, nhận xét xuất ứng với tuổi mà họ nhập từ bàn phím Lúc ta sử dụng tốn tử so sánh (=, =, ) với từ khóa Is To biểu thức Is: so sánh biến với biểu thức liệt kê sau từ khóa Is To: định nghĩa phạm vi giá trị Sự kiện Command1_Click(): Dim Age As Integer Age = Val(Text1.Text) Trang TT Visual Basic Select Case Age Case Is < 18 Label2.Caption = "Ban thieu nien, ban phai hoc thoi!" Case 18 To 30 Label2.Caption = "Ban da truong thanh, lap gia dinh thoi!" Case 31 To 60 Label2.Caption = "Lua tuoi trung nien roi!" Case Else Label2.Caption = "Ban co chau day dan roi nhe!" End Select Bài tập 1II-2 BIẾN VÀ CẤU TRÚC Bước 1: Tạo thư mục Basic\Bt1II-2 Tạo dự án (VB Standard EXE) thư mục trên; thêm modul vào dự án, modul thêm vào đoạn mã sau: Public Const tieude As String = "Quan ly hanh chinh" Public Const sohieu As String = "1.0" Thêm đoạn mã sau vào hàm xử lý kiện Form_Load Form1: Form1.Caption = tieude & " phien ban " & sohieu Chạy ứng dụng, ta thấy tiêu đề Form: “Quan ly hanh chinh phien ban 1.0” Bây giờ, mở Modul1 thay Public Private Chạy chương trình Điều xảy ra? Bước 2: Đổi khai báo thành Public, thêm dòng sau vào đầu thủ tục Form_Load: tieude = “Loi xuat hien” & “Hang so khong the thay doi duoc.” Chạy chương trình, điều xảy ra? Bước 3: Thêm dòng sau hàm xử lý kiện Form_Resize: MsgBox “FORM RESIZE” Bước 4: Chạy chương trình, Form bắt đầu hiển thị (sự kiện Form_Load), kiện Resize Form thực Chỉ có hàm xử lý kiện Resize cho biết hàm Form_Load thực thi Để kiểm chứng ta tạo biến form hàm Form_Load ta thiết lập giá trị Sau đó, hàm Form_Resize kiểm tra biến xử lý biến Bước 5: Khai báo biến Private Form1 tên sukienLoad: Private sukienLoad As Boolean Trong hàm Form_Load, đặt giá trị True cho biến trên: sukienLoad = True Bây ta kiểm tra giá trị biến hàm Form_Resize Thêm vào đoạn mã sau hàm Form_Resize: If sukienLoad = True Then SukienLoad =False Exit Sub End If MsgBox “Form Resize” Trang 10 TT Visual Basic Bước 25: Nếu Data Report Designer không hiển thị menu PROJECT, mở hộp thoại COMPONENTS, chọn Data Report Designer mục chọn Designers Sau ta thêm Data Report Designer vào dự án cách chọn PROJECT\ADD DATA REPORT menu Bước 26: Liên kết Data Report Designer với Data Environment nhờ việc thiết lập thuộc tính DataSource Data Report DataEnvirronment1 thuộc tính DataMember Publishers Bước 27: Nhấp chuột phải Data Report Designer chọn RETRIEVE STRUCTURE menu Một hộp thoại xác nhận lên ta chọn YES Bước 28: Ta nhận thấy report gồm phần: report header, page header, publisher information, title information, page footer, report footer Bước 29: Chọn phần Report Header, phần này, thêm Report Label vào, đặt Caption Book Report; ta đổi Font chữ kích thước Font tương ứng Bước 30: Chọn Group header, phần thêm Report TextBox vào; đặt thuộc tính DataMember Publishers DataField Name Bước 31: Chọn phần Detail Report Trong phần này, thêm Report TextBox vào, đặt điều khiển cạnh phần Detail; chọn TextBox thứ đặt thuộc tính DataMember Titles DataField Expr2, TextBox thứ hai: DataMember: Titles, DataField: Expr3 Bước 32: Lưu dự án lại Bước 33: Chọn Form1 môi trường soạn thảo; tạo menu Form1 cách chọn Tools\Menu Editor; Menu Editor, tạo Report menu với phần tử Preview Print với thuộc tính sau: Item – Menu Name: mnuReport Caption: Report Item – Menu Name: mnuPreview Caption: Preview Item – Menu Name: mnuPrint Caption: Print Bước 34: Ta xem báo cáo trước in nhờ hàm Show đối tượng Report Trong hàm xử lý kiện mnuPreview, thêm đoạn mã sau: DataReport1.Show Bước 35: In báo cáo thực nhờ hàm PrintReport đối tượng Report Trong hàm xử lý kiện mnuPrint, thêm đoạn mã sau: DataReport1.PrintReport Bước 36: Lưu chạy chương trình Thử hiển thị in report Trang 100 TT Visual Basic Bài 7-2 BIỂU MẪU NHẬP LIỆU VỚI DATA ENVIRONMENT o Tạo dự án mới; bổ sung Data Enviroment vào dự án ta nhờ chọn Project/Add Data Environment Khi lựa chọn mục này, môi trường DED hiển thị; sử dụng cửa sổ Properties để thiết lập thuộc tính Name là: datHH Ở đây, ta sử dụng DED để kết nối với CSDL HANGHOA.MDB o Sửa lại thuộc tính Name Connection1 conHH; sau chuột phải lên conHH, chọn Properties Ở hộp thoại đầu tiên, ta phải chọn trình cung cấp liệu, chọn Microsoft Jet 4.0 OLE DB Provider, nhấn Next để tiếp tục Tiếp theo ta cần nhập xác đường dẫn đến tập tin CSDL, chẳng hạn là: H:\Visual Basic\HangHoa.Mdb Cuối cùng, nhấn nút Test Connection để kiểm tra việc nối kết liệu xác hay khơng? Hình VII.4: Tạo Connection Tạo đối tượng Command: o Xây dựng đối tượng Command kết nối trực tiếp với Table (bảng) THANGHOA file liệu HangHoa.mdb o Nhấp chuột phải kết nối liệu conHH & chọn Add Command; sửa Command Name là: comHH; chọn Table từ Combo Box Database Object, chọn THANGHOA từ Combo Box Object Name o Trước đóng hộp thoại này, ta chuyển qua nhãn Advanced & thiết lập LockType – Optimistic (mặc nhiên – Read Only); Cursor Location: Use client-side cursor Nhờ ta cập nhật Record Set từ chương trình ta Trang 101 TT Visual Basic o Trở lại giao diện DED, ta được: Hình VII.5: Đối tượng Command Tạo ứng dụng nhập liệu với DED o Ở môi trường DED, ta kéo trường Command comHH vào Form1, chỉnh sửa lại cho thích hợp o Ở ta có sử dụng lưới để hiển thị liệu; ta chọn Project\Component; chọn Microsoft DataGrid Control 6.0 (OLE DB); sau kéo điều khiển vào Form, thiết lập thuộc tính cho thích hợp Name: grdHH DataSource: datHH DataMember: comHH o Nhấp chuột phải lên điều khiển DataGrid, chọn Retrieve Structure Sau đó, lưu dự án & chạy chương trình ta được: Hình VII.6: Kết thực thi ứng dụng Trang 102 TT Visual Basic o Thêm nút hành động (Thêm, Sửa, Xóa,…) Chẳng hạn kiện cmd_Them_Click, cmdXoa_Click, cmdLuu_Click, cmdHuy_Click xử lý: Hình VII.7: Giao diện đầy đủ Private Sub cmdThem_Click() With datHH.rscomHH AddNew End With End Sub Private Sub cmdXoa_Click() With datHH.rscomHH Delete Update Me.Refresh End With End Sub Private Sub cmdHuy_Click() With datHH.rscomHH CancelUpdate Me.Refresh End With End Sub Private Sub cmdLuu_Click() On Error GoTo Xuly With datHH.rscomHH Update Trang 103 TT Visual Basic End With Me.Refresh Exit Sub Xuly: MsgBox Err.Description, vbCritical + vbSystemModal, "Error" End Sub Như vậy, ta thiết kế xong Form cho phép hiển thị thơng tin hàng hóa, Form cho phép sửa đổi, thêm mẩu tin bảng THANGHOA CSDL HANGHOA.MDB II BÀI TẬP TỰ LÀM 1) Sử dụng DataEnviroment, thiết kế Form nhập liệu cho bảng THangHoa (hình dưới) Ở thay hiển thị MaLoai, ta lại hiển thị TenLoai: Hình VII.8: Form nhập liệu 2) Sử dụng DataEnviroment, thiết kế Form nhập liệu cho bảng TNhanVien 3) Sử dụng DataEnviroment, thiết kế Form cho phép nhập (sửa, xóa) thơng tin phát sinh mặt hàng ngày Lưu ý: Trường STT kiểu AutoNumber (Access), Ngay: lấy ngày hệ thống (hàm Now) Trang 104 TT Visual Basic Chương THIẾT LẬP BÁO CÁO VÀ XUẤT THÔNG TIN Mục tiêu: Chương nhằm giới thiệu cho sinh viên cách thức để tạo báo biểu, thành phần thiếu ứng dụng sở liệu Học xong chương này, sinh viên phải nắm bắt vấn đề sau: Sử dụng Data Report để tạo loại báo biểu sau: - Báo cáo dạng bình thường - Báo cáo có phân nhóm liệu - Báo cáo dạng phân cấp Kiến thức có liên quan: - Giáo trình Visual Basic, chương 13 Tài liệu tham khảo: - Visual Basic 6.0 Lập trình sở liệu - Chương 21, trang 636 - Nguyễn Ngọc Mai (chủ biên) – Nhà xuất Giáo dục - 2000 - Tự học Lập trình sở liệu với Visual Basic 6.0 21 ngày (T1) - Chương 5, trang 183 - Nguyễn Đình Tê (chủ biên) - Nhà xuất Giáo dục - 2001 Trang 105 TT Visual Basic I HƯỚNG DẪN TẠO KẾT NỐI VỚI CƠ SỞ DỮ LIỆU Bước 1: Tạo dự án thư mục Basic\Bt8-1 Bước 2: Để tạo report, ta phải xác định liệu sử dụng report, nhiệm vụ Data Environment Ta chèn Data Environment vào dự án nhờ việc chọn Project\More ActiveX Designer\Data Environment Ta sử dụng Data Environment để lưu trữ tập liệu dùng report Bước 3: Nhấp đúp vào trình thiết kế Data Environmenr cửa sổ Project Explorer để mở trình thiết kế Sau nhấp vào Connection1 thay đổi thuộc tính Name thành cnHangHoa; nhấp chuột phải vào cnHangHoa chọn mục Properties, hộp thoại Properties ra: Hình VIII.1: Tạo nối kết đến CSDL Bước 4: Ta tạo kết nối đến sở liệu DBHH.MDB có sẵn máy Do ta nhấp nút Next sau chọn Microsoft OLEDB Provider for ODBC Trong tùy chọn ta chọn mục Use data source name; chọn nguồn liệu DBHH tạo từ trước Bước 5: Nhấp nút Test Connection để kiểm tra xem nối kết có thành cơng hay khơng? TẠO ĐỐI TƯỢNG COMMAND Bước 6: Sau xác định Data Environment Connection, ta xác định Command, Command lưu kết nối tới bảng liệu trường dùng Trang 106 TT Visual Basic report Nhấp nút phải chuột vào Command cửa sổ thiết kế Data Environment chọn mục Add Command, hộp thoại xuất hình bên Bước 7: Thiết lập thuộc tính Name Command comHangHoa, chọn Connection cnHangHoa Trong phần DataBase Object chọn kiểu lấy liệu Table; sau ComboBox Object Name chọn Table THANGHOA Hình VIII.2: Đối tượng Command XÂY DỰNG MỘT BÁO CÁO (REPORT) ĐƠN GIẢN Bước 8: Bây ta tạo báo cáo để hiển thị liệu xác định Data Environment Để làm điều này, nhấp phải chuột vào Project cửa sổ Project Explorer; chọn Add\Data Report; sau đặt tên report lại drHangHoa, DataSource: DataEnvironment1, DataMember: cnHangHoa (trong cửa sổ Properties) Bước ta đóng tất cửa sổ ngoại trừ cửa sổ DataEnvironment drHangHoa Bước 9: Bước đơn giản nhấp chọn kéo trường từ Data Environment, mục command comHangHoa vào Data Report Đối với report này, nhấp chọn kéo trường tên MaHang, TenHang, DVTinh, MaLoai Khi thực xong, hình tương tự hình dưới: Trang 107 TT Visual Basic Hình VIII.3: Thiết kế Report Ở đây, ta kéo chọn trường vào mục Detail report, tiêu đề cột (tương ứng với trường); ta đặt chúng phần Page Header report Có ghi nhận rằng, ta kéo thả trường vào phần Detail report, report Label chứa tên trường report TextBox cho phép nhập liệu xuất phần Detail Do đó, phần Detail ta giữ lại TextBox, report Label ta chuyển chúng lên phần Page Header Vì coi ta thiết lập xong phần hiển thị report Vấn đề lại trang trí cho đạt yêu cầu mặt thẩm mỹ CHÈN CÁC TIÊU ĐỀ ĐẦU TRANG VÀ CUỐI TRANG Bước 10: Tất report hoàn chỉnh phải có số đặc điểm đó; report phải có tên, số trang report hiển thị rõ ràng Các mục đặt tốt phần Report Header Report Footer Ta cần phải thêm Report Header Report Footer vào report mình; đơn giản cần nhấp chuột phải vào report chọn Show Report Header | Footer Hai phần tạo Bước 11: Thêm report Label vào phần Header report; sau thay đổi thuộc tính Caption thành Chi tiết hàng hóa loại Ở chọn Font chữ với kích thước lớn (VD: 20) để tiêu đề report hiển thị lớn Trang 108 TT Visual Basic Bước 12: Nhấp chuột phải vào mục report Footer chọn tùy chọn Insert Control | Current Page Number để chèn số trang vào; tiếp đến chọn Insert Control | Total Number of Pages để chèn tổng số trang report Bước 13: Đến đây, phần thiết kế report coi hoàn tất; ta lưu report lại Bước 14: Tạo giao diện cho chương trình sau: Hình VIII.4: Giao diện Bước 15: Khi chọn Chi tiết hàng hóa, report vừa thực hiển thị; ta xử lý kiện sau: Private Sub mnuChiTiet_Click() drHangHoa.Show End Sub Bước 16: Lưu dự án chạy chương trình TẠO REPORT BẰNG CÂU LỆNH SQL Bước 17: Data Report cho phép ta tạo report cách sử dụng câu lệnh SQL tảng đối tượng Command Trong phần ta sử dụng câu lệnh SELECT để lấy liệu từ bảng TPHATSINH, THANGHOA, TLOAIHANG chọn trường sau: PhatSinh.SOTT, TPhatSinh.NGAY, TPhatSinh.LOAI, TPhatSinh.FIEU, TPhatSinh.HTEN, TPhatSinh.SOLG, TPhatSinh.DGIA, THangHoa.TENHANG, TLoaiHang.TENLOAI Bước 18: Chọn mục Data Enviroment1 Project Explorer, sau nhấp chuột phải vào đối tượng cnHangHoa, chọn Add Command Ta điền vào thuộc tính hình dưới: Trang 109 TT Visual Basic Hình VIII.5: Command SQL Bước 19: Trong mục Source of Data, thay chọn DatabaseObject trước, ta chọn SQL Statement nhập câu SQL tương ứng vào, chọn OK Bước 20: Thêm DataReport vào dự án với Name: drHHPS, DataSource: DataEnvironment, DataMember: comHHPS Sau kéo thả trường tương ứng vào report trang trí lại chúng Bước 21: Lưu report lại Ta gọi thực thi report phần xử lý tình chọn mục Hàng Hóa Phát Sinh menu Private Sub mnuHHPS_Click() drHHPS.Show End Sub Bước 22: Lưu dự án chạy chương trình NHĨM DỮ LIỆU Bước 23: Ta nhóm liệu lại theo nội dung Ở đây, DataEnvironment1, thêm vào đối tượng Command tên comHHNgay Trong phần ta lấy liệu từ bảng TPhatSinh, ThangHoa, TLoaiHang lấy trường TPhatSinh.SOTT, TPhatSinh.NGAY, TPhatSinh.LOAI, TPhatSinh.FIEU, TPhatSinh.HTEN, TPhatSinh.SOLG, TPhatSinh.DGIA, THangHoa.TENHANG, TLoaiHang.TENLOAI Bước 24: Ta nhóm liệu lại theo ngày, ta làm theo bước hình dưới: Trang 110 TT Visual Basic Hình VIII.6: Nhóm liệu Chọn Grouping, chọn trường để nhóm lại Ngay; sau nhấp OK Bước 25: Trong phần Aggregates, ta điền thơng tin hình: Hình VIII.8: Hàm thao tác nhóm Ở ta sử dụng hàm tập hợp để tính tổng số lượng bán ngày Do ta chọn mục Aggregate, chọn mục thích hợp nhấp Add để thêm vào hàm tính nhóm Bước 25: Chèn DataReport vào tên drHHNgay, DataSource: DataEnvironment1, DataMember: comHHNgay_Grouping Sau nhấp chuột phải vào Report chọn mục Show Group Header | Footer Bước 26: Ta kéo trường ngày phần Sumary Fields in comHHNgay_Grouping vào phần Group Header Trong phần Detail ta kéo thả trường khác Còn phần Group_Header, ta lại kéo TongSolg đặt vào Trang 111 TT Visual Basic Hình VIII.9: Thiết kế Report Bước 27: Lưu report lại Ta gọi report hiển thị nhấp vào mục Phat sinh theo menu: Private Sub mnuPsngay_Click() drHHNgay.Show End Sub Bước 28: Lưu dự án lại, chạy chương trình, ta in thử giấy Bước 29: Còn report ta thực với điều kiện tìm phát sinh hàng hóa theo nhân viên (tương tự report trên) ta gọi thực thi mục menu lại Bước 30: Xử lý kiện mnu_Thoat: Private Sub mnuThoat_Click() End End Sub Trang 112 TT Visual Basic II BÀI TẬP TỰ LÀM 1) Tạo báo cáo (Report) cho phép in giấy thông tin hàng hóa, thơng tin bao gồm: Mã hàng hóa, tên hàng hóa, đơn vị tính, tên loại hàng tương ứng 2) Tạo báo cáo (Report) cho phép in giấy thông tin chi tiết phát sinh theo ngày, thông tin bao gồm: Ngày lập, loại, Fieu, họ tên khách hàng, lý do, số lượng, đơn giá, thành tiền (với Thành tiền = Số lượng * Đơn giá), tên hàng hóa họ tên nhân viên tương ứng (Hình VIII.10) Hình VIII.10: Phát sinh theo ngày 3) Tạo báo cáo (Report) cho phép in giấy thông tin chi tiết phát sinh theo nhân viên, thông tin bao gồm: Ngày lập, loại, Fieu, họ tên khách hàng, lý do, thành tiền (với Thành tiền = Số lượng * Đơn giá), tên hàng hóa loại hàng tương ứng (Hình dưới) Trang 113 TT Visual Basic Hình VIII.11: Phát sinh theo nhân viên LỜI KẾT Chương Thiết lập báo cáo chương kết thúc giáo trình TT Visual Basic Tuy nhiên lập trình kiện lập trình sở liệu với VB phần khả mà VB mang lại Hy vọng gặp lại bạn đọc chuyên đề khác VB Trang 114 ... 1998 Trang 40 TT Visual Basic I BÀI TẬP HƯỚNG DẪN Bài tập 3-1: XUẤT NHẬP TẬP TIN VĂN BẢN Bước 1: Tạo Project tên Bt3-1 thư mục Basic\ Bt3-1 Tạo giao diện có dạng sau: Hình III.1: Tập tin văn Item... Trang 28 TT Visual Basic Bài tập 2-2 ĐỒ HỌA VỚI BASIC Bước 1: Tạo dự án thư mục Basic\ Bt2-2 Bước 2: Trong Form1 ta tạo Menu có dạng: Hình II.2: Menu giao diện Trang 29 TT Visual Basic Với thuộc... hệ thống tập tin - Cách thức truy cập tập tin - Cách thức truy cập tập tin truy xuất ngẫu nhiên Kiến thức có liên quan: Giáo trình Visual Basic, Chương Tài liệu tham khảo: - Visual Basic Certification