📄 lentbook.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 = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form lentbook
BorderStyle = 1 'Fixed Single
Caption = "正在进行借书操作"
ClientHeight = 7410
ClientLeft = 1815
ClientTop = 2190
ClientWidth = 11955
Icon = "lentbook.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 7410
ScaleWidth = 11955
Begin VB.Frame Frame3
Caption = "借阅信息"
Height = 3015
Left = 120
TabIndex = 27
Top = 4320
Width = 11775
Begin MSDataGridLib.DataGrid DataGrid1
Bindings = "lentbook.frx":2C14A
Height = 2535
Left = 120
TabIndex = 28
Top = 360
Width = 11535
_ExtentX = 20346
_ExtentY = 4471
_Version = 393216
HeadLines = 1
RowHeight = 15
FormatLocked = -1 'True
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 8
BeginProperty Column00
DataField = "读者编号"
Caption = "读者编号"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = "读者姓名"
Caption = "读者姓名"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column02
DataField = "书籍编号"
Caption = "书籍编号"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column03
DataField = "书籍名称"
Caption = "书籍名称"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column04
DataField = "书籍类别"
Caption = "书籍类别"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column05
DataField = "书籍页码"
Caption = "书籍页码"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column06
DataField = "出版社"
Caption = "出版社"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column07
DataField = "借书日期"
Caption = "借书日期"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
BeginProperty Column02
EndProperty
BeginProperty Column03
EndProperty
BeginProperty Column04
EndProperty
BeginProperty Column05
EndProperty
BeginProperty Column06
EndProperty
BeginProperty Column07
EndProperty
EndProperty
End
Begin MSAdodcLib.Adodc Adodc1
Height = 375
Left = 4680
Top = 1440
Visible = 0 'False
Width = 3255
_ExtentX = 5741
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
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.Label Label14
Caption = "所借图书："
ForeColor = &H000000FF&
Height = 255
Left = 3360
TabIndex = 32
Top = 120
Width = 975
End
Begin VB.Label Label15
ForeColor = &H000000FF&
Height = 255
Left = 4440
TabIndex = 31
Top = 120
Width = 975
End
Begin VB.Label Label16
Caption = "还允许借阅的册数："
ForeColor = &H000000FF&
Height = 255
Left = 7800
TabIndex = 30
Top = 120
Width = 1695
End
Begin VB.Label Label17
ForeColor = &H000000FF&
Height = 255
Left = 9600
TabIndex = 29
Top = 120
Width = 975
End
End
Begin VB.Frame Frame2
Caption = "借阅图书信息"
Height = 2535
Left = 120
TabIndex = 8
Top = 1680
Width = 11775
Begin VB.TextBox bookidtxt
BackColor = &H00C0FFFF&
Height = 375
Left = 1560
TabIndex = 17
Top = 360
Width = 3015
End
Begin VB.TextBox bookmctxt
Enabled = 0 'False
Height = 375
Left = 8400
TabIndex = 16
Top = 960
Width = 3135
End
Begin VB.TextBox bookcbtxt
Enabled = 0 'False
Height = 375
Left = 8400
TabIndex = 15
Top = 1560
Width = 3135
End
Begin VB.TextBox bookjgtxt
Enabled = 0 'False
Height = 375
Left = 1560
TabIndex = 14
Top = 960
Width = 1815
End
Begin VB.TextBox booklbtxt
Enabled = 0 'False
Height = 375
Left = 5040
TabIndex = 13
Top = 960
Width = 1815
End
Begin VB.TextBox bookymtxt
Enabled = 0 'False
Height = 375
Left = 5040
TabIndex = 12
Top = 1560
Width = 1815
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -