📄 main.frm
字号:
Index = 0
X1 = 120
X2 = 7080
Y1 = 1200
Y2 = 1200
End
End
Begin VB.Frame Frame2
Caption = "借阅记录"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 4215
Left = 120
TabIndex = 3
Top = 4440
Width = 14175
Begin MSComctlLib.ListView LV2
Height = 3855
Left = 120
TabIndex = 4
Top = 240
Width = 13935
_ExtentX = 24580
_ExtentY = 6800
Sorted = -1 'True
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = 0 'False
GridLines = -1 'True
_Version = 393217
ForeColor = 8388736
BackColor = 16777215
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "已经借出的图书"
ForeColor = &H00FF0000&
Height = 180
Left = 4800
TabIndex = 5
Top = 240
Width = 1260
End
End
Begin VB.Frame Frame1
Caption = "读者信息"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 4215
Left = 120
TabIndex = 2
Top = 120
Width = 4095
Begin VB.TextBox txtFa
ForeColor = &H000000FF&
Height = 345
Left = 1200
TabIndex = 34
Text = "Text1"
Top = 3645
Width = 1335
End
Begin VB.Frame Frame5
Caption = "Frame5"
Height = 135
Left = 3720
TabIndex = 28
Top = 0
Width = 15
End
Begin VB.TextBox txtZhiCheng
ForeColor = &H00FF0000&
Height = 330
Left = 1200
TabIndex = 27
Text = "Text1"
Top = 3000
Width = 1695
End
Begin MSComctlLib.ImageList ImageList1
Left = 5400
Top = 4200
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 3
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":19D4
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":1E28
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":227C
Key = ""
EndProperty
EndProperty
End
Begin VB.TextBox txtDepart
ForeColor = &H00FF0000&
Height = 345
Left = 1200
TabIndex = 12
Text = "Text1"
Top = 2400
Width = 1695
End
Begin VB.TextBox txtClass
ForeColor = &H00FF0000&
Height = 345
Left = 1200
TabIndex = 11
Text = "Text1"
Top = 1800
Width = 1695
End
Begin VB.TextBox txtName
ForeColor = &H00FF0000&
Height = 345
Left = 1200
TabIndex = 10
Text = "Text1"
Top = 1200
Width = 1695
End
Begin VB.TextBox txtBookId
ForeColor = &H00FF0000&
Height = 330
Left = 1200
TabIndex = 0
Text = "Text1"
Top = 600
Width = 1695
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "元"
ForeColor = &H00000000&
Height = 180
Index = 12
Left = 2640
TabIndex = 35
Top = 3720
Width = 180
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "共计欠费"
ForeColor = &H00000000&
Height = 180
Index = 11
Left = 240
TabIndex = 33
Top = 3720
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "职 称"
ForeColor = &H00000000&
Height = 180
Index = 9
Left = 240
TabIndex = 26
Top = 3120
Width = 630
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "部 门"
ForeColor = &H00000000&
Height = 180
Index = 3
Left = 240
TabIndex = 9
Top = 2520
Width = 630
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "班 级"
ForeColor = &H00000000&
Height = 180
Index = 2
Left = 240
TabIndex = 8
Top = 1920
Width = 630
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "姓 名"
ForeColor = &H00000000&
Height = 180
Index = 1
Left = 240
TabIndex = 7
Top = 1320
Width = 630
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "借书证号"
ForeColor = &H00000000&
Height = 180
Index = 0
Left = 240
TabIndex = 6
Top = 720
Width = 720
End
End
Begin VB.Image Image2
Height = 1020
Left = 12840
Picture = "Main.frx":26D0
Top = 840
Width = 990
End
Begin VB.Line Line3
X1 = 14400
X2 = -120
Y1 = 0
Y2 = 0
End
Begin VB.Menu mnuSys
Caption = "流通管理(&S)"
Begin VB.Menu BackMnu
Caption = "还书(&H)"
End
Begin VB.Menu SearchMnu
Caption = "查找(&F)"
End
End
Begin VB.Menu MnuFile
Caption = "图书管理(&C)"
Begin VB.Menu FenMnu
Caption = "图书分类(&F)"
Shortcut = ^F
End
Begin VB.Menu s5
Caption = "-"
End
Begin VB.Menu AddMnu
Caption = "添加新书(&A)"
Shortcut = ^A
End
Begin VB.Menu EditMnu
Caption = "编辑图书(&E)"
Shortcut = ^E
End
End
Begin VB.Menu mnuStudentID
Caption = "人员管理(&R)"
Begin VB.Menu EditIdMnu
Caption = "编辑借书证(&J)"
Shortcut = ^J
End
Begin VB.Menu LoginMnu
Caption = "登录读者(&D)"
End
Begin VB.Menu SetMnu
Caption = "借书设置&S)"
Shortcut = ^S
End
Begin VB.Menu mnuSysAdmin
Caption = "管理员(&Q)"
End
End
Begin VB.Menu syst
Caption = "系统管理(&M)"
Begin VB.Menu ExitMnu
Caption = "退出(&Q)"
End
End
End
Attribute VB_Name = "Mainfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim db1 As Database
Dim db2 As Database
Dim db3 As Database
Dim rst As Recordset
Dim rst1 As Recordset '打开表Personal
Dim rst2 As Recordset '打开表BookFlag
Dim rst3 As Recordset '打开表Book
Dim ws1 As Workspace
Dim ws2 As Workspace
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -