报告管理系统

页 关于印发《安庆市药品不良反应监测工作库存管理系统系(部)：管理信息系理页 关于印发《安庆市药品不良反应监测工作业不可缺少的部分,它的内容对于企关重要,所以仓库库存管理系统应该能各个领域并发挥着越来越重用计算机对物资信息进行管理,具页 关于印发《安庆市药品不良反应监测工作摘要系统(MIS),其开发主要包括后据安全性好的库。而对于后者利用其提供的各种面向对象的开发工具,尤其是ADO,是能方便而简洁短期内就可以开发出用户满意的可行系页 关于印发《安庆市药品不良反应监测工作页 关于印发《安庆市药品不良反应监测工作模块设计 关于印发《安庆市药品不良反应监测工作页 关于印发《安庆市药品不良反应监测工作述主计划模块和采购模块建立计划与控制系统以有效地实施库存管理和采购补偿成为题中应有之义。通过调查，我们得知任何库存均可分为如下三类：A类物品：高值──价值占库存总值70-80％的相对少数物品。通常为物品的15-20％。B类物品：中值──总值占库存总值的15-20％。物品数居中，通常占物品的30-40％。C类物品：低值──库存总值几乎可以忽略不计，只占5-10％。是物品显然，A类物品是关键；如果我们把精力集中于A类物品，使其库存压缩10-50％，就是总库存的相当可观的一笔压缩。关于ABC分类方法有几条基本法则：对B类物品做正常控制，包括良好的记录与常规的关注。在一切活动中给A类物品以高优先级以压缩其提前期与库存。对B类物品予以正常处理，仅在关键时给以高优先级。予C类物品以最低优先级。页 关于印发《安庆市药品不良反应监测工作对B类物品，按一定周期或当发生重大变化时评审一次库存数据和订货点，库存管理的主要目标就是通过对仓库所有入出库活动的管理和控制及对库现问题，采取相应措施，调整库存结构,缩短储备周期，加速资金周转，最大限度 关于印发《安庆市药品不良反应监测工作页页 关于印发《安庆市药品不良反应监测工作本系统采用了结构化生命周期法，结构化生命周期法是最常用的管理信息在整个系统分析阶段，我在图书馆认真查看了很多关于仓库库存管理方面序序提纲号领料退回的处理方法？10是否每天都要登记库存台账？有多少类型？12仓库之间是否可以进行调拨？？统计报表的种类和填报频率？页关于印发《安庆市药品不良反应监测工作领料人员从仓库中领取零部件时必须填写的单据(即出库)；零部件台账(相当页 关于印发《安庆市药品不良反应监测工作了当前最流行的客户机／服务器应用程序结构(即visualBasic问对象：ADO(本系页 关于印发《安庆市药品不良反应监测工作库单。根据需要按照月、季、年进行统计分析，产生相应报表。所管理的物资设备、原材料及页关于印发《安庆市药品不良反应监测工作在本系统的设计过程中，为了克服这些困难，满足计算机管理的需要，我使用帮助。统功能模块设计。页关关于印发《安庆市药品不良反应监测工作b.管理员可以通过管理界面添加或删除用户，添加新管理员或删除原有管(2)入库模块(3)出库模块(4)还库模块(5)需求模块页关关于印发《安庆市药品不良反应监测工作通过对企业仓库管理内容和数据流程分析，设计的数据项合数据结构如。现有库存信息。包括的数据项有现有设备、现有数目、最大库存、最小页关于印发《安庆市药品不良反应监测工作设备使用信息。包括的数据项有使用的设备、使用部门。数目。使用时设备采购信息。包括的数据项有采购的设备、采购员、供应商、采购数设备归还信息。包括的数据项有归还设备、归还部门、归还数目、归还设备需求信息。包括的数据项有需求的部门、需求设备、需求数目、需这一设计阶段是在需求分析的基础上，设计出能够满足用户需求的各种实页关关于印发《安庆市药品不良反应监测工作设计页说说明 关于印发《安庆市药品不良反应监测工作关系。6为空OTULLNULL称设设限表码限数可ULLULLULL.3设备入库表NOTNULL间间ULLULL无量ULLULLULLULL页 关于印发《安庆市药品不良反应监测工作设备出库表无间ULLULLULLULLULLULLULL门间况量4.5现有库存库表字字数可说段名称据类型否为空明文本NOTNULL现有库文本NULLINTEGE存R最大库文本NULLINTEGE存R最小库文本NULLINTEGE存R需求表数数可说据类型否为空明文本NOT字段文本NOT字段数字NULLINTEG日期/NULL无日期/NULL无号页 关于印发《安庆市药品不良反应监测工作结结束时间时间设备还库表字字数可说明段名称据类型设备号文本NOT字段大还库时日期/NULL无间时间仓库管文本NULL字段大小为10归还数数字NULLINTEGE量R归还人文本NULL字段大8操作日志表数数可说据类型否为空明文本NOT字段大文本NOT字段大日期/NOT无时间NULL备采购计划表字段字段数据可否说明名称类型为空文本NOTNULL现有库数字NULLINTEGER存总库存数字NULLINTEGER最大库数字NULLINTEGER存购买数数字NULLINTEGER量供应商文本NULL字段大价格数字NULLINTEGER页关关于印发《安庆市药品不良反应监测工作计计划采日期/NULL无购时间时间A类物品：高值──价值占库存总值70-80％的相对少数物品。通常为物品的15-20％。B类物品：中值──总值占库存总值的15-20％。物品数居中，通常占物品的30-40％。C类物品：低值──库存总值几乎可以忽略不计，只占5-10％。是物品的大多数，通常占60-70％。出设计关关于印发《安庆市药品不良反应监测工作页在VB中，应用面向对象的程序设计方法(OOP)，把程序和数据封装起来页关于印发《安庆市药品不良反应监测工作事件驱动是非常适合图形用户界面的编程方式。在图形用户界面的应用程提供了易学易用的应用程序集成开发环境能富的图形指令，可方便地绘制各种图形提供静态和动态数组，有利于简化内存的管理递归调用，使程序更为简练文件和顺序文件的访问提供了一个可供应用程序调用的包含多种类型的图标库库系统的访问s等多种电子表格。(CODE)互相结合的综合体。Windows上面的每一个图标，包括窗口本身都是对页 关于印发《安庆市药品不良反应监测工作执窗口对象支持隐藏(Hide)方法、很多对象支持移动(Move)方法等。ck搭”、页 关于印发《安庆市药品不良反应监测工作Access将所有有名字的东西都成为对象(object)，在Access2000中，最重要的对象有表，查询，窗体，报表，宏和模块。包括存储不同种类资料的字段(列)，而记录(行)则收集特定主体实例的所有窗体通过运行宏(macro)或VisualBasicforApplicatinns(VBA)过程，来数据库的重要标准(有时甚至是唯一的标准)。页关关于印发《安庆市药品不良反应监测工作实现序PrivateSubCommand1_Click()Adodc1.RecordSource=frmLogin.Adodc1.RecordSourceAdodc1.RefreshSetText4.DataSource=Adodc1TextDataField"密码"fTextThenitSubElseIfText1.Text<>Adodc1.Recordset.Fields("密码")ThenitSubElseIfText2=""OrText3=""ThenitSub页关关于印发《安庆市药品不良反应监测工作ElseIfText2<>Text3ThenitSubTextText=Text2.TextAdodc1.Recordset.MoveFirstnloadMeEndIfSub页 关于印发《安庆市药品不良反应监测工作PrivateSubCommand1_Click()设备入库程序DimI,JAsIntegerDimSTRAsStringextOrTextThenbElse将记录存入入库记录表datPrimaryRSRecordsetFieldsTextTextyRSRecordsetFieldsTextTextRSRecordsetFieldsComboTextrdsetFieldsTextTextaryRSRecordsetFieldsTextTextdatPrimaryRSRecordsetFields("采购员")=Text7.TextEndIfIf设备入库表.Adodc1.Recordset.RecordCount>0Then将记录加入现有库存表中设备入库表.Text9.Text=CInt(设备入库表.Text9.Text)+CInt(Text2.Text)设备入库表.Text9.RefresheFirstsRefreshhMsgBoxSTREquTextTextfrmInputTextTextEquTextTextfrmInputTextTextEndIf页关于印发《安庆市药品不良反应监测工作EndSubPrivateSubcmdDelete_Click()删除入库表中记录OnErrorGoToDeleteErrDimYesNoAsStringYesNoMsgBox("删除",vbYesNo,"删除记录")tthxitSubEndIfeteErrMsgBoxErr.DescriptionSubPrivateSubcmdUpdateClick)更新纪录程序ErrorGoToUpdateErrrimaryRSRecordsetUpdateBatchadAffectAllxitSubpdateErrMsgBoxErr.DescriptionSub关关于印发《安庆市药品不良反应监测工作PrivateSubCommand1_Click()设备出库程序Dimi,J,kAsIntegerDimSTRAsString='"&Text1.Text&"'"IfIsNumeric(Text2)=FalseThenbEndIfxtOrTextOrTextxtOrTextThenbgBoxSTRbEndIf关关于印发《安庆市药品不良反应监测工作tCIntTextTexteshhSubEndIfMsgBoxSTREndIfSubPrivateSubcmdDeleteClick删除出库记录ErrorGoToDeleteErrDimYesNoAsStringYesNo=MsgBox("删除",vbYesNo,"删除记录")xitSubEndIfeteErrMsgBoxErr.DescriptionSub相同，在此略关关于印发《安庆市药品不良反应监测工作PrivateSubcmdAdd_Click()添加设备OnErrorGoToAddErrdatPrimaryRS.Recordset.AddNewExitSubAddErr:MsgBoxErr.DescriptionEndSub关于印发《安庆市药品不良反应监测工作/paperimg/userup/0804/24034423L29.jpgPrivateSubCommand1_Click()显示高于最大警戒库存的设备datPrimaryRSRecordSourceselectfrom现有库存表where现有库存>最大maryRSRefreshaGridRefreshIfdatPrimaryRSRecordsetRecordCount>0ThenpEndIfdSubPrivateSubCommand2_Click()显示低于于最小警戒库存的设备datPrimaryRSRecordSourceselectfrom现有库存表where现有库存<最小maryRSRefreshaGridRefreshIfdatPrimaryRSRecordsetRecordCount>0ThenpEndIfEndsub关于印发《安庆市药品不良反应监测工作PrivateSubTimer1_Timer()自动报警程序frmAlarmdatPrimaryRSRecordSource="select*from现有库存表where现有"frmAlarm.datPrimaryRS.RefreshIffrmAla