udm.pas

小区物业管理(系统初始用户名：王云。密码：aaa)

unit Udm;

interface

uses
  Forms, SysUtils, Classes, ADODB, DB, ImgList, Controls, DBTables;

type
  Tadodm = class(TDataModule)
    XQconn: TADOConnection;
    YHTS: TADOTable;
    ClientRoom: TADOTable;
    dsYHTS: TDataSource;
    dsClientRoom: TDataSource;
    Part: TADOTable;
    dsPart: TDataSource;
    dsClientFamily: TDataSource;
    client: TADOTable;
    dsclient: TDataSource;
    dsoper: TDataSource;
    dsuser: TDataSource;
    Toper: TADODataSet;
    Tuser: TADOTable;
    ttemp: TADODataSet;
    dstemp: TDataSource;
    ChargeItem: TADOTable;
    dsChargeItem: TDataSource;
    cback: TADOCommand;
    backconn: TADOConnection;
    search1: TADODataSet;
    dssearch1: TDataSource;
    Search2: TADODataSet;
    dsSearch2: TDataSource;
    ZHBX: TADOTable;
    dsZHBX: TDataSource;
    Model: TADOTable;
    DSModel: TDataSource;
    ModelDSDesigner: TWideStringField;
    ModelDSDesigner2: TWideStringField;
    ModelDSDesigner3: TFloatField;
    ModelDSDesigner4: TFloatField;
    ModelDSDesigner5: TWideStringField;
    clientDSDesigner: TWideStringField;
    clientDSDesigner2: TWideStringField;
    clientDSDesigner3: TWideStringField;
    clientDSDesigner4: TWideStringField;
    clientDSDesigner5: TFloatField;
    clientDSDesigner6: TFloatField;
    clientDSDesigner7: TWideStringField;
    clientDSDesigner8: TWideStringField;
    ClientRoomDSDesigner2: TWideStringField;
    ClientRoomDSDesigner3: TWideStringField;
    ClientRoomDSDesigner4: TWideStringField;
    ClientRoomDSDesigner5: TDateTimeField;
    ClientRoomDSDesigner6: TDateTimeField;
    ClientRoomDSDesigner7: TWideStringField;
    ClientRoomDSDesigner8: TWideStringField;
    ClientFamily: TADODataSet;
    ChargeItemDSDesigner: TWideStringField;
    ChargeItemDSDesigner2: TWideStringField;
    ChargeItemDSDesigner3: TWideStringField;
    ChargeItemDSDesigner4: TWideStringField;
    ChargeItemDSDesigner5: TWideStringField;
    PartDSDesigner: TWideStringField;
    PartDSDesigner2: TWideStringField;
    PartDSDesigner3: TWideStringField;
    PartDSDesigner4: TDateTimeField;
    PartDSDesigner5: TWideStringField;
    Search3: TADODataSet;
    DSSearch3: TDataSource;
    ClientPay: TADOTable;
    dsClientPay: TDataSource;
    ClientAdvance: TADOTable;
    DSClientAdvance: TDataSource;
    Charge: TADOTable;
    DSCharge: TDataSource;
    ClientPayDSDesigner: TWideStringField;
    ClientPayDSDesigner2: TWideStringField;
    ClientPayDSDesigner3: TWideStringField;
    ClientPayDSDesigner4: TDateTimeField;
    ClientPayDSDesigner5: TWideStringField;
    ClientPayDSDesigner6: TFloatField;
    ClientPayDSDesigner7: TWideStringField;
    ClientPayDSDesigner8: TWideStringField;
    ChargeDSDesigner: TWideStringField;
    ChargeDSDesigner2: TWideStringField;
    ChargeDSDesigner3: TWideStringField;
    ChargeDSDesigner4: TWideStringField;
    ChargeDSDesigner5: TFloatField;
    ChargeDSDesigner6: TFloatField;
    ChargeDSDesigner7: TFloatField;
    ChargeDSDesigner8: TFloatField;
    ChargeDSDesigner9: TWideStringField;
    ClientAdvanceDSDesigner: TWideStringField;
    ClientAdvanceDSDesigner2: TDateTimeField;
    ClientAdvanceDSDesigner3: TFloatField;
    ClientAdvanceDSDesigner4: TWideStringField;
    ClientAdvanceDSDesigner5: TWideStringField;
    ClientAdvanceDSDesigner6: TWideStringField;
    TuserDSDesigner: TBCDField;
    TuserDSDesigner2: TStringField;
    TuserDSDesigner3: TStringField;
    TuserDSDesigner4: TStringField;
    TuserDSDesigner5: TIntegerField;
    ToperDSDesigner: TDateTimeField;
    ToperDSDesigner2: TDateTimeField;
    ToperDSDesigner3: TIntegerField;
    ToperDSDesigner4: TAutoIncField;
    ClientFamilyDSDesigner: TWideStringField;
    ClientFamilyDSDesigner2: TWideStringField;
    ClientFamilyDSDesigner3: TWideStringField;
    ClientFamilyDSDesigner4: TWideStringField;
    ClientFamilyDSDesigner5: TDateTimeField;
    ClientFamilyDSDesigner6: TWideStringField;
    ClientFamilyDSDesigner7: TWideStringField;
    ClientFamilyDSDesigner8: TWideStringField;
    YHTSDSDesigner: TWideStringField;
    YHTSDSDesigner2: TWideStringField;
    YHTSDSDesigner3: TWideStringField;
    YHTSDSDesigner4: TWideStringField;
    YHTSDSDesigner5: TDateTimeField;
    YHTSDSDesigner6: TDateTimeField;
    YHTSDSDesigner7: TWideStringField;
    YHTSDSDesigner8: TWideStringField;
    YHTSDSDesigner9: TWideStringField;
    ZHBXDSDesigner: TWideStringField;
    ZHBXDSDesigner2: TWideStringField;
    ZHBXDSDesigner3: TDateTimeField;
    ZHBXDSDesigner4: TBCDField;
    ZHBXDSDesigner5: TBCDField;
    ZHBXDSDesigner6: TWideStringField;
    ZHBXDSDesigner7: TWideStringField;
    ZHBXDSDesigner8: TDateTimeField;
    ZHBXDSDesigner9: TBCDField;
    ZHBXDSDesigner10: TWideStringField;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  adodm: Tadodm;

implementation                                         

uses TloginFormUnit, Umain;

{$R *.dfm}

procedure Tadodm.DataModuleCreate(Sender: TObject);
begin
  Toper.Open;
  Tuser.Open;
  YHTS.Open;
  Model.Open;
  client.Open;
  ClientRoom.Open;
  Part.Open;
  ClientPay.Open;
  ChargeItem.Open;
  ClientAdvance.Open;
  ZHBX.Open;
  Charge.Open;
 // ClientFamily.Open;
end;

end.