visual fox Pro 数据库中采用的逻辑模型是

关系模型。

在关系模型中,数据的逻辑结构是一张二维表。在数据库中,满足下列条件的二维表称为关系模型，每一列中的分量是类型相同的数据，列的顺序可以是任意，行的顺序可以是任意的，表中的分量是不可再分割的最小数据项,即表中不允许有子表，表中的任意两行不能完全相同。

关系数据库采用关系模型作为数据的组织方式。关系数据库因其严格的数学理论、使用简单灵活、数据独立性强等特点，而被公认为最有前途的一种数据库管理系统。它的发展十分迅速,目前已成为占据主导地位的数据库管理系统，作为商品推出的数据库管理系统几乎都是关系型的,例如，Oracle，Sybase，Informix，Visual，FoxPro等。

使用copy命令将dbf保存为xls文件时最大只能导出6万5千条，如果想完整导出，可以使用如下办法。

（编程方式导出表中数据到XLS文件，灵活性高，导出记录的数量没有限制）

USE LSBOOK

lcFileName="C:\图书资料.XLS"

LOCAL lOldSetOpt,mChanNum &&下面语句判断EXCEL或要保存的EXCEL文件是否已经打开

lOldSetOpt = DDESetOption("SAFETY")

= DDESetOption("SAFETY",.F.)

**mChanNum = DDEInitiate('Excel','SYSTEM') &&EXCEL是否已经打开

mChanNum = DDEInitiate('Excel','&lcFileName') &&lcFileName某XLS文件名，如：D:\123.XLS

IF mChanNum <>-1

**= messagebox('程序 EXCEL 已经打开，请先将其关闭！',64,'系统提示！')

= messagebox('文件【'+lcFileName+'】已经打开，请先将其关闭！',64,'系统提示！')

= DDETerminate(mChanNum)

= DDESetOption("SAFETY",lOldSetOpt)

RETURN

ENDIF

IF FILE(lcFileName)

DELETE FILE &lcFileName

ENDIF

eole=CREATEOBJECT("Excel.application")

eole.Workbooks.add

eole.Worksheets("sheet1").Activate

*eole.visible=.t.

eole.cells(1,1)="书号"

eole.cells(1,2)="自编号"

eole.cells(1,3)="书名"

eole.cells(1,4)="作者"

eole.cells(1,5)="出版社"

eole.cells(1,6)="定价"

eole.cells(1,7)="折扣"

eole.cells(1,8)="出版年限"

SCAN

i=RECNO()

eole.cells(i+1,1)="'"+ALLTRIM(isbn)

eole.cells(i+1,2)=ALLTRIM(selfcode)

eole.cells(i+1,3)=ALLTRIM(booktitle)

eole.cells(i+1,4)=ALLTRIM(author)

eole.cells(i+1,5)=ALLTRIM(pubname)

eole.cells(i+1,6)=price

eole.cells(i+1,7)=IIF(Discount+M_ZK>1,1,Discount+M_ZK)

eole.cells(i+1,8)=IIF(ISNULL(PubDate),"",TTOD(Pubdate))

ENDSCAN

USE

eole.ActiveWorkbook.SaveAs(lcFileName)

eole.Workbooks.close

eole.quit

=MESSAGEBOX("已生成【"+lcFileName+"】文件！",0+64,"恭喜")

---