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

会计信息化库存管理存货核算系统内容摘要：

ng 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=39。 2020010139。 string g_orig,g_warehouse string g_sp_info,g_menu_name boolean gb_db_connected string g_price_power decimal g_dept_interval string g_color=39。 8039。 ,g_color_key=39。 8039。 string g_IPAddress,g_MachineName string g_log_rec=39。 039。 //39。 记录日志标记 139。 ：记录， 39。 039。 ：不记录 string g_sys_name=39。 重庆工学院会计学院 实验案例 39。 string g_p_name=39。 重庆工学院 会计学院会计学院 39。 string g_proj_code=39。 39。 ,g_proj_name=39。 39。 string g_drive=39。 d:\io39。 ,g_pathfilename //导入导出路径 string g_dir_sc=39。 39。 //自动生成路径 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 房间长度 string g_zth=39。 00139。 //帐套号 string g_nkjqj=39。 202039。 //年会计期间 《存货子系统》 全局函数设计。 函数名 函数功能 f_oper_check 判断操作员输入的编码及密码是否合 法 gf_dw_count 显示数据窗口的行数 f_where_exist 判断有无 WHERE 条件 f_string 字符变量的处理 f_sql 判断， 0、 100： false， 1： true gf_ini_table 码表初始化 f_i_o 导入导出初始 f_dw_test_repeat 对数据窗口中的导入数据进行重复性测试 f_dw_test_repeat_del 删除导入导出中的重复数据 函数名 f_oper_check 返回值类型 integer 函数功 能 判断操作员输入的编码及密码是否合法 17 参数定义 r_oper_code:string r_pass:string 脚本 string r_oper_pass SELECT pass INTO :r_oper_pass FROM c_operator WHERE oper_code= :r_oper_code。 IF = 100 then messagebox(g_sys_name,您提供的操作员号码不正确 !) return 1 ELSE IF trim(r_oper_pass) trim(r_pass) THEN messagebox(g_sys_name,您提供的密码和操作员号不符 !~r~r是否没有区分大小写 ?) return 2 END IF END IF return 0 函数名 gf_dw_count 返回值类型 无 函数功能 显示数据窗口的行数 参数定义 r_dw_table: datawindow r_sle_count: singlelineedit 脚本 long r_row,r_count r_count=() r_row=() IF r_row0 and r_count0 THEN =string(r_row)+39。 /39。 +string(r_count) ELSEIF r_count0 then =39。 共 39。 +string(r_count)+39。 条 39。 ELSE =39。 39。 END IF return 函数名 f_where_exist 返回值类型 integer 函数功能 判断有无 WHERE 条件 参数定义 r_orig_sql: string 脚本 if pos(r_orig_sql,39。 WHERE39。 )0 or pos(r_orig_sql,39。 where39。 )0 then return 1 //有 WHERE 条件 else return 0 //无 WHERE 条件 end if 函数名 f_string 返回值类型 string 函数功能 字符变量的处理 参数定义 r:string 18 脚本 IF ISNULL(r) OR TRIM(r)=39。 39。 THEN r=39。 %39。 ELSE r= r+39。 %39。 END IF RETURN r 函数名 f_sql 返回值类型 boolean 函数功能 判断， 0、 100： false， 1： true 参数定义 无 脚本 if =1 then messagebox(39。 sql 错误信息 39。 ,) rollback。 return true else mit。 return false end if 函数名 gf_ini_table 返回值类型 无 函数功能 码表初始化 参数定义 无 脚本 //职位码表 DELETE FROM c_postion。 INSERT INTO c_postion(postion_code, postion_name) VALUES (39。 0139。 ,39。 董事长 39。 )。 INSERT INTO c_postion(postion_code, postion_name) VALUES (39。 0239。 ,39。 副董事长 39。 )。 INSERT INTO c_postion(postion_code, postion_name) VALUES (39。 0339。 ,39。 财务总监 39。 )。 INSERT INTO c_postion(postion_code, postion_name) VALUES (39。 0439。 ,39。 销售总监 39。 )。 //学历码表 c_edu_level INSERT INTO c_edu_level(edu_level_code,edu_level_name ) VALUES (39。 0139。 ,39。 博士 39。 )。 INSERT INTO c_edu_level(edu_level_code,edu_level_name ) VALUES (39。 0239。 ,39。 硕士 39。 )。 INSERT INTO c_edu_level(edu_level_code,edu_level_name ) VALUES (39。 0339。 ,39。 学士 39。 )。 //凭证类型码表 DELETE FROM ZW_C_PZLX。 INSERT INTO ZW_C_PZLX(PZLX_CODE,PZLX_NAME) VALUES (39。 CH39。 ,39。 转账凭证 39。 )。 INSERT INTO ZW_C_PZLX(PZLX_CODE,PZLX_NAME) VALUES (39。 SK39。 ,39。 收款凭证 39。 )。 INSERT INTO ZW_C_PZLX(PZLX_CODE,PZLX_NAME) VALUES (39。 FK39。 ,39。 付款凭证 39。 )。 if f_sql() then return 函数名 f_i_o 返回值类型 无 函数功能 导入导出初始 参数定义 19 脚本 SetPointer(HourGlass!) delete from save_import。 //导入导出码表 delete from c_save_import。 insert into c_save_import values (39。 0139。 ,39。 导入 39。 )。 insert into c_save_import values (39。 0239。 ,39。 导出 39。 )。 delete from c_mean。 insert into c_mean values (39。 0139。 ,39。 固定 39。 )。 insert into c_mean values (39。 0239。 ,39。 自由 39。 )。 insert into c_mean values (39。 0339。 ,39。 生成 39。 )。 delete from c_file_type。 insert into c_file_type values (39。 0139。 ,39。 dbf39。 )。 insert into c_file_type values (39。 0239。 ,39。 txt39。 )。 insert into c_file_type values (39。 0339。 ,39。 excel39。 )。 insert into c_file_type values (39。 0439。 ,39。 sql39。 )。 delete from c_interval。 insert into c_interval values (39。 0039。 ,39。 无 39。 )。 insert into c_interval values (39。 0139。 ,39。 每日 39。 )。 insert into c_interval values (39。 0239。 ,39。 每周 39。 )。 insert into c_interval values (39。 0339。 ,39。 每月 39。 )。 insert into c_interval values (39。 0439。 ,39。 每季度 39。 )。 insert into c_interval values (39。 0539。 ,39。 每年 39。 )。 delete from c_flag_code。 insert into c_flag_code values (39。 0139。 ,39。 成功 39。 )。 insert into c_flag_code values (39。 0239。 ,39。 失败 39。 )。 if f_sql() then return INSERT INTO save_import VALUES ( 39。 00139。 ,39。 c_operator39。 ,39。 dw_c_operator_grid39。 ,39。 0139。 ,39。 0239。 ,39。 D:\io\data39。 , 39。 c_operator39。 ,39。 0139。 ,39。 人员信息39。 ,39。 0039。 ,39。 00039。 ,39。 2020010139。 ,39。 2020010139。 ,39。 0139。 ,39。 39。 ,39。 39。 )。 INSERT INTO save_import VALUES ( 39。 00139。 ,39。 c_operator39。 ,39。 dw_c_operator_grid39。 ,39。 0239。 ,39。 0239。 ,39。 D:\io\data39。 , 39。 c_operator39。 ,39。 0139。 ,39。 人员信息39。 ,39。 0039。 ,39。 00039。 ,39。 2020010139。 ,39。 2020010139。 ,39。 0139。 ,39。 39。 ,39。 39。 )。 SetPointer(arrow!) if f_sql() then return else // messagebox(39。 提示 39。 ,39。 导入导出表初始成功 !39。 ) end if return 函数名 f_dw_test_repeat 返回值类型 long 函数功能 对数据窗口中的导入数据进行重复性测试 20 参数定义 r_type:string r_dw: datawindow r_sle: singlelineedit 脚本 long r_row,r_rowcount,r_count,r_select,r_return=0 string r_primary[] r_rowcount=() r_type=lower(r_type) CHOOSE CASE r_type CASE 39。 c_operator39。 r_count=1 //关键字段数 r_primary[r_count]=39。 39。 FOR r_row=1 TO r_rowcount r_primary[1]=(r_row,39。 oper_code39。 ) //取关键字 select count(*) into :r_select from c_operator where = :r_primary[1]。 if r_select0 then (r_row, TRUE) r_return=r_return + 1 end i。