jh4.prg

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

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


	Top = 36
	Left = 22
	Height = 444
	Width = 759
	DoCreate = .T.
	Caption = "进货查询"
	Closable = .F.
	MaxButton = .F.
	MinButton = .F.
	WindowType = 1
	Name = "Form1"


	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontItalic = .T., ;
		FontName = "仿宋_GB2312", ;
		FontSize = 12, ;
		Caption = "本次进货已付资金情况=>", ;
		Height = 20, ;
		Left = 41, ;
		Top = 215, ;
		Width = 191, ;
		TabIndex = 39, ;
		ForeColor = RGB(128,0,128), ;
		Name = "Label1"


	ADD OBJECT grid1 AS grid WITH ;
		ColumnCount = 14, ;
		DeleteMark = .F., ;
		Height = 165, ;
		Left = 0, ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "jh1", ;
		ScrollBars = 2, ;
		Top = 48, ;
		Width = 754, ;
		Name = "Grid1", ;
		Column1.ColumnOrder = 3, ;
		Column1.ControlSource = "jh1.no1", ;
		Column1.Width = 37, ;
		Column1.ReadOnly = .T., ;
		Column1.Visible = .T., ;
		Column1.Name = "Column1", ;
		Column2.ColumnOrder = 4, ;
		Column2.ControlSource = "jh1.rq", ;
		Column2.Width = 53, ;
		Column2.ReadOnly = .T., ;
		Column2.Visible = .T., ;
		Column2.Name = "Column2", ;
		Column3.ColumnOrder = 5, ;
		Column3.ControlSource = "jh1.dw", ;
		Column3.Width = 109, ;
		Column3.ReadOnly = .T., ;
		Column3.Visible = .T., ;
		Column3.Name = "Column3", ;
		Column4.ColumnOrder = 6, ;
		Column4.ControlSource = "jh1.mc", ;
		Column4.Width = 52, ;
		Column4.ReadOnly = .T., ;
		Column4.Visible = .T., ;
		Column4.Name = "Column4", ;
		Column5.ColumnOrder = 7, ;
		Column5.ControlSource = "jh1.xh", ;
		Column5.Width = 62, ;
		Column5.ReadOnly = .T., ;
		Column5.Visible = .T., ;
		Column5.Name = "Column5", ;
		Column6.ColumnOrder = 8, ;
		Column6.ControlSource = "jh1.pz", ;
		Column6.Width = 55, ;
		Column6.ReadOnly = .T., ;
		Column6.Visible = .T., ;
		Column6.Name = "Column6", ;
		Column7.ColumnOrder = 9, ;
		Column7.ControlSource = "jh1.dj", ;
		Column7.Width = 44, ;
		Column7.ReadOnly = .T., ;
		Column7.Visible = .T., ;
		Column7.Name = "Column7", ;
		Column8.ColumnOrder = 10, ;
		Column8.ControlSource = "jh1.sl", ;
		Column8.Width = 29, ;
		Column8.ReadOnly = .T., ;
		Column8.Visible = .T., ;
		Column8.Name = "Column8", ;
		Column9.ColumnOrder = 11, ;
		Column9.ControlSource = "jh1.jr", ;
		Column9.Width = 56, ;
		Column9.ReadOnly = .T., ;
		Column9.Visible = .T., ;
		Column9.Name = "Column9", ;
		Column10.ColumnOrder = 13, ;
		Column10.ControlSource = "jh1.jbr", ;
		Column10.Width = 37, ;
		Column10.ReadOnly = .T., ;
		Column10.Visible = .T., ;
		Column10.Name = "Column10", ;
		Column11.ColumnOrder = 12, ;
		Column11.ControlSource = "jh1.yr", ;
		Column11.Width = 54, ;
		Column11.ReadOnly = .T., ;
		Column11.Visible = .T., ;
		Column11.Name = "Column11", ;
		Column12.ColumnOrder = 1, ;
		Column12.ControlSource = "jh1.tag", ;
		Column12.Width = 27, ;
		Column12.ReadOnly = .T., ;
		Column12.Name = "Column12", ;
		Column13.ColumnOrder = 14, ;
		Column13.ControlSource = "jh1.bgr", ;
		Column13.Width = 38, ;
		Column13.ReadOnly = .T., ;
		Column13.Name = "Column13", ;
		Column14.ColumnOrder = 2, ;
		Column14.ControlSource = "jh1.no", ;
		Column14.Width = 59, ;
		Column14.ReadOnly = .T., ;
		Column14.Name = "Column14"


	ADD OBJECT jh4.grid1.column1.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "销售号", ;
		Name = "Header1"


	ADD OBJECT jh4.grid1.column1.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.grid1.column2.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "销货日期", ;
		Name = "Header1"


	ADD OBJECT jh4.grid1.column2.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.grid1.column3.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "销售单位", ;
		Name = "Header1"


	ADD OBJECT jh4.grid1.column3.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.grid1.column4.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "品名", ;
		Name = "Header1"


	ADD OBJECT jh4.grid1.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.grid1.column5.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "规格型号", ;
		Name = "Header1"


	ADD OBJECT jh4.grid1.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.grid1.column6.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "配置", ;
		Name = "Header1"


	ADD OBJECT jh4.grid1.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 jh4.grid1.column7.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "单价", ;
		Name = "Header1"


	ADD OBJECT jh4.grid1.column7.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.grid1.column8.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "数量", ;
		Name = "Header1"


	ADD OBJECT jh4.grid1.column8.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.grid1.column9.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "总金额", ;
		Name = "Header1"


	ADD OBJECT jh4.grid1.column9.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.grid1.column10.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "经手人", ;
		Name = "Header1"


	ADD OBJECT jh4.grid1.column10.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.grid1.column11.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "未收金额", ;
		Name = "Header1"


	ADD OBJECT jh4.grid1.column11.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.grid1.column12.header1 AS header WITH ;
		Caption = "标志", ;
		Name = "Header1"


	ADD OBJECT jh4.grid1.column12.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT jh4.grid1.column13.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "保管人", ;
		Name = "Header1"


	ADD OBJECT jh4.grid1.column13.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT jh4.grid1.column14.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "进货编号", ;
		Name = "Header1"


	ADD OBJECT jh4.grid1.column14.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT grid2 AS grid WITH ;
		ColumnCount = 6, ;
		ChildOrder = "Linkno", ;
		DeleteMark = .F., ;
		Height = 93, ;
		Left = 96, ;
		LinkMaster = "Jh1", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "fk1", ;
		RelationalExpr = "no+str(no1)", ;
		ScrollBars = 2, ;
		TabIndex = 38, ;
		Top = 236, ;
		Width = 572, ;
		Name = "Grid2", ;
		Column1.ControlSource = "fk1.no2", ;
		Column1.Width = 42, ;
		Column1.ReadOnly = .T., ;
		Column1.Visible = .T., ;
		Column1.Name = "Column1", ;
		Column2.ControlSource = "fk1.rq", ;
		Column2.Width = 74, ;
		Column2.ReadOnly = .T., ;
		Column2.Visible = .T., ;
		Column2.Name = "Column2", ;
		Column3.ControlSource = "fk1.jr", ;
		Column3.Width = 66, ;
		Column3.ReadOnly = .T., ;
		Column3.Visible = .T., ;
		Column3.Name = "Column3", ;
		Column4.ControlSource = "fk1.jbr", ;
		Column4.Width = 70, ;
		Column4.ReadOnly = .T., ;
		Column4.Visible = .T., ;
		Column4.Name = "Column4", ;
		Column5.ControlSource = "fk1.yr", ;
		Column5.Width = 84, ;
		Column5.ReadOnly = .T., ;
		Column5.Visible = .T., ;
		Column5.Name = "Column5", ;
		Column6.ControlSource = "fk1.bz", ;
		Column6.Width = 198, ;
		Column6.ReadOnly = .T., ;
		Column6.Visible = .T., ;
		Column6.Name = "Column6"


	ADD OBJECT jh4.grid2.column1.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "序号", ;
		Name = "Header1"


	ADD OBJECT jh4.grid2.column1.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.column2.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "收款日期", ;
		Name = "Header1"


	ADD OBJECT jh4.grid2.column2.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.column3.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "收款金额", ;
		Name = "Header1"


	ADD OBJECT jh4.grid2.column3.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.column4.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "经办人", ;