pub.pas

来自「老年人大学的学籍管理,主要是学费收取」· PAS 代码 · 共 59 行

unit pub;

interface

uses
  forms,db,adodb,sysutils,messages,Controls,StdCtrls,dialogs;

  procedure showrecord(query:tadoquery;field:string;table:string;order:string);
  function genid(tbl,field:string):string;
  procedure savelog(query:tadoquery;user:string);

implementation

uses umain;

//显示记录
procedure showrecord(query:tadoquery;field:string;table:string;order:string);
begin
  with query do
    begin
    close;
    sql.Clear;
    sql.Add('SELECT '+field+' FROM '+table+' ORDER BY '+order);
    open;
    end;
end;

function genid(tbl,field:string):string;
var tmp:tadoquery;
    id:integer;
begin
  tmp:=tadoquery.Create(nil);
  tmp.ConnectionString :=frmmain.adc.ConnectionString;
  with tmp do
    begin
    sql.Clear;
    sql.Add('select max('+field+') from '+tbl);
    open;
    end;
  //showmessage(tmp.SQL.Text);
  id:=tmp.Fields[0].AsInteger+1;
  tmp.Free;
  result:=inttostr(id);
end;

procedure savelog(query:tadoquery;user:string);
begin
  with query do
    begin
    sql.Clear;
    sql.Add('insert into log (username,login) values (:v1,:v2)');
    parameters.ParamByName('v1').Value :=user;
    parameters.ParamByName('v2').Value :=now();
    execsql;
    end;
end;

end.