[理学]非常全的vf实例编程计算机二级Foxpro在VFP中模拟动画.doc

计算机二级 Foxpro:在 VFP 中模拟动画 在当今众多的编程语言中，VFP 的简单、方便和实用使我一直情有独衷。它不仅提供了对 中、小型数据库完善的管理和操作机制，在应用程序界面的设计上也 提供了丰富的手段。 比如说，VFP 的表单设计器提供了图象控制，允许我们直接在表单中添加.BMP 图片。稍 显不足的是它不支持其他格式的图象，更不用说是 动画了。 由于图象控制和其他控制一样，具有自己一整套的属性，在设计时可以动态地改变它， 因此我在实践中摸索到一种变通的方法，在 VFP 的表 单中加入模拟的“动画”。其设计思 想是准备几帧连贯的.BMP 图象（可用相关的绘图软件自行制作） ，利用计时器的计时功能， 在规定的时间间隔内动态地改变 所显示的.BMP 图象。下面我就通过一个演示实例来加以 说明：首先，我准备了四幅连贯的红旗飘图象，分别取名为：1.bmp,2.bmp,3.bmp 和 4.bmp。如下所示(略)，然后使用表单设计器设计表单如下： 演示表单 其中包括三个控制：Image（图象）,Timer（计时器）和 Command（命令按钮） 。设 置属性如下： Image.Picture=“1.bmp”Ttimer.Enabled=.t.Timer.Interval=200Command.Caption=“退出演 示” 在表单的 Activate 事件中添加如下代码： Public II=1 在计时器的 Timer 事件中添加代码如下：If I $#62;=4 I=1Else I=I+1EndifPic=Str(I,1)+“.bmp“Thisform.Image.Picture= Pic 在命令按钮的 Click 事件中添加代码如下： Thisform.Release 最后，保存并运行表单，我们会看到窗口中一幅鲜艳的红旗在迎风招展。单击“退出演 示”命令按钮，模拟动画的演示就结束了。 VF 编写简易计算器 (1)建立应用程序用户界面。建立应用程序用户界面。 选择“新建”表单，进入表单设计器，增加一个文本框控件 Textl、一个标签控件 Label1 和一个命令按钮组 CommandGroup1,并将命令按钮组的 ButtonCount 属性改为 16。 (2)设置对象属性如下表所示：设置对象属性如下表所示： CommandGroup1 中各按钮的属性设置 对象 属性 属性值 说明 Command1Command10 Caption 依次改为：1、2、3、4、5、6、7、8、9、0 FontBold .T. Command11Command10 Caption 依次改为：.、=、+、-、*、/ FontBold .T. (3)编写程序代码。编写程序代码。 编写 CommandGroup1 的 Click 事件代码： IF THISFORM.Tag=.T. THISFORM.Text1.Value=ALLT(RIGHT(STR(THIS.Value),1) THISFORM.Tag= ELSE a=THISFORM.Text1.Value THISFORM.Text1.Value=a+ALLT(RIGHT(STR(THIS.Value),1) ENDIF 编写“.”按钮 Command11 的 Click 事件代码： a=THISFORM.Text1.Value THISFORM.Text1.Value=a+. 编写“=”按钮 Command12 的 Click 事件代码： a=THISFORM.Text1.Value THISFORM.Text1.Value=ALLT(STR(SERVER=(LOCAL);UID=SA;PWD=;DATABASE=你的数据库名“) *dbftosql() PROCEDURE DBFTOSQL PARA MDBF LOCAL I,MFIELD,MTYPE,MCOLUMN,MSQLTYPE,MLEN,MSQL1,MSQL2 MFIELD= MTYPE= MCOLUMN= MSQLTYPE= MLEN= MSQL1= MSQL2= IF !USED(MDBF) USE delete for 条件 若未发 Tableupdate(), 则可用 Recall 来取消删除标记。 4. 本地视图的数据源有远程视图，如何刷新本地视图? 例如：有两个远程视图 Rview1 Rview2, 创建本地视图的命令为：Create SQL view As Select A.* B.* from Rview1 A,R view2 B where A. 箱号=B. 箱号 刷新 view 之前必须先刷新 Rview1 和 Rview2: =requery (“Rview1”) =Requery (“Rview2”) =Refresh (“view”) 六、小结六、小结 远程视图是 VFP 访问远程数据服务器中数据的有利武器，有了前面的介绍， 就可得心应手地设计 C/S 应用系统了。 参考文献 1 E.sander 等著 visual FoxPro3.0 实用指南机械工业出版社 1996 The Skills of Using Remote View in Visual Foxpro 5.0 Wuyefu and Yuanxiaoling Dept. Computer, Wuhan Transaction University , WuHan430063 ABSTRACT: In the paper, it is introduced how to choice option parameters and to use remote view in Visual Foxpro 5.0. In the end, the solution to some problems is also discussed. KEYWORDS: Remote view, Remote Data, Connection, Lock, buffering 一个很好的 c-s 主程序 * * 2003/11/21 星级酒店管理系统 主程序 * * 作者：刘雪均 * * 版权所有 (C) 2003 宝明城大酒店 * * 广东深圳市公明镇长春花园 * * 深圳, 广东 518106 * * 中国 * * 说明: 版权所有，严禁非法复制，违者必穷 Clear Clear All Clear Dlls Clear Macros Close All Set Talk Off Set Safe Off Set Escape Off Set Debug Off Set Exact Off Set Sysmenu Save Set Sysmenu To Set Sysmenu Off Set NullDisplay To Set Null Off Set Dohistory Off Set Notify Cursor Off Release Windows Close Databases Set Date To YMD Set Hour To 24 Set Seconds Off Set Century On Set Deleted On Set Resource On Set Help On On Shutdown Quit Set Clock Off With _Screen .WindowState=2 .ZOOMBOX=.F. .Movable=.F. .MinButton=.F. .MaxButton=.F. .Closable=.F. .Icon=“Ball.ICO“ .Caption=星级酒店管理系统均维软件工作室 .LockScreen=.T. .AddObject(ScreenImg,Image) .ScreenImg.Stretch=2 .ScreenImg.Visible=.T. .ScreenImg.Height=Sysmetric(2)-50 .ScreenImg.Width=Sysmetric(1) .ScreenImg.Picture=DeskTopr.jpg .LockScreen=.F. Endwith =Capslock(.T.) =Numlock(.T.) Public TempFile,ExePath,CurWinDir,CurPic,pCompany,ReportFile,pTeamId,pUserGr oup,pUserId,pUserName,sConn,gcUpdateId,; m.Date_From,m.Date_To,nConn,OFBLX,OFBLY,Times Store 0 To nConn,OFBLX,OFBLY,Times Store Date() To m.Date_From,m.Date_To Store To TempFile,ExePath,CurWinDir,CurPic,pCompany,ReportFile,sConn,pTeamId,p UserGroup,pUserId,pUserName TempFile=T+Right(Sys(2015),7) CurWinDir=Getenv(WinDir) ExePath=Left(Sys(16,1),Rat(“,Sys(16,1) Set Default To (ExePath) Set Resource To SERVER=+Iif(Empty(ReadIni(CONNECT,SERVER,UID=+ReadIni(CONNECT,UID,PWD=+Iif(Empty(ReadIni(CONNECT,PWD,DATABASE=+Iif(Empty(ReadIni(CONNECT,DATABASE,NetWork=DBMSSOCN nConn=Sqlstringconnect(sConn) Wait Clear Do While nConn重试 , N -设定 , 取消 -退出 ！“,67 ,SQL Connect Info.) _Screen.Refresh Do Case Case YN=6 Wait Window “正在连接 SQL SERVER 数据库 ，请稍候 “ At Srows() /2-10,(Scol()-45)/2 Nowait Noclear nConn=Sqlstringconnect(sConn) Wait Clear Case YN=7 Do Form SetServer.SCX WTOS(Month(ServerDate.SysTime) + ; WTOS(Dow(ServerDate.SysTime) - 1) + ; WTOS(Day(ServerDate.SysTime)+ ; WTOS(Hour(ServerDate.SysTime) + ; WTOS(Minut(ServerDate.SysTime) + ; WTOS(Sec(ServerDate.SysTime)+; WTOS(Sec(ServerDate.SysTime) = SETLOCALTIME(SystemTime) Else Messagebox(后台数据库连接失败,时间同步无效！,16,Information,3000) Endif Endfunc Function WTOS Parameters WORDVAL Private IDNAME, RETSTR RETSTR = “ For IDNAME = 8 To 0 Step -8 RETSTR = Chr(Int(WORDVAL/(2IDNAME) + RETSTR WORDVAL = Mod(WORDVAL, (2IDNAME) Next Retu RETSTR Endfunc *!* SQL 错误登记显示自定义函数 Function ShowSqlError NERRLINE=Aerror(SQLERROR) If SqlError5 错误信息： ODBC 状态： ODBC 连接句柄：=3 and n=6 and n=9 and n=11 thisform.label2.caption=秋 case n=12 or n=2 or n=1 thisform.label2.caption=冬 endcase form.dblclick thisform.release 二级二级 VFPVFP 上机练习题上机练习题 4 4 1、建立一商场消费数据库，文件名为：db812.DBC，并输入数据。 该数据库中包括两个表文件：顾客信息表(GK.DBF)和顾客消费数据表(XF.DBF)。其数 据形式如下： 顾客信息表(GK.DBF) 顾客消费数据表(XF.DBF) 顾客编号姓名性别是否会员 顾客编号购买商品消费金额消费积分 085422王小凤女.T. 74561化妆品588.00 074561孙丽女.F. 81313西服1280.00 081313吴远平男.F. 85211靴子566.00 072453程志龙男.T. 72453食品218.80 085211李娟娟女.T. 81313食品78.00 74561帽子128.00 85422皮鞋358.00 要求：将数据库中的 GK.DBF(父表)和 XF.DBF(子表)以“顾客编号”建立一对多的永 久关系。 2、建立程序文件 COM-SQL812.PRG，要求将完成下列各小题任务的 VFP 数据表操作命令 或 VFP-SQL 命令写在该程序文件中。在程序首行用注释语句注明考生姓名和准考证号， 并用注释语句标注小题号。 （1）计算消费积分，并填入 XF.DBF 表中。(其中会员的积分为消费金额，不是会员 的积分为消费金额的一半)； （2）输入任一顾客的姓名并查询顾客的消费明细，包括购买商品、消费金额和消费积 分： （3）汇总每位顾客的消费积分，并按总积分从大到小的顺序显示。 3、表单设计。按以下要求设计程序界面，表单文件名为 FORM812.SCX 设计如图所示一个表单，包括 2 个标签，1 个文本框(各控件的主要属性参照图形尺寸 自定)。其中： （1）表单顶部的标签用采显示考生自己的姓名和考号； （2）文本框 textl、text2 和 text3 的显示初值为 0，text4 最初显示为空白； （3）该表单运行后，可以在文本框 textl、text2、text3 中分别输入三个数，左键单击 “比较”命令按钮，则在文本框 text4 中显示较大的一个数。 二级二级 VFPVFP 上机练习题上机练习题 4 4 参考答案参考答案 2 1）SELE 1 USE GK INDEX ON 顾客编号 TAG BH SELE 2 USE XF