📄 frmobsolete_seek.frm
字号:
EndProperty
Height = 210
Index = 7
Left = 2325
TabIndex = 27
Top = 735
Width = 525
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "合计人民币(大写)："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 90
TabIndex = 26
Top = 5385
Width = 1890
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "0.00"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 240
Left = 5295
TabIndex = 25
Top = 5370
Width = 480
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "编号："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 75
TabIndex = 24
Top = 5760
Width = 630
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "名称："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 2160
TabIndex = 23
Top = 5775
Width = 630
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "数量："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 75
TabIndex = 22
Top = 6150
Width = 630
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "单价："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 2145
TabIndex = 21
Top = 6150
Width = 630
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "金额："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 4665
TabIndex = 20
Top = 6105
Width = 630
End
Begin VB.Label lab_total
AutoSize = -1 'True
Caption = "0.00"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 240
Left = 1980
TabIndex = 19
Top = 5370
Width = 480
End
Begin VB.Label lab_qty
AutoSize = -1 'True
Caption = "0.00"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 240
Left = 4020
TabIndex = 18
Top = 5370
Width = 480
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "单位："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 4680
TabIndex = 17
Top = 5745
Width = 630
End
End
Begin VB.Frame Frame1
BackColor = &H80000001&
BorderStyle = 0 'None
Height = 975
Index = 1
Left = 105
TabIndex = 0
Top = 5775
Width = 5280
Begin VB.CommandButton CmdDep
Caption = "退出(&X)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Index = 8
Left = 3960
TabIndex = 3
Top = 285
Width = 1275
End
Begin VB.CommandButton CmdDep
Caption = "打印(&P)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Index = 7
Left = 2040
TabIndex = 2
Top = 300
Width = 1275
End
Begin VB.CommandButton CmdDep
Caption = "查询(&F)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Index = 6
Left = 150
TabIndex = 1
Top = 315
Width = 1275
End
End
Begin TabDlg.SSTab SSTab1
Height = 375
Left = 60
TabIndex = 32
Top = 435
Width = 5430
_ExtentX = 9578
_ExtentY = 661
_Version = 393216
Tabs = 2
TabsPerRow = 2
TabHeight = 520
TabCaption(0) = "入库单作废"
TabPicture(0) = "frmobsolete_seek.frx":0457
Tab(0).ControlEnabled= -1 'True
Tab(0).ControlCount= 0
TabCaption(1) = "出库单作废"
TabPicture(1) = "frmobsolete_seek.frx":0473
Tab(1).ControlEnabled= 0 'False
Tab(1).ControlCount= 0
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1
Height = 4875
Left = 75
TabIndex = 33
Top = 810
Width = 5400
_ExtentX = 9525
_ExtentY = 8599
_Version = 393216
FixedCols = 0
SelectionMode = 1
AllowUserResizing= 1
_NumberOfBands = 1
_Band(0).Cols = 2
End
Begin VB.Label Label5
Caption = "作废单据查询"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 270
Left = 3585
TabIndex = 34
Top = 105
Width = 1860
End
End
Attribute VB_Name = "frmobsolete_seek"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdDep_Click(Index As Integer)
Dim strsql As String
Dim msgtext As String
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -