组织机构设计

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

2、单价12666010000390001265855013000150288550650数量44102828281056110总计506440400003900003361842241540001300008400028855065000预算合计计：18845550元四、采购购调查（见入库库单.xxls）五、采购购方式：招标采采购六、（11）入库库账务处处理-填写入入库单 -修改改总账追加流水水账实现现入库代代码：Formm1.iinittthissforrm.ssetaall(vaaluee, ,teextbbox)thissforrm.ttextt4.vvaluue=00thissforrm

3、.ttextt5.vvaluue=00commmandd1.cclicckseleect 入库单单1appeend blaankrepll 仪器器名称 witth tthissforrm.ttextt1.vvaluuerepll 使用用单位号号 wiith thiisfoorm.texxt2.valluerepll 仪器器编号 witth tthissforrm.ttextt3.vvaluuerepll 单价价 wiith thiisfoorm.texxt4.valluerepll 购置置时间 witth tthissforrm.ttextt6.vvaluuerepll 型号号 wiith t

4、hiisfoorm.texxt7.valluerepll 入库库时间 wiith thiisfoorm.texxt8.valluerepll 供应应商 wwithh thhisfformm.teext99.vaalueemesssageeboxx(入入库流水水记录成成功)seleect 总账11locaate forr alllt(仪器编编号)=alllt(tthissforrm.ttextt3.vvaluue)if ffounnd()repll 数量量 wiith 数量+thiisfoorm.texxt5.valluemesssageeboxx(有有此设备备,新增增数量)elsee appe

5、end blaankrepll 仪器器名称 witth tthissforrm.ttextt1.vvaluuerepll 使用用单位号号 wiith thiisfoorm.texxt2.valluerepll 仪器器编号 witth tthissforrm.ttextt3.vvaluuerepll 单价价 wiith thiisfoorm.texxt4.valluerepll 购置置时间 witth tthissforrm.ttextt6.vvaluuerepll 型号号 wiith thiisfoorm.texxt7.valluerepll 入库库时间 wiith thiisfoorm.te

6、xxt8.valluerepll 供应应商 wwithh thhisfformm.teext99.vaalueeendiifcommmandd2.cclicckseleect 总账11deleepackkseleect 入库单单1deleepackkcommmandd3.cclicckthissforrm.ssetaall(vaaluee, ,teextbbox)thissforrm.ttextt4.vvaluue=00thissforrm.ttextt5.vvaluue=00commmandd4.cclicckthissforrm.rreleeasee (2)领用的的账务处处理1、填写写领用

7、单单，修改改总账2、删除除原领用用人，新新增总账账记录首先，总总账1.dbff与领用用单建立立临时性性关联Formm.innitthissforrm.ssetaall(vaaluee,texxtboox)thissforrm.ttextt4.vvaluue=00thissforrm.ttextt5.vvaluue=00commmandd1.cclicckseleect 领用单单1copyy too lyyuse lydeleete forr 领用用人=aallttrimm(thhisfformm.teext110.vvaluue)packklisttcommmandd2.cclicckset

8、delletee onnseleect 总账11appeend blaankreplla 领领用人 witth tthissforrm.ttextt10.valluereplla 领领用日期期 wiith thiisfoorm.texxt111.vaalueereplla 新新存放地地点 wwithh thhisfformm.teext112.vvaluuerepll 仪器器名称 witth tthissforrm.ttextt1.vvaluuerepll 使用用单位号号 wiith thiisfoorm.texxt2.valluerepll 仪器器编号 witth tthissforrm.t

9、textt3.vvaluuerepll 单价价 wiith thiisfoorm.texxt4.valluerepll 购置置时间 witth tthissforrm.ttextt6.vvaluuerepll 型号号 wiith thiisfoorm.texxt7.valluerepll 入库库时间 wiith thiisfoorm.texxt8.valluerepll 供应应商 wwithh thhisfformm.teext99.vaalueecommmandd3.cclicckseleect 领用单单1appeend blaankrepll 仪器器名称 witth thiisfoorm.

10、texxt1.valluerepll 仪器器编号 witth tthissforrm.ttextt3.vvaluuerepll 单价价 wiith thiisfoorm.texxt4.valluerepll 型号号 wiith thiisfoorm.texxt7.valluerepll 供应应商 wwithh thhisfformm.teext99.vaalueereplla 领领用人 witth tthissforrm.ttextt10.valluereplla 领领用日期期 wiith thiisfoorm.texxt111.vaalueereplla 新新存放地地点 wwithh thh

11、isfformm.teext112.vvaluuecommmandd4.cclicckthissforrm.rreleeasee(3)总总账数据据维护Formm.innitthiss.texxt3.settfoccusCommmandd1.CClicckTHISSFORRM.SSETAALL(VAALUEE,TEXXTBOOX)THISSFORRM.TTEXTT4.VVALUUE=00THISSFORRM.TTEXTT5.VVALUUE=00THISSFORRM.CCOMBBO1.DISSPLAAYVAALUEE=仪器器编号THISSFORRM.RREFRRESHHTHISSFORRM.CCO

12、MBBO1.VISSIBLLE=.T.THISSFORRM.LLABEEL1.VISSIBLLE=.T.THISSFORRM.TTEXTT1.VVALUUE=仪仪器名称称THISSFORRM.TTEXTT2.VVALUUE=使使用单位位号THISSFORRM.TTEXTT3.VVALUUE=仪仪器编号号THISSFORRM.TTEXTT4.VVALUUE=单单价THISSFORRM.TTEXTT5.VVALUUE=数数量THISSFORRM.TTEXTT6.VVALUUE=购购置时间间THISSFORRM.TTEXTT7.VVALUUE=型型号THISSFORRM.TTEXTT8.VVALUU

13、E=入入库时间间THISSFORRM.TTEXTT9. VALLUE=供应商商THISSFORRM.TTEXTT10.VALLUE=领用人人THISSFORRM.TTEXTT11.VALLUE=领用日日期THISSFORRM.TTEXTT12.VALLUE=新存放放地点Commmandd2.cclicckDELEEPACKKMESSSAGEEBOXX(确确认当前前记录删删除,此此操作将将无法恢恢复)Commmandd3.cclicckIF BOFF()GO BBOTTTELSEESKIPP -11THISSFORRM.CCOMBBO1.VISSIBLLE=.F.THISSFORRM.LLABE

14、EL1.VISSIBLLE=.F.THISSFORRM.TTEXTT1.VVALUUE=仪仪器名称称THISSFORRM.TTEXTT3.VVALUUE=仪仪器编号号THISSFORRM.TTEXTT9.VVALUUE=供供应商ENDIIFCommmandd4.cclicckIF EOFF()GO TTOPELSEETHISSFORRM.CCOMBBO1.VISSIBLLE=.F.THISSFORRM.LLABEEL100.VIISIBBLE=.F.SKIPPTHISSFORRM.TTEXTT3.VVALUUE=仪仪器编号号THISSFORRM.TTEXTT1.VVALUUE=仪仪器名称称TH

15、ISSFORRM.TTEXTT9.VVALUUE=供供应商ENDIIFCommmandd5.CClicckThissforrm.rreleeasee(4)统统计计算算1、按仪仪器名称称分类Formm.innitthissforrm.llabeel3.capptioon=tthissforrm.ccombbo1.vallue+总金金额set tallk ooffthissforrm.ccombbo1.settfoccusindeex oon aallttrimm(仪器器名称) too yqqmc uniiqueescannthiss.coomboo1.aaddiitemm(allltrrim(仪

16、器名名称)endsscannset inddex tocommmandd1.cclicckgo ttopcounnt tto NN foor aallttrimm(仪器器名称)=allltrrim(mbo11.vaaluee)sum 单价 to dj forr allltrrim(仪器名名称)=allltriim(tthissforrm.ccombbo1.vallue)thissforrm.ttextt1.vvaluue=NNthissforrm.ttextt2.vvaluue=ddjcommmandd2.cclicckthissforrm.ssetaall(vaaluee,00,ttextt

17、boxx)thissforrm.ssetaall(vaaluee,commbobbox)thissforrm.llabeel3.capptioon=labbel33commmandd3.cclicckthissforrm.rreleeasee2、按购购置日期期分类Formm.innitthissforrm.llabeel3.capptioon=tthissforrm.ccombbo1.vallue+总金金额set tallk ooffindeex oon aallttrimm(购置置时间) too gzz unniquuescannthiss.coomboo1.aaddiitemm(allltrrim(购置时时间)endsscannset inddex tocommmandd1.cclicckgo ttopcounnt tto NN foor aallttrimm(购置置时间)=allltrrim(mbo11.vaaluee)sum 单价 to dj forr allltrri