雪山飞狐ol:请问老师 怎样测定二个数据库的结构是否一致与否呢?

来源:百度文库 编辑:九乡新闻网 时间:2024/05/06 03:55:00
如何判断两个dbf文件的结构是否完全相同?
-------------------------------------------------------------- 
*判断 表1 和 表2 的结构是不是完全相同


CompareTableStructure('表1','表2')

FUNCTION CompareTableStructure
    LPARAMETERS lcTable1,lcTable2
    CLOSE DATABASES
    USE (lcTable1) IN 1
    lnFieldsSum1=AFIELDS(Stru1,1)
    USE (lcTable2) IN 2
    lnFieldsSum2=AFIELDS(Stru2,2)
    CLOSE DATABASES
    TF=0
    IF lnFieldsSum1!=lnFieldsSum2
        MESSAGEBOX("结构不相同!",64,'信息提示')
        RETURN
    ENDIF
    FOR I=1 TO lnFieldsSum1
        FOR J=1 TO 15
            IF Stru1(I,J)==Stru2(I,J)
                TF=0
            ELSE
                MESSAGEBOX("结构不相同!",64,'信息提示')
                TF=1
                EXIT
            ENDIF
        ENDFOR
        IF TF=1
            EXIT
        ENDIF
    ENDFOR
    IF TF=0
        MESSAGEBOX("结构相同!",64,'信息提示')
    ENDIF
ENDFUNC