main.prg

来自「山泉的早期工资管理VB程序.可以一看,不错的」· PRG 代码 · 共 194 行

Set Talk Off
Set Echo Off
SET ECHO OFF
SET TALK OFF

Set Century Off 		&& 日期变量不显示世纪部分
Set Date Ansi
Set Delete On
Set Multilocks On
Set Null On 			&& 确定ALTER TABLE,CREATE TABLE 和 INSERT - SQL等命令支持空值的方式.
Set NullDisplay To '' 	&& 指定空值显示文本
Set Palette Off 		&& 使用图形文件本身的调色板
Set Safe Off
Set Status Bar Off
Set Talk Off
SET CONFIRM ON


Close All

* 设置路径
SET DEFAULT TO c:\maejsb

* 打开过程文件
SET PROCEDURE TO c:\maejsb\prgs\proc.prg

* 设置资源文件
SET RESOURCE ON 
SET RESOURCE TO c:\maejsb\FOXUSER.DBF

SET SYSMENU off


* 设置屏幕属性
With _Screen
*	.BorderStyle=2
	.Caption='费用管理系统2002'
	.Closable=.T.
	.MaxButton=.T.
	.MinButton=.T.
	.Movable=.T.
	.WindowState=2
	.picture='c:\maejsb\pics\backgroup.jpg'
Endwith


* 设置全局变量
PUBLIC input_value
input_value=''

PUBLIC gnEnabledBackColor,gnDisabledBackColor,gcFind
gnEnabledBackColor=16777215
gnDisabledBackColor=16772292

PUBLIC c科室
c科室=''
gcFind='' && 查询记录用


* 操作员
PUBLIC gc_Operator, gc_Password, gc_Name
gc_Operator = SPACE(8) 
gc_Password = SPACE(20)
gc_Name =  SPACE(8)

* 操作员权限
PUBLIC glIsSee,glIsAdd,glIsEdit,glIsDel,glIsPrint
STORE .f. to glIsSee,glIsAdd,glIsEdit,glIsDel,glIsPrint




* 登录
LOCAL llIsLogin
llIssLogin=.F.
DO FORM c:\maejsb\forms\login.scx TO llIsLogin &&输入口令

* IsLogin返回是否输入正确的口令,.T.正确,.F.不确定
IF 	.NOT. llIsLogin &&如果口令不正确
	QUIT
ENDIF

* 设置环境(执行系列SET、SYS命令)
*Do \maejsb\progs\SetSys.prg

* 基类
Set Classlib To \maejsb\vcx\BaseClass.vcx
* 自定义类库
Set Classlib To \maejsb\vcx\maejsb.vcx Additive


* 调用主菜单
Set Sysmenu Save && 将当前菜单栏存入内容
Set Sysmenu To && 删除所有系统菜单
Do \maejsb\Menus\Menu.mpr
Do Form \maejsb\Forms\桌面.scx
Read Events

* 恢复环境
With _Screen
*	.BorderStyle=3
	.Caption='Microsoft Visual FoxPro'
	.Closable=.T.
	.MaxButton=.T.
	.MinButton=.T.
	.Movable=.T.
	.WindowState=2
Endwith

Set Sysmenu To Default

Close Database All 			&&关闭所有数据库
Close All 					&&关闭各种类型的文件，但不关闭命令窗口、调试窗口、帮助、跟踪窗口。
Clear Menus 				&&释放内存中所有的菜单定义。
Clear Popups 				&&释放内存中所有用DEFINE POPUP命令创建的菜单定义。
Clear Windows				&&释放内存中所有用户自定义窗口的定义，并从VFP主窗口或活动的用户自定义窗口中清除窗口。
Clear						&&清屏
Set Safe On
_Screen.Picture=""
Use \maejsb\Data\入库单1.Dbf
Select 入库单1
Pack
Use

Use \maejsb\Data\入库单.Dbf
Select 入库单
Pack
Use


Use \maejsb\Data\领料单1.Dbf
Select 领料单1
Pack
Use

Use \maejsb\Data\领料单.Dbf
Select 领料单
Pack
Use

Use \maejsb\Data\代码.Dbf
Select 代码
Pack
Use

Use \maejsb\Data\计量费用.Dbf
Select 计量费用
Pack
Use

Use \maejsb\Data\供应商.Dbf
Select 供应商
Pack
Use


Use \maejsb\Data\维修费用.Dbf
Select 维修费用
Pack
Use


Use \maejsb\Data\right.Dbf
Select right
Pack
Use

Use \maejsb\Data\operator.Dbf
Select operator
Pack
Use

Set Talk On
*SET ECHO On
SET SAFETY OFF

Set Century on 		&& 日期变量不显示世纪部分
Set Date Ansi
Set Delete off
Set Multilocks Off
Set Null On 			&& 确定ALTER TABLE,CREATE TABLE 和 INSERT - SQL等命令支持空值的方式.
Set NullDisplay To '' 	&& 指定空值显示文本
Set Palette on 		&& 使用图形文件本身的调色板

Set Status Bar on
CLOSE ALL
CLEAR ALL

* 备份数据
Set Safe Off
COPY FILE c:\maejsb\data\*.* to c:\maejsb\data_bak

Set Safe On