📄 main.frm
字号:
ForeColor = &H00FF0000&
Height = 4695
Left = 840
TabIndex = 3
Top = 5640
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 = 12648447
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 = 840
TabIndex = 2
Top = 1200
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":A85C
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":ACB0
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Main.frx":B104
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.Line Line3
X1 = 15000
X2 = 0
Y1 = 1080
Y2 = 1080
End
Begin VB.Menu mnuSys
Caption = "系统管理(&S)"
Begin VB.Menu mnuSysAdmin
Caption = "管理员"
End
Begin VB.Menu ExitMnu
Caption = "退出"
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 = "借书证管理"
Begin VB.Menu EditIdMnu
Caption = "编辑借书证(&J)"
Shortcut = ^J
End
Begin VB.Menu s2
Caption = "-"
End
Begin VB.Menu SetMnu
Caption = "借书设置&S)"
Shortcut = ^S
End
End
Begin VB.Menu ToolMnu
Caption = "操作(&T)"
Begin VB.Menu LoginMnu
Caption = "登录(&D)"
End
Begin VB.Menu s3
Caption = "-"
End
Begin VB.Menu SearchMnu
Caption = "查找(&F)"
End
Begin VB.Menu BackMnu
Caption = "还书(&H)"
End
End
Begin VB.Menu bb
Caption = "报表(P)"
Begin VB.Menu tsbb
Caption = "图书信息报表打印"
Shortcut = +{F1}
End
Begin VB.Menu dzbb
Caption = "读者报信息表打印"
Shortcut = +{F2}
End
Begin VB.Menu dc
Caption = "借出书籍信息报表打印"
Shortcut = +{F3}
End
End
Begin VB.Menu bz
Caption = "帮助(H)"
Begin VB.Menu gy
Caption = "关于"
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
Dim qry2 As QueryDef
Dim RecNumBookFf As Integer '表BookFf的记录个数
Dim SFlag As String
Private Type MSet
BookNum As Integer
BookCost As Single
End Type
Dim SetFlag As MSet
Option Explicit
Private Sub AddMnu_Click()
'Sb.Panels(1).Text = "添加新书"
AddNewBook.Show (1)
'Sb.Panels(1).Text = SFlag
End Sub
Private Sub BackMnu_Click()
cmdBackBook_Click
End Sub
Private Sub cmdBackBook_Click() '打开还书对话框
cmdKong_Click
Lentfrm.Show (1)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -