📄 frmbaseinput.frm
字号:
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Left = 2070
TabIndex = 48
Top = 1140
Width = 675
End
Begin VB.Label Label13
BackStyle = 0 'Transparent
Caption = "政治面貌"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Left = 4350
TabIndex = 47
Top = 1140
Width = 1245
End
Begin VB.Label Label14
BackStyle = 0 'Transparent
Caption = "特长"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 270
Left = 7110
TabIndex = 46
Top = 1605
Width = 615
End
Begin VB.Label Label15
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "电话"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Left = 2070
TabIndex = 45
Top = 1605
Width = 675
End
Begin VB.Label Label16
BackStyle = 0 'Transparent
Caption = "宿舍"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Left = 120
TabIndex = 44
Top = 1605
Width = 675
End
Begin VB.Label Label25
BackStyle = 0 'Transparent
Caption = "学 历"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Left = 4350
TabIndex = 43
Top = 1605
Width = 1245
End
Begin VB.Label Label26
BackStyle = 0 'Transparent
Caption = "专业"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 270
Left = 7110
TabIndex = 42
Top = 1140
Width = 615
End
Begin VB.Label Label27
BackStyle = 0 'Transparent
Caption = "培养方式"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Left = 120
TabIndex = 41
Top = 2070
Width = 1155
End
Begin VB.Label Label28
BackStyle = 0 'Transparent
Caption = "毕业中学"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 285
Left = 120
TabIndex = 40
Top = 2610
Width = 1215
End
End
Begin VB.Line Line1
BorderColor = &H00000000&
X1 = 0
X2 = 1230
Y1 = 30
Y2 = 30
End
Begin VB.Menu MNU1
Caption = "【文件&F】"
Begin VB.Menu MNU11
Caption = "退出[&X]"
End
End
Begin VB.Menu MNU2
Caption = "【数据定位&D】"
Begin VB.Menu MNU21
Caption = "依学号定位[&H]"
End
End
Begin VB.Menu MNUQH
Caption = "【功能切换&N】"
Begin VB.Menu MNUQH1
Caption = "数据查询[&S]"
End
Begin VB.Menu MNU31
Caption = "-"
End
Begin VB.Menu MNUQH2
Caption = "数据统计[&C]"
End
Begin VB.Menu MNU32
Caption = "-"
End
Begin VB.Menu MNUQH3
Caption = "全屏修改[&R]"
End
End
Begin VB.Menu MNULOCK
Caption = "【字段锁定&L】"
Begin VB.Menu MLOCK1
Caption = "学号"
Checked = -1 'True
End
Begin VB.Menu MLOCK2
Caption = "性别"
Checked = -1 'True
End
Begin VB.Menu MLOCK3
Caption = "民族"
Checked = -1 'True
End
Begin VB.Menu MLOCK4
Caption = "院系"
Checked = -1 'True
End
Begin VB.Menu MLOCK5
Caption = "户口属性"
Checked = -1 'True
End
Begin VB.Menu MLOCK6
Caption = "班级"
Checked = -1 'True
End
Begin VB.Menu MLOCK7
Caption = "年级"
Checked = -1 'True
End
Begin VB.Menu MLOCK8
Caption = "政治面貌"
Checked = -1 'True
End
Begin VB.Menu MLOCK9
Caption = "专业"
Checked = -1 'True
End
Begin VB.Menu MLOCK10
Caption = "学历"
Checked = -1 'True
End
Begin VB.Menu MLOCK11
Caption = "培养方式"
Checked = -1 'True
End
Begin VB.Menu MLOCK12
Caption = "宿舍"
Checked = -1 'True
End
Begin VB.Menu MLOCK13
Caption = "电话"
Checked = -1 'True
End
Begin VB.Menu MLOCK14
Caption = "身份证号"
Checked = -1 'True
End
Begin VB.Menu MLOCK15
Caption = "灵通卡号"
Checked = -1 'True
End
End
Begin VB.Menu MNUPRN
Caption = "【打印&P】"
Begin VB.Menu MNUPRNRESUME
Caption = "打印个人简历[&P]"
End
End
Begin VB.Menu MNU4
Caption = "【帮助&H】"
Begin VB.Menu MNU41
Caption = "使用说明[&H]"
End
End
End
Attribute VB_Name = "frmBaseInput"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim bModify As Boolean
Dim bQuery As Boolean
Dim BADDNEW As Boolean
Dim bDelete As Boolean
Dim REC As Recordset
Dim BookMark As Integer
Dim recCount As Integer
Dim ex As Excel.Application
Dim exwbook As Excel.WorkBook
Dim exsheet As Excel.WorkSheet
Dim exchart As Excel.Chart
Private Sub cboHKSX_KeyPress(KeyAscii As Integer)
Dim sqlModify As String
On Error Resume Next
If KeyAscii = 13 Then
If bModify Then
sqlModify = "update zbqkb set hksx='" + Trim(cboHKSX) + "' where id=" + Trim(REC!ID) + ""
Dbstudent.Execute sqlModify
End If
txtBJ.SetFocus
End If
End Sub
Private Sub cboMZ_KeyPress(KeyAscii As Integer)
Dim sqlModify As String
On Error Resume Next
If KeyAscii = 13 Then
If bModify Then
sqlModify = "update zbqkb set mz='" + Trim(cboMZ) + "' where id=" + Trim(REC!ID) + ""
Dbstudent.Execute sqlModify
End If
cboYX.SetFocus
End If
End Sub
Private Sub cboNJ_KeyPress(KeyAscii As Integer)
Dim sqlModify As String
On Error Resume Next
If KeyAscii = 13 Then
If bModify Then
sqlModify = "update zbqkb set nj='" + Trim(cboNJ) + "' where id=" + Trim(REC!ID) + ""
Dbstudent.Execute sqlModify
End If
cboSY.SetFocus
End If
End Sub
Private Sub cboPYFS_KeyPress(KeyAscii As Integer)
Dim sqlModify As String
On Error Resume Next
If KeyAscii = 13 Then
If bModify Then
sqlModify = "update zbqkb set pyfs='" + Trim(cboPYFS) + "' where id=" + Trim(REC!ID) + ""
Dbstudent.Execute sqlModify
End If
txtSFZHM.SetFocus
End If
End Sub
Private Sub cboSY_KeyPress(KeyAscii As Integer)
Dim sqlModify As String
On Error Resume Next
If KeyAscii = 13 Then
If bModify Then
sqlModify = "update zbqkb set sy='" + Trim(cboSY) + "' where id=" + Trim(REC!ID) + ""
Dbstudent.Execute sqlModify
End If
cboZZMM.SetFocus
End If
End Sub
Private Sub cboXB_KeyPress(KeyAscii As Integer)
Dim sqlModify As String
On Error Resume Next
If KeyAscii = 13 Then
If bModify Then
sqlModify = "update zbqkb set xb='" + Trim(cboXB) + "' where id=" + Trim(REC!ID) + ""
Dbstudent.Execute sqlModify
End If
cboMZ.SetFocus
End If
End Sub
Private Sub cboXL_KeyPress(KeyAscii As Integer)
Dim sqlModify As String
On Error Resume Next
If KeyAscii = 13 Then
If bModify Then
sqlModify = "update zbqkb set xl='" + Trim(cboXL) + "' where id=" + Trim(REC!ID) + ""
Dbstudent.Execute sqlModify
End If
txtTC.SetFocus
End If
End Sub
Private Sub cboYX_KeyPress(KeyAscii As Integer)
Dim sqlModify As String
On Error Resume Next
If KeyAscii = 13 Then
If bModify Then
sqlModify = "update zbqkb set yx='" + Trim(cboYX) + "' where id=" + Trim(REC!ID) + ""
Dbstudent.Execute sqlModify
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -