📄 frmbookmessage.frm
字号:
VERSION 5.00
Begin VB.Form frmbookmessage
BorderStyle = 3 'Fixed Dialog
Caption = "图书资料登记"
ClientHeight = 3555
ClientLeft = 45
ClientTop = 330
ClientWidth = 8010
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmbookmessage.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 3555
ScaleWidth = 8010
ShowInTaskbar = 0 'False
Begin VB.CommandButton Cmdlast
Caption = ">|"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2640
TabIndex = 25
Top = 3120
Width = 1095
End
Begin VB.CommandButton Cmdfirst
Caption = "|<"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 24
Top = 3120
Width = 1095
End
Begin VB.ComboBox Cbotypes
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 1200
TabIndex = 23
Text = "Combo1"
Top = 1920
Width = 1815
End
Begin VB.TextBox Txtprice
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 5040
TabIndex = 22
Top = 120
Width = 1455
End
Begin VB.CommandButton cmdclose
Caption = "关 闭"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6960
TabIndex = 20
Top = 3120
Width = 735
End
Begin VB.CommandButton Cmdsave
Caption = "保 存"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5880
TabIndex = 19
Top = 3120
Width = 735
End
Begin VB.CommandButton Cmdremove
Caption = "删 除"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5160
TabIndex = 18
Top = 3120
Width = 735
End
Begin VB.CommandButton Cmdenter
Caption = "登 记"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4440
TabIndex = 17
Top = 3120
Width = 735
End
Begin VB.CommandButton Cmdnext
Caption = ">"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1920
TabIndex = 16
Top = 3120
Width = 735
End
Begin VB.TextBox Txtnumbers
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 5040
TabIndex = 15
Top = 1920
Width = 1455
End
Begin VB.CommandButton Cmdprev
Caption = "<"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1200
TabIndex = 13
Top = 3120
Width = 735
End
Begin VB.ComboBox Cbostate
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 1200
TabIndex = 12
Text = "Combo2"
Top = 2520
Width = 1815
End
Begin VB.TextBox Txtpublish
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 5040
TabIndex = 11
Top = 720
Width = 2775
End
Begin VB.TextBox Txtjointime
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 5040
Locked = -1 'True
TabIndex = 9
Top = 1320
Width = 1455
End
Begin VB.TextBox Txtauthor
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1200
TabIndex = 8
Top = 1320
Width = 1815
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
Height = 315
Left = 1200
TabIndex = 7
Top = 720
Width = 2655
End
Begin VB.TextBox Txtbookindex
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1200
Locked = -1 'True
TabIndex = 6
Top = 120
Width = 1815
End
Begin VB.Label Lblprice
AutoSize = -1 'True
Caption = "价 格"
BeginProperty Font
Name = "宋体"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -