📄 cg_yl_thd.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"
Begin VB.Form cg_yl_thd
BorderStyle = 1 'Fixed Single
Caption = "采购_退货单办理"
ClientHeight = 6630
ClientLeft = 1635
ClientTop = 1485
ClientWidth = 10515
Icon = "cg_yl_thd.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 6630
ScaleWidth = 10515
Begin VB.TextBox Text2
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1080
TabIndex = 38
Top = 6270
Width = 1695
End
Begin TrueOleDBGrid60.TDBGrid TDBGrid3
Bindings = "cg_yl_thd.frx":1E72
Height = 6195
Left = 0
OleObjectBlob = "cg_yl_thd.frx":1E8D
TabIndex = 39
Top = 60
Width = 2775
End
Begin ResizeLibCtl.ReSize ReSize1
Left = 330
Top = 5370
_Version = 196608
_ExtentX = 741
_ExtentY = 741
_StockProps = 64
Enabled = -1 'True
Enabled = -1 'True
FormMinWidth = 0
FormMinHeight = 0
FormDesignHeight= 6630
FormDesignWidth = 10515
End
Begin VB.Frame Frame4
Height = 1755
Left = 2850
TabIndex = 11
Top = 0
Visible = 0 'False
Width = 7695
Begin TrueOleDBGrid60.TDBGrid TDBGrid2
Bindings = "cg_yl_thd.frx":4708
Height = 1665
Left = 30
OleObjectBlob = "cg_yl_thd.frx":4720
TabIndex = 12
Top = 120
Width = 7665
End
End
Begin VB.Frame Frame1
Height = 615
Left = 2805
TabIndex = 30
Top = 5100
Width = 7695
Begin VB.TextBox Text1
DataField = "zjsl"
DataSource = "adoprimaryrs"
Height = 270
Index = 7
Left = 960
Locked = -1 'True
TabIndex = 9
Top = 240
Width = 1455
End
Begin VB.TextBox Text1
DataField = "zjje"
DataSource = "adoprimaryrs"
Height = 270
Index = 8
Left = 5760
Locked = -1 'True
TabIndex = 10
Top = 240
Width = 1815
End
Begin VB.Label Label1
Caption = "总计数量"
Height = 255
Index = 4
Left = 120
TabIndex = 32
Top = 255
Width = 1155
End
Begin VB.Label Label1
Caption = "总计金额"
Height = 255
Index = 5
Left = 4920
TabIndex = 31
Top = 255
Width = 885
End
End
Begin VB.Frame Frame2
Height = 975
Left = 2805
TabIndex = 18
Top = 5610
Width = 7695
Begin VB.CommandButton Cmdadd
Caption = "新增"
Height = 610
Left = 3795
Picture = "cg_yl_thd.frx":B5F3
Style = 1 'Graphical
TabIndex = 29
Top = 240
Width = 615
End
Begin VB.CommandButton Cmdprint
Caption = "打印报表"
Height = 615
Index = 0
Left = 2640
Picture = "cg_yl_thd.frx":BC15
Style = 1 'Graphical
TabIndex = 28
Top = 240
Width = 975
End
Begin VB.CommandButton cmdmd
Caption = "后端"
Height = 610
Left = 1680
Picture = "cg_yl_thd.frx":C1E7
Style = 1 'Graphical
TabIndex = 27
Top = 240
Width = 495
End
Begin VB.CommandButton cmdnext
Caption = "向后"
Height = 610
Index = 1
Left = 1155
Picture = "cg_yl_thd.frx":C7B9
Style = 1 'Graphical
TabIndex = 26
Top = 240
Width = 495
End
Begin VB.CommandButton cmdxq
Caption = "向前"
Height = 610
Left = 645
Picture = "cg_yl_thd.frx":CD8B
Style = 1 'Graphical
TabIndex = 25
Top = 240
Width = 495
End
Begin VB.CommandButton cmdqd
Caption = "前端"
Height = 610
Index = 0
Left = 120
Picture = "cg_yl_thd.frx":D35D
Style = 1 'Graphical
TabIndex = 24
Top = 240
Width = 495
End
Begin VB.CommandButton CmdOK
Caption = "确认"
Height = 610
Left = 5685
Picture = "cg_yl_thd.frx":D92F
Style = 1 'Graphical
TabIndex = 23
Top = 240
Width = 615
End
Begin VB.CommandButton Cmddelete
Caption = "删除"
Height = 610
Left = 4440
Picture = "cg_yl_thd.frx":DA21
Style = 1 'Graphical
TabIndex = 22
Top = 240
Width = 615
End
Begin VB.CommandButton Cmdedit
Caption = "编辑"
Height = 610
Left = 5055
Picture = "cg_yl_thd.frx":DFF3
Style = 1 'Graphical
TabIndex = 21
Top = 240
Width = 615
End
Begin VB.CommandButton Cmdcancel
Caption = "取消"
Height = 610
Left = 6330
Picture = "cg_yl_thd.frx":E5C5
Style = 1 'Graphical
TabIndex = 20
Top = 240
Width = 615
End
Begin VB.CommandButton Cmdreturn
Caption = "返回"
Height = 610
Left = 6960
Picture = "cg_yl_thd.frx":EB97
Style = 1 'Graphical
TabIndex = 19
Top = 240
Width = 615
End
End
Begin VB.Frame Frame3
Height = 1575
Left = 2820
TabIndex = 13
Top = 30
Width = 7695
Begin VB.ComboBox Combo
DataField = "sfbh"
DataSource = "adoprimaryrs"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 1
ItemData = "cg_yl_thd.frx":EE1A
Left = 3840
List = "cg_yl_thd.frx":EE24
Locked = -1 'True
TabIndex = 7
Top = 1170
Width = 1095
End
Begin VB.TextBox Text1
DataField = "THPz"
DataSource = "adoprimaryrs"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 6
Left = 1080
Locked = -1 'True
TabIndex = 6
Top = 1200
Width = 1455
End
Begin VB.TextBox Text1
DataField = "fax"
DataSource = "adoprimaryrs"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 5
Left = 5760
Locked = -1 'True
TabIndex = 5
Top = 690
Width = 1815
End
Begin VB.TextBox Text1
DataField = "phone"
DataSource = "adoprimaryrs"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 4
Left = 3240
Locked = -1 'True
TabIndex = 4
Top = 690
Width = 1695
End
Begin VB.TextBox Text1
DataField = "thdh"
DataSource = "adoprimaryrs"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 0
Left = 1080
Locked = -1 'True
TabIndex = 0
Top = 240
Width = 1575
End
Begin VB.TextBox Text1
DataField = "GYS"
DataSource = "adoprimaryrs"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 2
Left = 5040
Locked = -1 'True
TabIndex = 2
Top = 240
Width = 2535
End
Begin VB.TextBox Text1
DataField = "djrq"
DataSource = "adoprimaryrs"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 3
Left = 1080
Locked = -1 'True
TabIndex = 3
Top = 690
Width = 1455
End
Begin VB.ComboBox Combo
DataField = "djy"
DataSource = "adoprimaryrs"
Enabled = 0 'False
BeginProperty Font
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -