📄 editbook.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form EditBook
BorderStyle = 3 'Fixed Dialog
Caption = "编辑修改图书"
ClientHeight = 5745
ClientLeft = 45
ClientTop = 330
ClientWidth = 6855
Icon = "EditBook.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5745
ScaleWidth = 6855
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command1
Cancel = -1 'True
Caption = "关闭(&C)"
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5160
TabIndex = 18
Top = 5160
Width = 1455
End
Begin VB.Frame Frame2
Height = 135
Left = 720
TabIndex = 17
Top = 4920
Width = 5895
End
Begin VB.PictureBox Picture2
BorderStyle = 0 'None
Height = 1575
Left = 240
ScaleHeight = 1575
ScaleWidth = 6375
TabIndex = 13
Top = 3360
Width = 6375
Begin VB.CommandButton cmdOkCancel
BackColor = &H0000C000&
Caption = "取消"
Height = 735
Index = 1
Left = 3840
Picture = "EditBook.frx":0442
Style = 1 'Graphical
TabIndex = 15
Top = 720
Width = 1095
End
Begin VB.CommandButton cmdOkCancel
BackColor = &H0000C000&
Caption = "确定"
Height = 735
Index = 0
Left = 1440
Picture = "EditBook.frx":0884
Style = 1 'Graphical
TabIndex = 14
Top = 720
Width = 1095
End
Begin VB.Label labFlag
AutoSize = -1 'True
Caption = "确实要修改当前记录吗？"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 240
Left = 1920
TabIndex = 16
Top = 240
Width = 2640
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 120
Top = 4920
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 7
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "EditBook.frx":0CC6
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "EditBook.frx":1126
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "EditBook.frx":1586
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "EditBook.frx":19E6
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "EditBook.frx":1E46
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "EditBook.frx":22A6
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "EditBook.frx":2706
Key = ""
EndProperty
EndProperty
End
Begin VB.PictureBox Picture1
BorderStyle = 0 'None
Height = 1335
Left = 360
ScaleHeight = 1335
ScaleWidth = 6375
TabIndex = 11
Top = 3360
Width = 6375
Begin MSComctlLib.Toolbar Toolbar1
Height = 855
Left = 360
TabIndex = 12
Top = 240
Width = 5175
_ExtentX = 9128
_ExtentY = 1508
ButtonWidth = 1138
ButtonHeight = 1349
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 12
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "最前"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "前一个"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "后一个"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "最后"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改"
ImageIndex = 5
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "删除"
ImageIndex = 6
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查找"
ImageIndex = 7
EndProperty
EndProperty
BorderStyle = 1
End
End
Begin VB.Frame Frame1
Caption = "图书基本信息"
Height = 2895
Left = 240
TabIndex = 0
Top = 360
Width = 6375
Begin VB.TextBox txtBookNum
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
Left = 2760
TabIndex = 5
Top = 600
Width = 2055
End
Begin VB.TextBox txtBookName
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 315
Left = 1200
TabIndex = 4
Text = "Text1"
Top = 1290
Width = 2535
End
Begin VB.TextBox txtBookChu
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 315
Left = 1200
TabIndex = 3
Text = "Text1"
Top = 2280
Width = 2535
End
Begin VB.TextBox txtCost
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 315
Left = 4800
TabIndex = 2
Text = "Text1"
Top = 2280
Width = 1335
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -