📄 b1.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form b1
BackColor = &H00FF8080&
BorderStyle = 1 'Fixed Single
Caption = "班级信息查询"
ClientHeight = 5865
ClientLeft = 4140
ClientTop = 435
ClientWidth = 8295
Icon = "b1.frx":0000
LinkTopic = "b1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "b1.frx":014A
ScaleHeight = 9540.019
ScaleMode = 0 'User
ScaleWidth = 12761.53
StartUpPosition = 2 '屏幕中心
Begin VB.TextBox Text2
DataField = "班长"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 3885
TabIndex = 2
Top = 2520
Width = 1815
End
Begin VB.TextBox Text1
DataField = "班级"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 3885
TabIndex = 1
Top = 1920
Width = 1815
End
Begin VB.TextBox Text3
DataField = "联系电话"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 3885
TabIndex = 3
Top = 3120
Width = 1815
End
Begin VB.Data Data1
Connect = "Access 2000;"
DatabaseName = "D:\ww\管理系统\管理系统数据库.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 960
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "班级基本情况"
Top = 6240
Visible = 0 'False
Width = 2295
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Bindings = "b1.frx":121C9
Height = 1095
Left = 2257
TabIndex = 6
Top = 3840
Width = 3780
_ExtentX = 6668
_ExtentY = 1931
_Version = 393216
Cols = 0
FixedCols = 0
BackColorSel = -2147483646
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "幼圆"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "返 回"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5047
TabIndex = 12
Top = 5220
Width = 855
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "班级查询"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2407
TabIndex = 11
Top = 5220
Width = 975
End
Begin VB.Label l3
BackColor = &H00FF8080&
BackStyle = 0 'Transparent
Caption = "移动电话"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 2685
TabIndex = 10
Top = 3210
Width = 975
End
Begin VB.Label l8
BackColor = &H00FF8080&
Caption = "记录:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 240
TabIndex = 9
Top = 6300
Visible = 0 'False
Width = 735
End
Begin VB.Label l9
BackColor = &H00FF8080&
Caption = "共有记录数:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 4080
TabIndex = 8
Top = 6300
Visible = 0 'False
Width = 1335
End
Begin VB.Label Label12
BackColor = &H00FF8080&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5520
TabIndex = 7
Top = 6300
Visible = 0 'False
Width = 615
End
Begin VB.Shape s2
BorderColor = &H000000FF&
Height = 360
Left = 4762
Shape = 4 'Rounded Rectangle
Top = 5160
Visible = 0 'False
Width = 1290
End
Begin VB.Shape s1
BorderColor = &H000000FF&
Height = 360
Left = 2242
Shape = 4 'Rounded Rectangle
Top = 5160
Visible = 0 'False
Width = 1290
End
Begin VB.Label l3
BackColor = &H00FF8080&
BackStyle = 0 'Transparent
Caption = "班 长"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 2685
TabIndex = 5
Top = 2610
Width = 855
End
Begin VB.Label l2
BackColor = &H00FF8080&
BackStyle = 0 'Transparent
Caption = "班 级"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 2685
TabIndex = 4
Top = 2010
Width = 855
End
Begin VB.Label Label1
BackColor = &H00FF8080&
BackStyle = 0 'Transparent
Caption = "班级信息查询"
BeginProperty Font
Name = "华文行楷"
Size = 26.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 525
Index = 0
Left = 2565
TabIndex = 0
Top = 840
Width = 3225
End
End
Attribute VB_Name = "b1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim db As Database
Dim rs As Recordset
Private Sub Form_Load()
Dim Mpath As String
Dim t As Integer
Mpath = App.Path
If Right(Mpath, 1) <> "\" Then Mpath = Mpath + "\"
Data1.DatabaseName = Mpath + "管理系统数据库"
Data1.RecordSource = "班级基本情况"
Data1.Refresh
Text1.DataField = "班级"
Text2.DataField = "班长"
Text3.DataField = "联系电话"
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X > s1.Left And X < s1.Left + s1.Width And Y > s1.Top And Y < s1.Top + s1.Height Then
s1.Visible = True
Label2.ForeColor = &HFF&
Else:
s1.Visible = False
Label2.ForeColor = &H0&
End If
If X > s2.Left And X < s2.Left + s2.Width And Y > s2.Top And Y < s2.Top + s2.Height Then
s2.Visible = True
Label3.ForeColor = &HFF&
Else:
s2.Visible = False
Label3.ForeColor = &H0&
End If
End Sub
Private Sub Label2_Click()
Dim bj As String
bj = InputBox$("请输入班级", "查找窗")
Data1.RecordSource = " select *from 班级基本情况 where 班级='" & bj & "'"
Data1.Refresh
If Data1.Recordset.EOF Then
MsgBox "班级输入错误！", 48, "提示"
Data1.RecordSource = "班级基本情况"
Data1.Refresh
End If
End Sub
Private Sub Label3_Click()
Unload Me
main.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -