资源预览内容
第1页 / 共9页
第2页 / 共9页
第3页 / 共9页
第4页 / 共9页
第5页 / 共9页
第6页 / 共9页
第7页 / 共9页
第8页 / 共9页
第9页 / 共9页
亲,该文档总共9页全部预览完了,如果喜欢就下载吧!
资源描述
功能全面的开机界面设计功能全面的开机界面设计下面是一个学生档案管理系统在 VFP9.0 下的开机界面,在此结合了许多 foxpro 的 功能进行了详细的设计。列示了代码及界面。 *主程序:main,prg 代码如下 set talk off &对于主程序设计具有一定的通用性,一是对系统 set esca off &环境的设置;二是对自定义菜单和工具栏的设计, set exact on &以及启动画面或登录画面的设计。在左边列出的 set excl on &设定表为共享方式 这段程序是我编制的学生档案管理的主 称 SET REPROCESS TO AUTOMATIC &设定数据加锁 *set help to myhelp.chm &设定帮助文件,可以不设. set cons on &激活从程序中向 Visual FoxPro 主窗口或活动的用户自定义 窗口的输出。 set date ansi &设置日期格式 set score off &设定 Num Lock、 Caps Lock 和 Insert 键状态 set safe off &关闭对话框 set stat bar off &打开状态栏 set cent on &设定日期格式年为 4 位数 set color to &设定配色方案 set sysmenu off &关闭系统主菜单 Set Sysmenu To SET CURSOR ON &打开光标控制 deactivate window “项目管理器“ &关闭项目管理器 RELEASE WINDOW 常用 &关闭常用窗口 SET PATH TO data,progs,GRAPHICS,forms,libs &设置存取文件路径 DEACTIVATE WINDOW command &关闭命令窗口 clea &刷新屏幕 clear all &清除内存变量 SET PROCEDURE TO progs_proc &设置过程文件的路径。 ON ERROR do err With Error(), Message(), Message(1), Program(), Lineno(1) &错误文件设 置 with _screen *屏幕设定 .windowstate=1 * .visible=.f. * ENDWITH local ctitle &定义标题名称 ctitle=学生档案管理系统 &标题名称 * 检查程序是否执行 Declare integer FindWindow in win32api string cClass,String cCaption if FindWindow(0,ctitle)#0 _screen.windowstate=2_screen.caption=ctitle _screen.visible=.f. ?chr(7) =messagebox(“&ctitle.已经在运行中!“,16,“提示信息“) on shutdown quit endif *检查程序是否运行结束。 ON KEY LABEL f1 do myhelp &定义 F1 键为帮助键。 DO FORM formsabout &运行开机界面。图 1 READ events &激活和保持窗口 ON SHUTDOWN DO form forms_quit &设置退出程序时的提示。&指定当试图退出程序时,要执行的命令,否 则提示不能退出程序等信息。PUBLIC menutf,xt_date,xt_xq,yhdwmc,czry,zccg xt_date=SUBSTR(DTOS(DATE(),1,4)+年+SUBSTR(DTOS(DATE(),5,2)+月 +SUBSTR(DTOS(DATE(),7,2)+日 &当今日期 xt_xq=星期+SUBSTR(日一二三四五六,2*(DOW(DATE()-1,2)+ &当今星期 menutf=0 with _screen &设定 FoxPro 主窗口属性.visible=.t. &主窗口或见.closable=.t. &关闭按钮可用.controlbox=.t. &标题铵钮可见.maxbutton=.t. &大写按钮可见.minbutton=.t. &小写按钮可见.movable=.t. &窗口可移动.top=0 &起始上位置.left=0 &起始左位置.windowstate=2 & *将主窗口最大化.caption=学生档案管理系统 &窗口标题.icon=graphicswzlocate.bmp & 设定图标 endwith *开机界面设置 _screen.ADDOBJECT(“image1“, “image“) _screen.image1.Picture=“graphicsmain2.bmp“ _screen.Image1.width=_screen.Width _screen.image1.height=_screen.Height-20 _screen.image1.Top=0 _screen.image1.Left=0 _screen.image1.Stretch=2 _screen.image1.Visible=.t. _screen.image1.enabled=.f.*开机界面设置完毕 DO menus_menu.mpr &调入菜单 *设置自义按钮 PUBLIC tbrDesktop,mbr tbrDesktop = CREATEOBJ(mytoolbar) tbrDesktop.SHOW tbrDesktop.Dock(3)mbr=NewObject(“MyTool“,“libsxjda_app“) mbr.show() mbr.dock(0) mbr.enabled=.f. pas=.t. DO FORM formspassword READ events ON SHUTDOWN BINDEVENT(_SCREEN,“Resize“,tbrDesktop,“RESIZE“) DEFINE CLASS myToolBar AS Toolbar ENABLED=.F. ADD OBJECT 状态栏 AS OLECONTROL WITH OLECLASS=MSComctlLib.SBarCtrl.2,left=0,HEIGHT=20,WIDTH=_SCREEN.Width-12 PROCEDURE 状态栏.init this.dragmode=1 This.Font.Name=宋体This.Font.Size=9THIS.panels.CLEAR &清除所有 panels THIS.Panels.Add(1,“用户:“,0,LoadPicture(“graphicslogin_s.bmp“) &(Index,Key,Text,Style,Picture) THIS.Panels(1).WIDTH=280 this.Panels(1).ToolTipText=状态条示例。 THIS.Panels.Add(2,“学期:“,0,LoadPicture(“graphicsfont.bmp“) &(Index,Key,Text,Style,Picture) THIS.Panels(2).WIDTH=100 this.Panels(2).ToolTipText=显示系统格式的日期 *this.Panels(2).Alignment= 1THIS.Panels.Add(3,“操作:“,0,LoadPicture(“graphicsloginp_s.bmp“) &(Index,Key,Text,Style,Picture) THIS.Panels(3).WIDTH=110 this.Panels(3).ToolTipText=显示系统格式的日期 *this.Panels(2).Alignment= 1THIS.Panels.Add(4,“登录学生档案管理系统“,0,LoadPicture(“graphicswzedit.bmp“) &(Index,Key,Text,Style,Picture) this.Panels(4).AutoSize = 1 &可伸缩的 this.Panels(4).ToolTipText=状态条示例。 THIS.Panels.Add(5,“,3) &显示 Ins 键状态THIS.Panels(5).WIDTH=24this.Panels(5).ToolTipText=插入/改写键状态 this.Panels(5).Alignment= 1THIS.Panels.Add(6,“,2) &显示 Num Lock 键状态 THIS.Panels(6).WIDTH=24 this.Panels(6).ToolTipText=数字键锁定状态 this.Panels(6).Alignment= 1THIS.Panels.Add(7,“,1) &显示大小写状态THIS.Panels(7).WIDTH=30 this.Panels(7).ToolTipText=显示大小写状态this.Panels(7).Alignment= 1 THIS.Panels.Add(8,“,4) &显示 scroll 键状态 THIS.Panels(8).WIDTH=30 this.Panels(8).ToolTipText=显示 scroll 键状态 this.Panels(8).Alignment= 1 THIS.Panels.Add(9,xt_date+xt_Xq,0,LoadPicture(“graphicsole4.bmp“) &(Index,Key,Text,Style,Picture) THIS.Panels(9).WIDTH=164 this.Panels(9).ToolTipText=显示系统格式的日期 this.Panels(9).Alignment= 1 THIS.Panels.Add(10,“,5) &显示系统格式的时间 THIS.Panels(10).WIDTH=40 this.Panels(10).ToolTipText=显示系统格式的时间 this.Panels(10).Alignment= 1 ENDPROCPROCEDURE RESIZEtbrDesktop.状态栏.WIDTH=_SCREEN.Width-12 ENDPROCENDDEFINE至止,主程序代码编写完毕。以下进行主程序代码中应用到的文件文件分析: 1_proc.prg 过程文件,可编写在程序中所用到的任何命令文件,如 err.prg 错误文件。例 示如下:*_proc.prg 中的文件只有:容错文件 err.prg;口令加密文件 passjm.prg;日期合法性检验文件 *lastday,prg,其内容
网站客服QQ:2055934822
金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号