📄 form12.frm
字号:
Top = 8355
Width = 13740
_ExtentX = 24236
_ExtentY = 1296
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 3
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 8114
MinWidth = 8114
Text = " 查询读者信息"
TextSave = " 查询读者信息"
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 5
Object.Width = 8114
MinWidth = 8114
TextSave = "12:11"
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 6
Object.Width = 8114
MinWidth = 8114
TextSave = "2007-7-8"
Key = ""
Object.Tag = ""
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Image Image1
Height = 3405
Left = 8040
Picture = "Form12.frx":0000
Stretch = -1 'True
Top = 120
Width = 3255
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "读者类别"
BeginProperty Font
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 6360
TabIndex = 13
Top = 5760
Width = 1815
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "借书数量"
BeginProperty Font
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 6420
TabIndex = 12
Top = 4800
Width = 1695
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "电话号码"
BeginProperty Font
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 6360
TabIndex = 11
Top = 3840
Width = 1815
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "家庭住址"
BeginProperty Font
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 1080
TabIndex = 10
Top = 6960
Width = 1695
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "性别"
BeginProperty Font
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 1140
TabIndex = 9
Top = 5840
Width = 1575
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "图书证号"
BeginProperty Font
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 1080
TabIndex = 8
Top = 4840
Width = 1695
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "读者姓名"
BeginProperty Font
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 1020
TabIndex = 7
Top = 3840
Width = 1815
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "请输入查询内容"
BeginProperty Font
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 720
TabIndex = 4
Top = 1320
Width = 2655
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "请选择查询方式"
BeginProperty Font
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 720
TabIndex = 3
Top = 240
Width = 2895
End
End
Attribute VB_Name = "Form12"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim key As String
If Combo1.Text = "读者姓名" Then
key = "读者姓名"
End If
If Combo1.Text = "图书证号" Then
key = "图书证号"
End If
If Combo1.Text = "电话号码" Then
key = "电话号码"
End If
Adodc1.Recordset.find key & "='" & Text1.Text & "'"
If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then
MsgBox "没有找到您要查找的记录！"
Adodc1.Recordset.MoveFirst
Else
Text2 = Adodc1.Recordset.Fields(0)
Text3 = Adodc1.Recordset.Fields(1)
Text4 = Adodc1.Recordset.Fields(2)
Text5 = Adodc1.Recordset.Fields(3)
Text6 = Adodc1.Recordset.Fields(4)
Text7 = Adodc1.Recordset.Fields(5)
Text8 = Adodc1.Recordset.Fields(6)
End If
Text1 = ""
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Combo1.AddItem "读者姓名"
Combo1.AddItem "图书证号"
Combo1.AddItem "电话号码"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -