住院医生站左侧列表内容添加编辑的方法
问题
在实施和维护天健HIS系统住院医生站的时候，往往需要修改住院医生站左侧菜单列表的值，修改或者添加选项，如下图：
修改方法
1、查看项目窗口的数据窗口dw_class,查看其数据来源；
可修改表格数据，也可直接修改语句添加，建议修改表格数据，便于后期动态调整；
2、窗体中的of_add_class函数用于动态添加ListViewItem对象的菜单信息，包括Data、Label、PictureIndex等
代码如下：
Integer li_Row = 1,li_Row_Sum
ListViewItem llvi_new
li_Row_Sum = dw_class.RowCount()
Do While li_Row <= li_Row_Sum
llvi_new.Data = dw_class.GetItemString(li_row,"comp_name")
llvi_new.Label = dw_class.GetItemString(li_row,"comp_name")
Choose Case llvi_new.Data
Case "首页"
llvi_new.PictureIndex = ii_picture[1]
Case "病程"
llvi_new.PictureIndex = ii_picture[2]
Case "医嘱"
llvi_new.PictureIndex = ii_picture[3]
Case "检验"
llvi_new.PictureIndex = ii_picture[5]
Case "体温"
llvi_new.PictureIndex = ii_picture[6]
Case "检查"
llvi_new.PictureIndex = ii_picture[4]
Case "处方"
llvi_new.PictureIndex = ii_picture[8]
Case "会诊"
llvi_new.PictureIndex = ii_picture[7]
Case "治疗"
llvi_new.PictureIndex = ii_picture[9]
Case "PIO护理"
llvi_new.PictureIndex = ii_picture[18]
Case "重症护理"
llvi_new.PictureIndex = ii_picture[18]
Case "普通护理"
llvi_new.PictureIndex = ii_picture[18]
End Choose
If lv_pat_info.AddItem(llvi_New) < 1 Then
MessageBox("错误","插入项目错误",Exclamation!)
Return -1
End If
li_Row ++
Loop
Return li_Row_Sum3、通过f_new函数书写各菜单的实现代码；
备注：其他的设置和调整方法，青参见具体项目，自行理解。
您阅读本篇文章共花了： 