精品文档---下载后可任意编辑一、组织机构设计二、配备： 部门人数沙发茶几书架文件架办公桌办公椅保险柜椅子会议桌椅资料室书柜领 用人院长111111112cao副 院长1102111111112cao副 院长1103111111112cao党 总支 书记111111112liao团 总支4144418liao精品文档---下载后可任意编辑学 办14144418duan学 办24144418duan学 办34144418duan学 办44144418duan教 务处144418zhang会 议室1 套wang资 料室10shao总量44102828281056110三、采购预算〔单位：元〕沙发茶几书架文件架办公桌办公椅保险柜椅子会议桌椅资料室书柜单价126601000390012658550130015028850650数量44102828281056110总计506404000390003361842415400130008400288506500预算合计：184550 元四、采购调查〔见入库单.xls〕五、采购方式：招标采购六、〔1〕入库账务处理--------填写入库单 ---------修改总账精品文档---下载后可任意编辑追加流水账实现入库代码：Fthisform.setall("value","" ,"textbox")thisform.text4.value=0thisform.text5.value=0select 入库单 1append blankmessagebox('入库流水记录成功')select 总账 1locate for allt(仪器编号)=allt(thisform.text3.value)if found()messagebox('有此设备,新增数量')else 精品文档---下载后可任意编辑append blankendifselect 总账 1delepackselect 入库单 1delepackthisform.setall("value","" ,"textbox")thisform.text4.value=0thisform.text5.value=0 (2)领用的账务处理1、填写领用单，修改总账2、删除原领用人，新增总账记录精品文档---下载后可任意编辑Fthisform.setall("value","","textbox")thisform.text4.value=0thisform.text5.value=0select 领用单 1copy to lyuse lydelete for 领用人=alltrim(thisform.text10.value)packlistset delete onselect 总账 1append blank精品文档---下载后可任意编辑select 领用单 1append blank(3)总账数据维护Fthis.Command1.ClickTHISFORM.SETALL("VALUE",' ',"TEXTBOX")THISFORM.TEXT4.VALUE=0THISFORM.TEXT5.VALUE=0THISFORM BO1.DISPLAYVALUE=仪器编号精品文档---下载后可任意编辑THISFORM BO1.VISIBLE=.T.THISFORM.LABEL1.VISIBLE=.T.THISFORM.TEXT1.VALUE=仪器名称THISFORM.TEXT2.VALUE=使用单位号THISFORM.TEXT3.VALUE=仪器编号THISFORM.TEXT4.VALUE=单价THISFORM.TEXT5.VALUE=数量THISFORM.TEXT6.VALUE=购置时间THISFO...
