VF编程:第04章数据库操作教程

版权申诉
0 下载量 193 浏览量 更新于2024-07-03 收藏 564KB PPT 举报
VF程序设计课程的第04章深入探讨了数据库管理的相关内容。本章主要分为两个部分:数据库的创建和数据库表的设计与操作。 首先,数据库的创建是学习的核心,通过交互方式实现。用户可以通过"文件"菜单中的"新建"选项,选择"数据库"文件类型,输入数据库名称,如创建名为XSCJ的数据库。在"新建"对话框中确认后,会进入"创建"对话框。此外,还介绍了使用命令行操作数据库的方法,包括CREATEDATABASE用于创建数据库、OPENDATABASE打开数据库、MODIFYDATABASE修改数据库以及CLOSEDATABASE关闭数据库。例如,通过`CREATEDATABASE XSCJ`命令创建数据库,随后使用`OPENDATABASE XSCJ`打开它,再用`MODIFYDATABASE XSCJ`进行设计和修改。 接下来,章节转向数据库表的创建。在VF中,可以通过"数据库"菜单的"新建表"选项或者"数据库设计"工具栏来创建新的表。有两种方式可供选择:一是使用"表向导",自动从已有的表中选取字段;二是通过"新建表"功能,自定义表的文件名和位置。VF的表设计器提供了直观的界面,尽管某些高级字段属性操作可能受到限制。创建表之后,可以使用`ADDTABLE`命令添加新表,如`ADDTABLE xs`、`ADDTABLE kc`等。删除表则可以通过`DELETETABLE`命令,且可以选择是否将被删除的表文件放入回收站。 在整个过程中,数据库表的增减操作是非常重要的实践环节,通过这些操作,用户可以构建和管理复杂的数据库结构,以支持应用程序的数据存储需求。学习数据库管理不仅是理解基本的命令和界面操作,更是掌握如何根据实际应用设计和维护数据模型的关键技能。 VF程序设计的第04章数据库内容涵盖了从基础的数据库创建到高级的表设计与操作,对于理解和应用VF在数据库管理方面的功能具有重要意义。熟练掌握这部分知识,能够帮助开发人员有效地组织和处理大量数据,提高工作效率。

Fortran程序: parameter(pi=3.1415926535) real kn real,allocatable :: vs(:,:),vf(:,:) a=1234.; n0=7; ny=100; u0=1. b=a/float(n0); ds=b/float(ny); nx=n0*ny errs=1.e-6; errf=1.e-6 allocate(vs(0:nx,0:ny),vf(0:nx,0:ny)) vs=0.; vs(1:nx-1,ny)=u0; vf=vs !---------------------------------------------------------- open(1,file='nvs.dat') do i=1,nx-1; x=float(i)*ds do j=1,ny-1; y=float(j)*ds err=1.; nc=0 do while(err.gt.errs) fnc=2.*float(nc)+1.; kn=pi*fnc/a t=sin(kn*x)*(1.-exp(-2.*kn*y))/(fnc*(exp(kn*(b-y))-exp(-kn*(b+y)))) err=abs(t) vs(i,j)=vs(i,j)+t nc=nc+1 enddo write(1,*) x,y,nc vs(i,j)=vs(i,j)*(4.*u0/pi) enddo enddo close(1) open(1,file='vs.dat') do i=0,nx; x=float(i)*ds do j=0,ny; y=float(j)*ds write(1,*) x,y,vs(i,j) enddo enddo close(1) !---------------------------------------------------------- err=1. do while(err.gt.errf) do i=1,nx-1; x=float(i)*ds do j=1,ny-1; y=float(j)*ds t=0.25*(vf(i+1,j)+vf(i-1,j)+vf(i,j+1)+vf(i,j-1)) if(i.ne.1.or.j.ne.1) then err0=abs(t-vf(i,j)); err=amax1(err,err0) else err=abs(t-vf(i,j)) endif vf(i,j)=t enddo enddo enddo open(1,file='vf.dat') do i=0,nx; x=float(i)*ds do j=0,ny; y=float(j)*ds write(1,*) x,y,vf(i,j) enddo enddo close(1) !--------------------------- a0=0.5*a; b0=0.8*b open(1,file='a0.dat'); open(2,file='b0.dat') i=nint(a0/ds); do j=0,ny; write(1,*) float(j)*ds,vs(i,j),vf(i,j); enddo; close(1) j=nint(b0/ds); do i=0,nx; write(2,*) float(i)*ds,vs(i,j),vf(i,j); enddo; close(2) !--------------------------- write(*,*) err,i0,j0 deallocate(vs,vf) stop end

2023-06-07 上传