|||
'智能窗体
的
加载事件
事件代码:
if
Me.Input1="ADD"
then
记录部件1.RefreshData()
记录部件1.AddNewRow()
Me.FormTitle="增加药品不良反应信息"
else
if Me.Input1="EDIT"
then
记录部件1.SetVaribleValue("报告ID",Me.Input2)
记录部件1.RefreshData()
Me.FormTitle="编辑药品不良反应信息"
else
if Me.Input1="VIEW"
then
记录部件1.SetVaribleValue("报告ID",Me.Input2)
记录部件1.RefreshData()
记录部件1.只读=true
'设置
保存
为
隐藏
Me.SetPartVisible(保存,False)
Me.FormTitle="查看药品不良反应信息"
end
if |
'智能窗体
的
加载事件
事件代码:
'业务表变量赋值,查询本人登记的数据
网格部件1.SetVaribleValue("登记人ID",登录用户ID())
'开始结束日期控件赋初值
开始日期.Value =
DateAdd(Today(),-3,"M")
结束日期.Value =
Today()
'业务表变量赋值,查询这一期间的数据
网格部件1.SetVaribleValue("开始日期",开始日期.Value)
网格部件1.SetVaribleValue("结束日期",结束日期.Value)
网格部件1.RefreshData()
'变更审核字段的样式
dim
styleCondition1=网格部件1.AddColumnStyle("审核",1,"
已审核",0,False)
styleCondition1.Appearance.BackColor=Color.FromArgb(-4144897)
styleCondition1.Appearance.ForeColor=Color.FromArgb(-16776961)
'增加网格鼠标右击菜单
Me.AddContextMenu(网格部件1,"新增")
Me.AddContextMenu(网格部件1,"编辑")
Me.AddContextMenu(网格部件1,"预览")
Me.AddContextMenu(网格部件1,"删除")
Me.AddContextMenu(网格部件1,"刷新")
'定义审批状态变量(全局)
dim
status=""
|
dim
form1 =
创建窗体("dfc0096b-ee2a-423a-975f-c1d50614602e")
form1.Input1="ADD"
form1.ShowDialog()
网格部件1.RefreshData() |
'调用检查权限
功能
Call("检查权限")
'判断是否已经审核过
if
status<>"未审核"
then
'更新该字段标志
网格部件1.SetFocusedRowValue("审核","已审核")
ShowMessage("本条数据已经审批,请刷新查看!")
end
end
if
'打开编辑窗体,并给窗体Input1,和Input2赋值
dim
selectedid=网格部件1.GetFocusedRowValue("ID")
dim
form1 =
创建窗体("dfc0096b-ee2a-423a-975f-c1d50614602e")
form1.Input1="EDIT"
form1.Input2=selectedid
form1.ShowDialog()
网格部件1.RefreshData()
'定位到修改的记录
网格部件1.SetFocusRowByColumnValue("ID",selectedid) |
'状态为“未审核”的数据
;检查是否可以删除或编辑
if
网格部件1.GetFocusedRowValue("审核")="未审核"
then
status=CustomScalar("default","select
nvl(审核,'未审核')
from MEDICAL_EVENT_REPORT where Id='"+网格部件1.GetFocusedRowValue("ID")+"'")
end
if
|
'调用检查权限
功能
Call("检查权限")
'判断是否已经审核过
if
status<>"未审核"
then
网格部件1.SetFocusedRowValue("审核","已审核")
ShowMessage("本条数据已经审批,请刷新查看!")
end
end
if
'''''''''''''''''''''''''''''''''''''''
if
ShowQuestion("注意:删除后将不能恢复!"+NewLine()+NewLine()+"你确认要删除[
"+网格部件1.GetFocusedRowValue("患者姓名")+" ]的药品不良报告吗?")
then
'他表删除
dim
delValue1 = executenonquery(" delete
From MEDICAL_EVENT_REPORT Where Id='"+网格部件1.GetFocusedRowValue("ID")+"'")
网格部件1.DeleteFocusedRow()
end
if |
'智能窗体
的
加载事件
事件代码:
'开始结束日期控件赋初值
开始日期.Value =
DateAdd(Today(),-3,"M")
结束日期.Value =
Today()
'业务表变量赋值,查询这一期间的数据
网格部件1.SetVaribleValue("开始日期",开始日期.Value)
网格部件1.SetVaribleValue("结束日期",结束日期.Value)
网格部件1.RefreshData()
'变更审核字段的样式
dim
styleCondition1=网格部件1.AddColumnStyle("审核",1,"
已审核",0,False)
styleCondition1.Appearance.BackColor=Color.FromArgb(-4144897)
styleCondition1.Appearance.ForeColor=Color.FromArgb(-16776961)
'增加网格鼠标右击菜单
Me.AddContextMenu(网格部件1,"审核")
Me.AddContextMenu(网格部件1,"取消")
Me.AddContextMenu(网格部件1,"预览")
Me.AddContextMenu(网格部件1,"导出xls")
Me.AddContextMenu(网格部件1,"刷新") |
'他表提交
dim
delValue1
= executenonquery("UPDATE
MEDICAL_EVENT_REPORT SET CONFIRM='已审核' Where
Id='"+药品不良报告1.GetFocusedRowValue("ID")+"'")
'设置字段的值,不需要重新刷新数据表,以提高用户体验
药品不良报告1.SetFocusedRowValue("审核","已审核")
Me.SetFunctionEnabled("审核",false)
Me.SetFunctionEnabled("取消",true)
|
'他表提交
dim
delValue1
= executenonquery("UPDATE
MEDICAL_EVENT_REPORT SET CONFIRM='未审核' Where
Id='"+药品不良报告1.GetFocusedRowValue("ID")+"'")
'设置字段的值,不需要重新刷新数据表,以提高用户体验
药品不良报告1.SetFocusedRowValue("审核","未审核")
Me.SetFunctionEnabled("审核",true)
Me.SetFunctionEnabled("取消",false)
|
Powered by Discuz! X3.2
© 2001-2013 Comsenz Inc.