maindata.~pas

一个实用的房地产行业收费管理软件

unit maindata;

interface

uses
  SysUtils, Classes, DB, DBTables;

type
  TDataModule1 = class(TDataModule)
    Database1: TDatabase;
    searchq: TQuery;
    cust: TDataSource;
    loginq: TQuery;
    floorQ: TQuery;
    floors: TDataSource;
    sds: TDataSource;
    htQ: TQuery;
    hts: TDataSource;
    insertcustom: TQuery;
    sdq: TQuery;
    insertsd: TQuery;
    insertfloor: TQuery;
    sdpriceQ: TQuery;
    htp: TQuery;
    printt: TQuery;
    tpq: TQuery;
    ptq: TQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

implementation

{$R *.dfm}

procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
database1.Connected:=true;
end;

end.