📄 rennewbook.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 rennewbook
BorderStyle = 1 'Fixed Single
Caption = "正在办理图书续借"
ClientHeight = 5385
ClientLeft = 3390
ClientTop = 3165
ClientWidth = 9120
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 5385
ScaleWidth = 9120
Begin VB.Frame Frame3
Caption = "Frame3"
Height = 1455
Left = 120
TabIndex = 7
Top = 3840
Width = 8895
Begin VB.CommandButton Command2
Caption = "关闭(&C)"
Height = 495
Left = 7080
TabIndex = 17
Top = 720
Width = 1695
End
Begin VB.CommandButton Command1
Caption = "续借图书(&R)"
Enabled = 0 'False
Height = 495
Left = 7080
TabIndex = 16
Top = 240
Width = 1695
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 375
Left = 4920
TabIndex = 15
Top = 840
Width = 1815
_ExtentX = 3201
_ExtentY = 661
_Version = 393216
Format = 23789569
CurrentDate = 38094
End
Begin VB.TextBox Text5
DataField = "借书日期"
DataSource = "Adodc1"
Height = 375
Left = 4920
TabIndex = 13
Top = 240
Width = 1815
End
Begin VB.TextBox Text4
DataField = "书籍名称"
DataSource = "Adodc1"
Height = 375
Left = 1320
TabIndex = 11
Top = 840
Width = 2175
End
Begin VB.TextBox Text3
DataField = "书籍编号"
DataSource = "Adodc1"
Height = 390
Left = 1320
TabIndex = 9
Top = 240
Width = 2175
End
Begin VB.Label Label7
Caption = "续借日期："
Height = 255
Left = 3960
TabIndex = 14
Top = 960
Width = 975
End
Begin VB.Label Label6
Caption = "借书日期："
Height = 255
Left = 3960
TabIndex = 12
Top = 360
Width = 975
End
Begin VB.Label Label5
Caption = "书籍名称："
Height = 255
Left = 360
TabIndex = 10
Top = 960
Width = 975
End
Begin VB.Label Label4
Caption = "书籍编号："
Height = 255
Left = 360
TabIndex = 8
Top = 360
Width = 975
End
End
Begin VB.Frame Frame2
Caption = "所借图书信息"
Height = 2535
Left = 120
TabIndex = 6
Top = 1200
Width = 8895
Begin MSDataGridLib.DataGrid DataGrid1
Bindings = "rennewbook.frx":0000
Height = 2175
Left = 120
TabIndex = 18
Top = 240
Width = 8655
_ExtentX = 15266
_ExtentY = 3836
_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 = 330
Left = 3360
Top = 1080
Width = 1335
_ExtentX = 2355
_ExtentY = 582
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
End
Begin VB.Frame Frame1
Caption = "读者信息"
Height = 975
Left = 120
TabIndex = 0
Top = 120
Width = 8895
Begin VB.TextBox Text2
Enabled = 0 'False
Height = 375
Left = 6840
TabIndex = 5
Top = 360
Width = 1815
End
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
Height = 375
Left = 1320
TabIndex = 2
Top = 360
Width = 2535
End
Begin VB.Label Label3
Caption = "读者姓名："
Height = 255
Left = 5880
TabIndex = 4
Top = 480
Width = 975
End
Begin VB.Label Label2
Caption = "〈输入编号按回车键〉"
ForeColor = &H000000FF&
Height = 255
Left = 3960
TabIndex = 3
Top = 480
Width = 1815
End
Begin VB.Label Label1
Caption = "读者编号："
Height = 255
Left = 360
TabIndex = 1
Top = 480
Width = 975
End
End
End
Attribute VB_Name = "rennewbook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command2_Click()
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -