Search options (Page 9 of 60)

var
  DB_CalcFields: TStringList;  // список хранимых полей из файла tables.ini


procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
  tmpSQL: string;
begin
  tmpSQL :=
    'Select '+
    ' "$checkbox",'+
    ' "$autoinc",'+
    '  data, '+
    '  {test.data_calc} '+ // надо указывать таблицу и вычисляемоте поле
    'from '+
    '  test ';
  tmpSQL := InlineCalcFields(tmpSQL);
  TdbButton(Sender).dbSQL := tmpSQL;
end;

function InlineCalcFields( ASQL:string ):string;
var
  tmpStartPos: integer;
  tmpEndPos: integer;
  tmpCalcField: string;
  tmpFieldSQL: string;
  tmpPlaceHolder: string;
begin
  try
    repeat
      tmpStartPos := Pos( '{',ASQL);
      if tmpStartPos = 0 then
        exit;
      tmpEndPos := Pos('}',ASQL);
      if tmpEndPos = 0 then
        exit;
      //
      tmpCalcField := copy(ASQL,tmpStartPos+1,tmpEndPos-tmpStartPos-1);
      if DB_CalcFields.IndexOfName(tmpCalcField) < 0 then
      begin
        ShowMessage('Вычисляемое поле '+tmpCalcField+' не найдено!');
        exit;
      end;
      tmpFieldSQL := DB_CalcFields.Values(tmpCalcField);
      tmpFieldSQL := ReplaceStr( tmpFieldSQL, '\r' ,'');
      tmpFieldSQL := ReplaceStr( tmpFieldSQL, '\n' ,'');
      tmpFieldSQL := ReplaceStr( tmpFieldSQL, '^equally^' ,'=');
      tmpPlaceHolder := '{'+tmpCalcField+'}';
      ASQL := ReplaceStr( ASQL, tmpPlaceHolder ,tmpFieldSQL  );
    until 1=0;
  finally
    Result := ASQL;
  end;
end;

procedure ReadCalcFields;
// заполняем список вычисляемых полей DB_CalcFields
var
  tmpIniFile: TMemIniFile;
  tmpList:TStringList;
  tmpList2:TStringList;
  s: string;
  i: integer;
  j: integer;
  tmpTableName: string;
  tmpFieldName: string;
begin
  DB_CalcFields := TStringList.Create;
  tmpList := TStringList.Create;
  tmpList2 := TStringList.Create;
  tmpIniFile := TMemIniFile.Create(ExtractFilePath(Application.ExeName)+'tables.ini');
  try
    tmpIniFile.ReadSections(tmpList);
    for i:=0 to tmpList.Count - 1 do
    begin
      tmpTableName := tmpList.Strings[i];
      tmpIniFile.ReadSectionValues( tmpTableName, tmpList2 );
      for j := 0 to tmpList2.Count - 1 do
      begin
        tmpFieldName := tmpList2.Names[j];
        if copy(tmpFieldName,1,1) = '%' then
        begin
          DB_CalcFields.Add( tmpTableName+'.'+copy( tmpList2.Strings[j],2,Length(tmpList2.Strings[j])-1 ) );
        end
      end;
    end;
  finally
    tmpIniFile.Free;
    tmpList.Free;
    tmpList2.Free;
  end;
end;

begin
  ReadCalcFields;
end.

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
  tmpSQL: string;
begin
  tmpSQL :=
    'Select '+
    '  data, '+
    '  {test.data_calc} '+ // надо указывать таблицу и вычисляемое поле
    'from '+
    '  test ';
  tmpSQL := InlineCalcFields(tmpSQL);
  TdbButton(Sender).dbSQL := tmpSQL;
end;

function InlineCalcFields( ASQL:string ):string;
var
  tmpStartPos: integer;
  tmpEndPos: integer;
  tmpDotPos: integer;
  tmpCalcField: string;
  tmpFieldSQL: string;
  tmpTableName: string;
  tmpPlaceHolder: string;
  tmpIniFile: TIniFile;
  tmpFileName: string;
  tmpFileName2: string;
  tmpList:TStringList;
  tmpList2:TStringList;
  s: string;
begin
  // сюрприз! файл tables.ini записан в кодировке UTF-8, с которой TIniFile работает некорректно - пропускает первый раздел.
  // есть два варианта: преобразовать tables.ini в ANSI или не использовать стандартный TIniFile, а писать свой
  // --- преобразовать файл (вынести этот костыль за пределы функции, чтобы вызывать только один раз...)
  tmpFileName := ExtractFilePath(Application.ExeName)+'tables.ini';
  tmpFileName2 := ExtractFilePath(Application.ExeName)+'tables.dat';
  tmpList := TStringList.Create;
  tmpList2 := TStringList.Create;
  tmpList.LoadFromFile(tmpFileName);
  s := tmpList.Text;
  tmpList2.Text := Trim(s);
  tmpList2.SaveToFileANSI(tmpFileName2);
  tmpList.Free;
  tmpList2.Free;
  ////////////////////////////////////////////////////////////////////////////////////
  tmpIniFile := TIniFile.Create( tmpFileName2 );
  try
    repeat
      tmpStartPos := Pos( '{',ASQL);
      if tmpStartPos = 0 then
        exit;
      tmpEndPos := Pos('}',ASQL);
      if tmpEndPos = 0 then
        exit;
      // таблица.поля
      tmpCalcField := copy(ASQL,tmpStartPos+1,tmpEndPos-tmpStartPos-1);
      tmpDotPos := Pos( '.',tmpCalcField);
      if tmpDotPos = 0 then
        exit;
      tmpTableName := copy(tmpCalcField,1,tmpDotPos-1);
      delete(tmpCalcField,1,tmpDotPos);
      tmpFieldSQL := tmpIniFile.ReadString(tmpTableName,'%'+tmpCalcField,'');
      tmpFieldSQL := ReplaceStr( tmpFieldSQL, '\r' ,'');
      tmpFieldSQL := ReplaceStr( tmpFieldSQL, '\n' ,'');
      tmpFieldSQL := ReplaceStr( tmpFieldSQL, '^equally^' ,'=');
      tmpPlaceHolder := '{'+tmpTableName+'.'+tmpCalcField+'}';
      ASQL := ReplaceStr( ASQL, tmpPlaceHolder ,tmpFieldSQL  );
    until 1=0;
  finally
    tmpIniFile.Free;
    Result := ASQL;
  end;
end;

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
  Form1.Caption := 'Demo version. Time left: ' + IntToStr(iDays) +' days.';
end;