jh6.prg

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

		Name = "Command1"


	PROCEDURE testa
		ok=.T.
		oldp=sys(5)+sys(2003)
		on error ok=.F.
		set defa to a:
		set defa to &oldp
		return ok
	ENDPROC


	PROCEDURE Init
		THISFORM.GRID1.VISIBLE=.F.
		THISFORM.GRID2.VISIBLE=.F.
		THISFORM.GRID3.VISIBLE=.F.
		THISFORM.COMMANDGROUP1.VISIBLE=.F.
		THISFORM.COMMANDGROUP2.VISIBLE=.F.
		THISFORM.COMMANDGROUP3.VISIBLE=.F.
		THISFORM.CONTAINER1.VISIBLE=.F.
		THISFORM.OPTIONGROUP1.VALUE=1
	ENDPROC


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


	PROCEDURE optiongroup1.Option1.GotFocus
		THISFORM.GRID1.VISIBLE=.T.
		THISFORM.GRID2.VISIBLE=.F.
		THISFORM.GRID3.VISIBLE=.F.
		THISFORM.COMMANDGROUP1.VISIBLE=.T.
		THISFORM.COMMANDGROUP2.VISIBLE=.F.
		THISFORM.COMMANDGROUP3.VISIBLE=.F.
		THISFORM.CONTAINER1.VISIBLE=.F.
	ENDPROC


	PROCEDURE optiongroup1.Option1.Click
		SELECT DWB
	ENDPROC


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


	PROCEDURE optiongroup1.Option2.GotFocus
		THISFORM.GRID1.VISIBLE=.F.
		THISFORM.GRID2.VISIBLE=.T.
		THISFORM.GRID3.VISIBLE=.F.
		THISFORM.COMMANDGROUP1.VISIBLE=.F.
		THISFORM.COMMANDGROUP2.VISIBLE=.T.
		THISFORM.COMMANDGROUP3.VISIBLE=.F.
		THISFORM.CONTAINER1.VISIBLE=.F.
	ENDPROC


	PROCEDURE optiongroup1.Option2.Click
		SELECT MCB
		GO TOP
	ENDPROC


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


	PROCEDURE optiongroup1.Option3.GotFocus
		THISFORM.GRID1.VISIBLE=.F.
		THISFORM.GRID2.VISIBLE=.F.
		THISFORM.GRID3.VISIBLE=.F.
		THISFORM.COMMANDGROUP1.VISIBLE=.F.
		THISFORM.COMMANDGROUP2.VISIBLE=.F.
		THISFORM.COMMANDGROUP3.VISIBLE=.F.
		THISFORM.CONTAINER1.VISIBLE=.F.
	ENDPROC


	PROCEDURE optiongroup1.Option3.Click
		??chr(7)
		if messagebox("真的进行系统初始化,删除所有的数据!",4+32,"提示信息")=6
		   use jh in 0
		   select jh
		   delete all
		   use in jh
		   use jh1 in 0
		   select jh1
		   delete all
		   use in jh1 
		   use fk in 0
		   select fk
		   delete all
		   use in fk
		   use fk1 in 0
		   select fk1
		   delete all
		   use in fk1
		   select dwb
		   delete all
		   select jbrb
		   delete all
		   select mcb
		   delete all
		   =messagebox("系统初始化过程己完成!",48,"信息提示")
		endif
	ENDPROC


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


	PROCEDURE optiongroup1.Option4.Click
		RESTORE FROM PASS ADDITIVE
		THISFORM.CONTAINER1.TEXT1.VALUE=PASS
		THISFORM.CONTAINER1.TEXT2.VALUE=space(10)
	ENDPROC


	PROCEDURE optiongroup1.Option4.GotFocus
		THISFORM.GRID1.VISIBLE=.F.
		THISFORM.GRID2.VISIBLE=.F.
		THISFORM.GRID3.VISIBLE=.F.
		THISFORM.COMMANDGROUP1.VISIBLE=.F.
		THISFORM.COMMANDGROUP2.VISIBLE=.F.
		THISFORM.COMMANDGROUP3.VISIBLE=.F.
		THISFORM.CONTAINER1.VISIBLE=.T.
	ENDPROC


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


	PROCEDURE optiongroup1.Option5.GotFocus
		THISFORM.GRID1.VISIBLE=.F.
		THISFORM.GRID2.VISIBLE=.F.
		THISFORM.GRID3.VISIBLE=.F.
		THISFORM.COMMANDGROUP1.VISIBLE=.F.
		THISFORM.COMMANDGROUP2.VISIBLE=.F.
		THISFORM.COMMANDGROUP3.VISIBLE=.F.
		THISFORM.CONTAINER1.VISIBLE=.F.
	ENDPROC


	PROCEDURE optiongroup1.Option5.Click
		if thisform.testa()=.F.
		    =messagebox("请将要一张空白软盘插入到A驱动器中后再选择本选项",48,"提示信息")
		    return
		endif
		use jh in 0
		select jh
		if recc()>0
		   copy to a:jh
		   use in jh
		   use jh1 in 0
		   select jh1
		   copy to a:jh1
		   use in jh1
		   use fk in 0
		   select fk
		   copy to a:fk
		   use in fk
		   use fk1 in 0
		   select fk1
		   copy to a:fk1
		   use in fk1
		   =messagebox("数  据  转  出  完  毕!",48,"信息提示")
		else
		   use in jh
		   =messagebox("没有任何进货记录,不能转出",48,"信息提示")
		endif
	ENDPROC


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


	PROCEDURE optiongroup1.Option6.GotFocus
		THISFORM.GRID1.VISIBLE=.F.
		THISFORM.GRID2.VISIBLE=.F.
		THISFORM.GRID3.VISIBLE=.F.
		THISFORM.COMMANDGROUP1.VISIBLE=.F.
		THISFORM.COMMANDGROUP2.VISIBLE=.F.
		THISFORM.COMMANDGROUP3.VISIBLE=.F.
		THISFORM.CONTAINER1.VISIBLE=.F.
	ENDPROC


	PROCEDURE optiongroup1.Option6.Click
		if thisform.testa()=.F.
		    =messagebox("请将要转入数据的软盘插入到A驱动器中后再选择本选项",48,"提示信息")
		    return
		endif
		h=fopen("a:jh.dbf")
		if (h=-1)
		    =messagebox("你的软盘不包含要转入的数据,请插入正确的软盘后再选择本选项",48,"提示信息")
		    return
		endif
		=fclose(h)
		curpath=sys(5)+sys(2003)
		set defa to a:
		use jh in 0
		select jh
		go top
		bhno=no
		use in jh
		set defau to (curpath)
		use jh in 0
		select jh
		locate for no=bhno
		if found()
		   =messagebox("已知转入或者存在重复的进货编号,不能进行转入!",48,"信息提示")
		   use in jh
		   return
		endif
		select jh
		append from a:jh
		use in jh
		use jh1 in 0
		select jh1
		append from a:jh1
		use in jh1
		use fk in 0
		select fk
		append from a:fk
		use in fk
		use fk1 in 0
		select fk1
		append from a:fk1
		use in fk1
		=messagebox("数  据  转  入  完  毕 !",48+0,"信息提示")
	ENDPROC


	PROCEDURE optiongroup1.Option7.Click
		SELECT JBRB
		GO TOP
	ENDPROC


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


	PROCEDURE optiongroup1.Option7.GotFocus
		THISFORM.GRID1.VISIBLE=.F.
		THISFORM.GRID2.VISIBLE=.F.
		THISFORM.GRID3.VISIBLE=.T.
		THISFORM.COMMANDGROUP1.VISIBLE=.F.
		THISFORM.COMMANDGROUP2.VISIBLE=.F.
		THISFORM.COMMANDGROUP3.VISIBLE=.T.
		THISFORM.CONTAINER1.VISIBLE=.F.
	ENDPROC


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


	PROCEDURE commandgroup1.Command1.Click
		SELECT DWB
		APPEND BLANK
		THISFORM.GRID1.REFRESH
		THISFORM.GRID1.COLUMN1.SETFOCUS
	ENDPROC


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


	PROCEDURE commandgroup1.Command2.Click
		if messagebox("记录一旦删除,便不能恢复,真的删除吗?",48+4,"信息提示")=6
		   select dwb
		   delete
		   thisform.grid1.refresh
		   thisform.grid1.column1.setfocus
		endif
	ENDPROC


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


	PROCEDURE commandgroup2.Command1.Click
		SELECT MCB
		APPEND BLANK
		THISFORM.GRID2.REFRESH
		THISFORM.GRID2.COLUMN1.SETFOCUS
	ENDPROC


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


	PROCEDURE commandgroup2.Command2.Click
		if messagebox("记录一旦删除,便不能恢复,真的删除吗?",48+4,"信息提示")=6
		   select mcb
		   delete
		   thisform.grid2.refresh
		   thisform.grid2.column1.setfocus
		endif
	ENDPROC


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


	PROCEDURE command1.Click
		PASS=THISFORM.CONTAINER1.TEXT2.VALUE
		SAVE TO PASS ALL LIKE PASS
	ENDPROC


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


	PROCEDURE commandgroup3.Command1.Click
		SELECT JBRB
		APPEND BLANK
		THISFORM.GRID3.REFRESH
		THISFORM.GRID3.COLUMN1.SETFOCUS
	ENDPROC


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


	PROCEDURE commandgroup3.Command2.Click
		if messagebox("记录一旦删除,便不能恢复,真的删除吗?",48+4,"信息提示")=6
		   select jbrb
		   delete
		   thisform.grid3.refresh
		   thisform.grid3.column1.setfocus
		endif
	ENDPROC


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


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


	PROCEDURE command1.Click
		close data
		THISFORM.RELEASE
	ENDPROC


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