论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 ASP Java Web .NET VB6.0 JAVA VC VF DELPHI PB 计算机网络 计算机科学与技术 PHP 安卓APP 其他 C# 代写论文
当前位置: > 计算机 > VB6.0 >

A450教务管理系统

 第二章    系统设计

  http://www.paper51.com

  copyright paper51.com

2.1系统分析 http://www.paper51.com

 

内容来自www.paper51.com

本电子教务管理系统主要由以下几大模块构成.

http://www.paper51.com

  copyright paper51.com

一.通用模块(教工信息管理,学生信息管理,评语管系统,考试管理系统,基础数据维护,窗口,操作员命令)

内容来自www.paper51.com

 

copyright paper51.com

二..超级信史,系统助手

paper51.com

 

内容来自www.paper51.com

 

内容来自www.paper51.com

  内容来自www.paper51.com

2.2系统流程和操作方式设计

http://www.paper51.com

  paper51.com

窗口

paper51.com

 

内容来自www.paper51.com

  copyright paper51.com

第三章    系统界面设计

http://www.paper51.com

3.1系统界面设计

内容来自www.paper51.com

1.登陆界面 内容来自www.paper51.com

 

copyright paper51.com


 

内容来自论文无忧网 www.paper51.com

代码设计:

内容来自www.paper51.com

 

paper51.com

Private Sub CmbUser_KeyPress(KeyAsciiAs Integer) 内容来自www.paper51.com

   If KeyAscii = 13 Then cmdOK_Click http://www.paper51.com

End Sub 内容来自论文无忧网 www.paper51.com

 

内容来自www.paper51.com

Private Sub cmdCancel_Click() 内容来自论文无忧网 www.paper51.com

  Me.Hide paper51.com

End Sub

内容来自www.paper51.com

 

内容来自论文无忧网 www.paper51.com

Private Sub cmdOK_Click()

paper51.com

  DimtxtSQL As String

内容来自www.paper51.com

  Set mrc= New ADODB.Recordset

paper51.com

  http://www.paper51.com

   If Trim(CmbUser.Text) = "" Then paper51.com

       CmbUser.SetFocus

内容来自www.paper51.com

   Else

内容来自www.paper51.com

      txtSQL ="select * from Login where 登录姓名 = '" &CmbUser.Text & "'"

paper51.com

      mrc.OpenTrim$(txtSQL), Con, adOpenKeyset, adLockOptimistic 内容来自www.paper51.com

      Set ExecuteSQL =mrc 内容来自论文无忧网 www.paper51.com

    http://www.paper51.com

        Ifmrc.EOF = True Then

内容来自www.paper51.com

           CmbUser.SetFocus 内容来自论文无忧网 www.paper51.com

        Else

http://www.paper51.com

           If Trim(mrc!密码) =Trim(Txtpassword.Text) Then http://www.paper51.com

               LoginUser = mrc!登录姓名 http://www.paper51.com

               Permission = mrc!权限 内容来自www.paper51.com

               If Check1.Value = 1 Then

内容来自论文无忧网 www.paper51.com

                   r = WritePrivateProfileString("用户信息", "姓名", CmbUser.Text, App.Path + "\电子教务系统.ini") paper51.com

                   s = WritePrivateProfileString("用户信息", "密码", Txtpassword.Text, App.Path + "\电子教务系统.ini")

http://www.paper51.com

                   If r <> 1 Or s <> 1 Then

http://www.paper51.com

                      MsgBox "写基本信息出错!", 48, App.Title

内容来自论文无忧网 www.paper51.com

                    End If

copyright paper51.com

               Else copyright paper51.com

                   r = WritePrivateProfileString("用户信息", "姓名", "", App.Path + "\电子教务系统.ini") 内容来自www.paper51.com

                   s = WritePrivateProfileString("用户信息", "密码", "", App.Path + "\电子教务系统.ini")

paper51.com

               End If

内容来自论文无忧网 www.paper51.com

               mrc.Close paper51.com

               Me.Hide http://www.paper51.com

               Exit Sub 内容来自www.paper51.com

           Else copyright paper51.com

               Txtpassword.SetFocus 内容来自论文无忧网 www.paper51.com

               Txtpassword.Text = ""

paper51.com

           End If

paper51.com

        EndIf http://www.paper51.com

   End If

paper51.com

  http://www.paper51.com

   miCount = miCount + 1

paper51.com

   MsgBox "登录错误,你还有" & 3 - miCount& "次机会!", vbOKOnly + vbExclamation,"警告"

paper51.com

   If miCount = 3 Then

paper51.com

       Me.Hide

http://www.paper51.com

   End If copyright paper51.com

   Exit Sub http://www.paper51.com

End Sub

paper51.com

  copyright paper51.com

Private Sub Form_Load() 内容来自www.paper51.com

 

http://www.paper51.com

If Len(GetFromINI("用户信息", "姓名", App.Path + "\电子教务系统.ini")) = 0 Or Len(GetFromINI("用户信息", "密码", App.Path + "\电子教务系统.ini")) = 0 Then 内容来自论文无忧网 www.paper51.com

 

copyright paper51.com

Else http://www.paper51.com

 

内容来自www.paper51.com

CmbUser.Text = GetFromINI("用户信息", "姓名", App.Path + "\电子教务系统.ini")

内容来自论文无忧网 www.paper51.com

 

copyright paper51.com

Txtpassword.Text = GetFromINI("用户信息", "密码", App.Path + "\电子教务系统.ini")

内容来自www.paper51.com

 

内容来自www.paper51.com

End If http://www.paper51.com

  内容来自www.paper51.com

  Dim Rs1As ADODB.Recordset copyright paper51.com

  http://www.paper51.com

  Set Rs1= New ADODB.Recordset

paper51.com

  内容来自论文无忧网 www.paper51.com

  Rs1.Open"Login", Con, adOpenStatic, adCmdTable

内容来自论文无忧网 www.paper51.com

  copyright paper51.com

   iCount = 0

copyright paper51.com

 

http://www.paper51.com

   If Rs1.BOF And Rs1.EOF Then

内容来自www.paper51.com

  copyright paper51.com

   MsgBox "请用管理员账号登录"

内容来自www.paper51.com

  http://www.paper51.com

   Exit Sub 内容来自www.paper51.com

 

paper51.com

   End If copyright paper51.com

  paper51.com

Rs1.MoveFirst

copyright paper51.com

 

paper51.com

Do While Rs1.EOF = False copyright paper51.com

 

copyright paper51.com

CmbUser.AddItem Rs1!登录姓名, i paper51.com

 

内容来自论文无忧网 www.paper51.com

  i = i +1

内容来自论文无忧网 www.paper51.com

 

paper51.com

Rs1.MoveNext

内容来自论文无忧网 www.paper51.com

  copyright paper51.com

Loop

http://www.paper51.com

 

paper51.com

 

paper51.com

End Sub

内容来自www.paper51.com

  paper51.com

 

内容来自论文无忧网 www.paper51.com

Private Sub Txtpassword_KeyPress(KeyAsciiAs Integer)

paper51.com

  内容来自论文无忧网 www.paper51.com

   If KeyAscii = 13 Then cmdOK_Click 内容来自www.paper51.com

  内容来自论文无忧网 www.paper51.com

End Sub paper51.com

 

copyright paper51.com

  http://www.paper51.com

 

http://www.paper51.com

------分隔线----------------------------
联系方式