修改 SimpleXmlUnt.pas 文件 找到 function ConvertNetToDelphiDataType(sTmpStr:String):String; 函数 ////原代码 if CompareText(sTmpStr,'decimal')=0 then begin Result:='fixed'; exit; end; ////修改后 if CompareText(sTmpStr,'decimal')=0 then begin Result:='i4'; exit; end;
//********** // 创建DataSet //********** procedure InitialDataSet; var i:Integer; sFileName:String; TmpList:TStringList; begin try TmpList:=TStringList.Create; sFileName:=ChangeFileExt(Application.ExeName,'.txt'); if fileexists(sFileName) then TmpList.LoadFromFile(sFileName);
if TmpList.Count=0 then begin TmpList.add('userdata'); TmpList.add('masterdata'); TmpList.Savetofile(sFileName); end;
for i:=1 to TmpList.Count do TfrxdbDataSet.create(Application).Name:=TmpList.Strings[i-1];
finally freeandnil(TmpList); end; end;
//********** // 主程序 //********** begin Application.Initialize; with TfrxReport.create(Application) do try RegFilefilter; InitialDataSet; if ParamCount>0 then LoadFromFile(ParamStr(1)); DesignReport; finally free; end; Application.run; end.