组织机构设计

1、组织机构设计二、配备： 部门人数沙发茶几书架文献架办公桌办公椅保险柜椅子会议桌椅资料室书柜领用人院长111111112cao副院长1102111111112cao副院长1103111111112cao党总支书记111111112liao团总支4144418liao学办14144418duan学办24144418duan学办34144418duan学办44144418duan教务处144418zhang会议室1套wang资料室10shao总量44102828281056110三、采购预算（单位：元）沙发茶几书架文献架办公桌办公椅保险柜椅子会议桌椅资料室书柜单价126601000390012658

2、550130015028850650数量44102828281056110总计506404000390003361842415400130008400288506500预算合计：184550元四、采购调查（见入库单.xls）五、采购方式：招标采购六、（1）入库账务解决-填写入库单 -修改总账追加流水账实现入库代码：Form1.initthisform.setall(value, ,textbox)thisform.text4.value=0thisform.text5.value=0command1.clickselect 入库单1append blankrepl 仪器名称 with this

3、form.text1.valuerepl 使用单位号 with thisform.text2.valuerepl 仪器编号 with thisform.text3.valuerepl 单价 with thisform.text4.valuerepl 购买时间 with thisform.text6.valuerepl 型号 with thisform.text7.valuerepl 入库时间 with thisform.text8.valuerepl 供应商 with thisform.text9.valuemessagebox(入库流水记录成功)select 总账1locate for al

4、lt(仪器编号)=allt(thisform.text3.value)if found()repl 数量 with 数量+thisform.text5.valuemessagebox(有此设备,新增数量)else append blankrepl 仪器名称 with thisform.text1.valuerepl 使用单位号 with thisform.text2.valuerepl 仪器编号 with thisform.text3.valuerepl 单价 with thisform.text4.valuerepl 购买时间 with thisform.text6.valuerepl 型号

5、 with thisform.text7.valuerepl 入库时间 with thisform.text8.valuerepl 供应商 with thisform.text9.valueendifcommand2.clickselect 总账1delepackselect 入库单1delepackcommand3.clickthisform.setall(value, ,textbox)thisform.text4.value=0thisform.text5.value=0command4.clickthisform.release (2)领用旳账务解决1、填写领用单，修改总账2、删除原领

6、用人，新增总账记录一方面，总账1.dbf与领用单建立临时性关联Form.initthisform.setall(value,textbox)thisform.text4.value=0thisform.text5.value=0command1.clickselect 领用单1copy to lyuse lydelete for 领用人=alltrim(thisform.text10.value)packlistcommand2.clickset delete onselect 总账1append blankrepla 领用人 with thisform.text10.valuerepla 领

7、用日期 with thisform.text11.valuerepla 新寄存地点 with thisform.text12.valuerepl 仪器名称 with thisform.text1.valuerepl 使用单位号 with thisform.text2.valuerepl 仪器编号 with thisform.text3.valuerepl 单价 with thisform.text4.valuerepl 购买时间 with thisform.text6.valuerepl 型号 with thisform.text7.valuerepl 入库时间 with thisform.t

8、ext8.valuerepl 供应商 with thisform.text9.valuecommand3.clickselect 领用单1append blankrepl 仪器名称 with thisform.text1.valuerepl 仪器编号 with thisform.text3.valuerepl 单价 with thisform.text4.valuerepl 型号 with thisform.text7.valuerepl 供应商 with thisform.text9.valuerepla 领用人 with thisform.text10.valuerepla 领用日期 wi

9、th thisform.text11.valuerepla 新寄存地点 with thisform.text12.valuecommand4.clickthisform.release(3)总账数据维护Form.initthis.text3.setfocusCommand1.ClickTHISFORM.SETALL(VALUE, ,TEXTBOX)THISFORM.TEXT4.VALUE=0THISFORM.TEXT5.VALUE=0THISFORM.COMBO1.DISPLAYVALUE=仪器编号THISFORM.REFRESHTHISFORM.COMBO1.VISIBLE=.T.THISF

10、ORM.LABEL1.VISIBLE=.T.THISFORM.TEXT1.VALUE=仪器名称THISFORM.TEXT2.VALUE=使用单位号THISFORM.TEXT3.VALUE=仪器编号THISFORM.TEXT4.VALUE=单价THISFORM.TEXT5.VALUE=数量THISFORM.TEXT6.VALUE=购买时间THISFORM.TEXT7.VALUE=型号THISFORM.TEXT8.VALUE=入库时间THISFORM.TEXT9. VALUE=供应商THISFORM.TEXT10.VALUE=领用人THISFORM.TEXT11.VALUE=领用日期THISFOR

11、M.TEXT12.VALUE=新寄存地点Command2.clickDELEPACKMESSAGEBOX(确认目前记录删除,此操作将无法恢复)Command3.clickIF BOF()GO BOTTELSESKIP -1THISFORM.COMBO1.VISIBLE=.F.THISFORM.LABEL1.VISIBLE=.F.THISFORM.TEXT1.VALUE=仪器名称THISFORM.TEXT3.VALUE=仪器编号THISFORM.TEXT9.VALUE=供应商ENDIFCommand4.clickIF EOF()GO TOPELSETHISFORM.COMBO1.VISIBLE=

12、.F.THISFORM.LABEL10.VISIBLE=.F.SKIPTHISFORM.TEXT3.VALUE=仪器编号THISFORM.TEXT1.VALUE=仪器名称THISFORM.TEXT9.VALUE=供应商ENDIFCommand5.ClickThisform.release(4)记录计算1、按仪器名称分类Form.initthisform.label3.caption=bo1.value+总金额set talk bo1.setfocusindex on alltrim(仪器名称) to yqmc bo1.additem(alltrim(仪器名称)endscanset index

13、tocommand1.clickgo topcount to N for alltrim(仪器名称)=alltrim(bo1.value)sum 单价 to dj for alltrim(仪器名称)=alltrim(bo1.value)thisform.text1.value=Nthisform.text2.value=djcommand2.clickthisform.setall(value,0,textbox)thisform.setall(value,combobox)thisform.label3.caption=label3command3.clickthisform.release2、按购买日期分类Form.initthisform.label3.caption=bo1.value+总金额set talk offindex on alltrim(购买时间) to gz bo1.additem(alltrim(购买时间)endscanset index tocommand1.clickgo topcount to N for alltrim(购买时间)=alltrim(bo1.value)sum 单价 to