data_module.pas

用于家庭养殖的财务进出

unit data_module;

interface

uses
  SysUtils, Classes, DB, ADODB,StrUtils,Variants,windows;

type
  Tdm = class(TDataModule)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    DataSource1: TDataSource;
    AQ_PH: TADOQuery;
    DS_dg1: TDataSource;
    AQ_dg: TADOQuery;
    ADOQuery4: TADOQuery;
    ADOQuery5: TADOQuery;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    ADOQuery6: TADOQuery;
    DataSource4: TDataSource;
    ADOQuery7: TADOQuery;
    DataSource5: TDataSource;
    ADOQuery8: TADOQuery;
    ADOConnection2: TADOConnection;
    ADOQry_gen: TADOQuery;
    ADOQy_dr: TADOQuery;
    qry1: TADOQuery;
    ADOQy_mc: TADOQuery;
    ADOQuery9: TADOQuery;
    procedure ADOQuery1BeforeOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm: Tdm;

implementation
{$R *.dfm}

function replace_str(str_src:string;parameters:Tparameters):string;
var
  ofs1,ofs2,i:integer;

begin
  ofs1:=posex(':',str_src,1);
  i:=0;
//  str_src:=str_old;
  while ofs1<>0 do
  begin
    ofs2:=posex(' ',str_src,ofs1+1);
    if ofs2=0 then
      ofs2:=length(str_src)+1;
      str_src:=StuffString(str_src, ofs1,ofs2-ofs1,QuotedStr(parameters[i].value));
    ofs1:=posex(':',str_src,ofs1+1);
    inc(i);
  end;
  replace_str:=str_src;
end;

procedure Tdm.ADOQuery1BeforeOpen(DataSet: TDataSet);
var
  s:string;
begin
{ with adoquery1 do
  begin
  sql.text:=replace_str(sql.text,parameters);
  s:=sql.Text;
  s:=sql.Text;
  end;

}
end;

end.