电子教务管理系统vb

Exit Sub
End Sub

Private Sub Form_Load()
If Len(GetFromINI("用户信息", "姓名", App.Path + "\电子教务系统.ini")) = 0 Or Len(GetFromINI("用户信息", "密码", App.Path + "\电子教务系统.ini")) = 0 Then
Else
CmbUser.Text = GetFromINI("用户信息", "姓名", App.Path + "\电子教务系统.ini")
Txtpassword.Text = GetFromINI("用户信息", "密码", App.Path + "\电子教务系统.ini")
End If
Dim Rs1 As ADODB.Recordset
Set Rs1 = New ADODB.Recordset
Rs1.Open "Login", Con, adOpenStatic, adCmdTable
    iCount = 0
    If Rs1.BOF And Rs1.EOF Then
    MsgBox "请用管理员账号登录"
    Exit Sub
    End If
Rs1.MoveFirst
Do While Rs1.EOF = False
CmbUser.AddItem Rs1!登录姓名, i
i = i + 1
Rs1.MoveNext
Loop

End Sub

Private Sub Txtpassword_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then cmdOK_Click
End Sub

2.智能成绩添加界面设计
界面设计:

代码设计:
Dim Ksxz As String
Dim Xxkbl As Double
Dim Bj As Integer
Dim i As Integer
Dim iCount As Integer
Dim AddFlg As Boolean
Dim RSCount As Integer

Dim rs As ADODB.Recordset
Dim Rs1 As ADODB.Recordset
Dim CmdExe As ADODB.Command

Private Sub Command13_Click()
SSTab1.Tab = 0
End Sub

Private Sub Command5_Click()
Unload Me
End Sub

Private Sub Command7_Click()
Pass

rs.Open "select * from 学籍表 where 班级='" & Trim(Combo1.Text) & "' order by 学号", Con, adOpenStatic, adLockPessimistic, adCmdText
If rs.EOF = True And rs.BOF = True Then
    Command1.Enabled = False
    Command2.Enabled = False
    Command3.Enabled = False
    Command4.Enabled = False
    Command13.Enabled = False
    rs.Close
    MsgBox "请到学籍表中添加学生名单！", , "此班没有学生："
    Exit Sub
Else
   Frame1.Enabled = False
   Frame2.Enabled = False
    Command1.Enabled = True
    Command2.Enabled = True
    Command3.Enabled = True
    Command4.Enabled = True
    Command7.Enabled = False
    Command8.Enabled = True
    Command9.Enabled = True
    Command13.Enabled = True
    MsgBox Trim(Combo1.Text) & " 登分:" & Chr(13) & "考试性质：" & Trim(Text1.Text) & Chr(13) & "可以开始输入成绩了！", , App.Title

Command13.SetFocus
End If

List1.Clear
    List1.AddItem "学号" & "-" & "姓名"
If rs.BOF And rs.EOF Then
Else
    rs.MoveFirst
   Do While rs.EOF = False
       If Len(rs!学号) = 1 Then
          List1.AddItem " 0" & rs!学号 & "--" & rs!姓名
       Else
          List1.AddItem " " & rs!学号 & "--" & rs!姓名
       End If
      rs.MoveNext
    Loop
    rs.MoveFirst
End If
       List1.ListIndex = 1
Display
End Sub

Private Sub Command8_Click()
rs.Close
List1.Clear
Frame1.Enabled = True
Frame2.Enabled = Tru

首页上一页 1 2 3 4 5 6 7 下一页尾页 3/14/14

电子教务管理系统vb(三)