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

A450VB班级管理系统vb+access源代码+可执行程序+论文+开题报告+

  第三章 系统的设计

3.1系统的功能结构设计 copyright paper51.com

内容来自www.snowings.com

3.1         系统的功能结构设计

paper51.com

1.班费收入/支出表

copyright paper51.com

3.2        系统的数据库设计

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

1.

copyright paper51.com

http://www.snowings.com

2.学生信息表:

copyright paper51.com

paper51.com

3.用户密码表:

paper51.com

paper51.com

4.课程信息表:

http://www.snowings.com

http://www.snowings.com

3.3       界面设计与代码设计

内容来自www.snowings.com

1.收入界面 paper51.com

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

代码分析:

http://www.snowings.com

Private Sub cmd_boot_Click()

copyright paper51.com

    On Error GoToero paper51.com

    Data1.Recordset.MoveLast

http://www.snowings.com

    cmd_n.Enabled= False

paper51.com

    cmd_f.Enabled= True

http://www.snowings.com

ero:

copyright paper51.com

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

Private Sub Cmd_f_Click()

内容来自www.snowings.com

IfData1.Recordset.BOF <> True Then paper51.com

    cmd_n.Enabled= True

paper51.com

    On Error GoToero copyright paper51.com

    Data1.Recordset.MovePrevious 内容来自www.snowings.com

ero: paper51.com

    内容来自www.snowings.com

Else

copyright paper51.com

    cmd_f.Enabled= False

http://www.snowings.com

    cmd_n.Enabled= True

paper51.com

    Data1.Recordset.MoveFirst copyright paper51.com

   

http://www.snowings.com

End If

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

End Sub

copyright paper51.com

Private Sub Cmd_n_Click()

paper51.com

IfData1.Recordset.EOF <> True Then http://www.snowings.com

    cmd_f.Enabled= True http://www.snowings.com

    On Error GoToero

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

    Data1.Recordset.MoveNext http://www.snowings.com

Else

paper51.com

    cmd_n.Enabled= False

内容来自www.snowings.com

    cmd_f.Enabled= True

copyright paper51.com

    On Error GoToero

paper51.com

    Data1.Recordset.MoveLast http://www.snowings.com

   

copyright paper51.com

End If

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

ero: 内容来自论文无忧网 www.snowings.com

End Sub

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

Private Sub Cmd_top_Click()

http://www.snowings.com

      On Error GoTo ero

内容来自www.snowings.com

    Data1.Recordset.MoveFirst http://www.snowings.com

    cmd_f.Enabled= False

http://www.snowings.com

    cmd_n.Enabled= True

paper51.com

ero:

copyright paper51.com

End Sub

copyright paper51.com

Private SubCommand1_Click() http://www.snowings.com

Command4.Enabled =True copyright paper51.com

On Error GoTo ero1 内容来自论文无忧网 www.snowings.com

Data1.Recordset.AddNew

copyright paper51.com

ero1: copyright paper51.com

'MsgBox "不能添加数据",, "提示" 内容来自www.snowings.com

End Sub http://www.snowings.com

Private SubCommand2_Click()

http://www.snowings.com

Command4.Enabled =True

内容来自www.snowings.com

On Error GoTo ero2

http://www.snowings.com

Data1.Recordset.Delete http://www.snowings.com

ero2: 内容来自论文无忧网 www.snowings.com

End Sub paper51.com

Private SubCommand3_Click()

http://www.snowings.com

Command4.Enabled =True http://www.snowings.com

On Error GoTo ero3 http://www.snowings.com

Data1.Recordset.Edit 内容来自论文无忧网 www.snowings.com

ero3:

copyright paper51.com

'MsgBox "不能编辑数据",, "提示"

内容来自www.snowings.com

End Sub

copyright paper51.com

Private SubCommand4_Click()

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

On Error GoTo ero http://www.snowings.com

Data1.Refresh http://www.snowings.com

ero: 内容来自www.snowings.com

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

Private Sub bfgly_Click()

copyright paper51.com

If isadtr = True Then

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

    If mu_gly= False Then 内容来自论文无忧网 www.snowings.com

       MSFlexGrid1.Visible = False

内容来自www.snowings.com

       Command1.Visible = True http://www.snowings.com

        Command2.Visible= True

http://www.snowings.com

       Command3.Visible = True

内容来自www.snowings.com

       Command4.Visible = True

http://www.snowings.com

        cmd_n.Visible = True

paper51.com

        cmd_f.Visible = True

内容来自www.snowings.com

        cmd_first.Visible = True

内容来自www.snowings.com

        cmd_last.Visible = True

paper51.com

        mu_gly = (Not mu_gly)

内容来自www.snowings.com

        bfgly.Caption = "收入"

内容来自www.snowings.com

Else

paper51.com

     MSFlexGrid1.Visible = True copyright paper51.com

       Command1.Visible = False

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

       Command2.Visible = False copyright paper51.com

       Command3.Visible = False

http://www.snowings.com

       Command4.Visible = False http://www.snowings.com

        cmd_n.Visible = False copyright paper51.com

        cmd_f.Visible = False

内容来自www.snowings.com

        cmd_first.Visible = False 内容来自论文无忧网 www.snowings.com

        cmd_last.Visible = False http://www.snowings.com

        mu_gly = (Not mu_gly) 内容来自www.snowings.com

        bfgly.Caption = "班费管理员"

http://www.snowings.com

       

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

    End If http://www.snowings.com

Else copyright paper51.com

MsgBox "你不是管理员,你没有这个权限",, "提示" 内容来自论文无忧网 www.snowings.com

End If 内容来自论文无忧网 www.snowings.com

End Sub

http://www.snowings.com

Private Sub Form_Load()

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

Data1.RecordSource= "select * from bfgl where money>0 "

内容来自www.snowings.com

End Sub copyright paper51.com

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