pas_dm.pas

比较详细的功能

unit Pas_DM;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDM = class(TDataModule)
    DS1: TDataSource;
    AC1: TADOConnection;
    AQ1: TADOQuery;
    loginquery: TADOQuery;
    usrQuery: TADOQuery;
    Query_landlord: TADOQuery;
    Query_client: TADOQuery;
    Query_deputy: TADOQuery;
    Query_house: TADOQuery;
    ds_noUseHouse: TDataSource;
    Query_noUseHouse: TADOQuery;
    Query_houserent: TADOQuery;
    ds_houserent: TDataSource;
    ds_househistry: TDataSource;
    Query_househistry: TADOQuery;
    Query_payhint: TADOQuery;
    Query_pub: TADOQuery;
    Ds_landlord: TDataSource;
    Ds_client: TDataSource;
    ds_deputy: TDataSource;
    Query_depart: TADOQuery;
    DS_depart: TDataSource;
    Query_seller: TADOQuery;
    ds_seller: TDataSource;
    Ds_house: TDataSource;
    ds_ht: TDataSource;
    query_ht: TADOQuery;
    query_area: TADOQuery;
    ds_area: TDataSource;
    gg: TADOQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

end.