📄 frmdaxmcx.frm
字号:
Index = 0
Left = 120
TabIndex = 20
Top = 405
Width = 1335
End
Begin VB.Label Label1
Caption = "出 生 年 月："
Height = 255
Index = 3
Left = 120
TabIndex = 19
Top = 1485
Width = 1335
End
Begin VB.Label Label1
Caption = "月"
Height = 255
Index = 11
Left = 2985
TabIndex = 18
Top = 1485
Width = 255
End
Begin VB.Label Label1
Caption = "年"
Height = 255
Index = 12
Left = 2190
TabIndex = 17
Top = 1485
Width = 255
End
End
Begin VB.Frame Frame2
Caption = "社会关系"
Height = 3015
Left = 120
TabIndex = 41
Top = 2760
Width = 6735
Begin VB.TextBox Text2
Height = 270
Index = 0
Left = 120
TabIndex = 47
Top = 720
Width = 1575
End
Begin VB.TextBox Text3
Height = 270
Index = 0
Left = 1800
TabIndex = 46
Top = 720
Width = 1575
End
Begin VB.TextBox Text4
Height = 270
Index = 0
Left = 3480
TabIndex = 45
Top = 720
Width = 3135
End
Begin VB.TextBox Text2
Height = 270
Index = 5
Left = 120
TabIndex = 44
Top = 2520
Width = 1575
End
Begin VB.TextBox Text3
Height = 270
Index = 5
Left = 1800
TabIndex = 43
Top = 2520
Width = 1575
End
Begin VB.TextBox Text4
Height = 270
Index = 5
Left = 3480
TabIndex = 42
Top = 2520
Width = 3135
End
Begin VB.Label Label2
Alignment = 2 'Center
Caption = "姓名"
Height = 255
Index = 0
Left = 120
TabIndex = 50
Top = 360
Width = 1575
End
Begin VB.Label Label3
Alignment = 2 'Center
Caption = "关系"
Height = 255
Left = 1800
TabIndex = 49
Top = 360
Width = 1575
End
Begin VB.Label Label4
Alignment = 2 'Center
Caption = "联系方法"
Height = 255
Left = 3480
TabIndex = 48
Top = 360
Width = 3135
End
End
End
Attribute VB_Name = "frmdaxmcx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public strXh As String
Private Sub lock_item(ByVal bFlag As Boolean)
Text1(1).Locked = bFlag
Text1(2).Locked = bFlag
Text1(3).Locked = bFlag
Text1(4).Locked = bFlag
Text1(5).Locked = bFlag
For i = 0 To 5
Text2(i).Locked = bFlag
Text3(i).Locked = bFlag
Text4(i).Locked = bFlag
Next
Combo1(0).Locked = bFlag
Combo1(1).Locked = bFlag
Combo1(2).Locked = bFlag
Combo1(3).Locked = bFlag
Option1(0).Enabled = Not bFlag
Option1(1).Enabled = Not bFlag
End Sub
Private Sub Combo2_Click()
Dim strExec
strExec = "Select a.xh,a.csny,a.nj,a.bj,a.xb,a.mz,a.zzmm,b.xbmc,c.zymc " & _
"From XSDAB a,XBMCB b,ZYMCB c Where a.xm='" & Combo2.Text & "' And " & _
"b.xbbh=a.xbbh And c.zybh=a.zybh " '社会关系表中可能没有对应记录，所以不能关联
Set objRs = objCon.Execute(strExec)
If Not objRs.EOF Then
Text1(1).Text = Trim(objRs("xh"))
strXh = Trim(objRs("xh")) '保存原有学号
Text1(2).Text = Trim(Mid(objRs("csny"), 1, 4))
Text1(3).Text = Trim(Mid(objRs("csny"), 5, 2))
Text1(4).Text = Trim(objRs("nj"))
Text1(5).Text = Trim(objRs("bj"))
Combo1(0).Clear
Combo1(0).AddItem Trim(objRs("mz"))
Combo1(0).ListIndex = 0
Combo1(1).Clear
Combo1(1).AddItem Trim(objRs("zzmm"))
Combo1(1).ListIndex = 0
Combo1(2).Clear
Combo1(2).AddItem Trim(objRs("xbmc"))
Combo1(2).ListIndex = 0
Combo1(3).Clear
Combo1(3).AddItem Trim(objRs("zymc"))
Combo1(3).ListIndex = 0
If Trim(objRs("xb")) = "男" Then
Option1(0).Value = True
Else
Option1(1).Value = True
End If
strExec = "Select * From SHGXB Where xh=(Select xh From XSDAB Where xm='" & Combo2.Text & "')"
Set objRs = objCon.Execute(strExec)
For i = 0 To 5
If Not objRs.EOF() Then
Text2(i).Text = Trim(objRs("xm"))
Text3(i).Text = Trim(objRs("gx"))
Text4(i).Text = Trim(objRs("lxff"))
objRs.MoveNext
Else
Text2(i).Text = ""
Text3(i).Text = ""
Text4(i).Text = ""
End If
Next
lock_item (True)
If numUserType <> 3 Then
Command1.Enabled = True
Command3.Enabled = True
End If
Command2.Enabled = False
Else
MsgBox "不存在姓名为<" & Combo2.Text & ">的学生档案！", vbCritical, "错误信息"
End If
objRs.Close
End Sub
Private Sub Command1_Click()
Dim strmz, strzzmm, strxbmc, strzymc As String
Dim numI As Integer
strmz = Combo1(0).Text
strzzmm = Combo1(1).Text
strxbmc = Combo1(2).Text
strzymc = Combo1(3).Text
Combo1(0).Clear
Combo1(1).Clear
Combo1(2).Clear
Combo1(3).Clear
Set objRs = objCon.Execute("Select Distinct mz From XSDAB")
Do While Not objRs.EOF
Combo1(0).AddItem Trim((objRs("mz")))
objRs.MoveNext
Loop
Combo1(0).ListIndex = fFindItemInCombo(Combo1(0), strmz)
Combo1(1).AddItem ("团员")
Combo1(1).AddItem ("党员")
Combo1(1).AddItem ("其它")
Combo1(1).ListIndex = fFindItemInCombo(Combo1(1), strzzmm)
Set objRs = objCon.Execute("Select Distinct xbmc From XBMCB")
Do While Not objRs.EOF
Combo1(2).AddItem Trim((objRs("xbmc")))
objRs.MoveNext
Loop
Combo1(2).ListIndex = fFindItemInCombo(Combo1(2), strxbmc)
Set objRs = objCon.Execute("Select Distinct zymc From ZYMCB")
Do While Not objRs.EOF
Combo1(3).AddItem Trim((objRs("zymc")))
objRs.MoveNext
Loop
Combo1(3).ListIndex = fFindItemInCombo(Combo1(3), strzymc)
objRs.Close
lock_item (False)
Combo2.SetFocus
Command2.Enabled = True
Command1.Enabled = False
End Sub
Private Sub Command2_Click()
Dim strXbbh, strZybh, strExec
If MsgBox("您确实要更新当前档案记录吗？", vbYesNo, "系统信息") Then
Set objRs = objCon.Execute("Select xh From XSDAB Where xh='" & Text1(1).Text & "' And xh<>'" & strXh & "'")
If objRs.EOF Then
strExec = "Update XSDAB Set xh='" & Left(Text1(1).Text, 16) & "',xm='" & Left(Combo2.Text, 8) & "',csny='" & _
Left(Trim(Text1(2).Text), 4) & Left(Trim(Text1(3).Text), 4) & "',mz='" & Left(Combo1(0).Text, 8) & "',xb='" & IIf(Option1(0).Value = True, "男", "女") & "',zzmm='" & Left(Combo1(1).Text, 4) & _
"',nj='" & Left(Text1(4).Text, 4) & "',xbbh='" & fGetXbbh(Combo1(2).Text) & "',zybh='" & fGetZybh(Combo1(3).Text) & "',bj='" & Left(Text1(5).Text, 8) & "' Where xh='" & strXh & "'"
objCon.Execute (strExec)
objCon.Execute ("Delete * From SHGXB Where xh='" & strXh & "'")
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
strXh = Text1(1).Text
If numUserType <> 3 Then
Command1.Enabled = True
End If
Command2.Enabled = False
lock_item (True)
Else
MsgBox "学号重复，请重新录入！", vbCritical, "错误信息"
Text1(1).SetFocus
End If
objRs.Close
End If
End Sub
Private Sub Command3_Click()
If MsgBox("删除档案记录的同时也将删除所有成绩记录." + Chr(13) + "您确实要删除当前档案记录吗？", vbYesNo, "系统信息") = vbYes Then
objCon.Execute ("Delete * From XSDAB Where xh='" & Trim(Left(Text1(1).Text, 16)) & "'")
objCon.Execute ("Delete * From SHGXB Where xh='" & Trim(Left(Text1(1).Text, 16)) & "'")
For i = 0 To 5
Text2(i).Text = ""
Text3(i).Text = ""
Text4(i).Text = ""
Next
strExec = "Select kcbmc From XKQKB Where left(kcbmc,10)='" & Left(fSckcbmc(Text1(4).Text, Combo1(2).Text, Combo1(3).Text, "1"), 10) & "'"
Set objRs = objCon.Execute(strExec)
Do While Not objRs.EOF()
strExec = "Delete * from " & objRs("kcbmc") & " Where xh='" & Left(Text1(1).Text, 16) & "'"
objCon.Execute (strExec)
objRs.MoveNext
Loop
objRs.Close
Combo2.RemoveItem (Combo2.ListIndex)
Text1(1).Text = ""
Text1(2).Text = ""
Text1(3).Text = ""
Text1(4).Text = ""
Combo1(0).Clear
Combo1(1).Clear
Combo1(2).Clear
Combo1(3).Clear
lock_item (True)
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Combo2.SetFocus
End If
End Sub
Private Sub Form_Load()
Set objRs = objCon.Execute("Select Distinct xm From XSDAB")
Do While Not objRs.EOF
Combo2.AddItem (Trim(objRs("xm")))
objRs.MoveNext
Loop
objRs.Close
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
lock_item (True)
End Sub
Private Sub Form_Unload(Cancel As Integer)
FrmMain.Enabled = True
End Sub
Private Sub command5_click()
Unload frmdaxmcx
FrmMain.Enabled = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -