Trang Chính
Giới tính
Tổng số bài gửi
Birthday
Join date
Age
Đến từ
Job/hobbiesVisual Basic
Dạng 1: Quản lý sinh viên
Đóng góp: Duy Phước
Lưu ý: chỉ tham khảo, không chịu trách nhiệm nội dung ^^
Download tại đây (đăng ký mới download được): [You must be registered and logged in to see this link.]
*Hướng dẫn download: click link => trang mới xuất hiện => tại trang mới, nhấn ctrl + S tải về
Dạng 1: Quản lý sinh viên
Đóng góp: Duy Phước
Lưu ý: chỉ tham khảo, không chịu trách nhiệm nội dung ^^
Download tại đây (đăng ký mới download được): [You must be registered and logged in to see this link.]
*Hướng dẫn download: click link => trang mới xuất hiện => tại trang mới, nhấn ctrl + S tải về
- Code:
Private Sub cmdcuoi_Click(Index As Integer)
Adodc1.Recordset.MoveLast
End Sub
Private Sub cmddau_Click(Index As Integer)
Adodc1.Recordset.MoveFirst
End Sub
Private Sub cmdlui_Click(Index As Integer)
If Not Adodc1.Recordset.BOF() Then
Adodc1.Recordset.MovePrevious
Else
Adodc1.Recordset.MoveLast
End If
End Sub
Private Sub cmdluu_Click()
Adodc1.Recordset.Update
For Each c In frmsv
If TypeOf c Is TextBox Then
c.Locked = True
End If
Next
cmdthem.Enabled = True
cmdluu.Enabled = False
cmdsua.Enabled = True
cmdxoa.Enabled = True
cmdthoat.Enabled = True
End Sub
Private Sub cmdsua_Click()
For Each c In frmsv
If TypeOf c Is TextBox Then
c.Locked = False
End If
Next
cmdthem.Enabled = False
cmdluu.Enabled = True
cmdsua.Enabled = False
cmdxoa.Enabled = False
cmdthoat.Enabled = True
End Sub
Private Sub cmdthem_Click()
Adodc1.Recordset.AddNew
For Each c In frmsv
If TypeOf c Is TextBox Then
c.Locked = False
End If
Next
cmdthem.Enabled = False
cmdluu.Enabled = True
cmdsua.Enabled = False
cmdxoa.Enabled = False
cmdthoat.Enabled = True
End Sub
Private Sub cmdthoat_Click()
End
End Sub
Private Sub cmdtoi_Click(Index As Integer)
If Not Adodc1.Recordset.EOF() Then
Adodc1.Recordset.MoveNext
Else
Adodc1.Recordset.MoveFirst
End If
End Sub
Private Sub cmdxoa_Click()
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.Delete
End If
If Adodc1.Recordset.RecordCount > 0 Then
cmdsua.Enabled = True
cmdxoa.Enabled = True
Else
cmdsua.Enabled = False
cmdxoa.Enabled = False
End If
End Sub
Private Sub Form_Load()
Dim c As Control
For Each c In frmsv
If TypeOf c Is TextBox Then
c.Locked = True
End If
Next
cmdthem.Enabled = True
cmdluu.Enabled = True
cmdsua.Enabled = True
cmdxoa.Enabled = True
cmdthoat.Enabled = True
dgrsv.Enabled = True
End Sub
Được sửa bởi hieunp ngày 26/9/2012, 2:46 pm; sửa lần 3.
