main.bak

来自「物业管理系统,包括物业的收入」· BAK 代码 · 共 26 行

set talk off    &&关闭对话模式
set safe off
set stat off   
set dele on     &&不处理已删除的记录
set cent on
set date to ansi
set sysmenu off
set status bar off
close all
deactivate window "项目管理器"   &&关闭项目管理器
_screen.caption='医药销售管理系统'
release window 常用
_screen.controlbox=.f.
_screen.width=700
_screen.height=430
_screen.left=60
_screen.top=45
_screen.icon='net12.ico'
mypath=left(sys(16),rat("\",sys(16)))   &&确定程序所在的位置
set defa to (mypath)  &&设置当前路径
set path to 数据库;表单;采购管理;销售管理;客户管理;picture  &&指明路径
open database 销售系统信息数据库  &&打开数据库
do form 登陆  &&运行表单logo
read events
quit