组织机构设计.doc

一、 组织机构设计二、配备： 部门人数沙发茶几书架文件架办公桌办公椅保险柜椅子会议桌椅资料室书柜领用人院长111111112cao副院长1102111111112cao副院长1103111111112cao党总支书记111111112liao团总支4144418liao学办14144418duan学办24144418duan学办34144418duan学办44144418duan教务处144418zhang会议室1套wang资料室10shao总量44102828281056110三、采购预算（单位：元）沙发茶几书架文件架办公桌办公椅保险柜椅子会议桌椅资料室书柜单价126601000390012658550130015028850650数量44102828281056110总计506404000390003361842415400130008400288506500预算合计：184550元四、采购调查（见入库单.xls）五、采购方式：招标采购六、（1）入库账务处理-填写入库单 -修改总账追加流水账实现入库代码：Form1.initthisform.setall(value, ,textbox)thisform.text4.value=0thisform.text5.value=0command1.clickselect 入库单1append blankrepl 仪器名称 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.text8.valuerepl 供应商 with thisform.text9.valuemessagebox(入库流水记录成功)select 总账1locate for allt(仪器编号)=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 型号 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、删除原领用人，新增总账记录首先，总账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 领用日期 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.text8.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 领用日期 with 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.THISFORM.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=领用日期THISFORM.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=.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 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 dj for