分类检索.mb

mabasic 经典使用案例。主要关于菜单建立

Run Application w0$+ZC$+".wor" 
Commit Table ZC$ As "操作表.TAB" TYPE NATIVE Charset "WindowsSimpChinese"
Open Table w$+"操作表.TAB" 
SELECT COUNT(*) FROM 操作表
INTO LIT_QUERY       
fetch rec 1 from LIT_QUERY
N=LIT_QUERY.col(1)
Note "系统向您报告：全市共有"+N+"个单位进行了"+ZC$
M1$="" 
FOR I=1 TO CN
    fetch rec I from 操作表
    D1$(I)=操作表.COL(CN)     '读取字段
    M1$=M1$+";"+D1$(I)
next
R=LEN (M1$)
M1$=MID$(M1$,2,R-1)
N1=CN
Call 对话框                  '选取检索字段
R1=R0
IF R0=0 THEN GOTO C09 END IF
R=1 
fetch rec 1 from 操作表
D2$(1)=操作表.COL(R0)
FOR I=2 TO N                '检索字段中的不同类型
    fetch rec I from 操作表
    O$=操作表.COL(R0)
    FOR J=1 TO R
    IF O$=D2$(J) THEN
   GOTO D05 
    END IF
NEXT
R=R+1
D2$(J)=O$
D05:NEXT 
M1$=""
FOR I=2 TO R
   M1$=M1$+";"+D2$(I)
 NEXT N1=R
   R=LEN (M1$)
   M1$=MID$(M1$,2,R-1)
   Call 对话框 R0=R0+1
   IF R0=0 THEN Call R00 GOTO C09 END IF
Note "您选择了"+D2$(R0)+"的所有取水登记单位,请您观察右下角的消息框,检索结果在那里,可以放大的全屏幕观察"
CLS PRINT "以下是"+D2$(R0)+"的检索结果"
R=1
FOR I=1 TO N
    fetch rec I from 操作表
    O$=操作表.COL(R1)
    IF D2$(R0)=O$ THEN 
   P$=操作表.COL(1)
       S$=操作表.COL(3)
       PRINT D2$(R0)+"   "+R+"      "+S$+P$
       R=R+1 
    END IF
 NEXT
 PRINT D2$(R0)+"共有取水单位"+(R-1)+"个"+ZC$+"取水单位"
 CLOSE TABLE 操作表