📄 frmbaseinput1.frm
字号:
AutoSize = -1 'True
Caption = "来校年月"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 2445
TabIndex = 47
Top = 2610
Width = 855
End
Begin VB.Label Label6
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "人员状况"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 4800
TabIndex = 46
Top = 1224
Width = 855
End
Begin VB.Label Label8
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "标准工资"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 7080
TabIndex = 45
Top = 2145
Width = 855
End
Begin VB.Label Label9
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "晋升情况"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 4800
TabIndex = 44
Top = 2148
Width = 855
End
Begin VB.Label Label35
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "大学学历"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 150
TabIndex = 43
Top = 1680
Width = 855
End
Begin VB.Label Label36
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "大学学制"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 2445
TabIndex = 42
Top = 1686
Width = 855
End
Begin VB.Label Label37
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "硕士学历"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 4800
TabIndex = 41
Top = 1686
Width = 855
End
Begin VB.Label Label38
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "硕士学制"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 7080
TabIndex = 40
Top = 1680
Width = 855
End
Begin VB.Label Label14
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "晋升年月"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 2445
TabIndex = 39
Top = 2148
Width = 855
End
End
Begin ComctlLib.StatusBar StaBar
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 0
Top = 6450
Width = 9510
_ExtentX = 16775
_ExtentY = 661
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 4
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 6
Alignment = 1
AutoSize = 2
Object.Width = 2646
MinWidth = 2646
TextSave = "2000-01-15"
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
AutoSize = 2
Object.Width = 2831
MinWidth = 2822
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
AutoSize = 2
Object.Width = 2831
MinWidth = 2822
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7}
AutoSize = 1
Object.Width = 8334
Text = "上海交大房产信息管理系统，1999年版"
TextSave = "上海交大房产信息管理系统，1999年版"
Key = ""
Object.Tag = ""
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
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 Ctl(0 To 39) As Control
Dim CtlCount As Integer
'全局记录集
Dim rec As Recordset
'状态参数
Dim bEdit As Boolean
Dim bChanged As Boolean '编辑状态下当前记录是否被改变
'检测参数
Dim bDateNull As Boolean '当日期型控件内容为空时继续不中止添加过程也不输入
Dim bNumberNull As Boolean '当数字型控件内容为空时继续不中止添加过程也不输入
'to do
Dim dbTeacher As Database
'end do
Private Sub cboDanW_Click()
If bEdit Then bChanged = True
End Sub
Private Sub cboDaX_Click()
If bEdit Then bChanged = True
End Sub
Private Sub cboFenP_Click()
If bEdit Then bChanged = True
End Sub
Private Sub cboHunY_Click()
If bEdit Then bChanged = True
End Sub
Private Sub cboJiangLLQ_Change()
If bEdit Then bChanged = True
End Sub
Private Sub cboJiangLLQ_Click()
If bEdit Then bChanged = True
End Sub
Private Sub cboLaoSD_Click()
If bEdit Then bChanged = True
End Sub
Private Sub cboQZLQ_Change()
If bEdit Then bChanged = True
End Sub
Private Sub cboQZLQ_Click()
If bEdit Then bChanged = True
End Sub
Private Sub cboXinB_Click()
If bEdit Then bChanged = True
End Sub
Private Sub cboXuanDJF_Click()
If bEdit Then bChanged = True
End Sub
Private Sub cboYanJS_Click()
If bEdit Then bChanged = True
End Sub
Private Sub cboZhiC_Click()
If bEdit Then bChanged = True
End Sub
Private Sub cboZhiW_Click()
If bEdit Then bChanged = True
End Sub
Private Sub cmdAddnew_Click()
If bEdit Then
rec.AddNew
bEdit = False
InitItem
Ctl(0).SetFocus
End If
StaBarStatus
End Sub
Private Sub cmdDelete_Click()
If bEdit Then
If MsgBox("您确信要删除此数据吗？", vbQuestion + vbOKCancel, "删除前询问") = vbOK Then
rec.Delete
If rec.RecordCount <> 0 Then
rec.MoveLast
ShowRecord
Else
InitItem
End If
End If
End If
End Sub
Private Sub cmdDinW_Click()
frmDinW.Show vbModal
If Len(GongH) <> 0 Then
rec.FindFirst "gongh='" + Trim(GongH) + "'"
If rec.NoMatch Then
MsgBox "您所要定位的工号不存在！", vbExclamation + vbOKOnly, "提示信息"
frmDinW.Show 1
' frmDinW.txtGongH.SetFocus
Else
ShowRecord
StaBarStatus
End If
End If
End Sub
Private Sub cmdExit_Click()
If bEdit Then
If bChanged Then
EditRecord
End If
Else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -