CN105045728B

CN105045728B - 一种本地缓存方法

Info

Publication number: CN105045728B
Application number: CN201510503426.3A
Authority: CN
Inventors: 舒鹏飞
Original assignee: Inspur General Software Co Ltd
Current assignee: Inspur General Software Co Ltd
Priority date: 2015-08-17
Filing date: 2015-08-17
Publication date: 2018-05-01
Anticipated expiration: 2035-08-17
Also published as: CN105045728A

Abstract

本发明公开了一种本地缓存方法，包括如下步骤：首先对外提供功能界面格式的本地缓存和恢复接口；然后对外提供功能界面数据的本地缓存和恢复接口；最后根据本地缓存的功能调用相应的格式或数据的本地缓存和恢复接口。本发明的一种本地缓存方法与现有技术相比，通过格式缓存接口记录和恢复某个功能的界面格式，通过数据缓存接口记录和恢复用户输入某个功能界面的数据信息；从而满足各种缓存需求，满足各种使用人员的操作习惯，灵活性高，实用性强，易于推广。

Description

一种本地缓存方法

技术领域

本发明涉及计算机技术领域，具体地说是一种本地缓存方法。

背景技术

通用ERP软件产品一般应用比较复杂，单据信息项多且难以满足所有使用人员的操作习惯，实际使用中普遍存在这样的需求：表格窗口要能够记住我上次设置的列顺序及宽度、索引窗口要能够记住我上次输入的条件信息、单据信息在没有完整录入（不符合单据保存条件）的情况下能够缓存在本地，下次登录后继续完成录入等等，基于此，本发明提供提供一种可满足上述需求的本地缓存方法。

发明内容

本发明的技术任务是针对以上不足之处，提供一种本地缓存方法。

本发明解决其技术问题所采用的技术方案是：

一种本地缓存方法，包括如下步骤：

首先对外提供功能界面格式的本地缓存接口和本地恢复接口；

然后对外提供功能界面数据的本地缓存接口和本地恢复接口；

最后根据本地缓存的功能调用相应的格式或数据的本地缓存接口和本地恢复接口。

所述功能界面格式的本地缓存接口和本地恢复接口中，本地缓存接口用于区分数据库实例、操作员创建本地的格式缓存文件；本地恢复接口用于区分数据库实例、操作员找到相应的格式缓存文件并重置界面。

所述功能界面格式的本地缓存接口提供过程为：

1）对外提供一个接口，接口有两个参数：要缓存格式的界面控件、唯一标识该界面控件的标识；

2）实现界面格式的本地缓存接口：

创建一级格式缓存文件夹；

在一级格式缓存文件夹下继续按数据库实例和操作员的组合创建二级格式缓存文件夹；

在二级格式缓存文件夹下以传入的唯一标识参数命名并创建格式缓存文件；

将通过参数传入的界面控件的语法保存到上一步创建的格式缓存文件中。

所述功能界面格式的本地恢复接口提供过程为：

1）对外提供一个接口，接口有两个参数：要恢复本地缓存格式的界面控件、唯一标识该界面控件的标识；

2）实现界面格式的本地恢复接口：

按照格式缓存文件的创建规则获取格式缓存文件名，该获取的格式缓存文件名中包含完整路径；

读取格式缓存文件的内容并重置相关界面控件。

所述功能界面数据的本地缓存接口和本地恢复接口中，本地缓存接口用于区分数据库实例、操作员创建本地的数据缓存文件；本地恢复接口用于区分数据库实例、操作员找到相应的数据缓存文件并将文件的内容逐个赋值到相应的界面控件上，赋值后触发原有界面的值改变事件，完成重新恢复的数据是否合法的校验。

所述功能界面数据的本地缓存接口提供过程为：

1）对外提供一个接口，接口有两个参数：要缓存数据的界面控件、唯一标识该界面控件的标识；

2）实现功能界面数据的本地缓存接口：

在程序目录下创建一级数据缓存文件夹；

在一级数据缓存文件夹下继续按数据库实例和操作员的组合创建二级数据缓存文件夹；

在二级数据缓存文件夹下以传入的唯一标识参数命名并创建数据缓存文件；

将通过参数传入的界面控件中的数据导出到上一步创建的数据缓存文件中。

所述功能界面数据的本地恢复接口提供过程为：

1）对外提供一个接口，接口有两个参数：要恢复本地缓存数据的界面控件、唯一标识该界面控件的标识；

2）实现功能界面数据的本地恢复接口：

按照数据缓存文件的创建规则获取数据缓存文件名，该文件名包含其获取完整路径；

读取数据缓存文件的内容并逐个单元格赋值到界面控件，赋值后并触发界面控件本身的数据校验事件，判断缓存数据是否仍然合法。

本发明的一种本地缓存方法和现有技术相比，具有以下有益效果：

本发明的一种本地缓存方法，对原有的软件开发方式没有任何影响，可以以扩展的模式在原有代码的基础上调用相关组件，完成格式或数据的本地缓存和恢复，在数据缓存方面该技术能够充分利用原有软件的业务逻辑处理保证重新恢复的数据合法有效。本发明的本地缓存技术具有简单、实用、通用的特点；本方法通过格式缓存接口记录和恢复某个功能的界面格式，通过数据缓存接口记录和恢复用户输入某个功能界面的数据信息；从而满足各种缓存需求，满足各种使用人员的操作习惯，灵活性高，实用性强，易于推广。

具体实施方式

下面结合具体实施例对本发明作进一步说明。

本发明的一种本地缓存方法，包括如下步骤：

所述功能界面格式的本地缓存和恢复接口中，格式缓存接口用于区分数据库实例、操作员创建本地的格式缓存文件；格式恢复接口用于区分数据库实例、操作员找到相应的格式缓存文件并重置界面。

所述功能界面格式的本地缓存接口提供过程为：

1）对外提供一个接口，接口有两个参数：

datawindow p_dw：要缓存格式的界面控件；

string p_ljbs：唯一标识该界面控件的标识；

2）实现界面格式的本地缓存接口：

创建一级格式缓存文件夹；

所述功能界面格式的本地恢复接口提供过程为：

1）对外提供一个接口，接口有两个参数：

datawindow p_dw：要恢复本地缓存格式的界面控件；

string p_ljbs：唯一标识该界面控件的标识；

2）实现界面格式的本地恢复接口：

读取格式缓存文件的内容并重置相关界面控件。

所述功能界面数据的本地缓存接口提供过程为：

1）对外提供一个接口，接口有两个参数：

datawindow p_dw：要缓存数据的界面控件；

string p_ljbs：唯一标识该界面控件的标识；

2）实现功能界面数据的本地缓存接口：

在程序目录下创建一级数据缓存文件夹；

所述功能界面数据的本地恢复接口提供过程为：

1）对外提供一个接口，接口有两个参数：

datawindow p_dw：要恢复本地缓存数据的界面控件；

string p_ljbs：唯一标识该界面控件的标识；

2）实现功能界面数据的本地恢复接口：

实施例：

一、首先提供开发界面格式的本地缓存接口，提供过程具体为：

function integer f_sc_dwsyntax_save (datawindow p_dw, string p_ljbs)//保存数据窗口语法

ls_dir = trim(gscurdir)//软件的安装目录

ls_dir1 = ls_dir+"$LocalSyntax$"//格式文件本地缓存目录

ls_server = sqlca.servername//数据库实例名

//格式文件的绝对路径-软件安装目录\格式临时目录\数据库实例名+数据库类型+帐套编号+操作员编号\数据窗口唯一别名

ls_dir2 = ls_dir+"$LocalSyntax$\"+ls_server+GSkind+GsZtbh+"-"+GsZgbh

ls_file = ls_dir2+"\"+p_ljbs+".srd"

//获取格式内容

ls_SynTax= p_dw.Object.DataWindow.Syntax

//创建格式文件并更新最新格式内容

if not DirectoryExists ( ls_dir2 ) then

CreateDirectory ( ls_dir1 )

CreateDirectory ( ls_dir2 )

end if

ll_FileNum = fileopen(ls_file,StreamMode!,Write!,Shared!,Replace!)//

For ll_i = 1 To ll_Writes

ls_data = Mid(ls_SynTax, ll_CurrentPos, 32765)

ll_CurrentPos += 32765

If FileWrite(ll_FileNum, ls_data) = -1 Then

FileClose(ll_FileNum)

Return -1

End if

二、提供开发界面格式的本地恢复接口，具体提供过程为：

global function integer f_sc_dwsyntax_read (datawindow p_dw, stringp_ljbs) //读取数据窗口语法

ls_dir = trim(gscurdir)//软件的安装目录

ls_server = sqlca.servername//数据库实例名

ls_file = ls_dir+"$LocalSyntax$\"+ls_server+GSkind+GsZtbh+"-"+GsZgbh+"\"+p_ljbs+".srd"

//备份原有格式

ls_SynTax_old= p_dw.Object.DataWindow.Syntax

//备份原有SQL语法

ls_sqlselect_old= p_dw.Describe("datawindow.table.select")//Upper(gsSqlTrans(p_dw.Describe("datawindow.table.select")))

//缓存格式文件不存在则返回-1

IF NOT FileExists ( ls_file ) THEN RETURN -1

//打开格式文件

ll_FileNum = FileOpen(ls_file,StreamMode!,Read!,SHARED!,Replace!)//

//获取缓存的格式内容

FOR i = 1 TO loops

bytes_read = FileRead(ll_FileNum, ls_data)

ls_SynTax = ls_SynTax + ls_data

//数据窗口按缓存格式重置

p_dw.Create(ls_SynTax, ls_err)

//恢复原有SQL语法

p_dw.Modify ( "datawindow.table.select=~"" + ls_sqlselect_old + "~"")。

三、提供开发界面数据的本地缓存接口，具体提供过程为：

global function integer f_sc_dwsave (datawindow p_dw, string p_ljbs)//1success 0null -1error

ls_dir = trim(gscurdir)//软件的安装目录

ls_dir1 = ls_dir+"$LocalData$"//数据文件本地缓存目录

ls_server = sqlca.servername//数据库实例名

//数据文件的绝对路径-软件安装目录\数据临时目录\数据库实例名+数据库类型+帐套编号+操作员编号\数据窗口唯一别名

ls_dir2 = ls_dir+"$LocalSyntax$\"+ls_server+GSkind+GsZtbh+"-"+GsZgbh

ls_file = ls_dir2+"\"+p_ljbs+".XLS"

//创建目录

if not DirectoryExists ( ls_dir2 ) then

CreateDirectory ( ls_dir1 )

CreateDirectory ( ls_dir2 )

end if

if p_dw.SaveAsAscII(ls_file,' ','')=1 then

messagebox('提示信息','导出数据成功！')

return 1

else

messagebox('提示信息','导出数据失败！')

return -1

end if

return 1。

四、提供开发界面数据的本地恢复接口，具体提供过程为：

global function integer f_sc_ dwread (datawindow p_dw, string p_ljbs)

ls_dir = trim(gscurdir)//软件的安装目录

ls_server = sqlca.servername//数据库实例名

//缓存文件的绝对路径-软件安装目录\数据临时目录\数据库实例名+数据库类型+帐套编号+操作员编号\数据窗口唯一别名

ls_file = ls_dir+"$LocalData$\"+ls_server+GSkind+GsZtbh+"-"+GsZgbh+"\"+p_ljbs+".XLS"

OLEObject lole_xls

Integer li_return

// 产生oleobject的实例

lole_xls = CREATE OLEObject

//连接ole对象

li_return = lole_xls.ConnectToNewObject( "excel.application" )

IF li_return < 0 THEN

MessageBox("连接失败!","连接到EXCEL失败,请确认您的系统是否已经安装EXCEL!~r~n错误代码:"+String(li_return))

RETURN -1

END IF

// 打开EXCEL文件

lole_xls.Application.Workbooks.Open(ls_file)

long ll_xls_Rcount,ll_xls_Ccount

ll_xls_Rcount = lole_xls.ActiveSheet.UsedRange.Rows.Count

ll_xls_Ccount = lole_xls.ActiveSheet.UsedRange.Columns.Count

if ll_xls_Rcount < 2 or isnull(ll_xls_Rcount) then goto err

//列名匹配

String ls_Col[],ls_ColType[]

Long ll_Cell[]

String ls_colname,ls_temp,ls_coltext

Long ll_count, n , nn,i = 0

ll_count = Long(pdw.Describe("datawindow.column.count"))

IF IsNull(ll_count) OR ll_count < 1 THEN GOTO err

FOR n = 1 TO ll_count

ls_colname = pdw.Describe("#" + String(n) + ".Name")

ls_temp = pdw.Describe(ls_colname + ".visible")

IF ls_temp = "0" THEN CONTINUE //

ls_coltext = Trim(pdw.Describe(ls_colname+"_t.text"))

IF IsNull(ls_coltext) OR Trim(ls_coltext) = '' THEN CONTINUE

FOR nn = 1 TO ll_xls_Ccount

ls_temp = Trim(String(lole_xls.ActiveSheet.Cells(1,nn).value))//第一行要求是列名

IF ls_temp = ls_coltext THEN EXIT //通过判断标题

i ++

ls_Col[i] = ls_colname//列名

ls_ColType[i] = pdw.Describe("#" + String(n) + ".ColType")//类型

ll_Cell[i] = nn//EXCEL列序

IF ll_count < 1 THEN GOTO err

//数据窗口赋值

Long ll_row_xls = 2,ll_row_dw

String ls_data

Double ld_data

DO WHILE ll_row_xls <= ll_xls_Rcount

IF ll_row_xls = 2 THEN pdw.SelectRow(0,FALSE)

ll_row_dw = pdw.InsertRow(0)

pdw.SelectRow(ll_row_dw,TRUE)

FOR i = 1 TO ll_count

ls_data = Trim(String(lole_xls.ActiveSheet.Cells(ll_row_xls,ll_Cell[i]).Value))

CHOOSE CASE Left(Upper(ls_ColType[i]),3)

CASE "DEC","NUM","REA","LON","INT","ULO"

ld_data = Double(ls_data)

pdw.SetItem(ll_row_dw,ls_Col[i],ld_data)

CASE ELSE

pdw.SetItem(ll_row_dw,ls_Col[i],ls_data)

END CHOOSE

LOOP//

lole_xls.Application.quit()

lole_xls.DisconnectObject()

DESTROY lole_xls

RETURN 1 //success

err:

lole_xls.Application.quit()

lole_xls.DisconnectObject()

DESTROY lole_xls

RETURN -1 //。

五、最后，将需要本地缓存的功能调用相应的格式或数据的本地缓存和恢复接口。其具体实现过程为：

f_sc_dwsyntax_save (datawindow p_dw, string p_ljbs)//保存本地格式

f_sc_dwsyntax_read (datawindow p_dw, string p_ljbs)//读取并恢复本地格式

f_sc_ dwsave (datawindow p_dw, string p_ljbs)//界面数据缓存本地

f_sc_ dwread (datawindow p_dw, string p_ljbs)//恢复本地缓存数据。

通过上面具体实施方式，所述技术领域的技术人员可容易的实现本发明。但是应当理解，本发明并不限于上述的具体实施方式。在公开的实施方式的基础上，所述技术领域的技术人员可任意组合不同的技术特征，从而实现不同的技术方案。

除说明书所述的技术特征外，均为本专业技术人员的已知技术。

Claims

1.一种本地缓存方法，其特征在于,包括如下步骤：

一、首先对外提供功能界面格式的本地缓存接口和本地恢复接口，所述功能界面格式的本地缓存接口用于区分数据库实例、操作员创建本地的格式缓存文件；功能界面格式的本地恢复接口用于区分数据库实例、操作员找到相应的格式缓存文件并重置界面；

所述功能界面格式的本地缓存接口提供过程为：

2）实现功能界面格式的本地缓存接口：

创建一级格式缓存文件夹；

将通过参数传入的界面控件的语法保存到上一步创建的格式缓存文件中；

所述功能界面格式的本地恢复接口提供过程为：

2）实现功能界面格式的本地恢复接口：

读取格式缓存文件的内容并重置相关界面控件；

二、然后对外提供功能界面数据的本地缓存接口和本地恢复接口，所述功能界面数据的本地缓存接口用于区分数据库实例、操作员创建本地的数据缓存文件；功能界面数据的本地恢复接口用于区分数据库实例、操作员找到相应的数据缓存文件并将文件的内容逐个赋值到相应的界面控件上，赋值后触发原有界面的值改变事件，完成重新恢复的数据是否合法的校验；

所述功能界面数据的本地缓存接口提供过程为：

2）实现功能界面数据的本地缓存接口：

在程序目录下创建一级数据缓存文件夹；

将通过参数传入的界面控件中的数据导出到上一步创建的数据缓存文件中；

所述功能界面数据的本地恢复接口提供过程为：

2）实现功能界面数据的本地恢复接口：

读取数据缓存文件的内容并逐个单元格赋值到界面控件，赋值后并触发界面控件本身的数据校验事件，判断缓存数据是否仍然合法；

三、最后根据本地缓存的功能调用相应的功能界面格式的本地缓存接口和本地恢复接口或功能界面数据的本地缓存接口和本地恢复接口。