jh11.prg

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

**************************************************
*-- 类:           jh11 (e:\yh\user.vcx)
*-- 父类:  form
*-- 基类:    form
*
DEFINE CLASS jh11 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 FK
		    APPEND BLANK
		    REPL NO WITH JH1.TXTNO.VALUE
		    REPL NO1 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
*
*-- 结束定义: jh11
**************************************************