main.prg

这是一个去年做的电大毕业设计,可能还不太完善,但基本功能有,

**************************************************
*-- 类:           main (e:\yh\user.vcx)
*-- 父类:  form
*-- 基类:    form
*
DEFINE CLASS main AS form


	Top = 0
	Left = 0
	Height = 574
	Width = 802
	ShowWindow = 0
	DoCreate = .T.
	Caption = "Form1"
	Closable = .F.
	MaxButton = .F.
	TitleBar = 0
	WindowState = 2
	Name = "Form1"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 0, ;
		Left = 0, ;
		Height = 29, ;
		Width = 114, ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 16, ;
		Caption = "进货管理", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command1"


	ADD OBJECT command2 AS commandbutton WITH ;
		Top = 0, ;
		Left = 113, ;
		Height = 29, ;
		Width = 110, ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 16, ;
		Caption = "进货查询", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command2"


	ADD OBJECT command3 AS commandbutton WITH ;
		Top = 0, ;
		Left = 222, ;
		Height = 29, ;
		Width = 110, ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 16, ;
		Caption = "销售管理", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command3"


	ADD OBJECT command4 AS commandbutton WITH ;
		Top = 0, ;
		Left = 331, ;
		Height = 29, ;
		Width = 117, ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 16, ;
		Caption = "销货查询", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command4"


	ADD OBJECT command5 AS commandbutton WITH ;
		Top = 0, ;
		Left = 447, ;
		Height = 29, ;
		Width = 119, ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 16, ;
		Caption = "库存管理", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command5"


	ADD OBJECT command6 AS commandbutton WITH ;
		Top = 0, ;
		Left = 565, ;
		Height = 29, ;
		Width = 113, ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 16, ;
		Caption = "系统维护", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command6"


	ADD OBJECT command7 AS commandbutton WITH ;
		Top = 0, ;
		Left = 677, ;
		Height = 29, ;
		Width = 116, ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 16, ;
		Caption = "退出系统", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command7"


	ADD OBJECT container1 AS container WITH ;
		Top = 133, ;
		Left = 134, ;
		Width = 480, ;
		Height = 239, ;
		SpecialEffect = 0, ;
		TabIndex = 4, ;
		Name = "Container1"


	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontItalic = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 36, ;
		Caption = "商品进销存管理系统", ;
		Height = 57, ;
		Left = 148, ;
		Top = 183, ;
		Width = 444, ;
		ForeColor = RGB(255,255,255), ;
		Name = "Label1"


	ADD OBJECT label3 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontItalic = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 36, ;
		BackStyle = 0, ;
		Caption = "商品进销存管理系统", ;
		Height = 57, ;
		Left = 147, ;
		Top = 180, ;
		Width = 444, ;
		ForeColor = RGB(255,0,0), ;
		Name = "Label3"


	ADD OBJECT label2 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "黑体", ;
		FontSize = 17, ;
		Caption = "版权所有,不得非法拷贝", ;
		Height = 28, ;
		Left = 263, ;
		Top = 276, ;
		Width = 256, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label2"


	ADD OBJECT label4 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "宋体", ;
		FontSize = 14, ;
		Caption = "1997-2000", ;
		Height = 24, ;
		Left = 446, ;
		Top = 324, ;
		Width = 102, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label4"


	PROCEDURE Unload
		clear event
	ENDPROC


	PROCEDURE command1.Click
		DO FORM JH1
	ENDPROC


	PROCEDURE command1.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC


	PROCEDURE command2.Click
		DO FORM JH2
	ENDPROC


	PROCEDURE command2.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC


	PROCEDURE command3.Click
		DO FORM JH3
	ENDPROC


	PROCEDURE command3.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC


	PROCEDURE command4.Click
		DO FORM JH4
	ENDPROC


	PROCEDURE command4.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC


	PROCEDURE command5.Click
		DO FORM JH5
	ENDPROC


	PROCEDURE command5.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC


	PROCEDURE command6.Click
		do form jh6
	ENDPROC


	PROCEDURE command6.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC


	PROCEDURE command7.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC


	PROCEDURE command7.Click
		THISFORM.RELEASE
	ENDPROC


ENDDEFINE
*
*-- 结束定义: main
**************************************************