|
第三章 系统的设计 3.1系统的功能结构设计 内容来自www.paper51.com
paper51.com 3．1 系统的功能结构设计 http://www.paper51.com 1.班费收入/支出表 内容来自论文无忧网 www.paper51.com 3．2 系统的数据库设计 paper51.com
1. copyright paper51.com
内容来自www.paper51.com 2.学生信息表: 内容来自论文无忧网 www.paper51.com
paper51.com
3.用户密码表: 内容来自论文无忧网 www.paper51.com copyright paper51.com 4.课程信息表: 内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com 3．3 界面设计与代码设计 paper51.com 1.收入界面 内容来自www.paper51.com http://www.paper51.com 代码分析: copyright paper51.com Private Sub cmd_boot_Click() 内容来自论文无忧网 www.paper51.com On Error GoToero 内容来自论文无忧网 www.paper51.com
Data1.Recordset.MoveLast 内容来自论文无忧网 www.paper51.com cmd_n.Enabled= False copyright paper51.com cmd_f.Enabled= True 内容来自论文无忧网 www.paper51.com
ero: 内容来自www.paper51.com End Sub 内容来自论文无忧网 www.paper51.com Private Sub Cmd_f_Click() paper51.com
IfData1.Recordset.BOF <> True Then paper51.com
cmd_n.Enabled= True http://www.paper51.com On Error GoToero copyright paper51.com
Data1.Recordset.MovePrevious paper51.com ero: http://www.paper51.com paper51.com Else http://www.paper51.com cmd_f.Enabled= False paper51.com cmd_n.Enabled= True 内容来自论文无忧网 www.paper51.com Data1.Recordset.MoveFirst paper51.com
内容来自www.paper51.com
End If 内容来自论文无忧网 www.paper51.com End Sub copyright paper51.com
Private Sub Cmd_n_Click() http://www.paper51.com IfData1.Recordset.EOF <> True Then copyright paper51.com cmd_f.Enabled= True 内容来自www.paper51.com
On Error GoToero 内容来自www.paper51.com Data1.Recordset.MoveNext 内容来自论文无忧网 www.paper51.com Else copyright paper51.com cmd_n.Enabled= False 内容来自www.paper51.com
cmd_f.Enabled= True http://www.paper51.com On Error GoToero copyright paper51.com Data1.Recordset.MoveLast copyright paper51.com
paper51.com End If paper51.com
ero: 内容来自论文无忧网 www.paper51.com End Sub http://www.paper51.com
Private Sub Cmd_top_Click() paper51.com
On Error GoTo ero 内容来自论文无忧网 www.paper51.com Data1.Recordset.MoveFirst copyright paper51.com cmd_f.Enabled= False paper51.com cmd_n.Enabled= True paper51.com ero: 内容来自www.paper51.com End Sub http://www.paper51.com
Private SubCommand1_Click() paper51.com Command4.Enabled =True 内容来自www.paper51.com On Error GoTo ero1 http://www.paper51.com Data1.Recordset.AddNew http://www.paper51.com ero1: paper51.com 'MsgBox "不能添加数据",, "提示" copyright paper51.com
End Sub copyright paper51.com Private SubCommand2_Click() 内容来自论文无忧网 www.paper51.com Command4.Enabled =True 内容来自论文无忧网 www.paper51.com
On Error GoTo ero2 内容来自论文无忧网 www.paper51.com
Data1.Recordset.Delete http://www.paper51.com ero2: copyright paper51.com End Sub http://www.paper51.com Private SubCommand3_Click() 内容来自论文无忧网 www.paper51.com Command4.Enabled =True 内容来自www.paper51.com On Error GoTo ero3 copyright paper51.com Data1.Recordset.Edit 内容来自www.paper51.com ero3: 内容来自论文无忧网 www.paper51.com
'MsgBox "不能编辑数据",, "提示" paper51.com End Sub http://www.paper51.com Private SubCommand4_Click() http://www.paper51.com On Error GoTo ero 内容来自论文无忧网 www.paper51.com Data1.Refresh paper51.com ero: copyright paper51.com End Sub copyright paper51.com Private Sub bfgly_Click() copyright paper51.com If isadtr = True Then 内容来自www.paper51.com If mu_gly= False Then 内容来自论文无忧网 www.paper51.com MSFlexGrid1.Visible = False http://www.paper51.com
Command1.Visible = True paper51.com Command2.Visible= True paper51.com Command3.Visible = True paper51.com Command4.Visible = True copyright paper51.com
cmd_n.Visible = True paper51.com
cmd_f.Visible = True copyright paper51.com cmd_first.Visible = True paper51.com cmd_last.Visible = True http://www.paper51.com
mu_gly = (Not mu_gly) 内容来自www.paper51.com bfgly.Caption = "收入" 内容来自论文无忧网 www.paper51.com Else http://www.paper51.com MSFlexGrid1.Visible = True http://www.paper51.com Command1.Visible = False 内容来自论文无忧网 www.paper51.com Command2.Visible = False 内容来自www.paper51.com Command3.Visible = False copyright paper51.com Command4.Visible = False 内容来自论文无忧网 www.paper51.com cmd_n.Visible = False paper51.com
cmd_f.Visible = False 内容来自www.paper51.com cmd_first.Visible = False http://www.paper51.com
cmd_last.Visible = False 内容来自论文无忧网 www.paper51.com mu_gly = (Not mu_gly) 内容来自论文无忧网 www.paper51.com
bfgly.Caption = "班费管理员" copyright paper51.com 内容来自www.paper51.com End If http://www.paper51.com Else paper51.com MsgBox "你不是管理员，你没有这个权限",, "提示" 内容来自论文无忧网 www.paper51.com End If 内容来自www.paper51.com End Sub http://www.paper51.com Private Sub Form_Load() 内容来自论文无忧网 www.paper51.com Data1.RecordSource= "select * from bfgl where money>0 " 内容来自www.paper51.com End Sub 内容来自www.paper51.com
|