精品会计信息化库存管理存货核算系统实验指导书.doc

精品会计信息化库存管理存货核算系统实验指导书 实验环境?安装Windows操作系统、Word软件、Visio软件等。 实验方式?分组进行。 上机机时?2机时实验内容? 1、库存管理存货核算系统业务流程描述。 为了深入了解存货核算与管理的特点?我们首先分析手工条件下存货核算与管理的业务处理流程?掌握存货出库、入库、期末结账、对账以及管理分析的过程。 存货包括原材料、包装物、低值易耗品、自制半成品、产成品等。 在手工条件下?当存货到达企业并办理入库手续后?除了仓库保管员要登记存货数量账外?财会部门也要根据各种凭单?如入库单、验收报告等?登记存货明细账?反映存货增加等经济业务?当各个部门领用存货时?如生产车间领用材料用于生产、销售部门领用产品用于销售?仓库保管员又要登记存货数量账?财会部门又要根据各种凭单?如入库单等?登记存货明细账?反映存货减少等经济业务?定期编制记账凭证传递到总账子系统?登记总账。 此外?还要及时为管理提供各种存货报告?如存货状态报告、ABC存货成本分析报告、超储积压存货分析报告等。 下面我们对入库流程、出库流程以及期末结账和管理分析流程进行分析。 ?1?存货核算与管理入库流程分析当采购部门或者供应商将存货送入仓库?生产部门或者物流部门将生产的产成品送入仓库?入库业务便开始进行了。 仓库保管员依据采购订单和计划入库安排?检查供应商送货及时性?根据事先设定的送货接收标准?判定是否收货。 如果可以收货?仓库保管员编制收货凭证?并将收货凭证和质检抽样存货移入质检部门?进行抽样检验。 如果质检合格?将质检合格存货退返仓库?进行库存移库操作?并编制验收报告。 将验收报告传递给仓库和财务部门。 仓库保管员根据验收报告和收货凭证编制入库单。 登记相应存货的入库数量和结存数量?即存货三级账?并将相应的单据传递到财务部门。 财务贲门根据入库单、验收报告编制记账凭证。 存货核算会计审核凭证?登记存货明系账?并将凭证传递到总账子系统。 总账会计定期根据记账凭证登记总账。 ?2?存货核算与管理出库、期末处理与管理的分析流程当生产部门提出领料申请、销售部门提出发运产品时?出库业务便开始进行?到会计期末进行相应的处理?并提交各种管理分析报告。 仓库保管员接到各车间、用料单位提出的领料申请?或者销售部门提出的发运请求?经审核单据后?编制出库单?并发出存货。 仓库保管员登记相应存货出库数量和结存数据?即存货三级账?并将相应的单据传递到财会部门。 财会部门会计人员根据出库单等单据编制记账凭证?登记存货明细账?并将凭证传递到总账子系统。 由于存货种类繁多、数量大、收发业务频繁?存货成本计算比较复杂?为了满足不同企业对核算的需要?存货可以按计划成本计价?也可按实际成本计价。 按实际成本计价时?存货成本可以按照加权平均、移动加权平均、先进先出、后进先出和个别计价等方法进行计算。 期末处理。 财务部门期末对存货进行实地盘点?编制盘盈盘亏表?经审批后通知仓库、财会部门修改相应的存货一级、二级以及三级账。 由于存货数量账?三级账?、存货明细账?二级账?、总账?一级账?是由不同的人员编制的?因此?会出现账账不一致的问题。 因此?期末还需要进行三级账的核对工作?很多企业要花费一定的人力物力每月必须进行对账。 财务部门根据不同的计价方法和成本计算方法?分别计算存货成本差异、发出存货成本?并进行结账工作。 存货分析。 财务管理人员需要根据入库单、出库单、存货数量账等编制包括超储积压一览表、ABC成本分析表、仓库存货汇总表等内容的管理分析报告?并提出存货管理的改进意见和评价信息。 2、通过分析存货子系统的业务流程?利用Visio软件画出存货子系统的业务流程图。 业务流程图如图1所示?采购部门销售部门经理财务部门仓库部门库存账目凭证验货单商品调拨单?审核?入库单出库单商品调拨单?申请?发送销售退货单库存盘点单登记或生成登记或生成收到退货验货验货合格盘点送达发送登记或生成送达审核递交发送送达库存不足及超额通知发送送达采购入库单送达发送登记或生成分析报表供应商采购订单采购收货单发送送达发送送达送达提交报损单审核错误的报损单输入有误无误的报损单输入无误呈交返回出库通知单退货入库单送达发送发送送达信息使用部门呈送质管部门送达图1存货子系统业务流程图实验二存货子系统数据处理流程分析实验目的?通过存货子系统的业务流程图?进一步分析优化存货子系统的数据处理流程?画出存货子系统的数据处理流程图。 实验环境?安装Windows操作系统、Word软件、Visio软件等。 实验方式?分组进行。 实验内容? 1、通过分析存货子系统的业务流程图?利用Visio软件画出存货子系统的数据处理流程图。 根据前面对存货子系统业务流程图的分析?运用系统分析法?可以绘出存货子系统的数据流程图。 依据模块结构设计的原则?通过对存货子系统的数据流程图进行模块划分?存货子系统可以划分为入库管理、出库管理、存管理、损管理和调拨管理等功能模块。 数据流程图如图2所示?E3销售部门E1仓库部门P2出库处理S1库存帐目验收单P4盘点库存P3审核调拨单调拨单?申请?调拨单?审核?库存盘点单调拨单?审核?E4财务部门库存盘点单出库单、入库单出库单、退货入库单E2采购部门P1验收货物采购单入库单实物清单P5审核报损单报损单报损单?审核?报损单?审核?销售单销售退货单销售单图2存货子系统数据流程图实验三存货子系统功能分析实验目的?通过分析存货子系统的业务流程与数据处理流程图?进一步分析存货子系统的功能。 实验环境?安装Windows操作系统、Word软件、Visio软件等。 实验方式?分组进行。 实验内容? 1、通过分析存货子系统的业务流程与数据处理流程图?画出存货子系统的功能图。 根据业务流程图和数据流程图?存货子系统基本可以划分为入库管理、出库管理、盘点管理、报损管理、调拨管理等五个功能模块。 每个功能模块又可以继续划分为若干个功能模块?直到每个功能模块都能够表示相当独立的功能为止。 我们的存货子系统侧重于核算模块的设计。 主要的功能结构有入库管理、出库管理、盘点管理模块。 功能结构图如图3所示?存货核算与管理系统入库管理出库管理调拨管理验货单管理采购入库单录入采购入库单审核采购入库单记账销售退货单管理出库通知单管理出库单录入出库单审核出库单记账盘点管理库存盘点单录入库存盘点单审核库存盘点单记账报损单录入报损单审核报损单记账报损管理调拨单录入调拨单审核调拨单记账图3存货子系统功能结构图实验四存货子系统数据字典及数据库设计实验目的?通过分析存货子系统的数据流程图?进一步写出存货子系统的数据字典。 利用PowerDesigner软件?建立存货子系统的PDM。 实验环境?安装Windows操作系统、Word软件、Visio软件、PowerDesigner软件等。 实验方式?分组进行。 实验内容? 1、通过分析存货子系统的数据流程图?写出存货子系统的数据字典。 数据流的描述数据流编号数据流名称简述数据流数据流去向F1库存产品信息表库存部门记录存货信息的表库存模块其他各模块F2库存盘点表库存部门记录存货期末盘点情况的表库存模块账务模块F3入库单库存部门开出的入库单库存模块采购模块F4出库单库存部门开出的出库单库存模块销售模块F5销售退货入库单库存部门开出的销售退货入库单库存模块销售模块F6采购申请单库存不足时库存部门开出的采购申请单库存模块采购模块F7报损单库存部门开出的报损单库存模块质管模块F8部门用途表各部门领用存货类别表库存模块账务模块F9流水账单存货出入情况的账单库存模块信息使用者F10期初余额表库存期初余额库存模块信息使用者处理逻辑的描述处理逻辑编号处理逻辑名称简述输入的数据流输出的数据流P1验收货物对采购入库的货物进行检验采购单验收单P2出库处理对销售的货物进行出库检验销售单销售检验单P3审核调拨单对调拨单申请进行审核调拨单?申请?调拨单?审核?P4盘点库存对库存中的存货进行盘点实物清单库存盘点单P5审核报损单对报损单申请进行审核报损单报损单?审核?数据存储的描述数据存储编号数据存储名称简述S1库存账目存货入库、出库、退货、报损后修改当前库存量外部实体的描述外部实体编号外部实体名称简述输入的数据流输出的数据流E1仓库部门对存货保管、增减变化进行管理的部门验收单、销售单入库单、出库单E2采购部门采购存货的部门入库单采购单E3销售部门销售商品的部门出库单销售单E4财务部门进行账务处理的部门库存盘点单、报帐簿、报表损单 2、利用PowerDesigner软件?建立存货子系统的PDM。 实验五建立存货子系统数据库实验目的?建立存货子系统的SQL Anywhere数据库。 删除所建数据库的transaction logfile文件。 建立存货子系统的ODBC。 通过存货子系统的PDM?生成存货子系统数据库中的各张表。 实验环境?安装Windows操作系统、PowerDesigner软件、PowerBuilder软件、SQL Anywhere数据库等。 实验方式?分组进行。 实验内容? 1、在PowerBuilder中?建立存货子系统的SQL Anywhere数据库。 2、在Sybase中心Sybase Central中?利用Utilities工具中的Change LogFile Information功能?删除所建数据库的transaction logfile文件。 3、在PowerBuilder中?或在PowerBuilder中?建立存货子系统的ODBC。 4、在PowerDesigner AppModeler软件?连接存货子系统数据库。 5、通过存货子系统的PDM?利用PowerDesigner AppModeler软件?生成存货子系统数据库中的各张表。 数据库设计1.码表设计一仓库表仓库表c_ch_ckb字段名类型长度是否空含义ckb_code char (6)NOT NULL仓库编号ckb_name char (20)NULL仓库名称二职员表职员表c_ch_zyb字段名类型长度是否空含义zyb_code char (6)NOT NULL职员编号zyb_name char (20)NULL职员名称zyb_szbm char (20)NULL所在部门三部门表部门表c_ch_bmb字段名类型长度是否空含义bmb_code char (6)NOT NULL部门编号bmb_name char (20)NULL部门名称四货位表货位表c_ch_hwb字段名类型长度是否空含义hwb_code char (6)NOT NULL货位编号hwb_name char (20)NULL货位名称hwb_szck char (20)NULL所在仓库五业务性质表业务性质表c_ch_ywxzb字段名类型长度是否空含义ywxzb_code char (6)NOT NULL业务性质编码ywxzb_name char (40)NULL业务性质名称2.基本表设计一库存产品信息表库存产品信息表T_kcxx字段名类型长度是否空含义*chbm Char (10)NOT NULL存货编码chmc char (50)NULL存货名称ggxh Char (5)NULL规格型号jldw Char (10)NULL计量单位chlb Char (10)NULL存货类别Chsx Char (20)NULL存货属性Jhjg Char (10)NULL计划价格ckjg char (10)NULL参考价格hw char (10)NULL货位sh char (10)NULL审核标志qyrq Char (30)NULL启用日期bz char (100)NULL备注二存货结存表存货结存表T_chjcb字段名类型长度是否空含义*chbm Char (10)NOT NULL存货编码qcsl decimal(10,2)NULL本月期初数量qcdj decimal(10,2)NULL本月期初单价qcje decimal(10,2)NULL本月期初金额=本月期初单价*本月期初单价ssl decimal(10,2)NULL本月收数量sje decimal(10,2)NULL本月收金额fsl decimal(10,2)NULL本月发数量fje decimal(10,2)NULL本月发金额jcsl decimal(10,2)NULL本月结存数量jcdj decimal(10,2)NULL本月结存单价jcje decimal(10,2)NULL本月结存金额三入库单入库单表T_rkd字段名类型长度是否空含义*rkdh Char (10)NOT NULL*入库单编号(自动生成)rkrq Char (15)NULL入库单日期ywbh Char (15)NULL业务编号ywyxm Char (10)NULL业务员姓名chbm Char (10)NULL存货编码sl decimal(10,2)NULL数量dj decimal(10,2)NULL单价je decimal(10,2)NULL金额cd Char (10)NULL产地gys Char (10)NULL供应商ck Char (10)NULL仓库hw Char (10)NULL货位shbz Char (2)NULL审核标志clbz Char (2)NULL处理标志shbz Char (2)NULL收货标志zdr Char (10)NULL制单人shr Char (10)NULL审核人四出库单出库单表T_ckd字段名类型长度是否空含义*ckdh Char (10)NOT NULL*出库单编号(自动生成)ckrq Char (15)NULL出库单日期ywbh Char (15)NULL业务编号ywyxm Char (10)NULL业务员姓名chbm Char (10)NULL存货编码sl decimal(10,2)NULL数量dj decimal(10,2)NULL单价je decimal(10,2)NULL金额yt Char (10)NULL用途bm Char (10)NULL部门ck Char (10)NULL仓库hw Char (10)NULL货位shbz Char (2)NULL审核标志clbz Char (2)NULL处理标志shbz Char (2)NULL收货标志zdr Char (10)NULL制单人shr Char (10)NULL审核人bz char (100)NULL备注五销售退货入库单销售退货入库单T_xsthrkd字段名类型长度是否空含义*ckthdh Char (10)NOT NULL*销售退货单编号(自动生成)ckthdrq Char (15)NULL销售退货单日期ywbh Char (15)NULL业务编号ywyxm Char (10)NULL业务员姓名chbm Char (10)NOT NULL存货编码sl decimal(10,2)NULL数量dj decimal(10,2)NULL单价je decimal(10,2)NULL金额bm Char (10)NULL部门ck Char (10)NULL仓库hw Char (10)NULL货位shbz Char (2)NULL审核标志clbz Char (2)NULL处理标志shbz Char (2)NULL收货标志zdr Char (10)NULL制单人shr Char (10)NULL审核人thyy Char (100)NULL退货原因六采购申请单采购申请单ch_cgsqd字段名类型长度是否空含义*sqdbh Char (10)NOT NULL*申请单编号(自动生成)rq Char (15)NULL日期chbm Char (10)NULL存货编码chmc Char (20)NULL存货名称ggxh Char (10)NULL规格型号jldw Char (4)NULL计量单位chlb Char (10)NULL存货类别chsx Char (10)NULL存货属性xqsl decimal(10,2)NULL需求数量chr Char (10)NULL制单人shr Char (10)NULL审核人七报损单入库退货单T_rkth字段名类型长度是否空含义*bsbh Char (10)NOT NULL*报损单编号(自动生成)bsrq Char (15)NULL报损单日期ywyxm Char (10)NULL业务员姓名chbm Char (10)NULL存货编码sl decimal(10,2)NULL数量dj decimal(10,2)NULL单价je decimal(10,2)NULL金额cd Char (10)NULL产地gys Char (10)NULL供应商ck Char (10)NULL仓库hw Char (10)NULL货位shbz Char (2)NULL审核标志clbz Char (2)NULL处理标志shbz Char (2)NULL收货标志zdr Char (10)NULL制单人shr Char (10)NULL审核人bsyy Char (100)NULL报损原因八部门用途表部门用途表T_bmytb字段名类型长度是否空含义*bmbm Char (10)NOT NULL*部门编码bmmc Char (20)NULL部门名称ytdm Char (10)NULL用途代码ytmc Char (10)NULL用途名称xmfy Char (10)NULL项目费用九流水账单流水账单ch_lszd字段名类型长度是否空含义*xh char (3)NOT NULL序号sj Char (15)NULL时间djh char (2)NULL单据号ywxz char (4)NULL业务性质chbm char (10)NULL存货编码chmc char (20)NULL存货名称sl decimal(10,2)NULL数量dj decimal(10,2)NULL单价je decimal(10,2)NULL金额十期初余额表期初余额表T_qcyeb字段名类型长度是否空含义chbm Char (10)NULL存货编码chmm Char (50)not NULL存货名称sl decimal(10,2)NULL数量dj decimal(10,2)NULL单价je decimal(10,2)NULL金额cd char (50)null产地gys char (50)null供应商ck Char (10)NULL仓库hw Char (10)NULL货位bz char (100)NULL备注十一存货盘点表存货盘点表T_chpdb字段名类型长度是否空含义pddbh Char (10)not NULL盘点单编号pddrq Char (15)NULL盘点单日期ywyxm Char (10)NULL业务员姓名bm Char (10)NULL部门chbm Char (10)not NULL存货编码chmc char (20)null存货名称hw char (10)null货位chdj decimal(10,2)NULL存货单价zcsl decimal(10,2)NULL账存数量pdsl decimal(10,2)NULL盘点数量yksl decimal(10,2)NULL盈亏数量zdr char (10)NULL制单人shr char (10)NULL审核人实验六存货子系统基本窗口设计实验目的?存货子系统窗口设计。 存货子系统全局变量设计。 存货子系统全局函数设计。 实验环境?安装Windows操作系统、PowerBuilder软件、SQL Anywhere数据库、教师提供的软件原型平台等。 实验方式?分组进行。 实验内容? 1、存货子系统全局变量设计。 全局变量定义string g_oper_code,g_oper_name,g_sheet_code,g_print string g_date,g_dept,g_dept_day,g_func_code string g_dept_month_date=2000-01-01string g_orig,g_warehouse string g_sp_info,g_menu_name booleangb_db_connected string g_price_power decimalg_dept_interval string g_color=80,g_color_key=80string g_IPAddress,g_MachineName string g_log_rec=0/记录日志标记1?记录?0?不记录string g_sys_name=重庆工学院会计学院实验案例stringg_p_name=重庆工学院会计学院会计学院stringg_proj_code=,g_proj_name=stringg_drive=d:io,g_pathfilename/导入导出路径stringg_dir_sc=/自动生成路径integer g_sheet_code_len=10/单据长度integer g_len1=3,g_len2=7,g_len3=11,g_len4=19/小区、大楼、单元、房间编码长度integer g_len4_1=3,g_len4_2=3/g_len4_1楼层长度g_len4_2房间长度stringg_zth=001/帐套号stringg_nkjqj=xx/年会计期间 2、存货子系统全局函数设计。 函数名函数功能f_oper_check判断操作员输入的编码及密码是否合法gf_dw_count显示数据窗口的行数f_where_exist判断有无WHERE条件f_string字符变量的处理f_sql sqlca.sqlcode判断? 0、100?false?-1?true gf_ini_table码表初始化f_i_o导入导出初始f_dw_test_repeat对数据窗口中的导入数据进行重复性测试f_dw_test_repeat_del删除导入导出中的重复数据函数名f_oper_check返回值类型integer函数功能判断操作员输入的编码及密码是否合法参数定义r_oper_code:string r_pass:string脚本string r_oper_pass SELECTpass INTO:r_oper_pass FROMc_operator WHEREoper_code=:r_oper_code;IF sqlca.sqlcode=100then messagebox(g_sys_name,您提供的操作员号码不正确!)return1ELSE IFtrim(r_oper_pass)trim(r_pass)THEN messagebox(g_sys_name,您提供的密码和操作员号不符!rr是否没有区分大小写?)return2END IFEND IF return0函数名gf_dw_count返回值类型无函数功能显示数据窗口的行数参数定义r_dw_table:datawindow r_sle_count:singlelineedit脚本long r_row,r_count r_count=r_dw_table.ROWCOUNT()r_row=r_dw_table.getrow()IF r_row0and r_count0THEN r_sle_count.TEXT=string(r_row)+/+string(r_count)ELSEIF r_count0then r_sle_count.TEXT=共+string(r_count)+条ELSE r_sle_count.TEXT=END IF return函数名f_where_exist返回值类型integer函数功能判断有无WHERE条件参数定义r_orig_sql:string脚本if posr_orig_sq,WHERE0or pos(r_orig_sql,where)0then return1/有WHERE条件else return0/无WHERE条件end if函数名f_string返回值类型string函数功能字符变量的处理参数定义r:string脚本IF ISNULLr ORTRIM r=THEN r=%ELSE r=r+%END IFRETURN r函数名f_sql返回值类型boolean函数功能sqlca.sqlcode判断? 0、100?false?-1?true参数定义无脚本if sq ca.sq co e=-t enmessagebox(sql错误信息,sqlca.sqlerrtext)rollback;return trueelse mit;return falseend if函数名gf_ini_table返回值类型无函数功能码表初始化参数定义无脚本DELETE FROMc_postion;INSERT INTO c_postion(postion_code,postion_name)VALUES(01,董事长);INSERT INTOc_postion(postion_code,postion_name)VALUES(02,副董事长);INSERT INTOc_postion(postion_code,postion_name)VALUES(03,财务总监);INSERT INTOc_postion(postion_code,postion_name)VALUES(04,销售总监);/学历码表c_edu_level INSERT INTOc_edu_level(edu_level_code,edu_level_name)VALUES(01,博士);INSERT INTOc_edu_level(edu_level_code,edu_level_name)VALUES(02,硕士);INSERT INTOc_edu_level(edu_level_code,edu_level_name)VALUES(03,学士);/凭证类型码表DELETE FROMZW_C_PZLX;INSERT INTOZW_C_PZLX(PZLX_CODE,PZLX_NAME)VALUES(CH,转账凭证);INSERT INTOZW_C_PZLX(PZLX_CODE,PZLX_NAME)VALUES(SK,收款凭证);INSERT INTOZW_C_PZLX(PZLX_CODE,PZLX_NAME)VALUES(FK,付款凭证);if f_sql()then return函数名f_i_o返回值类型无函数功能导入导出初始参数定义脚本SetPointer(HourGlass!)delete fromsave_import;/导入导出码表delete fromc_save_import;insert intoc_save_import values(01,导入);insert intoc_save_import values(02,导出);delete fromc_mean;insert intoc_mean values(01,固定);insert intoc_mean values(02,自由);insert intoc_mean values(03,生成);delete fromc_file_type;insert intoc_file_type values(01,dbf);insert intoc_file_type values(02,txt);insert intoc_file_type values(03,excel);insert intoc_file_type values(04,sql);delete fromc_interval;insert intoc_interval values(00,无);insert intoc_interval values(01,每日);insert intoc_interval values(02,每周);insert intoc_interval values(03,每月);insert intoc_interval values(04,每季度);insert intoc_interval values(05,每年);delete fromc_flag_code;insert intoc_flag_code values(01,成功);insert intoc_flag_code values(02,失败);if f_sql()then returnINSERT INTOsave_import VALUES(001,c_operator,dw_c_operator_grid,01,02,D:iodata,c_operator,01,人员信息,00,000,xx-01-01,xx-01-01,01,);INSERTINTOsave_import VALUES(001,c_operator,dw_c_operator_grid,02,02,D:iodata,c_operator,01,人员信息,00,000,xx-01-01,xx-01-01,01,);SetPointer(arrow!)if f_sql()then returnelse/messagebox(提示,导入导出表初始成功!)end if return函数名f_dw_test_repeat返回值类型long函数功能对数据窗口中的导入数据进行重复性测试参数定义r_type:string r_dw:datawindow r_sle:singlelineedit脚本ong r_row,r_rowcoun,r_coun,r_se ec,r_re urn=string r_primaryr_rowcount=r_dw.rowcount()r_type=lower(r_type)CHOOSE CASEr_type CASEc_operatorr_count=1/关键字段数r_primaryr_count=FOR r_row=1TO r_rowcount r_primary1=r_dw.getitemstring(r_row,oper_code)/取关键字select count(*)into:r_select fromc_operator where c_operator.oper_code=:r_primary1;if r_select0then r_dw.SelectRow(r_row,TRUE)r_return=r_return+1end ifNEXT CASE ELSE END CHOOSE return r_return函数名f_dw_test_repeat_del返回值类型long函数功能删除导入导出中的重复数据参数定义r_type:string r_dw:datawindow r_sle:singlelineedit脚本ong r_row,r_rowcoun,r_coun,r_se ec,r_re urn=string r_primaryr_type=lower(r_type)r_rowcount=r_dw.rowcount()CHOOSE CASEr_type CASEc_operatorr_count=1r_primaryr_count=FOR r_row=1TO r_rowcount r_primary1=r_dw.getitemstring(r_row,oper_code)delete fromc_operator where c_operator.oper_code=:r_primary1;NEXT CASEc_suppr_count=1/关键字段数r_primaryr_count=FOR r_row=1TO r_rowcount r_primary1=r_dw.getitemstring(r_row,supp_code)/取关键字delete fromc_supp where c_supp.supp_code=:r_primary1;NEXT CASEELSE ENDCHOOSE f_sql()returnr_return 3、通过分析?设计存货子系统的通用窗口。 窗口名窗口功能w_start登陆窗口W_set系统设置窗口W_code码表输入、修改窗口w_sheet_input单表输入窗口W_select综合查询窗口w_i_o_ini数据导入导出初始窗口w_i_o数据导入导出窗口窗口名w_start Message参数无主要功能登陆窗口实例变量声明无窗口函数无控件事件脚本w_start:open!Environment a Integer w,h GetEnvironment(a)w=PixelsToUnits(a.screenwidth,xpixelstounits!)h=PixelsToUnits(a.screenheight,ypixelstounits!)move(w-width)/2,(h-height)/2)this.title=+g_sys_name+系统登录确定cb_ok:clicked!string r_func_co e,r_menu_name,r_ate,r_sp_info long r_result r_result=f_oper_check(sle_oper_code.text,sle_pass.text)IF r_result0THEN Ifr_result=1Then sle_oper_code.Text=sle_oper_code.SetFocus()ElseIf r_result=2Then sle_pass.Text=sle_pass.SetFocus()End Ifreturn End If g_date=string(today()g_oper_code=sle_oper_code.text SELECToper_name,func_code,sheet_code,DEPT_CODE,postion_c INTO:g_oper_name,:r_func_code,:g_sheet_code,:g_dept,:r_sp_i FROMc_operator WHEREoper_code=:g_oper_code;/操作人员的打印权限SELECT print_yn,menu_name INTO:g_print,:g_menu_name FROMc_func WHEREfunc_code=:r_func_code;close(parent)open(w_set)退出cb_cancel:clicked!close(parent)窗口名W_set Message参数无主要功能系统设置窗口实例变量声明无窗口函数wf_change_menu(r_menu_name)参数?string r_menu_name返回值类型?integer strng s_menu selects_menu into:ls_menu fromc_menu wheremenu_group=:r_menu_name;choose casels_menu casem_crmw_genapp_frame.ChangeMenu(m_crm)f_set_purview(r_menu_name,m_crm)case elseReturn1end chooseReturn0控件事件脚本W_set:Open!w_ept.etTrans ectsqcadw_dept.insertrow (0)dw_dept.setitem(1,1,g_dept)em_date.text=string(today()g_date=em_date.text Environment aInteger w,h GetEnvironment(a)w=PixelsToUnits(a.screenwidth,xpixelstounits!)h=PixelsToUnits(a.screenheight,ypixelstounits!)move(w-width)/2,(h-height)/2)this.title=g_sys_name+设置确定cb_set:clicked!string r_ept_ay,r_ate string r_date,r_dept stringr_dept_month_date r_date=em_date.text r_dept=dw_dept.getitemstring(1,1)g_dept=r_dept g_date=r_date setpointer(hourglass!)open(w_genapp_frame)If wf_change_menu(g_menu_name)0Then messagebox(g_sys_name,系统没有给您提供可用的菜单!r程序将终止!)halt ElseEndIfsetpointer(arrow!)close(parent)退出cb_cancel:clicked!close(parent)窗口名W_code Message参数Message.StringParm主要功能码表管理窗口实例变量声明string i_type,i_coeinteger i_tab30long i_row,i_col string i_orig_sql string i_str_precolumn=integer i_int_clicktime=0string i_title/窗口的标题变量窗口函数1f_exit()参数?无返回值类型?无INTEGER NET,RTN dw_table.aepttext()IF dw_table.ModifiedCount()0OR dw_table.DeletedCount()0THEN Net=MessageBox(提示,是否需要保存所修改的信息?,Exclamation!,YESNO!,1)IF Net=1THEN rtn=dw_table.Update()IF rtn=1THEN MITUSING SQLCA;ELSE ROLLBACKUSING SQLCA;END IFEND IFEND IF窗口函数2get_tab_order()参数?无返回值类型?无nteger FORj=1TO i_col i_tabj=dw_table.setTabOrder(j,0)NEXT窗口函数3set_tab_0()参数?无返回值类型?无nteger FORj=1TO i_col dw_table.SetTabOrder(j,0)NEXT cb_modi.TEXT=&X不修改cb_delete.enabled=false cb_save.enabled=false窗口函数4set_tab_old()参数?无返回值类型?无nteger FORj=1TO i_col dw_table.SetTabOrder(j,i_tabj)NEXT cb_modi.TEXT=&X可修改cb_modi.enabled=true cb_save.enabled=true控件事件脚本W_code:Open!/确定数据窗口dw_table的DATAOBJECT/确定窗口的标题/将dw_table的数据源Select描述赋予实例变量String i_orig_sql i_type=Message.StringParm CHOOSE CASE i_type CASEc_funcdw_table.DATAOBJECT=dw_c_funci_title=系统操作功能码表CASEc_postiondw_table.DATAOBJECT=dw_c_postioni_title=操作员职位码表CASEc_edu_leveldw_table.DATAOBJECT=dw_c_edu_leveli_title=学历码表CASEc_supp_attrdw_table.DATAOBJECT=dw_c_supp_attri_title=往来单位属性CASEELSEmessagebox(提示,无此参数+i_