Chinaunix首页 | 论坛 | 博客
  • 博客访问: 515049
  • 博文数量: 114
  • 博客积分: 5022
  • 博客等级: 大校
  • 技术积分: 1355
  • 用 户 组: 普通用户
  • 注册时间: 2006-08-09 18:01
文章分类

全部博文(114)

文章存档

2012年(1)

2011年(3)

2010年(1)

2009年(16)

2008年(23)

2007年(39)

2006年(31)

我的朋友

分类:

2006-09-08 19:08:48

'*********************************************************
'    detete 删除数据 
'*********************************************************
    Sub delete(filetype$,found%) 'found% 为行数
        select filetype$
              case  "instock"
                  Open "A:instock.Txt" as #2
                  Field #2,20 as tm$,5 as sl$,2 as czy$,12 as dttm$
                 
                  Open "A:intemp.Txt" as #8
                  Clfile #8
                  Field #8,20 as tm1$,5 as sl1$,2 as czy1$,12 as dttm1$
                 
                  i%=1
                  while i%                    If i%<>found% Then 
                      Get #2,i%
                      tm1$=tm$
                      sl1$=sl$
                      czy1$=czy$
                      dttm1$=dttm$
                      If i%>found%Then
                         Put #8,i%-1
                      Else
                         Put #8,i%
                      End If
                    End If
                    i%=i%+1
                  Wend  
                 
                  Clfile #2
                 
                  i%=1
                  while i%                      Get #8,i%
                      tm$=tm1$
                      sl$=sl1$
                      czy$=czy1$
                      dttm$=dttm1$
                      Put #2,i%
                    i%=i%+1
                  Wend 
                 
                  Close #8
                  Close #2  
                                
              case  "outstock"
                  Open "A:outstock.Txt" as #3
                  Field #3,20 as tm$,5 as sl$,10 as dj$,10 as je$,2 as czy$,12 as dttm$
                 
                  Open "A:outtemp.Txt" as #8
                  Clfile #8
                  Field #8,20 as tm1$,5 as sl1$,10 as dj1$,10 as je1$,2 as czy1$,12 as dttm1$
                 
                  i%=1
                  while i%                    If i%<>found% Then 
                      Get #3,i%
                     
                      tm1$=tm$
                      sl1$=sl$
                      dj1$=dj$
                      je1$=je$
                      czy1$=czy$
                      dttm1$=dttm$
                     
                      If i%>found%Then
                         Put #8,i%-1
                      Else
                         Put #8,i%
                      End If
                    End If
                    i%=i%+1
                  Wend  
                 
                  Clfile #3
                 
                  i%=1
                  while i%                      Get #8,i%
                      tm$=tm1$
                      sl$=sl1$
                      dj$=dj1$
                      je$=je1$
                      czy$=czy1$
                      dttm$=dttm1$
                    i%=i%+1
                  Wend 
                 
                  Close #8
                 
                  Close #3
                 
              case  "kcstock"
                  Open "A:kcstock.Txt" as #1
                  Field #1, 20 as tm$, 20 as mc$, 10 as dj$, 5 as qc$, 5 as rk$, 5 as ck$, 5 as jy$, 12 as dttm$
                 
                  Open "A:kctemp.Txt" as #8
                  Clfile #8
                  Field #8, 20 as tm1$, 20 as mc1$, 10 as dj1$, 5 as qc1$, 5 as rk1$, 5 as ck1$, 5 as jy1$, 12 as dttm1$
                 
                  i%=1
                  while i%                    If i%<>found% Then 
                      Get #1,i%
                      tm1$=tm$
                      mc1$=mc$
                      dj1$=dj$
                      qc1$=qc$
                      rk1$=rk$
                      ck1$=ck$
                      jy1$=jy$
                      dttm1$=dttm$
                      If i%>found%Then
                         Put #8,i%-1
                      Else
                         Put #8,i%
                      End If
                    End If
                    i%=i%+1
                  Wend  
                 
                  Clfile #1
                 
                  i%=1
                  while i%                      Get #8,i%
                      tm$=tm1$
                      mc$=mc1$
                      dj$=dj1$
                      qc$=qc1$
                      rk$=rk1$
                      ck$=ck1$
                      jy$=jy1$
                      dttm$=dttm1$
                       Put #1,i%
                    i%=i%+1
                  Wend 
                 
                  Close #8
                   
                  Close #1
             
        End Select
      
        while 1
            screen 1,0
            print
            Print "Function is OK !"
            print
            Print "按任意键退出"
            wait 0,1
            k$=Input$(1)
            Exit Sub
        Wend
    End Sub
'*****************************
'         main
'*****************************
MAIN:
       Cls
       Out &H6080,1 '0:standard-size;  1:the small-size 
       screen 1,0
       call delete("kcstock",4)
ERRCOMM:
 Cls
 Beep 8
 'Print "操作错误:"
 'Print
 'Print "按任意键退出";
 'Wait 0,1
 'k$=Input$(1)
 End
阅读(1697) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~