求一个main主程序

我手头有一个现成的，不过你可能得稍加更改。

set   talk   off         &&关闭对话模式
set   safe   off
set   stat   off      
set   dele   on           &&不处理已删除的记录
set   cent   on
set   date   to   ansi
close   all
RELEASE   WINDOW   常用       &&关闭常用工具栏
if   mod(day(date()),2)=0     &&偶数日期
_SCREEN.backcolor=rgb(80,180,150)     &&窗口背景颜色
MODIFY   WINDOW   SCREEN   TITLE   "                           今天是： "+dtoc(date())+ "     "+cdow(date())
else     &&奇数日期
_SCREEN.backcolor=rgb(80,150,180)     &&窗口背景颜色
MODIFY   WINDOW   SCREEN   TITLE   "     库房管理应用软件   ver   2.1                         ;
        软件编制者：qqiiaann                                             今天是： "+dtoc(date())+ "     "+cdow(date())
endif
ZOOM   WINDOW   SCREEN   MAX       &&主窗口最大化
_SCREEN.controlbox=.f.       &&去掉主窗口控制按钮
deactivate   window   "项目管理器 "       &&关闭项目管理器
mypath=left(sys(16),rat( "\ ",sys(16)))       &&确定程序所在的位置
set   defa   to   (mypath)     &&设置当前路径
set   path   to   data;forms;img;prg       &&指明路径
open   database   archives     &&打开数据库
do   form   登陆       &&运行表单logo
read   events
quit