udata.pas

在在一原封不动硒鼓二可耕地z经理可耕地可耕地枯草杆菌二期工程二枯枯树可耕地票面苛

unit udata;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TdmPer = class(TDataModule)
    acPer: TADOConnection;
    aqSta: TADOQuery;
    dsSta: TDataSource;
    aqDep: TADOQuery;
    dsDep: TDataSource;
    aqExper: TADOQuery;
    dsExper: TDataSource;
    aqFami: TADOQuery;
    dsFami: TDataSource;
    aqAP: TADOQuery;
    dsAP: TDataSource;
    aqTrain: TADOQuery;
    dsTrain: TDataSource;
    aqStaf: TADOQuery;
    aqExperf: TADOQuery;
    aqAPf: TADOQuery;
    aqFamif: TADOQuery;
    aqTrainf: TADOQuery;
    aqStat: TADOQuery;
  private
    { Private declarations }
  public
    { Public declarations }

    procedure OpenQuery(aqData: TADOQuery; aSQlStr: string);
    procedure OpenDep;
    procedure OpenStaInfo(aId: string);
    procedure OpenExper(aPid: string);
    procedure OpenFami(aPid: string);
    procedure OpenAP(aPid: string);
    procedure OpenTrain(aPid: string);
    procedure OpenStat(aGrpStr: string);

    procedure OpenStaf(aId: string);
    procedure OpenExperf(aPid: string);
    procedure OpenFamif(aPid: string);
    procedure OpenAPf(aPid: string);
    procedure OpenTrainf(aPid: string);
  end;

var
  dmPer: TdmPer;

implementation

{$R *.dfm}

{ TdmPer }

procedure TdmPer.OpenQuery(aqData: TADOQuery; aSqlStr: string);
begin
  with aqData do
  begin
    if Active then Close;
    Connection := acPer;
    LockType := ltBatchOptimistic;
    SQL.Clear;
    SQL.Text := aSqlStr;
    Open;
  end;
end;

procedure TdmPer.OpenDep;
begin
  OpenQuery(aqDep, 'select dep from dept order by ornum');
end;

procedure TdmPer.OpenStaInfo(aId: string);
begin
  OpenQuery(aqSta, 'Select * from staInfo where id=' + aId);
end;

procedure TdmPer.OpenExper(aPid: string);
begin
  OpenQuery(aqExper, 'select * from wexper where sid=' + aPid);
end;

procedure TdmPer.OpenFami(aPid: string);
begin
  OpenQuery(aqFami, 'select * from family where sid=' + aPid);
end;

procedure TdmPer.OpenAP(aPid: string);
begin
  OpenQuery(aqAP, 'select * from aandp where sid=' + aPid);
end;

procedure TdmPer.OpenTrain(aPid: string);
begin
  OpenQuery(aqTrain, 'select * from train where sid=' + aPid);
end;

{统计所需过程 Access不支持Group By All查询语句}
procedure TdmPer.OpenStat(aGrpStr: string);
begin
  OpenQuery(aqStat, 'select '+ aGrpStr +', count(id) as sCount from stainfo group by '+ aGrpStr)
end;

procedure TdmPer.OpenStaf(aId: string);
begin
  OpenQuery(aqStaf, 'Select * from staInfo where id=' + aId);
end;

procedure TdmPer.OpenExperf(aPid: string);
begin
  OpenQuery(aqExperf, 'select * from wexper where sid=' + aPid);
end;

procedure TdmPer.OpenFamif(aPid: string);
begin
  OpenQuery(aqFamif, 'select * from family where sid=' + aPid);
end;

procedure TdmPer.OpenAPf(aPid: string);
begin
  OpenQuery(aqAPf, 'select * from aandp where sid=' + aPid);
end;

procedure TdmPer.OpenTrainf(aPid: string);
begin
  OpenQuery(aqTrainf, 'select * from train where sid=' + aPid);
end;

end.