udm.~dfm

小区物业管理系统 运行环境：DELPHI7.0和SQL Server2000 1、将文件DATA里的数据库XQ附加到SQL Server2000企业管理器中

object adodm: Tadodm
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 214
  Top = 101
  Height = 383
  Width = 568
  object XQconn: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=XQ;Data Source=LocalHost;Use Procedure for Prepare=1;' +
      'Auto Translate=True;Packet Size=4096;Use Encryption for Data=Fal' +
      'se;Tag with column collation when possible=False'
    KeepConnection = False
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'SQLOLEDB.1'
    Left = 16
    Top = 8
  end
  object YHTS: TADOTable
    Connection = XQconn
    CursorType = ctStatic
    Filter = #25237#35785#32534#21495'<>'#39#39
    TableName = 'YHTSTable'
    Left = 120
    Top = 8
    object YHTSDSDesigner: TWideStringField
      FieldName = #25237#35785#32534#21495
      Size = 10
    end
    object YHTSDSDesigner2: TWideStringField
      FieldName = #25509#24453#20154#21592
      Size = 10
    end
    object YHTSDSDesigner3: TWideStringField
      FieldName = #25237#35785#20303#25143
      Size = 10
    end
    object YHTSDSDesigner4: TWideStringField
      FieldName = #20303#25143#32534#21495
      Size = 10
    end
    object YHTSDSDesigner5: TDateTimeField
      FieldName = #25237#35785#26085#26399
    end
    object YHTSDSDesigner6: TDateTimeField
      FieldName = #22788#29702#26085#26399
    end
    object YHTSDSDesigner7: TWideStringField
      FieldName = #22788#29702#20154#21592
      Size = 10
    end
    object YHTSDSDesigner8: TWideStringField
      FieldName = #25237#35785#20869#23481
      Size = 50
    end
    object YHTSDSDesigner9: TWideStringField
      FieldName = #22788#29702#24773#20917
      Size = 50
    end
  end
  object ClientRoom: TADOTable
    Connection = XQconn
    CursorType = ctStatic
    TableName = 'ClientRoomTable'
    Left = 232
    Top = 8
    object ClientRoomDSDesigner2: TWideStringField
      FieldName = #20303#25143#32534#21495
      Size = 11
    end
    object ClientRoomDSDesigner3: TWideStringField
      FieldName = #25151#38388#35760#24405#32534#21495
      Size = 11
    end
    object ClientRoomDSDesigner4: TWideStringField
      FieldName = #20351#29992#29366#20917
      Size = 10
    end
    object ClientRoomDSDesigner5: TDateTimeField
      FieldName = #36801#20837#26085#26399
    end
    object ClientRoomDSDesigner6: TDateTimeField
      FieldName = #36801#20986#26085#26399
    end
    object ClientRoomDSDesigner7: TWideStringField
      FieldName = #29366#24577
      Size = 8
    end
    object ClientRoomDSDesigner8: TWideStringField
      FieldName = #22791#27880
    end
  end
  object dsYHTS: TDataSource
    DataSet = YHTS
    Left = 176
    Top = 8
  end
  object dsClientRoom: TDataSource
    DataSet = ClientRoom
    Left = 296
    Top = 8
  end
  object Part: TADOTable
    Connection = XQconn
    CursorType = ctStatic
    TableName = 'PartTable'
    Left = 232
    Top = 80
    object PartDSDesigner: TWideStringField
      FieldName = #36710#20301#32534#21495
      Size = 10
    end
    object PartDSDesigner2: TWideStringField
      FieldName = #20303#25143#32534#21495
      Size = 11
    end
    object PartDSDesigner3: TWideStringField
      FieldName = #20303#25143#21517#31216
      Size = 10
    end
    object PartDSDesigner4: TDateTimeField
      FieldName = #20351#29992#26085#26399
    end
    object PartDSDesigner5: TWideStringField
      FieldName = #22791#27880
      Size = 30
    end
  end
  object dsPart: TDataSource
    DataSet = Part
    Left = 296
    Top = 80
  end
  object dsClientFamily: TDataSource
    DataSet = ClientFamily
    Left = 424
    Top = 128
  end
  object client: TADOTable
    Connection = XQconn
    CursorType = ctStatic
    TableName = 'clientTable'
    Left = 120
    Top = 144
    object clientDSDesigner: TWideStringField
      FieldName = #20303#25143#32534#21495
      Size = 11
    end
    object clientDSDesigner2: TWideStringField
      FieldName = #20303#25143#21517#31216
      Size = 16
    end
    object clientDSDesigner3: TWideStringField
      FieldName = #32852#31995#30005#35805
      Size = 30
    end
    object clientDSDesigner4: TWideStringField
      FieldName = #32852#31995#22320#22336
      Size = 50
    end
    object clientDSDesigner5: TFloatField
      FieldName = #39044#20184#37329#39069
    end
    object clientDSDesigner6: TFloatField
      FieldName = #27424#36153#37329#39069
    end
    object clientDSDesigner7: TWideStringField
      FieldName = #29366#24577
      Size = 8
    end
    object clientDSDesigner8: TWideStringField
      FieldName = #22791#27880
      Size = 255
    end
  end
  object dsclient: TDataSource
    DataSet = client
    Left = 176
    Top = 144
  end
  object dsoper: TDataSource
    DataSet = Toper
    Left = 64
    Top = 64
  end
  object dsuser: TDataSource
    DataSet = Tuser
    Left = 64
    Top = 128
  end
  object Toper: TADODataSet
    Connection = XQconn
    CursorType = ctStatic
    CommandText = 'select top 0 * from oper'
    FieldDefs = <
      item
        Name = #30331#24405#26102#38388
        Attributes = [faFixed]
        DataType = ftDateTime
      end
      item
        Name = #36864#20986#26102#38388
        Attributes = [faFixed]
        DataType = ftDateTime
      end
      item
        Name = #29992#25143#32534#21495
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = #25805#20316#21592#32534#21495
        Attributes = [faReadonly, faFixed]
        DataType = ftAutoInc
      end>
    Parameters = <>
    StoreDefs = True
    Left = 16
    Top = 64
    object ToperDSDesigner: TDateTimeField
      FieldName = #30331#24405#26102#38388
    end
    object ToperDSDesigner2: TDateTimeField
      FieldName = #36864#20986#26102#38388
    end
    object ToperDSDesigner3: TIntegerField
      FieldName = #29992#25143#32534#21495
    end
    object ToperDSDesigner4: TAutoIncField
      FieldName = #25805#20316#21592#32534#21495
      ReadOnly = True
    end
  end
  object Tuser: TADOTable
    Connection = XQconn
    CursorType = ctStatic
    Filtered = True
    TableName = 'user1'
    Left = 16
    Top = 128
    object TuserDSDesigner: TBCDField
      FieldName = #29992#25143#32534#21495
      ReadOnly = True
      Precision = 18
      Size = 0
    end
    object TuserDSDesigner2: TStringField
      FieldName = #29992#25143#21517#31216
      Size = 10
    end
    object TuserDSDesigner3: TStringField
      FieldName = #23494#30721
      Size = 10
    end
    object TuserDSDesigner4: TStringField
      FieldName = #25805#20316#21592
      Size = 10
    end
    object TuserDSDesigner5: TIntegerField
      FieldName = #29992#25143#26435#38480
    end
  end
  object ttemp: TADODataSet
    Connection = XQconn
    CursorType = ctStatic
    Parameters = <>
    Left = 120
    Top = 208
  end
  object dstemp: TDataSource
    DataSet = ttemp
    Left = 176
    Top = 208
  end
  object ChargeItem: TADOTable
    Connection = XQconn
    CursorType = ctStatic
    TableName = 'ChargeItemTable'
    Left = 240
    Top = 208
    object ChargeItemDSDesigner: TWideStringField
      FieldName = #25910#36153#21517#31216
      Size = 10
    end
    object ChargeItemDSDesigner2: TWideStringField
      FieldName = #25910#36153#37329#39069
    end
    object ChargeItemDSDesigner3: TWideStringField
      FieldName = #25910#36153#21333#20301
      Size = 10
    end
    object ChargeItemDSDesigner4: TWideStringField
      FieldName = #25910#36153#21608#26399
      Size = 16
    end
    object ChargeItemDSDesigner5: TWideStringField
      FieldName = #22791#27880
      Size = 40
    end
  end
  object dsChargeItem: TDataSource