📄 form2.frm
字号:
Top = 120
Width = 1125
End
Begin VB.CommandButton Command9
Caption = "查询"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 470
Left = 5880
TabIndex = 3
Top = 120
Width = 1125
End
Begin VB.TextBox Text1
Height = 270
Left = 1920
TabIndex = 1
Top = 200
Width = 2055
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "请选择查询内容："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 120
TabIndex = 9
Top = 220
Width = 1800
End
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 885
Left = 0
TabIndex = 0
Top = 0
Width = 11340
_ExtentX = 20003
_ExtentY = 1561
ButtonWidth = 1640
ButtonHeight = 1508
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 8
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "借书"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "还书"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "图书管理"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "读者管理"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "查询"
ImageIndex = 5
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 12
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "b51"
Text = "所有图书"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "b52"
Text = "所有借出图书"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "b53"
Text = "今日借出图书"
EndProperty
BeginProperty ButtonMenu4 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "b54"
Text = "今日归还图书"
EndProperty
BeginProperty ButtonMenu5 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "b55"
Text = "今日新进图书"
EndProperty
BeginProperty ButtonMenu6 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "b56"
Text = "借出图书分类查询"
EndProperty
BeginProperty ButtonMenu7 {66833FEE-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Key = "b57"
Text = "-"
EndProperty
BeginProperty ButtonMenu8 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "b58"
Text = "所有读者"
EndProperty
BeginProperty ButtonMenu9 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "b59"
Text = "今日借书读者"
EndProperty
BeginProperty ButtonMenu10 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "b510"
Text = "今日还书读者"
EndProperty
BeginProperty ButtonMenu11 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "b511"
Text = "今日新增读者"
EndProperty
BeginProperty ButtonMenu12 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "b512"
Text = "过期未还读者"
EndProperty
EndProperty
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "修改密码"
ImageIndex = 6
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "关于"
ImageIndex = 7
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "退出"
ImageIndex = 8
EndProperty
EndProperty
BorderStyle = 1
MousePointer = 1
OLEDropMode = 1
End
Begin MSComctlLib.TabStrip TabStrip1
Height = 7575
Left = 0
TabIndex = 7
Top = 855
Width = 11295
_ExtentX = 19923
_ExtentY = 13361
_Version = 393216
BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628}
NumTabs = 2
BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "读者查询"
Key = "读者查询"
ImageVarType = 2
EndProperty
BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "图书查询"
Key = "图书查询"
ImageVarType = 2
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 20.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Menu menu1
Caption = "系统管理(&A)"
Index = 1
Begin VB.Menu menu11
Caption = "借书"
Index = 11
Shortcut = ^J
End
Begin VB.Menu menu12
Caption = "还书"
Index = 12
Shortcut = ^H
End
Begin VB.Menu menu13
Caption = "-"
Index = 13
End
Begin VB.Menu menu14
Caption = "退出"
Index = 14
Shortcut = ^{F12}
End
End
Begin VB.Menu menu2
Caption = "数据管理(&D)"
Index = 2
Begin VB.Menu menu21
Caption = "图书管理"
Index = 21
Shortcut = ^N
End
Begin VB.Menu menu22
Caption = "读者管理"
Index = 22
Shortcut = ^I
End
Begin VB.Menu menu23
Caption = "-"
Index = 23
End
Begin VB.Menu menu24
Caption = "图书添加"
Index = 24
Shortcut = ^A
End
Begin VB.Menu menu25
Caption = "读者添加"
Index = 25
Shortcut = ^F
End
Begin VB.Menu menu26
Caption = "-"
Index = 26
End
Begin VB.Menu menu27
Caption = "丢失/损坏/赔偿"
Index = 27
End
End
Begin VB.Menu menu3
Caption = "设置(&S)"
Index = 3
Begin VB.Menu menu31
Caption = "登录密码修改"
Index = 31
Shortcut = +{F4}
End
Begin VB.Menu menu32
Caption = "-"
Index = 32
End
Begin VB.Menu menu33
Caption = "图书类别设置"
Index = 33
Shortcut = ^{F3}
End
Begin VB.Menu menu34
Caption = "读者类别设置"
Index = 34
Shortcut = ^{F7}
End
Begin VB.Menu menu35
Caption = "图书存放位置"
Index = 35
Shortcut = ^{INSERT}
End
Begin VB.Menu menu36
Caption = "-"
Index = 36
End
Begin VB.Menu menu37
Caption = "设置借书期限"
Index = 37
Shortcut = ^Z
End
End
Begin VB.Menu menu4
Caption = "关于...(&H)"
Index = 4
End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim maincn As New ADODB.Connection
Dim 查询面板 As String
Dim mainrsuser As New Recordset
Dim mainrsuser2 As New Recordset
Dim mainrsuserclose As Integer
Dim mainrsuser2close As Integer
Private Sub combo1_GotFocus()
Combo1.BackColor = &H80FFFF
End Sub
Private Sub combo1_LostFocus()
Combo1.BackColor = &H80000014
End Sub
Private Sub combo2_GotFocus()
Combo2.BackColor = &H80FFFF
End Sub
Private Sub combo2_LostFocus()
Combo2.BackColor = &H80000014
End Sub
Private Sub Command10_Click()
If usertype <> 1 Then
nul = MsgBox("你没有权限执行此操作！", vbOKOnly, "权限不足！")
Else
main.Enabled = False
systemset.Show
End If
End Sub
Private Sub Command11_Click()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -