会计信息化库存管理存货核算系统

1、会计信息化 库存管理存货核算系统 实验指导书会计学院会计信息化系2005 年 8 月实验一存货子系统业务流程分析 1实验二存货子系统数据处理流程分析 1实验三存货子系统功能分析 2实验四存货子系统数据字典及数据库设计 2实验五建立存货子系统数据库 3实验六存货子系统基本窗口设计 4实验七存货子系统软件编程一一码表处理 44实验八存货子系统软件编程一一单表处理 47实验九存货子系统软件编程一一导入导出处理 53实验一库存管理存货核算系统业务流程分析实验目的：分析库存管理存货核算系统的业务流程，画岀存货子系统业务流程图。实验环境：安装 Windows操作系统、 Word软件、Visio软件等。实验

2、方式：分组进行。上机机时：2机时 实验内容：1、库存管理存货核算系统业务流程描述。为了深入了解存货核算与管理的特点，我们首先分析手工条件下存货核算与管理的业务处理流程，掌握存货出库、入库、期末结账、对账以及管理分析的过程。存货包括原材料、包装物、低值易耗品、自制半成品、产成品等。在手工条件下，当存货到达企业并办理入库手续后，除了仓库保管员要登记存货数量账外，财会部门也要根据各种凭单（如入库单、验收报告等）登记存货明细账，反映存货增加等经济业务；当各个部门领用存货时（如 生产车间领用材料用于生产、销售部门领用产品用于销售），仓库保管员又要登记存货数量账， 财会部门又要根据各种凭单（如入库单等）登

3、记存货明细账，反映存货减少等经济业务；定期编 制记账凭证传递到总账子系统，登记总账。此外，还要及时为管理提供各种存货报告，如存货状 态报告、ABC存货成本分析报告、超储积压存货分析报告等。下面我们对入库流程、岀库流程以 及期末结账和管理分析流程进行分析。（1 ）存货核算与管理一一入库流程分析当采购部门或者供应商将存货送入仓库，生产部门或者物流部门将生产的产成品送入仓库， 入库业务便开始进行了。 仓库保管员依据采购订单和计划入库安排，检查供应商送货及时性，根据事先设定的送 货接收标准，判定是否收货。 如果可以收货， 仓库保管员编制收货凭证， 并将收货凭证和质检抽样存货移入质检部门，进行抽样检验。

4、 如果质检合格，将质检合格存货退返仓库，进行库存移库操作，并编制验收报告。 将验收报告传递给仓库和财务部门。 仓库保管员根据验收报告和收货凭证编制入库单。 登记相应存货的入库数量和结存数量， 即存货三级账， 并将相应的单据传递到财务部门。 财务贲门根据入库单、验收报告编制记账凭证。 存货核算会计审核凭证，登记存货明系账，并将凭证传递到总账子系统。 总账会计定期根据记账凭证登记总账。（2）存货核算与管理出库、期末处理与管理的分析流程 当生产部门提出领料申请、 销售部门提出发运产品时， 出库业务便开始进行； 到会计期末进 行相应的处理，并提交各种管理分析报告。 仓库保管员接到各车间、用料单位提出的

5、领料申请，或者销售部门提出的发运请求，经 审核单据后，编制出库单，并发出存货。 仓库保管员登记相应存货出库数量和结存数据，即存货三级账，并将相应的单据传递到财会部门。 财会部门会计人员根据出库单等单据编制记账凭证，登记存货明细账，并将凭证传递到总账子系统。由于存货种类繁多、数量大、收发业务频繁，存货成本计算比较复杂，为 了满足不同企业对核算的需要，存货可以按计划成本计价，也可按实际成本计价。按实 际成本计价时，存货成本可以按照加权平均、移动加权平均、先进先出、后进先出和个 别计价等方法进行计算。 期末处理。财务部门期末对存货进行实地盘点，编制盘盈盘亏表，经审批后通知仓库、 财会部门修改相应的存

6、货一级、二级以及三级账。由于存货数量账（三级账）、存货明 细账（二级账）、总账（一级账）是由不同的人员编制的，因此，会出现账账不一致的 问题。因此，期末还需要进行三级账的核对工作，很多企业要花费一定的人力物力每月 必须进行对账。 财务部门根据不同的计价方法和成本计算方法， 分别计算存货成本差异、 发出存货成本，并进行结账工作。 存货分析。财务管理人员需要根据入库单、出库单、存货数量账等编制包括超储积压一 览表、ABC成本分析表、仓库存货汇总表等内容的管理分析报告，并提岀存货管理的改 进意见和评价信息。2、通过分析存货子系统的业务流程，利用Visio 软件画岀存货子系统的业务流程图。业务流程图如

7、图 1 所示：尢误的报 损单呈交输入f无误输入 有误送达订单部门送达报损单采购入 库单验 货错误的报 损单销售退货 单采购收货 单送 达送 达返 回提交库存不足及超 额通知T送达 库存盘点 单发 送质管部验货单发送验货合格送盘 占 八、送/出库通知单送达经理审 核i仓库部门 商品调拨单（申请）发送一商品调拨单（审核）J信息使用、呈送报表部门严登记或生成分析发送込*&发送发 送登记或,生成 库存账目凭证V出库单发送送达退货入库送达 单登 记 或 生 成登记或生成图1 存货子系统业务流程图实验二存货子系统数据处理流程分析实验目的：通过存货子系统的业务流程图，进一步分析优化存货子系统的数据处理流程，

8、画岀存货子系统的数据处理流程图。实验环境：安装 Windows操作系统、 Word软件、Visio软件等。实验方式：分组进行。实验内容：1、通过分析存货子系统的业务流程图，利用Visio软件画岀存货子系统的数据处理流程图。根据前面对存货子系统业务流程图的分析，运用系统分析法，可以绘岀存货子系统的数据流程图。依据模块结构设计的原则，通过对存货子系统的数据流程图进行模块划分，存货子系统可以划分为入库管理、岀库管理、存管理、损管理和调拨管理等功能模块。数据流程图如图 2所示:图2存货子系统数据流程图实验三存货子系统功能分析实验目的：通过分析 存货子系统的业务流程与数据处理流程图，进一步分析存货子系统

9、的功能。实验环境：安装 Windows操作系统、 Word软件、Visio软件等。实验方式：分组进行。实验内容：1、通过分析存货子系统的业务流程与数据处理流程图，画岀存货子系统的功能图。根据业务流程图和数据流程图，存货子系统基本可以划分为入库管理、出库 管理、盘点管理、报损管理、调拨管理等五个功能模块。每个功能模块又可以继 续划分为若干个功能模块，直到每个功能模块都能够表示相当独立的功能为止。 我们的存货子系统侧重于核算模块的设计。主要的功能结构有入库管理、出库管 理、盘点管理模块。功能结构图如图 3所示：图3存货子系统功能结构图实验四存货子系统数据字典及数据库设计实验目的：通过分析存货子系统

10、的数据流程图，进一步写岀存货子系统的数据字典。利用PowerDesigner软件，建立存货子系统的PDM。实验环境：安装 Windows操作系统、 Word软件、Visio软件、PowerDesigner软件等。实验方式：分组进行。实验内容：1、通过分析存货子系统的数据流程图，写岀存货子系统的数据字典。数据流的描述数据 流编 号数据流名称简述数据流来 源数据流去 向F1库存产品信 息表库存部门记录存货信息 的表库存模块其他各模 块F2库存盘点表库存部门记录存货期末 盘点情况的表库存模块账务模块F3入库单库存部门开出的入库单库存模块采购模块F4出库单库存部门开出的出库单库存模块销售模块F5销售退

11、货入库单库存部门开出的销售退 货入库单库存模块销售模块F6采购申请单库存不足时库存部门开 出的采购申请单库存模块采购模块F7报损单库存部门开出的报损单库存模块质管模块F8部门用途表各部门领用存货类别表库存模块账务模块F9流水账单存货出入情况的账单库存模块信息使用者F10期初余额表库存期初余额库存模块信息使用者处理逻辑的描述处理 逻辑 编号处理逻辑名 称简述输入的数 据流输出的数 据流P1验收货物对采购入库的货物进行 检验采购单验收单P2出库处理对销售的货物进行出库 检验销售单销售检验 单P3审核调拨单对调拨单申请进行审核调拨单（申请）调拨单（审 核）P4盘点库存对库存中的存货进行盘占八、实物清

12、单库存盘点单P5审核报损单对报损单申请进行审核报损单报损单（审核）数据存储的描述数据存储 编号数据存储名 称简述S1库存账目存货入库、出库、退货、报损后修改当前库 存量外部实体的描述外部 实体 编号外部实体名 称简述输入的数 据流输出的数据 流E1仓库部门对存货保管、增减变化 进行管理的部门验收单、销 售单入库单、出 库单E2采购部门米购存货的部门入库单采购单E3销售部门销售商品的部门出库单销售单E4财务部门进行账务处理的部门库存盘点 单、报损单帐簿、报表2、利用PowerDesigner软件，建立存货子系统的 PDM。实验五 建立存货子系统数据库实验目的：建立存货子系统的SQL Anywhe

13、re数据库。删除所建数据库的 transaction log file文件。建立存货子系统的ODBC。通过存货子系统的PDM，生成 存货子系统数据库中的各张表。实验环境：安装 Win dows 操作系统、 PowerDesig ner 软件、PowerBuilder 软件、SQL Any where 数据库等。实验方式：分组进行。实验内容：1、在PowerBuilder中，建立存货子系统的 SQL Anywhere数据库。2、 在 Sybase 中心 Sybase Central 中，利用 Utilities 工具中的 Change Log File Information 功能, 删除所建数

14、据库的 transaction log file文件。3、在PowerBuilder中，或在 PowerBuilder中，建立存货子系统的 ODBC。4、在PowerDesigner AppModeler软件，连接存货子系统数据库。5、通过存货子系统的 PDM，利用PowerDesigner AppModeler软件，生成存货子系统数 据库中的各张表。数据库设计1.码表设计仓库表仓库表c ch ckb字段名类型长度是否空含义ckb codechar NOT NULL仓库编号ckb namechar(20)NULL仓库名称职员表职员表c ch zyb字段名类型长度是否空含义zyb codecha

15、r NOT NULL职员编号zyb namechar(20)NULL职员名称zyb szbmchar(20)NULL所在部门部门表部门表c ch bmb字段名类型长度是否空含义bmb codechar NOT NULL部门编号bmb namechar(20)NULL部门名称四货位表货位表c ch hwb字段名类型长度是否空含义hwb codechar NOT NULL货位编号hwb namechar(20)NULL货位名称hwb szckchar(20)NULL所在仓库五业务性质表业务性质表c ch ywxzb字段名类型长度是否空含义ywxzb codechar NOT NULL业务性质编码y

16、wxzb namechar(40)NULL业务性质名称2.基本表设计库存产品信息表库存产品信息表T_kcxx字段名类型长度是否空含义*chbmChar(10)NOT NULL存货编码chmcchar(50)NULL存货名称ggxhChar (5)NULL规格型号jldwChar(10)NULL计量单位chlbChar(10)NULL存货类别ChsxChar(20)NULL存货属性JhjgChar(10)NULL计划价格ckjgchar(10)NULL参考价格hwchar(10)NULL货位shchar(10)NULL审核标志qyrqChar(30)NULL启用日期bzchar(100)NULL

17、备注存货结存表存货结存表T_chjcb字段名类型长度是否空含义*chbmChar(10)NOT NULL存货编码qcsldecimal(10,2)NULL本月期初数量qcdjdecimal(10,2)NULL本月期初单价:qcjedecimal(10,2)NULL本月期初金额=本月 期初单价*本月期初 单价ssldecimal(10,2)NULL本月收数量sjedecimal(10,2)NULL本月收金额fsldecimal(10,2)NULL本月发数量fjedecimal(10,2)NULL本月发金额jcsldecimal(10,2)NULL本月结存数量jcdjdecimal(10,2)NU

18、LL本月结存单价jcjedecimal(10,2)NULL本月结存金额三入库单入库单表T_rkd字段名类型长度是否空含义*rkdhChar(10)NOT NULL*入库单编号（自动生成）rkrqChar(15)NULL入库单日期ywbhChar(15)NULL业务编号ywyxmChar(10)NULL业务员姓名chbmChar(10)NULL存货编码sldecimal(10,2)NULL数量djdecimal(10,2)NULL单价jedecimal(10,2)NULL金额cdChar(10)NULL产地gysChar(10)NULL供应商ckChar(10)NULL仓库hwChar(10)N

19、ULL货位shbzChar(2)NULL审核标志clbzChar(2)NULL处理标志shbzChar(2)NULL收货标志zdrChar(10)NULL制单人shrChar(10)NULL审核人四出库单出库单表T_ckd字段名类型长度是否空含义*ckdhChar(10)NOT NULL*出库单编号（自动生成）ckrqChar(15)NULL出库单日期ywbhChar(15)NULL业务编号ywyxmChar(10)NULL业务员姓名chbmChar(10)NULL存货编码sldecimal(10,2)NULL数量djdecimal(10,2)NULL单价jedecimal(10,2)NULL

20、金额ytChar(10)NULL用途bmChar(10)NULL部门ckChar(10)NULL仓库hwChar(10)NULL货位shbzChar(2)NULL审核标志clbzChar(2)NULL处理标志shbzChar(2)NULL收货标志zdrChar(10)NULL制单人shrChar(10)NULL审核人bzchar(100)NULL备注五销售退货入库单销售退货入库单T_xsthrkd字段名类型长度是否空含义*ckthdhChar(10)NOT NULL*销售退货单编号（自 动生成）ckthdrqChar(15)NULL销售退货单日期ywbhChar(15)NULL业务编号ywyx

21、mChar(10)NULL业务员姓名chbmChar(10)NOT NULL存货编码sldecimal(10,2)NULL数量djdecimal(10,2)NULL单价jedecimal(10,2)NULL金额bmChar(10)NULL部门ckChar(10)NULL仓库hwChar(10)NULL货位shbzChar(2)NULL审核标志clbzChar(2)NULL处理标志shbzChar(2)NULL收货标志zdrChar(10)NULL制单人shrChar(10)NULL审核人thyyChar(100)NULL退货原因六采购申请单米购申请单ch_cgsqd字段名类型长度是否空含义*s

22、qdbhChar(10)NOT NULL*申请单编号（自动生成）rqChar(15)NULL日期chbmChar(10)NULL存货编码chmcChar(20)NULL存货名称ggxhChar(10)NULL规格型号jldwChar(4)NULL计量单位chlbChar(10)NULL存货类别chsxChar(10)NULL存货属性xqsldecimal(10,2)NULL需求数量chrChar(10)NULL制单人shrChar(10)NULL审核人七报损单入库退货单T_rkth字段名类型长度是否空含义*bsbhChar(10)NOT NULL报损单编号 （自动生成）bsrqChar(15)

23、NULL报损单日期ywyxmChar(10)NULL业务员姓名chbmChar(10)NULL存货编码sldecimal(10,2)NULL数量djdecimal(10,2)NULL单价jedecimal(10,2)NULL金额cdChar(10)NULL产地gysChar(10)NULL供应商ckChar(10)NULL仓库hwChar(10)NULL货位:shbzChar(2)NULL审核标志clbzChar(2)NULL处理标志shbzChar(2)NULL收货标志zdrChar(10)NULL制单人shrChar(10)NULL审核人bsyyChar(100)| NULL| 报损原因八

24、部门用途表部门用途表T_bmytb字段名类型长度是否空含义*bmbmChar(10)NOT NULL*部门编码bmmcChar(20)NULL部门名称ytdmChar(10)NULL用途代码ytmcChar(10)NULL用途名称xmfyChar(10)NULL项目费用九流水账单流水账单ch_lszd字段名类型长度是否空含义*xhchar (3)NOT NULL序号sjChar(15)NULL时间djhchar (2)NULL单据号ywxzchar (4)NULL业务性质chbmchar(10)NULL存货编码chmcchar(20)NULL存货名称sldecimal(10,2)NULL数量d

25、jdecimal(10,2)NULL单价jedecimal(10,2)NULL金额十期初余额表期初余额表T_qcyeb字段名类型长度是否空含义chbmChar(10)NULL存货编码chmmChar(50)not NULL存货名称sldecimal(10,2)NULL数量djdecimal(10,2)NULL单价jedecimal(10,2)NULL金额cdchar(50)null产地gyschar(50)null供应商ckChar(10)NULL仓库hwChar(10)NULL货位bzchar(100)NULL备注1一存货盘点表存货盘点表T chpdb字段名类型长度是否空含义pddbhCha

26、r(10)not NULL盘点单编号pddrqChar(15)NULL盘点单日期ywyxmChar(10)NULL业务员姓名bmChar(10)NULL部门chbmChar(10)not NULL存货编码chmcchar(20)null存货名称hwchar(10)null货位chdjdecimal(10,2)NULL存货单价zcsldecimal(10,2)NULL账存数量pdsldecimal(10,2)NULL盘点数量yksldecimal(10,2)NULL盈亏数量zdrchar(10)NULL制单人shrchar(10)NULL审核人实验六存货子系统基本窗口设计实验目的：存货子系统窗口

27、设计。存货子系统全局变量设计。存货子系统全局函数设计。实验环境：安装 Windows操作系统、PowerBuilder软件、SQL Anywhere数据库、教师提供的软件原型平台 等。实验方式：分组进行。实验内容：1、存货子系统全局变量设计。全局变量定义stri ng g_oper_code,g_oper_ name,g_sheet_code,g_pri ntstri ng g_date,g_dept,g_dept_day,g_fu nc_codestring g_dept_month_date=2000-01-01string g_orig,g_warehousestri ng g_sp_

28、in fo,g_me nu_n ame boolea n gb_db_c onn ected stri ng g_price_power decimal g_dept_ in terval stri ng g_color=80,g_color_key=80 stri ng g_IPAddress,g_Mach in eName str ing g log rec=Oameenamei=(r_col)coltypei=(enamei + .ColType)col_widthi=(enamei + .width)col_heighti=(enamei + .height) col_yi=Doubl

29、e(enamei + .y) col_height_ti=(enamei + ) col_y_ti=Double(enamei + ) if (enamei,i_dwc)=1 then(sqlca)(%)CHOOSE CASE enameiCASE supp_attr_code i_dwc_supp_attr_code=i_dwc CASE ELSEEND CHOOSEend ifNEXT(sqlca)(sqlca)(sqlca)(dw_table)(dw_print)(clicked!)(clicked!)=true=i title + 输入dw_table: butt on clicked

30、!stri ngr_object,r_type, r_code,r_colr_object = Str ingCHOOSE CASE i_typeCASE c_operatorCHOOSE CASE r_objectCASE cb fu nc codebl)=this=i_row=r colum nn ameolTyper_coltype = (r_sql)IF r coltype =! THENMessageBox(错误,数据类型错误！)r eturnEND IFCHOOSE CASE r_coltype CASE numbeF,lo ng ,i nt r_decimal=(r_cou nt

31、,i_col_copyr_col_row) (i_row,i_col_copyr_col_row,r_decimal) CASE date_-一一一CASE datetimeCASE ELSEIF Left(r_coltype,4) = char THENr_str in g=(r_cou nt,i_col_copyr_col_row) (i_row,i_col_copyr_col_row,r_stri ng) ELSEILeftfr coltyDe,7) = decimal THENa c N(0 THEN return()(row)(0,FALSE)(i_row,TRUE)=true=tr

32、ue=true=truegf_dw_cou nt(this,sle_cou nt) r_rowcou nt=()if i_row=1 and r_rowcou nt=1 the n =false =false=falseelseif i_row=r_rowcount then=false=falseelseif i_row=1 and r_rowcou nt1 the n=false=falseend ifdw_table: double clicked!stri ng str_colum n, str_formatstr_colu mn二bf),*.dbf,+&text files(*.tx

33、t),*.txt,+& excel files(*.excel),*.xls,+& sql files(*.sql),*.sql,)if r_value1 then messagebox(提示,打开文件保存对话窗口失败!)return 0end ifr_filetype=right(r_pathfilename,3)r_pathlen=len(r_pathfilename) - len(r_filename) - 1 r_path=left(r_pathfilename,r_pathlen),49152)ameenamei=if not(enamei=save_import_code or e

34、namei=chinese_name ) then r_modi=r_modi +enamei + .width=0end ifNEXTi save import=01 thendw_ma in: clicked!if not row0 the n retur n(row)(0, FALSE)(row, TRUE) i_save_import=(row,save_import_code) if i save import=01 the ndw_ma in: ue_1!(自定义事件)stri ng r_dw_ namer_dw_ name=(i_row,table_dw_ name) i_sav

35、emport=(i_row,save_import_code) i_type=(i_row,table_ name)cb_retrieve: clicked!cb_in qu_select: clicked!long r_rowcou nt,r_retr_ret=gf_query i_orig_sql, r_ret=0 the n returnend ifr_rowcou nt0 the n=trueelse=falsemessagebox（提示,无记录 r）end if导出cb_copy: clicked!long r_rowcount,r_row,r_pos_datestring r_in

36、terval,r_mean_code,r_path,r_filenamestring r_date2,r_tablenameint net,r_return,r_rt stringr_dept_code,i_orig_sql_temp,r_drive,r_date string r_file_type,r_file_type_name r_rowcou nt=（）-_if not r_rowcount0 thenmessagebox（提示该窗口无数据r）returnend ifNet = MessageBox（提示, 是否真的要导出？，Exclamation!, YESNO!, 1） if n

37、et=2 then returnr_dept_code=i_dept_coder_row= not r_row0 then messagebox（提示,请选择需要导岀的表!） returnend if i_table_name=table_name）+r_file_type_name f_copy_gd（r_path,r_filename,r_row,r_date2,r_tablename） case 02 +r_file_type_namef_copy_gd（r_path,r_filename,r_row,r_date2,r_tablename）case else messagebox（提示

38、,该表无导出方式，无法导出!）returnend choose=false导入cb_in put: clicked!long r_row,r_pathlenint r_rtnstring r_pathfilename,r_filename,r_filetype,r_path,r_tablenamestring r_filename_code,r_interval,r_date2string r_mean_code,r_drive,r_date,r_dept_codestring r_file_type,r_file_type_namer_row= not r_row0 then message

39、box(提示,请选择需要导入的表！) returnend if+r_file_type_name- case 02bf),*.dbf, + &Text Files (*.TXT),*.TXT, + Excel Files (*.xls),*.xls, +&SQL Files (*.sql),*.sql,) case 03 +r_file_type_name case elsemessagebox(提示,该表无导入方式，无法导入！)returnend chooseif r_rtn1 and r_rtn0 then messagebox(提示,操作失败!) returnend ifif r_rtn

40、=0 thenreturnend ifr_rtn=(r_pathfilename)if r_rtn0 thenflag_code,01)+ r_filetyper_filename=mid(r_filename,1,pos(r_filename,r_filetype) - 1 ) file_name,r_filename) file_type_code,r_filename_code)cb_test: clicked!cb_repeat_data: clicked!long r_countif =&F显示重复数据then=&F显示不重复数据r_count= IF r_count0 THENme

41、ssagebox(提示共+string(r_count)+条重复数据行！)ELSEmessagebox(提示,无重复数据行!)END IFELSE=&F显示重复数据r_count= IF r_count0 THENmessagebox(提示共+string(r_count)+条新数据行 r)ELSEmessagebox(提示,无新的数据行!)END IFEND IF删除cb_del: clicked!INTEGER NETNet = MessageBox(提示,是否真的要删除所选中的行？，Exclamation!,YESNO!, 1)IF Net = 2 THEN return=false(i

42、_row)gf dw cou nt复位cb_reset: clicked!()()II=false=false=&F显示重复数据退岀cb_exit: clicked!(clicked!)关闭 cb_close: clicked!close(pare nt)保存cb_save: clicked!int r_rtnlong r_rowcou nt,r_return,NET,r_rowcou nt_repeatboolea n r_retur_rowcou nt=()r_rowcou nt_repeat=()if r_rowcou nt1 and r_rowcou nt_repeat0 THEN =

43、truedw_table: itemerror!扩展父脚本：Exte nd An cestor Scriptreturn 1删除cb_del: clicked!INTEGER NETlong R_ROW,r_countNet = MessageBox(提示,是否真的要删除所选中的行？，Exclamation!,YESNO!,1)IF Net = 2 THEN return=false(i_row)gf dw count(dw table,sle count)全部删除cb_del_all: clicked!INTEGER NETlong R_ROW,r_countNet = MessageBox

44、(提示, 是否真的要全部删除 ？，Exclamation!, YESNO!, 1) IF Net = 2 THEN return=falser_count=()FOR R_ROW=1 TO r_count(0) -gf_dw_count(dw_table,sle_count)NEXTcb_save: clicked!integer rtn, NETNet = MessageBox(提示, 是否真的要保存？，Exclamation!, YESNO!, 1) IF Net 1 THEN return()()if f_check_null(i_type,dw_table,)=1 then messa

45、gebox(提示,修改后再保存!) returnend ifIF ( ) 0 OR ( ) 0 THENrtn =()IF rtn = 1 THENCOMMIT USING SQLCA;messagebox(提示保存成功!)(Clicked!)ELSEROLLBACK USING SQLCA;messagebox(提示保存失败!)END IFEND IFcb_in crease_copy： clicked!string r_string,r_sql,r_coltypein teger r_col_rowlong r_cou nt,r_cou nt1,r_select_cou ntdecimal

46、 r_decimalr_cou nt=()(0)r_cou nt1=()(r_cou nt1)i_row=()(i_row)r_select_cou nt=(O)if r_cou nt0 the nif not r_select_cou nt0 the n r_select_cou nt=r_cou nt end ifFOR r_col_row=1 TO i_col r_coltype = coltyper_col_row IF r_coltype = ! THENMbssageBox(错误,数据类型错误r) r eturnEND IFCHOOSE CASE r_coltype CASE number,lo ng ,i nt r_decimal=(r_select_cou nt,e nam