📄 jh1.prg
字号:
**************************************************
*-- 类: jh1 (e:\yh\user.vcx)
*-- 父类: form
*-- 基类: form
*
DEFINE CLASS jh1 AS form
Top = 37
Left = 24
Height = 438
Width = 738
DoCreate = .T.
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 = 12, ;
Left = 37, ;
Width = 670, ;
Height = 195, ;
BackStyle = 0, ;
SpecialEffect = 1, ;
TabIndex = 13, ;
Name = "Container1"
ADD OBJECT txtno AS textbox WITH ;
Comment = "", ;
FontSize = 11, ;
ControlSource = "jh.no", ;
Height = 25, ;
Left = 133, ;
TabIndex = 1, ;
Top = 23, ;
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", ;
Height = 25, ;
Left = 290, ;
TabIndex = 2, ;
Top = 24, ;
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", ;
Height = 25, ;
Left = 462, ;
TabIndex = 5, ;
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 = "jh.pz", ;
Height = 25, ;
Left = 133, ;
TabIndex = 6, ;
Top = 96, ;
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", ;
Format = "R", ;
Height = 25, ;
InputMask = "9999999.99", ;
Left = 133, ;
TabIndex = 7, ;
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 = "jh.sl", ;
Format = "", ;
Height = 25, ;
InputMask = "", ;
Left = 290, ;
TabIndex = 8, ;
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 = "jh.jr", ;
Format = "", ;
Height = 25, ;
InputMask = "", ;
Left = 462, ;
ReadOnly = .T., ;
TabIndex = 12, ;
Top = 132, ;
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 = "jh.yr", ;
Format = "", ;
Height = 25, ;
InputMask = "", ;
Left = 462, ;
ReadOnly = .T., ;
TabIndex = 14, ;
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 = 100, ;
Top = 27, ;
Width = 33, ;
TabIndex = 16, ;
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 = 257, ;
Top = 29, ;
Width = 33, ;
TabIndex = 17, ;
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 = 396, ;
Top = 29, ;
Width = 65, ;
TabIndex = 18, ;
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 = 100, ;
Top = 63, ;
Width = 33, ;
TabIndex = 19, ;
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 = 396, ;
Top = 65, ;
Width = 65, ;
TabIndex = 20, ;
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 = 100, ;
Top = 99, ;
Width = 33, ;
TabIndex = 21, ;
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 = 100, ;
Top = 135, ;
Width = 33, ;
TabIndex = 22, ;
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 = 257, ;
Top = 136, ;
Width = 33, ;
TabIndex = 23, ;
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 = 428, ;
Top = 137, ;
Width = 33, ;
TabIndex = 24, ;
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 = 84, ;
Top = 172, ;
Width = 49, ;
TabIndex = 27, ;
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 = 396, ;
Top = 101, ;
Width = 65, ;
TabIndex = 28, ;
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 = 29, ;
ForeColor = RGB(255,0,0), ;
Name = "Command1"
ADD OBJECT combo1 AS combobox WITH ;
FontSize = 11, ;
RowSourceType = 2, ;
RowSource = "mcb", ;
ControlSource = "jh.mc", ;
Height = 25, ;
Left = 133, ;
TabIndex = 4, ;
Top = 60, ;
Width = 136, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "Combo1"
ADD OBJECT combo2 AS combobox WITH ;
FontSize = 11, ;
RowSourceType = 2, ;
RowSource = "dwb", ;
ControlSource = "jh.dw", ;
Height = 25, ;
Left = 462, ;
TabIndex = 3, ;
Top = 24, ;
Width = 192, ;
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 = "jh.jbr", ;
Height = 25, ;
Left = 133, ;
TabIndex = 9, ;
Top = 168, ;
Width = 97, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "Combo3"
ADD OBJECT combo4 AS combobox WITH ;
FontSize = 11, ;
RowSourceType = 2, ;
RowSource = "jbrb", ;
ControlSource = "jh.bgr", ;
Height = 25, ;
Left = 290, ;
TabIndex = 10, ;
Top = 168, ;
Width = 97, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "Combo4"
ADD OBJECT label7 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 11, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "保管人", ;
Height = 19, ;
Left = 241, ;
Top = 172, ;
Width = 49, ;
TabIndex = 26, ;
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 = 412, ;
Top = 171, ;
Width = 49, ;
TabIndex = 25, ;
ForeColor = RGB(0,0,255), ;
Name = "Label8"
ADD OBJECT txtfhr AS textbox WITH ;
FontSize = 11, ;
ControlSource = "jh.fhr", ;
Height = 25, ;
Left = 462, ;
TabIndex = 11, ;
Top = 168, ;
Width = 85, ;
DisabledBackColor = RGB(156,226,193), ;
DisabledForeColor = RGB(255,0,0), ;
Name = "txtfhr"
ADD OBJECT command2 AS commandbutton WITH ;
Top = 396, ;
Left = 419, ;
Height = 30, ;
Width = 105, ;
FontBold = .T., ;
FontName = "楷体_GB2312", ;
FontSize = 12, ;
Caption = "打印付款条", ;
TabIndex = 31, ;
ForeColor = RGB(255,0,0), ;
Name = "Command2"
ADD OBJECT grid1 AS grid WITH ;
ColumnCount = 6, ;
ChildOrder = "Linkno", ;
DeleteMark = .F., ;
Height = 93, ;
Left = 112, ;
LinkMaster = "Jh", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordSource = "fk", ;
RelationalExpr = "No", ;
ScrollBars = 2, ;
TabIndex = 32, ;
Top = 296, ;
Width = 529, ;
Name = "Grid1", ;
Column1.ControlSource = "fk.no1", ;
Column1.Width = 53, ;
Column1.ReadOnly = .T., ;
Column1.Name = "Column1", ;
Column2.ControlSource = "fk.rq", ;
Column2.Width = 62, ;
Column2.ReadOnly = .T., ;
Column2.Name = "Column2", ;
Column3.ControlSource = "fk.jr", ;
Column3.Width = 67, ;
Column3.ReadOnly = .T., ;
Column3.Name = "Column3", ;
Column4.ControlSource = "fk.yr", ;
Column4.Width = 73, ;
Column4.ReadOnly = .T., ;
Column4.Name = "Column4", ;
Column5.ControlSource = "fk.jbr", ;
Column5.Width = 72, ;
Column5.ReadOnly = .T., ;
Column5.Name = "Column5", ;
Column6.ControlSource = "fk.bz", ;
Column6.Width = 180, ;
Column6.ReadOnly = .T., ;
Column6.Name = "Column6"
ADD OBJECT jh1.grid1.column1.header1 AS header WITH ;
Alignment = 2, ;
Caption = "付款序号", ;
Name = "Header1"
ADD OBJECT jh1.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 jh1.grid1.column2.header1 AS header WITH ;
Alignment = 2, ;
Caption = "付款日期", ;
Name = "Header1"
ADD OBJECT jh1.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 jh1.grid1.column3.header1 AS header WITH ;
Alignment = 2, ;
Caption = "金 额", ;
Name = "Header1"
ADD OBJECT jh1.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 jh1.grid1.column4.header1 AS header WITH ;
Alignment = 2, ;
Caption = "未付金额", ;
Name = "Header1"
ADD OBJECT jh1.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 jh1.grid1.column5.header1 AS header WITH ;
Alignment = 2, ;
Caption = "经手人", ;
Name = "Header1"
ADD OBJECT jh1.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 jh1.grid1.column6.header1 AS header WITH ;
Alignment = 2, ;
Caption = "说 明", ;
Name = "Header1"
ADD OBJECT jh1.grid1.column6.text1 AS textbox WITH ;
BorderStyle = 0, ;
Margin = 0, ;
ReadOnly = .T., ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -