publicunit.~pas

一个简单的数据库管理系统,是用delphi开发的.

unit PublicUnit;

interface
  uses  SysUtils, Windows, Controls,ADODB;
  
  Procedure OpenSQL(Qry:TADOQuery; Str:String);
  Procedure ExecSQL(Qry:TADOQuery; Str:String);
  Function GetNo(Qry:TADOQuery; Str:String; Fie:String; Len:Integer):String;

implementation


Procedure OpenSQL(Qry:TADOQuery; Str:String);
begin
  With Qry do
  begin
    close;
    SQL.clear;
    SQL.Add(Str);
    Open;
  end;
end;

Procedure ExecSQL(Qry:TADOQuery; Str:String);
begin
  With Qry do
  begin
    close;
    SQL.clear;
    SQL.Add(Str);
    ExecSQL;
  end;
end;

Function GetNo(Qry:TADOQuery; Str:String; Fie:String; Len:Integer):String;
var
  NoFlag,I:Integer;
  No:string;
begin
  OpenSQL(Qry,Str);
  if Qry.IsEmpty then
    Result := '00001'
  else
  begin
    Qry.FindLast;
    NoFlag := StrToInt(Trim(Qry.FieldByName(Fie).AsString));
    NoFlag := NoFlag + 1;
    No := IntToStr(NoFlag);
    For I := Len downto Length(IntToStr(NoFlag)) + 1 do
      No := '0' + No;
    Result := No;
  end;
end;

end.