main.bak

来自「处方管理毕业设计,适应于专科类毕业班设计实习使用」· BAK 代码 · 共 24 行

 *处方系统主程序*
*DEACTIVATE WINDOW SCREEN 
*HIDE WINDOW SCREEN 
*解决启动时出现VF图型的问题
set talk off&&关闭命令响应
set cent on
set safety off&&当覆磁盘上的文件是不提示
mypath=left(sys(16),rat("\",sys(16)))
set defa to (mypath)
*set defa to D:\处方管理系统 &&设置路径
set date  ansi &&设置日期为“年、月、日”表示

_screen.caption="黔江区杉岭乡天圣药房处方管理系统"
_screen.picture='d:\处方管理系统\yp.jpg'&&菜单窗口图片
_screen.windowstate=0 &&主菜单窗口普通大小
_screen.autocenter=.T.
_screen.width=500
_screen.height=200
do form dlbd
read event
set talk on 
set safe on 
close database
set sysmenu to default &&退出以后设置为系统菜单