我想编一个VFP程序:现有数据库A与B,A中有一张所有人员的编号和总金额的表,B中每隔一个月会添加一张新表,直到年底结束.这张新表是其中部分人员买东西支出钱的记录,有编号和支出金额两个字段.我现在要求做一个程序能随时查询所有人员的余额(要求生成一张新表,包括编号,总金额,支出总金额,余额等字段),也就是用A数据库中的总金额减去B数据库中所有表的支出金额.请高手指点下,不胜感激!
具体问题在这里实在是不好说明,不过还是谢谢大家的回答,我现在考虑把它做成自由表,用两个程序来解决!谢谢大家了,以后还要大家多多指教!
创建一个Vfp应用程序的主要步骤
创建一个Vfp应用程序的主要步骤如下:1.创建应用程序的界面。应用程序的界面一般由菜单、表单、控件等组成。根据我们所编制的程序的规模大小和应用需求,来选择需要使用哪些对象,规划最合适的界面。建议创建一个项目文件,使用项目管理器来统一创建和管理这些文件和数据。2.设置界面上各个对象的属性。根据具体...
求做一个简单vfp的程序代码
MESSAGEBOX("查无记录",48,"系统提示")thisform.text1.Value=""thisform.text1.SetFocus ENDIF ENDIF
求个VFP小程序编写
FOR i = 1 TO j - 1 ? C(i)ENDFOR ENDIF 解释一下这个程序的过程:首先,定义了一个大小为30的数组A和一个字符串变量B,并将B初始化为某个字符串。接着,使用FOR循环遍历数组A,如果数组元素不为空且包含变量B,则将该数组元素赋值给另一个数组C,并将C的下标加1。最后,判断是否找到了...
关于VFP(Visual FoxPro)的程序文件,如何创建输入用户名和密码的程序文件...
建立一个简单的程序文件来实现输入用户名和密码功能:开始程序,提示用户输入用户名:accept "请输入用户名:" to name 接着提示用户输入密码:accept "请输入密码:" to pass 设定初始值n为1,开始执行循环:do while 。t 判断用户名是否为"张三",密码是否为"1234":if name="张三" and pass="12...
VFP6.0程序
function mj parameters R S=R*R ?S ENDFUNC 2、clear use rcda.dbf go top do while not eof()locate for 姓名="刘永康"if found()disp 姓名 else messagebox("查无此人")endif continue enddo 3、第一个命令代码:GO top thisform.refresh 上一个命令代码:SKIP -1 thisform.refresh 下一...
跪求VFP程序
1.题程序 v_cnt=0 v_sum=0 for i=1 to 100 if mod(i,7)=0 then v_cnt=v_cnt+1 v_sum=v_sum+i endif endfor ?v_cnt,'个,和为',v_sum 2.题程序 input 'n=' to n ok=1 for i=2 to n-1 if mod(n,i)=0 then ok=0 endif endfor if ok=1 then ?n,'是素数'...
vfp 怎样编写主程序
Set Escape Off &&禁止运行的程序在按 Esc 键后被中断 Set Exclusive Off &&数据库表以共享方式打开 Set Deleted On &&过滤掉已带删除标记的记录 Set Safety Off &&指定在改写已有的文件时不显示对话框 Set Date Ansi &&设定日期的年份为 4 位数 Set Century On &&指定日期表达式...
VFP编写程序:输入一圆柱体的底面半径和高,输出该圆柱体的表面积和体积...
?"表面积是:",nbmj 详细讲解:1,先用input命令让用户输入半径和高度 2,检查用户输入,必须为正数 3,计算体积, 圆面积乘以高度 4,计算表面积, 圆面积加上矩形面积(长为圆周长,宽为圆柱体高度)5,输出到屏幕 采纳的答案, 表面积有问题, 因为没算上上下两个圆的面积,仅仅算了柱面的面积 ...
在vfp如何联编急要详细步骤
do form forms\\kl *你首先运行的表单,如果是其它的,自己改一下 on shutdown quit read event 如果您的程序全部都编好了就可以开始编译您的软件了,很简单,方法如下:1.按下项目管理器中的连编,出现对话框;2.选择“连编可执行程序”,确定;3.输入编译后的EXE文件名,注意目录,然后保存...
连编VFP可执行文件
一般编写一个主程序,内容如下:set talk off set status bar off set safety off set delete on close all clear 设定默认路径 mlh=rat("\\",sys(16))lj=substr(SYS(16),1,mlh-1)set default to &lj 设定搜索路径 sslj1=lj+"\\data"sslj2=lj+"\\picture"set path to &sslj1;&sslj2 _...