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:

Trường Cao Đẳng Nghề Nha Trang

Khoa Khoa học 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

Lớp: CNTT-K1/3

Lời cám ơn

Trong thời gian thực tập tại Công ty BESS GROUP từ website elearn.edu.vn, em đã có

cơ hội tiếp xúc và học hỏi được nhiều điều từ các thành viên trong công ty Có cơ hội thực hành và được tư vấn, gợi ý để có thể viết được bản báo cáo thiết kế phần mềm trắc nghiệm Tiếng Anh trên thông tin và 1 số cơ sở dữ liệu của công ty

Và em cũng không quên cảm ơn thầy Tôn Thất Khiêm là người đưa ra gợi ý, lời khuyên và hướng dẫn em các bước để viết nên một bài cáo cáo đúng quy định, em cũng muốn cảm ơn những bạn học cùng chỗ thực tập đã cùng em tìm hiểu, học hỏi và nghiên cứu thiết kế được phần mềm này, chắc chắn sẽ có nhiều thiếu sót trong chương

trình vì em vẫn còn thiếu nhiều kỹ năng và kinh nghiệm.

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ính của chương trình……….5

2.1 Các nguyên tắc khi thiết kế giao diện ………….… 5

2.2 Các form giao diện chính ……….….… 5

2.2.1 Giao diện đăng nhập ……….….…… 5

2.2.2 Giao diện chính của chương trình……….…………7

2.2.3 Giao diện quản lý thành viên……….….…… 8

2.2.4 Giao diện cơ sở dữ liệu……… 12

2.2.4.1 Cơ sở dữ liệu thành viên……… ……….12

2.2.5 Giao diện chức năng đă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

(i) Sách giáo khoa (tiếng Anh) từ lớp 6 đến lớp 12

(ii) Ôn luyện thi: thi vào lớp 10, thi tốt nghiệp cấp 3 và thi đại học

(iii) Luyện thi TOEIC: cung cấp các bài tập ôn luyện thi chứng chỉ TOEIC Trong tương lai, chúng em sẽ tiếp tục phát triển các sản phẩm khác nhằm đáp ứng tốt hơn nhu cầu ôn luyện thi tiếng Anh:

- Luyện thi IELTS, TOEFL và các chứng chỉ Cambridge (KET, PET,

FCE…)

- Tiếng Anh chuyên ngành: thương mại, du lịch, nhà hàng – khách sạn, xây dựng…

THIẾT KẾ VISUAL BASIC

Ưu điểm của Visual Basic

Là một sản phẩm trong bộ phần mềm Visual Studio của Microsoft, nó có những ưu điểm

nổi bật sau:

Là ngôn ngữ lập tình đa năng sử dụng để phát triển các phần mềm hoạt động trong môi trường Window hay chạy trên mạng Internet

_Là sự kế thừa ngôn ngữ lập trình Basic trước đây với những ưu điểm nổi bật sau:

Bao gồm mọi đặc điểm của ngôn ngữ Basic nên rất quen thuộc và 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, nhất là trong lập trình CSDL

 Là ngôn ngữ lập trình có tính trực quan rất cao o Có cấu trúc logic chặt chẽ ở mức

độ vừa phải

 Rất dễ để học và thành thạo

_ Ngoài ra, Visual Basic 6.0 còn có một số các ưu điểm như:

 Có khả năng thiết kế giao diện với người dùng đẹp và dễ dàng sử dụng Chính bởi những lí do đấy nên nó đã được lựa chọn sử dụng làm ngôn ngữ lập trình trong nhiều dự án

1 Ý tưởng

* Xây dựng một phần mềm tiện ích trong các kỳ thi cũng như trong khi làm thử

* Có thể đăng ký và đă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 bộ đề thi có thể thay đổi thứ tự các câu hỏi

- Tạo bài test English

- Kết nối với databases câu hỏi và kết quả

2 Thiết kế giao diện chính của chương trình

2.1 Các nguyên tắc khi thiết kế giao diện

Khi thiết kế giao diện người dùng ta phải chú ý đến các nguyên tắc cơ bản sau:

Khuôn dạng màn hình nhập liệu phải được thiết kế giống như khuôn dạng của tài liệu gốc Tránh bắt người sử dụng phải nhớ các thông tin từ màn hình này sang màn hình khác Nên nhóm các trường thông tin trên màn hình theo một trật tự có ý nghĩa, theo trật tự

tự nhiên, theo tần số sử dụng, theo chức năng hoặc theo tầm quan trọng

Không bắt người dùng phải nhập các thông tin thứ sinh tức là những thông tin có thể được tính toán hoặc suy luận từ các thông tin đã có

Mỗi màn hình đưa ra phải có tên cụ thể.

Thể hiện rõ cách thoát khỏi màn hình

Lấy trục đứng ở trung tâm màn hình làm trục chính đưa ra

Nếu một đầu ra có nhiều trang màn hình thì phải đánh số thứ tự và viết số trang Văn bản được viết theo chuẩn ngữ pháp chung

Các cột luôn luôn hiện tên đầu cột

Sắp xếp theo trật tự quen thuộc

Căn trái cho văn bản và căn phải cho các thông tin số

Tự động cập nhật các giá trị ngầm định nếu có thể Ví dụ như thông tin về ngày ghi

sổ, số thứ tự hoá đơn

Sử dụng tối đa là 3 màu trêm 1 form chức năng và chỉ tô màu nhấn mạnh những trường thông tin quan trọng

2.2.1 Giao diện đăng nhập

Chức năng: Form đăng nhập chỉ được mở khi CSDL đã được kết nối Để đăng nhập vào

hệ thống, người sử dụng phải điền đầy đủ các thông tin gồm Tên đăng nhập và Mật khẩu tương ứng với quyền đăng nhập quản lý của mình rồi nhấn nút Login Chương trình sẽ kiểm tra thông tin nhập vào có chính xác hay không Nếu chính xác thì chương trình sẽ cho phép

đăng nhập và phân quyền sử dụng Nếu sai chương trình sẽ thông báo cho người dùng

Source Button Login:

Dim thanhvien As String = "Server= ADMINPC;Database=QLTV;Integrated Security=True" Dim con 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

MessageBox Show( "Đăng nhập thất bại." & Environment NewLine & _

"Xem lại Username hoặc Password." , _

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,

Source Button Continue:

If rbPlayGame.Checked = False And rbadmin.Checked = False And

rbregister.Checked = False Then

MsgBox( "Bạn Phải Chọn 1 Chương Trình Để Tiếp Tục" ,

MsgBoxStyle Exclamation + MsgBoxStyle OkOnly, "Thông Báo Lỗi" )

ElseIf rbPlayGame.Checked = True Then

Ở đây 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 chỉ cần nhập vào username của người sử dụng vào sửa những thông tin bên dưới

Khi xóa nhập username người dùng cần muốn xóa,xem thành viên để hiện ra tất cả những thành viên có trong Cơ Sở Dữ Liệu

Source Thêm Thành Viên:

Private Sub add_Click(sender As Object, e As EventArgs) Handles

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 sự cố trong quá trình đăng nhập")

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()

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

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 sự cố trong quá trình đăng nhập")

Else

Dim chuoitruyvan As String

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 +

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 sự cố trong quá trình đăng nhập" ) Else

Dim chuoitruyvan As String

chuoitruyvan = "delete from Login Where Username='" + username.Text + "'"

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 cơ sở dữ liệu

2.2.4.1 Cơ sở dữ liệu thành viên

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 CSDL trên máy chủ, mật khẩu ở đây là: admin

Source:

If txtsource.Text = "" Or txtpass.Text = "" Then

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

Register cho phép người dùng mới đến trang register Đăng ký một tài khoản với tên user và pass của riêng mình để sử dụng thường xuyên.

Source Đăng Ký:

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 sự cố trong quá 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()

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")

Hệ thống sẽ tính thời gian trong 5 phút, khi đã làm xong 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

*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 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 Anh tốt hơn, Lựa chọn tốt hơn) là khẩu hiệu của website ôn luyện tiếng Anh 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.

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 gian thực tập tại Công ty Bess Group, em đã được tìm hiểu và tiếp cận những kiến thức và kinh nghiệm bổ ích đó đã giúp em rất nhiều trong quá trình xây dựng đề tài của mình

Do thời gian và năng lực còn hạn chế 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/

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 hướng dẫn:

Nhận xét:

Nha Trang, ngày … tháng … năm ……….

Giao viên hướng dẫn