📄 frmdalr.frm
字号:
Begin VB.Label Label1
Caption = "性 别："
Height = 255
Index = 2
Left = 120
TabIndex = 19
Top = 1125
Width = 1335
End
Begin VB.Label Label1
Caption = "学 号："
Height = 255
Index = 1
Left = 120
TabIndex = 18
Top = 765
Width = 1335
End
Begin VB.Label Label1
Caption = "姓 名："
Height = 255
Index = 0
Left = 120
TabIndex = 17
Top = 405
Width = 1335
End
Begin VB.Label Label1
Caption = "出 生 年 月："
Height = 255
Index = 3
Left = 120
TabIndex = 16
Top = 1485
Width = 1335
End
Begin VB.Label Label1
Caption = "月"
Height = 255
Index = 11
Left = 2985
TabIndex = 15
Top = 1485
Width = 255
End
Begin VB.Label Label1
Caption = "年"
Height = 255
Index = 12
Left = 2190
TabIndex = 14
Top = 1485
Width = 255
End
End
Begin VB.Frame Frame2
Caption = "社会关系"
Height = 3015
Left = 240
TabIndex = 28
Top = 2760
Width = 6735
Begin VB.TextBox Text4
Height = 270
Index = 5
Left = 3480
TabIndex = 46
Top = 2520
Width = 3135
End
Begin VB.TextBox Text3
Height = 270
Index = 5
Left = 1800
TabIndex = 45
Top = 2520
Width = 1575
End
Begin VB.TextBox Text2
Height = 270
Index = 5
Left = 120
TabIndex = 44
Top = 2520
Width = 1575
End
Begin VB.TextBox Text4
Height = 270
Index = 0
Left = 3480
TabIndex = 31
Top = 720
Width = 3135
End
Begin VB.TextBox Text3
Height = 270
Index = 0
Left = 1800
TabIndex = 30
Top = 720
Width = 1575
End
Begin VB.TextBox Text2
Height = 270
Index = 0
Left = 120
TabIndex = 29
Top = 720
Width = 1575
End
Begin VB.Label Label4
Alignment = 2 'Center
Caption = "联系方法"
Height = 255
Left = 3480
TabIndex = 49
Top = 360
Width = 3135
End
Begin VB.Label Label3
Alignment = 2 'Center
Caption = "关系"
Height = 255
Left = 1800
TabIndex = 48
Top = 360
Width = 1575
End
Begin VB.Label Label2
Alignment = 2 'Center
Caption = "姓名"
Height = 255
Index = 0
Left = 120
TabIndex = 47
Top = 360
Width = 1575
End
End
End
Attribute VB_Name = "FrmDalr"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***************************************************************************************
' 过程：Command1_Click
' 功能：保存档案数据
'***************************************************************************************
Private Sub Command1_Click()
Dim strExec As String, strYf As String
Dim bFlag As Boolean
If Text1(0).Text = "" Then
MsgBox "姓名不能为空，请重新输入！", vbCritical, "错误信息"
Text1(0).SetFocus
ElseIf Text1(1).Text = "" Then
MsgBox "学号不能为空，请重新输入！", vbCritical, "错误信息"
Text1(1).SetFocus
ElseIf Text1(4).Text = "" Then
MsgBox "年级不能为空，请重新输入！", vbCritical, "错误信息"
Text1(4).SetFocus
ElseIf Combo1(2).index = 0 Then
MsgBox "系别不能为空，请重新输入！", vbCritical, "错误信息"
Combo1(2).SetFocus
ElseIf Combo1(3).index = 0 Then
MsgBox "专业不能为空，请重新输入！", vbCritical, "错误信息"
Combo1(3).SetFocus
Else
Set objRs = objCon.Execute("Select xh From XSDAB Where xh='" & Text1(1).Text & "'")
' 判断学号是否重复
If Not objRs.EOF Then
MsgBox "学号不能重复，请重新输入！", vbCritical, "错误信息"
Text1(1).SetFocus
Else
If MsgBox("您确认提交(Commit)以上数据吗？", vbOKCancel, "系统信息") = vbOK Then
strYf = IIf(Len(Text1(3).Text) = 1, "0" & Trim(Text1(3).Text), (Text1(3).Text))
' 月份值变为两位字符，如“01”或“12”
strExec = "Insert Into XSDAB(xh,xm,csny,xb,mz,zzmm,xbbh,nj,bj,zybh) Values ('" & Left(Trim(Text1(1).Text), 16) & "','" & _
Left(Trim(Text1(0).Text), 8) & "','" & Left(Trim(Text1(2).Text), 4) & strYf & "','" & IIf(Option1(0).Value = True, "男", "女") & "','" & _
Left(Trim(Combo1(0).Text), 8) & "','" & Left(Trim(Combo1(1).Text), 4) & "','" & fGetXbbh(Combo1(2).Text) & "','" & Left(Trim(Text1(4).Text), 4) & "','" & Left(Trim(Text1(5).Text), 8) & "','" & fGetZybh(Combo1(3).Text) & "')"
objCon.Execute (strExec)
' 录入了社会关系，保存
For i = 0 To 5
If Text2(i).Text <> "" Or Text3(i).Text <> "" Or Text4(i).Text <> "" Then
strExec = "Insert Into SHGXB(bh,xh,xm,gx,lxff) Values ('" & Trim(Str(i)) & "','" & Left(Trim(Text1(1).Text), 16) & "','" & _
Left(Trim(Text2(i).Text), 8) & "','" & Left(Trim(Text3(i).Text), 8) & "','" & Left(Trim(Text4(i).Text), 32) & "')"
objCon.Execute (strExec)
End If
Next
reSet (False)
' 重置数据输入控件的内容
End If
End If
objRs.Close
End If
End Sub
'***************************************************************************************
' 过程：reSet
' 功能：重置档案数据
' 参数：
' bFlag：true时清空学号，否则自动加一
'***************************************************************************************
Private Sub reSet(ByVal bFlag As Boolean)
Text1(0).Text = "" '姓名清空
If bFlag Then
Text1(1).Text = "" '学号清空
Text1(4).Text = "" '年级清空
Text1(5).Text = "" '班级清空
If Combo1(0).ListCount > 0 Then
Combo1(0).ListIndex = 0 '民族复位
End If
Combo1(1).ListIndex = 0 '政治面貌复位
If Combo1(2).ListCount > 0 Then
Combo1(2).ListIndex = 0 '系别复位
End If
If Combo1(3).ListCount > 0 Then
Combo1(3).ListIndex = 0 '专业复位
End If
Else
If IsNumeric(Text1(1).Text) Then
Text1(1).Text = Trim(Str(Val(Text1(1).Text) + 1)) '学号递增
End If
End If
Text1(2).Text = "" '出生年清空
Text1(3).Text = "" '出生月清空
For i = 0 To 5 '社会关系清空（共6个）
Text2(i).Text = ""
Text3(i).Text = ""
Text4(i).Text = ""
Next
Option1(0).Value = False '性别清空
Option1(1).Value = False
Text1(0).SetFocus
End Sub
'***************************************************************************************
' 过程：Command2_Click
' 功能：重置档案数据
'***************************************************************************************
Private Sub Command2_Click()
reSet (True)
End Sub
'***************************************************************************************
' 过程：Form_Load
' 功能：窗体装入时进行初始化
'***************************************************************************************
Private Sub Form_Load()
Set objRs = objCon.Execute("Select Distinct mz From XSDAB")
' 根据已经录入的民族值，形成输入列表
Do While Not objRs.EOF
Combo1(0).AddItem Trim((objRs("mz")))
objRs.MoveNext
Loop
Set objRs = objCon.Execute("Select Distinct xbmc From XBMCB")
Do While Not objRs.EOF
' 形成系别名称列表
Combo1(2).AddItem Trim((objRs("xbmc")))
objRs.MoveNext
Loop
Set objRs = objCon.Execute("Select Distinct zymc From ZYMCB")
Do While Not objRs.EOF
' 形成系别名称列表
Combo1(3).AddItem Trim((objRs("zymc")))
objRs.MoveNext
Loop
If Combo1(0).ListCount > 0 Then
Combo1(0).ListIndex = 0
End If
Combo1(1).ListIndex = 0
If Combo1(2).ListCount > 0 Then
Combo1(2).ListIndex = 0
End If
If Combo1(3).ListCount > 0 Then
Combo1(3).ListIndex = 0
End If
objRs.Close
End Sub
'***************************************************************************************
' 过程：Form_QueryUnload
' 功能：窗体关闭时恢复主窗口
'***************************************************************************************
Private Sub Form_Unload(Cancel As Integer)
FrmMain.Enabled = True
End Sub
'***************************************************************************************
' 过程：Command3_Click
' 功能：“关闭”按钮按下时恢复主窗口
'***************************************************************************************
Private Sub Command3_Click()
Unload FrmDalr
FrmMain.Enabled = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -