jh5.prg

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

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


	Top = 34
	Left = 17
	Height = 455
	Width = 771
	DoCreate = .T.
	Caption = "库存管理"
	Closable = .F.
	MaxButton = .F.
	MinButton = .F.
	WindowType = 1
	Name = "Form1"


	ADD OBJECT grid1 AS grid WITH ;
		ColumnCount = 14, ;
		DeleteMark = .F., ;
		Height = 309, ;
		Left = 24, ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "jh", ;
		ScrollBars = 2, ;
		Top = 47, ;
		Width = 744, ;
		Name = "Grid1", ;
		Column1.ColumnOrder = 2, ;
		Column1.ControlSource = "jh.no", ;
		Column1.Width = 25, ;
		Column1.ReadOnly = .T., ;
		Column1.Name = "Column1", ;
		Column2.ColumnOrder = 3, ;
		Column2.ControlSource = "jh.rq", ;
		Column2.Width = 52, ;
		Column2.ReadOnly = .T., ;
		Column2.Name = "Column2", ;
		Column3.ColumnOrder = 4, ;
		Column3.ControlSource = "jh.mc", ;
		Column3.Width = 60, ;
		Column3.ReadOnly = .T., ;
		Column3.Name = "Column3", ;
		Column4.ColumnOrder = 5, ;
		Column4.ControlSource = "jh.xh", ;
		Column4.Width = 81, ;
		Column4.ReadOnly = .T., ;
		Column4.Name = "Column4", ;
		Column5.ColumnOrder = 6, ;
		Column5.ControlSource = "jh.pz", ;
		Column5.Width = 58, ;
		Column5.ReadOnly = .T., ;
		Column5.Name = "Column5", ;
		Column6.ColumnOrder = 7, ;
		Column6.ControlSource = "jh.dj", ;
		Column6.Width = 51, ;
		Column6.ReadOnly = .T., ;
		Column6.Name = "Column6", ;
		Column7.ColumnOrder = 8, ;
		Column7.ControlSource = "jh.sl", ;
		Column7.Width = 34, ;
		Column7.ReadOnly = .T., ;
		Column7.Name = "Column7", ;
		Column8.ColumnOrder = 9, ;
		Column8.ControlSource = "jh.jr", ;
		Column8.Width = 57, ;
		Column8.ReadOnly = .T., ;
		Column8.Name = "Column8", ;
		Column9.ColumnOrder = 10, ;
		Column9.ControlSource = "jh.ysl", ;
		Column9.Width = 51, ;
		Column9.ReadOnly = .T., ;
		Column9.Name = "Column9", ;
		Column10.ColumnOrder = 11, ;
		Column10.ControlSource = "jh.yr", ;
		Column10.Width = 51, ;
		Column10.ReadOnly = .T., ;
		Column10.Name = "Column10", ;
		Column11.ColumnOrder = 12, ;
		Column11.ControlSource = "jh.yxjr", ;
		Column11.Width = 50, ;
		Column11.ReadOnly = .T., ;
		Column11.Name = "Column11", ;
		Column12.ColumnOrder = 13, ;
		Column12.ControlSource = "jh.ysjr", ;
		Column12.Width = 50, ;
		Column12.ReadOnly = .T., ;
		Column12.Name = "Column12", ;
		Column13.ColumnOrder = 14, ;
		Column13.ControlSource = "jh.jbr", ;
		Column13.Width = 51, ;
		Column13.ReadOnly = .T., ;
		Column13.Name = "Column13", ;
		Column14.ColumnOrder = 1, ;
		Column14.ControlSource = "jh.tag", ;
		Column14.Width = 25, ;
		Column14.ReadOnly = .T., ;
		Column14.Name = "Column14"


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


	ADD OBJECT jh5.grid1.column1.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT jh5.grid1.column2.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "进货日期", ;
		Name = "Header1"


	ADD OBJECT jh5.grid1.column2.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT jh5.grid1.column3.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "品  名", ;
		Name = "Header1"


	ADD OBJECT jh5.grid1.column3.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT jh5.grid1.column4.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "规格型号", ;
		Name = "Header1"


	ADD OBJECT jh5.grid1.column4.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT jh5.grid1.column5.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "配 置", ;
		Name = "Header1"


	ADD OBJECT jh5.grid1.column5.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT jh5.grid1.column6.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "单 价", ;
		Name = "Header1"


	ADD OBJECT jh5.grid1.column6.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT jh5.grid1.column7.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "数 量", ;
		Name = "Header1"


	ADD OBJECT jh5.grid1.column7.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT jh5.grid1.column8.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "金 额", ;
		Name = "Header1"


	ADD OBJECT jh5.grid1.column8.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT jh5.grid1.column9.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "库存数量", ;
		Name = "Header1"


	ADD OBJECT jh5.grid1.column9.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT jh5.grid1.column10.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "未付金额", ;
		Name = "Header1"


	ADD OBJECT jh5.grid1.column10.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT jh5.grid1.column11.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "已销金额", ;
		Name = "Header1"


	ADD OBJECT jh5.grid1.column11.text1 AS textbox WITH ;
		BorderStyle = 0, ;
		Margin = 0, ;
		ReadOnly = .T., ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(255,255,255), ;
		Name = "Text1"


	ADD OBJECT jh5.grid1.column12.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "未收金额", ;
		Name = "Header1"


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


	ADD OBJECT jh5.grid1.column13.header1 AS header WITH ;
		Alignment = 2, ;
		Caption = "经办人", ;
		Name = "Header1"


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


	ADD OBJECT jh5.grid1.column14.header1 AS header WITH ;
		Caption = "标志", ;
		Name = "Header1"


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


	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontItalic = .T., ;
		FontSize = 18, ;
		Caption = "商 品 库 存 统 计 表", ;
		Height = 29, ;
		Left = 248, ;
		Top = 7, ;
		Width = 256, ;
		ForeColor = RGB(0,0,255), ;
		Name = "Label1"


	ADD OBJECT command5 AS commandbutton WITH ;
		Top = 371, ;
		Left = 803, ;
		Height = 37, ;
		Width = 73, ;
		FontBold = .T., ;
		FontSize = 11, ;
		Caption = "退 出", ;
		ForeColor = RGB(255,0,128), ;
		Name = "Command5"


	ADD OBJECT optiongroup1 AS optiongroup WITH ;
		ButtonCount = 6, ;
		Value = 1, ;