📄 cg_sh_djb.frm
字号:
VERSION 5.00
Object = "{A964BDA3-3E93-11CF-9A0F-9E6261DACD1C}#3.0#0"; "Resize32.ocx"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{0D6234D1-DBA2-11D1-B5DF-0060976089D0}#6.0#0"; "TODG6.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form Cg_SH_DjB
BorderStyle = 1 'Fixed Single
Caption = "采购收货登记表"
ClientHeight = 7635
ClientLeft = 45
ClientTop = 330
ClientWidth = 11610
Icon = "cg_Sh_DjB.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 7635
ScaleWidth = 11610
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox T_Sh
BackColor = &H80000004&
BorderStyle = 0 'None
DataField = "sh"
BeginProperty DataFormat
Type = 0
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
DataSource = "adoprimaryrs"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 300
Left = 10650
Locked = -1 'True
TabIndex = 43
Top = 6270
Width = 735
End
Begin VB.TextBox Text1
DataField = "zjsl"
BeginProperty DataFormat
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1028
SubFormatType = 1
EndProperty
DataSource = "adoprimaryrs"
Height = 300
Index = 6
Left = 8490
TabIndex = 10
Top = 6300
Width = 1575
End
Begin VB.TextBox Text1
DataField = "zjje"
BeginProperty DataFormat
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1028
SubFormatType = 1
EndProperty
DataSource = "adoprimaryrs"
Height = 330
Index = 5
Left = 3900
TabIndex = 9
Top = 6270
Width = 3585
End
Begin VB.ComboBox Combo
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 2
Left = 9450
TabIndex = 11
Top = 1890
Width = 2055
End
Begin VB.Frame Frame2
Height = 885
Left = 2970
TabIndex = 23
Top = 6630
Width = 8595
Begin VB.CommandButton CmD_SH
Caption = "审核"
Height = 645
Left = 2580
Picture = "cg_Sh_DjB.frx":030A
Style = 1 'Graphical
TabIndex = 44
Top = 180
Width = 645
End
Begin VB.CommandButton Cmdreturn
Caption = "返回"
Height = 645
Left = 7890
Picture = "cg_Sh_DjB.frx":040C
Style = 1 'Graphical
TabIndex = 35
Top = 180
Width = 645
End
Begin VB.CommandButton Cmdcancel
Caption = "取消"
Enabled = 0 'False
Height = 645
Left = 7230
Picture = "cg_Sh_DjB.frx":068F
Style = 1 'Graphical
TabIndex = 34
Top = 180
Width = 645
End
Begin VB.CommandButton Cmdedit
Caption = "编辑"
Height = 645
Left = 5895
Picture = "cg_Sh_DjB.frx":0C61
Style = 1 'Graphical
TabIndex = 33
Top = 180
Width = 645
End
Begin VB.CommandButton Cmddelete
Caption = "删除"
Height = 645
Left = 5235
Picture = "cg_Sh_DjB.frx":1233
Style = 1 'Graphical
TabIndex = 32
Top = 180
Width = 645
End
Begin VB.CommandButton CmdOK
Caption = "确认"
Enabled = 0 'False
Height = 645
Left = 6555
Picture = "cg_Sh_DjB.frx":1805
Style = 1 'Graphical
TabIndex = 31
Top = 180
Width = 645
End
Begin VB.CommandButton cmdqd
Caption = "前端"
Height = 645
Left = 60
Picture = "cg_Sh_DjB.frx":18F7
Style = 1 'Graphical
TabIndex = 30
Top = 180
Width = 585
End
Begin VB.CommandButton cmdxq
Caption = "向前"
Height = 645
Left = 660
Picture = "cg_Sh_DjB.frx":1EC9
Style = 1 'Graphical
TabIndex = 29
Top = 180
Width = 585
End
Begin VB.CommandButton cmdnext
Caption = "向后"
Height = 645
Left = 1260
Picture = "cg_Sh_DjB.frx":249B
Style = 1 'Graphical
TabIndex = 28
Top = 180
Width = 585
End
Begin VB.CommandButton cmdmd
Caption = "后端"
Height = 645
Left = 1860
Picture = "cg_Sh_DjB.frx":2A6D
Style = 1 'Graphical
TabIndex = 27
Top = 180
Width = 585
End
Begin VB.CommandButton Cmdprint
Caption = "打印"
Height = 645
Left = 3240
Picture = "cg_Sh_DjB.frx":303F
Style = 1 'Graphical
TabIndex = 26
Top = 180
Width = 645
End
Begin VB.CommandButton Cmdadd
Caption = "新增"
Height = 645
Left = 4575
Picture = "cg_Sh_DjB.frx":3611
Style = 1 'Graphical
TabIndex = 25
Top = 180
Width = 645
End
Begin VB.CommandButton CMd_Find
Caption = "查询"
Height = 645
Left = 3900
Picture = "cg_Sh_DjB.frx":3C33
Style = 1 'Graphical
TabIndex = 24
Top = 180
Width = 645
End
End
Begin VB.Frame Frame3
Height = 1815
Left = 2970
TabIndex = 16
Top = 0
Width = 8595
Begin VB.TextBox Text1
BackColor = &H00FFFFFF&
DataField = "lhdh"
BeginProperty DataFormat
Type = 0
Format = "yyyy/mm/dd"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1028
SubFormatType = 0
EndProperty
DataSource = "adoprimaryrs"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 7
Left = 1140
TabIndex = 3
Top = 610
Width = 1575
End
Begin VB.ComboBox Combo
BackColor = &H00FFFFFF&
DataField = "bmmc"
DataSource = "adoprimaryrs"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 3
Left = 1140
TabIndex = 7
Top = 1410
Width = 4305
End
Begin VB.TextBox Text1
BackColor = &H00FFFFFF&
DataField = "bizh"
BeginProperty DataFormat
Type = 0
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1028
SubFormatType = 0
EndProperty
DataSource = "adoprimaryrs"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 4
Left = 1140
TabIndex = 5
Top = 1010
Width = 1575
End
Begin VB.ComboBox Combo
BackColor = &H00FFFFFF&
DataField = "djy"
DataSource = "adoprimaryrs"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 1
Left = 6930
TabIndex = 8
Top = 1380
Width = 1575
End
Begin VB.TextBox Text1
BackColor = &H00FFFFFF&
DataField = "gysmc"
DataSource = "adoprimaryrs"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -