Private Sub CboLop_Change()

Dim St As String

Dim RsTim As New ADODB.Recordset

Dim Lv As ListItem

RsTim.LockType = adLockOptimistic

RsTim.CursorType = adOpenKeyset

St = "Select * from TblSinhvien where MaLop='" & Left(CboLop.Text, 2) & "'"

RsTim.Source = St

RsTim.ActiveConnection = FrmMain.Cn

RsTim.Open

If RsTim.RecordCount <> 0 Then

TxtMaSV.Text = RsTim!MaSV

TxtHoten.Text = RsTim!Hoten

TxtNgaysinh.Text = RsTim!Ngaysinh

TxtNoisinh.Text = RsTim!Noisinh

RsTim.MoveFirst

LVDS.ListItems.Clear

While Not RsTim.EOF

Set Lv = LVDS.ListItems.Add(, , RsTim!MaSV)

Lv.SubItems(1) = RsTim!Hoten

Lv.SubItems(2) = RsTim!Ngaysinh

Lv.SubItems(3) = RsTim!Noisinh

RsTim.MoveNext

Wend

Else

MsgBox "Kh«ng t×m thÊy th«ng tin", vbInformation, "Th«ng b¸o"

XoaForm

LVDS.ListItems.Clear

End If

End Sub

Private Sub XoaForm()

TxtMaSV.Text = ""

TxtHoten.Text = ""

TxtNgaysinh.Text = ""

TxtNoisinh.Text = ""

End Sub

Private Sub CboLop_Click()

Dim St As String

Dim RsTim As New ADODB.Recordset

Dim Lv As ListItem

RsTim.LockType = adLockOptimistic

RsTim.CursorType = adOpenKeyset

St = "Select * from TblSinhvien where MaLop='" & Left(CboLop.Text, 2) & "'"

RsTim.Source = St

RsTim.ActiveConnection = FrmMain.Cn

RsTim.Open

If RsTim.RecordCount <> 0 Then

TxtMaSV.Text = RsTim!MaSV

TxtHoten.Text = RsTim!Hoten

TxtNgaysinh.Text = RsTim!Ngaysinh

TxtNoisinh.Text = RsTim!Noisinh

RsTim.MoveFirst

LVDS.ListItems.Clear

While Not RsTim.EOF

Set Lv = LVDS.ListItems.Add(, , RsTim!MaSV)

Lv.SubItems(1) = RsTim!Hoten

Lv.SubItems(2) = RsTim!Ngaysinh

Lv.SubItems(3) = RsTim!Noisinh

RsTim.MoveNext

Wend

Else

MsgBox "Kh«ng t×m thÊy th«ng tin", vbInformation, "Th«ng b¸o"

XoaForm

LVDS.ListItems.Clear

End If

End Sub

Private Sub Form_Load()

HienthiLop

End Sub

Private Sub HienthiLop()

Dim RsLop As New ADODB.Recordset

RsLop.LockType = adLockOptimistic

RsLop.CursorType = adOpenKeyset

RsLop.Source = "Select * from TblLop"

RsLop.ActiveConnection = FrmMain.Cn

RsLop.Open

While Not RsLop.EOF

CboLop.AddItem RsLop!MaLop & " | " & RsLop!TenLop

RsLop.MoveNext

Wend

End Sub