|
第二章 系统的分析 内容来自www.paper51.com 2．1 系统开发的目标和思想 paper51.com 本系统开发目标是服务于企事业单位财务管理人员,方便工作人员,收集员工工资信息,发布工资发放信息,对本单位部门员工工资分类管理等. http://www.paper51.com
同时力求做到界面人性化,功能齐全,数据存储安全. paper51.com 2．2 系统的可行性分析 http://www.paper51.com 技术上:本系统采用visualbasic 6.0与微软的access作为数据库,技术上开发难度一般. copyright paper51.com 经济上:本系统服务于企事业单位财务管理人员,提高了工作人员办事效率,节省了开支.所以具有经济上的可行性. 内容来自论文无忧网 www.paper51.com 社会上:本系统同时也方便了企业管理人员者,以及员工.所以具有社会可行性. paper51.com 第三章 系统的设计 http://www.paper51.com 3．1 系统的功能结构设计 内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com 3．2 系统的数据库设计 内容来自论文无忧网 www.paper51.com 1:部门表: copyright paper51.com
内容来自论文无忧网 www.paper51.com
2:工资信息表: paper51.com
paper51.com
3:用户登陆表: http://www.paper51.com
内容来自论文无忧网 www.paper51.com 3．3 界面设计与代码设计 paper51.com 1:登陆界面设计 http://www.paper51.com
copyright paper51.com 登陆界面代码设计: http://www.paper51.com
Private SubCommand1_Click() http://www.paper51.com If Trim(Text3.Text)= Data1.Recordset.Fields(2) Then 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com czy = Data1.Recordset.Fields(1) 内容来自www.paper51.com bz = Text1.Text http://www.paper51.com Unload Me copyright paper51.com
gzglxt.Show 内容来自www.paper51.com Else copyright paper51.com MsgBox "密码不符，请核对后再输入" paper51.com Text3.Text ="" paper51.com Text3.SetFocus copyright paper51.com
End If copyright paper51.com End Sub paper51.com Private SubCommand2_Click() 内容来自www.paper51.com End http://www.paper51.com End Sub copyright paper51.com
Private Sub Form_Load() copyright paper51.com Data1.DatabaseName = App.Path +"\gzglxt.mdb" 内容来自论文无忧网 www.paper51.com Data1.RecordSource = "mmk" paper51.com Data1.Refresh http://www.paper51.com
End Sub paper51.com Private Sub Text1_Change() http://www.paper51.com If Len(Text1.Text)>= 2 Then copyright paper51.com Data1.Recordset.FindFirst "czydm=" + "'" +Text1.Text + "'" 内容来自www.paper51.com IfData1.Recordset.NoMatch = True Then 内容来自论文无忧网 www.paper51.com MsgBox "操作员代码不存在，请核对后再输入!" copyright paper51.com Text1.Text = "" 内容来自论文无忧网 www.paper51.com Text1.SetFocus 内容来自www.paper51.com
Else http://www.paper51.com
Text2.Text = Data1.Recordset.Fields(1) 内容来自www.paper51.com Text3.SetFocus http://www.paper51.com End If http://www.paper51.com End If 内容来自论文无忧网 www.paper51.com
End Sub paper51.com Private Sub Text3_KeyPress(KeyAscii As Integer) http://www.paper51.com If KeyAscii = 13 Then http://www.paper51.com Command1.SetFocus copyright paper51.com End If 内容来自论文无忧网 www.paper51.com End Sub paper51.com |