(Tiểu luận) báo cáo đồ án visual basic quản lý cửa hàng máy tính (vb net)

TRƯỜNG ĐẠI HỌC KINH DOANH VÀ CÔNG NGHỆ HÀ NỘI KHOA CÔNG NGHỆ THÔNG TIN BÁO CÁO ĐỒ ÁN VISUAL BASIC Quản Lý Cửa Hàng Máy Tính (VB.net) Sinh viên thực hiện: ……………………………… Mã sinh viên: ……………………………………… Lớp: ………………………………………………… Hà Nội Mục Lục Phần 1: Tổng quan VB lí chọn đề tài 1.1 Sơ lược lịch sử VB.NET 1.2 Sơ lược Visual Basic.NET 1.3 Sơ lược NET 1.3.1 NET Servers 1.3.2 NET Framework Phần 2: Thiết kế phần mềm 2.1 Thiết Kế CSDL 2.2 Thiết Kế Giao Diện 2.3 Thiết Kế Chức Năng Phần I Tổng quan VB.net lý chon đề tài quản lý cửa hàng máy tính 1.1 Sơ lược lịch sử VB.NET Ngôn ngữ BASIC (Beginner's All Purpose Symbolic Instruction Code) có từ năm 1964 BASIC dễ học dễ dùng Trong vòng 15 năm đầu, có nhiều chuyên gia Tin Học cơng ty tạo chương trình thơng dịch (Interpreters) biên dịch (Compilers) cho ngôn ngữ làm BASIC trở nên phổ thông Năm 1975, Microsft tung thị trường sản phẩm đầu tay Microsoft BASIC tiếp Quick BASIC (cịn gọi QBASIC) thành cơng rực rỡ Quick BASIC phát triển Windows khó khăn tạo giao diện kiểu Windows Sau nhiều năm, Microsoft bắt đầu tung sản phẩm cho phép ta kết hợp ngôn ngữ dễ học BASIC mơi trường phát triển lập trình với giao diện hình ảnh (Graphic User Interface - GUI) Windows Đó Visual Basic Version 1.0 Sự chào đời Visual Basic Version 1.0 vào năm 1991 thật thay đổi mặt lập trình Cơng Nghệ Tin Học Trước đó, ta khơng có giao diện hình ảnh (GUI) với IDE (Integrated Development Environment) giúp chun gia lập trình tập trung cơng sức gìờ vào khó khăn liên hệ đến doanh nghiệp Mỗi người phải tự thiết kế giao diện qua thư viện có sẵn Windows API (Application Programming Interface) Windows Điều tạo trở ngại khơng cần thiết làm phức tạp việc lập trình Visual Basic giúp ta bỏ qua hệ lụy đó, chuyên gia lập trình tự vẽ cho giao diện cần thiết ứng dụng (application) cách dễ dàng vậy, tập trung nổ lực giải đáp vần đề cần giải doanh nghiệp hay kỹ thuật Ngồi ra, cịn nhiều cơng ty phụ phát triển thêm khuôn mẫu (modules), công cụ (tools, controls) hay ứng dụng (application) phụ giúp hình thức VBX cộng thêm vào giao diện lúc thêm phong phú Khi Visual Basic phiên 3.0 giới thiệu, giới lập trình lại thay đổi lần Kỳ này, ta thiết kế ứng dụng (application) liên hệ đến Cơ Sở Dữ Liệu (Database) trực tiếp tác động (interact) đến người dùng qua DAO (Data Access Object) Ứng dụng thưòng gọi ứng dụng tiền diện (front-end application) hay trực diện Phiên 4.0 5.0 mở rộng khả VB nhắm đến Hệ Điều Hành Windows 95 Phiên 6.0 cung ứng phương pháp nối với Cơ Sở Dữ Liệu (Database) qua kết hợp ADO (Active Data Object) ADO giúp chuyên gia phát triển mạng nối với Cơ Sở Dữ Liệu (Database) dùng Active Server Pages (ASP) Lưu ý đây, tất khái niệm công dụng Modules, Tools, Controls, DAO, ADO hay ASP từ từ trình bày học kế Tuy nhiên, VB phiên 6.0 (VB6) không cung ứng tất đặc trưng kiểu mẫu ngơn ngữ lập trình khuynh hướng đối tượng (Object Oriented Language - OOL) ngôn ngữ C++, Java Thay cải thiện hay vá víu thêm thắc vào VB phiên 6.0, Microsoft xoá bỏ tất làm lại từ đầu ngơn ngữ lập trình theo kiểu OOL hùng mạnh cho khuôn NET Framework Đó ngơn ngữ lập trình Visual Basic.NET C# (gọi C Sharp) Sau đó, nhiều ngơn ngữ lập trình khác thay đổi theo tỷ smalltalk.NET, COBOL.NET, làm Công Nghệ Tin Học trở nên phong phú hơn, đa dạng Tất thay đổi nhằm đáp ứng kịp thời đòi hỏi nhu cầu phát triển cấp bách kỹ nghệ 1.2 Sơ lược Visual Basic.NET Visual Basic.NET (VB.NET) ngơn ngữ lập trình khuynh hướng đối tượng (Object Oriented Programming Language) Microsoft thiết kế lại từ số không Visual Basic.NET (VB.NET) không kế thừa VB6 hay bổ sung, phát triển từ VB6 mà ngơn ngữ lập trình hồn tồn Microsoft 's NET Framework Do đó, khơng phải VB phiên Thật sự, ngôn ngữ lập trình lợi hại, khơng lập tảng vững theo kiểu mẫu đối tượng ngơn ngữ lập trình hùng mạnh khác vang danh C++, Java mà dễ học, dễ phát triển cịn tạo hội hồn hảo để giúp ta giải đáp vấn đề khúc mắc lập trình Hơn nữa, dù khơng khó khăn cần tham khảo, học hỏi hay đào sâu xảy bên hậu trường OS, Visual Basic.NET (VB.NET) giúp ta đối phó với phức tạp lập trình Windows đó, ta tập trung công sức vào vấn đề liên quan đến dự án, công việc hay doanh nghiệp mà Trong khóa học này, bạn bắt đầu làm quen với kiểu lập trình dùng Visual Basic.NET (VB.NET) dĩ nhiên, khái niệm thành phần NET Framework Nếu ta để ý tên Visual Basic.NET (VB.NET), ta thấy ngơn ngữ lập trình chuyên trị tạo ứng dụng (application) dùng mạng, liên mạng hay Internet Tuy nhiên, học ngơn ngữ lập trình nào, ta cần 'tập trước tập chạy' Do đó, ta tập trung vào việc lập trình ứng dụng (applications) Windows mục tiêu yếu khóa học Visual Basic.NET 1.3 Sơ lược NET NET tầng trung gian ứng dụng (applications) hệ điều hành (OS) Tầng NET cung cấp dịch vụ giúp ta tạo cơng dụng mà ứng dụng (application) địi hỏi, giống hệ điều hành cung cấp dịch vụ cho ứng dụng (application), tỷ như: đọc hay viết tập tin (files) vào dĩa cứng (hard drive), Tầng bao gồm ứng dụng (application) hệ điều hành gọi NET Servers Như vậy, NET gần sưu tập (collection) nhu liệu khái niệm kết hợp trộn lẫn làm việc nhằm tạo giải đáp vấn đề liên quan đến thương nghiệp ta Trong đó: * Tập hợp đối tượng (objects) gọi NET Framework * Tập hợp dịch vụ yểm trợ ngơn ngữ lập trình NET gọi Common Laguage Runtime (CLR) Hãy quan sát thành phần NET: User Applications NET Framework NET Servers NET Devices Hardware Components 1.3.1 NET Servers Mục tiêu NET giúp ta giảm thiểu tối đa công việc thiết kế hệ thống tin học phân tán (distributed system) Đa số cơng việc lập trình phức tạp địi hỏi thực hậu phương (back end) máy cung cấp dịch vụ (servers) Microsoft đáp ứng với sưu tập '.NET Enterprise Servers', chuyên trị yểm trợ đặc tính (features) hậu phương cần có cho hệ thống tin học phân tán (distributed system) Bộ sưu tập '.NET Enterprise Servers' bao gồm: * Server Operationg Systems: MS Windows Server, Advanced Server Data Center Server * Clustering Load Balancing Systems: MS Application Center, MS Cluster Server * Database System: MS SQL Server (SQL đọc sư cô, không, 'si cồ') * E-Mail System: MS Exchange Server * Data-transformation engine sở XML: MS Biz Talk Server * Accessing Legacy Systems: Host Integration Server Tất máy server cung cấp dịch vụ cần thiết cho ứng dụng (application) NET tảng xây dựng hệ thống Tin Học cho dự án lập trình 1.3.2 NET Framework Đối với Visual Basic.NET (VB.NET), tất thứ thay đổi tận gốc rễ Một thành phần quan trọng NET NET Framework Đây tảng cho công cụ phát triển ứng dụng (application) NET NET Framework bao gồm: * Môi trường vận hành (Base Runtime Environment) * Bộ sưu tập loại đối tượng (a set of foundation classes) Môi trường vận hành (Base Runtime Environment) hoạt động giống hệ điều hành cung cấp dịch vụ trung gian ứng dụng (application) thành phần phức tạp hệ thống Bộ sưu tập loại đối tượng (a set of foundation classes) bao gồm số lớn công dụng soạn kiểm tra trước, tỷ như: giao lưu với hệ thống tập tin (file system access) hay quy ước mạng (Internet protocols), nhằm giảm thiểu gánh nặng lập trình cho chuyên gia Tin Học Do đó, việc tìm hiểu NET Framework giúp ta lập trình dễ dàng công dụng yểm trợ Ta xem NET Framework tầng công dụng trừu tượng cung cấp dịch vụ hệ điều hành (nhìn khía cạnh cung cấp dịch vụ): User Applications NET Framework Hệ điều hành (OS) Device Drivers Harware Components (Cương liệu) Để ngơn ngữ lập trình sử dụng dịch vụ cung cấp NET Framework, Microsoft tạo tiêu chuẩn chung cho ngơn ngữ lập trình gọi Common Language Specifications (CLS) Tiêu chuẩn giúp chương trình biên dịch (compilers) làm việc hữu hiệu Microsoft sáng chế Visual Basic.NET (VB.NET), Visual C++.NET C# (đọc C Sharp) cho NET Framework không quên phổ biến rộng rãi CLS Công Nghệ Tin Học giúp ngơn ngữ lập trình khác làm việc NET, tỷ như: COBOL.NET, Smalltalk.NET, Lý chọn đề tài quản lý cửa hàng máy tính Vì đề tài thân thuộc với đời sống Phần 2: Thiết Kế Phần Mềm 2.1 Thiết kế CSDL - Cơ sở liệu thiết kế MS SQL Server Management để thuân tiện cho việc quản lý, thêm sửa liệu với vb.net - CSDL gồm bảng bao gồm: Bảng DangNhap để đăng nhập vào phần mềm : Mã Đăng Nhập : MaDN Mật Khẩu: MatKhau Bảng QL_NhanVien để quản lý nhân viên cửa hàng: Mã Nhân Viên: MaNV Tên Nhân Viên: TenNV Giới Tính: GioiTinh Địa Chỉ: DiaChi Số điện thoại: SDT Lương: Luong Bảng QL_KhachHang Mã Khách Hàng: MaKH Mã Hàng: MaHang Tên Khách Hàng: TenKhachHang SĐT: SDT Giới Tính: GioiTinh Địa Chỉ: DiaChi Bảng QL_HoaDonChiTiet Mã Hóa Đơn: MaHD Mã Khách Hàng: MaKH Mã Hàng: MaHang Tên Hàng: TenHang Số Lượng : SoLuong Đơn Giá: DonGia Tổng Tiền: TongTien Bảng QL_HangHoa Mã Hàng: MaHang Tên Hàng: TenHang Số Lượng Nhập: SoLuongNhap Đơn Giá: DonGia Xuất Sứ: XuatSu Relationship 2.2 Thiết Kế Giao Diện Giao Diện Demo Gồm Form Form Đăng Nhập Form Menu Form Quản Lý Khách Hang 10 Form Quản Lý Hàng Hóa 1 Form Quản Lý Bán Hàng 12 Form Quản Lý Nhân Viên 13 14 2.3 Thiết Kế Chức Năng Mỗi Form thiết kế chức Thêm,Sửa,Xóa,Tìm kiếm, Thoát form(các form thực nhau) Khai Báo Private _DBAccess As New DataBaseAccess Private _isLoading As Boolean = False Private _isEdit As Boolean = False Public Sub New(isEdit As Boolean) InitializeComponent() _isEdit = isEdit End Sub Chức Năng Thêm - Code Hàm - Private Function ThemKH() As Boolean Dim sqlQuery As String = "INSERT INTO QL_KhachHang (MaKH, TenKhachHang, SDT, - GioiTinh, DiaChi)" sqlQuery += String.Format("VALUES ('{0}','{1}','{2}','{3}','{4}')", _ - txtmakh.Text, txttenkh.Text, txtsdt.Text, txtgioitinh.Text, txtdiachi.Text) Return _DBAccess.ExecuteNoneQuery(sqlQuery) End Function - Code Tác vụ click Private Sub cmdthem_Click(sender As Object, e As EventArgs) Handles cmdthem.Click Dim frm As New frmQLKhachHang(False) If isEmpty() Then MessageBox.Show("nhap gia tri trc ghi vao database", "Error", MessageBoxButtons.OK) Else 'kiem tra truong du lieu thuc hien them/sua' If _isEdit Then ' neu la edit thi goi ham update ' If UpdateKH() Then MessageBox.Show("sửa liệu thành công", "Thong Tin", MessageBoxButtons.OK) Me.DialogResult = Windows.Forms.DialogResult.OK Else MessageBox.Show("Sua Bi loi ", "Error", MessageBoxButtons.OK) Me.DialogResult = Windows.Forms.DialogResult.No End If Else If ThemKH() Then ' neu la them thi goi ham insert ' - - - - MessageBox.Show("Dữ liệu thêm thành công", "Thông Báo", MessageBoxButtons.OK) Me.DialogResult = Windows.Forms.DialogResult.Yes Else MessageBox.Show("Lỗi Thêm Dữ liệu", "Error", MessageBoxButtons.OK) Me.DialogResult = Windows.Forms.DialogResult.No Me.Close() End If 15 - End If End If If frm.DialogResult = Windows.Forms.DialogResult.OK Then Me.LoadDataOnGridView() End If End Sub Chức tìm kiếm theo combobox ( cần nhập thứ cần tìm ko cần click) Private Sub TimKiem1(value As String, ByVal value2 As String) Dim sqlQuery As String = _ String.Format("SELECT * FROM dbo.QL_NhanVIen") If Me.cmbtimkiem.SelectedIndex = Then 'Tim theo Student ID sqlQuery += String.Format(" WHERE MaNV LIKE '{0}%'", value2) ElseIf Me.cmbtimkiem.SelectedIndex = Then 'Tim theo Student Name sqlQuery += String.Format(" WHERE TenNV LIKE '{0}%'", value2) ElseIf Me.cmbtimkiem.SelectedIndex = Then sqlQuery += String.Format(" WHERE GioiTinh LIKE '{0}%'", value2) End If Dim dTable As DataTable = _DBAccess.GetDataTable(sqlQuery) Me.datavnv.DataSource = dTable 'Load Lai dl vao bang With Me.datavnv Columns(0).HeaderText = "Mã Nhân Viên" Columns(1).HeaderText = "Tên Nhân Viên" Columns(2).HeaderText = "Giới Tính" Columns(3).HeaderText = "Địa Chỉ" Columns(4).HeaderText = "Số Điện Thoại" Columns(5).HeaderText = "Lương" End With End Sub Chức sửa - Code Hàm Private Function UpdateKH() As Boolean Dim sqlQuery As String = String.Format("UPDATE QL_KhachHang Set TenKhachHang='{0}', SDT='{1}', GioiTinh='{2}',DiaChi='{3}' Where MaKH='{4}'", Me.txttenkh.Text, Me.txtsdt.Text, Me.txtgioitinh.Text, Me.txtdiachi.Text, Me.txtmakh.Text) Return _DBAccess.ExecuteNoneQuery(sqlQuery) End Function - code đầy đủ tác vụ click Private Sub cmdsua_Click(sender As Object, e As EventArgs) Handles cmdsua.Click Dim frm As New frmQLKhachHang(True) frm.txtmakh.ReadOnly = True 'Chi cho doc, truong khong cho phep thay doi sua du lieu With Me.datavqlkh frm.txtmakh.Text = Rows(.CurrentCell.RowIndex).Cells("MaKH").Value frm.txttenkh.Text = Rows(.CurrentCell.RowIndex).Cells("TenKhachHang").Value frm.txtsdt.Text = Rows(.CurrentCell.RowIndex).Cells("SDT").Value frm.txtgioitinh.Text = Rows(.CurrentCell.RowIndex).Cells("GioiTinh").Value frm.txtdiachi.Text = Rows(.CurrentCell.RowIndex).Cells("DiaChi").Value End With frm.ShowDialog() If frm.DialogResult = Windows.Forms.DialogResult.OK Then 'Sua du lieu cong thi load lai du lieu vao gridview Me.LoadDataOnGridView() End If End Sub 16 Chức xóa code đầy đủ tác vụ click Private Sub cmdxoa_Click(sender As Object, e As EventArgs) Handles cmdxoa.Click Dim MaKH As String = Me.datavqlkh.Rows(Me.datavqlkh.CurrentCell.RowIndex).Cells("MaKH").Value MaKH) 'Khai bao cau lenh Query de xoa Dim sqlQuery As String = String.Format("DELETE QL_NhanVIen WHERE MaKH = '{0}'", 'Thuc hien xoa If _DBAccess.ExecuteNoneQuery(sqlQuery) Then 'Xoa cong thi thong bao MessageBox.Show("Da xoa du lieu cong!") 'Load lai du lieu tren Gridview Me.LoadDataOnGridView() Else MessageBox.Show("Loi xoa du lieu!") End If End Sub Thoát Form Ngồi Cịn có chức đăng nhập vào CSDL form đăng nhập 1- Khai Báo Imports System.Configuration Imports System.Data.SqlClient Private _ConnectionString As String = ConfigurationSettings.AppSettings("MyConnectionString") Private connect As SqlConnection Private datab As SqlDataAdapter 'Dinh nghia ham lay du lieu vao table' Private Function getDataTable(sqlQuery As String) As DataTable Dim dTable As New DataTable 'khoi tao bien connect va database' connect = New SqlConnection(_ConnectionString) datab = New SqlDataAdapter(sqlQuery, connect) Try 'Mo connection' connect.Open() 'do du lieu vao datat' datab.Fill(dTable) Catch ex As Exception MessageBox.Show(ex.Message, "Loi Dang Nhap") Finally connect.Close() 'Dong Connection' End Try Return dTable End Function 2- Code hàm kiểm tra user pass có csdl hay ko Private Function CheckLogin(user As String, pass As String) Dim sqlQuery As String = String.Format("select * from dbo.DangNhap where [MaDN]= '{0}' and [MatKhau] = '{1}'", user, pass) Dim dTable1 As DataTable = getDataTable(sqlQuery) 17 Return dTable1.Rows.Count > End Function 3- Code tác vụ click 'Kiem tra ten dn va mat khau co nhap ko' If isEmpty() Then MessageBox.Show("ten dang nhap va mat khau ko dc de trong") Else If CheckLogin(Me.txttendangnhap.Text.ToLower, Me.txtmatkhau.Text.ToLower) Then Me.DialogResult = Windows.Forms.DialogResult.OK MessageBox.Show("Dang Nhap Thanh Cong") Me.Close() Else Me.DialogResult = Windows.Forms.DialogResult.Cancel MessageBox.Show("Sai Ten Dang Nhap Hoac Mat khau") End If End If -The End- 18