📄 clearfp.frm
字号:
VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.1#0"; "COMCTL32.OCX"
Object = "{FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}#1.0#0"; "COMCT232.OCX"
Begin VB.Form ClearFp
AutoRedraw = -1 'True
BorderStyle = 3 'Fixed Dialog
ClientHeight = 5205
ClientLeft = 45
ClientTop = 45
ClientWidth = 6000
ControlBox = 0 'False
DrawStyle = 1 'Dash
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5205
ScaleWidth = 6000
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin ComctlLib.ProgressBar ClearBar
Height = 180
Left = 165
TabIndex = 26
Top = 4170
Visible = 0 'False
Width = 5655
_ExtentX = 9975
_ExtentY = 318
_Version = 327680
Appearance = 1
MouseIcon = "ClearFp.frx":0000
Min = 1
Max = 3950
End
Begin ComCtl2.Animation ClearAni
Height = 1815
Left = 105
TabIndex = 25
Top = 2655
Visible = 0 'False
Width = 5775
_ExtentX = 10186
_ExtentY = 3201
_Version = 327680
Center = -1 'True
FullWidth = 385
FullHeight = 121
End
Begin VB.CommandButton Restore
Caption = "还原(&R)"
Height = 390
Left = 3120
TabIndex = 23
Top = 4605
Width = 1710
End
Begin VB.CommandButton StarClear
Caption = "开始销毁"
Enabled = 0 'False
Height = 390
Left = 1035
TabIndex = 22
Top = 4605
Width = 1710
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "ClearFp.frx":001C
Height = 1770
Left = 195
OleObjectBlob = "ClearFp.frx":002C
TabIndex = 6
Top = 2670
Width = 5595
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 585
Left = -1140
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 600
Width = 1140
End
Begin VB.Frame Frame1
Caption = "请选择一种消毁方式"
ForeColor = &H00800080&
Height = 1755
Left = 555
TabIndex = 2
Top = 585
Width = 4890
Begin VB.CommandButton Command1
Cancel = -1 'True
Caption = "关闭"
Height = 420
Left = 3600
TabIndex = 24
Top = 435
Width = 1095
End
Begin VB.PictureBox Picture4
BackColor = &H00000000&
Height = 510
Left = 75
ScaleHeight = 450
ScaleWidth = 4665
TabIndex = 19
Top = 1170
Width = 4725
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "小秘密-小秘密-小秘密-小秘密......发票"
ForeColor = &H000000FF&
Height = 180
Left = 825
TabIndex = 20
Top = 135
Width = 3330
End
End
Begin VB.PictureBox Picture3
AutoRedraw = -1 'True
BackColor = &H00008000&
BorderStyle = 0 'None
Height = 420
Left = 120
ScaleHeight = 420
ScaleWidth = 4635
TabIndex = 16
Top = 1185
Visible = 0 'False
Width = 4635
Begin VB.TextBox Text2
Height = 285
Left = 2700
MaxLength = 8
TabIndex = 18
Top = 75
Width = 1185
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "请输入购货人的姓名："
ForeColor = &H00FF0000&
Height = 180
Left = 720
TabIndex = 17
Top = 135
Width = 1800
End
End
Begin VB.PictureBox Picture2
AutoRedraw = -1 'True
BackColor = &H00800080&
BorderStyle = 0 'None
Height = 420
Left = 120
ScaleHeight = 420
ScaleWidth = 4635
TabIndex = 10
Top = 1185
Visible = 0 'False
Width = 4635
Begin VB.ComboBox Combo2
Height = 300
Left = 2910
Style = 2 'Dropdown List
TabIndex = 15
Top = 60
Width = 870
End
Begin VB.ComboBox Combo1
Height = 300
Left = 1575
Style = 2 'Dropdown List
TabIndex = 12
Top = 60
Width = 870
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "日"
ForeColor = &H0000FFFF&
Height = 180
Index = 1
Left = 3885
TabIndex = 14
Top = 120
Width = 180
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "月"
ForeColor = &H0000FFFF&
Height = 180
Index = 0
Left = 2550
TabIndex = 13
Top = 120
Width = 180
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "请选择日期："
ForeColor = &H00FFFF00&
Height = 180
Index = 1
Left = 255
TabIndex = 11
Top = 120
Width = 1080
End
End
Begin VB.PictureBox Picture1
AutoRedraw = -1 'True
BackColor = &H00808000&
BorderStyle = 0 'None
Height = 420
Left = 120
ScaleHeight = 420
ScaleWidth = 4635
TabIndex = 7
Top = 1185
Visible = 0 'False
Width = 4635
Begin VB.TextBox Text1
Height = 285
Left = 1665
MaxLength = 30
TabIndex = 9
Top = 75
Width = 2700
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "请输入发票号："
ForeColor = &H00400000&
Height = 180
Index = 0
Left = 315
TabIndex = 8
Top = 120
Width = 1260
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -