📄 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 = 5055
ClientLeft = 45
ClientTop = 330
ClientWidth = 6645
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5055
ScaleWidth = 6645
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command1
Cancel = -1 'True
Caption = "关闭(&C)"
Height = 495
Left = 5160
TabIndex = 18
Top = 4440
Width = 1215
End
Begin VB.Frame Frame2
Height = 135
Left = 120
TabIndex = 17
Top = 4200
Width = 6615
End
Begin VB.PictureBox Picture2
BorderStyle = 0 'None
Height = 1575
Left = 240
ScaleHeight = 1575
ScaleWidth = 6135
TabIndex = 13
Top = 2760
Width = 6135
Begin VB.CommandButton cmdOkCancel
BackColor = &H0000C000&
Caption = "取消"
Height = 735
Index = 1
Left = 3840
Style = 1 'Graphical
TabIndex = 15
Top = 600
Width = 1095
End
Begin VB.CommandButton cmdOkCancel
BackColor = &H0000C000&
Caption = "确定"
Height = 735
Index = 0
Left = 1440
Style = 1 'Graphical
TabIndex = 14
Top = 600
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 = 120
Width = 2640
End
End
Begin VB.PictureBox Picture1
BorderStyle = 0 'None
Height = 1335
Left = 240
ScaleHeight = 1335
ScaleWidth = 6255
TabIndex = 11
Top = 2760
Width = 6255
Begin MSComctlLib.Toolbar Toolbar1
Height = 615
Left = 360
TabIndex = 12
Top = 240
Width = 5175
_ExtentX = 9128
_ExtentY = 1085
ButtonWidth = 1138
ButtonHeight = 926
Appearance = 1
_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 = "图书基本信息"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 2415
Left = 120
TabIndex = 0
Top = 240
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 = 480
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 = 1920
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 = 1920
Width = 1335
End
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 330
Left = 4800
TabIndex = 1
Text = "Combo1"
Top = 1320
Width = 1335
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "图书编号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 210
Index = 0
Left = 1560
TabIndex = 10
Top = 480
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "书 名"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -