护士室药品管理电脑化
技术与开发
经济形势不乐观，对我这个当医生的来说，影响较小，反正我不会失业。不过我所在的医院计划着开源节流（应对未来的医疗改革），我们的奖金可能会受影响。所以，我也在努力表现自己。在工作的时候，我发现医院药房有药品管理软件，但各个护士室却没有此类的软件，她们都是采用手工记录的方法。于是，我开发了一个简单的药品管理小软件，很受大家的好评，现在我在单位人气可旺了。
护士室需求：病人把从药房领取到的药交到护士室保管，以后用药的时候，直接到医院即可，不用自己带药了。护士根据不同的病人，分类管理和使用医药用品，中间不能出任何差错。护士们每天都要从库存中领取数量不一的各种医药用品，这就需要护士长对各种医药用品进行有效的管理，做到心中有数。
医药用品的管理主要有两个方面：库存医药用品的数据管理和医药用品的发放管理。库存医药用品的数据管理包括各种医药用品进出库存的数据更新，添加新药、新仪器等以及删除不再需要的旧医药用品等。医药用品的发放管理是存储发放给每位护士的各项物品的数据记录。
软件原理：用两张表来对医药用品的数据进行管理，一张是库存表，一旦库存的医药用品的品种或者数量发生变化后就更新这张表，保证物流和信息流一致；一张是发放表，一旦有护士领用了医药用品就更新这位护士领用了哪些物品，领用了多少。
技术要点：使用StringGrid表格来实现对数据库多条记录进行批量更新。首先获取数据库的总记录数来动态定义StringGrid的行数，并在创建窗体时依次把数据库的每一条记录中的“物品名称”字段写到StringGrid的第一列（用于回写数据库时的记录定位），然后修改StringGrid表格的第二列“数量”字段的值（全部或者部分行数），把这一列单元格的值依次回写到数据库就实现了对数据库多条记录的批量更新。
软件开发步骤
第一步：启动Delphi7.0，新建一个工程，并在窗体上添加两个ComboBox、七个Button（用于软件使用者的操作）、ADOConnection和ADODateSet各一个（用于操作数据库）、三个Edit、一个StringGrid（用于录入数据）控件。
第二步：设计StringGrid1和CB3的刷新功能。StringGrid1用于显示库存的所有物品， 并且可以对库存的进货作批量修改，CB3是显示库存的所有物品。当窗体创建时需要动态刷新这两个控件的数据，库存进货、医药物品管理等在操作后都需要及时更新这两个控件的数据，因此使用一个过程来作刷新处理，当库存表的数据发生变化后调用这个过程来刷新窗体的这两个控件的数据。这个过程的关键代码如下所示（完整代码下载地址：http://www.shudoo.com/bzsoft）：
ADODS1.Open;//打开库存表
ADODS1.First;//指向第一条记录
StringGrid1.Cells[0,i+1]:= ADODS1.FieldByName('物品名称').AsString;//更新StringGrid1表格的数据
CB3.items.add(ADODS1.FieldByName('物品名称').AsString); //更新CB3的数据
第三步：库存更新功能的开发。一般情况下库存药品每天都要更新，我们在窗体上如果使用Edit控件来对每条记录进行更新处理显然是不合时宜的，只有能批量录入数据的功能才能满足要求，这里采用StringGrid控件来实现。当库存更新后，我们在对应的StringGrid表格中录入相应的数据后点击“提交”按钮就更新库存表了，“提交”按钮的关键代码如下所示（完整代码下载地址：http://www.shudoo.com/bzsoft）：
ADODS1.FieldByName('数量').AsInteger:=StrToInt(StringGrid1.Cells[1,i+1])+
ADODS1.FieldByName('数量').AsInteger;// “数量”字段的值等于数据库中的值加上表格中输入的值
ADODS1.Next;
end;
ADODS1.UpdateBatch();//批量提交
第四步：发放医药用品管理功能的开发。当某位护士领取了某些医药用品后需要更新库存记录（从库存表中减去相应的数量），同时还需要记录这位护士一共领取了多少医药用品。“发放医药用品”按钮的关键代码如下所示（完整代码下载地址：http://www.shudoo.com/bzsoft）：
tmp1:= CB3.Text; //医药物品
tmp2:=CB1.Text; //姓名
//写库存表
ADODS1.Close;
ADODS1.CommandText:='select * from kucun where 物品名称='''+tmp1+'''';//记录的定位
第五步：医药物品管理功能的开发。医药物品管理功能包括两个方面：当有新设备、新药进货后，需要在库存表中增加一条记录存储这些新东西的名称和数量，在发放表中增加新字段用于存储这个物品的发放情况；当淘汰的设备和药品以后不再使用后，需要在库存表中把对应的那条记录删除，同时在发放表中删除这个字段。此步骤的代码请到http://www.shudoo.com/bzsoft下载。
编后
此软件的亮点是如何批量修改数据库的多条记录，用到了StringGrid表格。使用StringGrid前一定要确认操作的单元格和数据库中每条记录的字段的值一一对应，避免数据错位的发生。StringGrid表格还可以用于学生成绩的录入、员工薪水的录入等需要一次修改大量记录的情况。