📄 fortiej.frm
字号:
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 5730
TabIndex = 69
Top = 510
Width = 465
End
Begin VB.Label Label32
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "姓名"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 2160
TabIndex = 68
Top = 510
Width = 495
End
Begin VB.Label Label31
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "学号"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 240
TabIndex = 67
Top = 510
Width = 465
End
Begin VB.Label Label17
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "家长姓名1"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 240
TabIndex = 21
Top = 1020
Width = 1035
End
Begin VB.Label Label18
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "关系1"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 2700
TabIndex = 20
Top = 1020
Width = 585
End
Begin VB.Label Label19
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "邮码1"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 4920
TabIndex = 19
Top = 1530
Width = 585
End
Begin VB.Label Label20
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "单位1"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 240
TabIndex = 18
Top = 1530
Width = 585
End
Begin VB.Label Label21
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "家长姓名2"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 240
TabIndex = 17
Top = 2040
Width = 1035
End
Begin VB.Label Label22
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "关系2"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 2700
TabIndex = 16
Top = 2040
Width = 585
End
Begin VB.Label Label23
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "邮码2"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 4920
TabIndex = 15
Top = 2610
Width = 585
End
Begin VB.Label Label24
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "单位2"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 240
TabIndex = 14
Top = 2550
Width = 585
End
Begin VB.Label Label29
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "电话1"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 4920
TabIndex = 13
Top = 990
Width = 585
End
Begin VB.Label Label30
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "电话2"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 4920
TabIndex = 12
Top = 2070
Width = 585
End
End
End
Begin VB.Shape Shape3
FillColor = &H008080FF&
FillStyle = 0 'Solid
Height = 615
Left = 480
Shape = 4 'Rounded Rectangle
Top = 4290
Width = 2835
End
Begin VB.Shape Shape4
FillColor = &H008080FF&
FillStyle = 0 'Solid
Height = 615
Left = 3450
Shape = 4 'Rounded Rectangle
Top = 4290
Width = 4875
End
End
Attribute VB_Name = "Frmtiejia"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub Form_Load()
Frmtiejia.Caption = "学籍异动情况表，当前学号为：" & ID
Data1.DatabaseName = App.Path + "\DATABASE\STUDENT.MDB"
'TxtXH.Text = ID
Dim recForFamily As Recordset
Dim sqlForFamily As String
sqlForFamily = "select top 1 * from jtqkb where xh='" + Trim(ID) + "'"
Set recForFamily = dbStudent.OpenRecordset(sqlForFamily, dbOpenSnapshot)
Set Data1.Recordset = recForFamily
End Sub
Private Sub SSTab1_Click(PreviousTab As Integer)
Select Case SSTab1.Tab
Case 0
Data1.RecordSource = "JTQKB"
Data1.Refresh
Data1.Recordset.FindFirst "xh='" + Trim(ID) + "'"
If Data1.Recordset.NoMatch Then
MsgBox "无此同学信息!", vbInformation, "HELLO!"
Exit Sub
End If
Case 1
Data1.RecordSource = "ZBQKB"
Data1.Refresh
Data1.Recordset.FindFirst "XH='" + Trim(ID) + "'"
Case 2
Data1.RecordSource = "ZBQKB"
Data1.Refresh
Data1.Recordset.FindFirst "XH='" + Trim(ID) + "'"
List1.Clear
List1.AddItem "学号:" & Space(6) & Data1.Recordset(1)
List1.AddItem "姓名:" & Space(6) & Data1.Recordset(2)
List1.AddItem "性别:" & Space(6) & Data1.Recordset(4)
List1.AddItem "班级:" & Space(6) & Data1.Recordset(9)
List1.AddItem "专业:" & Space(6) & Data1.Recordset(13)
List1.AddItem "宿舍:" & Space(6) & Data1.Recordset(14)
List1.AddItem "电话:" & Space(6) & Data1.Recordset(15)
List1.AddItem "生源:" & Space(6) & Data1.Recordset(11)
List1.AddItem "出生日期:" & Space(2) & Data1.Recordset(3)
List1.AddItem "政治面貌:" & Space(2) & Data1.Recordset(12)
List1.AddItem "所在院系:" & Space(2) & Data1.Recordset(7)
List1.AddItem "个人特长:" & Space(2) & Data1.Recordset(17)
If ID = 1601005 Then
Image1.Picture = LoadPicture("c:\1.bmp")
Else
If ID = 1601012 Then
Image1.Picture = LoadPicture("c:\2.bmp")
Else
Image1.Picture = LoadPicture("")
End If
End If
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -