📄

📁 我的图书管理系统
💻
📖 第 1 页 / 共 3 页
字号:
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
        
   ELSE
   
     l_int=l_old
       
  END IF


END SUB

'==========================
SUB h1_CLICK()

   L_A="h"
   
   l_int=""
   
   L_INT=L_INT+L_A
      
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF


END SUB

'=========================
SUB i1_CLICK()

   L_A="i"
   
   l_int=""
   
   L_INT=L_INT+L_A
      
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF


END SUB

'=========================

SUB j1_CLICK()

   L_A="j"
   
   l_int=""
   
   L_INT=L_INT+L_A
      
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF


END SUB

'=========================


SUB k1_CLICK()

   L_A="k"
   
   l_int=""
   
   L_INT=L_INT+L_A
      
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF


END SUB

'=========================
SUB l1_CLICK()

   L_A="l"
   
   l_int=""
   
   L_INT=L_INT+L_A
      
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF


END SUB

'=========================

SUB m1_CLICK()

   L_A="m"
   
   l_int=""
   
   L_INT=L_INT+L_A
      
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF


END SUB

'=========================

SUB n1_CLICK()

   L_A="n"
   
   l_int=""
   
   L_INT=L_INT+L_A
      
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF


END SUB

'=========================
SUB o1_CLICK()

   L_A="o"
   
   l_int=""
   
   L_INT=L_INT+L_A
      
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF


END SUB

'=========================
SUB p1_CLICK()

   L_A="p"
   
   l_int=""
   
   L_INT=L_INT+L_A
      
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF


END SUB

'=========================
SUB q1_CLICK()

   L_A="q"
   
   l_int=""
   
   L_INT=L_INT+L_A
      
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF


END SUB

'=========================
SUB r1_CLICK()

   L_A="r"
   
   l_int=""
   
   L_INT=L_INT+L_A
      
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF


END SUB

'=========================
SUB s1_CLICK()

   L_A="s"
   
   l_int=""
   
   L_INT=L_INT+L_A
      
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF


END SUB

'=========================
SUB t1_CLICK()

   L_A="t"
   
   l_int=""
   
   L_INT=L_INT+L_A
      
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF


END SUB

'=========================
SUB u1_CLICK()

   L_A="u"
   
   l_int=""
   
   L_INT=L_INT+L_A
      
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF


END SUB

'=========================
SUB v1_CLICK()

   L_A="v"
   
   l_int=""
   
   L_INT=L_INT+L_A
      
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF


END SUB

'=========================
SUB w1_CLICK()

   L_A="w"
   
   l_int=""
   
   L_INT=L_INT+L_A
      
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF


END SUB

'=========================
SUB w1_CLICK()

   L_A="w"
   
   l_int=""
   
   L_INT=L_INT+L_A
      
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF


END SUB

'=========================
SUB x1_CLICK()

   L_A="x"
   
   l_int=""
   
   L_INT=L_INT+L_A
      
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -