FastReport集粹(一)

unit ReportClass;

interface

uses CommonForm, SysUtils, Classes, Forms, Dialogs, DB, Controls, Grids, ComCtrls,
     FR_DBSet, FR_Class, Printers, FR_Utils, FR_Pars, DBGrids, IniFiles, Variants,
     TypInfo;

type
  TReport = class
  private
    FDatasetArray: array of TDataset;
    FRDataset: array of TfrDBDataset;

    FrmCommon: TfrmCommon; //设置窗体
    FReport: TfrReport; //报表对象
    FPage: TfrPage; //页面对象
    FVariants: TfrVariables; //报表的数据字典变量
    FVariantList: TStrings; //变量列表

    FGridFields: TStrings; //表格的字段=标签
    FGridWidths: TStrings; //表格的字段=宽度
    FGridRowHeight: integer; //表格行高
    FGrid: TCustomGrid; //表格名称

    FTitleMemo: TfrMemoView; //标题头文本框
    FTitleDate: TfrmemoView; //标题日期文本框
    FPrintReportDate: Boolean; //是否打印页头日期
    FOrientation: Boolean; //报表打印方向
    FPrintPageNumber: Boolean; //是否打印页码

    FHeaderFields: TStrings; //页头字段列表
    FDetailFields: TStrings; //明细字段列表
    FFooterFields: Tstrings; //页脚字段列表

    INIFile: TINIFile;
    FFileName: string; //报表的文件名
    FDetailSourceType: string; //报表数据源类型（'TDBGrid'或'TDataset'）
    FReportName: string; //在INI文件中小节的报表的名称
    procedure ShowData;
    function GetVariant: TStrings;
    procedure SetVariants(const Value: TStrings);
  protected
    function GetReportTitle: string;
    procedure SetReportTitle(value: string);

    function GetOrientation: Boolean;
    procedure SetOrientation(value: Boolean);

    function GetPrintReportDate: Boolean;
    procedure SetPrintReportDate(value: Boolean);

    function GetPrintPageNumber: Boolean;
    procedure SetPrintPageNumber(value: Boolean);

    function GetHeaderFields: TStrings;
    procedure SetHeaderFields(const Value: TStrings);

    function GetFooterFields: TStrings;
    procedure SetFooterFields(const Value: TStrings);
    function GetDetailFields: TStrings;
    procedure SetDetailFields(const Value: TStrings);

    function GetFileName: string;
    procedure SetFileName(const Value: string);
   
    function GetGrid: TCustomGrid;
    procedure SetGrid(const Grid: TCustomGrid);
  public
    constructor Create;
    destructor Destroy; override;

    procedure Preview; overload;
    procedure Preview(FileName: string); overload;
    procedure Design; overload;
    procedure Design(FileName: string); overload;

    procedure SetMemoView(MemoView: TfrMemoView; //设置文本框属性
                          Alignment: integer;    //Alignment：文本对齐方式，frtaCenter表示居中对齐
                          FrameTyp: word);       //FrameTyp：边框样式，0：无边框；15：有边框
    function FindBandView(BandType: TfrBandType): TfrBandView; //根据BandView类型返回TfrBandview
    function FindMemoView(Text: string; var CompNo: integer): TfrMemoView; //根据MemoView的文本返回TfrMemoView和序号
    function ShowFieldListForm: Boolean;

    procedure SaveFieldList(ReportName: string); //存储字段列表到报表配置文件中
    procedure LoadFieldList(ReportName: string); //从配置文件中调用字段列表

    procedure SetDataset(Datasets: array of TDataset);
  published
    property Title: string read GetReportTitle write SetReportTitle; //报表标题
    property PrintPageNumber: Boolean read GetPrintPageNumber write SetPrintpageNumber default false; //是否打印报表页码
    property PrintReportDate: Boolean read GetPrintReportDate write SetPrintReportDate default true; //是否打印报表日期
    property Orientation: Boolean read GetOrientation write SetOrientation default true; //页面默认为纵向
    property HeaderFields: TStrings read GetHeaderFields write SetHeaderFields; //页头上要打印的字段列表
    property DetailFields: TStrings read GetDetailFields write SetDetailFields; //明细字体列表
    property FooterFields: TStrings read GetFooterFields write SetFooterFields; //页脚上要打印的字段列表
    property FileName: string read GetFileName write SetFileName;
    property DetailSourceType: string read FDetailSourceType write FDetailSourceType; //明细数据源是'TDBGrid'还是'TDataset'
    property Grid: TCustomGrid read GetGrid write SetGrid;
    property Variants: TStrings read GetVariant write SetVariants; //报表数据字典中的变量
  end;

implementation

{ TReport }

constructor TReport.Create;
var
  band: TfrBandView;
  AppPath: string;
begin
  inherited;
  FHeaderFields := TStringList.Create; //标题字段列表
  FDetailFields := TStringList.Create; //明细字段列表
  FFooterFields := TStringList.Create; //页脚字段列表
  FGridFields := TStringList.Create; //表格字段列表
  FGridWidths := TStringList.Create; //表格字段宽度列表
  FPrintReportDate := true; //默认打印报表日期

  FOrientation := true;
  FReport := TfrReport.Create(nil); //建立报表
  //建立页面
  FReport.Pages.Clear;
  FReport.Pages.Add;
  FPage := FReport.Pages[0];
  FVariants := TfrVariables.Create;
  FVariantList := TStringList.Create;

  Band := TfrBandView.Create; //建立标题条
  Band.SetBounds(tbbLeft, tbbTop, tbbWidth, tbbHeight); //条位置
  Band.BandType := btReportTitle; //条类型
  FPage.Objects.Add(Band);

  FTitleMemo := TfrMemoView.Create; //建立标题文本
  FTitleMemo.SetBounds(tmbLeft, tmbTop, tmbWidth, tmbHeight);
  FTitleMemo.BandAlign := baCenter; //文本框居中
  FTitleMemo.Prop['Alignment'] := frtaCenter or frtaMiddle; //文本的对齐方式(垂直居中)
  FTitleMemo.Prop['Font.Style'] := 2;
  FTitleMemo.prop['Font.Name'] := mvFontName;
  FTitleMemo.Prop['Font.Size'] := 14;
  FPage.Objects.Add(FTitleMemo);

  FPrintReportDate := true;
  SetPrintReportDate(FPrintReportDate);

  frmCommon := TfrmCommon.Create(nil);
  AppPath := ExtractFilePath(Application.ExeName) + 'Reports/';
  if not DirectoryExists(AppPath) then CreateDir(AppPath);
  INIFile := TIniFile.Create(AppPath + 'Reports.ini');
end;

destructor TReport.Destroy;
begin
  FreeAndNil(INIFile);
  FreeAndNil(FHeaderFields);
  FreeAndNil(FFooterFields);
  FreeAndNil(FDetailFields);
  FreeAndNil(FGridWidths);
  FreeAndNil(FGridFields);
  FreeAndNil(frmCommon);
  FreeAndNil(FVariantList);
  FreeAndNil(FVariants);
  FreeAndNil(FReport);
  FDatasetArray := nil;
  inherited;
end;

function TReport.GetReportTitle: string;
begin
  result := FTitleMemo.Memo.Text
end;

procedure TReport.SetReportTitle(value: string);
begin
  FTitleMemo.Memo.Text := value;
  frmCommon.ReportTitle := value;
end;

function TReport.GetOrientation: Boolean;
begin
  result := FOrientation;
end;

procedure TReport.SetOrientation(value: Boolean);
begin
  FOrientation := value;
  if FOrientation then
    Fpage.ChangePaper(Fpage.pgSize, Fpage.pgWidth, Fpage.pgHeight, Fpage.pgBin, poPortrait) //页面横向
  else
    Fpage.ChangePaper(Fpage.pgSize, Fpage.pgWidth, Fpage.pgHeight, Fpage.pgBin, poLandscape); //页面纵向
  FTitleDate.SetBounds(FPage.Prop['Width'] - 70, tdbTop, tdbWidth, tdbHeight);
end;

procedure TReport.Preview;
begin
  ShowData;
  if FReport.PrepareReport then
    FReport.ShowPreparedReport;
end;

procedure TReport.Preview(FileName: string);
var
  s: string;
begin
  s := FileName;
  if s = '' then s := FFileName;
  if s = '' then exit;
  FReport.LoadFromFile(s);
  if FReport.PrepareReport then
    FReport.ShowPreparedReport;
end;

procedure TReport.Design(FileName: string);
var
  s: string;
begin
  s := FileName;
  if s = '' then s := FFileName;
  if s = '' then exit;
  FReport.LoadFromFile(s);
  if FReport.PrepareReport then
    FReport.DesignReport;
end;

procedure TReport.Design;
begin
  ShowData;
  if FReport.PrepareReport then
    FReport.DesignReport;
end;

function TReport.GetPrintReportDate: Boolean;
begin
  result := FPrintReportDate;
end;

procedure TReport.SetPrintReportDate(value: Boolean);
var
  Blank: integer;
begin
  FPrintReportDate := value;
  if FPrintReportDate then
  begin
    FTitleDate := tfrMemoView.Create;
    if FOrientation then //如果是纵向打印
      Blank := 1480
    else
      Blank := 1200;
    FTitleDate.SetBounds(FPage.pgWidth - Blank, tdbTop, tdbWidth, tdbHeight);
    FTitleDate.Memo.Add('[Date]');
    FPage.Objects.Add(FTitleDate);
  end;
end;

function TReport.GetPrintPageNumber: Boolean;
begin
  result := FPrintPageNumber;
end;

procedure TReport.SetPrintPageNumber(value: Boolean);
const
  PageNumber = '[PAGE#]/[TOTALPAGES]';
var
  mv: TfrMemoView;
  Band: TfrBandView;
  CompNo: integer;
begin
  FPrintPageNumber := value;
  Band := FindBandView(btPageFooter);
  if band = nil then //如果没有FooterBand，那么新建一个
  begin
    Band := TfrBandView.Create;
    Band.BandType := btPageFooter;
    band.SetBounds(fbbLeft, fbbTop, fbbWidth, fbbHeight);
    FPage.Objects.Add(Band);
  end;
  if FPrintPageNumber then //如果打印页码
  begin
    FReport.DoublePass := true; //报表只有显示两次才能显示页码
   
    mv := TfrMemoView.Create;
    mv.Memo.Text := PageNumber;
    mv.SetBounds(0, fbbTop, 100, mvHeight);
    mv.BandAlign := baCenter;
    mv.Prop['Alignment'] := frtaMiddle or frtaCenter;
    mv.prop['Font.Name'] := mvFontName;
    mv.Prop['Font.Size'] := mvFontSize;
    FPage.Objects.Add(mv);
  end
  else //如果不打印页码，那么删除已存在的页码文本框
  begin
    mv := FindMemoView(PageNumber, CompNo);
    if mv <> nil then
    begin
      FPage.Delete(CompNo);
      mv.Free;
    end;
  end;
end;

function TReport.FindBandView(BandType: TfrBandType): TfrBandView;
var
  v: TfrBandView;
  i: integer;
begin
  result := nil;
  for i:=0 to FPage.Objects.Count-1 do //查找是否有FooterBand
  begin
    v := FPage.objects[i];
    if (v.ClassNameIs('TfrBandView') and (TfrBandView(v).BandType = BandType)) then
    begin
      result := v;
      exit;
    end;
  end;
end;

function TReport.FindMemoView(Text: string; var CompNo: integer): TfrMemoView;
var
  i: integer;
  v: TfrMemoView;
begin
  result := nil;
  for i:=0 to FPage.Objects.Count-1 do
  begin
    v := FPage.Objects[i];
    if (v.ClassNameIs('TfrMemoView') and (TfrMemoView(v).Memo.Text = Text)) then
    begin
      CompNo := i;
      result := v;
      exit;
    end;
  end;
end;

procedure TReport.SetMemoView(MemoView: TfrMemoView; Alignment: integer; FrameTyp: word);
begin
  if MemoView = nil then exit;
  MemoView.Prop['Alignment'] := frtaMiddle or Alignment;  //文本对齐方式(默认为垂直居中)
  MemoView.prop['Font.Name'] := mvFontName; //字体名称
  MemoView.Prop['Font.Size'] := mvFontSize; //字体尺寸
  if frmCommon.MemoFrameTyp then
    MemoView.FrameTyp := FrameTyp; //边框
end;

////////////////////////////////////给打印字段列表赋值/////////////////////////////

function TReport.GetHeaderFields: TStrings;
begin
  result := FHeaderFields;
end;

procedure TReport.SetHeaderFields(const Value: TStrings);
begin
  FHeaderFields.Assign(value);
end;

function TReport.GetFooterFields: TStrings;
begin
  result := FFooterFields;
end;

procedure TReport.SetFooterFields(const Value: TStrings);
begin
  FFooterFields.Assign(value);
end;

/////////////////////////////////////////////////////////////////////////////////

function TReport.ShowFieldListForm: Boolean;
begin
  frmCommon.HeaderFields := HeaderFields;
  frmCommon.DetailFields := DetailFields;
  frmCommon.FooterFields := FooterFields;

  frmCommon.ShowModal; //显示报表设置窗体
  result := frmCommon.FormCloseMode;
  if not frmCommon.FormCloseMode then exit; //如果窗体是Cancel方式关闭的

  FTitleMemo.Memo.Text := frmCommon.ReportTitle; //返回报表标题

  //获得打印字段列表
  HeaderFields := frmCommon.HeaderFields;
  DetailFields := frmCommon.DetailFields;
  FooterFields := frmCommon.FooterFields;

  if frmCommon.SavePrintFields and (FReportName <> '') then //如果保存打印字段列表
    SaveFieldList(FReportName);
end;

procedure TReport.ShowData;

  function AnalyseText(str: string): string;
  var
    n: integer;
  begin
    result := '';
    n := AnsiPos('.', str);
    if n = 0 then exit;
    insert('"', str, n+1);
    result := str + '"';
  end;

  function GetDisLabelWidth(FieldName: string): integer; //根据字段名得到字段标签的长度
  var
    n, i, j: integer;
    s: string;
  begin
    result := 0;
    s := Fieldname;
    n := AnsiPos('.', s);
    if n > 0 then //如果字段名带有表名前缀
    begin
      Delete(s, 1, n);
    end;
    if s = '' then exit;
    for i:=0 to High(FDatasetArray) do //这个函数没考虑到前缀对应的问题，以后有空改吧
    begin
      for j:=0 to FDatasetArray[i].FieldCount-1 do
      begin
        if FDatasetArray[i].Fields[j].FieldName = s then
        begin
          result := FDatasetArray[i].Fields[j].DisplayWidth * 5; //宽度增加5倍
          exit;
        end;
      end;
    end;
  end;

var
  iCol, iLeft, i, w, h: integer;
  mv: TfrMemoView;
  Band: TfrBandView;
begin
  if FHeaderFields.Count > 0 then
  begin
    iLeft := tmbLeft; //其它字段的位置在打印日期之下
    iCol := 1; //第一行
    for i:=0 to FHeaderFields.Count-1 do
    begin
      if (i mod 3 = 0) and (i > 0) then //一行只显示三列字段
      begin
        inc(iCol, 1);
        iLeft := tmbLeft;
      end;
      mv := TfrMemoView.Create;
      SetMemoView(mv, frtaLeft, 0);
      mv.SetBounds(iLeft, tdbTop + (tdbHeight + 4) * iCol, 200, mvHeight); //4是上下Memo行之间的间隔
      mv.Memo.Text := HeaderFields.ValueFromIndex[i] + '：['
        + FDatasetArray[0].Owner.Name + '.' + AnalyseText(HeaderFields.Names[i]) + ']';
      FPage.Objects.Add(mv);
      inc(iLeft, 200);
    end;
  end
  else //否则不打印页头上的字段列表
  begin
    band := FindBandView(btReportTitle);
    Band.SetBounds(tbbLeft, tbbTop, tbbWidth, 60); //缩小条高度
  end;

  ///////////////////////////////// 明细 ///////////////////////////////////////////

  if frmCommon.UseGridRowHeight then
    h := frmCommon.GridRowHeight
  else
    h := frmCommon.MemoHeight; //得到文本框高度
  //页头
  Band := TfrBandView.Create;
  Band.SetBounds(0, PageBandTop, 0, h);
  Band.BandType := btPageHeader;
  Band.Prop['OnFirstPage'] := true;
  FPage.Objects.Add(Band);

  Band := TfrBandView.Create; //主数据条
  Band.SetBounds(0, PageBandTop + DataBandHeight * 2, 0, h);
  Band.BandType := btMasterData;
  Band.DataSet := 'frmCommon.' + frmCommon.DetailDatasetName; //明细数据条需要一个数据源
  FPage.Objects.Add(Band);

  w := 0;
  for i:=0 to FDetailFields.Count-1 do //求出明细文本框居中时的左起点
  begin
    if frmCommon.UseGridWidth then //如果使用表格的字段列表的宽度
      w := w + StrToInt(FGridWidths.ValueFromIndex[i])
    else
      w := w + GetDisLabelWidth(FDetailFields.Names[i]); //得到数据字段的显示长度
  end;
  iLeft := (FPage.Prop['Width'] - w) div 2;
  if iLeft < 32 then iLeft := 32;

  for i:=0 to FDetailFields.Count -1 do
  begin
    mv := TfrMemoView.Create; //标签
    SetMemoView(mv, frtaCenter, 15);
    if frmCommon.UseGridWidth then //如果使用表格的字段列表的宽度
      w := StrToInt(FGridWidths.ValueFromIndex[i])
    else
      w := GetDisLabelWidth(FDetailFields.Names[i]); //得到数据字段的显示长度
    mv.SetBounds(iLeft, PageBandTop, w, h);
    mv.Memo.Add(DetailFields.ValueFromIndex[i]);
    FPage.Objects.Add(mv);

    mv := TfrMemoView.Create; //记录
    mv.SetBounds(iLeft, PageBandTop + DataBandHeight * 2, w, h);
    if frmCommon.MemoFrameTyp then //文本框是否有边框
      SetMemoView(mv, frtaLeft, 15) //设置文本框属性
    else
      SetMemoView(mv, frtaLeft, 0);
    mv.Memo.Text := '[' + FDatasetArray[0].Owner.Name + '.'
      + AnalyseText(DetailFields.Names[i]) + ']';
    FPage.Objects.Add(mv);
   
    inc(iLeft, w);
  end;

  if iLeft > FPage.Prop['width'] then //如果文本框超过了页面的长度，
  begin
    SetOrientation(false); //那么页面自动转为横向打印
    FTitleDate.SetBounds(FPage.Prop['width'] - tdbWidth - 70, tdbTop, tdbWidth, tdbHeight);
  end;

  ////////////////////////////////// 页脚 ////////////////////////////////////////////////

  if FFooterFields.Count > 0 then
  begin
    Band := FindBandView(btReportSummary);
    if band = nil then //如果没有FooterBand，那么新建一个
    begin
      Band := TfrBandView.Create;
      Band.BandType := btReportSummary;
      band.SetBounds(rfbLeft, rfbTop, rfbWidth, rfbHeight);
      FPage.Objects.Add(Band);
    end;

    iLeft := tmbLeft; //其它字段的位置在打印日期之下
    iCol := 0;
    for i:=0 to FFooterFields.Count-1 do
    begin
      if (i mod 3 = 0) and (i > 0) then //一行只显示三列字段
      begin
        inc(iCol, 1);
        iLeft := tmbLeft;
      end;
      mv := TfrMemoView.Create;
      SetMemoView(mv, frtaLeft, 0);
      mv.SetBounds(iLeft, rfbTop + (tdbHeight + 4) * iCol, 200, mvHeight);
      mv.Memo.Text := FFooterFields.ValueFromIndex[i] + '：['
        + FDatasetArray[0].Owner.Name + '.' + AnalyseText(FFooterFields.Names[i]) + ']';
      FPage.Objects.Add(mv);
      inc(iLeft, 200);
    end;
  end
  else //否则不打印页脚上的字段列表
  begin

  end;
end;

function TReport.GetFileName: string;
begin
  result := FFileName;
end;

procedure TReport.SetFileName(const Value: string);
begin
  FFileName := value;
  FReport.LoadFromFile(FFileName);
end;

procedure TReport.SaveFieldList(ReportName: string);
var
  i: integer;
  s: string;
begin
  if ReportName = '' then exit;
  s := '';
  for i:=0 to HeaderFields.Count-1 do
    s := s + HeaderFields.Strings[i] + ',';
  delete(s, length(s), 1); //删除最后一个','号
  INIFile.WriteString(ReportName, 'Title', s);

  s := '';
  for i:=0 to DetailFields.Count-1 do
    s := s + DetailFields.Strings[i] + ',' ;
  delete(s, length(s), 1);
  INIFile.WriteString(ReportName, 'Detail', s);

  s := '';
  for i:=0 to FooterFields.Count-1 do
    s := s + FooterFields.Strings[i] + ',' ;
  delete(s, length(s), 1);
  INIFile.WriteString(ReportName, 'Footer', s);
end;

//从配置文件中得到要打印的字段，然后加入Listview中
procedure TReport.LoadFieldList(ReportName: string);
var
  s: string;
begin
  FReportName := ReportName;
  HeaderFields.CommaText := INIFile.ReadString(ReportName, 'Title', '');
  //注意：当调用了LoadFieldList之后，再执行SetGrid，那么DetailFields的字段列表会被FGridFields的字段列表覆盖
  DetailFields.CommaText := IniFile.ReadString(ReportName, 'Detail', '');
  FooterFields.CommaText := INIFile.ReadString(ReportName, 'Footer', '');

  if Detailfields.Count > 0 then
  begin
    s := DetailFields.Names[DetailFields.Count-1]; ;//最后一个字段的前缀就是明细数据条的数据源
    frmCommon.DetailDatasetName := Copy(s, 1, AnsiPos('.', s)-1);
  end;
end;

function TReport.GetDetailFields: TStrings;
begin
  result := FDetailFields;
end;

procedure TReport.SetDetailFields(const Value: TStrings);
begin
  FDetailFields.Assign(value);
end;

procedure TReport.SetDataset(Datasets: array of TDataset);
var
  i, j, iLen: integer;
  Dataset: TDataset;
  TvFields: TTreeView;
  MainNode: TTreeNode;
  b: Boolean;
begin
  for i:=0 to high(Datasets) do //把数据集逐一赋给FDatasetArray
  begin
    b := false;
    for j:=0 to high(FDatasetArray) do //先判断数组中是否已存在要加入的数据集
    begin
      b := false;
      if FDatasetArray[j].Name = Datasets[i].Name then
      begin
        b := true;
        break;
      end;
    end;

    if not b then
    begin
      iLen := high(FDatasetArray) + 2; //得到数组的上标(动态数组作为参数，其下标总是从0开始)，长度加2才是数量
      SetLength(FDatasetArray, iLen);
      SetLength(FRDataset, iLen);

      dec(iLen);
      FDatasetArray[iLen] := Datasets[i]; //数量减去1才是维数
      FRDataset[iLen] := TfrDBDataset.Create(frmCommon);
      FRDataset[iLen].DataSet := FDatasetArray[iLen];
      frDataset[iLen].Name := FDatasetArray[iLen].Name;
    end;

  end;

  tvFields := TTreeView.Create(nil); //因为打算用一个树形结构来表示所有字段，为便于赋值，干脆把整棵树赋值给frmCommon（有时间改为Stream比较好）
  try
    tvFields.Parent := frmCommon;
    for i:=0 to high(FDatasetArray) do
    begin
      Dataset := FDatasetArray[i];
      MainNode := tvFields.Items.Add(nil, Dataset.Name);
      for j:=0 to Dataset.FieldCount-1 do
        tvFields.Items.AddChild(MainNode, Dataset.Fields[j].FieldName
          + '[' + Dataset.Fields[j].DisplayLabel + ']');
    end;

    frmCommon.tvFields.Items.Assign(tvFields.Items); //把树赋给frmCommon
  finally
    tvFields.Free;
  end;
end;

function TReport.GetGrid: TCustomGrid;
begin
  result := FGrid;
end;

procedure TReport.SetGrid(const Grid: TCustomGrid);
var
  PropInfo:PPropInfo;
  DBGrid: TDBGrid;
  i: integer;
  Dataset: TDataset;
begin
  FGrid := Grid;
  if not assigned(Grid) then exit;
  PropInfo := GetPropInfo(Grid,'DataSource'); //查找Grid是否有DataSource属性
  if PropInfo <> nil then //如果有
  begin
    DBGrid := TDBGrid.Create(nil);
    try
      //得到表格数据源的数据集的名称
      //为了不引用EhLib.pas也能得到TDBGridEh.Datasource.Dataset.Name，所以使用了RTTI
      //这样的好处不仅在TDBGridEh中体现，以后使用了别的DBGrid，只要它有DataSource，也能得到其数据集的名称
      SetObjectProp(DBGrid, 'DataSource', GetObjectProp(Grid, 'DataSource'));
      if not assigned(DBGrid.DataSource) then exit;
      Dataset := DBGrid.DataSource.DataSet;
      if Dataset = nil then exit;
      SetDataset(DataSet);

      PropInfo := GetPropInfo(Grid, 'Columns'); //查找Grid是否有Columns属性
      if PropInfo <> nil then
      begin
        SetObjectProp(DBGrid, 'Columns', GetObjectProp(Grid, 'Columns'));
        if not assigned(DBGrid.Columns) then exit;
        for i:=0 to DBGrid.Columns.Count-1 do
        begin
          if DBGrid.Columns[i].Visible then //只挑选可视的字段
          begin
            FGridFields.Add(Dataset.Name + '.' + Dataset.Fields[i].FieldName + '=' + DBGrid.Columns[i].DisplayName);
            FGridWidths.Add(Dataset.Name + '.' + Dataset.Fields[i].FieldName + '=' + IntToStr(DBGRid.Columns[i].Width));
          end;
        end;
      end;

      PropInfo := GetPropInfo(Grid, 'RowHeight'); //查找Grid是否有RowHeight属性
      if PropInfo <> nil then
      begin
        FGridRowHeight := GetPropValue(Grid, 'RowHeight', false);
        frmCommon.GridRowHeight := FGridRowHeight;
      end;

      //把DetailFields的字段列表清空，并把Grid的字段加入DetailFields中
      //这样处理有个问题：当调用了LoadFieldList后，DetailFields从FGridFields中得到的字段列表会被配置文件中的字段列表覆盖
      DetailFields.Clear;
      for i:=0 to FGridFields.Count-1 do
        DetailFields.Add(FGridFields.Strings[i]);

    finally
      FreeAndNil(DBGrid);
    end;
  end;

end;

function TReport.GetVariant: TStrings;
begin
  result := FVariantList;
end;

procedure TReport.SetVariants(const Value: TStrings);
var
  i: integer;
begin
  //注意：如果要传字符串变量，那么格式为'Name=''Value'''；如果要传数值变量，那么格式为'Name=1'
  FvariantList.Assign(value);
  FReport.Dictionary.Variables[' VariantList'] := ''; //变量root
  for i:=0 to FVariantList.Count-1 do //把变量列表加入数据字典
    FReport.Dictionary.Variables[value.Names[i]] := value.ValueFromIndex[i];
end;

end.

 

你可能感兴趣的:(port)

  • LocalDateTime 转 String igotyback java开发语言
    importjava.time.LocalDateTime;importjava.time.format.DateTimeFormatter;publicclassMain{publicstaticvoidmain(String[]args){//获取当前时间LocalDateTimenow=LocalDateTime.now();//定义日期格式化器DateTimeFormatterformat
  • swagger访问路径 igotyback swagger
    Swagger2.x版本访问地址：http://{ip}:{port}/{context-path}/swagger-ui.html{ip}是你的服务器IP地址。{port}是你的应用服务端口，通常为8080。{context-path}是你的应用上下文路径，如果应用部署在根路径下，则为空。Swagger3.x版本对于Swagger3.x版本（也称为OpenAPI3）访问地址：http://{ip
  • python os.environ_python os.environ 读取和设置环境变量 weixin_39605414 pythonos.environ
    >>>importos>>>os.environ.keys()['LC_NUMERIC','GOPATH','GOROOT','GOBIN','LESSOPEN','SSH_CLIENT','LOGNAME','USER','HOME','LC_PAPER','PATH','DISPLAY','LANG','TERM','SHELL','J2REDIR','LC_MONETARY','QT_QPA
  • python os 环境变量 CV矿工 python开发语言numpy
    环境变量：环境变量是程序和操作系统之间的通信方式。有些字符不宜明文写进代码里，比如数据库密码，个人账户密码，如果写进自己本机的环境变量里，程序用的时候通过os.environ.get（）取出来就行了。os.environ是一个环境变量的字典。环境变量的相关操作importos"""设置/修改环境变量：os.environ[‘环境变量名称’]=‘环境变量值’#其中key和value均为string类
  • 推荐算法_隐语义-梯度下降 _feivirus_ 算法机器学习和数学推荐算法机器学习隐语义
    importnumpyasnp1.模型实现"""inputrate_matrix:M行N列的评分矩阵，值为P*Q.P:初始化用户特征矩阵M*K.Q:初始化物品特征矩阵K*N.latent_feature_cnt:隐特征的向量个数max_iteration:最大迭代次数alpha:步长lamda:正则化系数output分解之后的P和Q"""defLFM_grad_desc(rate_matrix,l
  • 自然语言处理_tf-idf _feivirus_ 算法机器学习和数学自然语言处理tf-idf逆文档频率词频
    importpandasaspdimportmath1.数据预处理docA="Thecatsatonmyface"docB="Thedogsatonmybed"wordsA=docA.split("")wordsB=docB.split("")wordsSet=set(wordsA).union(set(wordsB))print(wordsSet){'on','my','face','sat',
  • K近邻算法_分类鸢尾花数据集 _feivirus_ 算法机器学习和数学分类机器学习K近邻
    importnumpyasnpimportpandasaspdfromsklearn.datasetsimportload_irisfromsklearn.model_selectionimporttrain_test_splitfromsklearn.metricsimportaccuracy_score1.数据预处理iris=load_iris()df=pd.DataFrame(data=ir
  • 用Python实现简单的猜数字游戏 程序媛了了 python游戏java
    猜数字游戏代码：importrandomdefpythonit():a=random.randint(1,100)n=int(input("输入你猜想的数字："))whilen!=a:ifn>a:print("很遗憾，猜大了")n=int(input("请再次输入你猜想的数字："))elifna::如果玩家猜的数字n大于随机数字a，则输出"很遗憾，猜大了"，并提示玩家再次输入。elifn
  • 用Python实现读取统计单词个数 程序媛了了 python游戏java
    完整实例代码：fromcollectionsimportCounterdefpythonit():danci={}withopen("pythonit.txt","r",encoding="utf-8")asf:foriinf:words=i.strip().split()forwordinwords:ifwordnotindanci:danci[word]=1else:danci[word]+=
  • esp32开发快速入门 8 : MQTT 的快速入门，基于esp32实现MQTT通信 z755924843 ESP32开发快速入门服务器网络运维
    MQTT介绍简介MQTT（MessageQueuingTelemetryTransport，消息队列遥测传输协议），是一种基于发布/订阅（publish/subscribe）模式的"轻量级"通讯协议，该协议构建于TCP/IP协议上，由IBM在1999年发布。MQTT最大优点在于，可以以极少的代码和有限的带宽，为连接远程设备提供实时可靠的消息服务。作为一种低开销、低带宽占用的即时通讯协议，使其在物联
  • vue3中el-table中点击图片放大时，被表格覆盖 叫我小鹏呀 vue.jsjavascript前端
    问题：vue3中el-table中点击图片放大时，被表格覆盖。解决方法：el-image添加preview-teleported
  • vue项目element-ui的table表格单元格合并 酋长哈哈 vue.jselementuijavascript前端
    一、合并效果二全部代码exportdefault{name:'CellMerge',data(){return{tableData:[{id:'1',name:'王小虎',amount1:'165',amount2:'3.2',amount3:10},{id:'1',name:'王小虎',amount1:'162',amount2:'4.43',amount3:12},{id:'1',name:'
  • python tif转png Python与遥感 python开发语言
    importosfromosgeoimportgdalimportnumpyasnpfromPILimportImage#提取432三波段fromspectralimport*#输入文件夹路径defget_img(dataset_img):width=dataset_img.RasterXSize#获取行列数height=dataset_img.RasterYSizebands=dataset_i
  • python怎么将png转为tif_png转tif weixin_39977276
    发国外的文章要求图片是tif，cmyk色彩空间的。大小尺寸还有要求。比如网上大神多，找到了一段代码，感谢！https://www.jianshu.com/p/ec2af4311f56https://github.com/KevinZc007/image2Tifimportjava.awt.image.BufferedImage;importjava.io.File;importjava.io.Fi
  • python批量读取tiff文件_Python Pillow批量转换tif格式到jpg weixin_39557797
    最近因为想要整下网站的壁纸，从网站下载了别人整理好的合集压缩包，解压之后，却发现里面的文件都是tif的，tif格式网站和电脑都不认的，根本不能作壁纸。这时候，就需要转换图片格式了，首先我找了几款转换格式的软件，发现效果都不好，要不是不支持tif格式，要不就是转换出来的图片糊的不行。最终，还是决定用Python的Pillow库来写一个脚本，完成这个任务。下面是整个的小脚本----importosim
  • Vue中table合并单元格用法 weixin_30613343 javascriptViewUI
    地名结果人名性别{{item.name}}已完成未完成{{item.groups[0].name}}{{item.groups[0].sex}}{{item.groups[son].name}}{{item.groups[son].sex}}exportdefault{data(){return{list:[{name:'地名1',result:'1',groups:[{name:'张三',sex
  • react-intl——react国际化使用方案 苹果酱0567 面试题汇总与解析java开发语言中间件springboot后端
    国际化介绍i18n：internationalization国家化简称，首字母+首尾字母间隔的字母个数+尾字母，类似的还有k8s(Kubernetes)React-intl是React中最受欢迎的库。使用步骤安装#usenpmnpminstallreact-intl-D#useyarn项目入口文件配置//index.tsximportReactfrom"react";importReactDOMf
  • uniapp map组件自定义markers标记点 以对_ uni-app学习记录uni-appjavascript前端
    需求是根据后端返回数据在地图上显示标记点，并且根据数据状态控制标记点颜色，标记点背景通过两张图片实现控制{{item.options.labelName}}exportdefault{data(){return{storeIndex:0,locaInfo:{longitude:120.445172,latitude:36.111387},markers:[//标点列表{id:1,//标记点idin
  • tiff批量转png 诺有缸的高飞鸟 opencv图像处理pythonopencv图像处理
    目录写在前面代码完写在前面1、本文内容tiff批量转png2、平台/环境opencv,python3、转载请注明出处：https://blog.csdn.net/qq_41102371/article/details/132975023代码importnumpyasnpimportcv2importosdeffindAllFile(base):file_list=[]forroot,ds,fsin
  • Spring Boot中实现跨域请求 BABA8891 springboot后端java
    在SpringBoot中实现跨域请求（CORS，Cross-OriginResourceSharing）可以通过多种方式，以下是几种常见的方法：1.使用@CrossOrigin注解在SpringBoot中，你可以在控制器或者具体的请求处理方法上使用@CrossOrigin注解来允许跨域请求。在控制器上应用：importorg.springframework.web.bind.annotation.
  • vue + Element UI table动态合并单元格 我家媳妇儿萌哒哒 elementUIvue.js前端javascript
    一、功能需求1、根据名称相同的合并工作阶段和主要任务合并这两列，但主要任务内容一样，但要考虑主要任务一样，但工作阶段不一样的情况。（枞向合并）2、落实情况里的定量内容和定性内容值一样则合并。（横向合并）二、功能实现exportdefault{data(){return{tableData:[{name:'a',address:'1',age:'1',six:'2'},{name:'a',addre
  • COCO 格式的数据集转化为 YOLO 格式的数据集 QYQY77 YOLOpython
    """--json_path输入的json文件路径--save_path保存的文件夹名字，默认为当前目录下的labels。"""importosimportjsonfromtqdmimporttqdmimportargparseparser=argparse.ArgumentParser()parser.add_argument('--json_path',default='./instances
  • python结束子进程_如何清除python中的子进程 weixin_39995943 python结束子进程
    我们使用python进程来管理长时间运行的python子进程。有时需要终止子进程。kill命令不会完全终止进程，只会使其失效。运行以下脚本将演示此行为。importsubprocessp=subprocess.Popen(['sleep','400'],stdout=subprocess.PIPE,shell=False)或者p=subprocess.Popen('sleep400',stdout
  • yolov5＞onnx＞ncnn＞apk 图像处理大大大大大牛啊 opencv实战代码讲解yoloonnxncnn安卓
    一.yolov5pt模型转onnx条件：colabnotebookyolov51.安装环境!pipinstallonnx>=1.7.0#forONNXexport!pipinstallcoremltools==4.0#forCoreMLexport!pipinstallonnx-simplifier2.修改common.py在classFocus下面
  • Python3.7出现“ModuleNotFoundError: No module named ‘Tkinter‘”错误的解决方法 可爱的小红猪 python
    Python3.7出现“ModuleNotFoundError:Nomodulenamed‘Tkinter’”错误的解决方法在网上看到很多针对这个问题的解决方法都是重新安装或配置Tkinter库，但Tkinter是python内置的标准GUI库，安装Python时就已经内置在了库中，不需要另外下载。针对于Tkinter，你的代码很可能是这样的：importTkinter或者是这样fromTkint
  • NPM私库搭建-verdaccio（Linux） Beam007 npmlinux前端
    1、安装nodelinux服务器安装nodea)、官网下载所需的node版本https://nodejs.org/dist/v14.21.0/b)、解压安装包若下载的是xxx.tar.xz文件，解压命令为tar-xvfxxx.tar.xzc)、修改环境变量修改：/etc/profile文件#SETPATHFORNODEJSexportNODE_HOME=NODEJS解压安装的路径exportPAT
  • [实验室服务器使用]使用VSCode、PyCharm、MobaXterm和CMD连接远程服务器 YuanDaima2048 工具使用服务器vscodepycharmcmd代理模式机器学习实验
    文章总览：YuanDaiMa2048博客文章总览实验室服务器使用：使用VSCode、PyCharm、MobaXterm和CMD连接远程服务器在进行实验室工作时，远程连接服务器是常见的需求之一。本篇文章根据个人的一些使用介绍使用不同工具连接服务器的方法，并提供优化功能，使服务器能够使用本机代理的说明。准备服务器账号信息Host（主机）:10.XXX.XX.XXXPort（端口）:[SSHPort]U
  • Go语言基础总结 Alice_小哪吒 Go学习笔记golang开发语言后端
    一、Go语言结构包声明引入包函数变量语句&表达式注释下面简单给出hello.go文件。packagesrc/*定义包名*/import"fmt"/*引入包*/funchello(){/*函数*/fmt.Println("Hello,World!")/*语句&表达式*/fmt.Println("菜鸟教程：runoob.com")}二、Go语言基础语法Go程序可以由多个标记构成。可以是关键字、标识符、
  • 前端代码上传文件 余生逆风飞翔 前端javascript开发语言
    点击上传文件import{ElNotification}from'element-plus'import{API_CONFIG}from'../config/index.js'import{UploadFilled}from'@element-plus/icons-vue'import{reactive}from'vue'import{BASE_URL}from'../config/index'i
  • HarmonyOS Next鸿蒙扫一扫功能实现 JohnLiu_ HarmonyOSNextharmonyos华为扫一扫鸿蒙
    直接使用的是华为官方提供的api，封装成一个工具类方便调用。import{common}from'@kit.AbilityKit';import{scanBarcode,scanCore}from'@kit.ScanKit';exportnamespaceScanUtil{exportasyncfunctionstartScan(context:common.Context):Promise{if
  • java数字签名三种方式 知了ing javajdk
    以下3钟数字签名都是基于jdk7的 1，RSA String password="test"; // 1.初始化密钥 KeyPairGenerator keyPairGenerator = KeyPairGenerator.getInstance("RSA"); keyPairGenerator.initialize(51
  • Hibernate学习笔记 caoyong Hibernate
    1>、Hibernate是数据访问层框架，是一个ORM(Object Relation Mapping)框架，作者为:Gavin King 2>、搭建Hibernate的开发环境      a>、添加jar包:      aa>、hibernatte开发包中/lib/required/所
  • 设计模式之装饰器模式Decorator（结构型） 漂泊一剑客 Decorator
    1. 概述        若你从事过面向对象开发，实现给一个类或对象增加行为，使用继承机制，这是所有面向对象语言的一个基本特性。如果已经存在的一个类缺少某些方法，或者须要给方法添加更多的功能（魅力），你也许会仅仅继承这个类来产生一个新类—这建立在额外的代码上。      
  • 读取磁盘文件txt，并输入String 一炮送你回车库 String
    public static void main(String[] args) throws IOException {    String fileContent = readFileContent("d:/aaa.txt");    System.out.println(fileContent);   
  • js三级联动下拉框 3213213333332132 三级联动
    //三级联动 省/直辖市<select id="province"></select> 市/省直辖<select id="city"></select> 县/区 <select id="area"></select>
  • erlang之parse_transform编译选项的应用 616050468 parse_transform游戏服务器属性同步abstract_code
             最近使用erlang重构了游戏服务器的所有代码，之前看过C++/lua写的服务器引擎代码，引擎实现了玩家属性自动同步给前端和增量更新玩家数据到数据库的功能，这也是现在很多游戏服务器的优化方向，在引擎层面去解决数据同步和数据持久化，数据发生变化了业务层不需要关心怎么去同步给前端。由于游戏过程中玩家每个业务中玩家数据更改的量其实是很少
  • JAVA JSON的解析 darkranger java
    // { // “Total”：“条数”， // Code: 1, // // “PaymentItems”:[ // { // “PaymentItemID”:”支款单ID”, // “PaymentCode”:”支款单编号”, // “PaymentTime”:”支款日期”, // ”ContractNo”:”合同号”， //
  • POJ-1273-Drainage Ditches aijuans ACM_POJ
    POJ-1273-Drainage Ditches http://poj.org/problem?id=1273 基本的最大流，按LRJ的白书写的 #include<iostream> #include<cstring> #include<queue> using namespace std; #define INF 0x7fffffff int ma
  • 工作流Activiti5表的命名及含义 atongyeye 工作流Activiti
    activiti5 - http://activiti.org/designer/update在线插件安装 activiti5一共23张表 Activiti的表都以ACT_开头。 第二部分是表示表的用途的两个字母标识。 用途也和服务的API对应。 ACT_RE_*: 'RE'表示repository。 这个前缀的表包含了流程定义和流程静态资源 （图片，规则，等等）。 A
  • android的广播机制和广播的简单使用 百合不是茶 android广播机制广播的注册
          Android广播机制简介 在Android中，有一些操作完成以后，会发送广播，比如说发出一条短信，或打出一个电话，如果某个程序接收了这个广播，就会做相应的处理。这个广播跟我们传统意义中的电台广播有些相似之处。之所以叫做广播，就是因为它只负责“说”而不管你“听不听”，也就是不管你接收方如何处理。另外，广播可以被不只一个应用程序所接收，当然也可能不被任何应
  • Spring事务传播行为详解 bijian1013 javaspring事务传播行为
            在service类前加上@Transactional，声明这个service所有方法需要事务管理。每一个业务方法开始时都会打开一个事务。         Spring默认情况下会对运行期例外(RunTimeException)进行事务回滚。这
  • eidtplus operate 征客丶 eidtplus
    开启列模式: Alt+C 鼠标选择   OR   Alt+鼠标左键拖动 列模式替换或复制内容(多行): 右键-->格式-->填充所选内容-->选择相应操作 OR Ctrl+Shift+V(复制多行数据,必须行数一致) -------------------------------------------------------
  • 【Kafka一】Kafka入门 bit1129 kafka
    这篇文章来自Spark集成Kafka(http://bit1129.iteye.com/blog/2174765)，这里把它单独取出来，作为Kafka的入门吧   下载Kafka http://mirror.bit.edu.cn/apache/kafka/0.8.1.1/kafka_2.10-0.8.1.1.tgz 2.10表示Scala的版本，而0.8.1.1表示Kafka
  • Spring 事务实现机制 BlueSkator spring代理事务
    Spring是以代理的方式实现对事务的管理。我们在Action中所使用的Service对象，其实是代理对象的实例，并不是我们所写的Service对象实例。既然是两个不同的对象，那为什么我们在Action中可以象使用Service对象一样的使用代理对象呢？为了说明问题，假设有个Service类叫AService，它的Spring事务代理类为AProxyService，AService实现了一个接口
  • bootstrap源码学习与示例：bootstrap-dropdown（转帖） BreakingBad bootstrapdropdown
    bootstrap-dropdown组件是个烂东西，我读后的整体感觉。 一个下拉开菜单的设计： <ul class="nav pull-right"> <li id="fat-menu" class="dropdown">
  • 读《研磨设计模式》-代码笔记-中介者模式-Mediator bylijinnan java设计模式
    声明： 本文只为方便我个人查阅和理解，详细的分析以及源代码请移步 原作者的博客http://chjavach.iteye.com/ /* * 中介者模式（Mediator）：用一个中介对象来封装一系列的对象交互。 * 中介者使各对象不需要显式地相互引用，从而使其耦合松散，而且可以独立地改变它们之间的交互。 * * 在我看来，Mediator模式是把多个对象（
  • 常用代码记录 chenjunt3 UIExcelJ#
      1、单据设置某行或某字段不能修改 //i是行号,"cash"是字段名称 getBillCardPanelWrapper().getBillCardPanel().getBillModel().setCellEditable(i, "cash", false); //取得单据表体所有项用以上语句做循环就能设置整行了 getBillC
  • 搜索引擎与工作流引擎 comsci 算法工作搜索引擎网络应用
          最近在公司做和搜索有关的工作，(只是简单的应用开源工具集成到自己的产品中)工作流系统的进一步设计暂时放在一边了，偶然看到谷歌的研究员吴军写的数学之美系列中的搜索引擎与图论这篇文章中的介绍，我发现这样一个关系(仅仅是猜想)   -----搜索引擎和流程引擎的基础--都是图论，至少像在我在JWFD中引擎算法中用到的是自定义的广度优先
  • oracle Health Monitor daizj oracleHealth Monitor
    About Health Monitor Beginning with Release 11g, Oracle Database includes a framework called Health Monitor for running diagnostic checks on the database. About Health Monitor Checks Health M
  • JSON字符串转换为对象 dieslrae javajson
        作为前言,首先是要吐槽一下公司的脑残编译部署方式,web和core分开部署本来没什么问题,但是这丫居然不把json的包作为基础包而作为web的包,导致了core端不能使用,而且我们的core是可以当web来用的(不要在意这些细节),所以在core中处理json串就是个问题.没办法,跟编译那帮人也扯不清楚,只有自己写json的解析了.   
  • C语言学习八结构体，综合应用，学生管理系统 dcj3sjt126com C语言
    实现功能的代码： # include <stdio.h> # include <malloc.h> struct Student { int age; float score; char name[100]; }; int main(void) { int len; struct Student * pArr; int i,
  • vagrant学习笔记 dcj3sjt126com vagrant
    想了解多主机是如何定义和使用的, 所以又学习了一遍vagrant   1. vagrant virtualbox 下载安装 https://www.vagrantup.com/downloads.html https://www.virtualbox.org/wiki/Downloads   查看安装在命令行输入vagrant     2.
  • 14.性能优化-优化-软件配置优化 frank1234 软件配置性能优化
    1.Tomcat线程池 修改tomcat的server.xml文件： <Connector port="8080" protocol="HTTP/1.1" connectionTimeout="20000" redirectPort="8443" maxThreads="1200" m
  • 一个不错的shell 脚本教程 入门级 HarborChung linuxshell
    一个不错的shell 脚本教程 入门级 建立一个脚本 　　Linux中有好多中不同的shell，但是通常我们使用bash (bourne again shell) 进行shell编程，因为bash是免费的并且很容易使用。所以在本文中笔者所提供的脚本都是使用bash（但是在大多数情况下，这些脚本同样可以在 bash的大姐，bourne shell中运行）。 　　如同其他语言一样
  • Spring4新特性——核心容器的其他改进 jinnianshilongnian spring动态代理spring4依赖注入
    Spring4新特性——泛型限定式依赖注入 Spring4新特性——核心容器的其他改进 Spring4新特性——Web开发的增强 Spring4新特性——集成Bean Validation 1.1(JSR-349)到SpringMVC  Spring4新特性——Groovy Bean定义DSL Spring4新特性——更好的Java泛型操作API  Spring4新
  • Linux设置tomcat开机启动 liuxingguome tomcatlinux开机自启动
    执行命令sudo gedit /etc/init.d/tomcat6 然后把以下英文部分复制过去。（注意第一句#!/bin/sh如果不写，就不是一个shell文件。然后将对应的jdk和tomcat换成你自己的目录就行了。 #!/bin/bash # # /etc/rc.d/init.d/tomcat # init script for tomcat precesses
  • 第13章 Ajax进阶（下） onestopweb Ajax
    index.html <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/
  • Troubleshooting Crystal Reports off BW blueoxygen BO
    http://wiki.sdn.sap.com/wiki/display/BOBJ/Troubleshooting+Crystal+Reports+off+BW#TroubleshootingCrystalReportsoffBW-TracingBOE   Quite useful, especially this part: SAP BW connectivity For t
  • Java开发熟手该当心的11个错误 tomcat_oracle javajvm多线程单元测试
    #1、不在属性文件或XML文件中外化配置属性。比如，没有把批处理使用的线程数设置成可在属性文件中配置。你的批处理程序无论在DEV环境中，还是UAT（用户验收 测试）环境中，都可以顺畅无阻地运行，但是一旦部署在PROD 上，把它作为多线程程序处理更大的数据集时，就会抛出IOException，原因可能是JDBC驱动版本不同，也可能是#2中讨论的问题。如果线程数目 可以在属性文件中配置，那么使它成为
  • 正则表达式大全 yang852220741 html编程正则表达式
    今天向大家分享正则表达式大全，它可以大提高你的工作效率 正则表达式也可以被当作是一门语言，当你学习一门新的编程语言的时候，他们是一个小的子语言。初看时觉得它没有任何的意义，但是很多时候，你不得不阅读一些教程，或文章来理解这些简单的描述模式。 一、校验数字的表达式 数字：^[0-9]*$ n位的数字：^\d{n}$ 至少n位的数字：^\d{n,}$ m-n位的数字：^\d{m,n}$
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他