Private Sub btnsua_ClickByVal sender As System.Object, ByVal e As System.EventArgs Handles btnsua.Click str = "update hosothisinhduthi set hoten=@hoten, hokhau=@hokhau, noihocptth=@noih
Trang 1Họ và tên: Nguyễn Thị Thúy.
Lớp: Mạng Máy Tính-k55
Msv:1021050212
Đề tài: Chương trình quản lý thi đại học.
I.THIẾT KẾ CƠ SỞ DỮ LIỆU
Nguyễn Thị Thúy_Mạng Máy Tính K55
Trang 2Bài tập lớn môn Hệ Quản Trị Cơ Sở Dữ
Liệu. 2
Trang 3Nguyễn Thị Thúy_Mạng Máy Tính K55
Trang 4Bài tập lớn môn Hệ Quản Trị Cơ Sở Dữ
Liệu. 4
Trang 5Nguyễn Thị Thúy_Mạng Máy Tính K55
Trang 6Bài tập lớn môn Hệ Quản Trị Cơ Sở Dữ
Liệu. 6
Trang 7Nguyễn Thị Thúy_Mạng Máy Tính K55
Trang 8Bài tập lớn môn Hệ Quản Trị Cơ Sở Dữ
Liệu. 8
Trang 9Nguyễn Thị Thúy_Mạng Máy Tính K55
Trang 10Bài tập lớn môn Hệ Quản Trị Cơ Sở Dữ
Liệu. 10
Trang 11Nguyễn Thị Thúy_Mạng Máy Tính K55
Trang 12Bài tập lớn môn Hệ Quản Trị Cơ Sở Dữ
Liệu. 12
Trang 13Nguyễn Thị Thúy_Mạng Máy Tính K55
Trang 14Bài tập lớn môn Hệ Quản Trị Cơ Sở Dữ
Liệu. 14
Trang 15Nguyễn Thị Thúy_Mạng Máy Tính K55
Trang 16Bài tập lớn môn Hệ Quản Trị Cơ Sở Dữ
Liệu. 16
Trang 17Nguyễn Thị Thúy_Mạng Máy Tính K55
Trang 18Bài tập lớn môn Hệ Quản Trị Cơ Sở Dữ
Liệu. 18
Trang 19Nguyễn Thị Thúy_Mạng Máy Tính K55
Trang 20Bài tập lớn môn Hệ Quản Trị Cơ Sở Dữ
Liệu. 20
Trang 21II.HIỂN THỊ DỮ LIỆU LÊN TRÊN FORM VÀ XUẤT BÁO CÁO
Giao diện của chương trình.
-Đoạn code cho Form chương trình quản lý thi đại học.
Public Class main1
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles ToolStripButton1.Click
Form1.Show()
End Sub
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles ToolStripButton2.Click
Form2.Show()
End Sub
Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles ToolStripButton3.Click
Nguyễn Thị Thúy_Mạng Máy Tính K55
Trang 22Bài tập lớn môn Hệ Quản Trị Cơ Sở Dữ
Liệu. 22
Form3.Show()
End Sub
Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles ToolStripButton4.Click
Form4.Show()
End Sub
Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles ToolStripButton5.Click
Form5.Show()
End Sub
Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles ToolStripButton6.Click
Form6.Show()
End Sub
Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles ToolStripButton7.Click
Form7.Show()
End Sub
Private Sub ToolStripButton8_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles ToolStripButton8.Click
Form8.Show()
End Sub
Private Sub ToolStripButton9_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles ToolStripButton9.Click
Form9.Show()
End Sub
Private Sub ToolStripButton10_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles ToolStripButton10.Click
Trang 23- Kích chuột vào nút IN BC trên Form DANH SÁCH THÍ SINH DỰ THI thì bảng báo cáo repost hiển thị.
-Làm tương tự với mục kết quả.
- Mục hồ sơ thí sinh.
Nguyễn Thị Thúy_Mạng Máy Tính K55
Trang 24Bài tập lớn môn Hệ Quản Trị Cơ Sở Dữ
Liệu. 24
-Mục địa điểm thi
-Mục khối thi.
Trang 25-Mục khối_môn.
-Mục môn thi.
Nguyễn Thị Thúy_Mạng Máy Tính K55
Trang 26Bài tập lớn môn Hệ Quản Trị Cơ Sở Dữ
Liệu. 26
-Mục ngành_khối.
-Mục ngành thi.
Trang 27-Mục phòng thi.
Chi tiết hiển thị từng FORM.
Nguyễn Thị Thúy_Mạng Máy Tính K55
Trang 28Bài tập lớn môn Hệ Quản Trị Cơ Sở Dữ
Liệu. 28
1 Bảng Hồ sơ thí sinh Dự thi.
a Hiển thị dữ liệu lên trên form.
Imports System.Data
Imports System.Data.SqlClient
Public Class Form3
#Region "cac khai bao chung"
Dim myconnstring As String = "server=thuytoe-pc\sqlexpress;" &
"database=QuanLi_thidaihoc;user id=sa;password=22121992"
Dim conn As New SqlConnection(myconnstring)
Dim myadapter As New SqlDataAdapter
Dim dsQuanLi_thidaihoc As DataSet
Dim myselectcommand As New SqlCommand
Dim str As String
Public Sub Connect()
conn = New SqlConnection(myconnstring)
conn.Open()
End Sub
#End Region
Private Sub btnthem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnthem.Click
str = "insert into hosothisinhduthi values(@sbd, @hoten, @noihocptth,
@phong, @ngsinh, @nganh, @khoi, @hokhau,@diadiemthi)"
Dim cmd As SqlCommand
Trang 29conn = New SqlConnection(myconnstring)
conn.Open()
cmd = New SqlCommand(str, conn)
cmd.Parameters.Add("@sbd", SqlDbType.NVarChar, 50).Value = txtsbd.Text cmd.Parameters.Add("@hoten", SqlDbType.NVarChar, 50).Value =
Dim da As New SqlDataAdapter(cmd)
Dim kq As Boolean = cmd.ExecuteNonQuery()
Private Sub dgview_CellContentClick(ByVal sender As System.Object, ByVal e
As System.Windows.Forms DataGridViewCellEventArgs) Handles dgview
Private Sub btnsua_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnsua.Click
str = "update hosothisinhduthi set hoten=@hoten, hokhau=@hokhau, noihocptth=@noihocptth, Ngaysinh=@ngsinh, nganh=@nganh,
Diadiemthi=@diadiemthi,phong=@phong,khoi=@khoi where sbd=@sbd"
Dim cmd As SqlCommand
conn = New SqlConnection(myconnstring)
conn.Open()
cmd = New SqlCommand(str, conn)
cmd.Parameters.Add("@sbd", SqlDbType.NVarChar, 50).Value = txtsbd.Text cmd.Parameters.Add("@hoten", SqlDbType.NVarChar, 50).Value =
txthoten.Text
Nguyễn Thị Thúy_Mạng Máy Tính K55
Trang 30Bài tập lớn môn Hệ Quản Trị Cơ Sở Dữ
Dim da As New SqlDataAdapter(cmd)
Dim kq As Boolean = cmd.ExecuteNonQuery()
Private Sub btnxoa_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnxoa.Click
str = "delete from hosothisinhduthi where sbd=@sbd"
Dim cmd As SqlCommand
conn = New SqlConnection(myconnstring)
conn.Open()
cmd = New SqlCommand(str, conn)
cmd.Parameters.Add("@sbd", SqlDbType.NVarChar, 50).Value = txtsbd.Text Dim da As New SqlDataAdapter(cmd)
Dim kq As Boolean = cmd.ExecuteNonQuery()
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
myselectcommand.CommandText = "select*from hosothisinhduthi"
conn = New SqlConnection(myconnstring)
Trang 31Private Sub btnthoat_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnthoat.Click
Close()
End Sub
Private Sub btnbaocao_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnbaocao.Click
Dim myreport As New rptrepost3
b.Xuất báo cáo
Tạo form hiển thị.
Thiết kế repost.
Nguyễn Thị Thúy_Mạng Máy Tính K55
Trang 32Bài tập lớn môn Hệ Quản Trị Cơ Sở Dữ
Liệu. 32
Bảng Repost
Trang 33 Đoạn Code hiển thị báo cáo :
Private Sub btnbaocao_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnbaocao.Click
Dim myreport As New rptrepost3
a.Hiển thị dữ liệu lên trên Form.
Nguyễn Thị Thúy_Mạng Máy Tính K55
Trang 34Bài tập lớn môn Hệ Quản Trị Cơ Sở Dữ
Liệu. 34
Imports System.Data
Imports System.Data.SqlClient
Public Class Form5
#Region "cac khai bao chung"
Dim myconnstring As String = "server=thuytoe-pc\sqlexpress;" &
"database=QuanLi_thidaihoc;user id=sa;password=22121992"
Dim conn As New SqlConnection(myconnstring)
Dim myadapter As New SqlDataAdapter
Dim dsQuanLi_thidaihoc As DataSet
Dim myselectcommand As New SqlCommand
Dim str As String
Public Sub Connect()
conn = New SqlConnection(myconnstring)
conn.Open()
End Sub
#End Region
Private Sub btnsua_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnsua.Click
str = "update khoithi set tenkhoi=@tenkhoi where makhoi=@makhoi"
Dim cmd As SqlCommand
conn = New SqlConnection(myconnstring)
conn.Open()
cmd = New SqlCommand(str, conn)
cmd.Parameters.Add("@makhoi", SqlDbType.NVarChar, 50).Value =
txtmakhoi.Text
cmd.Parameters.Add("@tenkhoi", SqlDbType.NVarChar, 50).Value = txttenkhoi.Text
Dim da As New SqlDataAdapter(cmd)
Dim kq As Boolean = cmd.ExecuteNonQuery()
Trang 35Private Sub btnthem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnthem.Click
str = "insert into khoithi values(@tenkhoi,@makhoi)"
Dim cmd As SqlCommand
conn = New SqlConnection(myconnstring)
conn.Open()
cmd = New SqlCommand(str, conn)
cmd.Parameters.Add("@makhoi", SqlDbType.NVarChar, 50).Value =
txtmakhoi.Text
cmd.Parameters.Add("@tenkhoi", SqlDbType.NVarChar, 50).Value =
txttenkhoi.Text
Dim da As New SqlDataAdapter(cmd)
Dim kq As Boolean = cmd.ExecuteNonQuery()
Private Sub btnthoat_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnthoat.Click
Close()
End Sub
Private Sub dgview_CellContentClick(ByVal sender As System.Object, ByVal e
As System.Windows.Forms DataGridViewCellEventArgs) Handles dgview
CellContentClick
txtmakhoi.Text = dgview.CurrentRow.Cells(0).Value
txttenkhoi.Text = dgview.CurrentRow.Cells(1).Value
End Sub
Private Sub btnxoa_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnxoa.Click
str = "delete from khoithi where makhoi=@makhoi"
Dim cmd As SqlCommand
conn = New SqlConnection(myconnstring)
conn.Open()
cmd = New SqlCommand(str, conn)
cmd.Parameters.Add("@makhoi", SqlDbType.NVarChar, 50).Value =
txtmakhoi.Text
Dim da As New SqlDataAdapter(cmd)
Dim kq As Boolean = cmd.ExecuteNonQuery()
If kq = True Then
MsgBox("Dữ liệu đã được cập nhật", vbInformation, "Thông báo")
Nguyễn Thị Thúy_Mạng Máy Tính K55
Trang 36Bài tập lớn môn Hệ Quản Trị Cơ Sở Dữ
Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
myselectcommand.CommandText = "select*from khoithi"
conn = New SqlConnection(myconnstring)
Private Sub btnin_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnin.Click
Dim myreport As New rptrepost5
Trang 37-Đoạn code báo cáo:
Private Sub btnin_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnin.Click
Dim myreport As New rptrepost5
a.Hiển thị dữ liệu lên trên Form.
Nguyễn Thị Thúy_Mạng Máy Tính K55
Trang 38Bài tập lớn môn Hệ Quản Trị Cơ Sở Dữ
Liệu. 38
Imports System.Data.SqlClient
Public Class Form7
#Region "cac khai bao chung"
Dim myconnstring As String = "server=thuytoe-pc\sqlexpress;" &
"database=QuanLi_thidaihoc;user id=sa;password=22121992"
Dim conn As New SqlConnection(myconnstring)
Dim myadapter As New SqlDataAdapter
Dim dsQuanLi_thidaihoc As DataSet
Dim myselectcommand As New SqlCommand
Dim str As String
Public Sub Connect()
conn = New SqlConnection(myConnString)
conn.Open()
End Sub
#End Region
Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
myselectcommand.CommandText = "select*from monthi"
conn = New SqlConnection(myconnstring)
Trang 39Private Sub btnthem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnthem.Click
str = "insert into monthi values(@mamonthi,@tenmonthi)"
Dim cmd As SqlCommand
conn = New SqlConnection(myconnstring)
conn.Open()
cmd = New SqlCommand(str, conn)
cmd.Parameters.Add("@mamonthi", SqlDbType.NVarChar, 50).Value =
txtmamonthi.Text
cmd.Parameters.Add("@tenmonthi", SqlDbType.NVarChar, 50).Value = txttenmonthi.Text
Dim da As New SqlDataAdapter(cmd)
Dim kq As Boolean = cmd.ExecuteNonQuery()
Private Sub btnthoat_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnthoat.Click
Close()
End Sub
Private Sub dgview_CellContentClick(ByVal sender As System.Object, ByVal e
As System.Windows.Forms DataGridViewCellEventArgs) Handles dgview
CellContentClick
txtmamonthi.Text = dgview.CurrentRow.Cells(0).Value
txttenmonthi.Text = dgview.CurrentRow.Cells(1).Value
End Sub
Private Sub btnsua_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnsua.Click
str = "update monthi set tenmonthi=@tenmonthi where
mamonthi=@mamonthi"
Dim cmd As SqlCommand
conn = New SqlConnection(myconnstring)
conn.Open()
cmd = New SqlCommand(str, conn)
cmd.Parameters.Add("@mamonthi", SqlDbType.NVarChar, 50).Value =
txtmamonthi.Text
cmd.Parameters.Add("@tenmonthi", SqlDbType.NVarChar, 50).Value = txttenmonthi.Text
Dim da As New SqlDataAdapter(cmd)
Dim kq As Boolean = cmd.ExecuteNonQuery()
Private Sub btnxoa_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnxoa.Click
str = "delete from monthi where mamonthi=@mamonthi"
Nguyễn Thị Thúy_Mạng Máy Tính K55
Trang 40Bài tập lớn môn Hệ Quản Trị Cơ Sở Dữ
Liệu. 40
Dim cmd As SqlCommand
conn = New SqlConnection(myconnstring)
conn.Open()
cmd = New SqlCommand(str, conn)
cmd.Parameters.Add("@mamonthi", SqlDbType.NVarChar, 50).Value = txtmamonthi.Text
Dim da As New SqlDataAdapter(cmd)
Dim kq As Boolean = cmd.ExecuteNonQuery()
Private Sub btnin_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnin.Click
Dim myreport As New rptrepost7
Trang 41-Đoạn code báo cáo:
Private Sub btnin_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnin.Click
Dim myreport As New rptrepost7
Public Class Form9
#Region "cac khai bao chung"
Nguyễn Thị Thúy_Mạng Máy Tính K55
Trang 42Bài tập lớn môn Hệ Quản Trị Cơ Sở Dữ
Liệu. 42
Dim myconnstring As String = "server=thuytoe-pc\sqlexpress;" &
"database=QuanLi_thidaihoc;user id=sa;password=22121992"
Dim conn As New SqlConnection(myconnstring)
Dim myadapter As New SqlDataAdapter
Dim dsQuanLi_thidaihoc As DataSet
Dim myselectcommand As New SqlCommand
Dim str As String
Dim byt As Byte
Public Sub Connect()
conn = New SqlConnection(myConnString)
conn.Open()
End Sub
#End Region
Private Sub Form9_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
myselectcommand.CommandText = "select*from nganhthi"
conn = New SqlConnection(myconnstring)
Private Sub btnthem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnthem.Click
str = "insert into nganhthi values(@manganh,@tennganh,@chitieu)"
Dim cmd As SqlCommand
conn = New SqlConnection(myconnstring)
conn.Open()
cmd = New SqlCommand(str, conn)
cmd.Parameters.Add("@manganh", SqlDbType.NVarChar, 50).Value =
Dim da As New SqlDataAdapter(cmd)
Dim kq As Boolean = cmd.ExecuteNonQuery()
Private Sub btnthoat_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnthoat.Click
Close()
End Sub
Private Sub dgview_CellContentClick(ByVal sender As System.Object, ByVal e
As System.Windows.Forms DataGridViewCellEventArgs) Handles dgview
CellContentClick
