📄 各部删除.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form 各部删除
BorderStyle = 0 'None
ClientHeight = 7560
ClientLeft = 0
ClientTop = -120
ClientWidth = 12015
Icon = "各部删除.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 503.014
ScaleMode = 0 'User
ScaleWidth = 799.995
ShowInTaskbar = 0 'False
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 500
Left = 1740
Top = 150
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 9360
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 120
Visible = 0 'False
Width = 1875
End
Begin VB.Timer Timer1
Interval = 1000
Left = 1230
Top = 150
End
Begin TabDlg.SSTab SSTab1
Height = 6795
Left = -30
TabIndex = 1
Top = 1140
Width = 12150
_ExtentX = 21431
_ExtentY = 11986
_Version = 393216
Style = 1
Tabs = 6
TabsPerRow = 6
TabHeight = 529
BackColor = 13160660
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "糖茶饮料部"
TabPicture(0) = "各部删除.frx":0442
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "DBGrid1(1)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "StatusBar1(1)"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Command5(1)"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Command4(1)"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Command3(1)"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Command2(1)"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Command1(1)"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Command6(1)"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "Command7(1)"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).ControlCount= 9
TabCaption(1) = "文教用品部"
TabPicture(1) = "各部删除.frx":045E
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "DBGrid1(2)"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "StatusBar1(2)"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Command5(2)"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Command4(2)"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "Command3(2)"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "Command2(2)"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).Control(6)= "Command1(2)"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).Control(7)= "Command6(2)"
Tab(1).Control(7).Enabled= 0 'False
Tab(1).Control(8)= "Command7(2)"
Tab(1).Control(8).Enabled= 0 'False
Tab(1).ControlCount= 9
TabCaption(2) = "家用电器部"
TabPicture(2) = "各部删除.frx":047A
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "DBGrid1(3)"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).Control(1)= "StatusBar1(3)"
Tab(2).Control(1).Enabled= 0 'False
Tab(2).Control(2)= "Command5(3)"
Tab(2).Control(2).Enabled= 0 'False
Tab(2).Control(3)= "Command4(3)"
Tab(2).Control(3).Enabled= 0 'False
Tab(2).Control(4)= "Command3(3)"
Tab(2).Control(4).Enabled= 0 'False
Tab(2).Control(5)= "Command2(3)"
Tab(2).Control(5).Enabled= 0 'False
Tab(2).Control(6)= "Command1(3)"
Tab(2).Control(6).Enabled= 0 'False
Tab(2).Control(7)= "Command6(3)"
Tab(2).Control(7).Enabled= 0 'False
Tab(2).Control(8)= "Command7(3)"
Tab(2).Control(8).Enabled= 0 'False
Tab(2).ControlCount= 9
TabCaption(3) = " 服装部 "
TabPicture(3) = "各部删除.frx":0496
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "DBGrid1(4)"
Tab(3).Control(0).Enabled= 0 'False
Tab(3).Control(1)= "StatusBar1(4)"
Tab(3).Control(1).Enabled= 0 'False
Tab(3).Control(2)= "Command5(4)"
Tab(3).Control(2).Enabled= 0 'False
Tab(3).Control(3)= "Command4(4)"
Tab(3).Control(3).Enabled= 0 'False
Tab(3).Control(4)= "Command3(4)"
Tab(3).Control(4).Enabled= 0 'False
Tab(3).Control(5)= "Command2(4)"
Tab(3).Control(5).Enabled= 0 'False
Tab(3).Control(6)= "Command1(4)"
Tab(3).Control(6).Enabled= 0 'False
Tab(3).Control(7)= "Command6(4)"
Tab(3).Control(7).Enabled= 0 'False
Tab(3).Control(8)= "Command7(4)"
Tab(3).Control(8).Enabled= 0 'False
Tab(3).ControlCount= 9
TabCaption(4) = " 鞋帽部 "
TabPicture(4) = "各部删除.frx":04B2
Tab(4).ControlEnabled= 0 'False
Tab(4).Control(0)= "DBGrid1(5)"
Tab(4).Control(0).Enabled= 0 'False
Tab(4).Control(1)= "StatusBar1(5)"
Tab(4).Control(1).Enabled= 0 'False
Tab(4).Control(2)= "Command5(5)"
Tab(4).Control(2).Enabled= 0 'False
Tab(4).Control(3)= "Command4(5)"
Tab(4).Control(3).Enabled= 0 'False
Tab(4).Control(4)= "Command3(5)"
Tab(4).Control(4).Enabled= 0 'False
Tab(4).Control(5)= "Command2(5)"
Tab(4).Control(5).Enabled= 0 'False
Tab(4).Control(6)= "Command1(5)"
Tab(4).Control(6).Enabled= 0 'False
Tab(4).Control(7)= "Command6(5)"
Tab(4).Control(7).Enabled= 0 'False
Tab(4).Control(8)= "Command7(5)"
Tab(4).Control(8).Enabled= 0 'False
Tab(4).ControlCount= 9
TabCaption(5) = " 食品部 "
TabPicture(5) = "各部删除.frx":04CE
Tab(5).ControlEnabled= 0 'False
Tab(5).Control(0)= "DBGrid1(6)"
Tab(5).Control(0).Enabled= 0 'False
Tab(5).Control(1)= "StatusBar1(6)"
Tab(5).Control(1).Enabled= 0 'False
Tab(5).Control(2)= "Command5(6)"
Tab(5).Control(2).Enabled= 0 'False
Tab(5).Control(3)= "Command4(6)"
Tab(5).Control(3).Enabled= 0 'False
Tab(5).Control(4)= "Command3(6)"
Tab(5).Control(4).Enabled= 0 'False
Tab(5).Control(5)= "Command2(6)"
Tab(5).Control(5).Enabled= 0 'False
Tab(5).Control(6)= "Command1(6)"
Tab(5).Control(6).Enabled= 0 'False
Tab(5).Control(7)= "Command6(6)"
Tab(5).Control(7).Enabled= 0 'False
Tab(5).Control(8)= "Command7(6)"
Tab(5).Control(8).Enabled= 0 'False
Tab(5).ControlCount= 9
Begin VB.CommandButton Command7
Caption = "删除全部记录"
Height = 315
Index = 6
Left = -73260
TabIndex = 55
Top = 5595
Width = 1425
End
Begin VB.CommandButton Command7
Caption = "删除全部记录"
Height = 315
Index = 5
Left = -73290
TabIndex = 54
Top = 5595
Width = 1455
End
Begin VB.CommandButton Command7
Caption = "删除全部记录"
Height = 315
Index = 4
Left = -73230
TabIndex = 53
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command7
Caption = "删除全部记录"
Height = 315
Index = 3
Left = -73230
TabIndex = 52
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command7
Caption = "删除全部记录"
Height = 315
Index = 2
Left = -73230
TabIndex = 51
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command7
Caption = "删除全部记录"
Height = 315
Index = 1
Left = 1770
TabIndex = 50
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command6
Caption = "删除记录"
Height = 315
Index = 6
Left = -71820
TabIndex = 49
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command6
Caption = "删除记录"
Height = 315
Index = 5
Left = -71820
TabIndex = 48
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command6
Caption = "删除记录"
Height = 315
Index = 4
Left = -71820
TabIndex = 47
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command6
Caption = "删除记录"
Height = 315
Index = 3
Left = -71820
TabIndex = 46
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command6
Caption = "删除记录"
Height = 315
Index = 2
Left = -71820
TabIndex = 45
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command6
Caption = "删除记录"
Height = 315
Index = 1
Left = 3180
TabIndex = 44
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command1
Caption = "第一条记录"
Height = 315
Index = 6
Left = -70410
TabIndex = 43
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command2
Caption = "上一记录"
Height = 315
Index = 6
Left = -69000
TabIndex = 42
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command3
Caption = "下一记录"
Height = 315
Index = 6
Left = -67590
TabIndex = 41
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command4
Caption = "最后一条记录"
Height = 315
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -