Советы по Delphi. Версия 1.4.3 от 1.1.2001

procedure DropCache; assembler;

asm

 mov ah,$0D

 int $21

end; 

Как настроить MS SQL Server 6.5 на корректную работу с числами и BDE при выполнении UPDATE?

Nomadic отвечает:

Дело в том, что SQL Links на NT-ишном клиенте шлет на сервер дату как 1-янв-97, что сервер не пpиемлет. Совершенно случайно я нашел системный скрипт, который подключает русский и болгарский языки.

1. выполни sp_configure и убедись, что у тебя default sortorder id==106 (rus case insens) или 105 (rus case sens). Если нет – переставь сервер.

2. найди в каталоге c:\mssql\install скрипт instlang.sql и запусти его.

3. либо руками каждому проставь каждому логину, работающему с NT, язык русский, либо поставь его как default language серверу. В этом случае 95-м клиентам придется руками прописать в логине язык us_english, иначе они перестанут работать.

Для установки russian как default надо выполнить скрипт:

exec sp_configure 'default language', 2

go

reconfigure

go

Как научить VCL делать Refresh для запросов правильно?

Особенно интересует Refresh для связки Master-Detail.

Nomadic отвечает:

Старо как мир, и нет ничего военного:

procedure RefreshQuery(Query: TQuery; F: boolean);

var B: TBookMark;

begin

 with Query do if Query.Active then begin

  B := GetBookMark;

  try

   Close;

   Unprepare; {Если не поставить этого, то если используется select SP, то иногда последующая операция вешает сервер. Кто скажет почему?!}

   Active:=True;

   if F then begin

    try

     GotoBookMark(B)

    except on EDatabaseError do First;

    end

   end else First;

  finally

   FreeBookmark(B);

  end;

 end;

end;

Уфф! Кажется, лучше уже не сделать. :)

dbtables можно опционально пропатчить (см. в конце), чтобы иметь такой вот рyлезный Detail query.

Update for dbtables.pas

New interface function DoRefreshQuery can Refresh TQuery component in master-detail scheme and alone.

TQuery.RefreshParams should be updated

function GetFieldNamesStr(DataSet: TDataSet): String;

var I: Integer;

begin

 Result := '';

 with DataSet do for I := 0 to FieldCount - 1 do begin

  Result := Result + Fields[ I ].FieldName + ';';

 end;

end;

procedure DoRefreshQuery(Query: TQuery; KeyFields: String; BookMarkSearch: Boolean);

var

 Fields: TList;

 KeyValues: Variant;

 KeyNames: String;

 Bmk: TBookmark;

 I: Integer;

 BookmarkFound: Boolean;

 CanLocate: Boolean;

begin

 Fields := TList.Create;

 if KeyFields = '' then KeyFields := GetFieldNamesStr(Query);

 try

  Query.GetFieldList(Fields, KeyFields);

  for I := Fields.Count - 1 downto 0 do with TField(Fields[I]) do

   if Calculated or Lookup then Fields.Delete(I);

  CanLocate := Fields.Count > 0;

  if CanLocate then begin

   if Fields.Count = 1 then KeyValues := TField(Fields[0]).Value

   else begin

    KeyValues := VarArrayCreate([0, Fields.Count - 1], varVariant);

    KeyValues[0] := TField(Fields[0]).Value;

   end;

   KeyNames := TField(Fields[0]).FieldName;

   for I := 1 to Fields.Count - 1 do begin

    KeyNames := KeyNames + ';' + TField(Fields[I]).FieldName;

    KeyValues[I] := TField(Fields[I]).Value;

   end;

  end;

 finally

  Fields.Free;

 end;

 with Query do begin

  Bmk := nil;

  DisableControls;

  try

   BookmarkFound := False;

   if BookMarkSearch then Bmk := GetBookmark;

   Close;

   Open;

   if Assigned(Bmk) then try

    GotoBookMark(Bmk);

    BookmarkFound := True;

   except

   end;