jh5.prg

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

		Height = 60, ;
		Left = 259, ;
		Top = 364, ;
		Width = 254, ;
		Name = "Optiongroup1", ;
		Option1.FontBold = .T., ;
		Option1.FontSize = 11, ;
		Option1.Caption = "序号", ;
		Option1.Value = 1, ;
		Option1.Height = 16, ;
		Option1.Left = 12, ;
		Option1.Top = 17, ;
		Option1.Width = 63, ;
		Option1.ForeColor = RGB(255,0,0), ;
		Option1.Name = "Option1", ;
		Option2.FontBold = .T., ;
		Option2.FontSize = 11, ;
		Option2.Caption = "日期", ;
		Option2.Height = 16, ;
		Option2.Left = 82, ;
		Option2.Top = 17, ;
		Option2.Width = 63, ;
		Option2.ForeColor = RGB(255,0,0), ;
		Option2.Name = "Option2", ;
		Option3.FontBold = .T., ;
		Option3.FontSize = 11, ;
		Option3.Caption = "供货单位", ;
		Option3.Height = 16, ;
		Option3.Left = 156, ;
		Option3.Top = 18, ;
		Option3.Width = 98, ;
		Option3.ForeColor = RGB(255,0,0), ;
		Option3.Name = "Option3", ;
		Option4.FontBold = .T., ;
		Option4.FontSize = 11, ;
		Option4.Caption = "品名", ;
		Option4.Height = 16, ;
		Option4.Left = 12, ;
		Option4.Top = 38, ;
		Option4.Width = 63, ;
		Option4.ForeColor = RGB(255,0,0), ;
		Option4.Name = "Option4", ;
		Option5.FontBold = .T., ;
		Option5.FontSize = 11, ;
		Option5.Caption = "型号", ;
		Option5.Height = 16, ;
		Option5.Left = 83, ;
		Option5.Top = 40, ;
		Option5.Width = 63, ;
		Option5.ForeColor = RGB(255,0,0), ;
		Option5.Name = "Option5", ;
		Option6.FontBold = .T., ;
		Option6.FontSize = 11, ;
		Option6.Caption = "经 办 人", ;
		Option6.Height = 16, ;
		Option6.Left = 156, ;
		Option6.Top = 41, ;
		Option6.Width = 98, ;
		Option6.ForeColor = RGB(255,0,0), ;
		Option6.Name = "Option6"


	ADD OBJECT command3 AS commandbutton WITH ;
		Top = 369, ;
		Left = 518, ;
		Height = 37, ;
		Width = 72, ;
		FontBold = .T., ;
		FontSize = 11, ;
		Caption = "排序确认", ;
		ForeColor = RGB(255,0,128), ;
		Name = "Command3"


	ADD OBJECT command4 AS commandbutton WITH ;
		Top = 369, ;
		Left = 612, ;
		Height = 37, ;
		Width = 119, ;
		FontBold = .T., ;
		FontSize = 11, ;
		Caption = "打印商品库存表", ;
		ForeColor = RGB(255,0,128), ;
		Name = "Command4"


	ADD OBJECT commandgroup1 AS commandgroup WITH ;
		ButtonCount = 3, ;
		Value = 1, ;
		Height = 48, ;
		Left = 11, ;
		Top = 370, ;
		Width = 240, ;
		Name = "Commandgroup1", ;
		Command1.Top = 11, ;
		Command1.Left = 4, ;
		Command1.Height = 30, ;
		Command1.Width = 75, ;
		Command1.FontBold = .T., ;
		Command1.FontSize = 11, ;
		Command1.Caption = "全部选定", ;
		Command1.ForeColor = RGB(255,0,128), ;
		Command1.Name = "Command1", ;
		Command2.Top = 11, ;
		Command2.Left = 78, ;
		Command2.Height = 30, ;
		Command2.Width = 75, ;
		Command2.FontBold = .T., ;
		Command2.FontSize = 11, ;
		Command2.Caption = "全部取消", ;
		Command2.ForeColor = RGB(255,0,128), ;
		Command2.Name = "Command2", ;
		Command3.Top = 11, ;
		Command3.Left = 152, ;
		Command3.Height = 30, ;
		Command3.Width = 86, ;
		Command3.FontBold = .T., ;
		Command3.FontSize = 11, ;
		Command3.Caption = "选择或取消", ;
		Command3.ForeColor = RGB(255,0,128), ;
		Command3.Name = "Command3"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 413, ;
		Left = 695, ;
		Height = 39, ;
		Width = 73, ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 16, ;
		Caption = "返回", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command1"


	PROCEDURE command5.Click
		??CHR(7)
		IF MESSAGEBOX("是否确定离开?",4+32,"提示信息")=6
		    THISFORM.RELEASE()
		    CLEAR EVENTS
		ENDIF
	ENDPROC


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


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


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


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


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


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


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


	PROCEDURE command3.Click
		SELECT JH
		SEL=THISFORM.OPTIONGROUP1.VALUE
		DO CASE
		   CASE SEL=1
		        INDEX ON NO TO TEMPIDX
		   CASE SEL=2
		        INDEX ON RQ TO TEMPIDX
		   CASE SEL=3
		        INDEX ON DW TO TEMPIDX
		   CASE SEL=4
		        INDEX ON MC TO TEMPIDX
		   CASE SEL=5
		        INDEX ON XH TO TEMPIDX
		   CASE SEL=6
		        INDEX ON JBR TO TEMPIDX
		ENDCASE
		GO TOP
		THISFORM.GRID1.REFRESH

		        
		        
		           
	ENDPROC


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


	PROCEDURE command4.Click
		SELECT JH
		RECBH=RECNO()
		COUNT TO ZS
		IF ZS=0
		   =MESSAGEBOX("没有选择任何要打印的商品记录,不能打印!",48,"信息提示")
		ELSE
		   COND=FILTER()
		   IF EMPTY(COND)
		      COND=".T."
		   ENDIF
		   SET FILTER TO !EMPTY(TAG) AND &COND
		   COUNT TO REC
		   IF REC=0
		      =MESSAGEBOX("没有选择任何要打印的商品记录,不能打印!",48,"信息提示")
		   ELSE
		      REPORT FORM JH2 PREVIEW
		   ENDIF
		   SET FILTER TO &COND
		   GO RECBH
		ENDIF
	ENDPROC


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


	PROCEDURE commandgroup1.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
	ENDPROC


	PROCEDURE commandgroup1.Command1.Click
		SELECT JH
		RECBH=RECNO()
		COUNT TO REC
		IF REC=0
		   =MESSAGEBOX("没 有 选 择 的 进 货 记 录!",48,"信息提示")
		ELSE
		   REPL TAG WITH '√' ALL
		   GO RECBH
		ENDIF
		THISFORM.REFRESH
	ENDPROC


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


	PROCEDURE commandgroup1.Command2.Click
		SELECT JH
		RECBH=RECNO()
		COUNT TO REC
		IF REC=0
		   =MESSAGEBOX("没 有 选 择 的 进 货 记 录!",48,"信息提示")
		ELSE
		   REPL TAG WITH  SPACE(2) ALL
		   GO RECBH
		ENDIF
		THISFORM.REFRESH
	ENDPROC


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


	PROCEDURE commandgroup1.Command3.Click
		SELECT JH
		IF TAG='√'
		   REPL TAG WITH SPACE(2)
		ELSE
		   REPL TAG WITH '√'
		ENDIF
		THISFORM.REFRESH
	ENDPROC


	PROCEDURE commandgroup1.Command3.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
*
*-- 结束定义: jh5
**************************************************