frmdaxhcx.frm

毕业设计的学生成绩管理

         Top             =   1440
         Width           =   1575
      End
      Begin VB.TextBox Text2 
         Height          =   270
         Index           =   2
         Left            =   120
         TabIndex        =   42
         Top             =   1440
         Width           =   1575
      End
      Begin VB.TextBox Text4 
         Height          =   270
         Index           =   1
         Left            =   3480
         TabIndex        =   41
         Top             =   1080
         Width           =   3135
      End
      Begin VB.TextBox Text3 
         Height          =   270
         Index           =   1
         Left            =   1800
         TabIndex        =   40
         Top             =   1080
         Width           =   1575
      End
      Begin VB.TextBox Text2 
         Height          =   270
         Index           =   1
         Left            =   120
         TabIndex        =   39
         Top             =   1080
         Width           =   1575
      End
      Begin VB.TextBox Text4 
         Height          =   270
         Index           =   5
         Left            =   3480
         TabIndex        =   35
         Top             =   2520
         Width           =   3135
      End
      Begin VB.TextBox Text3 
         Height          =   270
         Index           =   5
         Left            =   1800
         TabIndex        =   34
         Top             =   2520
         Width           =   1575
      End
      Begin VB.TextBox Text2 
         Height          =   270
         Index           =   5
         Left            =   120
         TabIndex        =   33
         Top             =   2520
         Width           =   1575
      End
      Begin VB.TextBox Text4 
         Height          =   270
         Index           =   0
         Left            =   3480
         TabIndex        =   32
         Top             =   720
         Width           =   3135
      End
      Begin VB.TextBox Text3 
         Height          =   270
         Index           =   0
         Left            =   1800
         TabIndex        =   31
         Top             =   720
         Width           =   1575
      End
      Begin VB.TextBox Text2 
         Height          =   270
         Index           =   0
         Left            =   120
         TabIndex        =   30
         Top             =   720
         Width           =   1575
      End
      Begin VB.Label Label4 
         Alignment       =   2  'Center
         Caption         =   "联系方法"
         Height          =   255
         Left            =   3480
         TabIndex        =   38
         Top             =   360
         Width           =   3135
      End
      Begin VB.Label Label3 
         Alignment       =   2  'Center
         Caption         =   "关系"
         Height          =   255
         Left            =   1800
         TabIndex        =   37
         Top             =   360
         Width           =   1575
      End
      Begin VB.Label Label2 
         Alignment       =   2  'Center
         Caption         =   "姓名"
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   36
         Top             =   360
         Width           =   1575
      End
   End
End
Attribute VB_Name = "frmdaxhcx"
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
    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.xm,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.xh='" & 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("xm"))
        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='" & 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
        lock_item (True)
    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
    Combo2.SetFocus
    lock_item (False)
    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='" & Combo2.Text & "' and xh<>'" & strXh & "'")
        If objRs.EOF Then
            Set objRs = objCon.Execute("select xbbh from xbmcb where xbmc='" & Combo1(2).Text & "'")
            If Not objRs.EOF Then
                strXbbh = Trim(objRs("xbbh"))
            Else
                strXbbh = ""
            End If
            Set objRs = objCon.Execute("select zybh from zymcb where zymc='" & Combo1(3).Text & "'")
            If Not objRs.EOF Then
                strZybh = Trim(objRs("zybh"))
            Else
                strZybh = ""
            End If
            strExec = "update xsdab set xm='" & Text1(1).Text & "',xh='" & Combo2.Text & "',xb='" & IIf(Option1(0).Value = True, "男", "女") & "',csny='" & _
                Trim(Text1(2).Text) & Trim(Text1(3).Text) & "',mz='" & Combo1(0).Text & "',zzmm='" & Combo1(1).Text & _
                "',nj='" & Text1(4).Text & "',xbbh='" & strXbbh & "',zybh='" & strZybh & "',bj='" & Text1(5).Text & "' 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(Combo2.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 = Combo2.Text
            If numUserType <> 3 Then
                Command1.Enabled = True
            End If
            Command2.Enabled = False
            lock_item (True)
        Else
            MsgBox "学号重复，请重新录入！", vbCritical, "错误信息"
            Combo2.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(Combo2.Text, 16)) & "'")
        objCon.Execute ("Delete * From SHGXB Where xh='" & Trim(Left(Combo2.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(Combo2.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 xh from xsdab")
    Do While Not objRs.EOF
        Combo2.AddItem (Trim(objRs("xh")))
        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 frmdaxhcx
    FrmMain.Enabled = True
End Sub