object adodm: Tadodm
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 359
  Top = 156
  Height = 406
  Width = 495
  object ydconn: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=yd;Data Source=guandu3'
    KeepConnection = False
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'SQLOLEDB.1'
    Left = 24
    Top = 8
  end
  object typzdk: TADOTable
    Connection = ydconn
    CursorType = ctStatic
    Filter = ' '#21058#22411'<>'#39#39
    TableName = 'ypzdk'
    Left = 200
    Top = 8
    object typzdkid: TBCDField
      FieldName = 'id'
      ReadOnly = True
      Precision = 18
      Size = 0
    end
    object typzdkDSDesigner: TStringField
      FieldName = #21517#31216
      Size = 50
    end
    object typzdkDSDesigner2: TStringField
      FieldName = #32534#21495
      FixedChar = True
      Size = 16
    end
    object typzdkDSDesigner3: TStringField
      FieldName = #26465#30721
      Size = 15
    end
    object typzdkDSDesigner4: TStringField
      FieldName = #31616#30721
      Size = 10
    end
    object typzdkDSDesigner5: TStringField
      FieldName = #21333#20301
      Size = 4
    end
    object typzdkDSDesigner6: TStringField
      FieldName = #35268#26684
    end
    object typzdkDSDesigner7: TStringField
      FieldName = #29983#20135#21378#23478
      Size = 50
    end
    object typzdkDSDesigner8: TStringField
      FieldName = #25209#20934#25991#21495
      Size = 30
    end
    object typzdkDSDesigner9: TIntegerField
      FieldName = #26368#39640#38480#37327
    end
    object typzdkDSDesigner10: TIntegerField
      FieldName = #26368#20302#38480#37327
    end
    object typzdkDSDesigner11: TBCDField
      FieldName = #25209#21457#20215
      Precision = 10
    end
    object typzdkDSDesigner12: TBCDField
      FieldName = #38646#21806#20215
      Precision = 10
    end
    object typzdkDSDesigner13: TMemoField
      FieldName = #20027#27835
      BlobType = ftMemo
    end
    object typzdkDSDesigner14: TStringField
      FieldName = #21058#22411
      Size = 10
    end
    object typzdkDSDesigner15: TStringField
      FieldName = #20998#31867
      Size = 10
    end
  end
  object tyg: TADOTable
    Connection = ydconn
    CursorType = ctStatic
    TableName = 'ygb'
    Left = 328
    Top = 8
    object tygygid: TBCDField
      FieldName = 'ygid'
      ReadOnly = True
      Precision = 18
      Size = 0
    end
    object tygDSDesigner: TStringField
      FieldName = #22995#21517
      Size = 10
    end
    object tygDSDesigner2: TStringField
      FieldName = #21592#24037#32534#21495
      FixedChar = True
      Size = 3
    end
    object tygDSDesigner3: TStringField
      FieldName = #32844#21153
      Size = 10
    end
    object tygDSDesigner4: TSmallintField
      FieldName = #24180#40836
    end
    object tygDSDesigner5: TDateTimeField
      FieldName = #38599#20323#26085#26399
    end
    object tygDSDesigner6: TStringField
      FieldName = #24615#21035
      Required = True
      FixedChar = True
      Size = 2
    end
    object tygDSDesigner7: TStringField
      FieldName = #23398#21382
      Size = 10
    end
    object tygDSDesigner8: TStringField
      FieldName = #20303#22336
      Size = 100
    end
    object tygDSDesigner9: TStringField
      FieldName = #36523#20221#35777#21495
      FixedChar = True
      Size = 18
    end
    object tygDSDesigner10: TStringField
      FieldName = #32852#31995#26041#24335
      Size = 100
    end
    object tygDSDesigner11: TStringField
      FieldName = #31616#30721
      Required = True
      Size = 10
    end
    object tygDSDesigner12: TStringField
      FieldName = #22791#27880
      Size = 100
    end
    object tygField: TStringField
      FieldKind = fkLookup
      FieldName = #37096#38376#21517#31216
      LookupDataSet = tbm
      LookupKeyFields = #37096#38376#32534#21495
      LookupResultField = #37096#38376#21517#31216
      KeyFields = #25152#23646#37096#38376
      Lookup = True
    end
    object tygDSDesigner13: TStringField
      FieldName = #25152#23646#37096#38376
      Required = True
      FixedChar = True
      Size = 3
    end
  end
  object dsypzdk: TDataSource
    DataSet = typzdk
    Left = 256
    Top = 8
  end
  object dsyg: TDataSource
    DataSet = tyg
    Left = 384
    Top = 8
  end
  object ImageList1: TImageList
    BlendColor = clInfoBk
    Height = 32
    Width = 32
    Left = 96
    Top = 8
    Bitmap = {
      [encoded data, 87360 characters]
      000000000000}
  end
  object tbm: TADOTable
    Connection = ydconn
    CursorType = ctStatic
    IndexFieldNames = #37096#38376#32534#21495
    TableName = 'partment'
    Left = 328
    Top = 80
    object tbmDSDesigner: TStringField
      FieldName = #37096#38376#32534#21495
      Required = True
      FixedChar = True
      Size = 3
    end
    object tbmDSDesigner2: TStringField
      CustomConstraint = 'x<>'#39#39' and x<>null'
      ConstraintErrorMessage = ' '#19981#33021#20026#31354
      FieldName = #37096#38376#21517#31216
      Required = True
      Size = 50
    end
    object tbmDSDesigner3: TStringField
      FieldName = #31616#30721
      Required = True
      Size = 10
    end
  end
  object tdw: TADOTable
    Connection = ydconn
    CursorType = ctStatic
    TableName = 'company'
    Left = 328
    Top = 144
    object tdwclientid: TBCDField
      FieldName = 'clientid'
      ReadOnly = True
      Precision = 18
      Size = 0
    end
    object tdwDSDesigner: TStringField
      FieldName = #31616#30721
      Required = True
      Size = 10
    end
    object tdwDSDesigner2: TStringField
      FieldName = #21517#31216
      Required = True
      Size = 50
    end
    object tdwDSDesigner3: TStringField
      FieldName = #27861#20154
      Size = 16
    end
    object tdwDSDesigner4: TStringField
      FieldName = #30005#35805
      FixedChar = True
    end
    object tdwDSDesigner5: TStringField
      FieldName = #22320#22336
      Size = 50
    end
    object tdwDSDesigner6: TStringField
      FieldName = #22791#27880
      Size = 1
    end
    object tdwDSDesigner7: TStringField
      FieldName = #31867#22411
      Required = True
      Size = 10
    end
    object tdwDSDesigner8: TWordField
      DisplayLabel = #36135#29289#27969#21521
      FieldName = #20986#20837
      Required = True
    end
    object tdwDSDesigner9: TStringField
      FieldName = #32852#31995#20154
      Size = 10
    end
  end
  object dsbm: TDataSource
    DataSet = tbm
    Left = 384
    Top = 80
  end
  object dsdw: TDataSource
    DataSet = tdw
    Left = 384
    Top = 144
  end
  object tkc: TADOTable
    Connection = ydconn
    CursorType = ctStatic
    TableName = 'kc'
    Left = 200
    Top = 144
    object tkckcid: TBCDField
      FieldName = 'kcid'
      ReadOnly = True
      Precision = 18
      Size = 0
    end
    object tkcDSDesigner: TIntegerField
      FieldName = #25968#37327
    end
    object tkcDSDesigner2: TBCDField
      FieldName = #36141#36827#21333#20215
      Precision = 10
    end
    object tkcDSDesigner3: TBCDField
      FieldName = #36141#36827#37329#39069
      Precision = 15
    end
    object tkcypid: TBCDField
      FieldName = 'ypid'
      Precision = 18
      Size = 0
    end
  end
  object dskc: TDataSource
    DataSet = tkc
    Left = 264
    Top = 144
  end
  object dscr: TDataSource
    DataSet = tcr
    Left = 264
    Top = 80
  end
  object dsoper: TDataSource
    DataSet = toper
    Left = 96
    Top = 64
  end
  object dsuser: TDataSource
    DataSet = tuser
    Left = 96
    Top = 128
  end
  object dsydjcb: TDataSource
    DataSet = ydjcb
    Left = 104
    Top = 200
  end
  object toper: TADODataSet
    Connection = ydconn
    CursorType = ctStatic
    CommandText = 'select top 0 * from oper'
    Parameters = <>
    Left = 24
    Top = 64
  end
  object tuser: TADOTable
    Connection = ydconn
    CursorType = ctStatic
    TableName = 'user1'
    Left = 24
    Top = 128
  end
  object ydjcb: TADODataSet
    Connection = ydconn
    CursorType = ctStatic
    CommandText = 'select * from ydjcb'
    Parameters = <>
    Left = 24
    Top = 200
  end
  object tcr: TADODataSet
    CacheSize = 1000
    Connection = ydconn
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'select top 0 * from cr'
    ParamCheck = False
    Parameters = <>
    Left = 200
    Top = 80
    object tcrcrid: TBCDField
      FieldName = 'crid'
      ReadOnly = True
      Precision = 18
      Size = 0
    end
    object tcrypid: TBCDField
      FieldName = 'ypid'
      Precision = 18
      Size = 0
    end
    object tcrDSDesigner: TStringField
      FieldName = #32534#21495
      FixedChar = True
      Size = 16
    end
    object tcrDSDesigner2: TIntegerField
      FieldName = #20986#24211#21333#20301
    end
    object tcrDSDesigner3: TIntegerField
      FieldName = #20837#24211#21333#20301
    end
    object tcrDSDesigner4: TIntegerField
      FieldName = #25968#37327
      Required = True
    end
    object tcrDSDesigner5: TBCDField
      FieldName = #21333#20215
      Required = True
      Precision = 10
    end
    object tcrDSDesigner6: TBCDField
      FieldName = #37329#39069
      Required = True
      Precision = 15
    end
    object tcrDSDesigner7: TStringField
      FieldName = #25805#20316#20154
      Size = 12
    end
    object tcrDSDesigner8: TIntegerField
      FieldName = #24320#31080#20154
    end
    object tcrDSDesigner10: TDateTimeField
      FieldName = #26085#26399
    end
    object tcrDSDesigner12: TStringField
      FieldName = #31867#22411
      Size = 10
    end
    object tcrDSDesigner13: TBooleanField
      FieldName = #20986#20837
    end
    object tcrField: TStringField
      FieldKind = fkLookup
      FieldName = #33647#21697#21517#31216
      LookupDataSet = typzdk
      LookupKeyFields = 'id'
      LookupResultField = #21517#31216
      KeyFields = 'ypid'
      Required = True
      Size = 30
      Lookup = True
    end
    object tcrField2: TStringField
      FieldKind = fkLookup
      FieldName = #33647#21697#32534#21495
      LookupDataSet = typzdk
      LookupKeyFields = 'id'
      LookupResultField = #32534#21495
      KeyFields = 'ypid'
      Lookup = True
    end
    object tcrField3: TStringField
      FieldKind = fkLookup
      FieldName = #33647#21697#31616#30721
      LookupDataSet = typzdk
      LookupKeyFields = 'id'
      LookupResultField = #31616#30721
      KeyFields = 'ypid'
      Size = 10
      Lookup = True
    end
    object tcrField4: TFloatField
      FieldKind = fkLookup
      FieldName = #25209#21457#20215
      LookupDataSet = typzdk
      LookupKeyFields = 'id'
      LookupResultField = #25209#21457#20215
      KeyFields = 'ypid'
      Lookup = True
    end
    object tcrField5: TFloatField
      FieldKind = fkLookup
      FieldName = #38646#21806#20215
      LookupDataSet = typzdk
      LookupKeyFields = 'id'
      LookupResultField = #38646#21806#20215
      KeyFields = 'ypid'
      Lookup = True
    end
    object tcrField6: TStringField
      FieldKind = fkLookup
      FieldName = #21333#20301
      LookupDataSet = typzdk
      LookupKeyFields = 'id'
      LookupResultField = #21333#20301
      KeyFields = 'ypid'
      Size = 10
      Lookup = True
    end
    object tcrField7: TStringField
      FieldKind = fkLookup
      FieldName = #35268#26684
      LookupDataSet = typzdk
      LookupKeyFields = 'id'
      LookupResultField = #35268#26684
      KeyFields = 'ypid'
      Lookup = True
    end
    object tcrField8: TBCDField
      FieldName = #25104#26412#37329#39069
    end
  end
  object ttemp: TADODataSet
    Connection = ydconn
    CursorType = ctStatic
    Parameters = <>
    Left = 200
    Top = 208
  end
  object dstemp: TDataSource
    DataSet = ttemp
    Left = 264
    Top = 208
  end
  object ttj: TADOTable
    Connection = ydconn
    CursorType = ctStatic
    TableName = 'tj'
    Left = 328
    Top = 208
  end
  object dstj: TDataSource
    DataSet = ttj
    Left = 384
    Top = 208
  end
  object ctemp: TADOCommand
    CommandText = 'getbh;1'
    CommandType = cmdStoredProc
    Connection = ydconn
    Prepared = True
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@lx'
        Attributes = [paNullable]
        DataType = ftString
        Size = 2
        Value = 'rk'
      end
      item
        Name = '@bh'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 15
        Value = '  '
      end>
    Left = 104
    Top = 320
  end
  object cback: TADOCommand
    Connection = backconn
    Prepared = True
    Parameters = <>
    Left = 104
    Top = 272
  end
  object backconn: TADOConnection
    KeepConnection = False
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 24
    Top = 272
  end
  object tcrlist: TADODataSet
    Connection = ydconn
    CursorType = ctStatic
    CommandText = 
      'select a.* , '#36141#36827#37329#39069'=case '#13#10'when (b.'#31867#22411'='#39#25209#21457#39') or (b.'#31867#22411'= '#39#38646#21806#39' ) or (b' +
      '.'#31867#22411'= '#39#36864#33647#39' ) then b.'#25104#26412#37329#39069' else  b.'#37329#39069' end '#13#10' ,b.* ,b.'#32534#21495' as '#38144#21806#32534#21495',c.'#22995 +
      #21517' ,d.'#21517#31216' as '#36141#33647#21333#20301' from ypzdk a,cr b ,ygb c ,company d  '#13#10'where  a.' +
      'id=b.ypid and b.'#24320#31080#20154'=c.ygid and b.'#20837#24211#21333#20301'=d.clientid '#13#10
    Parameters = <>
    Left = 336
    Top = 272
  end
  object dscrlist: TDataSource
    DataSet = tcrlist
    Left = 392
    Top = 272
  end
  object ImageList2: TImageList
    Left = 152
    Top = 8
    Bitmap = {
      [encoded data, 26432 characters]
      000000000000}
  end
  object tdjsearch: TADODataSet
    Connection = ydconn
    CursorType = ctStatic
    CommandText = 
      'select ypid, '#32534#21495','#23545#26041#21333#20301'=case '#13#10'                   when '#20986#20837'=0 then '#20837#24211 +
      #21333#20301#13#10'                   when '#20986#20837'=1 then '#20986#24211#21333#20301#13#10'                   e' +
      'nd ,'#13#10'           '#25968#37327','#21333#20215','#37329#39069','#25805#20316#20154','#24320#31080#20154','#26085#26399','#31867#22411','#20986#20837#13#10'from cr where '#32534#21495'=:bh' +
      #13#10#13#10'       '
    Parameters = <
      item
        Name = 'bh'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 16
        Value = ''
      end>
    Left = 200
    Top = 264
    object tdjsearchypid: TBCDField
      FieldName = 'ypid'
      Precision = 18
      Size = 0
    end
    object tdjsearchDSDesigner: TStringField
      FieldName = #32534#21495
      FixedChar = True
      Size = 16
    end
    object tdjsearchDSDesigner2: TIntegerField
      FieldName = #23545#26041#21333#20301
      ReadOnly = True
    end
    object tdjsearchDSDesigner3: TIntegerField
      FieldName = #25968#37327
    end
    object tdjsearchDSDesigner4: TBCDField
      FieldName = #21333#20215
      Precision = 10
    end
    object tdjsearchDSDesigner5: TBCDField
      FieldName = #37329#39069
      Precision = 15
    end
    object tdjsearchDSDesigner6: TStringField
      FieldName = #25805#20316#20154
      Size = 12
    end
    object tdjsearchDSDesigner7: TIntegerField
      FieldName = #24320#31080#20154
    end
    object tdjsearchDSDesigner8: TDateTimeField
      FieldName = #26085#26399
    end
    object tdjsearchDSDesigner9: TStringField
      FieldName = #31867#22411
      Size = 10
    end
    object tdjsearchDSDesigner10: TBooleanField
      FieldName = #20986#20837
    end
    object tdjsearchField: TStringField
      FieldKind = fkLookup
      FieldName = #33647#21697#21517#31216
      LookupDataSet = typzdk
      LookupKeyFields = 'id'
      LookupResultField = #21517#31216
      KeyFields = 'ypid'
      Size = 30
      Lookup = True
    end
    object tdjsearchField2: TStringField
      FieldKind = fkLookup
      FieldName = #21333#20301#21517#31216
      LookupDataSet = tdw
      LookupKeyFields = 'clientid'
      LookupResultField = #21517#31216
      KeyFields = #23545#26041#21333#20301
      Size = 30
      Lookup = True
    end
    object tdjsearchIntegerField: TStringField
      FieldKind = fkLookup
      FieldName = #24320#31080
      LookupDataSet = tyg
      LookupKeyFields = 'ygid'
      LookupResultField = #22995#21517
      KeyFields = #24320#31080#20154
      Lookup = True
    end
    object tdjsearchField3: TStringField
      DisplayLabel = #33647#21697#35268#26684
      FieldKind = fkLookup
      FieldName = #35268#26684
      LookupDataSet = typzdk
      LookupKeyFields = 'id'
      LookupResultField = #35268#26684
      KeyFields = 'ypid'
      Lookup = True
    end
    object tdjsearchField4: TStringField
      DisplayLabel = #33647#21697#21333#20301
      FieldKind = fkLookup
      FieldName = #21333#20301
      LookupDataSet = typzdk
      LookupKeyFields = 'id'
      LookupResultField = #21333#20301
      KeyFields = 'ypid'
      Size = 10
      Lookup = True
    end
    object tdjsearchField5: TStringField
      FieldKind = fkLookup
      FieldName = #33647#21697#32534#21495
      LookupDataSet = typzdk
      LookupKeyFields = 'id'
      LookupResultField = #32534#21495
      KeyFields = 'ypid'
      Lookup = True
    end
  end
  object dsdjsearch: TDataSource
    DataSet = tdjsearch
    Left = 264
    Top = 264
  end
  object txstj: TADODataSet
    Connection = ydconn
    CursorType = ctStatic
    Parameters = <>
    Left = 200
    Top = 320
  end
  object dsxstj: TDataSource
    DataSet = txstj
    Left = 264
    Top = 320
  end
end
