库存管理存货核算系统解析d

要登记存货数量账外，财会部门也要根据各种凭单(如入库单、验收报告等)登记存货明细账，反映存货增加等经济业务；当各个部门领售)，仓库保管员又要登记存货数量账，财会部门又要根据各种凭单 (1)存货核算与经管——入库流程分析①仓库保管员依据采购订单和计划入库安排，检查供应商送货及②如果可以收货，仓库保管员编制收货凭证，并将收货凭证和质⑥登记相应存货的入库数量和结存数量，即存货三级账，并将相⑧存货核算会计审核凭证，登记存货明系账，并将凭证传递到总。程①仓库保管员接到各车间、用料单位提出的领料申请，或者销售部门提出的发运请求，经审核单据后，编制出库单，并发出存③财会部门会计人员根据出库单等单据编制记账凭证，登记存货并将凭证传递到总账子系统。由于存货种类繁多、数量大、收发业务频繁，存货成本计算比较复杂，为了满足不同企业对核算的需要，存货可以按计划成本计价，也可按实际成本计价。按实际成本计价时，存货成本可以按照加权平均、移④期末处理。财务部门期末对存货进行实地盘点，编制盘盈盘亏总账(一级账)是由不同的人员编制的，因此，会出现账账不一致的问题。因此，期末还需要进行三级账的核对工作，很多企业要花费一定的人力物力每月必须进行对账。财务部门根据⑤存货分析。财务经管人员需要根据入库单、出库单、存货数量总表等内容的经管分析报告，并提出存货经管的改进意见和评无误的报无误的报错误的报采购收货单验货验货单质管部门财务部门库存盘点单销售退货单报损单提交送达采购入送达单退货入库单登记送达经理验货合格仓库部门商品调拨单发送 (申请)商品调拨单(审核)入库单报表登记或生成库存账目供应商送达库存不足及超额通知发送信息使用销售部门货单部门调拨单 (审核)出库单、入库单存理门库存帐目(审核)报损单(审核)调拨单(申请)货物通过分析《存货子系统》的业务流程与数据处理流程图，进一步分存货核算与管理系统称表块块块块块块块号单表表单单块块块块块块块块块块单单 单(审核)(审核)数据存数据存储储编号名称修改S1库存账目门实验五建立《存货子系统》数据库一仓库表仓库表c_ch_ckb字段名类型长度是否空ckb_codechar(6)NOTNULLckb_namechar(20)NULL仓库名称二职员表b字段名类型长度zyb_codechar(6)zyb_namechar(20)zyb_szbmchar(20)NOTNULLNULLNULL三部门表字段名类型长度bmb_codechar(6)bmb_namechar(20)是否空含义NOTNULL部门编号NULL部门名称四货位表是否空含义NOTNULL货位编号NULL货位名称NULL所在仓库codeewbszck五业务性质表字段名类型长度ywxzb_codechar(6)ywxzb_namechar(40)NOTNULLNULL一库存产品信息表库存产品信息表T_kcxx字段名类型长度是否空ggxhChar(5)NULLjldwChar(10)NULLchlbChar(10)NULLsxCharNULLckjgchar(10)NULLhwchar(10)NULLshchar(10)NULLqyrqChar(30)NULLbzchar(100)NULL二存货结存表存货结存表T_chjcb字段名类型长度是否空jcsljcdjjcjeNULL三入库单本月期初金额单价入入库单表T_rkd字段名类型长度是否空*rkdhChar(10)NOTNULLrkrqCharNULLywyxmChar(10)NULLLjeckhwjeckhwNULLNULLNULLNULLNULLNULLNULLNULLNULLNULLNULLNOTNULLNULLNULLNULLNULLNULLNULLjjeChar10)NULLChar10)NULLChar10)NULLChar10)NULLChar2)NULLChar2)NULLChar2)NULLChar10)NULLChar10)NULLNOTNULLNULLNULL销售退货单日期Char10)NULLjeChar10)NULLChar10)NULLChar10)NULLChar2)NULLChar2)NULLChar2)NULLChar10)NULLChar10)NULL六采购申请单NOTNULLrqCharNULL日期Char10)NULLjldwChar4)NULLChar10)NULLChar10)NULLChar10)NULLChar10)NULL七报损单入库退货单T_rkth字段名类型长度是否空bsrqChar(15)NULLywyxmChar(10)NULLLjedecimal(10,2)NULLcdChar(10)NULLLNULLNULLNULLNULLNULLNULLNULLNULL八部门用途表NOTNULL*部门编码NULLNULLNULLNULL字段名类型长度是否空含义*xhchar(3)NOTNULL序号sjChar(15)NULL时间je十期初余额表NULLjedecimal(10,2)NULL金额cdchar(50)null产地ckChar(10)NULL仓库hwChar(10)NULL货位bzchar(100)NULL备注十一存货盘点表pddrqCharNULLywyxmChar(10)NULLbmChar(10)NULL部门shrchar(10)NULL审核人pernamegsheetcodegprintptgdeptdaygfunccodedeptmonthdateoleangbdbconnectedtervalcolorkeyameameprojnamedrivediogpathfilenamelenintegerg_len4_1=3,g_len4_2=3//g_len4_1楼层长度g_len4_2f_i_o导入导出初始f_dw_test_repeat对数据窗口中的导入数据进行重复性测试f_dw_test_repeat_del删除导入导出中的重复数据destringgstringr_oper_passSELECTpassINTO:r_oper_passFROMc_operatorWHEREoper_code=:r_oper_code。IFsqlca.sqlcode=100thenmessagebox(g_sys_name,"您提供的操作员号码不正确!")return1IFtrim(r_oper_pass)<>trim(r_pass)THENmessagebox(g_sys_name,"您提供的密码和操作员号不符!~r~r是否没有区分大小写?")return2ENDIFENDIFreturn0名tabledatawindowountsinglelineeditountrdwtableROWCOUNTrrowrdwtablegetrowIFr_row>0andr_count>0THENr_sle_count.TEXT=string(r_row)+'/'+string(r_count)ELSEIFr_count>0r_sle_count.TEXT='共'+string(r_count)+'条'ELSEr_sle_count.TEXT=''ENDIF型gsqlstringifpos(r_orig_sql,'WHERE')>0orpos(r_orig_sql,'where')>0thenreturn1//有WHERE条件elsereturn0//无WHERE条件endif型IFISNULL(r)ORTRIM(r)=''THENr='%'ELSEr=r+'%'ENDIFRETURNr型无ifsqlca.sqlcode=-1thenmessagebox('sql错误信息',sqlca.sqlerrtext)rollback。returntrueelsecommit。returnfalseendif型无无函数名函数功能io无参参数定义脚脚本ourGlassportveimportvaluesvaluestypeelervalsuesuesuesaluesuescodeuesuescoperatordwcoperatorgrid','02','D:\io\data',coperator人员信息1-01','2002-01-01','01','','')。coperatordwcoperatorgrid','02','D:\io\data',coperator人员信息1-01','2002-01-01','01','','')。rrowmessagebox出表初始成功!')f名性测试r_type:stringr_dw:datawindowr_sle:singlelineeditlongr_row,r_rowcount,r_count,r_select,r_return=0stringr_primary[]r_rowcount=r_dw.rowcount()r_type=lower(r_type)CHOOSECASEr_typeCASE'c_operator'r_count=1//关键字段数r_primary[r_count]=''FORr_row=1TOr_rowcountr_primary[1]=r_dw.getitemstring(r_row,'oper_code')//取关键字selectcount(*)into:r_selectfromc_operatorwherec_operator.oper_code=:r_primary[1]。ifr_select>0thenr_dw.SelectRow(r_row,TRUE)r_return=r_return+1endifNEXTCASEELSEENDCHOOSEreturnr_returnpeatdel据r_type:stringr_dw:datawindowr_sle:singlelineedit名longlongr_row,r_rowcount,r_count,r_select,r_return=0stringr_primary[]r_type=lower(r_type)r_rowcount=r_dw.rowcount()CHOOSECASEr_typeCASE'c_operator'r_count=1r_primary[r_count]=''FORr_row=1TOr_rowcountr_primary[1]=r_dw.getitemstring(r_row,'oper_code')deletefromc_operatorwherec_operator.oper_code=:r_primary[1]。脚本NEXTSEcsupprcount键字段数rimaryrcountFORrrowTOr_rowcountrprimaryrdwgetitemstringr_row,'supp_code')deletefromc_suppwherec_supp.supp_code=:r_primary[1]。NEXTEeturnW_codew_sheet_inputW_selectw_i_o_iniw_i_ow_startW_set明w_start:cb_ok:w_startMessage参数无无无//居中EnvironmentaIntegerw,hGetEnvironment(a)w=PixelsToUnits(a.screenwidth,xpixelstounits!)h=PixelsToUnits(a.screenheight,ypixelstounits!)move((w-width)/2,(h-height)/2)this.title='☆'+g_sys_name+'系统登录☆'stringr_func_code,r_menu_name,r_date,r_sp_infolongr_resultr_result=f_oper_check(sle_oper_code.text,sle_pass.text)IFr_result<>0THENIfr_result=1Thensle_oper_code.Text=""sle_oper_code.SetFocus()ElseIfr_result=2Thensle_pass.Text=""sle_pass.SetFocus()EndIfreturnEndIfg_date=string(today())g_oper_code=sle_oper_code.textSELECToper_name,func_code,sheet_code,DEPT_CODE,postion_coINTO:g_oper_name,:r_func_code,:g_sheet_code,:g_dept,:r_sp_inFROMc_operatorWHEREoper_code=:g_oper_code。//操作人员的打印权限SELECTprint_yn,menu_nameINTO:g_print,:g_menu_nameFROMc_funcWHEREfunc_code=:r_func_code。close(parent)open(w_set)明W_set:W_setMessage参数无无wf_change_menu(r_menu_name)stringls_menuselects_menuinto:ls_menufromc_menuwheremenu_group=:r_menu_name。choosecasels_menucase'm_crm'w_genapp_frame.ChangeMenu(m_crm)f_set_purview(r_menu_name,m_crm)caseelseReturn1endchooseReturn0dw_dept.SetTransObject(sqlca)dw_dept.insertrow(0)dw_dept.setitem(1,1,g_dept)em_date.text=string(today())g_date=em_date.textEnvironmentaIntegerw,hGetEnvironment(a)w=PixelsToUnits(a.screenwidth,xpixelstounits!)h=PixelsToUnits(a.screenheight,ypixelstounits!)move((w-width)/2,(h-height)/2)this.title=g_sys_name+'设置'stringr_dept_day,r_date1stringr_date,r_deptstringr_dept_month_dater_date=em_date.textr_dept=dw_dept.getitemstring(1,1)g_dept=r_deptg_date=r_datesetpointer(hourglass!)open(w_genapp_frame)Ifwf_change_menu(g_menu_name)<>0Thenmessagebox(g_sys_name,'系统没有给您提供可用的菜单!~r程序将终止!')haltElseEndIfsetpointer(arrow!)close(parent)cb_cancel:close(parent)WW_codeMessage参数Message.StringParmstringi_type,i_codeintegeri_tab[30]longi_row,i_colstringi_orig_sqlstringi_str_precolumn=""integeri_int_clicktime=0stringi_title//窗口的标题变量参数：无返回值类型：无INTEGERNET,RTNdw_table.accepttext()IFdw_table.ModifiedCount()>0ORdw_table.DeletedCount()>0THENNet=MessageBox("提示","是否需要保存所修改的信息?",Exclamation!,YESNO!,1)IFNet=1THENrtn=dw_table.Update()IFrtn=1THENCOMMITUSINGSQLCA。ELSEROLLBACKUSINGSQLCA。ENDIFENDIFENDIF参数：无返回值类型：无integerjFORj=1TOi_coli_tab[j]=dw_table.setTabOrder(j,0)T参数：无返回值类型：无integerjFORj=1TOi_coldw_table.SetTabOrder(j,0)NEXTlse参数：无返回值类型：无integerjFORj=1TOi_coldw_table.SetTabOrder(j,i_tab[j])NEXT//将dw_table的数据源Select描述赋予实例变量StringOOSECASEitypecfuncTAOBJECTdwcfuncstionJECTdwcpostionCASEcedulevel"OBJECTdwcedulevelSEcsuppattrATAOBJECTdwcsuppattrW_code:W_code:messagebox('提示','无此参数'+i_type)EdwtableSetTransObjectsqlca)owTableSelectdowcolumncountBitleEnvironmentaronmentaw=PixelsToUnits(a.screenwidth,xpixelstounits!)hPixelsToUnits(a.screenheight,ypixelstounits!)move((w-width)/2,(h-height)/2)ALSEirowTRUEdwtablegetitemstringirownuefENDIFsslecount单击的列对象string//判断上次是按升还是按降来排序integertreturn象是列名+"_t"lumnlenstrcolumntrprecolumnthennfifmatPreturn1相关操作rcodercoderNGrrowrrowcountijrcolTHISGetcolumn//当前数据窗口列的序号rrowTHISGETROW//数据窗口当前行countTHISROWCOUNTrcode=THIS.GetitemString(r_row,r_col)ORiTOrrowcountrcode=THIS.GetitemString(i,r_col)PMESSAGEBOX','编码输入重复!请重新RETURN1ENDIFENDIFT次输入OSECASEitypecfuncSELECTfunc_codeINTO:rFROMc_funcWHEREcodetionSELECTpostion_codeINTO:rFROMc_postionWHEREpostion_code=:r_code。ASEcedulevelSELECTedu_level_codeINTO:rFROMlevelWHEREedulevelcodercodeSEcsuppattrSELECTsupp_attr_codeINTO:rFROMpattrWHEREsuppattrcodercodeMESSAGEBOX('提示','该编码已经存在!请重THISSetitemrrowrcol)RETURN1ENDIFENDIFENDIF//按查询条件对码表中的数据进行查询stringr_code,r_namelongr_rowstringr_where_sql,r_modi_sql,r_stater_code=trim(sle_code.text)r_name=trim(sle_name.text)r_code=f_string(r_code)//x=x+'%'r_name=f_string(r_name)//r_code='~"'+r_code+'~"'//SQLserver//r_name='~"'+r_name+'~"'//SQLserverr_code="~'"+r_code+"~'"//SQLanywherer_name="~'"+r_name+"~'"//SQLanywhereCHOOSECASEi_typeCASE'c_func'r_where_sql="wherec_func.func_codelike"+r_code&+"andc_func.func_namelike"+r_nameCASE'c_postion'r_where_sql="wherec_postion.postion_codelike"+r_code&+"andc_postion.postion_namelike"+r_nameCASE"c_edu_level"r_where_sql="whereclike"+r_code&+"andc_edu__level_namelike"+r_nameCASE"c_supp_attr"r_where_sql="wherec_supp_attr.supp_attr_codelike"+r_code&+"andc_supp_attr.supp_attr_namelike"+r_nameENDCHOOSE//r_modi_sql="DataWindow.Table.Select='"+i_orig_sql+r_where_sql+"'"//SQLserverr_modi_sql="DataWindow.Table.Select=~""+i_orig_sql+r_where_sql+"~""//SQLanywherer_state=dw_table.Modify(r_modi_sql)IFr_state=""THENr_row=dw_table.Retrieve()dw_table.setfocus()MessageBox("提示","数据窗口修改失败!"+r_state)ENDIFgf_dw_count(dw_table,sle_count)SET_TAB_0()ifr_row>0thendw_table.scrolltorow(1)dw_table.SELECTROW(0,FALSE)dw_table.SELECTROW(1,TRUE)endifTlongr_rowdw_table.INSERTROW(0)r_row=dw_table.rowcount()dw_table.SCROLLTOROW(r_row)dw_table.setfocus()dw_table.SetColumn(1)dw_table.setrow(r_row)dw_table.setfocus()dw_table.SELECTROW(0,FALSE)dw_table.SELECTROW(r_row,TRUE)set_tab_old()gf_dw_count(dw_table,sle_count)IFTHIS.TEXT='&G可修改'THENSET_TAB_0()ELSEset_tab_old()dw_table.setrow(dw_table.rowcount())dw_table.setcolumn(1)dw_table.setfocus()dw_table.selectrow(0,false)dw_table.selectrow(dw_table.rowcount(),true)ENDIFINTEGERNETlongR_ROW,r_countifnotdw_table.IsSelected(i_row)thenreturnNet=MessageBox("提示","是否真的要删除所选中的行?",Exclamation!,YESNO!,2)IFNet=2THENreturnthis.enabled=falsedw_table.DELETEROW(i_row)gf_dw_count(dw_table,sle_count)integerrtn,NETNet=MessageBox("提示","是否真的要保存?",Exclamation!,YESNO!,1)IFNet<>1THENreturndw_table.accepttext()IFdw_table.ModifiedCount()dw_table.DeletedCount()>0THENrtndw_table.Update()IFrtn=1THENCOMMITUSINGSQLCA。messagebox('提示','保存成功!')cb_reset.TriggerEvent(Clicked!)ELSEROLLBACKUSINGSQLCA。messagebox('提示','保存失败!')ENDIFENDIFset_tab_0()ifcb_reset.TEXT='&X可修改'thencb_save.enabled=trueendif=strprinttoollstrtitleyopenWithparmwprinttoollstrprinttoolETNETExclamation!,YESNO!,1)NetTHENExclamation!,YESNO!,1)NETTHENENABLEDFALSE//job=PrintOpen()PrintDataWindow(job,dw_table)intClosejobMessageBox示","打印完毕!")SENABLEDTRUE//ENDIF//ENDIFW_sheet_inputMessage.StringParm数indowchildidwcidwcsuppattrcodestringi_form,qliorigsqlnewstringename[],coltype[],col_width[],htcolheighttcolycolytcolinterval],col_interval_t[]codeOOSECASEitypeoperatorwhereopercode=:r_code。EOSECASEitypeoperatormessagebox('提示','该编码已经存在!~r~n请setitemdwfreegetrowopercodereturn1ENDIFreturn0stringr_modi,r_col,r_col_nameintegerii_type=Message.StringParmCHOOSECASEi_typeCASE'c_operator'JECTdwcoperatorgriddwcoperatorfreedw_print.DATAOBJECT="dw_c_operator_free"i_title="操作员情况表"CASE"c_corp"dw_table.DATAOBJECT="dw_c_corp_grid"dw_free.DATAOBJECT="dw_c_corp_free"dw_print.DATAOBJECT="dw_c_corp_free"i_title="公司信息"ENDCHOOSEi_col=integer(dw_table.object.datawindow.column.count)//数据窗口的列数//注意：只有dw_free中挂的下拉数据窗口是带retrieveFORi=1TOi_colr_col="#"+string(i)+".Name"//"#i"代表第i列,#1.Name为第一列列名.ename[i]=dw_free.describe(r_col)coltype[i]=dw_free.describe(ename[i]+W_sheet_inpucol_width[i]=dw_free.describe(ename[i]".width")t:col_height[i]=dw_free.describe(ename[i]+".height")Open!".y"))col_y[i]=Double(dw_free.describe(ename[i]+col_height_t[i]=dw_free.describe(ename[i]+"_t.height")col_y_t[i]=Double(dw_free.describe(ename[i]+"_t.y"))ifdw_free.getchild(ename[i],i_dwc)=1theni_dwc.settransobject(sqlca)i_dwc.retrieve('%')CHOOSECASEename[i]CASE'supp_attr_code'i_dwc_supp_attr_code=i_dwcCASEELSEENDCHOOSEendifTjectsqlcactsqlcajectsqlcaadwtablewprintereventclickedetriggereventclickedrb_free.checked=truedw_table.x=dw_free.xcketrtypercodercolbjectStringdwonameOOSECASEitypeperatorECASErobjectCASE"cb_func_code"//所有按钮以cb_rtypecfunc的码表rtypecpostion择的码表Ewithparmwcodesheetinqurtypedemessagestringparmrcolmidrobject//取按钮对应的列名wfreesetitemdwfreegetrowrcolrcodelsldrStringParmrcolumnnamemnnamethisgetcolumnnamecceptTextstr_calendarlstr_cal//createastructuremnnamedwonamepenwithparmwpbcalendarlstrcalingParmMessageStringParmrcalactivecolumnowrcolumnnamerStringParmifReturn1ifisnull(data)thenreturnCHOOSECASEi_typeCASE'c_supp'CHOOSECASECASE'supp_attr_code'i_dwc_supp_attr_code.retrieve(data+'%')ENDCHOOSEENDCHOOSEreturn1ngr_col,r_code,r_code1,r_date,r_kh_code,r_zffs_codelongr_row,r_count,r_sql_countINTEGERNET,idecimalr_sum_ye,r_ye,r_jhfkjestringr_ht_idintegerr_ht_itemnoifnotthis.accepttext()=1thenreturn//r_editstyle=dwo.edit.style//ifr_editstyle='dddw'then//this.getchild(,i_dwc)//islikethis.GetColumnName()//stringls_data_column//ls_data_column=dwo.dddw.datacolumn/r_row=i_dwc.find(ls_data_column+"='"+data+"'",1,i_dwc.rowcount())//ifr_row<=0then//stringls_dwo_name//ls_dwo_name=this.describe(+'_t.text')//messagebox('提示',ls_dwo_name+'列中没有输入的值!')//this.settext('')//this.accepttext()///endif//endifr_row=this.getrow()ifnotr_row>0thenreturnr_col=this.GetColumnName()ifnotthis.accepttext()=1thenreturnCHOOSECASEi_typeCASE'c_operator'CHOOSECASEr_colCASE'oper_code'r_code=data//相当于r_code=this.GetItemString(r_row,col)//r_code1=f_sheet_len(r_code)//r_code1是规格化后的编码//ifr_code<>r_code1then//r_code=r_code1//endif//this.settext(r_code)iff_itemchanged(r_code)=1thenthis.setitem(r_row,r_col,'')return1endifreturn1CASEelseRETURNENDCHOOSEENDCHOOSEe<>dw_table.visible=truedw_free.visible=falsecb_del.enabled=false//需要点击后才能删除dw_free.visible=truedw_table.visible=falsecb_del.enabled=true//可删除当前行longr_rowr_row=dw_table.scrollpriorrow()r_row=dw_table.getrow()dw_table.setrow(r_row)dw_table.selectrow(0,false)dw_table.selectrow(r_row,true)dw_free.scrolltorow(r_row)ifdw_table.getrow()=1thenthis.enabled=falsecb_first.enabled=falseendifcb_last.enabled=truecb_next.enabled=truegf_dw_count(dw_table,sle_count)longr_rowr_row=dw_table.scrollnextrow()r_row=dw_table.getrow()dw_table.setrow(r_row)dw_table.selectrow(0,false)dw_table.selectrow(r_row,true)dw_free.scrolltorow(r_row)ifdw_table.getrow()=dw_table.rowcount()thenthis.enabled=falsecb_last.enabled=falseendifcb_first.enabled=truecb_prior.enabled=truegf_dw_count(dw_table,sle_count)longr_rowdw_table.scrolltorow(1)r_row=dw_table.getrow()dw_table.setrow(r_row)dw_table.SELECTROW(0,FALSE)dw_table.SELECTROW(r_row,TRUE)dw_free.scrolltorow(1)this.enabled=falsecb_prior.enabled=falsecb_last.enabled=truecb_next.enabled=truegf_dw_count(dw_table,sle_count)longr_countr_count=dw_table.rowcount()dw_table.scrolltorow(r_count)dw_table.selectrow(0,false)dw_table.selectrow(r_count,true)dw_free.scrolltorow(r_count)this.enabled=falsecb_next.enabled=falsecb_first.enabled=truecb_prior.enabled=truegf_dw_count(dw_table,sle_count)longr_rowcountstringr_codeifrb_free.checked=truethendw_free.setfocus()dw_free.SetColumn(1)elsedw_table.setfocus()dw_table.SetColumn(1)endifdw_free.insertrow(0)cb_last.triggerevent(clicked!)gf_dw_count(dw_table,sle_count)r_rowcount=dw_free.rowcount()r_code=f_sheet_code(i_type,r_code)//产生单据号CHOOSECASEi_typeCASE"dj_cb_project"dw_free.SetItem(r_rowcount,'PROJ_CODE',r_code)dw_free.SetItem(r_rowcount,'KSRQ',g_date)dw_free.SetItem(r_rowcount,'JGRQ',g_date)CASEelseENDCHOOSEdws.string1='copy'dws.dw1=dw_tableOpenWithParm(w_col_copy,dws)r_string=Message.StringParmifisnull(r_string)ortrim(r_string)=''theni_col_copy_count=0return//没有数据传过来endifr_string1=r_string//初始化i_col_copy_count=0DOWHILEpos(r_string1,',')>0//计算","的个数r_countr_length=len(r_string1)r_string1=mid(r_string1,pos(r_string1,',')+1,r_length)i_col_copy_count=i_col_copy_count+1LOOPi_col_copy[i_col_copy_count]=''DOWHILEpos(r_string,',')>0//将选择的字符串存储到i_col_copy[]中r_col_row=r_col_row+1r_length=len(r_string)i_col_copy[r_col_row]=mid(r_string,1,pos(r_string,',')-1)r_string=mid(r_string,pos(r_string,',')+1,r_length)LOOPstringr_string,r_sql,r_coltypeintegerr_col_rowlongr_count,r_count1decimalr_decimalr_count=dw_table.rowcount()dw_table.INSERTROW(0)r_count1=dw_table.rowcount()dw_table.scrolltorow(r_count1)i_row=dw_table.getrow()dw_table.setrow(i_row)ifr_count>0then//copyFORr_col_row=1TOi_col_copy_countr_sql=i_col_copy[r_col_row]+".ColType"r_coltype=dw_table.describe(r_sql)IFr_coltype="!"THENMessageBox("错误","数据类型错误!")returnENDIFCHOOSECASEr_coltypeCASE"number","long","int"maldwtablegetitemdecimalrcounticolcopdw_table.setitem(i_row,i_col_copy[r_col_row],r_decimal)CASE"date"CASE"datetime"CASEELSEIFLeft(r_coltype,4)="char"THENingdwtablegetitemstringrcounticolcocolrowdw_table.setitem(i_row,i_col_copy[r_col_row],r_string)ELSEIFLeft(r_coltype,7)="decimal"THEN//typeisdecimalimaldwtablegetitemdecimalrcounticoldw_table.setitem(i_row,i_col_copy[r_col_row],r_decimal)ELSE//error,"!"ENDIFENDCHOOSENEXTendifcb_last.triggerevent(clicked!)gf_dw_count(dw_table,sle_count)ifrb_free.checked=truethendw_free.deleterow(0)elseifrb_table.checked=truethendw_table.deleterow(i_row)this.enabled=falseendifgf_dw_count(dw_table,sle_count)//定义结构，存放调用参数str_printtooll_str_printtoolifrb_free.checked=truethenl_str_printtool.str_dw=dw_freeelsel_str_printtool.str_dw=dw_tableendif//主标题l_str_printtool.str_title_1=''//副标题，如果赋值'today'打印时自动显示当前日期l_str_printtool.str_title_2=''//脚注，如果赋值'today'打印时自动显示当前日期l_str_printtool.str_title_3=g_date//主标题下划线，1有下划线，其它无下划线l_str_printtool.str_underline_1=1//副标题下划线，1有下划线，其它无下划线l_str_printtool.str_underline_2=0//脚注下划线，1有下划线，其它无下划线l_str_printtool.str_underline_3=0//脚注对齐方式，1右对齐，2中间对齐，3左对齐，其它无效l_str_printtool.str_align_3=3//调用打印窗口openWithparm(w_printtool,l_str_printtool)ruelongr_row,Netstringr_sheet_type_code,r_flag_codeNet=MessageBox("提示","是否真的保存?",Exclamation!,YESNO!,1)IFNet=2THENreturndw_free.accepttext()dw_table.accepttext()iff_check_null(i_type,dw_table,'')=1thenmessagebox('提示','修改后再保存!')returnendifr_row=dw_free.getrow()ifnot(dw_free.rowcount()>=1)thenreturnifdw_free.update()>0thencommit。dw_free.reset()sle_count.text=''messagebox('提示','保存成功!')elserollback。messagebox('提示','保存失败!')returnendif明w_selectessageStringParmw_selectstringi_type,i_form,i_where_sql,i_modi_sql,i_orig_sqlintegeri_colstringi_str_precolumn=""integeri_int_clicktime=0longi_x,i_y,i_width,i_height,i_rowstringename[],coltype[],col_width[],col_height[],col_height_t[]doublecol_y[],col_y_t[],col_interval[],col_interval_tstringi_xh_xx_cstringi_tip_flag,i_click_tipdatawindowchildi_dwcdatawindowi_dwstringi_titleOpen!Open!i_orig_sql=dw_table.Describe('DataWindow.Table.i_type=Message.StringParmCHOOSECASEi_typeCASE"c_operator"ATAOBJECTdwcoperatorgriddw_free.DATAOBJECT="dw_c_operator_free"i_title="操作员情况表"CASE"c_corp"dw_table.DATAOBJECT="dw_c_corp_grid"dw_free.DATAOBJECT="dw_c_corp_free"i_title="公司信息"ENDCHOOSEdw_table.settransobject(sqlca)dw_free.settransobject(sqlca)dw_table.sharedata(dw_free)this.title=i_title+'查询'dw_table.object.datawindow.readonly='yes'columnw_select:dw_columnSelect')integeristringr_col,r_col_nameFORi=1TOi_colr_col='#'+string(i)r_col_name="#"+string(i)+".Name"//"#i"代表第i列,#1.Name为第一列列名.ename[i]=dw_table.describe(r_col_name)//ename[i]放第i列列名.coltype[i]=dw_table.describe(ename[i]+".ColType")NEXTrb_table.triggerevent(clicked!)rb_table.checked=truei_dw=dw_tabledw_free.x=dw_table.xdw_free.y=dw_table.ydw_free.width=dw_table.widthdw_free.height=dw_table.heighthisGetClickedColumnTRUEsslecountcountthisrowcountserowcountthenifirowandrrowcountthenseseift//对于列标题，取得的对象是列名+"_t"ifstr_column=i_str_precolumnthen//已点击过序ffrmatif>longr_rowi_dw.scrollpriorrow()r_row=i_dw.getrow()ifi_dw.getrow()=1thenthis.enabled=falsecb_first.enabled=falseendifcb_last.enabled=truecb_next.enabled=truegf_dw_count(dw_table,sle_count)longr_rowi_dw.scrollnextrow()r_row=i_dw.getrow()ifi_dw.getrow()=i_dw.rowcount()thenthis.enabled=falsecb_last.enabled=falseendifcb_first.enabled=truecb_prior.enabled=truegf_dw_count(dw_table,sle_count)i_dw.scrolltorow(1)this.enabled=falsecb_prior.enabled=falsecb_last.enabled=truecb_next.enabled=truegf_dw_count(dw_table,sle_count)i_dw.scrolltorow(i_dw.rowcount())this.enabled=falsecb_next.enabled=falsecb_first.enabled=truecb_prior.enabled=truegf_dw_count(dw_table,sle_count)//定义结构，存放调用参数str_printtooll_str_printtoolifrb_free.checked=truethenl_str_printtool.str_dw=dw_freeelsel_str_printtool.str_dw=dw_tableendif//主标题l_str_printtool.str_title_1=''//副标题，如果赋值'today'打印时自动显示当前日期l_str_printtool.str_title_2=''//脚注，如果赋值'today'打印时自动显示当前日期l_str_printtool.str_title_3=g_date//主标题下划线，1有下划线，其它无下划线l_str_printtool.str_underline_1=1//副标题下划线，1有下划线，其它无下划线l_str_printtool.str_underline_2=0//脚注下划线，1有下划线，其它无下划线l_str_printtool.str_underline_3=0它无效l_str_printtool.str_align_3=3//调用打印窗口openWithparm(w_printtool,l_str_printtool)wtableiorigsqlslecountueventclickedrwheresqli_modi_sql="DataWindow.Table.Select='"+//i_modi_sql="DataWindow.Table.Select='"+r_state=dw_table.Modify(i_modi_sql)dwtableRetrieveteENDIFtdwtableslecountringrstringrcolprimarymodstringeolcountrrownWithParmwcolcopydwsMessageStringParmrtrstringtableSortventclickedthparmwfilterdwtableueventclickedse窗口名w_i_o_ini无数主要功能数据导入导出表初始窗口无明w_i_w_i_o_ini:ronmentaOpen!w=PixelsToUnits(a.screenwidth,xpixelstounits!)h=PixelsToUnits(a.screenheight,ypixelstounits!)move((w-width)/2,(h-height)/2)进行初始化?",Exclamation!,YESNO!,2)ourGlassowMessageBox"提示","导入导出表初始化完毕!")w_i_oessageStringParm数明gsqlideptcodeatflagstringi_filename,i_tablename//用于生成导出的文datetemprintervaltervalaterdatetemprdatefdateafterdayrdatetemprdatestringRelativeDatedaterdatetemprdatefdateaftermonthrdatetemp)datefdateafterquarterrdatetemprdatefdateafteryearrdatetempreturnstringdate(r_date),'yyyy-mm-dd')2reerfilenamerrowrdatertablenamefiles(*.dbf),*.dbf,"+&files(*.txt),*.txt,"+&files(*.dbf),*.dbf,"+&files(*.txt),*.txt,"+&//3、修改路径、操作员、文件名、文件类型、操作日期temrrowdater_date2)败!")败!")////3gdrpathrfilenamerrowrdatei=i+1i=i+1)//覆盖Euntintegertabcopytabpagemaindwmain.object.datawindowEuntintegertabcopytabpagemaindwmain.object.datawindow.column.count)//dw_table数据escribecribeDataWindowTableSelect)FORi=1TOr_col_countrcolstringi+'.Name'bercolifnot(ename[i]='save_import_code'orhinesenamethenrmodirmodienamei+'.width=0'emaindwmainmodifyrmodidwcopytablerepeatvisibleitemdwcopytablerepeatxtabletablenametext'eTtabpagemaindwmaindescriisisagemaindwmaindataobjectdwsave_import'mainagemaindwmaindataobjectdwsave_import'mainsettransobjectsqlcdeptsettransobjectsqlcwintervalsettransobjectindwsaveimportsettransobjewmeancodesettransobjectwfiletypesettransobjecttabpagemaindwdeptinsertrowbpagemaindwmeancodeinsertrowbpagemaindwintervalinsertrowabpagemaindwsaveimportinsertrowbpagemaindwfiletypeinsertrowemaindwsaveimportsetitemageitemddlbdriveDirListtemddlbdrivetextgdrive//g_drive:'[-e-]'eitemddlbdrivevisiblefalsetemstdrivevisiblefalseabpagemaindwmainObjectDataWindowRtemdwcopytableObjectDataWidOnlyNosaveimportObjectDataWeitemcbcopyenabledfalsemenabledfalseeOOSECASEitypeoperatortabcopytabpagemainsletablename.text='c_oeemainslechinesenametexttabcopytabpagemaintabcopytabpagemainsledwnametext'dw_c_ow_i_o:CASEall用于维护agemainslechinesenametexttab_copy.tabpage_main.sle_dw_name.text=''ififnotrow>0thenreturnThis.SetRow(row)This.SelectRow(0,FALSE)_code')tabpage_mifi_save_import='01'then//'01'导入i_title='导入'+this.getitemstring(row,'chinese_name')ain.elseifi_save_import='02'then//'02'导出i_ti