《组织机构设计.doc》由会员分享，可在线阅读，更多相关《组织机构设计.doc（9页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、一、 组织机构设计二、配备： 部门人数沙发茶几书架文件架办公桌办公椅保险柜椅子会议桌椅资料室书柜领用人院长111111112cao副院长1102111111112cao副院长1103111111112cao党总支书记111111112liao团总支4144418liao学办14144418duan学办24144418duan学办34144418duan学办44144418duan教务处144418zhang会议室1套wang资料室10shao总量44102828281056110三、采购预算单位：元沙发茶几书架文件架办公桌办公椅保险柜椅子会议桌椅资料室书柜单价12660100039001265
2、8550130015028850650数量44102828281056110总计506404000390003361842415400130008400288506500预算合计：184550元四、采购调查见入库单.xls五、采购方式：招标采购六、1入库账务处理-填写入库单 -修改总账追加流水账实现入库代码：Form1.initthisform.setall（value, ,textbox）thisform.text4.value=0thisform.text5.value=0command1.clickselect 入库单1append blankmessagebox（入库流水记录成功）se
3、lect 总账1locate for allt（仪器编号）=allt（thisform.text3.value）if found（）messagebox（有此设备,新增数量）else append blankendifcommand2.clickselect 总账1delepackselect 入库单1delepackcommand3.clickthisform.setall（value, ,textbox）thisform.text4.value=0thisform.text5.value=0command4.clickthisform.release （2）领用的账务处理1、填写领用单，修
4、改总账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 blankcommand3.clickselect 领用单1append bla
5、nkcommand4.clickthisform.release（3）总账数据维护Form.initthis.text3.setfocusCommand1.ClickTHISFORM.SETALL（VALUE, ,TEXTBOX）THISFORM.TEXT4.VALUE=0THISFORM.TEXT5.VALUE=0THISFORM BO1.DISPLAYVALUE=仪器编号THISFORM.REFRESHTHISFORM BO1.VISIBLE=.T.THISFORM.LABEL1.VISIBLE=.T.THISFORM.TEXT1.VALUE=仪器名称THISFORM.TEXT2.VALU
6、E=使用单位号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（确认当前记录删除,此操作将
7、无法恢复）Command3.clickIF BOF（）GO BOTTELSESKIP -1THISFORM BO1.VISIBLE=.F.THISFORM.LABEL1.VISIBLE=.F.THISFORM.TEXT1.VALUE=仪器名称THISFORM.TEXT3.VALUE=仪器编号THISFORM.TEXT9.VALUE=供给商ENDIFCommand4.clickIF EOF（）GO TOPELSETHISFORM BO1.VISIBLE=.F.THISFORM.LABEL10.VISIBLE=.F.SKIPTHISFORM.TEXT3.VALUE=仪器编号THISFORM.TEX
8、T1.VALUE=仪器名称THISFORM.TEXT9.VALUE=供给商ENDIFCommand5.ClickThisform.release（4）统计计算1、按仪器名称分类Form.initthisform.label3.caption=thisform bo1.value+总金额set talk offindex on alltrim（仪器名称） to yqmc uniquescanthis bo1.additem（alltrim（仪器名称）endscanset index tocommand1.clickgo topcount to N for alltrim（仪器名称）=alltri
9、m（thisform bo1.value）sum 单价 to dj for alltrim（仪器名称）=alltrim（thisform 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.capti
10、on=thisform bo1.value+总金额set talk offindex on alltrim（购置时间） to gz uniquescanthis bo1.additem（alltrim（购置时间）endscanset index tocommand1.clickgo topcount to N for alltrim（购置时间）=alltrim（thisform bo1.value）sum 单价 to dj for alltrim（购置时间）=alltrim（thisform bo1.value）thisform.text1.value=Nthisform.text2.value=djcommand2.clickthisform.refreshthisform.text1.value=thisform.text2.value=thisform.label3.caption=label3command3.clickThisform.release