datapas.~dfm

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

~DFM
1,872 行
字号
12345
        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 b.'#36164#20135#20511#20986#32534#30721',a.'#22266#23450#36164#20135#32534#30721',b.'#20511#29992#20154#22995#21517',a.'#36164#20135#31867#21035#32534#30721',a.'#36164#20135#21517#31216#32534#30721',a.'#36164#20135#29992#36884#32534#30721',a.'#36164#20135 +
        #22411#21495#32534#30721','
      'a.'#20379#24212#21830#32534#30721',b.'#20511#29992#26085#26399',b.'#25311#36824#26085#26399',a.'#32844#21592#32534#30721',a.'#23384#25918#22320#28857',a.'#24207#21015#21495',a.'#37197#32622' '
      'from '#22266#23450#36164#20135#20449#24687#34920' a,'#22266#23450#36164#20135#20511#29992#34920' b '
      'where a.'#26159#21542#20511#20986'=true and a.'#22266#23450#36164#20135#32534#30721'=b.'#22266#23450#36164#20135#32534#30721
      'and b.'#26159#21542#24402#36824'=false and b.'#20511#29992#26085#26399'>=:sdate and b.'#20511#29992#26085#26399'<=:edate'
      '')
    Left = 8
    Top = 160
    object SmallintField8: TSmallintField
      FieldName = #22266#23450#36164#20135#32534#30721
    end
    object ycjzccxDSDesigner4: TSmallintField
      FieldName = #36164#20135#20511#20986#32534#30721
    end
    object SmallintField9: TSmallintField
      DisplayLabel = #36164#20135#31867#21035
      FieldName = #36164#20135#31867#21035#32534#30721
    end
    object SmallintField10: TSmallintField
      DisplayLabel = #36164#20135#21517#31216
      FieldName = #36164#20135#21517#31216#32534#30721
    end
    object SmallintField11: TSmallintField
      DisplayLabel = #36164#20135#29992#36884
      FieldName = #36164#20135#29992#36884#32534#30721
    end
    object SmallintField12: TSmallintField
      DisplayLabel = #36164#20135#22411#21495
      FieldName = #36164#20135#22411#21495#32534#30721
    end
    object SmallintField13: TSmallintField
      DisplayLabel = #20379#24212#21830
      FieldName = #20379#24212#21830#32534#30721
    end
    object SmallintField14: TSmallintField
      DisplayLabel = #20351#29992#32773
      FieldName = #32844#21592#32534#30721
    end
    object WideStringField4: TWideStringField
      FieldName = #23384#25918#22320#28857
      Size = 50
    end
    object WideStringField5: TWideStringField
      FieldName = #24207#21015#21495
      Size = 50
    end
    object WideStringField6: TWideStringField
      FieldName = #37197#32622
      Size = 50
    end
    object StringField7: 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 StringField8: 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 StringField9: 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 StringField10: 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 StringField11: 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 StringField12: 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
    object ycjzccxDSDesigner: TWideStringField
      FieldName = #20511#29992#20154#22995#21517
      Size = 10
    end
    object ycjzccxDSDesigner2: TDateTimeField
      FieldName = #20511#29992#26085#26399
    end
    object ycjzccxDSDesigner3: TDateTimeField
      FieldName = #25311#36824#26085#26399
    end
  end
  object gdzcjyb: TADOTable
    Connection = hjzcdatabase
    TableName = #22266#23450#36164#20135#20511#29992#34920
    Left = 48
    Top = 160
    object gdzcjybDSDesigner: TSmallintField
      FieldName = #36164#20135#20511#20986#32534#30721
    end
    object gdzcjybDSDesigner2: TSmallintField
      FieldName = #22266#23450#36164#20135#32534#30721
    end
    object gdzcjybDSDesigner3: TIntegerField
      FieldName = #32463#25163#20154#32534#30721
    end
    object gdzcjybjsr: TStringField
      DisplayLabel = #32463#25163#20154
      FieldKind = fkLookup
      FieldName = 'jsr'
      LookupDataSet = zybmb
      LookupKeyFields = #32844#21592#32534#30721
      LookupResultField = #32844#21592#22995#21517
      KeyFields = #32463#25163#20154#32534#30721
      Lookup = True
    end
    object gdzcjybDSDesigner4: TWideStringField
      FieldName = #20511#29992#20154#22995#21517
      Size = 10
    end
    object gdzcjybDSDesigner5: TDateTimeField
      FieldName = #20511#29992#26085#26399
    end
    object gdzcjybDSDesigner6: TDateTimeField
      FieldName = #25311#36824#26085#26399
    end
    object gdzcjybDSDesigner7: TWideStringField
      FieldName = #20511#29992#22320#28857
      Size = 50
    end
    object gdzcjybDSDesigner8: TBooleanField
      FieldName = #26159#21542#24402#36824
    end
    object gdzcjybDSDesigner9: TWideStringField
      FieldName = #22791#27880
      Size = 120
    end
  end
  object zcwxcx: 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','#32500#20462#26631#24535' '
      'from '#22266#23450#36164#20135#20449#24687#34920' where '#36141#20080#26085#26399'>=:sdate'
      'and '#36141#20080#26085#26399'<=:edate')
    Left = 88
    Top = 160
    object SmallintField15: TSmallintField
      FieldName = #22266#23450#36164#20135#32534#30721
    end
    object SmallintField16: TSmallintField
      DisplayLabel = #36164#20135#31867#21035
      FieldName = #36164#20135#31867#21035#32534#30721
    end
    object SmallintField17: TSmallintField
      DisplayLabel = #36164#20135#21517#31216
      FieldName = #36164#20135#21517#31216#32534#30721
    end
    object SmallintField18: TSmallintField
      DisplayLabel = #36164#20135#29992#36884
      FieldName = #36164#20135#29992#36884#32534#30721
    end
    object SmallintField19: TSmallintField
      DisplayLabel = #36164#20135#22411#21495
      FieldName = #36164#20135#22411#21495#32534#30721
    end
    object SmallintField20: TSmallintField
      DisplayLabel = #20379#24212#21830
      FieldName = #20379#24212#21830#32534#30721
    end
    object DateTimeField2: TDateTimeField
      FieldName = #36141#20080#26085#26399
    end
    object SmallintField21: TSmallintField
      DisplayLabel = #20351#29992#32773
      FieldName = #32844#21592#32534#30721
    end
    object WideStringField7: TWideStringField
      FieldName = #23384#25918#22320#28857
      Size = 50
    end
    object BooleanField1: TBooleanField
      FieldName = #26159#21542#20511#20986
    end
    object WideStringField8: TWideStringField
      FieldName = #24207#21015#21495
      Size = 50
    end
    object WideStringField9: TWideStringField
      FieldName = #37197#32622
      Size = 50
    end
    object StringField13: 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 StringField14: 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 StringField15: 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 StringField16: 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 StringField17: 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 StringField18: 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
    object zcwxcxDSDesigner: TBooleanField
      FieldName = #32500#20462#26631#24535
      OnGetText = zcwxcxDSDesignerGetText
    end
  end
  object gdzccx: TADOQuery
    Connection = hjzcdatabase
    OnCalcFields = gdzccxCalcFields
    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','
      #36141#20080#20215#26684','#20351#29992#24180#38480','#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 = 128
    Top = 160
    object SmallintField22: TSmallintField
      FieldName = #22266#23450#36164#20135#32534#30721
    end
    object SmallintField23: TSmallintField
      DisplayLabel = #36164#20135#31867#21035
      FieldName = #36164#20135#31867#21035#32534#30721
    end
    object SmallintField24: TSmallintField
      DisplayLabel = #36164#20135#21517#31216
      FieldName = #36164#20135#21517#31216#32534#30721
    end
    object SmallintField25: TSmallintField
      DisplayLabel = #36164#20135#29992#36884
      FieldName = #36164#20135#29992#36884#32534#30721
    end
    object SmallintField26: TSmallintField
      DisplayLabel = #36164#20135#22411#21495
      FieldName = #36164#20135#22411#21495#32534#30721
    end
    object SmallintField27: TSmallintField
      DisplayLabel = #20379#24212#21830
      FieldName = #20379#24212#21830#32534#30721
    end
    object DateTimeField3: TDateTimeField
12345

datapas.~dfm - 源码说明

本页面展示了「本软件是一套功能完整成熟的固定资产管理系统,具有固定资产管理系统的相应全部功能」中的 datapas.~dfm 源码文件，采用 ~DFM 编程语言编写，共 1,872 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与管理系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?