main.frm
来自「图书进销存系统里面有很的多版块是图书管理系统全集」· FRM 代码 · 共 1,410 行 · 第 1/4 页
FRM
1,410 行
Width = 1335
End
Begin VB.TextBox txtZhiCheng
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
Left = 1200
TabIndex = 29
Text = "Text1"
Top = 3000
Width = 1695
End
Begin VB.TextBox txtDepart
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 345
Left = 1200
TabIndex = 12
Text = "Text1"
Top = 2400
Width = 1695
End
Begin VB.TextBox txtClass
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 345
Left = 1200
TabIndex = 11
Text = "Text1"
Top = 1800
Width = 1695
End
Begin VB.TextBox txtName
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 345
Left = 1200
TabIndex = 10
Text = "Text1"
Top = 1200
Width = 1695
End
Begin VB.TextBox txtBookId
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
Left = 1200
TabIndex = 0
Text = "Text1"
Top = 600
Width = 1695
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "元"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 12
Left = 2640
TabIndex = 34
Top = 3720
Width = 210
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "共计欠费"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 11
Left = 240
TabIndex = 32
Top = 3720
Width = 840
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "职 称"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 9
Left = 240
TabIndex = 28
Top = 3120
Width = 735
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "部 门"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 3
Left = 240
TabIndex = 9
Top = 2520
Width = 735
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "班 级"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 2
Left = 240
TabIndex = 8
Top = 1920
Width = 735
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "姓 名"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 1
Left = 240
TabIndex = 7
Top = 1320
Width = 735
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "借书证号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 0
Left = 240
TabIndex = 6
Top = 720
Width = 840
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
Begin VB.Menu s1
Caption = "-"
End
Begin VB.Menu EditIdMnu
Caption = "编辑借书证(&J)"
Shortcut = ^J
End
Begin VB.Menu s2
Caption = "-"
End
Begin VB.Menu ExitMnu
Caption = "退出(&X)"
End
End
Begin VB.Menu ToolMnu
Caption = "工具(&T)"
Begin VB.Menu LoginMnu
Caption = "登录(&D)"
End
Begin VB.Menu SearchMnu
Caption = "查找(&F)"
End
Begin VB.Menu BackMnu
Caption = "还书(&H)"
End
Begin VB.Menu s3
Caption = "-"
End
Begin VB.Menu SetMnu
Caption = "设置(&S)"
Shortcut = ^S
End
End
Begin VB.Menu HelpMnu
Caption = "帮助(&H)"
Begin VB.Menu AboutMnu
Caption = "关于本软件(&A)"
End
End
End
Attribute VB_Name = "Mainfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' **********************************************************************
' 描 述：银龙图书管理系统
' 中国VB网收集整理 http://www.ChinaVB.net
' QQ交流群：13047826 14356878
' 发表源码或文章请发邮件到:info@chinavb.net
' **********************************************************************Dim i As Integer
'定义db1 , db2, db3为数据库类型
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
'定义查询变量：qry2
Dim qry2 As QueryDef
Dim RecNumBookFf As Integer '表BookFf的记录个数
Dim DBpath As String '数据库路径变量
Dim SETpath As String '设置文件路径变量
'自定义数据类型：MSet
Private Type MSet
BookNum As Integer
BookCost As Single
End Type
'定义变量SetFlag为上面的自定义类型
Dim SetFlag As MSet
'变量声明，要求变量必须定义才能使用
Option Explicit
Private Sub AboutMnu_Click()
''菜单--关于
Aboutfrm.Show (1)
End Sub
Private Sub AddMnu_Click()
'菜单--添加新书
AddNewBook.Show (1)
End Sub
Private Sub BackMnu_Click()
'菜单--还书
cmdBackBook_Click
End Sub
Private Sub cmdAddBook_Click()
'添加新书按钮
AddNewBook.Show (1)
End Sub
Private Sub cmdAdmin_Click()
'管理员按钮
SetPer.Show (1)
End Sub
Private Sub cmdBackBook_Click()
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?