Bài tập lớn nhóm 2

TRƯỜNG ĐẠI HỌC KINH DOANH VÀ CÔNG NGHỆ HÀ NỘI KHOA CÔNG NGHỆ THÔNG TIN BÀI TẬP LỚN VISUAL BASIC.NET QUẢN LÝ CỬA HÀNG MÁY TÍNH NHĨM Sinh viên: Vũ Tiến Nam Phạm Văn Sơn Nguyễn Thị Diễm Quỳnh Phan Ngọc Minh Vũ Đức Quang Lớp: TH26.13 sc.tcs.vbnet Hà Nội – Thứ 2, 14/10/2019 MỤC LỤC Chương I: GIỚI THIỆU .2 Chương II: TỔNG QUAN 1: Tổng quan Visual Basic 1.1: Visual Basic gì? 1.2: Mục đích sử dụng Visual Basic 2: Công cụ Visual Basic.NET(VB.NET) .5 2.1: Công cụ Visual Basic.NET gì? .5 2.2: Hình ảnh giao diện VB.NET .6 Chương III: THIẾT KẾ CHƯƠNG TRÌNH 1: Cấu trúc chương trình 1.1: Cấu trúc ứng dụng Visual Basic 1.2: Các bước xây dựng chương trình .8 2: Xây dựng chương trình 2.1: Phân tích thiết kế hệ thống 2.2: Tạo sở liệu 10 2.3: Thiết kế giao diện liên kết với database 12 2.4: Lập trình code để giao diện tương tác truy vấn với sở liệu 14 Chương IV: KẾT LUẬN 1: Kết luận chung 20 2: Bản thân 23 CHƯƠNG I Quản lý sinh viên đề tài tập lớn kết thúc môn mơn lập trình windows chương trình giảng dạy lớp CNTT Bài tập lớn hữu ích cho sinh viên ngồi ghế nhà trường tạo cho sản phẩm phần mềm đầu tay Giúp cho sinh viên vững vàng kiến thức trường biết thêm nghề nghiệp, công việc tương lai nào, thức sử lý thông tin, vướng mắc sao,… đặc biệt hội việc làm khỏi trường qua mơn lập trình windows Đề tài phần mềm quản lý sinh viên nhóm chúng em đề tài mà giúp cho giảng viên quản lý hồ sơ sinh viên cách khoa học, nhanh chóng, tiện lợi, tốn tài ngun, nhân lực, tiền bạc… so với phương pháp quản lý thủ cơng trước Bên cạnh phần mềm xây dựng nên phải sử dụng đơn giản tiện lợi Tuy nhiên sinh viên nên kiến thức tảng kiến thức câu lệnh, cấu trúc, phương pháp… chưa cao Thế nên làm tập số chỗ chưa tối ưu hóa liệu tính tiện lợi cao Qua đề tài cách kiểm tra hiệu kiến thức học cách tiếp cận với thực tế có hiệu sinh viên Do thời gian hạn chế chưa có kinh nghiệm nghiên cứu thực hành nên báo cáo cịn nhiều thiếu sót Bọn em mong nhận đóng góp ý kiến thầy để đề tài hoàn thiện Bọn em xin chân thành cảm ơn! CHƯƠNG II TỔNG QUAN VỀ VISUAL BASIC TỔNG QUAN VỀ VISUAL BASIC 1.1 Visual Basic gì? Visual Basic (viết tắt VB) ngôn ngữ lập trình hướng kiện (event-driven) mơi trường phát triển tích hợp (IDE) kết bó Là sản phẩm Microsoft, thành phần phần Visual Studio Chức năng: Là ngơn ngữ lập trình dùng để xây dựng ứng dụng chạy môi trường Windows Phần Visual (có nghĩa hình ảnh trực quan) đề cập đến phương pháp sử dụng để tạo giao diện đồ họa người dùng (Graphical User Interface hay viết tắt GUI) Với phận hình ảnh (gọi controls), bạn đặt vị trí định đặc tính chúng khung hình, gọi form (giống form Access) Nếu bạn đă sử dụng chương trình vẽ chẳng hạn Paint, bạn đă có sẵn kỹ cần thiết để tạo GUI cho VB6 Phần Basic đề cập đến ngôn ngữ BASIC (viết tắt Beginner's All-purpose Symbolic Instruction Code), ngơn ngữ lập trình đơn giản, dễ học, tạo cho khoa học gia (những người khơng có thời gian để học lập trình điện tốn) dùng 1.2 Mục đích sử dụng Visual Basic Visual Basic ngơn ngữ lập trình dùng để xây dựng ứng dụng chạy môi trường Windows Visual Basic, đường nhanh đơn giản để tạo ứng dụng cho Microsoft Windows Bất kể bạn nhà chuyên nghiệp người lập trình Windows, Visual Basic cung cấp cho bạn tập hợp cơng cụ hồn chỉnh để nhanh chóng phát triển ứng dụng Công cụ Visual Basic.NET(VB.NET) 2.1 Cơng cụ Visual Basic.NET gì? Visual Basic.NET cơng cụ lập trình hỗ trợ ngơn ngữ lập trình Visual Basic.NET cơng cụ lập trình Microsoft Visual Studio VB2005 chạy NET Framework đến NET Framework 4.8, đóng gói chương trình cần Framework để chạy chương trình Cũng VB 6.0, VB2005 ngơn ngữ lập trình hướng đối tượng Mặc dù mục đích tạo ứng dụng nhỏ cho thân hay nhóm, hệ thống cơng ty lớn, chí phân phối ứng dụng tồn cầu qua Internet Visual Basic cung cụ mà bạn cần:  Những chức truy xuất liệu cho phép ta tạo sở liệu, ứng dụng frontend, thành phần phạm vi server-side cho hầu hết dạng thức sở liệu phổ biến,  bao gồm Microsoft SQL Server sở liệu mức enterprise khác Những kỹ thuật ActiveX cho phép ta dùng chức cung cấp từ ứng dụng khác, chương trình xử lý văn Microsoft Word, bảng tính Microsoft Excel ứng  dụng Windows khác Khả Internet làm cho dễ dàng cung cấp cho việc thêm vào tài liệu ứng dụng qua  Internet intranet từ bên ứng dụng bạn, tạo ứng dụng Internet server Ưng dụng bạn kết thúc file exe thật Nó dùng máy ảo Visual Basic để bạn tự phân phối ứng dụng 2.2 Hình ảnh giao diện VB.NET phần mềm Visual studio 2019 Người dùng tải chương trình Visual Studio địa chỉ: https://visualstudio.microsoft.com/fr/downloads/ Sau tải xong, tiến hành cài đặt chương trình vào máy tính theo cách thơng thường Một số hình ảnh chương trình Visual Studio: Hình 1: Giao diện thiết kế Form VB.NET Hình 2: Giao diện code VB.NET CHƯƠNG III THIẾT KẾ CHƯƠNG TRÌNH Cấu trúc chương trình 1.1 Cấu trúc ứng dụng Visual Basic Một ứng dụng thật tập hợp dẫn trực tiếp đến máy tính để thi hành hay nhiều tác vụ Cấu trúc ứng dụng phương pháp dẫn tổ chức, nơi dẫn lưu giữ thi hành dẫn trình tự định Vì ứng dụng Visual Basic, đối tượng, cấu trúc mã đóng để tượng trưng cho mơ hình vật lý hình Bằng việc định nghĩa, đối tượng chứa mã liệu Form, mà nhìn thấy hình tượng trưng cho thuộc tính, quy định cách xuất cách cư xử Cho form ứng dụng, có quan hệ module form (với tên file mở rộng frm) dùng để chứa đựng mã Mỗi module chứa thủ tục kiện – đoạn mã, nơi đặt dẫn, thi hành việc đáp ứng kiện định Form chứa điều khiển Tương ứng với điều khiển form, có tập hợp thủ tục kiện module form Mã khơng quan hệ với form định hay điều khiển đặt loại module khác, module chuẩn (.BAS) Một thủ tục dùng để đáp ứng kiện đối tượng khác phải đặt chuẩn, thay tạo mã thủ tục kiện cho đối tượng Một lớp module (.cls) dùng để tạo đối tượng, mà gọi từ thủ tục bên ứng dụng bạn Trong module chuẩn chứa mã, lớp module chứa đựng mã liệu Ta nghĩ điều khiển 1.2 Các bước xây dựng chương trình Phân tích thiết kế hệ thống → Tạo Cơ sở liệu → Thiết kế Giao diện(Form) → Lập trình code để giao diện tương tác truy vấn với sở liệu → Hồn Thành Xây dựng chương trình 2.1 Phân tích thiết kế hệ thống Biểu đồ phân cấp chức năng: Quản lý sinh viên 2.2 Tạo sở liệu Tạo Database “QLSV” 2.3 Thiết kế giao diện liên kết với database Giao diện Login 11 Giao diện Main Giao diện quản lý Khoa 12 Giao diện Môn học 13 Giao diện Quản lý Sinh viên Giao diện Quản lý điểm 14 2.4 Lập trình code để giao diện tương tác truy vấn với sở liệu Code Form Login Public Class F_login Private Sub User_TextChanged(sender As Object, e As EventArgs) Handles User.TextChanged If User.Text "" Then OK.Enabled = True Else OK.Enabled = False End If End Sub Private Sub OK_Click(sender As Object, e As EventArgs) Handles OK.Click If User.Text = "" Or Pass.Text = "" Then MsgBox("Ban chua nhap ten dang nhap hoac pass") Else If User.Text = "nhom2" And Pass.Text = "12345" Then MsgBox("Dang nhap cong") Dim lienket As Form1 = New Form1 lienket.Show() Else MessageBox.Show("Dang nhap that bai") End If End If End Sub Private Sub User_GotFocus(sender As Object, e As EventArgs) Handles User.GotFocus If User.Text = "Nhập Email số điện thoại" Then User.Text = "" End Sub Private Sub User_LostFocus(sender As Object, e As EventArgs) Handles User.LostFocus If User.Text = "" Then User.Text = "Nhập Email số điện thoại" End Sub Private Sub Cancel_Click(sender As Object, e As EventArgs) Handles Cancel.Click Close() End Sub End Class Code Form Main Public Class Form1 Private Sub btnSV_Click(sender As Object, e As EventArgs) Handles btnSV.Click Dim frm As New QLSV frm.Show() 15 End Sub Private Sub btnKHOA_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim frm2 As New QLKHOA frm2.ShowDialog() End Sub Private Sub BtnMH_Click(sender As Object, e As EventArgs) Handles BtnMH.Click Dim frm3 As New QLMH frm3.ShowDialog() End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click Dim frm4 As New QLĐ frm4.ShowDialog() End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) End Sub End Class Code Form Quản lý Sinh viên Public Class QLSV Private Sub loaddata() DMSVTableAdapter.Fill(Me.DataSet2.DMSV) End Sub Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click Dim gt As String = " " If rdNam.Checked = True Then gt = "Nam" Else rdNu.Checked = True gt = "Nữ" End If Try OleDbConnection1.Open() Dim sql As String = "INSERT INTO DMSV (MASV ,HoTenSV, MALOP ,Phai, NgaySinh, NoiSinh, MAKHOA) VALUES (N'" & txtMASV.Text & "',N'" & txtTenSV.Text & "',N'" & txtMALOP.Text & "',N'" & gt & "',N'" & txtNS.Text & "',N'" & txtnoixinh.Text & "',N'" & txtMAKHOA.Text & "')" OleDbInsertCommand1.CommandText = sql OleDbInsertCommand1.ExecuteNonQuery() OleDbConnection1.Close() DataSet2.Clear() loaddata() Catch ex As Exception MsgBox(ex.ToString) End Try End Sub Private Sub QLSV_Load(sender As Object, e As EventArgs) Handles MyBase.Load 16 'TODO: This line of code loads data into the 'DataSet2.DMSV' table You can move, or remove it, as needed Me.DMSVTableAdapter.Fill(Me.DataSet2.DMSV) End Sub Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click DMSVBindingSource.RemoveCurrent() End Sub Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click DMSVBindingSource.EndEdit() DMSVTableAdapter.Update(DataSet2.DMSV ) End Sub End Class Code Quản lý Khoa Public Class QLKHOA Private Sub loaddata() 'TODO: This line of code loads data into the 'DataSet2.DMKHOA' table You can move, or remove it, as needed Me.DMKHOATableAdapter.Fill(Me.DataSet2.DMKHOA) End Sub Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click DMKHOABindingSource.AddNew() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click DMKHOABindingSource.EndEdit() DMKHOATableAdapter.Update(DataSet2.DMKHOA) End Sub Private Sub btnxoa_Click(sender As Object, e As EventArgs) Handles btnxoa.Click DMKHOABindingSource.RemoveCurrent() End Sub Private Sub QLKHOA_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the 'DataSet2.DMKHOA' table You can move, or remove it, as needed Me.DMKHOATableAdapter.Fill(Me.DataSet2.DMKHOA) End Sub End class Code Form Quản lý điểm Public Class QLĐ Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the 'DataSet2.KETQUA' table You can move, or remove it, as needed Me.KETQUATableAdapter.Fill(Me.DataSet2.KETQUA) End Sub 17 Private Sub loaddata() 'TODO: This line of code loads data into the 'DataSet2.DMKHOA' table You can move, or remove it, as needed Me.KETQUATableAdapter.Fill(Me.DataSet2.KETQUA) End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnThem.Click Try OleDbConnection1.Open() Dim sql As String = "INSERT INTO KETQUA ( MASV, MAMH,LANTHI,DIEM) VALUES (N'" & txtmasv.Text & "',N'" & txtMMH.Text & "',N'" & txtlanthi.Text & "',N'" & txtDiem.Text & "')" OleDbInsertCommand1.CommandText = sql OleDbInsertCommand1.ExecuteNonQuery() OleDbConnection1.Close() DataSet2.Clear() loaddata() Catch ex As Exception MsgBox(ex.ToString) End Try End Sub End Class Code Quản lý Môn học Public Class QLMH Private Sub loaddata2() DMMONHOCTableAdapter.Fill(Me.DataSet2.DMMONHOC) End Sub Private Sub btnThem_Click(sender As Object, e As EventArgs) Handles btnThem.Click Try OleDbConnection1.Open() Dim sql As String = "INSERT INTO DMMONHOC (MAMH ,TENMH, SoTiet) VALUES (N'" & txtMMH.Text & "',N'" & txtTENMH.Text & "',N'" & Txtsotiet.Text & "')" OleDbInsertCommand1.CommandText = sql OleDbInsertCommand1.ExecuteNonQuery() OleDbConnection1.Close() DataSet2.Clear() loaddata2() Catch ex As Exception MsgBox(ex.ToString) End Try End Sub Private Sub QLKMH_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the 'DataSet2.DMKHOA' table You can move, or remove it, as needed Me.DMMONHOCTableAdapter.Fill(Me.DataSet2.DMMONHOC) End Sub Private Sub btnXoa_Click(sender As Object, e As EventArgs) Handles btnXoa.Click DMMONHOCBindingSource.RemoveCurrent() End Sub End Class 18 Các kiến thức sử dụng Cách khai báo biến: Dim As Các kiểu biến: Tên kiểu Kích thước Khoảng gía trị - Byte byte đến 255 (tức gán cho biến giá trị nhỏ lớn 255) - Integer byte -32768 đến 32767 Long byte -2.147.483.648 đến 2.147.483.647 - Single byte -3,402823E38 đến –1,401298E-45 (các gía trị âm) 1,401298E-45 đến 3,402823E38 (các gía trị dương) -Double byte -1,79769E308 đến –4,94065E-324 (giá trị âm) 4,94065E-324 đến 1,79769E308 (giá trị dương) - Currency byte -922337203685477,5808 đến 922337203685477,5807 - Boolean byte True tới False - Date byte tháng năm 100 đến 31 tháng 12 năm 9999 ; Thời gian từ 0:00:00 đến 23:59:59: - String byte cho lên đến 231 ký tự ký tự - Variant 16 byte + Null, Error, kiểu số có giá trị khoảng byte cho Double hay nội dung text ký tự - Ký hiệu Exx phía sau số có nghĩa nhân với 10xx - Kiểu số nguyên dương (không chấp nhận số âm) gồm kiểu Byte - Kiểu số nguyên (chấp nhận số âm không chấp nhận phần lẻ thập phân) gồm kiểu :Integer, Long - Kiểu số thực gồm Single, Double, Currency - Kiểu Boolean gọi kiểu luận lý, chấp nhận hai giá trị True False sai - Kiểu String dùng để chứa giá trị chuỗi Một chuỗi ký tự có nhiều ký tự - - Khi viết giá trị chuỗi, ta phải bao hai đầu dấu nháy kép 19 - Kiểu ngày tháng (Date) để chứa giá trị thời gian Khi viết giá trị kiểu Date, ta viết theo kiểu ghi bao hai đầu dấu # Lệnh đóng chương trình: Me.Close() Lệnh thu nhỏ giao diện chương trình: WindowState = WindowState.Minimezed Cấu trúc tuyển If: Cú pháp : If Then … ‘Nếu biểu thức luận lý True … ‘thì thực đoạn lệnh End If Cú pháp : If Then … ‘Nếu biểu thức luận lý True … ‘thì thực đoạn lệnh Else … ‘Ngược lại biểu thức luận lý False … ‘thì thực đoạn lệnh End If Lệnh hiển thị bỏ hiển thị thành phần giao diện: Hiển thị thành phần: .Visible = true Bỏ hiển thị thành phần: .Visible = False 20 Câu lệnh mở kết nối với database: .Open() Câu lệnh đóng kết nối database: .Close() Câu lệnh bắt lỗi Try: Try catch End try CHƯƠNG IV KẾT LUẬN KẾT LUẬN CHUNG Tạo giao diện người sử dụng Giao diện người sử dụng có lẽ thành phần quan trọng ứng dụng Đối với người sử dụng, giao diện ứng dụng ; họ khơng cần ý đến thành phần mã thực thi bên Ứng dụng phổ biến hay không phụ thuộc vào giao diện Sử dụng điều khiển chuẩn Visual Basic 21 Ta dùng điều khiển để lấy thông tin mà người sử dụng nhập vào, để hiển thị kết xuất Những điều khiển mà ta dùng ứng dụng bao gồm hộp văn bản, nút lệnh, hộp danh sách,… Những điều khiển khác cho ta truy xuất ứng dụng khác, xử lý liệu thành phần mã ứng dụng bạn Lập trình với đối tượng Những đối tượng thành phần chủ yếu để lập tình Visual Basic Những đối tượng form, điều khiển hay sở liệu Lập trình với phần hợp thành Chúng ta đơi cần sử dụng khả tính tốn Microsoft Excel ứng dụng Visual Basic, hay định dạng tài liệu sử dụng công cụ định dạng Microsoft Word, lưu trữ xử lý liệu dùng Microsoft Jet… Tất điều thực cách xây dựng ứng dụng sử dụng thành phần ActiveX Thêm vào đó, Visual Basic giúp tạo điều khiển ActiveX riêng Đáp ứng kiện chuột bàn phím Những ứng dụng Visual Basic đáp ứng lượng lớn kiện chuột bàn phím Ví dụ form, hộp ảnh, điều khiển ảnh phát vị trí trỏ chuột, 22 định phím trái hay phím phải nhấn, đáp ứng tổ hợp phím chuột với phím Shift, Ctrl, hay Alt Sử dụng điều khiển phím, ta lập trình điều khiển form để đáp ứng hành động phím phiên dịch xử lý mã Ascii ký tự Thêm vào đó, ứng dụng Visual Basic hỗ trợ kiện rê thả tính rê thả OLE Làm việc với văn đồ họa Visual Basic cung cấp khả đồ họa văn phức tạp ứng dụng Những thuộc tính văn giúp ta nhấn mạnh khái niệm quan trọng chi tiết cần quan tâm Thêm vào đó, Visual Basic cung cấp khả đồ họa cho phép ta linh động thiết kế, bao hàm hình ảnh động cách hiển thị loạt hình ảnh liên tiếp Gỡ rối mã quản lý lỗi Đơi có lỗi xảy bên mã ứng dụng Những lỗi nghiêm trọng ngun nhân ứng dụng khơng đáp ứng lệnh, thông thường yêu cầu người sử dụng khởi động lại ứng dụng, khơng lưu lại ta làm Quá trình tìm sửa lỗi gọi gỡ rối Visual Basic cung cấp nhiều công cụ giúp phân tích ứng dụng làm việc Những công cụ gỡ rối đặt biệt hữu ích việc tìm 23 nguồn gốc lỗi, dùng cơng cụ để kiểm tra chương trình tìm hiểu ứng dụng khác làm việc Xử lý ổ đĩa, thư mục file Khi lập trình Windows, quan trọng để có khả thêm, di chuyển, tạo xóa thư mục file, lấy thông tin xử lý ổ đĩa Visual Basic cho phép xử lý ổ đĩa, thư mục file hai phương pháp : qua phương htức cũ điều lệnh Open, Write#, qua tập hợp công cụ FSO (File System Object) Thiết kế cho việc thi hành tính tương thích Visual Basic chia xẻ hầu hết tính ngơn ngữ Visual Basic cho ứng dụng, bao gồm Microsoft Office nhiều ứng dụng khác Visual Basic, VBScript, ngôn ngữ script Internet, tập hợp ngôn ngữ Visual Basic Phân phối ứng dụng Sau tạo ứng dụng Visual Basic, ta tự phân phối ứng dụng tạo Visual Basic đến dùng Microsoft Windows Ta phân phối ứng dụng đĩa, CD, qua mạng, intranet Internet 24 BẢN THÂN Qua mơn lập trình Visual Basic này,chúng em tạo cho riêng sản phẩm thực thơng qua lập trình, qua dễ dàng hiểu mối quan hệ cấu trúc, câu lệnh lập trình hành vi đối tượng thơng qua hình ảnh giao diện Bằng cách này, bọn em hiểu rõ rút nhiều kinh nghiệm với câu lệnh, cấu trúc, chương trình (liên quan đến lập trình trực quan) mà em giảng dạy sau 25 ... đến 25 5 (tức gán cho biến giá trị nhỏ lớn 25 5) - Integer byte - 327 68 đến 327 67 Long byte -2. 147.483.648 đến 2. 147.483.647 - Single byte -3,4 028 23E38 đến –1,40 129 8E-45 (các gía trị âm) 1,40 129 8E-45... đến 3,4 028 23E38 (các gía trị dương) -Double byte -1,79769E308 đến –4,94065E- 324 (giá trị âm) 4,94065E- 324 đến 1,79769E308 (giá trị dương) - Currency byte - 922 33 720 3685477,5808 đến 922 33 720 3685477,5807... 12 2.4: Lập trình code để giao diện tương tác truy vấn với sở liệu 14 Chương IV: KẾT LUẬN 1: Kết luận chung 20 2: Bản thân 23 CHƯƠNG I Quản lý sinh viên đề tài tập lớn