pretty_angel_9x

New Member
'Ghe tham projeck nhom phuongpiter nha ban !

Option Base 1

Dim danhsach() As String

Dim thutu As Integer

Dim duongdan As String

Dim datimkiem As Boolean

Dim timkiem() As String

Function CheckFile(sFileName As String, sDir As String) As Boolean


Dim sTmp As String


sTmp = Dir(sDir & "\" & sFileName)

If sTmp = sFileName Then

CheckFile = True

Else

CheckFile = False

End If

End Function

Private Sub cmdcapnhat_Click()

If List1.ListIndex < 0 Then

MsgBox ("Ban chua chon hoc sinh nao ca")

Exit Sub

End If

vitri = List1.ListIndex

danhsach(1, List1.ListIndex + 1) = txtmasv.Text

danhsach(2, List1.ListIndex + 1) = txttensv.Text

danhsach(3, List1.ListIndex + 1) = txtdiachi.Text

danhsach(4, List1.ListIndex + 1) = txtchinhtri.Text

danhsach(5, List1.ListIndex + 1) = txtpascal.Text

danhsach(6, List1.ListIndex + 1) = txttienganh.Text

Call cmdluu_Click

List1.Clear

Call Form_Load

End Sub

Private Sub cmdluu_Click()

Dim i As Integer

Dim n As Integer

Open duongdan For Output As #1

For i = 1 To thutu

For n = 1 To 100

Print #1, danhsach(n, i)

Next

Next

Close #1

MsgBox ("Da Luu Du Lieu Thanh Cong !")

List1.Clear

Call Form_Load

End Sub


Private Sub cmdreload_Click()

List1.Clear

Call Form_Load

End Sub


Private Sub cmdtatca_Click()

List1.Clear

Call Form_Load

End Sub


Private Sub cmdthem_Click()

If txttensv.Text = "" Then

MsgBox ("Ban chua nhap ho ten")

txttensv.SetFocus

Exit Sub

End If

If txtdiachi.Text = "" Then

MsgBox ("Ban chua nhap diachi")

txtdiachi.SetFocus

Exit Sub

End If

thutu = thutu + 1

ReDim Preserve danhsach(100, thutu)

danhsach(1, thutu) = txtmasv.Text

danhsach(2, thutu) = txttensv.Text

danhsach(3, thutu) = txtdiachi.Text

danhsach(4, thutu) = txtchinhtri.Text

danhsach(5, thutu) = txtpascal.Text

danhsach(6, thutu) = txttienganh.Text

List1.AddItem txtmasv.Text

txtmasv.Text = ""

txttensv.Text = ""

txtdiachi.Text = ""

txtchinhtri.Text = ""

txtpascal.Text = ""

txttienganh.Text = ""

txtmasv.SetFocus

Call cmdluu_Click

End Sub


Private Sub cmdthemmoi_Click()

txtmasv.Text = ""

txttensv.Text = ""

txtdiachi.Text = ""

txtchinhtri.Text = ""

txtpascal.Text = ""

txttienganh.Text = ""

txtmasv.SetFocus

End Sub


Private Sub cmdthoat_Click()

Unload Me

End Sub


Private Sub cmdxoa_Click()

If List1.ListCount = 0 Then

MsgBox ("het nguoi de xoa")

Exit Sub

End If

If List1.ListIndex < 0 Then

MsgBox ("chon di da,roi xoa")

Exit Sub

End If


If List1.ListCount = 1 Then

Open duongdan For Output As #1

Close #1

List1.Clear

Call Form_Load

Exit Sub

End If


Dim i As Integer

Dim j As Integer

vitri = List1.ListIndex

For i = List1.ListIndex + 1 To (thutu - 1)

For j = 1 To 7

danhsach(j, i) = danhsach(j, i + 1)

Next

Next

thutu = thutu - 1

List1.RemoveItem List1.ListIndex

If vitri > 0 Then

List1.Selected(vitri - 1) = True

End If

End Sub


Private Sub cmdtim_Click()

Dim i As Integer

Dim j As Integer

Dim n As Integer

ReDim timkiem(8, 1)

n = 1

tukhoa = txttimkiem.Text

For i = 1 To thutu

If LCase(danhsach(1, i)) = LCase(txttimkiem.Text) Then

If n <> 1 Then

n = n + 1

End If

For j = 1 To 7

timkiem(j, n) = danhsach(j, i)

Next

timkiem(8, n) = i

ReDim Preserve timkiem(8, n)

End If

Next

If n = 0 Then

MsgBox ("nhap sai thong tin,moi nhap lai")

Else

List1.Clear

For i = 1 To n

List1.AddItem timkiem(1, i)

Next

datimkiem = True

MsgBox ("thong tin dc tim thay: " & n & " Ket qua")

End If

End Sub


Private Sub Form_Load()

duongdan = "c:\data.txt"

If CheckFile("data.txt", "c:") = False Then

Open duongdan For Output As #2

Close #2

End If

datimkiem = False

ReDim danhsach(100, 1)

Open duongdan For Input As #1

n = 1

thutu = 1

Do While Not EOF(1)

Line Input #1, st

danhsach(n, thutu) = st

If n = 1 Then

List1.AddItem st

End If

If n = 100 Then

n = 0

thutu = thutu + 1

ReDim Preserve danhsach(100, thutu)

End If

n = n + 1

Loop

Close #1

thutu = thutu - 1

If List1.ListCount > 0 Then

List1.Selected(0) = True

End If

End Sub


Private Sub frmthongtin_DragDrop(Source As Control, X As Single, Y As Single)


End Sub


Private Sub Label2_Click()


End Sub


Private Sub List1_Click()

If datimkiem = False Then

txtmasv.Text = danhsach(1, List1.ListIndex + 1)

txttensv.Text = danhsach(2, List1.ListIndex + 1)

txtdiachi.Text = danhsach(3, List1.ListIndex + 1)

txtchinhtri.Text = danhsach(4, List1.ListIndex + 1)

txtpascal.Text = danhsach(5, List1.ListIndex + 1)

txttienganh.Text = danhsach(6, List1.ListIndex + 1)

Else

txtmasv.Text = danhsach(1, timkiem(8, List1.ListIndex + 1))

txttensv.Text = danhsach(2, timkiem(8, List1.ListIndex + 1))

txtdiachi.Text = danhsach(3, timkiem(8, List1.ListIndex + 1))

txtchinhtri.Text = danhsach(4, timkiem(8, List1.ListIndex + 1))

txtpascal.Text = danhsach(5, timkiem(8, List1.ListIndex + 1))

txttienganh.Text = danhsach(6, timkiem(8, List1.ListIndex + 1))

End If

End Sub



Private Sub txttimkiem_Change()

If Len(txttimkiem) > 0 Then

cmdtim.Enabled = True

Else

cmdtim.Enabled = False

End If

End Sub


Private Sub txttimkiem_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Call cmdtim_Click

End If

End Sub

-----------------

đây là code quản lý sinh viên của mình,mọi người xem và chỉnh sửa lại cho mình nút save,mình nhập ngày sinh nhưng nó không lưu lại dc,chỉnh sửa giúp mình nha
 

Các chủ đề có liên quan khác

Top