保饭碗靠编程.doc

《保饭碗靠编程.doc》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、保饭碗靠编程今年下半年，金融危机对我们的影响越来越大，一些企业的业绩开始下滑。年终将至，极可能有些朋友会面临失去工作或者降低工资的情况。我们应该如果应对这个难关呢？让老板看到自己的重要性，裁员裁不到自己、减薪减不到自己呢？现在是用编程技术让老板看到你的附加值的时候了。如果你会开发针对公司或者行业的实用小软件，请给我们来信：pcw-chendx@vip.sina.com。医药用品管理就靠我我是医院的一名普通护士，懂一些编程知识，由于经常领用医药用品，知道医药用品管理存在很大的漏洞，很多人经常把一些医药用品私自拿回家，医院为此头疼不已。为此我开发了一个小软件用于医药用品的管理

2、，院长知道了我的软件后称赞不已并迅速要求医院使用这个软件来对医药用品进行管理，院长等领导对我也刮目相看了。医院需求：医药用品的管理主要针对两个方面：库存的医药用品的数据管理和医药用品的发放管理。库存的医药用品管理包括各项医药用品的库存进货后更新数据，发放给护士们后也要更新数据，添加新的医药用品以及删除不再需要的旧医药用品；医药用品的发放管理需求是需要记录发放给每位护士的各项用品的数据记录并更新库存的数据。软件原理：采用两张表来对医药用品的数据进行管理，一张是库存表，一旦库存的医药用品的品种或者数量发生变化后就更新这张表，保证物流和信息流一致；一张是发放表，一旦有护士领用了

3、医药用品就更新这位护士领用了哪些物品，领用了多少。技术要点：调用Excel来修改数据，然后写回到数据库中来更新表的数据是本软件的核心。如果修改的数据记录很多，每条记录都手工录入的重复劳动是相当大的，工作效率非常低下，比如库存进货，医药用品品种多数量又不一致，手动在窗体上一个一个录入非常麻烦还容易出错，调用Excel来进行录入后再写回数据库就非常便捷了。采用Excel来录入大量数据再回写到数据库的方法适用面非常广泛，只要是需要录入的数据记录量很大的都可以，比如企业员工每月的薪水记录录入、学生的考试成绩录入等。软件开发步骤第一步：启动Delphi7.0，新建一个工程，并在窗体

4、上添加3个ComboBox、10个Button（用于软件使用者的操作）、ExcelApplication、ExcelWorksheet、ExcelWorkbook（用于连接和操作Excel），ADOConnection、ADODateSet（用于操作数据库）等控件如下图：第二步：库存进货功能的开发。当库存进货后需要更新库存表的记录，【提交】按钮的关键代码如下：tmp1:=CB2.Text;ADODS1.Close;ADODS1.CommandText:='select*fromkucunwhere物品名称='''+tmp1+'''';//定位库存表的记录，也就是定位到Co

5、mboBox选择的物品的那条记录ADODS1.Open;ADODS1.Edit;ADODS1.FieldByName('数量').AsInteger:=ADODS1.FieldByName('数量').AsInteger+StrToInt(Edit1.Text);//更新数据，此条记录的数量字段的值等于原来的值加上窗体上设置的值（实际进货的数量）ADODS1.Post;第三步：发放医药用品管理功能的开发。当某位护士领取了某些医药用品后需要更新库存记录（从库存表中减去相应的数量），同时还需要记录这位护士一共领取了多少这些医药用品。其核心代码如下：tmp1:=CB3.Text

6、;//医药物品tmp2:=CB1.Text;//姓名//写库存表ADODS1.Close;ADODS1.CommandText:='select*fromkucunwhere物品名称='''+tmp1+'''';//记录的定位ADODS1.Open;ADODS1.Edit;ADODS1.FieldByName('数量').AsInteger:=ADODS1.FieldByName('数量').AsInteger-StrToInt(Edit2.Text);//定位到这条记录后更新【数量】字段的值ADODS1.Post;//写发放表ADODS2.Close;ADODS2.Co

7、mmandText:='select*fromfafangwhere姓名='''+tmp2+'''';//记录的定位ADODS2.Open;ADODS2.Edit;ADODS2.FieldByName(CB3.text).AsInteger:=ADODS2.FieldByName(CB3.text).AsInteger+StrToInt(Edit2.Text);//定位到这条记录后更新这项医药用品数量字段的值ADODS2.Post;第四步：调用Excel表来更新库存进货的功能。首先程序调用Excel，如果在尝试连接Excel时