jh32.prg

一个很优秀的企业人事管理系统。本软件免费

**************************************************
*-- 类:           jh32 (e:\yh\user.vcx)
*-- 父类:  form
*-- 基类:    form
*
DEFINE CLASS jh32 AS form


	Top = 121
	Left = 174
	Height = 250
	Width = 416
	DoCreate = .T.
	Caption = "进货收款"
	MaxButton = .F.
	MinButton = .F.
	WindowType = 1
	WindowState = 0
	Name = "Form1"


	ADD OBJECT container2 AS container WITH ;
		Top = 12, ;
		Left = 12, ;
		Width = 387, ;
		Height = 144, ;
		SpecialEffect = 1, ;
		TabIndex = 21, ;
		Name = "Container2"


	ADD OBJECT text1 AS textbox WITH ;
		Comment = "", ;
		FontSize = 11, ;
		Alignment = 3, ;
		Value = 0, ;
		ControlSource = "", ;
		Enabled = .T., ;
		Format = "R", ;
		Height = 25, ;
		InputMask = "9999", ;
		Left = 113, ;
		ReadOnly = .T., ;
		TabIndex = 15, ;
		Top = 23, ;
		Width = 51, ;
		DisabledBackColor = RGB(255,128,128), ;
		DisabledForeColor = RGB(0,0,0), ;
		Name = "Text1"


	ADD OBJECT label2 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		WordWrap = .T., ;
		BackStyle = 0, ;
		Caption = "收款编号", ;
		Height = 19, ;
		Left = 47, ;
		Top = 28, ;
		Width = 65, ;
		TabIndex = 22, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label2"


	ADD OBJECT label3 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		WordWrap = .T., ;
		BackStyle = 0, ;
		Caption = "收款日期", ;
		Height = 19, ;
		Left = 213, ;
		Top = 28, ;
		Width = 65, ;
		TabIndex = 24, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label3"


	ADD OBJECT text3 AS textbox WITH ;
		Comment = "", ;
		FontSize = 11, ;
		Alignment = 3, ;
		Value = 0, ;
		ControlSource = "", ;
		Format = "", ;
		Height = 25, ;
		InputMask = "", ;
		Left = 114, ;
		TabIndex = 17, ;
		Top = 56, ;
		Width = 88, ;
		DisabledBackColor = RGB(255,128,128), ;
		Name = "Text3"


	ADD OBJECT label4 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		WordWrap = .T., ;
		BackStyle = 0, ;
		Caption = "本次收款", ;
		Height = 19, ;
		Left = 46, ;
		Top = 60, ;
		Width = 65, ;
		TabIndex = 26, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label4"


	ADD OBJECT label5 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		WordWrap = .T., ;
		BackStyle = 0, ;
		Caption = "经办人", ;
		Height = 19, ;
		Left = 52, ;
		Top = 90, ;
		Width = 49, ;
		TabIndex = 28, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label5"


	ADD OBJECT text5 AS textbox WITH ;
		Comment = "", ;
		FontSize = 11, ;
		Alignment = 3, ;
		Value = 0, ;
		ControlSource = "", ;
		Format = "", ;
		Height = 25, ;
		InputMask = "", ;
		Left = 279, ;
		ReadOnly = .T., ;
		TabIndex = 18, ;
		Top = 55, ;
		Width = 86, ;
		DisabledBackColor = RGB(255,128,128), ;
		DisabledForeColor = RGB(0,0,0), ;
		Name = "Text5"


	ADD OBJECT label6 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		WordWrap = .T., ;
		BackStyle = 0, ;
		Caption = "未收余额", ;
		Height = 19, ;
		Left = 213, ;
		Top = 59, ;
		Width = 65, ;
		TabIndex = 30, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label6"


	ADD OBJECT text6 AS textbox WITH ;
		Comment = "", ;
		FontSize = 11, ;
		ControlSource = "", ;
		Height = 25, ;
		Left = 111, ;
		TabIndex = 20, ;
		Top = 119, ;
		Width = 248, ;
		DisabledBackColor = RGB(255,128,128), ;
		Name = "TEXT6"


	ADD OBJECT lblbz AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 11, ;
		WordWrap = .T., ;
		BackStyle = 0, ;
		Caption = "说  明", ;
		Height = 19, ;
		Left = 51, ;
		Top = 122, ;
		Width = 51, ;
		TabIndex = 32, ;
		ForeColor = RGB(0,0,255), ;
		Name = "lblBz"


	ADD OBJECT commandgroup2 AS commandgroup WITH ;
		ButtonCount = 2, ;
		Value = 1, ;
		Height = 45, ;
		Left = 109, ;
		Top = 180, ;
		Width = 196, ;
		TabIndex = 45, ;
		Name = "Commandgroup2", ;
		Command1.Top = 5, ;
		Command1.Left = 8, ;
		Command1.Height = 35, ;
		Command1.Width = 90, ;
		Command1.FontBold = .T., ;
		Command1.FontSize = 11, ;
		Command1.Caption = "收款确认", ;
		Command1.ForeColor = RGB(255,0,0), ;
		Command1.Name = "Command1", ;
		Command2.Top = 5, ;
		Command2.Left = 98, ;
		Command2.Height = 35, ;
		Command2.Width = 90, ;
		Command2.FontBold = .T., ;
		Command2.FontSize = 11, ;
		Command2.Caption = "取消收款", ;
		Command2.ForeColor = RGB(255,0,0), ;
		Command2.Name = "Command2"


	ADD OBJECT text2 AS textbox WITH ;
		Comment = "", ;
		FontSize = 11, ;
		Alignment = 3, ;
		BorderStyle = 1, ;
		Value = {}, ;
		ControlSource = "", ;
		Format = "", ;
		Height = 25, ;
		InputMask = "", ;
		Left = 279, ;
		SpecialEffect = 0, ;
		TabIndex = 16, ;
		Top = 22, ;
		Width = 93, ;
		DisabledBackColor = RGB(255,128,128), ;
		Name = "Text2"


	ADD OBJECT text4 AS combobox WITH ;
		FontSize = 11, ;
		RowSourceType = 3, ;
		RowSource = "SELECT JBR FROM JBRB INTO CURSOR TEMP4", ;
		ControlSource = "", ;
		Height = 25, ;
		Left = 113, ;
		TabIndex = 19, ;
		Top = 86, ;
		Width = 85, ;
		DisabledBackColor = RGB(255,128,128), ;
		Name = "TEXT4"


	PROCEDURE Init
		PARAMETER BH
		THISFORM.TEXT1.VALUE=BH+1
		THISFORM.TEXT2.SETFOCUS
	ENDPROC


	PROCEDURE text3.LostFocus
		THISFORM.TEXT5.VALUE=BYR-THIS.VALUE
		IF THISFORM.TEXT5.VALUE<0
		   =MESSAGEBOX("本次付款超过余额,不正确输入!",48,"信息提示")
		   THIS.VALUE=BYR
		   THISFORM.TEXT5.VALUE=0
		ENDIF
	ENDPROC


	PROCEDURE text5.LostFocus
	ENDPROC


	PROCEDURE commandgroup2.Command1.Click
		??CHR(7)
		IF MESSAGEBOX("输入的付款正确吗[一旦付款,不能再改动]?",4+32,"提示信息")=6
		    SELECT FK1
		    APPEND BLANK
		    REPL NO WITH JH1.no
		    REPL NO1 WITH jh1.no1
		    repl no2 with THISFORM.TEXT1.VALUE
		    REPL RQ WITH THISFORM.TEXT2.VALUE
		    REPL JR WITH THISFORM.TEXT3.VALUE
		    REPL JBR WITH THISFORM.TEXT4.VALUE
		    REPL YR WITH THISFORM.TEXT5.VALUE
		    REPL BZ WITH THISFORM.TEXT6.VALUE
		    BYR=THISFORM.TEXT3.VALUE  &&为本次收款金额
		ENDIF
		THISFORM.RELEASE
	ENDPROC


	PROCEDURE commandgroup2.Command2.Click
		BYR=0
		THISFORM.RELEASE
	ENDPROC


	PROCEDURE text2.GotFocus
		THIS.VALUE=DATE()
	ENDPROC


	PROCEDURE text4.LostFocus
		REPL JBR WITH THIS.TEXT
	ENDPROC


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