📄 frmyd.frm
字号:
VERSION 5.00
Begin VB.Form frmYD
Caption = "学籍异动表"
ClientHeight = 3540
ClientLeft = 60
ClientTop = 348
ClientWidth = 7032
Icon = "frmYD.frx":0000
LinkTopic = "Form1"
ScaleHeight = 3540
ScaleWidth = 7032
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton cmdExit
Caption = "退出"
BeginProperty Font
Name = "宋体"
Size = 14.4
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2640
TabIndex = 16
Top = 2880
Width = 1575
End
Begin VB.TextBox txtZZSJ
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4920
TabIndex = 15
Top = 2040
Width = 1215
End
Begin VB.TextBox txtZXJE
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1920
TabIndex = 13
Top = 2040
Width = 1215
End
Begin VB.TextBox txtKBJE
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1920
TabIndex = 11
Top = 1440
Width = 1215
End
Begin VB.TextBox txtKBRQ
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4920
TabIndex = 9
Top = 1440
Width = 1215
End
Begin VB.TextBox txtHDRQ
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4920
TabIndex = 7
Top = 840
Width = 1215
End
Begin VB.TextBox txtDXJE
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1920
TabIndex = 5
Top = 840
Width = 1215
End
Begin VB.TextBox txtXM
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4920
TabIndex = 3
Top = 240
Width = 1215
End
Begin VB.TextBox txtXH
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1920
TabIndex = 1
Top = 240
Width = 1215
End
Begin VB.Label Label8
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "终止时间"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3360
TabIndex = 14
Top = 2040
Width = 1335
End
Begin VB.Label Label7
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "助学金额"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 12
Top = 2040
Width = 1335
End
Begin VB.Label Label6
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "困补金额"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 10
Top = 1440
Width = 1335
End
Begin VB.Label Label5
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "困补日期"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3360
TabIndex = 8
Top = 1440
Width = 1335
End
Begin VB.Label Label4
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "还贷日期"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3360
TabIndex = 6
Top = 840
Width = 1335
End
Begin VB.Label Label3
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "贷学金额"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 4
Top = 840
Width = 1335
End
Begin VB.Label Label2
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "姓名"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3360
TabIndex = 2
Top = 240
Width = 1335
End
Begin VB.Label Label1
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "学号"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 0
Top = 240
Width = 1335
End
End
Attribute VB_Name = "frmYD"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdAdd_Click()
frmAdd.Show
End Sub
Private Sub cmdExit_Click()
Unload Me
'frmChoice.Show
'frmChoice.Enabled = True
End Sub
Private Sub Form_Load()
Dim recForFamily As Recordset
Dim sqlForFamily As String
sqlForFamily = "select top 1 zbqkb.xh,zbqkb.xm,daixj.daixje,daixj.huandrq,kunnbz.kunbnyr,kunnbz.kunbje,zhuxj.jine,zhuxj.zhongzsj from zbqkb,daixj,kunnbz,zhuxj where zbqkb.xh='" + Trim(ID) + "' or daixj.xueh='" + Trim(ID) + "'or kunnbz.xueh='" + Trim(ID) + "' or zhuxj.xueh='" + Trim(ID) + "'"
Set recForFamily = dbStudent.OpenRecordset(sqlForFamily, dbOpenSnapshot)
If Not IsNull(recForFamily!XH) Then txtXH = recForFamily!XH
If Not IsNull(recForFamily!XM) Then txtXM = recForFamily!XM
If Not IsNull(recForFamily!daixje) Then txtDXJE = recForFamily!daixje
If Not IsNull(recForFamily!huandrq) Then txtHDRQ = recForFamily!huandrq
If Not IsNull(recForFamily!kunbnyr) Then txtKBRQ = recForFamily!kunbnyr
If Not IsNull(recForFamily!kunbje) Then txtKBJE = recForFamily!kunbje
If Not IsNull(recForFamily!jine) Then txtZXJE = recForFamily!jine
If Not IsNull(recForFamily!zhongzsj) Then txtZZSJ = recForFamily!zhongzsj
frmYD.Caption = "学籍异动表，当前学号为：" & ID
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unload Me
'frmChoice.Show
'frmChoice.Enabled = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -