删除文件记录(页 1) - VB6论坛

AV终结者 发表于 2008-3-19 15:56

删除文件记录

QQ：535843194
自己做了一个图书管理系统，遇到很多问题，都项办法解决
现在教菜鸟一招，有新方法删除记录的也可以提供代码，大家互相学习
Private Sub cmdDelete_Click()
  Dim int1 As Integer
  int1 = List1.ListIndex                         ’int1 为删除项，即为list1.listindex，对应记录号

  Open "info\bookNum.info" For Input As #6
  Input #6, intCountOfBook             ‘提取记录号
  Close #6

  If int1 > 0 Then                      ’如果不是第一项PS第一项为：图书编号图书名称

Open "info\temp.txt" For Output As #5          ‘建立文本准备记录删除后的信息
Close #5

Dim i As Integer
For i = 1 To int1 - 1                   ’提取待删除前面的记录
      Open "info\book.info" For Random As #1 Len = Len(book1)
      Get #1, i, book1
      Close #1
      Open "info\temp.txt" For Random As #3 Len = Len(book1)
      Put #3, i, book1
      Close #3
   Next i

      For j = int1 + 1 To intCountOfBook          ‘提取删除记录后的....
         Open "info\book.info" For Random As #2 Len = Len(book1)
         Get #2, j, book1
         Close #2
         Open "info\temp.txt" For Random As #4 Len = Len(book1)
         Put #4, j - 1, book1                   ‘！！！！注：此为j-1 记录号-1
         Close #4
      Next j

      Kill "info\book.info"                      删除原文本
      Name "info\temp.txt" As "info\book.info"       ’修改名称，注：.info为自创格式

      Open "info\bookNum.info" For Output As #8          '''
      Write #8, intCountOfBook - 1
      Close #8

      MsgBox "删除成功"
      cmdRefurbish_Click                         ‘刷新list1
End If
End Sub

adminis 发表于 2008-3-19 18:44

怎么我就没有看懂呢?

学习来的 发表于 2008-4-9 22:31

我也没看懂!!!也许对我来说深了点!!

wjj51888 发表于 2008-4-9 23:05

懂一点

raven 发表于 2008-5-19 18:57

to av终结者

写的麽妣啊！~！！！！！！！
看不懂啊~~~~~！！！！！！
哎，[tk04] 还是自己太嫩了！

hxfly 发表于 2008-5-19 19:53

就看出来了一大堆打开删除改名字....这个是干什么用的啊？

wangtuan7788 发表于 2008-5-20 09:32

没看出来你这是干什么的

jxyga111 发表于 2008-6-13 11:49

你這有意思不

ωéι骞 发表于 2008-6-19 01:03

好一些陌生的语言...
了解...
但不是很懂...

页: [1]