Chip 2002 March/Chip_2002-03_cd1.bin/zkuste/delphi/kolekce/d5/sStyleFree.exe/sSharedBDE.pas

Pascal/Delphi Source File | 2001-10-12 | 1KB | 48 lines

unit sSharedBDE;

interface

uses dbtables, sysutils, dialogs;

procedure SelectQuery(Query:TQuery; Par:string);         //┬√∩εδφσφΦσ τα∩≡ε±α SQL
procedure ExecuteQuery(Query:TQuery; Par:string);        //┬√∩εδφσφΦσ Ωε∞αφΣ√ SQL
function GetMaxFieldValue(Query:TQuery; TableName, FieldName:string):integer;

implementation

procedure SelectQuery(Query:TQuery; Par:string);
begin
  Query.DisableControls;
  Query.Close;
  Query.SQL.Text:=Par;
  try begin
    Query.Open;
  end
  except on E: Exception do begin
    MessageDlg('╬°ΦßΩα ∩≡Φ Γ√∩εδφσφΦΦ τα∩≡ε±α (' + E.Message + ') :  "'+Query.SQL.Text+'".', mtError, [mbOK], 0);
  end;
  end;
  Query.EnableControls;
end;

procedure ExecuteQuery(Query:TQuery; Par:string);
begin
  Query.Close;
  Query.SQL.Text:=Par;
  try begin
    Query.ExecSQL;
  end
  except on E: Exception do begin
    MessageDlg('╬°ΦßΩα ∩≡Φ Γ√∩εδφσφΦΦ Ωε∞αφΣ√ SQL (' + E.Message + ') :  "'+Query.SQL.Text+'".', mtError, [mbOK], 0);
  end;
  end;
end;

function GetMaxFieldValue(Query:TQuery; TableName, FieldName:string):integer;
begin
  SelectQuery(Query, 'select max('+FieldName+') from '+TableName+';');
  GetMaxFieldValue:=Query.Fields[0].asInteger;
end;

end.