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