datamodel.~dfm

本人帮别人写的一个卡特尔16F性格检测程序

object DataModule1: TDataModule1
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 250
  Top = 287
  Height = 349
  Width = 662
  object ADOTable1: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'csz'
    Left = 64
    Top = 24
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Se' +
      'ttings\Administrator\'#26700#38754'\'#20851#20110'16PF'#32534#31243#26500#24819'\16PF\DataBase\16pf.mdb;Jet OL' +
      'EDB:Database Password=nocrake;Persist Security Info=false'
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 64
    Top = 88
  end
  object ADOTable2: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'YinSu'
    Left = 144
    Top = 24
    object ADOTable2YinSuBH: TWideStringField
      DisplayLabel = #22240#32032#23383#27597
      FieldName = 'YinSuBH'
      Size = 2
    end
    object ADOTable2YinSuName: TWideStringField
      DisplayLabel = #22240#32032#21517#31216
      FieldName = 'YinSuName'
      KeyFields = 'YinSuBH'
      Size = 50
    end
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'l1'
        DataType = ftInteger
        Value = Null
      end
      item
        Name = 'l2'
        DataType = ftInteger
        Value = Null
      end>
    SQL.Strings = (
      'select * from yinsq'
      'where yinsuqid >= l1 and yinsuqid <l2')
    Left = 232
    Top = 24
  end
  object ADOTable3: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'csL'
    Left = 168
    Top = 88
  end
  object ADOTable4: TADOTable
    Connection = ADOConnection1
    TableName = 'YinSq'
    Left = 256
    Top = 88
    object ADOTable4YinSuQID: TIntegerField
      FieldName = 'YinSuQID'
    end
    object ADOTable4YinSqTitle: TWideStringField
      FieldName = 'YinSqTitle'
      Size = 200
    end
    object ADOTable4YinSuID: TWideStringField
      FieldName = 'YinSuID'
      Size = 2
    end
    object ADOTable4Atype: TIntegerField
      FieldName = 'Atype'
    end
    object ADOTable4QA: TWideStringField
      FieldName = 'QA'
      Size = 50
    end
    object ADOTable4QB: TWideStringField
      FieldName = 'QB'
      Size = 50
    end
    object ADOTable4QC: TWideStringField
      FieldName = 'QC'
      Size = 50
    end
    object ADOTable4QAf: TIntegerField
      FieldName = 'QAf'
    end
    object ADOTable4QBf: TIntegerField
      FieldName = 'QBf'
    end
    object ADOTable4QCf: TIntegerField
      FieldName = 'QCf'
    end
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'rybh1'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from PersionYinSumFz '
      'where csrbh = rybh1')
    Left = 64
    Top = 152
  end
  object ADOQuery3: TADOQuery
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'cmlb'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'intBeginFz'
        Attributes = [paNullable]
        DataType = ftInteger
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'intEndFz'
        Attributes = [paNullable]
        DataType = ftInteger
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'strYinSuID'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      
        'select bzf from cmb where lb = cmlb and  intBeginFz>= beginFz an' +
        'd  intEndFz<= endFz  and yinsu = strYinSuID')
    Left = 160
    Top = 152
  end
  object ADOQuery4: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from csz')
    Left = 256
    Top = 160
    object ADOQuery4bh: TAutoIncField
      FieldName = 'bh'
      ReadOnly = True
    end
    object ADOQuery4xm: TWideStringField
      FieldName = 'xm'
      Size = 50
    end
    object ADOQuery4xb: TWideStringField
      FieldName = 'xb'
      Size = 50
    end
    object ADOQuery4nl: TIntegerField
      FieldName = 'nl'
    end
    object ADOQuery4zy: TWideStringField
      FieldName = 'zy'
      Size = 50
    end
    object ADOQuery4cssj: TDateTimeField
      FieldName = 'cssj'
    end
  end
  object ADOCommand1: TADOCommand
    Connection = ADOConnection1
    Parameters = <>
    Left = 128
    Top = 216
  end
  object ADOTable5: TADOTable
    ConnectionString = 
      'Provider=MSDASQL.1;Password=nocrake;Persist Security Info=True;U' +
      'ser ID=admin;Extended Properties="DSN=MS Access Database;DBQ=C:\' +
      'Documents and Settings\Administrator\'#26700#38754'\'#20851#20110'16PF'#32534#31243#26500#24819'\16PF\DataBase' +
      '\16pf.mdb;DefaultDir=C:\Documents and Settings\Administrator\'#26700#38754'\' +
      #20851#20110'16PF'#32534#31243#26500#24819'\16PF\DataBase;DriverId=25;FIL=MS Access;MaxBufferSize' +
      '=2048;PageTimeout=5;PWD=nocrake;UID=admin;"'
    TableName = 'jcTree'
    Left = 248
    Top = 224
    object ADOTable5ID: TWideStringField
      FieldName = 'ID'
      Size = 50
    end
    object ADOTable5title: TWideStringField
      FieldName = 'title'
      Size = 50
    end
    object ADOTable5PID: TWideStringField
      FieldName = 'PID'
      Size = 50
    end
    object ADOTable5isYz: TBooleanField
      FieldName = 'isYz'
    end
    object ADOTable5isRoot: TBooleanField
      FieldName = 'isRoot'
    end
    object ADOTable5bgms: TMemoField
      FieldName = 'bgms'
      BlobType = ftMemo
    end
  end
  object ADOTable6: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'csjlbzf'
    Left = 352
    Top = 104
    object ADOTable6id: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOTable6rybh: TIntegerField
      FieldName = 'rybh'
    end
    object ADOTable6ysbh: TWideStringField
      FieldName = 'ysbh'
      Size = 2
    end
    object ADOTable6bzf: TIntegerField
      FieldName = 'bzf'
    end
  end
  object ADOQuery5: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT csjlbzf.ysbh, Count(csjlbzf.id) AS rs, Sum(csjlbzf.bzf) A' +
        'S zs, StDev(csjlbzf.bzf) AS bzc, Var(csjlbzf.bzf) AS fc'
      'FROM csjlbzf'
      'GROUP BY csjlbzf.ysbh;')
    Left = 352
    Top = 176
    object ADOQuery5ysbh: TWideStringField
      FieldName = 'ysbh'
      Size = 2
    end
    object ADOQuery5rs: TIntegerField
      FieldName = 'rs'
    end
    object ADOQuery5zs: TFloatField
      FieldName = 'zs'
    end
    object ADOQuery5bzc: TFloatField
      FieldName = 'bzc'
      ReadOnly = True
    end
    object ADOQuery5fc: TFloatField
      FieldName = 'fc'
      ReadOnly = True
    end
  end
  object ADOQuery6: TADOQuery
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'nPid'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from jcTree where pid = nPid')
    Left = 356
    Top = 232
  end
  object ADOTablenld: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'nld'
    Left = 432
    Top = 200
    object ADOTablenldID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object ADOTablenldBage: TIntegerField
      FieldName = 'Bage'
    end
    object ADOTablenldEage: TIntegerField
      FieldName = 'Eage'
    end
  end
  object ADOTable7: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'yinsFzd'
    Left = 336
    Top = 32
    object ADOTable7ID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object ADOTable7yinsID: TWideStringField
      FieldName = 'yinsID'
      Size = 2
    end
    object ADOTable7Bfz: TIntegerField
      FieldName = 'Bfz'
    end
    object ADOTable7Efz: TIntegerField
      FieldName = 'Efz'
    end
  end
  object ADOCommand2: TADOCommand
    Connection = ADOConnection1
    Parameters = <>
    Left = 408
    Top = 16
  end
  object ADOCommand3: TADOCommand
    CommandText = 
      'INSERT INTO fzdsz ( xbcode_codeID, xbcode_codeName, zyfcode_code' +
      'ID, zyfcode_codeName, bage, eage, yinsubh, yinsuname, bfz, efz )' +
      #13#10'SELECT xbAndZyAndNlCross.xbCode.CodeID, xbAndZyAndNlCross.xbCo' +
      'de.CodeName, xbAndZyAndNlCross.zyfCode.CodeID, xbAndZyAndNlCross' +
      '.zyfCode.CodeName, xbAndZyAndNlCross.Bage, xbAndZyAndNlCross.Eag' +
      'e, yinsuFzd.YinSuBH, yinsuFzd.YinSuName, yinsuFzd.Bfz, yinsuFzd.' +
      'Efz'#13#10'FROM xbAndZyAndNlCross, yinsuFzd;'
    Connection = ADOConnection1
    Parameters = <>
    Left = 488
    Top = 32
  end
  object ADOQuery7: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      
        'INSERT INTO fzdsz ( xbcode_codeID, xbcode_codeName, zyfcode_code' +
        'ID, zyfcode_codeName, bage, eage, yinsubh, yinsuname, bfz, efz )'
      
        'SELECT xbAndZyAndNlCross.xbCode.CodeID, xbAndZyAndNlCross.xbCode' +
        '.CodeName, xbAndZyAndNlCross.zyfCode.CodeID, xbAndZyAndNlCross.z' +
        'yfCode.CodeName, xbAndZyAndNlCross.Bage, xbAndZyAndNlCross.Eage,' +
        ' yinsuFzd.YinSuBH, yinsuFzd.YinSuName, yinsuFzd.Bfz, yinsuFzd.Ef' +
        'z'
      'FROM xbAndZyAndNlCross, yinsuFzd;')
    Left = 424
    Top = 112
  end
  object ADOTable8: TADOTable
    Connection = ADOConnection1
    TableName = 'fzdsz'
    Left = 488
    Top = 160
    object ADOTable8ID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object ADOTable8xbCode_CodeID: TWideStringField
      FieldName = 'xbCode_CodeID'
      ReadOnly = True
      Size = 6
    end
    object ADOTable8xbCode_CodeName: TWideStringField
      FieldName = 'xbCode_CodeName'
      ReadOnly = True
      Size = 50
    end
    object ADOTable8zyfCode_CodeID: TWideStringField
      FieldName = 'zyfCode_CodeID'
      ReadOnly = True
      Size = 6
    end
    object ADOTable8zyfCode_CodeName: TWideStringField
      FieldName = 'zyfCode_CodeName'
      ReadOnly = True
      Size = 50
    end
    object ADOTable8Bage: TIntegerField
      FieldName = 'Bage'
      ReadOnly = True
    end
    object ADOTable8Eage: TIntegerField
      FieldName = 'Eage'
      ReadOnly = True
    end
    object ADOTable8YinSuBH: TWideStringField
      FieldName = 'YinSuBH'
      ReadOnly = True
      Size = 2
    end
    object ADOTable8YinSuName: TWideStringField
      FieldName = 'YinSuName'
      ReadOnly = True
      Size = 50
    end
    object ADOTable8Bfz: TIntegerField
      FieldName = 'Bfz'
      ReadOnly = True
    end
    object ADOTable8Efz: TIntegerField
      FieldName = 'Efz'
      ReadOnly = True
    end
    object ADOTable8xgms: TMemoField
      FieldName = 'xgms'
      BlobType = ftMemo
    end
  end
  object ADOQuery8: TADOQuery
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'xbName'
        DataType = ftWideString
        Value = Null
      end
      item
        Name = 'zyName'
        DataType = ftWideString
        Value = Null
      end
      item
        Name = 'nl'
        DataType = ftInteger
        Value = Null
      end
      item
        Name = 'bz'
        DataType = ftInteger
        Value = Null
      end
      item
        Name = 'YinsuID'
        DataType = ftWideString
        Value = Null
      end>
    SQL.Strings = (
      
        'SELECT fzdsz.xgms FROM fzdsz WHERE fzdsz.xbCode_CodeName=xbName ' +
        ' AND zdsz.zyfCode_CodeName=zyName '
      
        'AND nl>=fzdsz.Bage AND  nl<fzdsz.Eage AND  bz>=fzdsz.Bfz AND  bz' +
        '<fzdsz.Efz and fzdsz.YinSuBH = YinsuID;')
    Left = 64
    Top = 256
  end
  object ADOQuery9: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 568
    Top = 216
  end
end