datam.pas

地理资源的录入程序运用了api的一些知识

unit DataM;

interface

uses
  SysUtils, Classes, ADODB, DB;

type
  TDM = class(TDataModule)
    conn: TADOConnection;
    dslyxx: TDataSource;
    lyxx: TADOQuery;
    tdlyxx: TADOQuery;
    dstdlyxx: TDataSource;
    dqjjxx: TADOQuery;
    dsdqjjxx: TDataSource;
    dsinput: TDataSource;
    Qur_dmb: TADOQuery;
    ds_dmb: TDataSource;
    dqjjxx1: TADOQuery;
    dsdqjjxx1: TDataSource;
    zyflml: TADOQuery;
    dszyflml: TDataSource;
    dlxxzy: TADOQuery;
    dsdlxxzy: TDataSource;
    tdlycxQry: TADOQuery;
    DStdlycx: TDataSource;
    DS_sl: TDataSource;
    ADOQry_sl: TADOQuery;
    User: TADOQuery;
    tbinput: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);
begin
user.Active :=true;
tbinput.Active :=true;
lyxx.Active :=true;
tdlyxx.Active :=true;
dqjjxx.Active :=true;

//qur_dmb.Active :=true;
//zyflml.Active :=true;
dlxxzy.Active :=true;
//adoqry_sl.Active :=true;
end;

end.