📄 borrow.frm
字号:
VERSION 5.00
Begin VB.Form Form2
BorderStyle = 1 'Fixed Single
Caption = "借书"
ClientHeight = 1665
ClientLeft = 45
ClientTop = 330
ClientWidth = 3615
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1665
ScaleWidth = 3615
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command2
Caption = "续借"
Height = 300
Left = 120
TabIndex = 27
Top = 1320
Visible = 0 'False
Width = 855
End
Begin VB.TextBox Text6
DataField = "书籍介绍"
DataSource = "Data1"
Height = 270
Left = 1080
TabIndex = 22
Text = "Text2"
Top = 3240
Width = 1695
End
Begin VB.TextBox Text5
DataField = "书籍名称"
DataSource = "Data1"
Height = 270
Left = 1080
TabIndex = 21
Text = "Text1"
Top = 2880
Width = 1695
End
Begin VB.TextBox Text13
Height = 270
Left = 2880
TabIndex = 20
Text = "传递查询变量"
Top = 2880
Width = 735
End
Begin VB.CommandButton Bor
Caption = "确定"
Height = 300
Left = 120
TabIndex = 19
Top = 1320
Width = 855
End
Begin VB.TextBox Text12
Height = 270
Left = 2880
TabIndex = 18
Text = "Text12"
Top = 2520
Width = 735
End
Begin VB.TextBox Text11
Height = 270
Left = 2880
TabIndex = 17
Text = "Text11"
Top = 2040
Width = 735
End
Begin VB.CommandButton Command4
Caption = "退出"
Height = 300
Left = 2640
TabIndex = 14
Top = 1320
Width = 855
End
Begin VB.CommandButton Command3
Caption = "备注"
Height = 300
Left = 960
TabIndex = 9
Top = 1320
Width = 855
End
Begin VB.CommandButton Bak
Caption = "确定"
Height = 300
Left = 120
TabIndex = 8
Top = 1320
Width = 855
End
Begin VB.TextBox Text3
DataField = "借书日期"
DataSource = "Data1"
Height = 270
Left = 1080
TabIndex = 6
Text = "Text3"
Top = 2040
Width = 1695
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "libary.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 840
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "libary"
Top = 3360
Width = 1140
End
Begin VB.TextBox Text4
DataField = "还书日期"
DataSource = "Data1"
Height = 270
Left = 1080
TabIndex = 3
Text = "Text4"
Top = 2520
Width = 1695
End
Begin VB.Frame Frame1
Caption = "借书"
Height = 1095
Left = 120
TabIndex = 1
Top = 0
Width = 3375
Begin VB.TextBox Text15
Height = 270
Left = 720
TabIndex = 24
Top = 720
Visible = 0 'False
Width = 2415
End
Begin VB.TextBox Text14
Height = 270
Left = 720
TabIndex = 23
Top = 240
Visible = 0 'False
Width = 2415
End
Begin VB.TextBox Text10
Height = 270
Left = 720
TabIndex = 16
Top = 720
Width = 2415
End
Begin VB.TextBox Text9
Height = 270
Left = 720
TabIndex = 15
Top = 240
Width = 2415
End
Begin VB.TextBox Text8
Height = 270
Left = 720
TabIndex = 13
Top = 240
Visible = 0 'False
Width = 2415
End
Begin VB.TextBox Text7
Height = 270
Left = 720
TabIndex = 12
Top = 720
Visible = 0 'False
Width = 2415
End
Begin VB.TextBox Text2
DataField = "书号"
DataSource = "Data1"
Height = 270
Left = 720
TabIndex = 7
Text = "Text2"
Top = 720
Width = 2415
End
Begin VB.TextBox Text1
DataField = "学号"
DataSource = "Data1"
Height = 270
Left = 720
TabIndex = 2
Text = "Text1"
Top = 240
Width = 2415
End
Begin VB.Label Label4
Caption = "书号："
Height = 255
Left = 120
TabIndex = 11
Top = 720
Width = 735
End
Begin VB.Label Label3
Caption = "学号："
Height = 255
Left = 120
TabIndex = 10
Top = 240
Width = 615
End
End
Begin VB.CommandButton Command1
Caption = "取消"
Height = 300
Left = 1800
TabIndex = 0
Top = 1320
Width = 855
End
Begin VB.Label Label6
Caption = "备注备注内容"
Height = 255
Left = 240
TabIndex = 26
Top = 3240
Width = 735
End
Begin VB.Label Label5
Caption = "备注名称"
Height = 255
Left = 240
TabIndex = 25
Top = 2880
Width = 735
End
Begin VB.Label Label2
Caption = "借书日期"
Height = 255
Left = 240
TabIndex = 5
Top = 2520
Width = 735
End
Begin VB.Label Label1
Caption = "借书日期"
Height = 255
Left = 240
TabIndex = 4
Top = 2040
Width = 735
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'由于把借书和还书操作成在一个窗体上，共动用了15个text控件,可以用全局变量来代替，为了方便我选择了前者
'text1与data1的学号绑定
'text2与data1的书号绑定
'text3与data1的借书日期绑定
'text4与data1的还书日期绑定
'text5与data1的书籍名称绑定
'text6与data1的书籍介绍绑定
'text7用来传递借书时输入的学号
'text8用来传递借书时的书号
'text9用来传递还书时的书号
'text10用来确认还书时的书号
'text11用来传递借书时的借书日期，与text3对应
'text12用来传递借书时的还书日期，与text4对应
'text13用来传递还书者的学号，以便查询显示该学号所借的所有书籍
'text14用来传递借书时备注的书名，与text5对应
'text15用来传递借书时备注的介绍，与text6对应
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim ssql As String
Dim sc As String
Private bflag As Boolean
Private backup As Boolean
Private Sub Bor_Click()
On Error GoTo wrong
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -