datapas.dfm

来自「本软件是一套功能完整成熟的固定资产管理系统,具有固定资产管理系统的相应全部功能」· DFM 代码 · 共 1,872 行 · 第 1/5 页

  end
  object zdbmcx: TADOQuery
    Connection = hjzcdatabase
    Parameters = <>
    Left = 224
    Top = 8
  end
  object gdzcxhb: TADOTable
    Connection = hjzcdatabase
    CursorType = ctStatic
    IndexFieldNames = #36164#20135#21517#31216#32534#30721
    MasterFields = #36164#20135#21517#31216#32534#30721
    MasterSource = gdzcmcsour
    TableName = #22266#23450#36164#20135#22411#21495#34920
    Left = 120
    Top = 112
    object gdzcxhbDSDesigner: TSmallintField
      FieldName = #36164#20135#22411#21495#32534#30721
    end
    object gdzcxhbDSDesigner2: TSmallintField
      FieldName = #36164#20135#21517#31216#32534#30721
    end
    object gdzcxhbDSDesigner3: TWideStringField
      FieldName = #22266#23450#36164#20135#22411#21495
      Size = 50
    end
  end
  object gdzcmcsour: TDataSource
    DataSet = gdzcmcb
    Left = 80
    Top = 112
  end
  object gdzcxxb: TADOTable
    Connection = hjzcdatabase
    TableName = #22266#23450#36164#20135#20449#24687#34920
    Left = 160
    Top = 112
    object gdzcxxbDSDesigner: TSmallintField
      FieldName = #22266#23450#36164#20135#32534#30721
    end
    object gdzcxxbDSDesigner2: TSmallintField
      FieldName = #36164#20135#31867#21035#32534#30721
    end
    object gdzcxxbDSDesigner3: TSmallintField
      FieldName = #36164#20135#21517#31216#32534#30721
    end
    object gdzcxxbDSDesigner4: TSmallintField
      FieldName = #36164#20135#29992#36884#32534#30721
    end
    object gdzcxxbDSDesigner5: TSmallintField
      FieldName = #36164#20135#22411#21495#32534#30721
    end
    object gdzcxxbDSDesigner6: TWideStringField
      FieldName = #37197#32622
      Size = 50
    end
    object gdzcxxbDSDesigner7: TWideStringField
      FieldName = #24207#21015#21495
      Size = 50
    end
    object gdzcxxbDSDesigner8: TSmallintField
      FieldName = #20379#24212#21830#32534#30721
    end
    object gdzcxxbDSDesigner9: TDateTimeField
      FieldName = #36141#20080#26085#26399
    end
    object gdzcxxbDSDesigner10: TBCDField
      FieldName = #36141#20080#20215#26684
      Precision = 19
    end
    object gdzcxxbDSDesigner11: TSmallintField
      FieldName = #32844#21592#32534#30721
    end
    object gdzcxxbDSDesigner12: TWideStringField
      FieldName = #23384#25918#22320#28857
      Size = 50
    end
    object gdzcxxbDSDesigner13: TSmallintField
      FieldName = #20351#29992#24180#38480
    end
    object gdzcxxbDSDesigner14: TBooleanField
      FieldName = #26159#21542#20511#20986
    end
    object gdzcxxbDSDesigner15: TBooleanField
      FieldName = #25253#24223
    end
    object gdzcxxbDSDesigner16: TWideStringField
      FieldName = #22791#27880
      Size = 100
    end
    object gdzcxxbDSDesigner17: TMemoField
      FieldName = #32500#20462#24773#20917
      BlobType = ftMemo
    end
    object gdzcxxbDSDesigner18: TDateTimeField
      FieldName = #25253#24223#26085#26399
    end
    object gdzcxxbDSDesigner19: TBooleanField
      FieldName = #32500#20462#26631#24535
    end
  end
  object wbfzccx: TADOQuery
    Connection = hjzcdatabase
    Parameters = <
      item
        Name = 'sdate'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'edate'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select '#22266#23450#36164#20135#32534#30721','#36164#20135#31867#21035#32534#30721','#36164#20135#21517#31216#32534#30721','#36164#20135#29992#36884#32534#30721','#36164#20135#22411#21495#32534#30721','
      #20379#24212#21830#32534#30721','#36141#20080#26085#26399','#32844#21592#32534#30721','#23384#25918#22320#28857','#26159#21542#20511#20986','#24207#21015#21495','#37197#32622' '
      'from '#22266#23450#36164#20135#20449#24687#34920' where '#25253#24223'=false and '#36141#20080#26085#26399'>=:sdate'
      'and '#36141#20080#26085#26399'<=:edate')
    Left = 200
    Top = 112
    object wbfzccxDSDesigner: TSmallintField
      FieldName = #22266#23450#36164#20135#32534#30721
    end
    object wbfzccxDSDesigner2: TSmallintField
      DisplayLabel = #36164#20135#31867#21035
      FieldName = #36164#20135#31867#21035#32534#30721
    end
    object wbfzccxDSDesigner3: TSmallintField
      DisplayLabel = #36164#20135#21517#31216
      FieldName = #36164#20135#21517#31216#32534#30721
    end
    object wbfzccxDSDesigner4: TSmallintField
      DisplayLabel = #36164#20135#29992#36884
      FieldName = #36164#20135#29992#36884#32534#30721
    end
    object wbfzccxDSDesigner5: TSmallintField
      DisplayLabel = #36164#20135#22411#21495
      FieldName = #36164#20135#22411#21495#32534#30721
    end
    object wbfzccxDSDesigner6: TSmallintField
      DisplayLabel = #20379#24212#21830
      FieldName = #20379#24212#21830#32534#30721
    end
    object wbfzccxDSDesigner7: TDateTimeField
      FieldName = #36141#20080#26085#26399
    end
    object wbfzccxDSDesigner8: TSmallintField
      DisplayLabel = #20351#29992#32773
      FieldName = #32844#21592#32534#30721
    end
    object wbfzccxDSDesigner9: TWideStringField
      FieldName = #23384#25918#22320#28857
      Size = 50
    end
    object wbfzccxDSDesigner10: TBooleanField
      FieldName = #26159#21542#20511#20986
    end
    object wbfzccxDSDesigner11: TWideStringField
      FieldName = #24207#21015#21495
      Size = 50
    end
    object wbfzccxDSDesigner12: TWideStringField
      FieldName = #37197#32622
      Size = 50
    end
    object wbfzccxzclb: TStringField
      DisplayLabel = #36164#20135#31867#21035
      FieldKind = fkLookup
      FieldName = 'zclb'
      LookupDataSet = gdzclbb
      LookupKeyFields = #36164#20135#31867#21035#32534#30721
      LookupResultField = #22266#23450#36164#20135#31867#21035
      KeyFields = #36164#20135#31867#21035#32534#30721
      Lookup = True
    end
    object wbfzccxzcmc: TStringField
      DisplayLabel = #36164#20135#21517#31216
      FieldKind = fkLookup
      FieldName = 'zcmc'
      LookupDataSet = gdzcmcb
      LookupKeyFields = #36164#20135#21517#31216#32534#30721
      LookupResultField = #22266#23450#36164#20135#21517#31216
      KeyFields = #36164#20135#21517#31216#32534#30721
      Lookup = True
    end
    object wbfzccxzcyt: TStringField
      DisplayLabel = #36164#20135#29992#36884
      FieldKind = fkLookup
      FieldName = 'zcyt'
      LookupDataSet = gdzcytb
      LookupKeyFields = #36164#20135#29992#36884#32534#30721
      LookupResultField = #22266#23450#36164#20135#29992#36884
      KeyFields = #36164#20135#29992#36884#32534#30721
      Lookup = True
    end
    object wbfzccxzcxh: TStringField
      DisplayLabel = #36164#20135#22411#21495
      FieldKind = fkLookup
      FieldName = 'zcxh'
      LookupDataSet = gdzcxhb
      LookupKeyFields = #36164#20135#22411#21495#32534#30721
      LookupResultField = #22266#23450#36164#20135#22411#21495
      KeyFields = #36164#20135#22411#21495#32534#30721
      Lookup = True
    end
    object wbfzccxgys: TStringField
      DisplayLabel = #20379#24212#21830
      FieldKind = fkLookup
      FieldName = 'gys'
      LookupDataSet = gysbmb
      LookupKeyFields = #20379#24212#21830#32534#30721
      LookupResultField = #20379#24212#21830#21517#31216
      KeyFields = #20379#24212#21830#32534#30721
      Lookup = True
    end
    object wbfzccxzyxm: TStringField
      DisplayLabel = #20351#29992#32773
      FieldKind = fkLookup
      FieldName = 'zyxm'
      LookupDataSet = zybmb
      LookupKeyFields = #32844#21592#32534#30721
      LookupResultField = #32844#21592#22995#21517
      KeyFields = #32844#21592#32534#30721
      Lookup = True
    end
  end
  object wcjzccx: TADOQuery
    Connection = hjzcdatabase
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'sdate'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'edate'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select '#22266#23450#36164#20135#32534#30721','#36164#20135#31867#21035#32534#30721','#36164#20135#21517#31216#32534#30721','#36164#20135#29992#36884#32534#30721','#36164#20135#22411#21495#32534#30721','
      #20379#24212#21830#32534#30721','#36141#20080#26085#26399','#32844#21592#32534#30721','#23384#25918#22320#28857','#24207#21015#21495','#37197#32622' '
      'from '#22266#23450#36164#20135#20449#24687#34920' where '#26159#21542#20511#20986'=false '
      'and '#36141#20080#26085#26399'>=:sdate and '#36141#20080#26085#26399'<=:edate')
    Left = 240
    Top = 112
    object SmallintField1: TSmallintField
      FieldName = #22266#23450#36164#20135#32534#30721
    end
    object SmallintField2: TSmallintField
      DisplayLabel = #36164#20135#31867#21035
      FieldName = #36164#20135#31867#21035#32534#30721
    end
    object SmallintField3: TSmallintField
      DisplayLabel = #36164#20135#21517#31216
      FieldName = #36164#20135#21517#31216#32534#30721
    end
    object SmallintField4: TSmallintField
      DisplayLabel = #36164#20135#29992#36884
      FieldName = #36164#20135#29992#36884#32534#30721
    end
    object SmallintField5: TSmallintField
      DisplayLabel = #36164#20135#22411#21495
      FieldName = #36164#20135#22411#21495#32534#30721
    end
    object SmallintField6: TSmallintField
      DisplayLabel = #20379#24212#21830
      FieldName = #20379#24212#21830#32534#30721
    end
    object DateTimeField1: TDateTimeField
      FieldName = #36141#20080#26085#26399
    end
    object SmallintField7: TSmallintField
      DisplayLabel = #20351#29992#32773
      FieldName = #32844#21592#32534#30721
    end
    object WideStringField1: TWideStringField
      FieldName = #23384#25918#22320#28857
      Size = 50
    end
    object WideStringField2: TWideStringField
      FieldName = #24207#21015#21495
      Size = 50
    end
    object WideStringField3: TWideStringField
      FieldName = #37197#32622
      Size = 50
    end
    object StringField1: TStringField
      DisplayLabel = #36164#20135#31867#21035
      FieldKind = fkLookup
      FieldName = 'zclb'
      LookupDataSet = gdzclbb
      LookupKeyFields = #36164#20135#31867#21035#32534#30721
      LookupResultField = #22266#23450#36164#20135#31867#21035
      KeyFields = #36164#20135#31867#21035#32534#30721
      Lookup = True
    end
    object StringField2: TStringField
      DisplayLabel = #36164#20135#21517#31216
      FieldKind = fkLookup
      FieldName = 'zcmc'
      LookupDataSet = gdzcmcb
      LookupKeyFields = #36164#20135#21517#31216#32534#30721
      LookupResultField = #22266#23450#36164#20135#21517#31216
      KeyFields = #36164#20135#21517#31216#32534#30721
      Lookup = True
    end
    object StringField3: TStringField
      DisplayLabel = #36164#20135#29992#36884
      FieldKind = fkLookup
      FieldName = 'zcyt'
      LookupDataSet = gdzcytb
      LookupKeyFields = #36164#20135#29992#36884#32534#30721
      LookupResultField = #22266#23450#36164#20135#29992#36884
      KeyFields = #36164#20135#29992#36884#32534#30721
      Lookup = True
    end
    object StringField4: TStringField
      DisplayLabel = #36164#20135#22411#21495
      FieldKind = fkLookup
      FieldName = 'zcxh'
      LookupDataSet = gdzcxhb
      LookupKeyFields = #36164#20135#22411#21495#32534#30721
      LookupResultField = #22266#23450#36164#20135#22411#21495
      KeyFields = #36164#20135#22411#21495#32534#30721
      Lookup = True
    end
    object StringField5: TStringField
      DisplayLabel = #20379#24212#21830
      FieldKind = fkLookup
      FieldName = 'gys'
      LookupDataSet = gysbmb
      LookupKeyFields = #20379#24212#21830#32534#30721
      LookupResultField = #20379#24212#21830#21517#31216
      KeyFields = #20379#24212#21830#32534#30721
      Lookup = True
    end
    object StringField6: TStringField
      DisplayLabel = #20351#29992#32773
      FieldKind = fkLookup
      FieldName = 'zyxm'
      LookupDataSet = zybmb
      LookupKeyFields = #32844#21592#32534#30721
      LookupResultField = #32844#21592#22995#21517
      KeyFields = #32844#21592#32534#30721
      Lookup = True
    end
  end
  object ycjzccx: TADOQuery
    Connection = hjzcdatabase
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'sdate'
        Attributes = [paNullable]
        DataType = ftFixedChar