kcmain.prg

vfp数据库应用编程

**********************************************
*           库存系统主菜单程序(KCMAIN.PRG)   *
**********************************************
CLOSE DATA
Clea ALL
Clea PROG
ON KEY
SET DECI TO 2
set talk off
SET COLO TO
SET ESCA ON
SET BELL ON
SET SAFE OFF
SET DATE ANSI
SET STAT OFF
SET DOHI OFF
SET SCOR OFF
SET EXAC OFF
SET STAT BAR ON
SET RESO ON
SET SYSM TO
set sysm off

DEFINE WINDOW amain;
	AT 0.000,0.000;
	SIZE 23.333,77.500;
	TITLE"汽车配件供销存";
	FONT"宋体",12;
	FLOAT;
	NOCLOSE;
	NOMINIMIZE;
	SYSTEM;
	FILL FILE"MSCR.BMP"
Move WINDOW amain CENTER
Activate WINDOW amain NOSHOW
@2.889,2.250 GET mbut1;
	PICTURE "@*HN \<1 数据录入;\<2 数据修改;\<3 数据删除;\<4 数据查询;\<5 报表输出";
	SIZE 1.545,10.100,2.000 DEFA 1;
	VALI GXCMF(mbut1);
	FONT"宋体",14
@19.556,7.750 GET mubut2;
	PICTURE"@*HN \<6 更新维护;\<7 统计分析;\<8 备份清除;\<0 退出系统";
	SIZE 1.545,10.100,3.000 DEFA 1;
	VALI GXCMF(5+mubut2);
	FONT "宋体",14

@8.222,9.500 SAY "汽车配件供销存管理信息系统";
	FONT "宋体",26;
	Style "BIT";
	COLOR RGB (0,128,0,,,,)

@8.333,9.125 SAY "汽车配件供销存管理信息系统";
	FONT "宋体",26;
	Style "BIT";
	COLOR RGB (0,255,255,,,,)

@12,34 SAY "作者:宁晓波";
	FONT "宋体",12;
	Style "T";
	COLOR RGB (255,255,255,,,,)

Activate WINDOW amain

READ CYCLE MODA
Release WINDOW amain
Clos DATA
Clea ALL
QUIT

************!!!*********
	FUNC GXCMF
***********!!!**********
	PARA MIMO
	=SHOWMDE(0)
	DO CASE
	CASE MIMO=1
		SMXZ=SUBMENU([数据录入],1)
		DO CASE
		CASE SMXZ=1
			DO DMSR
		CASE SMXZ=2
			DO KCSR
		CASE SMXZ=3
			DO GRSR
		CASE SMXZ=4
			DO XSSR
		ENDC

	CASE MIMO=2
		SMXZ=SUBMENU([数据修改],2)
		DO CASE
		CASE SMXZ=1
			DO DMXG
		CASE SMXZ=2
			DO KCXG
		CASE SMXZ=3
			DO GRXG
		CASE SMXZ=4
			DO XSXG
		ENDC

	CASE MIMO=3
		SMXZ=SUBMENU([数据删除],3)
		DO CASE
		CASE SMXZ=1
			DO DMDE
		CASE SMXZ=2
			DO KCDE
		CASE SMXZ=3
			DO GRDE
		CASE SMXZ=4
			DO XSDE
		ENDC

	CASE MIMO=4
		SMXZ=SUBMENU([数据查询],4)
		DO CASE
		CASE SMXZ=1
			DO DMDIS
		CASE SMXZ=2
			DO KCDIS
		CASE SMXZ=3
			DO GRDIS
		CASE SMXZ=4
			DO XSDIS
		ENDC

	CASE MIMO = 5
		DO BBSC
	CASE MIMO = 6
		DO SJGX
	CASE MIMO = 7
		DO TJFX
	CASE MIMO = 8
		DO BFQC
	CASE MIMO = 9
		Clea READ
	ENDC

	IF MIMO<>9
		=SHOWMDE(1)
	ENDI
	RETU.T.
********!!!!************
	FUNC SHOWMDE
********!!!!************
	PARA SEDIM
	IF SEDIM>0.5
		Show GET mbut1 ENAB
		Show GET MBUT2 ENAB
	ELSE
		Show GET mbut1 DISA
		Show GET MBUT2 DISA
	ENDI
	RETU

******!!!!*********
	PROC KEYCLEA
******!!!!*********
	ON KEY LABE F1 CLEA TYPE
	ON KEY LABE F1 CLEA TYPE
	ON KEY LABE F2 CLEA TYPE
	ON KEY LABE F3 CLEA TYPE
	ON KEY LABE F4 CLEA TYPE
	ON KEY LABE F5 CLEA TYPE
	ON KEY LABE F6 CLEA TYPE
	ON KEY LABE F7 CLEA TYPE
	ON KEY LABE F8 CLEA TYPE
	ON KEY LABE F9 CLEA TYPE
	ON KEY LABE F10 CLEA TYPE
	ON KEY LABE F11 CLEA TYPE
	ON KEY LABE F12 CLEA TYPE
	RETU