datapas.~dfm

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

~DFM
1,872 行
字号
12345
      FieldName = #36141#20080#26085#26399
    end
    object SmallintField28: TSmallintField
      DisplayLabel = #20351#29992#32773
      FieldName = #32844#21592#32534#30721
    end
    object WideStringField10: TWideStringField
      FieldName = #23384#25918#22320#28857
      Size = 50
    end
    object BooleanField2: TBooleanField
      FieldName = #26159#21542#20511#20986
    end
    object WideStringField11: TWideStringField
      FieldName = #24207#21015#21495
      Size = 50
    end
    object WideStringField12: TWideStringField
      FieldName = #37197#32622
      Size = 50
    end
    object StringField19: 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 StringField20: 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 StringField21: 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 StringField22: 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 StringField23: 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 StringField24: 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 gdzccxDSDesigner: TBCDField
      Alignment = taLeftJustify
      FieldName = #36141#20080#20215#26684
      Precision = 19
    end
    object gdzccxDSDesigner2: TSmallintField
      Alignment = taLeftJustify
      FieldName = #20351#29992#24180#38480
      OnGetText = gdzccxDSDesigner2GetText
    end
    object gdzccxField: TCurrencyField
      Alignment = taLeftJustify
      FieldKind = fkCalculated
      FieldName = #32047#31215#25240#26087
      Calculated = True
    end
    object gdzccxField2: TCurrencyField
      Alignment = taLeftJustify
      FieldKind = fkCalculated
      FieldName = #20928#20540
      Calculated = True
    end
  end
  object jczlcx: TADOQuery
    Connection = hjzcdatabase
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'zclbbm'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select '#39044#35745#20928#27531#20540#29575','#26376#25240#26087#29575' from '#22266#23450#36164#20135#31867#21035#34920
      'where '#36164#20135#31867#21035#32534#30721'=:zclbbm')
    Left = 160
    Top = 160
    object jczlcxDSDesigner: TFloatField
      FieldName = #39044#35745#20928#27531#20540#29575
    end
    object jczlcxDSDesigner2: TFloatField
      FieldName = #26376#25240#26087#29575
    end
  end
  object zcbfcx: 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','
      #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','#25253#24223#26085#26399','#24207#21015#21495','#37197#32622' '
      'from '#22266#23450#36164#20135#20449#24687#34920' where '#25253#24223'=true and '#36141#20080#26085#26399'>=:sdate'
      'and '#36141#20080#26085#26399'<=:edate'
      ''
      '')
    Left = 192
    Top = 160
    object SmallintField29: TSmallintField
      FieldName = #22266#23450#36164#20135#32534#30721
    end
    object SmallintField30: TSmallintField
      DisplayLabel = #36164#20135#31867#21035
      FieldName = #36164#20135#31867#21035#32534#30721
    end
    object SmallintField31: TSmallintField
      DisplayLabel = #36164#20135#21517#31216
      FieldName = #36164#20135#21517#31216#32534#30721
    end
    object SmallintField32: TSmallintField
      DisplayLabel = #36164#20135#29992#36884
      FieldName = #36164#20135#29992#36884#32534#30721
    end
    object SmallintField33: TSmallintField
      DisplayLabel = #36164#20135#22411#21495
      FieldName = #36164#20135#22411#21495#32534#30721
    end
    object SmallintField34: TSmallintField
      DisplayLabel = #20379#24212#21830
      FieldName = #20379#24212#21830#32534#30721
    end
    object DateTimeField4: TDateTimeField
      FieldName = #36141#20080#26085#26399
    end
    object SmallintField35: TSmallintField
      DisplayLabel = #20351#29992#32773
      FieldName = #32844#21592#32534#30721
    end
    object WideStringField13: TWideStringField
      FieldName = #23384#25918#22320#28857
      Size = 50
    end
    object WideStringField14: TWideStringField
      FieldName = #24207#21015#21495
      Size = 50
    end
    object zcbfcxDSDesigner: TDateTimeField
      FieldName = #25253#24223#26085#26399
    end
    object WideStringField15: TWideStringField
      FieldName = #37197#32622
      Size = 50
    end
    object StringField25: 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 StringField26: 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 StringField27: 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 StringField28: 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 StringField29: 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 StringField30: 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 BCDField1: TBCDField
      Alignment = taLeftJustify
      FieldName = #36141#20080#20215#26684
      Precision = 19
    end
    object zcbfcxDSDesigner2: TSmallintField
      FieldName = #20351#29992#24180#38480
      OnGetText = zcbfcxDSDesigner2GetText
    end
  end
  object zccjcx: 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 b.'#36164#20135#20511#20986#32534#30721',a.'#22266#23450#36164#20135#32534#30721',b.'#20511#29992#20154#22995#21517',b.'#26159#21542#24402#36824',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',b.'#32463#25163#20154#32534#30721',b.'#20511#29992#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.'#22266#23450#36164#20135#32534#30721'=b.'#22266#23450#36164#20135#32534#30721' and b.'#20511#29992#26085#26399'>=:sdate and b.'#20511#29992#26085#26399'<=:edate'
      '')
    Left = 232
    Top = 160
    object SmallintField36: TSmallintField
      FieldName = #22266#23450#36164#20135#32534#30721
    end
    object SmallintField37: TSmallintField
      FieldName = #36164#20135#20511#20986#32534#30721
    end
    object SmallintField38: TSmallintField
      DisplayLabel = #36164#20135#31867#21035
      FieldName = #36164#20135#31867#21035#32534#30721
    end
    object SmallintField39: TSmallintField
      DisplayLabel = #36164#20135#21517#31216
      FieldName = #36164#20135#21517#31216#32534#30721
    end
    object SmallintField40: TSmallintField
      DisplayLabel = #36164#20135#29992#36884
      FieldName = #36164#20135#29992#36884#32534#30721
    end
    object SmallintField41: TSmallintField
      DisplayLabel = #36164#20135#22411#21495
      FieldName = #36164#20135#22411#21495#32534#30721
    end
    object SmallintField42: TSmallintField
      DisplayLabel = #20379#24212#21830
      FieldName = #20379#24212#21830#32534#30721
    end
    object zccjcxDSDesigner: TBooleanField
      FieldName = #26159#21542#24402#36824
      OnGetText = zccjcxDSDesignerGetText
    end
    object WideStringField17: TWideStringField
      FieldName = #24207#21015#21495
      Size = 50
    end
    object WideStringField18: TWideStringField
      FieldName = #37197#32622
      Size = 50
    end
    object StringField31: 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 StringField32: 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 StringField33: 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
12345

datapas.~dfm - 源码说明

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

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

⌨️ 快捷键说明

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