globe.pas.~8~

来自「一款房产中介软件」· ~8~ 代码 · 共 44 行

unit Globe;

interface

uses SysUtils, ExtCtrls, ADODB, DB;

var
  OPName: string;
  Path: string;
  procedure ShowForm(FrmID: Cardinal);
  function GetMaxID(TableName: WideString): Cardinal;

implementation

uses MainDM;

procedure ShowForm(FrmID: Cardinal);
begin
   case FrmID of
     0:;
     1:;
   else
   end;
end;

function GetMaxID(TableName: WideString): Cardinal;
var
  qryMaxID: TADOQuery;
begin
  qryMaxID := TADOQuery.Create(nil);
  qryMaxID.Connection := DMMain.ADOConnection1;
  qryMaxID.SQL.Text := 'select Max(ID) from ' + TableName;
  qryMaxID.Open;
  Result := qryMaxID.FieldByName('ID').AsInteger;
  qryMaxID.Free;
end;

initialization
  Path := ExtractFilePath(Paramstr(0));

finalization

end.