📄 frmcgkc.frm
字号:
Style = 1 'Graphical
TabIndex = 9
Top = 4205
Width = 1600
End
Begin VB.CommandButton cmdCG
Appearance = 0 'Flat
Height = 500
Left = 600
Picture = "frmcgkc.frx":25509
Style = 1 'Graphical
TabIndex = 8
Top = 780
Width = 1600
End
Begin VB.CommandButton cmdbjyl
Appearance = 0 'Flat
Height = 500
Left = 600
Picture = "frmcgkc.frx":26119
Style = 1 'Graphical
TabIndex = 7
Top = 4890
Width = 1600
End
Begin VB.CommandButton cmddjcx
Appearance = 0 'Flat
Height = 500
Left = 600
Picture = "frmcgkc.frx":26E1C
Style = 1 'Graphical
TabIndex = 6
Top = 5580
Width = 1600
End
Begin VB.Label Label46
BackStyle = 0 'Transparent
Caption = "当前操作员："
Height = 255
Left = 300
TabIndex = 155
Top = 6540
Width = 1095
End
Begin VB.Shape Shape44
FillColor = &H00C0FFFF&
FillStyle = 0 'Solid
Height = 315
Left = 240
Top = 6480
Width = 1155
End
End
Begin VB.Frame famcg
BackColor = &H00A56E3A&
Caption = "采 购"
Height = 6915
Left = 2760
TabIndex = 75
Top = 120
Width = 8775
Begin VB.Frame famcg_text
BackColor = &H00A56E3A&
Height = 1575
Left = 60
TabIndex = 82
Top = 240
Width = 8595
Begin VB.ComboBox cbocgr
Appearance = 0 'Flat
BackColor = &H00C0FFFF&
Height = 315
ItemData = "frmcgkc.frx":27AD7
Left = 6240
List = "frmcgkc.frx":27AD9
Sorted = -1 'True
TabIndex = 156
Top = 720
Width = 2175
End
Begin VB.TextBox txtsldw
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0FFFF&
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
Height = 315
Left = 4740
Locked = -1 'True
TabIndex = 152
Top = 720
Width = 375
End
Begin VB.ComboBox cobspbh
Appearance = 0 'Flat
BackColor = &H00C0FFFF&
Height = 315
Left = 1140
TabIndex = 90
Text = "Combo1"
Top = 300
Width = 1335
End
Begin VB.ComboBox cobspmc
Appearance = 0 'Flat
BackColor = &H00C0FFFF&
Height = 315
Left = 3600
TabIndex = 89
Text = "Combo1"
Top = 300
Width = 1515
End
Begin VB.ComboBox cobcgdw
Appearance = 0 'Flat
BackColor = &H00C0FFFF&
Height = 315
Left = 6240
TabIndex = 88
Text = "Combo1"
Top = 300
Width = 2175
End
Begin VB.TextBox txtcgdj
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0FFFF&
BeginProperty DataFormat
Type = 1
Format = """￥""#,##0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 2
EndProperty
Height = 315
Left = 1140
TabIndex = 87
Text = "0.00"
Top = 720
Width = 1335
End
Begin VB.TextBox txtsl
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0FFFF&
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
Height = 315
Left = 3600
TabIndex = 86
Text = "0"
Top = 720
Width = 1095
End
Begin VB.TextBox txtcgje
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0FFFF&
BeginProperty DataFormat
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
Height = 315
Left = 1140
TabIndex = 84
Text = "0.00"
Top = 1140
Width = 1335
End
Begin VB.ComboBox cobsffk
Appearance = 0 'Flat
BackColor = &H00C0FFFF&
Height = 315
Left = 3600
TabIndex = 83
Text = "Combo1"
Top = 1140
Width = 1515
End
Begin MSComCtl2.DTPicker dtpcgsj
Height = 315
Left = 6240
TabIndex = 85
Top = 1140
Width = 2175
_ExtentX = 3836
_ExtentY = 556
_Version = 393216
Format = 24379393
CurrentDate = 37418
End
Begin VB.Label Label45
BackStyle = 0 'Transparent
Caption = "采 购 人"
Height = 255
Left = 5400
TabIndex = 153
Top = 780
Width = 855
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
Caption = "采购时间"
Height = 255
Left = 5400
TabIndex = 98
Top = 1200
Width = 855
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "商品编号"
Height = 255
Left = 240
TabIndex = 97
Top = 360
Width = 855
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = "采购单价"
Height = 255
Left = 240
TabIndex = 96
Top = 780
Width = 855
End
Begin VB.Label Label18
BackStyle = 0 'Transparent
Caption = "采购金额"
Height = 255
Left = 240
TabIndex = 95
Top = 1200
Width = 855
End
Begin VB.Label Label13
BackStyle = 0 'Transparent
Caption = "商品名称"
Height = 255
Left = 2760
TabIndex = 94
Top = 360
Width = 855
End
Begin VB.Label Label16
BackStyle = 0 'Transparent
Caption = "采购数量"
Height = 255
Left = 2760
TabIndex = 93
Top = 780
Width = 855
End
Begin VB.Label Label19
BackStyle = 0 'Transparent
Caption = "是否付款"
Height = 255
Left = 2760
TabIndex = 92
Top = 1200
Width = 855
End
Begin VB.Label Label14
BackStyle = 0 'Transparent
Caption = "采购单位"
Height = 255
Left = 5400
TabIndex = 91
Top = 360
Width = 735
End
Begin VB.Shape Shape14
FillColor = &H00C0FFFF&
FillStyle = 0 'Solid
Height = 315
Left = 120
Top = 300
Width = 915
End
Begin VB.Shape Shape20
FillColor = &H00C0FFFF&
FillStyle = 0 'Solid
Height = 315
Left = 120
Top = 720
Width = 915
End
Begin VB.Shape Shape18
FillColor = &H00C0FFFF&
FillStyle = 0 'Solid
Height = 315
Left = 120
Top = 1140
Width = 915
End
Begin VB.Shape Shape19
FillColor = &H00C0FFFF&
FillStyle = 0 'Solid
Height = 315
Left = 2640
Top = 300
Width = 915
End
Begin VB.Shape Shape17
FillColor = &H00C0FFFF&
FillStyle = 0 'Solid
Height = 315
Left = 2640
Top = 720
Width = 915
End
Begin VB.Shape Shape16
FillColor = &H00C0FFFF&
FillStyle = 0 'Solid
Height = 315
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -