datamodulefrm.~pas

一个房屋中介管理系统

unit datamodulefrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables;

type
  TDataModule2 = class(TDataModule)
    Database1: TDatabase;
    housequery1: TQuery;
    housesource1: TDataSource;
    userTable: TTable;
    inputtable: TTable;
    inputsource: TDataSource;
    input1: TAutoIncField;
    input2: TStringField;
    input3: TStringField;
    input4: TStringField;
    input5: TFloatField;
    input6: TFloatField;
    input7: TSmallintField;
    input8: TSmallintField;
    input9: TStringField;
    input10: TStringField;
    input11: TStringField;
    input12: TStringField;
    input13: TStringField;
    input14: TStringField;
    input15: TStringField;
    input16: TStringField;
    input17: TStringField;
    input18: TStringField;
    input19: TStringField;
    input20: TSmallintField;
    input21: TSmallintField;
    input22: TSmallintField;
    input23: TStringField;
    input24: TFloatField;
    input25: TFloatField;
    input26: TBooleanField;
    input27: TBooleanField;
    input28: TBooleanField;
    input29: TBooleanField;
    input30: TBooleanField;
    input31: TBooleanField;
    input32: TBooleanField;
    input33: TBooleanField;
    input34: TBooleanField;
    input35: TBooleanField;
    input36: TBooleanField;
    input37: TBooleanField;
    input38: TBooleanField;
    input39: TStringField;
    input40: TDateTimeField;
    input41: TBooleanField;
    input42: TDateTimeField;
    input43: TStringField;
    input44: TStringField;
    input45: TStringField;
    changeusertable: TTable;
    outQuery: TQuery;
    outDataSource: TDataSource;
    bargainquery: TQuery;
    bargain2source: TDataSource;
    bargainqueryBDEDesigner: TIntegerField;
    bargainqueryBDEDesigner2: TStringField;
    bargainqueryBDEDesigner3: TStringField;
    bargainqueryBDEDesigner4: TStringField;
    bargainqueryBP: TStringField;
    bargainqueryEmail: TStringField;
    bargainqueryBDEDesigner5: TStringField;
    bargainqueryBDEDesigner6: TStringField;
    bargainqueryBDEDesigner7: TStringField;
    bargainqueryBDEDesigner8: TStringField;
    bargainqueryBDEDesigner9: TFloatField;
    bargainqueryBDEDesigner10: TFloatField;
    bargainqueryBDEDesigner11: TSmallintField;
    bargainqueryBDEDesigner12: TSmallintField;
    bargainqueryBDEDesigner13: TStringField;
    bargainqueryBDEDesigner14: TStringField;
    bargainqueryBDEDesigner15: TStringField;
    bargainqueryBDEDesigner16: TStringField;
    bargainqueryBDEDesigner17: TStringField;
    bargainqueryBDEDesigner18: TStringField;
    bargainqueryBDEDesigner19: TStringField;
    bargainqueryBP2: TStringField;
    bargainqueryEmail2: TStringField;
    bargainqueryBDEDesigner20: TStringField;
    bargainqueryBDEDesigner21: TStringField;
    bargainqueryBDEDesigner22: TSmallintField;
    bargainqueryBDEDesigner23: TSmallintField;
    bargainqueryBDEDesigner24: TSmallintField;
    bargainqueryBDEDesigner25: TStringField;
    bargainqueryBDEDesigner26: TFloatField;
    bargainqueryBDEDesigner27: TFloatField;
    bargainqueryBDEDesigner28: TBooleanField;
    bargainqueryBDEDesigner29: TBooleanField;
    bargainqueryBDEDesigner30: TBooleanField;
    bargainqueryBDEDesigner31: TBooleanField;
    bargainqueryBDEDesigner32: TBooleanField;
    bargainqueryBDEDesigner33: TBooleanField;
    bargainqueryBDEDesigner34: TBooleanField;
    bargainqueryBDEDesigner35: TBooleanField;
    bargainqueryBDEDesigner36: TBooleanField;
    bargainqueryBDEDesigner37: TBooleanField;
    bargainqueryBDEDesigner38: TBooleanField;
    bargainqueryBDEDesigner39: TBooleanField;
    bargainqueryBDEDesigner40: TBooleanField;
    bargainqueryBDEDesigner41: TStringField;
    bargainqueryBDEDesigner42: TDateTimeField;
    bargainqueryBDEDesigner43: TBooleanField;
    bargainqueryBDEDesigner44: TDateTimeField;
    bargainqueryBDEDesigner45: TStringField;
    bargainqueryBDEDesigner46: TStringField;
    bargainqueryBDEDesigner47: TStringField;
    printquery: TQuery;
    printsource: TDataSource;
    print1: TIntegerField;
    print2: TStringField;
    print3: TStringField;
    print4: TStringField;
    print5: TFloatField;
    print6: TFloatField;
    print7: TSmallintField;
    print8: TSmallintField;
    print9: TStringField;
    print10: TStringField;
    print11: TStringField;
    print12: TStringField;
    print13: TStringField;
    print14: TStringField;
    print15: TStringField;
    print16: TStringField;
    print17: TStringField;
    print18: TStringField;
    print19: TStringField;
    print20: TSmallintField;
    print21: TSmallintField;
    print22: TSmallintField;
    print23: TStringField;
    print24: TFloatField;
    print25: TFloatField;
    print26: TBooleanField;
    print27: TBooleanField;
    print28: TBooleanField;
    print29: TBooleanField;
    print30: TBooleanField;
    print31: TBooleanField;
    print32: TBooleanField;
    print33: TBooleanField;
    print34: TBooleanField;
    print35: TBooleanField;
    print36: TBooleanField;
    print37: TBooleanField;
    print38: TBooleanField;
    print39: TStringField;
    print40: TDateTimeField;
    print41: TBooleanField;
    print42: TDateTimeField;
    print43: TStringField;
    print44: TStringField;
    print45: TStringField;
    printdetail: TQuery;
    printdetailsource: TDataSource;
    inputdatasource: TDataSource;
    inputtable2: TTable;
    bargaintable: TTable;
    bargainSource: TDataSource;
    PrintBuyQuery: TQuery;
    PrintHireQuery: TQuery;
    buyTable: TTable;
    buyDataSource: TDataSource;
    countTable: TTable;
    moneyTable: TTable;
    areaTable: TTable;
    modelTable: TTable;
    floorTable: TTable;
    placeTable: TTable;
    procedure csdatasourceDataChange(Sender: TObject; Field: TField);
  private

    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule2: TDataModule2;

implementation
uses housefrm;
{$R *.DFM}

procedure TDataModule2.csdatasourceDataChange(Sender: TObject;
  Field: TField);

begin
{houseform.csedit1.text:=cs1.AsString;
houseform.csedit2.text:=cs2.AsString;
houseform.csmemo.Lines.text:=cs3.AsString;
if cs4.asstring<>'' then
houseform.csdata2.date:=cs4.Value;}
end;

end.