|
第一章 系统的分析 paper51.com
第一章 系统的分析 内容来自论文无忧网 www.paper51.com
2．1 系统开发的目标和思想 内容来自论文无忧网 www.paper51.com
本系统开发目标是服务于高速公路收费管理人员,方便工作人员,对过往车辆收费,发放收费票据记录,对信息的分类管理等. 内容来自www.paper51.com 同时力求做到界面人性化,功能齐全,数据存储安全. paper51.com
2．2 系统的可行性分析 copyright paper51.com 技术上:本系统采用visualbasic 6.0与微软的access作为数据库,技术上开发难度一般. 内容来自论文无忧网 www.paper51.com
经济上:本系统服务于医院药方管理人员,提高了工作人员办事效率,节省了开支.所以具有经济上的可行性. 内容来自www.paper51.com
社会上:本系统同时也方便了广大病人,以及医院管理人员.所以具有社会可行性. 内容来自论文无忧网 www.paper51.com
第二章 系统的设计 copyright paper51.com
3．1 系统的功能结构设计 内容来自www.paper51.com
paper51.com 3．2 系统的数据库设计 copyright paper51.com 1:草药表: copyright paper51.com
http://www.paper51.com
2:处方表设计: http://www.paper51.com 内容来自www.paper51.com 3:费用表设计: 内容来自www.paper51.com http://www.paper51.com 4:库存表设计 内容来自论文无忧网 www.paper51.com
http://www.paper51.com
5:科室代码表: copyright paper51.com 内容来自www.paper51.com 6:门诊收费表: 内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com
7:药品信息表: copyright paper51.com
http://www.paper51.com 8:用户表: 内容来自www.paper51.com copyright paper51.com 9:药方表: copyright paper51.com
内容来自www.paper51.com
3．2 界面设计与代码设计 内容来自www.paper51.com 1,登入界面设计: copyright paper51.com copyright paper51.com 代码设计: paper51.com
Public userdwname As String copyright paper51.com Public username As String http://www.paper51.com Public userright As String http://www.paper51.com
Public conn As String 内容来自论文无忧网 www.paper51.com Private Sub Command1_Click() paper51.com
Dim password As String paper51.com Dim respond As String paper51.com username= Text1.Text copyright paper51.com password= Text2.Text copyright paper51.com On Error GoTo err1 http://www.paper51.com
Adodc1.ConnectionString = conn copyright paper51.com Adodc1.RecordSource = "select *from usertab where 用户名=" &"'" & username & "'" & " and " &"密码=" & "'" & password& "'" 内容来自论文无忧网 www.paper51.com Adodc1.Refresh copyright paper51.com If Adodc1.Recordset.AbsolutePosition =adPosUnknown Then http://www.paper51.com respond = MsgBox("用户名或密码错误，请重新输入！", vbOKOnly, "警告") copyright paper51.com If respond <> vbOKOnly Then 内容来自论文无忧网 www.paper51.com Text1.SetFocus paper51.com
Text1.Text = "" copyright paper51.com Text2.Text = "" copyright paper51.com username = "" paper51.com password = "" 内容来自www.paper51.com End If 内容来自www.paper51.com Else copyright paper51.com userright =Adodc1.Recordset.Fields("权限") 内容来自论文无忧网 www.paper51.com Unload frmlogin copyright paper51.com frmmain.Show 内容来自论文无忧网 www.paper51.com
End If paper51.com
Exit Sub 内容来自www.paper51.com err1: copyright paper51.com MsgBox "系统配置错误！无法与服务器连接！" 内容来自www.paper51.com userright= "0" 内容来自www.paper51.com Unload Me http://www.paper51.com
frmsysset.Show 内容来自论文无忧网 www.paper51.com End Sub paper51.com
Private Sub Command2_Click() 内容来自论文无忧网 www.paper51.com End 内容来自www.paper51.com End Sub copyright paper51.com Private Sub Form_Load() paper51.com Text1.Text = "" 内容来自论文无忧网 www.paper51.com Text2.Text = "" copyright paper51.com 'conn =Frmstart.pconn 内容来自www.paper51.com conn= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path& "\his.mdb;Persist Security Info=False" http://www.paper51.com
End Sub http://www.paper51.com
|