📄 各部录入.frm
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form 各部录入
BorderStyle = 0 'None
ClientHeight = 7605
ClientLeft = 0
ClientTop = -120
ClientWidth = 11835
Icon = "各部录入.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 507
ScaleMode = 3 'Pixel
ScaleWidth = 789
ShowInTaskbar = 0 'False
Begin MSAdodcLib.Adodc Adodc1
Height = 330
Left = 9270
Top = 390
Visible = 0 'False
Width = 1815
_ExtentX = 3201
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 2
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = "法院帐务"
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.Timer Timer1
Interval = 1000
Left = 1230
Top = 120
End
Begin TabDlg.SSTab SSTab1
Height = 6375
Left = 0
TabIndex = 1
Top = 1230
Width = 12150
_ExtentX = 21431
_ExtentY = 11245
_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)= "DataGrid1(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).ControlCount= 8
TabCaption(1) = "文教用品部"
TabPicture(1) = "各部录入.frx":045E
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Command6(2)"
Tab(1).Control(1)= "Command1(2)"
Tab(1).Control(2)= "Command2(2)"
Tab(1).Control(3)= "Command3(2)"
Tab(1).Control(4)= "Command4(2)"
Tab(1).Control(5)= "Command5(2)"
Tab(1).Control(6)= "StatusBar1(2)"
Tab(1).Control(7)= "DataGrid1(2)"
Tab(1).ControlCount= 8
TabCaption(2) = "家用电器部"
TabPicture(2) = "各部录入.frx":047A
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Command6(3)"
Tab(2).Control(1)= "Command1(3)"
Tab(2).Control(2)= "Command2(3)"
Tab(2).Control(3)= "Command3(3)"
Tab(2).Control(4)= "Command4(3)"
Tab(2).Control(5)= "Command5(3)"
Tab(2).Control(6)= "StatusBar1(3)"
Tab(2).Control(7)= "DataGrid1(3)"
Tab(2).ControlCount= 8
TabCaption(3) = " 服装部 "
TabPicture(3) = "各部录入.frx":0496
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Command6(4)"
Tab(3).Control(1)= "Command1(4)"
Tab(3).Control(2)= "Command2(4)"
Tab(3).Control(3)= "Command3(4)"
Tab(3).Control(4)= "Command4(4)"
Tab(3).Control(5)= "Command5(4)"
Tab(3).Control(6)= "StatusBar1(4)"
Tab(3).Control(7)= "DataGrid1(4)"
Tab(3).ControlCount= 8
TabCaption(4) = " 鞋帽部 "
TabPicture(4) = "各部录入.frx":04B2
Tab(4).ControlEnabled= 0 'False
Tab(4).Control(0)= "Command6(5)"
Tab(4).Control(1)= "Command1(5)"
Tab(4).Control(2)= "Command2(5)"
Tab(4).Control(3)= "Command3(5)"
Tab(4).Control(4)= "Command4(5)"
Tab(4).Control(5)= "Command5(5)"
Tab(4).Control(6)= "StatusBar1(5)"
Tab(4).Control(7)= "DataGrid1(5)"
Tab(4).ControlCount= 8
TabCaption(5) = " 食品部 "
TabPicture(5) = "各部录入.frx":04CE
Tab(5).ControlEnabled= 0 'False
Tab(5).Control(0)= "Command6(6)"
Tab(5).Control(1)= "Command1(6)"
Tab(5).Control(2)= "Command2(6)"
Tab(5).Control(3)= "Command3(6)"
Tab(5).Control(4)= "Command4(6)"
Tab(5).Control(5)= "Command5(6)"
Tab(5).Control(6)= "StatusBar1(6)"
Tab(5).Control(7)= "DataGrid1(6)"
Tab(5).ControlCount= 8
Begin VB.CommandButton Command6
Caption = "新增记录"
Height = 315
Index = 6
Left = -71820
TabIndex = 43
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command6
Caption = "新增记录"
Height = 315
Index = 5
Left = -71820
TabIndex = 42
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command6
Caption = "新增记录"
Height = 315
Index = 4
Left = -71820
TabIndex = 41
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command6
Caption = "新增记录"
Height = 315
Index = 3
Left = -71820
TabIndex = 40
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command6
Caption = "新增记录"
Height = 315
Index = 2
Left = -71820
TabIndex = 39
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command6
Caption = "新增记录"
Height = 315
Index = 1
Left = 3180
TabIndex = 38
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command1
Caption = "第一条记录"
Height = 315
Index = 6
Left = -70410
TabIndex = 31
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command2
Caption = "上一记录"
Height = 315
Index = 6
Left = -69000
TabIndex = 30
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command3
Caption = "下一记录"
Height = 315
Index = 6
Left = -67590
TabIndex = 29
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command4
Caption = "最后一条记录"
Height = 315
Index = 6
Left = -66180
TabIndex = 28
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command5
Caption = "返 回"
Height = 315
Index = 6
Left = -64770
TabIndex = 27
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command1
Caption = "第一条记录"
Height = 315
Index = 5
Left = -70410
TabIndex = 26
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command2
Caption = "上一记录"
Height = 315
Index = 5
Left = -69000
TabIndex = 25
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command3
Caption = "下一记录"
Height = 315
Index = 5
Left = -67590
TabIndex = 24
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command4
Caption = "最后一条记录"
Height = 315
Index = 5
Left = -66180
TabIndex = 23
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command5
Caption = "返 回"
Height = 315
Index = 5
Left = -64770
TabIndex = 22
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command1
Caption = "第一条记录"
Height = 315
Index = 4
Left = -70410
TabIndex = 21
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command2
Caption = "上一记录"
Height = 315
Index = 4
Left = -69000
TabIndex = 20
Top = 5595
Width = 1395
End
Begin VB.CommandButton Command3
Caption = "下一记录"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -