jh4.prg

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

		Name = "Header1"


	ADD OBJECT jh4.grid2.column4.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ReadOnly = .T., ;
		Visible = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT jh4.grid2.column5.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "未收余额", ;
		Name = "Header1"


	ADD OBJECT jh4.grid2.column5.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ReadOnly = .T., ;
		Visible = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT jh4.grid2.column6.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "说  明", ;
		Name = "Header1"


	ADD OBJECT jh4.grid2.column6.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ReadOnly = .T., ;
		Visible = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT optiongroup1 AS optiongroup WITH ;
		ButtonCount = 6, ;
		Value = 1, ;
		Height = 60, ;
		Left = 77, ;
		Top = 354, ;
		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 label2 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 12, ;
		Caption = "排序方式=>", ;
		Height = 20, ;
		Left = 91, ;
		Top = 349, ;
		Width = 89, ;
		ForeColor = RGB(128,0,255), ;
		Name = "Label2"


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


	ADD OBJECT command4 AS commandbutton WITH ;
		Top = 348, ;
		Left = 546, ;
		Height = 37, ;
		Width = 116, ;
		FontBold = .T., ;
		FontSize = 11, ;
		Caption = "打印销货资金表", ;
		ForeColor = RGB(255,0,128), ;
		Name = "Command4"


	ADD OBJECT commandgroup1 AS commandgroup WITH ;
		ButtonCount = 3, ;
		Value = 1, ;
		Height = 101, ;
		Left = 435, ;
		Top = 336, ;
		Width = 95, ;
		Name = "Commandgroup1", ;
		Command1.Top = 6, ;
		Command1.Left = 5, ;
		Command1.Height = 30, ;
		Command1.Width = 86, ;
		Command1.FontBold = .T., ;
		Command1.FontSize = 11, ;
		Command1.Caption = "全部选定", ;
		Command1.ForeColor = RGB(255,0,128), ;
		Command1.Name = "Command1", ;
		Command2.Top = 36, ;
		Command2.Left = 5, ;
		Command2.Height = 30, ;
		Command2.Width = 86, ;
		Command2.FontBold = .T., ;
		Command2.FontSize = 11, ;
		Command2.Caption = "全部取消", ;
		Command2.ForeColor = RGB(255,0,128), ;
		Command2.Name = "Command2", ;
		Command3.Top = 66, ;
		Command3.Left = 5, ;
		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 command5 AS commandbutton WITH ;
		Top = 372, ;
		Left = 672, ;
		Height = 39, ;
		Width = 73, ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 16, ;
		Caption = "返回", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command5"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 6, ;
		Left = 17, ;
		Height = 33, ;
		Width = 113, ;
		FontBold = .T., ;
		FontSize = 11, ;
		Caption = "查找销货单", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command1"


	PROCEDURE Init
		THISFORM.OPTIONGROUP1.VALUE=0
	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.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC


	PROCEDURE command3.Click
		SELECT JH1
		SEL=THISFORM.OPTIONGROUP1.VALUE
		DO CASE
		   CASE SEL=1
		        INDEX ON NO+STR(NO1) 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 command4.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC


	PROCEDURE command4.Click
		SELECT JH1
		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 JH1 PREVIEW
		   ENDIF
		   SET FILTER TO &COND
		   GO RECBH
		ENDIF
	ENDPROC


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


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


	PROCEDURE commandgroup1.Command1.Click
		SELECT JH1
		RECBH=RECNO()
		COUNT TO REC
		IF REC=0
		   =MESSAGEBOX("没 有 选 择 的 进 货 记 录!",48,"信息提示")
		ELSE
		   REPL TAG WITH '√' 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.Command2.Click
		SELECT JH1
		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.Command3.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC


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


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


	PROCEDURE command5.Click
		close data
		THISFORM.RELEASE
	ENDPROC


	PROCEDURE command1.Click
		public fchar(12),fname(12),ftype(12)
		fchar(1)="进货编号"
		fname(1)="no"
		ftype(1)="C"
		fchar(2)="销售编号"
		fname(2)="no1"
		ftype(2)="N"
		fchar(3)="销货日期"
		fname(3)="rq"
		ftype(3)="D"
		fchar(4)="发货单位"
		fname(4)="dw"
		ftype(4)="C"
		fchar(5)="品名"
		fname(5)="mc"
		ftype(5)="C"
		fchar(6)="单价"
		fname(6)="dj"
		ftype(6)="N"
		fchar(7)="数量"
		fname(7)="sl"
		ftype(7)="N"
		fchar(8)="金额"
		fname(8)="jr"
		ftype(8)="N"
		fchar(9)="未收金额"
		fname(9)="yr"
		ftype(9)="N"
		fchar(10)="经办人"
		fname(10)="jbr"
		ftype(10)="C"
		fchar(11)="保管人"
		fname(11)="bgr"
		ftype(11)="C"
		fchar(12)="收货人"
		fname(12)="shr"
		ftype(12)="C"
		do form jh12
		thisform.refresh
	ENDPROC


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