Search options (Page 10 of 60)

Если нужно ТОЛЬКО В МОМЕНТ ОБНОВЛЕНИЯ, тогда достаточно на форме (Form1)  метку разместить (labUpdateDate).
Чтобы на метке появилась надпись, присвойте свойству caption нужное значение:

procedure Form1_buttonabout_OnAfterClick (Sender: TObject);
begin
   Form1.labUpdateDate.Caption := 'Last Updated On:  ' + datetostr(now) + '   At:  ' + timetostr(time);
end;

Про метку и её свойства можно почитать здесь: https://k245.ru/mvdb/metka-tdblabel.html

P.S. Как только вы закроете программу, информация о дате обновления исчезнет. И при последующем запуске в метке ничего отображаться не будет. Это я так, на всякий случай озвучиваю )))

Не проблема: если вы продемонстрируете свои попытки в виде вашего проекта, в котором какая-то часть не работает, я вам лично всё подправлю.

И где вы тут увидели хейтерство? А вот культуру общения на форуме - да, насаждаю ))

P.S. Что касается вашей задачи, то нужно правильно формулировать запрос. Вам не просто нужно, чтобы где-то на форме отображалась дата обновления после загрузки. Скорей всего вам необходимо, чтобы эта дата запоминалась в базе и отображалась всё время. А вот обновлялась после того, как загрузили данные из Excel, верно?

Не, ну народ обленился.... Одну строчку в коде заменить не могут.
https://myvisualdatabase.com/forum/view … hp?id=6262

Мне этот вариант больше нравится. И как я сам не догадался, что окно с нужной надписью можно самому создать? А то вечные приколы с главной формой и её заголовком. Беру себе в блокнотик )))

Главное меню можно "пересадить" с главной формы на другую форму.

procedure Menu_MoveTo(AFromForm: TForm; AToForm: TForm);
// перенести меню с формы на форму
var
  tmpMenu: TMainMenu;
begin
  tmpMenu := AFromForm.Menu;
  AFromForm.Menu := nil;
  AToForm.Menu := tmpMenu;
end;

Главная форма не меняется скриптом, только в режиме конструктора.

https://k245.ru/mvdb/formy.html
Но вы можете при запуске приложения скрывать главную форму и отображать нужную вам в зависимости от роли.

Захотелось мне, братцы, блеснуть кодом, написал функцию InlineCalcFields(), которая автоматически подставляет вычисляемое поле в SQL, но... получились костыли... впрочем, судите сами, может, кому понравится:

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' ,'');
      tmpPlaceHolder := '{'+tmpTableName+'.'+tmpCalcField+'}';
      ASQL := ReplaceStr( ASQL, tmpPlaceHolder ,tmpFieldSQL  );
    until 1=0;
  finally
    tmpIniFile.Free;
    Result := ASQL;
  end;
end;

Разумеется, будут. Но не всегда будут люди, готовые вам на них отвечать. А вот способность находить ответы самостоятельно (в данном случае - через изучение теории и закреплении её на практике) позволит вам быть более независимым в достижении ваших целей.

Да, скроллбары на таблицах непобедимы ))), но решение, как мне кажется, есть: посадить грид на панель, и каждый раз разпупыживать его так, чтобы его родные скролбары не появлялись. И позиционировать грид доморощенными сроллбарами в своё удовольствие.  На менюшке и на новостной ленте уже сделан свой кастомный скроллбар,

I don't think it's worth repeating my experiment. Unless you have a lot of time and desire to create something unusual. The above project is very complex, I would even say unreasonably complex. But it is of interest from the point of view of unusual algorithms and approaches to solving problems (for example, how to create a new class in a system that does not allow creating new classes). Someday I will tell you more about it on the pages of my blog.

News feed with all your favorite "Discuss" and "Like" buttons

P.S. Guess whose eye is depicted on the Happy New Year greeting?

Светлая тема