|
5．2主界面的实现 主界面是用菜单形式表现的，如图： copyright paper51.com
内容来自www.paper51.com 菜单的制作过程如下： http://www.paper51.com 首先通过“工具”菜单中的“菜单编辑器”调出菜单编辑器，然后进行菜单的设置，如下图： 内容来自论文无忧网 www.paper51.com copyright paper51.com 此过程中要注意各菜单的名称唯一，还要注意菜单的级别，另外此设计过程中我们还可以给菜单加快捷键。 内容来自www.paper51.com
最后设置如下的代码（只要单击菜单即可设置各菜单代码），代码如下： http://www.paper51.com
内容来自www.paper51.com 主要是通过Show方法调用相应的窗体。 paper51.com
5．3住院管理模块的实现 http://www.paper51.com 5．3．1住院/出院模块的实现： 内容来自www.paper51.com 1、流程图： paper51.com 2、运行界面： copyright paper51.com 入院的运行界面： 内容来自www.paper51.com 内容来自论文无忧网 www.paper51.com 出院的运行界面： copyright paper51.com http://www.paper51.com 1．实现过程：（以入院为例） paper51.com 第一步将所需的控件放到窗体的相应位置；方法：首先在“工具箱”中选中所需的控件图标，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到窗体上。如下图： paper51.com
paper51.com 第二步，选择窗体或控件进行属性设置，同上一小结。 paper51.com
其它属性和控件的设置方法类似。 copyright paper51.com 第三步双击相应的控件，在控件的相应过程中编写代码： 内容来自www.paper51.com 的代码为： copyright paper51.com Private SubCommand1_Click() copyright paper51.com IfCommand1.Caption = "新增" Then http://www.paper51.com Data1.Recordset.MoveLast paper51.com n =Trim(Str(Data1.Recordset.RecordCount + 1)) paper51.com Command1.Caption = "确定" 内容来自www.paper51.com Data1.Recordset.AddNew 内容来自www.paper51.com Text1(0).Text = n copyright paper51.com Text1(3).Text = 30 内容来自论文无忧网 www.paper51.com Text1(11) = Date 内容来自www.paper51.com Text1(1).SetFocus http://www.paper51.com Command2.Enabled = False 内容来自www.paper51.com Command3.Enabled = False 内容来自www.paper51.com Else copyright paper51.com MsgBox "入院成功！" http://www.paper51.com
Command1.Caption = "新增" 内容来自www.paper51.com Data1.Recordset.Update paper51.com Data1.Recordset.MoveLast http://www.paper51.com Command2.Enabled = True 内容来自www.paper51.com Command3.Enabled = True 内容来自www.paper51.com End If 内容来自论文无忧网 www.paper51.com End Sub copyright paper51.com 的代码为： 内容来自www.paper51.com Private SubCommand2_Click() 内容来自www.paper51.com Data1.Recordset.Delete http://www.paper51.com Data1.Recordset.MovePreviousEndSub paper51.com 的代码为： http://www.paper51.com
Private SubCommand3_Click() paper51.com Data1.Recordset.Edit http://www.paper51.com
Data1.Recordset.UpdateEndSub paper51.com 图片框的代码为： 内容来自www.paper51.com Private SubPicture1_Click() copyright paper51.com Picture1.Picture= Clipboard.GetData 内容来自论文无忧网 www.paper51.com End Sub paper51.com
此窗体上用了1个Adodc控件，Adodc1用来连接医师情况表。使用方法是首先通过Adodc控件与数据库相连，然后将各数据项与数据字段相连。 http://www.paper51.com Adodc1控件的属性为： 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com 如科别的控件的主要属性设置如下： 内容来自www.paper51.com
http://www.paper51.com 其他控件的设置同。 paper51.com 出院管理类型，主要以有无入院/出院时间判断病人是住院状态还是出院状态。 内容来自www.paper51.com
5．3．2查询住院/出院病人模块的实现 http://www.paper51.com 1．运行界面： http://www.paper51.com 查询住院病人运行界面： copyright paper51.com paper51.com 查询出院病人运行界面： 内容来自www.paper51.com
copyright paper51.com 2．实现过程（以查询住院病人为例）： 内容来自www.paper51.com 界面的实现方法同上，下面主要看关键代码： 内容来自www.paper51.com 单选按钮组的代码为： 内容来自论文无忧网 www.paper51.com Private SubOption1_Click(Index As Integer) paper51.com
For i = 0 To 3 内容来自论文无忧网 www.paper51.com
If Option1(0).Value = TrueOr Option1(1).Value = True Then 内容来自www.paper51.com Text1.Visible = True paper51.com Combo1.Visible = False paper51.com DTPicker1.Visible = False 内容来自www.paper51.com
Else 内容来自论文无忧网 www.paper51.com If Option1(2).Value = True Then paper51.com
Text1.Visible = False 内容来自www.paper51.com
Combo1.Visible = True paper51.com DTPicker1.Visible = False 内容来自论文无忧网 www.paper51.com Else 内容来自www.paper51.com IfOption1(3).Value = True Then paper51.com Text1.Visible = False copyright paper51.com Combo1.Visible = False 内容来自www.paper51.com DTPicker1.Visible = True copyright paper51.com Else paper51.com
MsgBox "请选择查询的项！", , "提示" paper51.com
End If http://www.paper51.com End If 内容来自论文无忧网 www.paper51.com End If 内容来自www.paper51.com Next i copyright paper51.com Command1.Visible= True http://www.paper51.com End Sub http://www.paper51.com |