ufrmchild.dfm

数据库通用工具

      'BLOB EDIT LOGGING='
      'LANGDRIVER='
      'SQLQRYMODE='
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'DATE MODE=0'
      'SCHEMA CACHE TIME=-1'
      'MAX QUERY TIME=300'
      'MAX ROWS=-1'
      'BATCH COUNT=200'
      'ENABLE SCHEMA CACHE=FALSE'
      'SCHEMA CACHE DIR='
      'HOST NAME='
      'APPLICATION NAME='
      'NATIONAL LANG NAME='
      'ENABLE BCD=FALSE'
      'TDS PACKET SIZE=4096'
      'BLOBS TO CACHE=64'
      'BLOB SIZE=32'
      'PASSWORD=')
    SessionName = 'Default'
    AfterConnect = Database2AfterConnect
    AfterDisconnect = Database2AfterDisconnect
    Left = 696
    Top = 8
  end
  object Query2: TQuery
    DatabaseName = 'sars'
    Left = 696
    Top = 56
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 696
    Top = 104
  end
  object qryInsert: TQuery
    SQL.Strings = (
      'insert into Child'
      '('
      'id,'
      'stationId,'
      'childType,'
      'name,'
      'birth,'
      'sex,'
      'father,'
      'cfwork,'
      'mather,'
      'cmwork,'
      'address,'
      'telephone,'
      'handphone,'
      'email,'
      'change_address,'
      'changeDate,'
      'changeType,'
      'c_mark,'
      'hkAddress,'
      'Childill,'
      'HomeIllS,'
      'GuoMinS,'
      'buildDate,'
      'state,'
      'birthPaperId,'
      'cardid,'
      'password,'
      'cardstate'
      ')'
      'values'
      '('
      ':id,'
      ':stationId,'
      ':childType,'
      ':name,'
      ':birth,'
      ':sex,'
      ':father,'
      ':cfwork,'
      ':mather,'
      ':cmwork,'
      ':address,'
      ':telephone,'
      ':handphone,'
      ':email,'
      ':change_address,'
      ':changeDate,'
      ':changeType,'
      ':c_mark,'
      ':hkAddress,'
      ':Childill,'
      ':HomeIllS,'
      ':GuoMinS,'
      ':buildDate,'
      ':state,'
      ':birthPaperId,'
      ':cardid,'
      ':password,'
      ':cardstate'
      ')'
      '')
    Left = 684
    Top = 200
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'stationId'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'childType'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'name'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'birth'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'sex'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'father'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'cfwork'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'mather'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'cmwork'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'address'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'telephone'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'handphone'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'email'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'change_address'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'changeDate'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'changeType'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'c_mark'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'hkAddress'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'Childill'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'HomeIllS'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'GuoMinS'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'buildDate'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'state'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'birthPaperId'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'cardid'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'password'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'cardstate'
        ParamType = ptUnknown
      end>
  end
  object qryA: TQuery
    DatabaseName = 'seal'
    SQL.Strings = (
      'select *'
      'from child'
      'order by birth')
    Left = 232
    Top = 192
  end
  object qryB: TQuery
    DatabaseName = 'seal'
    SQL.Strings = (
      'select * '
      'from Inoculate'
      'where childid=:childid')
    Left = 232
    Top = 248
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'childid'
        ParamType = ptUnknown
      end>
  end
  object qryC: TQuery
    DatabaseName = 'seal'
    SQL.Strings = (
      'select * from xzqhinfo')
    Left = 232
    Top = 312
  end
  object qryInoculateSel: TQuery
    SQL.Strings = (
      'select I.*,B.name as BacterinName'
      'from Inoculate I,bacterin B'
      'where I.ChildId=:ChildId'
      '  and I.BacterinId=B.id')
    Left = 684
    Top = 256
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ChildId'
        ParamType = ptUnknown
      end>
  end
  object QueryC: TQuery
    Left = 684
    Top = 320
  end
  object checkInfo: TQuery
    SQL.Strings = (
      'select *'
      'from Child'
      'where name=:name'
      '  and birth=:birth'
      '  and mather=:mather'
      '  and father=:father'
      '  and sex=:sex')
    Left = 540
    Top = 320
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'name'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'birth'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'mather'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'father'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'sex'
        ParamType = ptUnknown
      end>
  end
  object GetKey: TQuery
    SQL.Strings = (
      'select *'
      'from ask_id'
      'where c_table=:c_table')
    Left = 540
    Top = 376
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'c_table'
        ParamType = ptUnknown
      end>
  end
  object KeyAdd: TQuery
    SQL.Strings = (
      'update ask_id set l_id = l_id+1'
      'where c_table=:c_table')
    Left = 540
    Top = 432
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'c_table'
        ParamType = ptUnknown
      end>
  end
  object aryGetDate: TQuery
    SQL.Strings = (
      'select getdate() as NowDate')
    Left = 508
    Top = 232
  end
end