?? 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 "專業(yè):" & 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 + -