Thiết kế phần mềm quản lý thành viên

Phần mềm do em xây dựng nhằm cung cấp cho người học tiếng Anh một giải pháp ôn luyện thi trực tuyến. Sau hơn một năm nỗ lực scan hàng ngàn trang sách, tìm kiếm hàng ngàn file hình ảnh, sưu tập hàng trăm bài học video, chúng em đã phát triển được nội dung lớn sau, với số lượng lên đến gần 1000 câu bài tập các loại:

Báo Cáo Thực Tập Trịnh Lợi & Như Thông Trường Cao Đẳng Nghề Nha Trang Khoa Khoa học bản THỰC TẬP TỐT NGHIỆP Đề tài: Thiết kế phần mềm quản lý thành viên Giáo Viên Hướng Dẫn: Nguyễn Văn C Sinh Viên Báo Cáo: Nguyễn Văn A Báo Cáo Thực Tập Trịnh Lợi & Như Thông Lớp: CNTT-K1/3 Lời cám ơn Trong thời gian thực tập Công ty BESS GROUP từ website elearn.edu.vn, em có hội tiếp xúc học hỏi nhiều điều từ thành viên công ty Có hội thực hành tư vấn, gợi ý để viết báo cáo thiết kế phần mềm trắc nghiệm Tiếng Anh thông tin số sở liệu công ty Và em không quên cảm ơn thầy Tôn Thất Khiêm người đưa gợi ý, lời khuyên hướng dẫn em bước để viết nên cáo cáo quy định, em muốn cảm ơn bạn học chỗ thực tập em tìm hiểu, học hỏi nghiên cứu thiết kế phần mềm này, chắn có nhiều thiếu sót chương trình em thiếu nhiều kỹ kinh nghiệm Báo Cáo Thực Tập Trịnh Lợi & Như Thông Mục lục Chương 1:Ý tưởng…………………………………………………….4 1.1 Xây dựng…… ………………………………………………4 Chương 2: Thiết kế giao diện chương trình……………….5 2.1 Các nguyên tắc thiết kế giao diện ………….… 2.2 Các form giao diện ……………….….… 2.2.1 Giao diện đăng nhập …………….….…… 2.2.2 Giao diện chương trình……………….…………7 2.2.3 Giao diện quản lý thành viên…………….….…… 2.2.4 Giao diện sở liệu………………………………… 12 2.2.4.1 Cơ sở liệu thành viên………………… ……….12 2.2.5 Giao diện chức đăng nhập với quyền admin …… …12 2.2.6 Giao diện tạo tài khoản mới………………………….……14 2.2.7 Giao diện trắc nghiệm………………………………….….16 Báo Cáo Thực Tập Trịnh Lợi & Như Thông Lời mở đầu Phần mềm em xây dựng nhằm cung cấp cho người học tiếng Anh giải pháp ôn luyện thi trực tuyến Sau năm nỗ lực scan hàng ngàn trang sách, tìm kiếm hàng ngàn file hình ảnh, sưu tập hàng trăm học video, chúng em phát triển nội dung lớn sau, với số lượng lên đến gần 1000 câu tập loại: (i) Sách giáo khoa (tiếng Anh) từ lớp đến lớp 12 (ii) Ôn luyện thi: thi vào lớp 10, thi tốt nghiệp cấp thi đại học (iii) Luyện thi TOEIC: cung cấp tập ôn luyện thi chứng TOEIC Trong tương lai, chúng em tiếp tục phát triển sản phẩm khác nhằm đáp ứng tốt nhu cầu ôn luyện thi tiếng Anh: FCE…) Luyện thi IELTS, TOEFL chứng Cambridge (KET, PET, dựng… Tiếng Anh chuyên ngành: thương mại, du lịch, nhà hàng – khách sạn, xây Báo Cáo Thực Tập Trịnh Lợi & Như Thông THIẾT KẾ VISUAL BASIC Ưu điểm Visual Basic Là sản phẩm phần mềm Visual Studio Microsoft, có ưu điểm bật sau: Là ngôn ngữ lập tình đa sử dụng để phát triển phần mềm hoạt động môi trường Window hay chạy mạng Internet _Là kế thừa ngôn ngữ lập trình Basic trước với ưu điểm bật sau: Bao gồm đặc điểm ngôn ngữ Basic nên quen thuộc dễ sử dụng  Cung cấp nhiều công cụ điều khiển có sẵn để hỗ trợ lập trình viên, lập trình CSDL  Là ngôn ngữ lập trình có tính trực quan cao o Có cấu trúc logic chặt chẽ mức độ vừa phải  Rất dễ để học thành thạo _ Ngoài ra, Visual Basic 6.0 có số ưu điểm như:  Có khả thiết kế giao diện với người dùng đẹp dễ dàng sử dụng Chính lí nên lựa chọn sử dụng làm ngôn ngữ lập trình nhiều dự án Ý tưởng * Xây dựng phần mềm tiện ích kỳ thi làm thử * Có thể đăng ký đăng nhập tài khoản * Tạo giao diện đẹp mắt dễ sử dụng cho người dùng * Tạo đề thi thay đổi thứ tự câu hỏi 1.1 Xây dựng • Tạo giao diện ,viết code cho form : - Register - Login - Login Admin - Quản lý thành viên - Tạo test English - Kết nối với databases câu hỏi kết Báo Cáo Thực Tập Trịnh Lợi & Như Thông Thiết kế giao diện chương trình 2.1 Các nguyên tắc thiết kế giao diện Khi thiết kế giao diện người dùng ta phải ý đến nguyên tắc sau: Khuôn dạng hình nhập liệu phải thiết kế giống khuôn dạng tài liệu gốc Tránh bắt người sử dụng phải nhớ thông tin từ hình sang hình khác Nên nhóm trường thông tin hình theo trật tự có ý nghĩa, theo trật tự tự nhiên, theo tần số sử dụng, theo chức theo tầm quan trọng Không bắt người dùng phải nhập thông tin thứ sinh tức thông tin tính toán suy luận từ thông tin có Mỗi hình đưa phải có tên cụ thể Thể rõ cách thoát khỏi hình Lấy trục đứng trung tâm hình làm trục đưa Nếu đầu có nhiều trang hình phải đánh số thứ tự viết số trang Văn viết theo chuẩn ngữ pháp chung Các cột luôn tên đầu cột Sắp xếp theo trật tự quen thuộc Căn trái cho văn phải cho thông tin số Tự động cập nhật giá trị ngầm định Ví dụ thông tin ngày ghi sổ, số thứ tự hoá đơn Sử dụng tối đa màu trêm form chức tô màu nhấn mạnh trường thông tin quan trọng 2.2 Các form giao diện 2.2.1 Giao diện đăng nhập Chức năng: Form đăng nhập mở CSDL kết nối Để đăng nhập vào hệ thống, người sử dụng phải điền đầy đủ thông tin gồm Tên đăng nhập Mật tương ứng với quyền đăng nhập quản lý nhấn nút Login Chương trình kiểm tra thông tin nhập vào có xác hay không Nếu xác chương trình cho phép Báo Cáo Thực Tập Trịnh Lợi & Như Thông đăng nhập phân quyền sử dụng Nếu sai chương trình thông báo cho người dùng Source Button Login: Dim thanhvien As String = "Server= ADMINPC;Database=QLTV;Integrated Security=True" Dim As New SqlConnection(thanhvien) Dim cmd As New SqlCommand("SELECT username,password FROM Login WHERE username = '" + txtuser.Text + "' AND password = '" + txtpass.Text + "'", con) cmd.Parameters.AddWithValue("@Username", txtuser.Text) cmd.Parameters.AddWithValue("@Password", txtpass.Text) If txtuser.Text = String.Empty Then MessageBox.Show("Vui lòng nhập Username.", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error) ElseIf txtpass.Text = String.Empty Then MessageBox.Show("Vui lòng nhập password.", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error) Else Try con.Open() Dim reader As SqlDataReader = cmd.ExecuteReader If reader.HasRows = True Then reader.Read() MessageBox.Show("Đăng nhập thành công") game.Show() Me.Hide() Else MessageBox.Show("Đăng nhập thất bại." & Environment.NewLine & _ "Xem lại Username Password.", _ Báo Cáo Thực Tập Trịnh Lợi & Như Thông Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error) End If Catch ex As Exception MessageBox.Show("Lỗi Kết Nối.") MessageBox.Show(ex.ToString, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error) Finally con.Close() End Try End If *LƯU Ý: THAY SERVER = “” BẰNG TÊN SERVER SQL MÁY TRẠM 2.2.2 Giao diện chương trình Chức năng: Form mở bắt đầu mở chương trình tồn đóng chương trình Giao diện giao diện giao tiếp với người dùng, nơi mà người dùng gọi giao diện khác thực câu lệnh quan trọng Tại chọn On/Off để bắt đầu sử dụng chương trình theo ý muốn Báo Cáo Thực Tập Trịnh Lợi & Như Thông Source Button Continue: If rbPlayGame.Checked = False And rbadmin.Checked = False And rbregister.Checked = False Then MsgBox("Bạn Phải Chọn Chương Trình Để Tiếp Tục", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "Thông Báo Lỗi") ElseIf rbPlayGame.Checked = True Then Me.Hide() Login.Show() ElseIf rbadmin.Checked = True Then Me.Hide() AdminLogin.Show() ElseIf rbregister.Checked = True Then Me.Hide() Register.Show() End If 2.2.3 Giao diện quản lý thành viên chức năng: Đây giao diện để admin xem danh sách thành viên có tài khoản sử dụng phần mềm Tại đây, người dùng có quền tạo tài khoản, xóa tài khoản, thêm tài khoản người sử dụng khác chương trình Giao diện mở với tài khoản quyền admin Ở người quản lý phải điền đẩy đủ thông tin để thêm thành viên Khi sửa thành viên cần nhập vào username người sử dụng vào sửa thông tin bên Khi xóa nhập username người dùng cần muốn xóa,xem thành viên để tất thành viên có Cơ Sở Dữ Liệu Báo Cáo Thực Tập Trịnh Lợi & Như Thông Source Thêm Thành Viên: Private Sub add_Click(sender As Object, e As EventArgs) Handles add.Click Dim thanhvien As String = "Database=QLTV;Integrated Security=True" Dim connection As SqlConnection = New SqlConnection(thanhvien) connection.Open() Dim gioitinh As String If RB1.Checked = True Then gioitinh = "Nam" Else gioitinh = "Nữ " End If If connection.State = ConnectionState.Closed Then MessageBox.Show("Bạn bị lỗi cố trình đăng nhập") Else Dim chuoitruyvan As String chuoitruyvan = "insert into LOGIN values('" + username.Text + "','" + Password.Text + "','" + TxtUser.Text + "','" 10 Báo Cáo Thực Tập Trịnh Lợi & Như Thông + TxtNgaysinh.Text + "','" + TxtLop.Text + "','" + CB1.Text + "', '" & gioitinh & "')" Dim cmd As SqlCommand = New SqlCommand() cmd.Connection = connection cmd.CommandType = CommandType.Text cmd.CommandText = chuoitruyvan Try cmd.ExecuteNonQuery() MessageBox.Show("Thêm thành công") connection.Close() Catch ex As Exception MessageBox.Show("Thêm thất bại") If connection.State = ConnectionState.Executing Then MessageBox.Show("Mất kết nối") End If End Try End If End Sub Source Sửa Thành Viên: Private Sub edit_Click(sender As Object, e As EventArgs) Handles edit.Click Dim thanhvien As String = "Database=QLTV;Integrated Security=True" Dim connection As SqlConnection = New SqlConnection(thanhvien) connection.Open() Dim gioitinh As String If RB1.Checked = True Then gioitinh = "Nam" Else gioitinh = "Nữ " End If If connection.State = ConnectionState.Closed Then MessageBox.Show("Bạn bị lỗi cố trình đăng nhập") Else Dim chuoitruyvan As String 11 Báo Cáo Thực Tập Trịnh Lợi & Như Thông chuoitruyvan = " update LOGIN set Password='" + Password.Text + "',Ten='" + TxtUser.Text + "',NgaySinh='" + TxtNgaysinh.Text + "',Lop='" + TxtLop.Text + "',Khoa='" + CB1.Text + "',GioiTinh= '" & gioitinh & "' where Username='" + username.Text + "'" Dim cmd As SqlCommand = New SqlCommand() cmd.Connection = connection cmd.CommandType = CommandType.Text cmd.CommandText = chuoitruyvan Try cmd.ExecuteNonQuery() MessageBox.Show("Sửa thành công") connection.Close() Catch ex As Exception MessageBox.Show("Sửa thất bại") If connection.State = ConnectionState.Executing Then MessageBox.Show("Mất kết nối") End If End Try End If End Sub Source Xóa Thành Viên: Private Sub del_Click(sender As Object, e As EventArgs) Handles del.Click Dim thanhvien As String = "Server= ADMINPC;Database=QLTV;Integrated Security=True" Dim connection As SqlConnection = New SqlConnection(thanhvien) Dim cmd As SqlCommand = New SqlCommand() connection.Open() If connection.State = ConnectionState.Closed Then MessageBox.Show("Bạn bị lỗi cố trình đăng nhập") Else Dim chuoitruyvan As String chuoitruyvan = "delete from Login Where Username='" + username.Text + "'" cmd.Connection = connection cmd.CommandType = CommandType.Text cmd.CommandText = chuoitruyvan Try cmd.ExecuteNonQuery() MessageBox.Show("Xóa thành công") Catch ex As Exception MessageBox.Show("Xóa thất bại") 12 Báo Cáo Thực Tập Trịnh Lợi & Như Thông If connection.State = ConnectionState.Executing Then MessageBox.Show("Mất kết nối") End If End Try End If End Sub Source Xem Thành Viên: Private Sub xem_Click(sender As Object, e As EventArgs) Handles Xem.Click Dim thanhvien As String thanhvien = "Server= ADMINPC;Database=QLTV;Integrated Security=True" Dim chuoitruyvan As String chuoitruyvan = "select * from LOGIN" Dim xem As SqlDataAdapter = New SqlDataAdapter(chuoitruyvan, thanhvien) Dim table As DataTable = New DataTable() xem.Fill(table) DataGridView1.DataSource = table End Sub 2.2.4 Giao diện sở liệu 2.2.4.1 Cơ sở liệu thành viên 13 Báo Cáo Thực Tập Trịnh Lợi & Như Thông 2.2.5 Giao diện chức đăng nhập với quyền admin Nếu nhập sai lần chương trình tự động đóng *Lưu ý: Đường dẫn phải nhập xác với CSDL máy chủ, mật là: admin Source: If txtsource.Text = "" Or txtpass.Text = "" Then 14 Báo Cáo Thực Tập Trịnh Lợi & Như Thông MsgBox("Bạn Phải Điền Đầy Đủ Đường Dẫn Và Tên Cơ Sở Dữ Liệu Vào Nhé!", MsgBoxStyle.Exclamation, "Lỗi Kết Nối") Else Dim chuoiketnoi As String chuoiketnoi = "Server= '" + txtsource.Text + "';Database='" + txtname.Text + "';Integrated Security=True" Dim connection As SqlConnection connection = New SqlConnection(chuoiketnoi) Static Login As Integer If (txtpass.Text = "admin") Then Try connection.Open() MessageBox.Show("Kết Nối Thành Công") Admin.Show() Me.Hide() Catch ex As Exception MessageBox.Show("Kết Nối Thất Bại") End Try Else MsgBox("Mật Khẩu sai" & vbCrLf & "Bạn đăng nhập" & Login) Login = Login + End If If Login = Then MsgBox("Bạn Đã Cố Gắng Đăng Nhập Quá Lần") Me.Close() End If End If 2.2.6 Giao diện tạo tài khoản 15 Báo Cáo Thực Tập Trịnh Lợi & Như Thông Register cho phép người dùng đến trang register Đăng ký tài khoản với tên user pass riêng để sử dụng thường xuyên Source Đăng Ký: 16 Báo Cáo Thực Tập Trịnh Lợi & Như Thông Dim thanhvien As String = "Server= ADMINPC;Database=QLTV;Integrated Security=True" Dim connection As SqlConnection = New SqlConnection(thanhvien) connection.Open() Dim gioitinh As String If RB1.Checked = True Then gioitinh = "Nam" Else gioitinh = "Nữ " End If If connection.State = ConnectionState.Closed Then MessageBox.Show("Bạn bị lỗi cố trình đăng ký") Else Dim chuoitruyvan As String chuoitruyvan = "insert into LOGIN values('" + username.Text + "','" + Password.Text + "','" + TxtUser.Text + "','" + TxtNgaysinh.Text + "','" + TxtLop.Text + "','" + CB1.Text + "', '" & gioitinh & "')" Dim cmd As SqlCommand = New SqlCommand() cmd.Connection = connection cmd.CommandType = CommandType.Text cmd.CommandText = chuoitruyvan Try cmd.ExecuteNonQuery() connection.Close() Dim msg As MsgBoxResult msg = MsgBox("Đăng Ký Thành Công" & _ vbNewLine & "Bạn Có Muốn Đăng Nhập Vào Lúc Này?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Thông Báo") If msg = MsgBoxResult.Yes Then Login.Show() Me.Hide() End If Catch ex As Exception MessageBox.Show("Đăng ký thất bại") If connection.State = ConnectionState.Executing Then MessageBox.Show("Mất kết nối") End If End Try End If 2.2.7 Giao diện trắc nghiệm 17 Báo Cáo Thực Tập Trịnh Lợi & Như Thông Hệ thống tính thời gian phút, làm xong nhấn vào Nộp Bài Kết Quả để xem làm câu Với hệ thống câu hỏi phong phú giúp người kiểm tra lực Tiếng Anh đâu Hệ thống câu hỏi cập nhật thường xuyên để phù hợp với chương trình lớp lứa tuổi 18 Báo Cáo Thực Tập Trịnh Lợi & Như Thông *Lưu ý: Và phần mềm quản lý thành viên tốt nên có khả kết nối với nguồn sở liệu để người quản lý dể dàng thay sở liệu định kỳ, lưu sở liệu cũ Lý để tránh việc thời gian phần mềm bị lỗi ảnh hưởng đến hoạt động quản lý công ty, tránh việc nhiều liệu cũ phần mềm gây trở ngại việc tra cứu quản lý liệu "Better English, Better Choice" (tạm dịch: Tiếng Anh tốt hơn, Lựa chọn tốt hơn) hiệu website ôn luyện tiếng Anh trực tuyến http://elearn.edu.vn Website hình thành từ mong ước ba "chú ong" thuộc BEES Group 19 Báo Cáo Thực Tập Trịnh Lợi & Như Thông Kết luận Trong tiến trình hội nhập kinh tế giới nước ta nay, tin học hoá ngày đóng vai trò quan trọng trở thành xu phát triển tất yếu tổ chức Đặc biệt, học sinh, sinh viên Tiếng Anh thứ vô quan trọng Qua thời gian thực tập Công ty Bess Group, em tìm hiểu tiếp cận kiến thức kinh nghiệm bổ ích giúp em nhiều trình xây dựng đề tài Do thời gian lực hạn chế nên Phần mềm em xây dựng không tránh khỏi sai sót không đáp ứng hết yêu cầu thực tế đưa Song, có điều kiện tương lai em phát triển triển thêm để phần mềm hoàn thiện Em xin chân thành cảm ơn! Tài liệu tham khảo: http://caulacbovb.com/ 20 Báo Cáo Thực Tập Trịnh Lợi & Như Thông NHẬN XÉT CỦA GIÁO VIÊN HƯỚNG DẪN THỰC TẬP Họ tên sinh viên: Lớp: Chuyên ngành : Giáo viên hướng dẫn: Nhận xét: Nha Trang, ngày … tháng … năm ……… Giao viên hướng dẫn 21 [...]... có khả năng kết nối với nguồn cơ sở dữ liệu ngoài để người quản lý có thể dể dàng thay thế cơ sở dữ liệu mới định kỳ, và sao lưu cơ sở dữ liệu cũ Lý do là để tránh việc trong thời gian phần mềm bị lỗi ảnh hưởng đến hoạt động quản lý của công ty, và cũng tránh việc quá nhiều dữ liệu cũ trong phần mềm gây trở ngại trong việc tra cứu và quản lý dữ liệu mới "Better English, Better Choice" (tạm dịch: Tiếng... nhấn vào Nộp Bài và Kết Quả để xem mình làm đúng được bao nhiêu câu Với hệ thống câu hỏi phong phú giúp người kiểm tra được năng lực Tiếng Anh của mình đang ở đâu và như thế nào Hệ thống câu hỏi được cập nhật thường xuyên để phù hợp với chương trình ở mọi lớp và mọi lứa tuổi 18 Báo Cáo Thực Tập Trịnh Lợi & Như Thông *Lưu ý: Và một phần mềm quản lý thành viên tốt nhất nên có khả năng kết nối với nguồn... nên Phần mềm em xây dựng không tránh khỏi những sai sót và không đáp ứng hết các yêu cầu thực tế đưa ra Song, nếu có điều kiện trong tương lai em sẽ phát triển triển thêm để phần mềm hoàn thiện hơn Em xin chân thành cảm ơn! Tài liệu tham khảo: http://caulacbovb.com/ 20 Báo Cáo Thực Tập Trịnh Lợi & Như Thông NHẬN XÉT CỦA GIÁO VIÊN HƯỚNG DẪN THỰC TẬP Họ và tên sinh viên: Lớp: Chuyên ngành : Giáo viên. .. CommandType.Text cmd.CommandText = chuoitruyvan Try cmd.ExecuteNonQuery() MessageBox.Show("Thêm thành công") connection.Close() Catch ex As Exception MessageBox.Show("Thêm thất bại") If connection.State = ConnectionState.Executing Then MessageBox.Show("Mất kết nối") End If End Try End If End Sub Source Sửa Thành Viên: Private Sub edit_Click(sender As Object, e As EventArgs) Handles edit.Click Dim thanhvien... CommandType.Text cmd.CommandText = chuoitruyvan Try cmd.ExecuteNonQuery() MessageBox.Show("Sửa thành công") connection.Close() Catch ex As Exception MessageBox.Show("Sửa thất bại") If connection.State = ConnectionState.Executing Then MessageBox.Show("Mất kết nối") End If End Try End If End Sub Source Xóa Thành Viên: Private Sub del_Click(sender As Object, e As EventArgs) Handles del.Click Dim thanhvien... trực tuyến http://elearn.edu.vn Website này hình thành từ mong ước của ba "chú ong" thuộc BEES Group 19 Báo Cáo Thực Tập Trịnh Lợi & Như Thông Kết luận Trong tiến trình hội nhập nền kinh tế thế giới của nước ta hiện nay, tin học hoá ngày càng đóng vai trò quan trọng và trở thành xu thế phát triển tất yếu của mỗi tổ chức Đặc biệt, đối với các học sinh, sinh viên Tiếng Anh là thứ vô cùng quan trọng Qua thời... CommandType.Text cmd.CommandText = chuoitruyvan Try cmd.ExecuteNonQuery() MessageBox.Show("Xóa thành công") Catch ex As Exception MessageBox.Show("Xóa thất bại") 12 Báo Cáo Thực Tập Trịnh Lợi & Như Thông If connection.State = ConnectionState.Executing Then MessageBox.Show("Mất kết nối") End If End Try End If End Sub Source Xem Thành Viên: Private Sub xem_Click(sender As Object, e As EventArgs) Handles Xem.Click Dim... Nhé!", MsgBoxStyle.Exclamation, "Lỗi Kết Nối") Else Dim chuoiketnoi As String chuoiketnoi = "Server= '" + txtsource.Text + "';Database='" + txtname.Text + "';Integrated Security=True" Dim connection As SqlConnection connection = New SqlConnection(chuoiketnoi) Static Login As Integer If (txtpass.Text = "admin") Then Try connection.Open() MessageBox.Show("Kết Nối Thành Công") Admin.Show() Me.Hide() Catch... SqlDataAdapter = New SqlDataAdapter(chuoitruyvan, thanhvien) Dim table As DataTable = New DataTable() xem.Fill(table) DataGridView1.DataSource = table End Sub 2.2.4 Giao diện cơ sở dữ liệu 2.2.4.1 Cơ sở dữ liệu thành viên 13 Báo Cáo Thực Tập Trịnh Lợi & Như Thông 2.2.5 Giao diện chức năng đăng nhập với quyền admin Nếu nhập sai quá 3 lần thì chương trình sẽ tự động đóng *Lưu ý: Đường dẫn phải nhập chính xác với... msg As MsgBoxResult msg = MsgBox("Đăng Ký Thành Công" & _ vbNewLine & "Bạn Có Muốn Đăng Nhập Vào Lúc Này?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Thông Báo") If msg = MsgBoxResult.Yes Then Login.Show() Me.Hide() End If Catch ex As Exception MessageBox.Show("Đăng ký thất bại") If connection.State = ConnectionState.Executing Then MessageBox.Show("Mất kết nối") End If End Try End If 2.2.7 Giao ... Thông *Lưu ý: Và phần mềm quản lý thành viên tốt nên có khả kết nối với nguồn sở liệu để người quản lý dể dàng thay sở liệu định kỳ, lưu sở liệu cũ Lý để tránh việc thời gian phần mềm bị lỗi ảnh... - Quản lý thành viên - Tạo test English - Kết nối với databases câu hỏi kết Báo Cáo Thực Tập Trịnh Lợi & Như Thông Thiết kế giao diện chương trình 2.1 Các nguyên tắc thiết kế giao diện Khi thiết. .. người quản lý phải điền đẩy đủ thông tin để thêm thành viên Khi sửa thành viên cần nhập vào username người sử dụng vào sửa thông tin bên Khi xóa nhập username người dùng cần muốn xóa,xem thành viên