📄 jh3.prg
字号:
**************************************************
*-- 类: jh3 (e:\yh\user.vcx)
*-- 父类: form
*-- 基类: form
*
DEFINE CLASS jh3 AS form
Height = 340
Width = 679
DoCreate = .T.
AutoCenter = .T.
Caption = "销售管理"
Closable = .F.
MaxButton = .F.
MinButton = .F.
WindowType = 1
WindowState = 0
Name = "Form1"
ADD OBJECT commandgroup1 AS commandgroup WITH ;
ButtonCount = 5, ;
Value = 1, ;
Enabled = .T., ;
Height = 37, ;
Left = 73, ;
Top = 245, ;
Width = 336, ;
TabIndex = 27, ;
Name = "Commandgroup1", ;
Command1.Top = 6, ;
Command1.Left = 7, ;
Command1.Height = 26, ;
Command1.Width = 65, ;
Command1.FontBold = .T., ;
Command1.FontName = "宋体", ;
Command1.FontSize = 12, ;
Command1.Caption = "|<-", ;
Command1.ForeColor = RGB(255,0,0), ;
Command1.Name = "Command1", ;
Command2.Top = 6, ;
Command2.Left = 71, ;
Command2.Height = 26, ;
Command2.Width = 65, ;
Command2.FontBold = .T., ;
Command2.FontName = "宋体", ;
Command2.FontSize = 12, ;
Command2.Caption = "<-", ;
Command2.ForeColor = RGB(255,0,0), ;
Command2.Name = "Command2", ;
Command3.Top = 6, ;
Command3.Left = 135, ;
Command3.Height = 26, ;
Command3.Width = 65, ;
Command3.FontBold = .T., ;
Command3.FontName = "宋体", ;
Command3.FontSize = 12, ;
Command3.Caption = "->", ;
Command3.ForeColor = RGB(255,0,0), ;
Command3.Name = "Command3", ;
Command4.Top = 6, ;
Command4.Left = 199, ;
Command4.Height = 26, ;
Command4.Width = 65, ;
Command4.FontBold = .T., ;
Command4.FontName = "宋体", ;
Command4.FontSize = 12, ;
Command4.Caption = "->|", ;
Command4.ForeColor = RGB(255,0,0), ;
Command4.Name = "Command4", ;
Command5.Top = 6, ;
Command5.Left = 263, ;
Command5.Height = 26, ;
Command5.Width = 65, ;
Command5.FontBold = .T., ;
Command5.FontName = "宋体", ;
Command5.FontSize = 12, ;
Command5.Caption = "查 询", ;
Command5.ForeColor = RGB(255,0,0), ;
Command5.Name = "Command5"
ADD OBJECT command1 AS commandbutton WITH ;
Top = 246, ;
Left = 444, ;
Height = 31, ;
Width = 145, ;
FontBold = .T., ;
FontName = "楷体_GB2312", ;
FontSize = 12, ;
Caption = "确实销售本产品", ;
TabIndex = 28, ;
ForeColor = RGB(255,0,0), ;
Name = "Command1"
ADD OBJECT command2 AS commandbutton WITH ;
Top = 293, ;
Left = 548, ;
Height = 36, ;
Width = 73, ;
FontBold = .T., ;
FontName = "楷体_GB2312", ;
FontSize = 14, ;
Caption = "返回", ;
TabIndex = 29, ;
ForeColor = RGB(255,0,0), ;
Name = "Command2"
ADD OBJECT container1 AS container WITH ;
Top = 14, ;
Left = 31, ;
Width = 619, ;
Height = 213, ;
BackStyle = 0, ;
SpecialEffect = 1, ;
TabIndex = 14, ;
Name = "Container1"
ADD OBJECT txtno AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "jh.no", ;
Enabled = .F., ;
Height = 25, ;
Left = 112, ;
TabIndex = 1, ;
Top = 31, ;
Width = 89, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtNo"
ADD OBJECT txtrq AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "jh.rq", ;
Enabled = .F., ;
Height = 25, ;
Left = 269, ;
TabIndex = 2, ;
Top = 32, ;
Width = 89, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtRq"
ADD OBJECT txtxh AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "jh.xh", ;
Enabled = .F., ;
Height = 25, ;
Left = 441, ;
TabIndex = 5, ;
Top = 68, ;
Width = 189, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtXh"
ADD OBJECT txtpz AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "jh.pz", ;
Enabled = .F., ;
Height = 25, ;
Left = 112, ;
TabIndex = 6, ;
Top = 104, ;
Width = 144, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtPz"
ADD OBJECT txtdj AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
Alignment = 3, ;
Value = 0, ;
ControlSource = "jh.dj", ;
Enabled = .F., ;
Format = "R", ;
Height = 25, ;
InputMask = "9999999.99", ;
Left = 112, ;
TabIndex = 8, ;
Top = 140, ;
Width = 95, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtDj"
ADD OBJECT txtsl AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
Alignment = 3, ;
Value = 0, ;
ControlSource = "jh.sl", ;
Enabled = .F., ;
Format = "", ;
Height = 25, ;
InputMask = "", ;
Left = 269, ;
TabIndex = 9, ;
Top = 140, ;
Width = 56, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtSl"
ADD OBJECT txtjr AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
Alignment = 3, ;
Value = 0, ;
ControlSource = "jh.jr", ;
Enabled = .F., ;
Format = "", ;
Height = 25, ;
InputMask = "", ;
Left = 441, ;
ReadOnly = .T., ;
TabIndex = 10, ;
Top = 140, ;
Width = 98, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtJr"
ADD OBJECT lblno AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "序号", ;
Height = 19, ;
Left = 79, ;
Top = 35, ;
Width = 33, ;
TabIndex = 15, ;
ForeColor = RGB(0,0,255), ;
Name = "lblNo"
ADD OBJECT lblrq AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "日期", ;
Height = 19, ;
Left = 236, ;
Top = 37, ;
Width = 33, ;
TabIndex = 16, ;
ForeColor = RGB(0,0,255), ;
Name = "lblRq"
ADD OBJECT lbldw AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "供货单位", ;
Height = 19, ;
Left = 375, ;
Top = 37, ;
Width = 65, ;
TabIndex = 17, ;
ForeColor = RGB(0,0,255), ;
Name = "lblDw"
ADD OBJECT lblmc AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "品名", ;
Height = 19, ;
Left = 79, ;
Top = 71, ;
Width = 33, ;
TabIndex = 18, ;
ForeColor = RGB(0,0,255), ;
Name = "lblMc"
ADD OBJECT lblxh AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "规格型号", ;
Height = 19, ;
Left = 375, ;
Top = 73, ;
Width = 65, ;
TabIndex = 19, ;
ForeColor = RGB(0,0,255), ;
Name = "lblXh"
ADD OBJECT lblpz AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "配置", ;
Height = 19, ;
Left = 79, ;
Top = 107, ;
Width = 33, ;
TabIndex = 20, ;
ForeColor = RGB(0,0,255), ;
Name = "lblPz"
ADD OBJECT lbldj AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "单价", ;
Height = 19, ;
Left = 79, ;
Top = 143, ;
Width = 33, ;
TabIndex = 21, ;
ForeColor = RGB(0,0,255), ;
Name = "lblDj"
ADD OBJECT lblsl AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "数量", ;
Height = 19, ;
Left = 236, ;
Top = 144, ;
Width = 33, ;
TabIndex = 22, ;
ForeColor = RGB(0,0,255), ;
Name = "lblSl"
ADD OBJECT lbljr AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "金额", ;
Height = 19, ;
Left = 407, ;
Top = 145, ;
Width = 33, ;
TabIndex = 23, ;
ForeColor = RGB(0,0,255), ;
Name = "lblJr"
ADD OBJECT lbljbr AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "经办人", ;
Height = 19, ;
Left = 63, ;
Top = 180, ;
Width = 49, ;
TabIndex = 26, ;
ForeColor = RGB(0,0,255), ;
Name = "lblJbr"
ADD OBJECT lblbgr AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "保管人", ;
Height = 19, ;
Left = 220, ;
Top = 180, ;
Width = 49, ;
TabIndex = 25, ;
ForeColor = RGB(0,0,255), ;
Name = "lblbgr"
ADD OBJECT lblfhr AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "发货人", ;
Height = 19, ;
Left = 391, ;
Top = 180, ;
Width = 49, ;
TabIndex = 24, ;
ForeColor = RGB(0,0,255), ;
Name = "lblfhr"
ADD OBJECT txtfhr AS textbox WITH ;
FontSize = 11, ;
ControlSource = "jh.fhr", ;
Enabled = .F., ;
Height = 25, ;
Left = 441, ;
TabIndex = 13, ;
Top = 176, ;
Width = 85, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtfhr"
ADD OBJECT txtdw AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "jh.dw", ;
Enabled = .F., ;
Height = 25, ;
Left = 441, ;
MaxLength = 30, ;
TabIndex = 3, ;
Top = 31, ;
Width = 188, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtDw"
ADD OBJECT txtmc AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "jh.mc", ;
Enabled = .F., ;
Height = 25, ;
Left = 114, ;
MaxLength = 20, ;
TabIndex = 4, ;
Top = 69, ;
Width = 142, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtMc"
ADD OBJECT txtjbr AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "jh.jbr", ;
Enabled = .F., ;
Height = 25, ;
Left = 115, ;
MaxLength = 6, ;
TabIndex = 11, ;
Top = 177, ;
Width = 74, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtJbr"
ADD OBJECT txtbgr AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "jh.bgr", ;
Enabled = .F., ;
Height = 25, ;
Left = 269, ;
MaxLength = 6, ;
TabIndex = 12, ;
Top = 176, ;
Width = 57, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtBgr"
ADD OBJECT lblysl AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
Caption = "剩余数量", ;
Height = 19, ;
Left = 372, ;
Top = 110, ;
Width = 67, ;
TabIndex = 30, ;
ForeColor = RGB(0,0,255), ;
Name = "lblysl"
ADD OBJECT txtysl AS textbox WITH ;
FontSize = 11, ;
ControlSource = "jh.ysl", ;
Enabled = .F., ;
Height = 25, ;
Left = 441, ;
ReadOnly = .T., ;
TabIndex = 7, ;
Top = 105, ;
Width = 86, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtysl"
PROCEDURE Init
SELECT JH
COUNT TO JLS1
IF JLS1=0 &&JH中没有任何记录
THISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.F.
THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.F.
THISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.F.
THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=.F.
THISFORM.COMMANDGROUP1.COMMAND5.ENABLED=.F.
THISFORM.COMMAND1.ENABLED=.F.
ENDIF
THISFORM.COMMAND2.ENABLED=.T.
GO TOP
ENDPROC
PROCEDURE commandgroup1.Command1.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
THIS.MOUSEPOINTER=99
THIS.MOUSEICON="POINT.CUR"
ENDPROC
PROCEDURE commandgroup1.Command1.Click
SELECT JH
GO TOP
THISFORM.REFRESH
ENDPROC
PROCEDURE commandgroup1.Command2.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
THIS.MOUSEPOINTER=99
THIS.MOUSEICON="POINT.CUR"
ENDPROC
PROCEDURE commandgroup1.Command2.Click
SELECT JH
SKIP -1
IF BOF()
GO TOP
WAIT WINDOW "第一笔..." NOWAIT
ENDIF
THISFORM.REFRESH
ENDPROC
PROCEDURE commandgroup1.Command3.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
THIS.MOUSEPOINTER=99
THIS.MOUSEICON="POINT.CUR"
ENDPROC
PROCEDURE commandgroup1.Command3.Click
SELECT JH
SKIP
IF EOF()
GO BOTTOM
WAIT WINDOW "最后一笔..." NOWAIT
ENDIF
THISFORM.REFRESH
ENDPROC
PROCEDURE commandgroup1.Command4.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
THIS.MOUSEPOINTER=99
THIS.MOUSEICON="POINT.CUR"
ENDPROC
PROCEDURE commandgroup1.Command4.Click
SELECT JH
GO BOTTOM
THISFORM.REFRESH
ENDPROC
PROCEDURE commandgroup1.Command5.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
THIS.MOUSEPOINTER=99
THIS.MOUSEICON="POINT.CUR"
ENDPROC
PROCEDURE commandgroup1.Command5.Click
PUBLIC fchar(11),fname(11),ftype(11)
fchar(1)="进货编号"
fname(1)="no"
ftype(1)="C"
fchar(2)="进货日期"
fname(2)="rq"
ftype(2)="D"
fchar(3)="进货单位"
fname(3)="dw"
ftype(3)="C"
fchar(4)="品名"
fname(4)="mc"
ftype(4)="C"
fchar(5)="单价"
fname(5)="dj"
ftype(5)="N"
fchar(6)="数量"
fname(6)="sl"
ftype(6)="N"
fchar(7)="金额"
fname(7)="jr"
ftype(7)="N"
fchar(8)="剩余数量"
fname(8)="ysl"
ftype(8)="N"
fchar(9)="经办人"
fname(9)="jbr"
ftype(9)="C"
fchar(10)="保管人"
fname(10)="bgr"
ftype(10)="C"
fchar(11)="发货人"
fname(11)="fhr"
ftype(11)="C"
DO FORM JH12
THISFORM.REFRESH
ENDPROC
PROCEDURE command1.Click
if empty(thisform.txtno.value)
=messagebox("没有指定入库商品,不能销售",48,"信息提示")
else
public jhno,jhmc,jhxh,jhpz,jhysl
jhysl=jh.ysl
jhno=jh.no
jhmc=jh.mc
jhxh=jh.xh
jhpz=jh.pz
do form jh31
thisform.txtysl.value=jhysl
endif
ENDPROC
PROCEDURE command2.Click
close data
THISFORM.RELEASE
ENDPROC
PROCEDURE txtno.Valid
SELECT JH
RES=RECNO()
LOCATE FOR NO=THIS.VALUE AND RECNO()<>RES
IF FOUND()
=MESSAGEBOX("本序号与以前输入的序号重复,重新输入",48,"信息提示")
GO RES
RETURN 0
ELSE
GO RES
RETURN 1
ENDIF
ENDPROC
PROCEDURE txtrq.GotFocus
THIS.VALUE=DATE()
ENDPROC
ENDDEFINE
*
*-- 结束定义: jh3
**************************************************
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -