main.prg

客户管理系统所有文件（数据表、表单、报表以及.exe文件等）。

	ENDPROC
	PROCEDURE optiongroup1.Option2.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE optiongroup2.Option1.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE optiongroup2.Option2.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE combo1.LostFocus
		select LX
		locate for alltrim(LX)==alltrim(this.text)
		if !found()
		   select KH
		   repl LX with this.text
		   if messagebox("输入的新类型,添加到类型表中吗?",48+4,"信息提示")=6
		      select LX
		      append blank
		      repl LX with this.text
		   endif
		endif
		select KH
	ENDPROC
	PROCEDURE combo2.LostFocus
		select ZW
		locate for alltrim(ZW)==alltrim(this.text)
		if !found()
		   select KH
		   repl ZW with this.text
		   if messagebox("输入的新职务,添加到职务表中吗?",48+4,"信息提示")=6
		      select ZW
		      append blank
		      repl ZW with this.text
		   endif
		endif
		select KH
	ENDPROC
	PROCEDURE op1.Option1.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE op1.Option2.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE command1.Click
		SELECT KH
		EXPS=".T. "
		IF NOT EMPTY(THISFORM.PAGEFRAME1.PAGE2.TEXT1.VALUE)
		   EXPS=EXPS+" AND '"+ALLTRIM(THISFORM.PAGEFRAME1.PAGE2.TEXT1.VALUE)+"'$BH"
		ENDIF
		IF NOT EMPTY(THISFORM.PAGEFRAME1.PAGE2.TEXT2.VALUE)
		   EXPS=EXPS+" AND '"+ALLTRIM(THISFORM.PAGEFRAME1.PAGE2.TEXT2.VALUE)+"'$XM"
		ENDIF
		DO CASE 
		   CASE THISFORM.PAGEFRAME1.PAGE2.OP1.VALUE=1
		        EXPS=EXPS+" AND XB='男'"
		   CASE THISFORM.PAGEFRAME1.PAGE2.OP1.VALUE=2
		        EXPS=EXPS+" AND XB='女'"
		ENDCASE
		IF NOT EMPTY(THISFORM.PAGEFRAME1.PAGE2.COMBO1.VALUE)
		   EXPS=EXPS+" AND ZW='"+ALLTRIM(THISFORM.PAGEFRAME1.PAGE2.COMBO1.VALUE)+"'"
		ENDIF
		IF NOT EMPTY(THISFORM.PAGEFRAME1.PAGE2.COMBO2.VALUE)
		   EXPS=EXPS+" AND LX='"+ALLTRIM(THISFORM.PAGEFRAME1.PAGE2.COMBO2.VALUE)+"'"
		ENDIF
		IF !ALLTRIM(EXPS)==".T. "
		   SET FILTER TO &EXPS
		ENDIF
		COUNT TO REC
		IF REC=0
		   =MESSAGEBOX("指定的条件没有选中任何客户!",48,"信息提示")
		ENDIF
		GO TOP
		THISFORM.PAGEFRAME1.PAGE2.GRID1.REFRESH
	ENDPROC
	PROCEDURE command1.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE command2.Click
		THISFORM.PAGEFRAME1.PAGE2.TEXT1.VALUE=""
		THISFORM.PAGEFRAME1.PAGE2.TEXT2.VALUE=""
		THISFORM.PAGEFRAME1.PAGE2.OP1.VALUE=0
		THISFORM.PAGEFRAME1.PAGE2.COMBO1.VALUE=""
		THISFORM.PAGEFRAME1.PAGE2.COMBO2.VALUE=""
		THISFORM.PAGEFRAME1.PAGE2.TEXT1.SETFOCUS()
	ENDPROC
	PROCEDURE command2.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE grid1.DblClick
		REPL TAG WITH '√'
	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 KH
		SEL=THISFORM.PAGEFRAME1.PAGE2.OPTIONGROUP1.VALUE
		DO CASE
		   CASE SEL=1
		        INDEX ON BH TO TEMPIDX
		   CASE SEL=2
		        INDEX ON XM TO TEMPIDX
		   CASE SEL=3
		        INDEX ON XB TO TEMPIDX
		   CASE SEL=4
		        INDEX ON ZW TO TEMPIDX
		   CASE SEL=5
		        INDEX ON LX TO TEMPIDX
		   CASE SEL=6
		        INDEX ON DW TO TEMPIDX
		ENDCASE
		GO TOP
		THISFORM.PAGEFRAME1.PAGE2.GRID1.REFRESH
	ENDPROC
	PROCEDURE command3.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 KH
		RECBH=RECNO()
		COUNT TO REC
		IF REC=0
		   =MESSAGEBOX("没 有 选 择 的 客 户!",48,"信息提示")
		ELSE
		   REPL TAG WITH '√' ALL
		   GO RECBH
		ENDIF
	ENDPROC
	PROCEDURE commandgroup1.Command1.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE commandgroup1.Command2.Click
		SELECT KH
		RECBH=RECNO()
		COUNT TO REC
		IF REC=0
		   =MESSAGEBOX("没 有 选 择 的 客 户!",48,"信息提示")
		ELSE
		   REPL TAG WITH  SPACE(2) ALL
		   GO RECBH
		ENDIF
	ENDPROC
	PROCEDURE commandgroup1.Command2.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE commandgroup1.Command3.Click
		IF TAG='√'
		   REPL TAG WITH SPACE(2)
		ELSE
		   REPL TAG WITH '√'
		ENDIF
	ENDPROC
	PROCEDURE commandgroup1.Command3.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE command4.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE command4.Click
		SELECT KH
		RECBH=RECNO()
		COUNT TO ZS
		GO TOP
		IF ZS=0
		   =MESSAGEBOX("没有选择任何要打印的客户,不能打印!",48,"信息提示")
		   RETURN
		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 KH PREVIEW
		   ENDIF
		   SET FILTER TO &COND
		   GO RECBH
		ENDIF
	ENDPROC
	PROCEDURE optiongroup1.Option1.Click
		SELECT ZW
		GO TOP
		THISFORM.PAGEFRAME1.PAGE3.REFRESH
	ENDPROC
	PROCEDURE optiongroup1.Option1.GotFocus
		THISFORM.PAGEFRAME1.PAGE3.GRID1.VISIBLE=.T.
		THISFORM.PAGEFRAME1.PAGE3.COMMANDGROUP1.VISIBLE=.T.
		THISFORM.PAGEFRAME1.PAGE3.GRID2.VISIBLE=.F.
		THISFORM.PAGEFRAME1.PAGE3.COMMANDGROUP2.VISIBLE=.F.
		THISFORM.PAGEFRAME1.PAGE3.CONTAINER1.VISIBLE=.F.
	ENDPROC
	PROCEDURE optiongroup1.Option1.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE optiongroup1.Option2.Click
		SELECT LX
		GO TOP
		THISFORM.PAGEFRAME1.PAGE3.REFRESH
	ENDPROC
	PROCEDURE optiongroup1.Option2.GotFocus
		THISFORM.PAGEFRAME1.PAGE3.GRID1.VISIBLE=.F.
		THISFORM.PAGEFRAME1.PAGE3.COMMANDGROUP1.VISIBLE=.F.
		THISFORM.PAGEFRAME1.PAGE3.GRID2.VISIBLE=.T.
		THISFORM.PAGEFRAME1.PAGE3.COMMANDGROUP2.VISIBLE=.T.
		THISFORM.PAGEFRAME1.PAGE3.CONTAINER1.VISIBLE=.F.
	ENDPROC
	PROCEDURE optiongroup1.Option2.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE optiongroup1.Option3.Click
		??CHR(7)
		IF MESSAGEBOX("真的进行系统初始化,删除所有的数据!",48+4,"提示信息")=6
		   SELECT KH
		   ZAP
		   SELECT LX
		   ZAP
		   SELECT ZW
		   ZAP
		   =MESSAGEBOX("系统初始化过程己完成!",48,"信息提示")
		ENDIF
	ENDPROC
	PROCEDURE optiongroup1.Option3.GotFocus
		THISFORM.PAGEFRAME1.PAGE3.GRID1.VISIBLE=.F.
		THISFORM.PAGEFRAME1.PAGE3.COMMANDGROUP1.VISIBLE=.F.
		THISFORM.PAGEFRAME1.PAGE3.GRID2.VISIBLE=.F.
		THISFORM.PAGEFRAME1.PAGE3.COMMANDGROUP2.VISIBLE=.F.
		THISFORM.PAGEFRAME1.PAGE3.CONTAINER1.VISIBLE=.F.
	ENDPROC
	PROCEDURE optiongroup1.Option3.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE optiongroup1.Option4.GotFocus
		THISFORM.PAGEFRAME1.PAGE3.GRID1.VISIBLE=.F.
		THISFORM.PAGEFRAME1.PAGE3.COMMANDGROUP1.VISIBLE=.F.
		THISFORM.PAGEFRAME1.PAGE3.GRID2.VISIBLE=.F.
		THISFORM.PAGEFRAME1.PAGE3.COMMANDGROUP2.VISIBLE=.F.
		THISFORM.PAGEFRAME1.PAGE3.CONTAINER1.VISIBLE=.T.
	ENDPROC
	PROCEDURE optiongroup1.Option4.Click
		RESTORE FROM PASS ADDITIVE
		THISFORM.PAGEFRAME1.PAGE3.CONTAINER1.TEXT1.VALUE=PASS
		THISFORM.PAGEFRAME1.PAGE3.CONTAINER1.TEXT2.VALUE=SPACE(10)
	ENDPROC
	PROCEDURE optiongroup1.Option4.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE optiongroup1.Option5.Click
		IF THISFORM.TESTA()=.F.
		    =MESSAGEBOX("请将要一张空白软盘插入到A驱动器中后再选择本选项",48,"提示信息")
		    RETURN
		ENDIF
		SELECT KH
		IF RECC()>0
		   SELECT KH
		   COPY TO A:KH
		   =MESSAGEBOX("本系统所有客户记录转出完毕!",48,"信息提示")
		ELSE
		   =MESSAGEBOX("没有任何进客户记录,不能转出",48,"信息提示")
		ENDIF
	ENDPROC
	PROCEDURE optiongroup1.Option5.GotFocus
		THISFORM.PAGEFRAME1.PAGE3.GRID1.VISIBLE=.F.
		THISFORM.PAGEFRAME1.PAGE3.COMMANDGROUP1.VISIBLE=.F.
		THISFORM.PAGEFRAME1.PAGE3.GRID2.VISIBLE=.F.
		THISFORM.PAGEFRAME1.PAGE3.COMMANDGROUP2.VISIBLE=.F.
		THISFORM.PAGEFRAME1.PAGE3.CONTAINER1.VISIBLE=.F.
	ENDPROC
	PROCEDURE optiongroup1.Option5.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE optiongroup1.Option6.Click
		IF THISFORM.TESTA()=.F.
		    =MESSAGEBOX("请将要转入数据的软盘插入到A驱动器中后再选择本选项",48,"提示信息")
		    RETURN
		ENDIF
		H=FOPEN("A:KH.DBF")
		IF (H=-1)
		    =MESSAGEBOX("你的软盘不包含要转入的数据,请插入正确的软盘后再选择本选项",48,"提示信息")
		    RETURN
		ENDIF
		=FCLOSE(H)
		CURPATH=SYS(5)+SYS(2003)
		SET DEFA TO A:
		USE KH IN 0 ALIAS AKH
		SELECT AKH
		SET DEFA TO (CURPATH)
		GO TOP
		DO WHILE .NOT.EOF()
		   BHNO=BH
		   SCAT TO AREC
		   SELECT KH
		   LOCATE FOR BH=BHNO
		   IF !FOUND()
		      APPEND BLANK
		      GATHER FROM AREC
		   ENDIF
		   SELECT AKH
		   SKIP
		ENDDO
		USE IN AKH
		=MESSAGEBOX("客 户 数  据  转  入  完  毕 !",48+0,"信息提示")
	ENDPROC
	PROCEDURE optiongroup1.Option6.GotFocus
		THISFORM.PAGEFRAME1.PAGE3.GRID1.VISIBLE=.F.
		THISFORM.PAGEFRAME1.PAGE3.COMMANDGROUP1.VISIBLE=.F.
		THISFORM.PAGEFRAME1.PAGE3.GRID2.VISIBLE=.F.
		THISFORM.PAGEFRAME1.PAGE3.COMMANDGROUP2.VISIBLE=.F.
		THISFORM.PAGEFRAME1.PAGE3.CONTAINER1.VISIBLE=.F.
	ENDPROC
	PROCEDURE optiongroup1.Option6.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE optiongroup1.Option7.GotFocus
		THISFORM.PAGEFRAME1.PAGE3.GRID1.VISIBLE=.F.
		THISFORM.PAGEFRAME1.PAGE3.COMMANDGROUP1.VISIBLE=.F.
		THISFORM.PAGEFRAME1.PAGE3.GRID2.VISIBLE=.F.
		THISFORM.PAGEFRAME1.PAGE3.COMMANDGROUP2.VISIBLE=.F.
		THISFORM.PAGEFRAME1.PAGE3.CONTAINER1.VISIBLE=.F.
	ENDPROC
	PROCEDURE optiongroup1.Option7.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE optiongroup1.Option7.Click
		IF MESSAGEBOX("重新将所有客户从头到尾重新编号,真的进行吗?",48+4,"信息提示")=6
		   SELECT KH
		   REPL BH WITH STR(RECNO(),9) ALL
		   GO TOP
		ENDIF
	ENDPROC
	PROCEDURE commandgroup1.Command1.Click
		SELECT ZW
		APPEND BLANK
		THISFORM.PAGEFRAME1.PAGE3.GRID1.REFRESH
		THISFORM.PAGEFRAME1.PAGE3.GRID1.COLUMN1.SETFOCUS
	ENDPROC
	PROCEDURE commandgroup1.Command1.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE commandgroup1.Command2.Click
		IF MESSAGEBOX("记录一旦删除,便不能恢复,真的要删除吗?",48+4,"信息提示")=6
		   SELECT ZW
		   DELETE
		   THISFORM.PAGEFRAME1.PAGE3.GRID1.REFRESH
		ENDIF
		THISFORM.PAGEFRAME1.PAGE3.GRID1.COLUMN1.SETFOCUS
	ENDPROC
	PROCEDURE commandgroup1.Command2.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE commandgroup2.Command1.Click
		SELECT LX
		APPEND BLANK
		THISFORM.PAGEFRAME1.PAGE3.GRID2.REFRESH
		THISFORM.PAGEFRAME1.PAGE3.GRID2.COLUMN1.SETFOCUS
	ENDPROC
	PROCEDURE commandgroup2.Command1.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE commandgroup2.Command2.Click
		IF MESSAGEBOX("记录一旦删除,便不能恢复,真的要删除吗?",48+4,"信息提示")=6
		   SELECT LX
		   DELETE
		   THISFORM.PAGEFRAME1.PAGE3.GRID2.REFRESH
		ENDIF
		THISFORM.PAGEFRAME1.PAGE3.GRID2.COLUMN1.SETFOCUS
	ENDPROC
	PROCEDURE commandgroup2.Command2.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE command1.Click
		PASS=THISFORM.PAGEFRAME1.PAGE3.CONTAINER1.TEXT2.VALUE
		SAVE TO PASS ALL LIKE PASS
	ENDPROC
	PROCEDURE command1.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE command2.MouseMov