📄 jh31.prg
字号:
**************************************************
*-- 类: jh31 (e:\yh\user.vcx)
*-- 父类: form
*-- 基类: form
*
DEFINE CLASS jh31 AS form
Top = 41
Left = 26
Height = 438
Width = 738
DoCreate = .T.
AutoCenter = .F.
Caption = "销售管理"
Closable = .F.
MaxButton = .F.
MinButton = .F.
WindowType = 1
WindowState = 0
Name = "Form1"
jls = .F.
currno = .F.
opmode = .F.
ADD OBJECT container1 AS container WITH ;
Top = 14, ;
Left = 137, ;
Width = 582, ;
Height = 188, ;
BackStyle = 0, ;
SpecialEffect = 1, ;
TabIndex = 8, ;
Name = "Container1"
ADD OBJECT txtno1 AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
Value = "", ;
ControlSource = "jh1.no1", ;
Enabled = .T., ;
Format = "", ;
Height = 25, ;
InputMask = "", ;
Left = 215, ;
ReadOnly = .T., ;
TabIndex = 9, ;
Top = 23, ;
Width = 55, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtNo1"
ADD OBJECT txtrq AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "jh1.rq", ;
Height = 25, ;
Left = 215, ;
TabIndex = 2, ;
Top = 130, ;
Width = 89, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtRq"
ADD OBJECT txtxh AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "jhxh", ;
Enabled = .T., ;
Height = 25, ;
Left = 215, ;
ReadOnly = .T., ;
TabIndex = 10, ;
Top = 60, ;
Width = 189, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtXh"
ADD OBJECT txtpz AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "jhpz", ;
Enabled = .T., ;
Height = 25, ;
Left = 491, ;
ReadOnly = .T., ;
TabIndex = 11, ;
Top = 60, ;
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 = "jh1.dj", ;
Format = "R", ;
Height = 25, ;
InputMask = "9999999.99", ;
Left = 418, ;
TabIndex = 3, ;
Top = 132, ;
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 = "jh1.sl", ;
Format = "", ;
Height = 25, ;
InputMask = "", ;
Left = 598, ;
TabIndex = 4, ;
Top = 132, ;
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 = "jh1.jr", ;
Enabled = .T., ;
Format = "", ;
Height = 25, ;
InputMask = "", ;
Left = 418, ;
ReadOnly = .T., ;
TabIndex = 12, ;
Top = 95, ;
Width = 98, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtJr"
ADD OBJECT txtyr AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
Alignment = 3, ;
Value = 0, ;
ControlSource = "jh1.yr", ;
Enabled = .T., ;
Format = "", ;
Height = 25, ;
InputMask = "", ;
Left = 597, ;
ReadOnly = .T., ;
TabIndex = 13, ;
Top = 96, ;
Width = 99, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtYr"
ADD OBJECT lblno AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "销售序号", ;
Height = 19, ;
Left = 151, ;
Top = 27, ;
Width = 65, ;
TabIndex = 15, ;
ForeColor = RGB(0,0,255), ;
Name = "lblNo"
ADD OBJECT lblrq AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .F., ;
BackStyle = 0, ;
Caption = "日 期", ;
Height = 19, ;
Left = 169, ;
Top = 134, ;
Width = 44, ;
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 = 148, ;
Top = 98, ;
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 = 452, ;
Top = 28, ;
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 = 146, ;
Top = 64, ;
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 = 453, ;
Top = 64, ;
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 = 385, ;
Top = 137, ;
Width = 33, ;
TabIndex = 21, ;
ForeColor = RGB(0,0,255), ;
Name = "lblDj"
ADD OBJECT lblsl AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .F., ;
BackStyle = 0, ;
Caption = "数 量", ;
Height = 19, ;
Left = 552, ;
Top = 137, ;
Width = 44, ;
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 = 384, ;
Top = 100, ;
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 = 170, ;
Top = 172, ;
Width = 49, ;
TabIndex = 26, ;
ForeColor = RGB(0,0,255), ;
Name = "lblJbr"
ADD OBJECT lblyr AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "未收金额", ;
Height = 19, ;
Left = 531, ;
Top = 101, ;
Width = 65, ;
TabIndex = 27, ;
ForeColor = RGB(0,0,255), ;
Name = "lblYr"
ADD OBJECT command1 AS commandbutton WITH ;
Top = 396, ;
Left = 313, ;
Height = 30, ;
Width = 85, ;
FontBold = .T., ;
FontName = "楷体_GB2312", ;
FontSize = 12, ;
Caption = "收 款", ;
TabIndex = 28, ;
ForeColor = RGB(255,0,0), ;
Name = "Command1"
ADD OBJECT combo1 AS combobox WITH ;
FontSize = 11, ;
RowSourceType = 2, ;
RowSource = "dwb", ;
ControlSource = "jh1.dw", ;
Height = 25, ;
Left = 215, ;
TabIndex = 1, ;
Top = 95, ;
Width = 162, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "Combo1"
ADD OBJECT combo2 AS combobox WITH ;
FontSize = 11, ;
RowSourceType = 2, ;
RowSource = "jbrb", ;
ControlSource = "jh1.jbr", ;
Height = 25, ;
Left = 215, ;
TabIndex = 5, ;
Top = 168, ;
Width = 97, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "Combo2"
ADD OBJECT combo3 AS combobox WITH ;
FontSize = 11, ;
RowSourceType = 2, ;
RowSource = "jbrb", ;
ControlSource = "jh1.bgr", ;
Height = 25, ;
Left = 419, ;
TabIndex = 6, ;
Top = 168, ;
Width = 97, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "Combo3"
ADD OBJECT label7 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "保管人", ;
Height = 19, ;
Left = 370, ;
Top = 173, ;
Width = 49, ;
TabIndex = 25, ;
ForeColor = RGB(0,0,255), ;
Name = "Label7"
ADD OBJECT label8 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "收货人", ;
Height = 19, ;
Left = 548, ;
Top = 173, ;
Width = 49, ;
TabIndex = 24, ;
ForeColor = RGB(0,0,255), ;
Name = "Label8"
ADD OBJECT txtshr AS textbox WITH ;
FontSize = 11, ;
ControlSource = "jh1.shr", ;
Height = 25, ;
Left = 598, ;
TabIndex = 7, ;
Top = 168, ;
Width = 85, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtShr"
ADD OBJECT command2 AS commandbutton WITH ;
Top = 396, ;
Left = 419, ;
Height = 30, ;
Width = 105, ;
FontBold = .T., ;
FontName = "楷体_GB2312", ;
FontSize = 12, ;
Caption = "打印收款条", ;
TabIndex = 30, ;
ForeColor = RGB(255,0,0), ;
Name = "Command2"
ADD OBJECT label1 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontItalic = .T., ;
FontName = "仿宋_GB2312", ;
FontSize = 12, ;
Caption = "本次进货已收资金情况=>", ;
Height = 20, ;
Left = 95, ;
Top = 268, ;
Width = 191, ;
TabIndex = 29, ;
ForeColor = RGB(128,0,128), ;
Name = "Label1"
ADD OBJECT commandgroup1 AS commandgroup WITH ;
ButtonCount = 10, ;
Value = 1, ;
Height = 48, ;
Left = 146, ;
Top = 216, ;
Width = 482, ;
TabIndex = 14, ;
Name = "Commandgroup1", ;
Command1.Top = 12, ;
Command1.Left = 7, ;
Command1.Height = 25, ;
Command1.Width = 47, ;
Command1.FontBold = .T., ;
Command1.FontSize = 12, ;
Command1.Caption = "|<", ;
Command1.ForeColor = RGB(255,0,0), ;
Command1.Name = "Command1", ;
Command2.Top = 12, ;
Command2.Left = 53, ;
Command2.Height = 25, ;
Command2.Width = 45, ;
Command2.FontBold = .T., ;
Command2.FontSize = 12, ;
Command2.Caption = "<", ;
Command2.ForeColor = RGB(255,0,0), ;
Command2.Name = "Command2", ;
Command3.Top = 12, ;
Command3.Left = 97, ;
Command3.Height = 25, ;
Command3.Width = 47, ;
Command3.FontBold = .T., ;
Command3.FontSize = 12, ;
Command3.Caption = ">", ;
Command3.ForeColor = RGB(255,0,0), ;
Command3.Name = "Command3", ;
Command4.Top = 12, ;
Command4.Left = 143, ;
Command4.Height = 25, ;
Command4.Width = 47, ;
Command4.FontBold = .T., ;
Command4.FontSize = 12, ;
Command4.Caption = ">|", ;
Command4.ForeColor = RGB(255,0,0), ;
Command4.Name = "Command4", ;
Command5.Top = 12, ;
Command5.Left = 190, ;
Command5.Height = 25, ;
Command5.Width = 47, ;
Command5.FontBold = .T., ;
Command5.FontSize = 12, ;
Command5.Caption = "添加", ;
Command5.ForeColor = RGB(255,0,0), ;
Command5.Name = "Command5", ;
Command6.Top = 12, ;
Command6.Left = 237, ;
Command6.Height = 25, ;
Command6.Width = 47, ;
Command6.FontBold = .T., ;
Command6.FontSize = 12, ;
Command6.Caption = "删除", ;
Command6.ForeColor = RGB(255,0,0), ;
Command6.Name = "Command6", ;
Command7.Top = 12, ;
Command7.Left = 284, ;
Command7.Height = 25, ;
Command7.Width = 47, ;
Command7.FontBold = .T., ;
Command7.FontSize = 12, ;
Command7.Caption = "修改", ;
Command7.ForeColor = RGB(255,0,0), ;
Command7.Name = "Command7", ;
Command8.Top = 12, ;
Command8.Left = 331, ;
Command8.Height = 25, ;
Command8.Width = 47, ;
Command8.FontBold = .T., ;
Command8.FontSize = 12, ;
Command8.Caption = "取消", ;
Command8.ForeColor = RGB(255,0,0), ;
Command8.Name = "Command8", ;
Command9.Top = 12, ;
Command9.Left = 378, ;
Command9.Height = 25, ;
Command9.Width = 44, ;
Command9.FontBold = .T., ;
Command9.FontSize = 12, ;
Command9.Caption = "存储", ;
Command9.ForeColor = RGB(255,0,0), ;
Command9.Name = "Command9", ;
Command10.Top = 12, ;
Command10.Left = 422, ;
Command10.Height = 25, ;
Command10.Width = 47, ;
Command10.FontBold = .T., ;
Command10.FontSize = 12, ;
Command10.Caption = "打印", ;
Command10.ForeColor = RGB(255,0,0), ;
Command10.Name = "Command10"
ADD OBJECT command3 AS commandbutton WITH ;
Top = 336, ;
Left = 672, ;
Height = 37, ;
Width = 56, ;
FontBold = .T., ;
FontName = "楷体_GB2312", ;
FontSize = 14, ;
Caption = "返回", ;
TabIndex = 32, ;
ForeColor = RGB(255,0,0), ;
Name = "Command3"
ADD OBJECT label2 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
Caption = "针对当前的进货单=>", ;
Height = 19, ;
Left = 156, ;
Top = 402, ;
Width = 149, ;
TabIndex = 33, ;
ForeColor = RGB(0,0,255), ;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -