资源描述:
《功能全面的开机界面设计》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、功能全面的开机界面设计下面是一个《学生档案管理系统》在VFP9.0下的开机界面,在此结合了许多foxpro的功能进行了详细的设计。列示了代码及界面。*主程序:main,prg代码如下settalkoff&&对于主程序设计具有一定的通用性,一是对系统setescaoff&&环境的设置;二是对自定义菜单和工具栏的设计,setexacton&&以及启动画面或登录画面的设计。在左边列出的setexclon&&设定表为共享方式这段程序是我编制的学生档案管理的主称SETREPROCESSTOAUTOMATIC&&设定数据加锁*sethelptomyhelp.chm&&设定帮助
2、文件,可以不设.setconson&&激活从程序中向VisualFoxPro主窗口或活动的用户自定义窗口的输出。setdateansi&&设置日期格式setscoreoff&&设定NumLock、CapsLock和Insert键状态setsafeoff&&关闭对话框setstatbaroff&&打开状态栏setcenton&&设定日期格式年为4位数setcolorto&&设定配色方案setsysmenuoff&&关闭系统主菜单SetSysmenuToSETCURSORON&&打开光标控制deactivatewindow"项目管理器"&&关闭项目管理器RELEASE
3、WINDOW常用&&关闭常用窗口SETPATHTOdata,progs,GRAPHICS,forms,libs&&设置存取文件路径DEACTIVATEWINDOWcommand&&关闭命令窗口clea&&刷新屏幕clearall&&清除内存变量SETPROCEDURETOprogs_proc&&设置过程文件的路径。ONERRORdoerrWithError(),Message(),Message(1),Program(),Lineno(1)&&错误文件设置with_screen*屏幕设定.windowstate=1*.visible=.f.*ENDWITHloc
4、alctitle&&定义标题名称ctitle='学生档案管理系统'&&标题名称*检查程序是否执行DeclareintegerFindWindowinwin32apistringcClass,StringcCaptionifFindWindow(0,ctitle)#0_screen.windowstate=2_screen.caption=ctitle_screen.visible=.f.??chr(7)=messagebox("&ctitle.已经在运行中!",16,"提示信息")onshutdownquitendif*检查程序是否运行结束。ONKEYLABELf
5、1domyhelp&&定义F1键为帮助键。DOFORMformsabout&&运行开机界面。图1READevents&&激活和保持窗口ONSHUTDOWNDOformforms_quit&&设置退出程序时的提示。&&指定当试图退出程序时,要执行的命令,否则提示不能退出程序等信息。PUBLICmenutf,xt_date,xt_xq,yhdwmc,czry,zccgxt_date=SUBSTR(DTOS(DATE()),1,4)+'年'+SUBSTR(DTOS(DATE()),5,2)+'月'+SUBSTR(DTOS(DATE()),7,2)+'日'&&当今日期
6、xt_xq='[星期'+SUBSTR('日一二三四五六',2*(DOW(DATE()))-1,2)+']'&&当今星期menutf=0with_screen&&设定FoxPro主窗口属性.visible=.t.&&主窗口或见.closable=.t.&&关闭按钮可用.controlbox=.t.&&标题铵钮可见.maxbutton=.t.&&大写按钮可见.minbutton=.t.&&小写按钮可见.movable=.t.&&窗口可移动.top=0&&起始上位置.left=0&&起始左位置.windowstate=2&&*将主窗口最大化.caption='学生档案管
7、理系统'&&窗口标题.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.im
8、age1.