Question

Vfp要做程序设计了。要求是小型信息管理系统。我想问：如果我做的是个人账本这算吗？？？

Answer 1

应该可以算，虽然简单了点。不过你我说了都不算，得听你拉导师的。

追问

老师说不能问他哪个哪个内容行不行！如果做这个的话，我是不知道表能够建几张。

追答

照这架势，表太简单怕是不行，你可以考虑将常用收支项目做个表，在程序中常用收支的填写可以以此表为基础供选择，收入数据再做个表，人为增加点复杂度。

追问

哎。感觉效果不会很好。

哎。感觉效果不会很好。

我还是放弃了。改作学生信息成绩什么的了

追答

为什么不尝试下呢，一定能做好。

追问

我做的头都晕了。我现在连最基本的都忘了。怎么

怎么在表上浏览时，按上一个下一个命令按钮时数据变化。还有什么让图片跟着变？

还有我的表单是不是要放一起。弄成一个表单集。最后是怎样把这些东西弄成系统的。😁😁😭

追答

在表的代码窗口中你试试看看各属性的提示，你说的这个功能请找一下表格有移动到不同行时要执行的代码。

追问

就是在命令按钮里不会填代码😖😭

追答

例如：
按钮（下一个）：的代码：
skip 1
读取相应字段到表单的相应文本框

不知你的具体设计，也不好写代码

追问

那我明天再试试。

追答

如果有具体问题了，写明具体情况，我们一起交流学习。

追问

好的。谢谢。

想这样。按就能浏览。怎么弄
忽视掉姓名。纯属娱乐😂

像这样我在命令按钮组写了代码。但是数据没变。是哪里没弄好

追答

下一个按钮的click代码：
if eof()
return
else
skip 1
if eof()
return
endif
endif
共同代码

上一个按钮的click代码：
if bof()
return
else
skip -1
if bof()
return
endif
endif
共同代码

第一个按钮的click代码
go top
共同代码

最后一个按钮的click代码
go bottom
共同代码

共同代码为：
this.Parent.学号.caption=学生基本信息.学号
this.Parent.姓名.caption=学生基本信息.姓名
this.Parent.性别.caption=学生基本信息.性别
this.Parent.出生日期.caption=dtoc(学生基本信息.出生日期)
this.Parent.政治面貌.caption=学生基本信息.政治面貌

说明：上述代码中控件名称是根据你的图示所写请校正。从图上看院系还有别的数据库可参考以下代码
select 院系数据表
LOCATE FOR ALLTRIM(院系表.院系代码)==ALLTRIM(学生基本信息.院系代码）
IF FOUND("院系数据表")
this.Parent.院系.caption=院系表.院系名称
ENDIF

追问

完全无力

我稍微改了一下。结果就变了一个地方

运行钱

运行后

追答

你原来用的是TEXT控件，在代码最后加上一句刷新下表单：
=thisform.Refresh()

追问

还是不行

我一定要抓紧时间了。一定要弄出来😩😩

追答

不行？你的当前表不是学生基本信息吧,
为保证不出问题，你可以将SKIP、EOF、BOF等命令中加入工作区名，这样可避免多个工作区时出现混乱
例如：
eof("学生基本信息")
bof("学生基本信息")
skip 1 in 学生基本信息
go top in 学生基本信息
go bottom in 学生基本信息

追问

哭。终于有反应了。感谢^_^

还有😵

我的院系和专业不在同一个表上。可以直接写代码吗。

追答

不用谢，有问题共同交流学习。

追问

还有我的图片该怎么弄呢？

一下课就回来弄了。(￣^￣)ゞ

我已经仿造把院系和专业弄好了😏😏

追答

如果学院和系是分开的表，请参考以下代码：
select 学院表
LOCATE FOR ALLTRIM(学院表.学院代码)==ALLTRIM(学生基本信息.学院代码）
IF FOUND("学院表")
this.Parent.院系.caption=学院表.学院名称
ENDIF
select 系表
LOCATE FOR ALLTRIM(系表.系代码)==ALLTRIM(学生基本信息.系代码）
IF FOUND("系表")
this.Parent.专业.caption=系表.系名称
ENDIF

图片的问题，简单的处理方式是在数据库中记录图片文件的位置，然后在代码中修改图像控件的Picture属性就行了，例如：学生基本信息.照片 中保存着学生照片对应在的图片位置
this.Parent.image1.picture=alltrim(学生基本信息.照片)

当然，这里照片字段中应该采用相对路径，路径应设置为应程序当前所在文件夹下的某一子文件夹，例如应用程序所在位置下的“image”文件夹，这样数据库中就只需记录相对路径，应用程序也好处理数据。

追问

额。我的院系专业是这样的

之后弄成一个程序的话。我这样放文件对吗？

追答

院系和专业放在一个表中当然也行，但不同院系的相同专业就没法子省略了，也就是说数据重复量要大一些。
this.Parent.院系.caption=院系专业.院系名称
this.Parent.专业.caption=院系专业.专业名称

追问

可是表。院系专业怎么出来。

明天再接着研究

现在在弄专业和院系。(￣^￣)ゞ

追答

估计是用了全角字符

追问

这样之后数据都不动了

追答

数据不动是什么意思？程序死了？

追问

就是加了之后连学号那些都不变动了

我觉得我真是作死。图片要有一样大。结果我一个一个裁剪(￣Д￣)ﾉ

追答

if eof()
messagebox("已到表尾！",64,"提示")
return
else
skip 1
if eof()
messagebox("已到表尾！",64,"提示")
return
endif
endif

会不会是记录刚好到尾了呢？你这样改下，好有个直观的提示。

追问

终于到周五了。我一定要在这周大体完成\(//∇//)\

我现在大致把前四个表建完了。现在就是一个是图片。一个是第一个表单的院系和专业还没搞定。

追答

一定能成功

追问

现在有两个表。分别是学生基本信息和院系专业。我想要按学号和姓名查询学生基本信息。大致如图。但是现在我又无法让院系和专业变化？

追答

看的够费劲的，数据中的联接正常吗?你没试试，另外，在涉及多个数据库的操作过程中，建议在程序中用select指定数据工作区。
还有，上面第二图中你为什么要加个go recn()呢？感觉没有必要

追问

成绩输入的话。我该如何写。我这样不对。

追答

最后的Locate语句和replace语句间应再增加一个判断语句为妥，要不然输入的学号要是不存在，就会出现你不想要的结果。大约的例子如下，请参考：
if found()
replace 成绩.xk……
else
messagebox("您输入的学号有误，请输入有效的学号。",48,"找不到学号")
endif

如果涉及多数据库操作，建议在locate语句前加上select选择好工作区，found语句也指定工作区如if found("成绩")

追问

想再问几个问题，我的图片变化是用路径保存的，但是我考试的时候路径就变了，该怎么办。

我试着连编了一下。怎么控制表单大小。？

追答

图片保存如果只是记录图片的位置，请使用相对路径，且该相对路径位于主程序所在目录内为宜；
调整表单大小请调整表单属性的Width（宽）和Height（高）属性的傎就可以了，或者在程序中通过代码修改也可以，例如：
thisform.width=500
thisform.height=300

追问

相对路径？

追答

是呀。例如：
主程序在以下目录：
d:\myprg\学生信息管理系统\
学生照片文件所在目录：
d:\myprg\学生信息管理系统\images

则数据库中只需记录学生照片的文件名就可以了，引用的时候先获取程序所在的主目录，然后再加上保存照片的目录名，最后加上照片文件名就可以了，程序不论复制到哪，引用都不会有问题。
主目录+照片目录+照片名

追问

引用的时候先获取程序所在的主目录！！是怎么获取?