main.prg

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

		Option5.FontBold = .T., ;
		Option5.FontName = "楷体_GB2312", ;
		Option5.FontSize = 14, ;
		Option5.Caption = "客户数据转出", ;
		Option5.Height = 24, ;
		Option5.Left = 19, ;
		Option5.Top = 129, ;
		Option5.Width = 154, ;
		Option5.AutoSize = .T., ;
		Option5.ForeColor = RGB(255,0,128), ;
		Option5.Name = "Option5", ;
		Option6.FontBold = .T., ;
		Option6.FontName = "楷体_GB2312", ;
		Option6.FontSize = 14, ;
		Option6.Caption = "客户数据转入", ;
		Option6.Height = 24, ;
		Option6.Left = 19, ;
		Option6.Top = 161, ;
		Option6.Width = 154, ;
		Option6.AutoSize = .T., ;
		Option6.ForeColor = RGB(255,0,128), ;
		Option6.Name = "Option6", ;
		Option7.FontBold = .T., ;
		Option7.FontName = "楷体_GB2312", ;
		Option7.FontSize = 14, ;
		Option7.Caption = "客户编号重整", ;
		Option7.Height = 24, ;
		Option7.Left = 19, ;
		Option7.Top = 191, ;
		Option7.Width = 154, ;
		Option7.AutoSize = .T., ;
		Option7.ForeColor = RGB(255,0,128), ;
		Option7.Name = "Option7"
	ADD OBJECT main.pageframe1.page3.label1 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontItalic = .T., ;
		FontSize = 18, ;
		FontExtend = .T., ;
		Caption = " 请选择 ", ;
		Height = 29, ;
		Left = 67, ;
		Top = 74, ;
		Width = 104, ;
		TabIndex = 1, ;
		ForeColor = RGB(255,0,0), ;
		Name = "Label1"
	ADD OBJECT main.pageframe1.page3.grid1 AS grid WITH ;
		ColumnCount = 1, ;
		DeleteMark = .F., ;
		Height = 217, ;
		Left = 371, ;
		Panel = 1, ;
		RecordSource = "zw", ;
		RecordSourceType = 1, ;
		ScrollBars = 2, ;
		TabIndex = 3, ;
		Top = 86, ;
		Visible = .T., ;
		Width = 125, ;
		Name = "Grid1", ;
		Column1.ControlSource = "zw.zw", ;
		Column1.Width = 104, ;
		Column1.Visible = .T., ;
		Column1.Name = "Column1"
	ADD OBJECT main.pageframe1.page3.grid1.column1.header1 AS header WITH ;
		FontBold = .T., ;
		FontSize = 14, ;
		Alignment = 2, ;
		Caption = "客户职务", ;
		Name = "Header1"
	ADD OBJECT main.pageframe1.page3.grid1.column1.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		ControlSource = "zw.zw", ;
		Margin = 0, ;
		Visible = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"
	ADD OBJECT main.pageframe1.page3.commandgroup1 AS commandgroup WITH ;
		ButtonCount = 2, ;
		Value = 1, ;
		Height = 53, ;
		Left = 352, ;
		Top = 308, ;
		Width = 162, ;
		TabIndex = 4, ;
		Visible = .T., ;
		Name = "Commandgroup1", ;
		Command1.Top = 12, ;
		Command1.Left = 13, ;
		Command1.Height = 30, ;
		Command1.Width = 60, ;
		Command1.FontBold = .T., ;
		Command1.FontSize = 14, ;
		Command1.Caption = "增加", ;
		Command1.ForeColor = RGB(255,0,128), ;
		Command1.Name = "Command1", ;
		Command2.Top = 12, ;
		Command2.Left = 91, ;
		Command2.Height = 30, ;
		Command2.Width = 60, ;
		Command2.FontBold = .T., ;
		Command2.FontSize = 14, ;
		Command2.Caption = "删除", ;
		Command2.ForeColor = RGB(255,0,128), ;
		Command2.Name = "Command2"
	ADD OBJECT main.pageframe1.page3.grid2 AS grid WITH ;
		ColumnCount = 1, ;
		DeleteMark = .F., ;
		Height = 217, ;
		Left = 371, ;
		Panel = 1, ;
		RecordSource = "LX", ;
		RecordSourceType = 1, ;
		ScrollBars = 2, ;
		TabIndex = 5, ;
		Top = 78, ;
		Visible = .T., ;
		Width = 133, ;
		Name = "Grid2", ;
		Column1.ControlSource = "lx.lx", ;
		Column1.Width = 104, ;
		Column1.Visible = .T., ;
		Column1.Name = "Column1"
	ADD OBJECT main.pageframe1.page3.grid2.column1.header1 AS header WITH ;
		FontBold = .T., ;
		FontSize = 14, ;
		Alignment = 2, ;
		Caption = "客户类型", ;
		Name = "Header1"
	ADD OBJECT main.pageframe1.page3.grid2.column1.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		ControlSource = "zw.zw", ;
		Margin = 0, ;
		Visible = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"
	ADD OBJECT main.pageframe1.page3.commandgroup2 AS commandgroup WITH ;
		ButtonCount = 2, ;
		Value = 1, ;
		Height = 54, ;
		Left = 352, ;
		Top = 308, ;
		Width = 168, ;
		TabIndex = 6, ;
		Visible = .T., ;
		Name = "Commandgroup2", ;
		Command1.Top = 12, ;
		Command1.Left = 13, ;
		Command1.Height = 30, ;
		Command1.Width = 60, ;
		Command1.FontBold = .T., ;
		Command1.FontSize = 14, ;
		Command1.Caption = "增加", ;
		Command1.ForeColor = RGB(255,0,128), ;
		Command1.Name = "Command1", ;
		Command2.Top = 12, ;
		Command2.Left = 94, ;
		Command2.Height = 30, ;
		Command2.Width = 60, ;
		Command2.FontBold = .T., ;
		Command2.FontSize = 14, ;
		Command2.Caption = "删除", ;
		Command2.ForeColor = RGB(255,0,128), ;
		Command2.Name = "Command2"
	ADD OBJECT main.pageframe1.page3.container1 AS container WITH ;
		Top = 115, ;
		Left = 287, ;
		Width = 313, ;
		Height = 217, ;
		SpecialEffect = 1, ;
		TabIndex = 8, ;
		Name = "Container1"
	ADD OBJECT main.pageframe1.page3.container1.label2 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 16, ;
		Caption = "旧密码", ;
		Height = 26, ;
		Left = 52, ;
		Top = 38, ;
		Width = 69, ;
		ForeColor = RGB(0,128,255), ;
		Name = "Label2"
	ADD OBJECT main.pageframe1.page3.container1.label3 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 16, ;
		Caption = "新密码", ;
		Height = 26, ;
		Left = 52, ;
		Top = 90, ;
		Width = 69, ;
		ForeColor = RGB(0,128,255), ;
		Name = "Label3"
	ADD OBJECT main.pageframe1.page3.container1.text1 AS textbox WITH ;
		FontSize = 11, ;
		Height = 30, ;
		Left = 131, ;
		Top = 32, ;
		Width = 120, ;
		Name = "Text1"
	ADD OBJECT main.pageframe1.page3.container1.text2 AS textbox WITH ;
		FontSize = 11, ;
		Height = 30, ;
		Left = 131, ;
		Top = 86, ;
		Width = 120, ;
		Name = "Text2"
	ADD OBJECT main.pageframe1.page3.container1.command1 AS commandbutton WITH ;
		Top = 152, ;
		Left = 63, ;
		Height = 37, ;
		Width = 73, ;
		FontBold = .T., ;
		FontSize = 16, ;
		Caption = "确 认", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command1"
	ADD OBJECT main.pageframe1.page3.container1.command2 AS commandbutton WITH ;
		Top = 152, ;
		Left = 171, ;
		Height = 37, ;
		Width = 73, ;
		FontBold = .T., ;
		FontSize = 16, ;
		Caption = "取 消", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command2"
	ADD OBJECT container1 AS container WITH ;
		Top = 516, ;
		Left = 26, ;
		Width = 742, ;
		Height = 49, ;
		SpecialEffect = 1, ;
		Name = "Container1"
	ADD OBJECT main.container1.container1 AS container WITH ;
		Top = 7, ;
		Left = 13, ;
		Width = 717, ;
		Height = 37, ;
		SpecialEffect = 0, ;
		Name = "Container1"
	ADD OBJECT main.container1.container1.label1 AS label WITH ;
		AutoSize = .T., ;
		FontName = "黑体", ;
		FontShadow = .T., ;
		FontSize = 14, ;
		Alignment = 2, ;
		Caption = "【客户管理系统  Ver 1.0】版权所有，不得非法拷贝 - 李春葆软件开发工作室", ;
		Height = 24, ;
		Left = 2, ;
		Top = 7, ;
		Width = 673, ;
		ForeColor = RGB(128,0,128), ;
		Name = "Label1"
	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 447, ;
		Left = 662, ;
		Height = 42, ;
		Width = 81, ;
		FontBold = .T., ;
		FontName = "楷体_GB2312", ;
		FontSize = 16, ;
		Caption = "退出", ;
		ForeColor = RGB(255,0,0), ;
		Name = "Command1"
	PROCEDURE disp
		IF THISFORM.JLS=0 AND THISFORM.DELJLS=0
		   THISFORM.PAGEFRAME1.PAGE1.COMMANDGROUP1.COMMAND1.ENABLED=.F.
		   THISFORM.PAGEFRAME1.PAGE1.COMMANDGROUP1.COMMAND2.ENABLED=.F.
		   THISFORM.PAGEFRAME1.PAGE1.COMMANDGROUP1.COMMAND3.ENABLED=.F.
		   THISFORM.PAGEFRAME1.PAGE1.COMMANDGROUP1.COMMAND4.ENABLED=.F.
		   THISFORM.PAGEFRAME1.PAGE1.COMMANDGROUP1.COMMAND5.ENABLED=.T.
		   THISFORM.PAGEFRAME1.PAGE1.COMMANDGROUP1.COMMAND6.ENABLED=.F.
		   THISFORM.PAGEFRAME1.PAGE1.COMMANDGROUP1.COMMAND7.ENABLED=.F.
		ELSE
		   THISFORM.PAGEFRAME1.PAGE1.COMMANDGROUP1.COMMAND1.ENABLED=.T.
		   THISFORM.PAGEFRAME1.PAGE1.COMMANDGROUP1.COMMAND2.ENABLED=.T.
		   THISFORM.PAGEFRAME1.PAGE1.COMMANDGROUP1.COMMAND3.ENABLED=.T.
		   THISFORM.PAGEFRAME1.PAGE1.COMMANDGROUP1.COMMAND4.ENABLED=.T.
		   THISFORM.PAGEFRAME1.PAGE1.COMMANDGROUP1.COMMAND5.ENABLED=.T.
		   IF DELETED()=.T.
		      THISFORM.PAGEFRAME1.PAGE1.IMAGE1.VISIBLE=.T.
		      THISFORM.PAGEFRAME1.PAGE1.SETALL('ENABLED',.F.,'TEXTBOX')
		      THISFORM.PAGEFRAME1.PAGE1.SETALL('ENABLED',.F.,'COMBOBOX')
		      THISFORM.PAGEFRAME1.PAGE1.SETALL('ENABLED',.F.,'OPTIONGROUP')
		      THISFORM.PAGEFRAME1.PAGE1.COMMANDGROUP1.COMMAND6.ENABLED=.F.
		      THISFORM.PAGEFRAME1.PAGE1.COMMANDGROUP1.COMMAND7.ENABLED=.T.
		   ELSE
		      THISFORM.PAGEFRAME1.PAGE1.IMAGE1.VISIBLE=.F.
		      THISFORM.PAGEFRAME1.PAGE1.SETALL('ENABLED',.T.,'TEXTBOX')
		      THISFORM.PAGEFRAME1.PAGE1.SETALL('ENABLED',.T.,'COMBOBOX')
		      THISFORM.PAGEFRAME1.PAGE1.SETALL('ENABLED',.T.,'OPTIONGROUP')
		      THISFORM.PAGEFRAME1.PAGE1.COMMANDGROUP1.COMMAND6.ENABLED=.T.
		      THISFORM.PAGEFRAME1.PAGE1.COMMANDGROUP1.COMMAND7.ENABLED=.F.
		   ENDIF
		ENDIF
	ENDPROC
	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 Destroy
		SET SYSMENU TO DEFAULT
		SET SYSMENU ON
		SET TALK ON
		SET CONFIRM ON
		SET SAFETY ON
		SET STATUS BAR ON
	ENDPROC
	PROCEDURE KeyPress
		LPARAMETERS nKeyCode, nShiftAltCtrl
		DO CASE
		   CASE nKeyCode =  -1					        &&  按下 F2  
			 	Thisform.PageFrame1.Page1.SetFocus		&&  将焦点移至 Page1 对象上
				Thisform.PageFrame1.ActivePage = 1		&&  将 Page1 设置为作用分页
		   CASE nKeyCode =  -2				        	&&  按下 F3  
				Thisform.PageFrame1.Page2.SetFocus		&&  将焦点移至 Page2 对象上
				Thisform.PageFrame1.ActivePage = 2		&&  将 Page2 设置为作用分页
		   CASE nKeyCode =  -3					        &&  按下 F4  
				Thisform.PageFrame1.Page3.SetFocus		&&  将焦点移至 Page3 对象上
				Thisform.PageFrame1.ActivePage = 3		&&  将 Page3 设置为作用分页
		ENDCASE
	ENDPROC
	PROCEDURE Activate
		DO FORM PASS TO YES
		IF YES=.F.
		   THISFORM.RELEASE
		ELSE
		   READ EVENT
		ENDIF
	ENDPROC
	PROCEDURE pageframe1.Page1.Deactivate
		SET DELETE ON
	ENDPROC
	PROCEDURE pageframe1.Page1.Activate
		SET DELETE OFF
		THISFORM.PAGEFRAME1.PAGE1.IMAGE1.VISIBLE=.F.
		SELECT KH
		COUNT TO CURJLS FOR !DELETED()
		COUNT TO CURDEL FOR DELETED()
		GO TOP
		THISFORM.JLS=CURJLS
		THISFORM.DELJLS=CURDEL
		THISFORM.DISP()
		THISFORM.PAGEFRAME1.PAGE1.REFRESH
	ENDPROC
	PROCEDURE pageframe1.Page2.Activate
		THISFORM.PAGEFRAME1.PAGE2.OP1.VALUE=0
		THISFORM.PAGEFRAME1.PAGE2.REFRESH
	ENDPROC
	PROCEDURE pageframe1.Page3.Activate
		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.
		THISFORM.PAGEFRAME1.PAGE3.OPTIONGROUP1.VALUE=0
	ENDPROC
	PROCEDURE commandgroup1.Command1.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE commandgroup1.Command1.Click
		SELECT KH
		GO TOP
		THISFORM.REFRESH
		THISFORM.DISP()
	ENDPROC
	PROCEDURE commandgroup1.Command2.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE commandgroup1.Command2.Click
		SELECT KH
		SKIP -1
		IF BOF()
		   GO TOP
		   WAIT WINDOW "第一笔..." NOWAIT
		ENDIF
		THISFORM.REFRESH
		THISFORM.DISP()
	ENDPROC
	PROCEDURE commandgroup1.Command3.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE commandgroup1.Command3.Click
		SELECT KH
		SKIP 
		IF EOF()
		   GO BOTTOM
		   WAIT WINDOW "最后一笔..." NOWAIT
		ENDIF
		THISFORM.REFRESH
		THISFORM.DISP()
	ENDPROC
	PROCEDURE commandgroup1.Command4.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE commandgroup1.Command4.Click
		SELECT KH
		GO BOTTOM
		THISFORM.REFRESH
		THISFORM.DISP()
	ENDPROC
	PROCEDURE commandgroup1.Command5.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE commandgroup1.Command5.Click
		SELECT KH
		APPEND BLANK
		THISFORM.JLS=THISFORM.JLS+1
		THISFORM.DISP()
		THISFORM.REFRESH
		THISFORM.PAGEFRAME1.PAGE1.TXTBH.SETFOCUS()
	ENDPROC
	PROCEDURE commandgroup1.Command6.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE commandgroup1.Command6.Click
		SELECT KH
		IF DELETE()=.F.
		   DELETE
		   THISFORM.JLS=THISFORM.JLS-1
		   THISFORM.DELJLS=THISFORM.DELJLS+1
		   THISFORM.DISP()
		ENDIF
	ENDPROC
	PROCEDURE commandgroup1.Command7.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"
	ENDPROC
	PROCEDURE commandgroup1.Command7.Click
		SELECT KH
		IF DELETE()=.T.
		   RECALL
		   THISFORM.JLS=THISFORM.JLS-1
		   THISFORM.DELJLS=THISFORM.DELJLS+1
		   THISFORM.DISP()
		ENDIF
	ENDPROC
	PROCEDURE optiongroup1.Option1.MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		THIS.MOUSEPOINTER=99
		THIS.MOUSEICON="POINT.CUR"