datamodl.dfm

北京铁路局住房分配系统,数据库为MSSql2000,依次执行crebas4.sql

object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 187
  Top = 144
  Height = 325
  Width = 410
  object ADOCon: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=18;Persist Security Info=True;User ' +
      'ID=sa;Initial Catalog=zffp;Data Source=USER-16'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 32
    Top = 24
  end
  object ADOTab: TADOTable
    Connection = ADOCon
    CursorType = ctStatic
    TableName = 'dwxxb'
    Left = 104
    Top = 24
  end
  object ADOQry: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 176
    Top = 24
  end
  object ADOSP: TADOStoredProc
    Connection = ADOCon
    LockType = ltReadOnly
    Parameters = <>
    Left = 248
    Top = 24
  end
  object DataS: TDataSource
    DataSet = ADOQryZF
    Left = 320
    Top = 24
  end
  object ADOTabLY: TADOTable
    Connection = ADOCon
    TableName = 'lyxxb'
    Left = 32
    Top = 168
    object ADOTabLYlybh: TStringField
      FieldName = 'lybh'
      FixedChar = True
      Size = 5
    end
    object ADOTabLYxqbh: TStringField
      FieldName = 'xqbh'
      FixedChar = True
      Size = 3
    end
    object ADOTabLYmc: TStringField
      FieldName = 'mc'
    end
    object ADOTabLYcs: TSmallintField
      FieldName = 'cs'
    end
    object ADOTabLYlxbh: TStringField
      FieldName = 'lxbh'
      FixedChar = True
      Size = 2
    end
    object ADOTabLYfjts: TSmallintField
      FieldName = 'fjts'
    end
  end
  object ADOTabHX: TADOTable
    Connection = ADOCon
    TableName = 'fwhxb'
    Left = 96
    Top = 168
  end
  object ADOTabCX: TADOTable
    Connection = ADOCon
    TableName = 'fwcxb'
    Left = 160
    Top = 168
    object ADOTabCXbh: TStringField
      FieldName = 'bh'
      FixedChar = True
      Size = 2
    end
    object ADOTabCXmc: TStringField
      FieldName = 'mc'
      FixedChar = True
      Size = 12
    end
    object ADOTabCXbz: TStringField
      FieldName = 'bz'
    end
  end
  object ADOTabDJ: TADOTable
    Connection = ADOCon
    TableName = 'fwdjb'
    Left = 224
    Top = 168
    object StringField1: TStringField
      FieldName = 'bh'
      FixedChar = True
      Size = 2
    end
    object StringField2: TStringField
      FieldName = 'mc'
      FixedChar = True
      Size = 12
    end
    object StringField3: TStringField
      FieldName = 'bz'
    end
  end
  object ADOTabYT: TADOTable
    Connection = ADOCon
    TableName = 'fwytb'
    Left = 288
    Top = 168
    object StringField4: TStringField
      FieldName = 'bh'
      FixedChar = True
      Size = 2
    end
    object StringField5: TStringField
      FieldName = 'mc'
      FixedChar = True
      Size = 12
    end
    object StringField6: TStringField
      FieldName = 'bz'
    end
  end
  object ADOQryZF: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'select ZFBH,LYMC=b.mc,DYH,HX=c.mc,LC,CX=d.mc,DJ=e.mc,YT=f.mc,'
      '       SFFP=(case when sffp = '#39'1'#39' then '#39#24050#20998#39' else '#39#26410#20998#39' end),'
      '       KFFP=(case when kffp = '#39'1'#39' then '#39#21487#20998#39' else '#39#19981#21487#20998#39' end),'
      '       SFZH,lybh=a.lybh,hxbh,cxbh,djbh,ytbh,dwbh,area,cost  '
      'from zfxxb a, lyxxb b, fwhxb c, fwcxb d, fwdjb e, fwytb f'
      'where a.lybh*= b.lybh and'
      '      a.hxbh*= c.bh and'
      '      a.cxbh*= d.bh and'
      '      a.djbh*= e.bh and'
      '      a.ytbh*= f.bh ')
    Left = 32
    Top = 96
    object ADOQryZFZFBH: TStringField
      DisplayWidth = 10
      FieldName = 'ZFBH'
      FixedChar = True
      Size = 10
    end
    object ADOQryZFLYMC: TStringField
      FieldName = 'LYMC'
    end
    object ADOQryZFDYH: TStringField
      FieldName = 'DYH'
      FixedChar = True
      Size = 1
    end
    object ADOQryZFHX: TStringField
      FieldName = 'HX'
      FixedChar = True
      Size = 12
    end
    object ADOQryZFLC: TStringField
      FieldName = 'LC'
      FixedChar = True
      Size = 2
    end
    object ADOQryZFCX: TStringField
      FieldName = 'CX'
      FixedChar = True
      Size = 12
    end
    object ADOQryZFDJ: TStringField
      FieldName = 'DJ'
      FixedChar = True
      Size = 12
    end
    object ADOQryZFYT: TStringField
      FieldName = 'YT'
      FixedChar = True
      Size = 12
    end
    object ADOQryZFSFFP: TStringField
      FieldName = 'SFFP'
      ReadOnly = True
      Size = 4
    end
    object ADOQryZFKFFP: TStringField
      FieldName = 'KFFP'
      ReadOnly = True
      Size = 6
    end
    object ADOQryZFSFZH: TStringField
      FieldName = 'SFZH'
      FixedChar = True
      Size = 18
    end
    object ADOQryZFlybh: TStringField
      FieldName = 'lybh'
      FixedChar = True
      Size = 5
    end
    object ADOQryZFhxbh: TStringField
      FieldName = 'hxbh'
      FixedChar = True
      Size = 2
    end
    object ADOQryZFcxbh: TStringField
      FieldName = 'cxbh'
      FixedChar = True
      Size = 2
    end
    object ADOQryZFdjbh: TStringField
      FieldName = 'djbh'
      FixedChar = True
      Size = 2
    end
    object ADOQryZFytbh: TStringField
      FieldName = 'ytbh'
      FixedChar = True
      Size = 2
    end
    object ADOQryZFdwbh: TStringField
      FieldName = 'dwbh'
      FixedChar = True
      Size = 3
    end
    object ADOQryZFarea: TBCDField
      FieldName = 'area'
      Precision = 8
      Size = 2
    end
    object ADOQryZFcost: TBCDField
      FieldName = 'cost'
      Precision = 16
      Size = 2
    end
  end
  object ADOQryYTFP: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select a.dwbh,dwmc=b.dwmc,zgfp,jlfp,cqfp,ldgb,shyf,gyfw,jdfw,qty' +
        'f'
      'from ytfpb a, dwxxb b'
      'where a.dwbh= b.dwbh')
    Left = 104
    Top = 96
    object ADOQryYTFPdwbh: TStringField
      FieldName = 'dwbh'
      FixedChar = True
      Size = 3
    end
    object ADOQryYTFPdwmc: TStringField
      FieldName = 'dwmc'
    end
    object ADOQryYTFPzgfp: TSmallintField
      FieldName = 'zgfp'
    end
    object ADOQryYTFPjlfp: TSmallintField
      FieldName = 'jlfp'
    end
    object ADOQryYTFPcqfp: TSmallintField
      FieldName = 'cqfp'
    end
    object ADOQryYTFPldgb: TSmallintField
      FieldName = 'ldgb'
    end
    object ADOQryYTFPshyf: TSmallintField
      FieldName = 'shyf'
    end
    object ADOQryYTFPgyfw: TSmallintField
      FieldName = 'gyfw'
    end
    object ADOQryYTFPjdfw: TSmallintField
      FieldName = 'jdfw'
    end
    object ADOQryYTFPqtyf: TSmallintField
      FieldName = 'qtyf'
    end
  end
  object ADOQrySLFP: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Filtered = True
    Parameters = <>
    SQL.Strings = (
      
        'select a.dwbh,dwmc=b.dwmc,ytbh,ytmc=c.mc,yjsl,ejsl,sjsl,fsej,fss' +
        'j,qt,hj'
      'from zgfpb a, dwxxb b,fwytb c'
      'where a.dwbh =b.dwbh and a.ytbh=c.bh')
    Left = 176
    Top = 96
    object ADOQrySLFPdwbh: TStringField
      FieldName = 'dwbh'
      FixedChar = True
      Size = 3
    end
    object ADOQrySLFPdwmc: TStringField
      FieldName = 'dwmc'
    end
    object ADOQrySLFPytbh: TStringField
      FieldName = 'ytbh'
      FixedChar = True
      Size = 2
    end
    object ADOQrySLFPytmc: TStringField
      FieldName = 'ytmc'
      FixedChar = True
      Size = 12
    end
    object ADOQrySLFPyjsl: TSmallintField
      FieldName = 'yjsl'
    end
    object ADOQrySLFPejsl: TSmallintField
      FieldName = 'ejsl'
    end
    object ADOQrySLFPsjsl: TSmallintField
      FieldName = 'sjsl'
    end
    object ADOQrySLFPfsej: TSmallintField
      FieldName = 'fsej'
    end
    object ADOQrySLFPfssj: TSmallintField
      FieldName = 'fssj'
    end
    object ADOQrySLFPqt: TSmallintField
      FieldName = 'qt'
    end
    object ADOQrySLFPhj: TSmallintField
      FieldName = 'hj'
    end
  end
end