计算机应用 | 古代文学 | 市场营销 | 生命科学 | 交通物流 | 财务管理 | 历史学 | 毕业 | 哲学 | 政治 | 财税 | 经济 | 金融 | 审计 | 法学 | 护理学 | 国际经济与贸易
计算机软件 | 新闻传播 | 电子商务 | 土木工程 | 临床医学 | 旅游管理 | 建筑学 | 文学 | 化学 | 数学 | 物理 | 地理 | 理工 | 生命 | 文化 | 企业管理 | 电子信息工程
计算机网络 | 语言文学 | 信息安全 | 工程力学 | 工商管理 | 经济管理 | 计算机 | 机电 | 材料 | 医学 | 药学 | 会计 | 硕士 | 法律 | MBA
现当代文学 | 英美文学 | 通讯工程 | 网络工程 | 行政管理 | 公共管理 | 自动化 | 艺术 | 音乐 | 舞蹈 | 美术 | 本科 | 教育 | 英语 |

电子教务管理系统vb(一)毕业论文(3)

2013-05-06 18:02
导读:Exit Sub End Sub Private Sub Form_Load() If Len(GetFromINI("用户信息", "姓名", App.Path + "\电子教务系统.ini")) = 0 Or Len(GetFromINI("用户信息", "密码", App.Path + "\电子教务系统
    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 (科教作文网http://zw.ΝsΕAc.com发布)
    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

(科教作文网http://zw.ΝsΕAc.Com编辑整理)


Frame2.Enabled = Tru
上一篇:计算机专业实习总结毕业论文网 下一篇:没有了