自己做了一个图书管理系统,遇到很多问题,都项办法解决
现在教菜鸟一招,有新方法删除记录的也可以提供代码,大家互相学习
Private Sub cmdDelete_Click()
Dim int1 As Integer
int1 = List1.ListIndex ’int1 为删除项,即为list1.listindex,对应记录号
Open "infobookNum.info" For Input As #6
Input #6, intCountOfBook ‘提取记录号
Close #6
If int1 > 0 Then ’如果不是第一项photoshop/ target=_blank class=infotextkey>ps第一项为:图书编号 图书名称
Open "infotemp.txt" For Output As #5 ‘建立文本 准备记录删除后的信息
Close #5
Dim i As Integer
For i = 1 To int1 - 1 ’提取待删除前面的记录
Open "infobook.info" For Random As #1 Len = Len(book1)
Get #1, i, book1
Close #1
Open "infotemp.txt" For Random As #3 Len = Len(book1)
Put #3, i, book1
Close #3
Next i
For j = int1 + 1 To intCountOfBook ‘提取删除记录后的....
Open "infobook.info" For Random As #2 Len = Len(book1)
Get #2, j, book1
Close #2
Open "infotemp.txt" For Random As #4 Len = Len(book1)
Put #4, j - 1, book1 ‘!!!!注:此为j-1 记录号-1
Close #4
Next j
Kill "infobook.info" 删除原文本
Name "infotemp.txt" As "infobook.info" ’修改名称,注:.info为自创格式
Open "infobookNum.info" For Output As #8 '''
Write #8, intCountOfBook - 1
Close #8
MsgBox "删除成功"
cmdRefurbish_Click ‘刷新list1
End If
End Sub
"删除文件记录程序代码"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/VB/12394.html
关于《删除文件记录程序代码》文章的评论