datafrm.dfm

来自「本人编写的有关军队营房工作的管理系统」· DFM 代码 · 共 2,199 行 · 第 1/5 页

DFM
2,199 行
字号
12345
        DataType = ftFloat
      end
      item
        Name = #30005#28040#32791#23450#39069
        DataType = ftFloat
      end
      item
        Name = #27700#30005#36153#33410#32422
        DataType = ftCurrency
      end>
    IndexDefs = <
      item
        Name = 'dwsdf'
        Fields = #24180#24230';'#26376#20221
        Options = [ixNonMaintained]
      end>
    StoreDefs = True
    TableName = 'yfgl_dwsdf.DB'
    Left = 168
    Top = 72
    object dwsdfBDEDesigner: TIntegerField
      FieldName = #24207#21495
    end
    object dwsdfBDEDesigner2: TStringField
      FieldName = #21333#20301#20195#30721
    end
    object dwsdfBDEDesigner3: TStringField
      FieldName = #21333#20301#21517#31216
      Size = 50
    end
    object dwsdfBDEDesigner4: TStringField
      FieldName = #21333#20301#36131#20219#20154
      Size = 10
    end
    object dwsdfBDEDesigner5: TSmallintField
      FieldName = #24180#24230
    end
    object dwsdfBDEDesigner6: TSmallintField
      FieldName = #26376#20221
    end
    object dwsdfBDEDesigner7: TCurrencyField
      FieldName = #27700#30005#36153#26631#20934
    end
    object dwsdfBDEDesigner8: TFloatField
      FieldName = #29992#27700#37327
    end
    object dwsdfBDEDesigner9: TFloatField
      FieldName = #29992#30005#37327
    end
    object dwsdfBDEDesigner10: TFloatField
      FieldName = #27700#28040#32791#23450#39069
    end
    object dwsdfBDEDesigner11: TFloatField
      FieldName = #30005#28040#32791#23450#39069
    end
    object dwsdfBDEDesigner12: TCurrencyField
      FieldName = #27700#30005#36153#33410#32422
    end
  end
  object Ddwsdf: TDataSource
    DataSet = qdwsdf
    Left = 248
    Top = 72
  end
  object qdwsdf: TQuery
    DatabaseName = 'yfgldata'
    SQL.Strings = (
      
        'SELECT '#24207#21495', '#21333#20301#20195#30721', '#21333#20301#21517#31216', '#21333#20301#36131#20219#20154', '#24180#24230', '#26376#20221', '#27700#30005#36153#26631#20934', '#29992#27700#37327', '#29992#30005#37327', '#27700#28040#32791#23450#39069', '#30005#28040 +
        #32791#23450#39069', '#27700#30005#36153#33410#32422
      'FROM "yfgl_dwsdf.DB" Yfgl_dwsdf'
      'where '#24180#24230'=:nian and '#26376#20221'=:yue')
    Left = 208
    Top = 72
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'nian'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'yue'
        ParamType = ptUnknown
      end>
    object qdwsdfBDEDesigner: TIntegerField
      FieldName = #24207#21495
      Origin = 'YFGLDATA."yfgl_dwsdf.DB".'#24207#21495
    end
    object qdwsdfBDEDesigner2: TStringField
      FieldName = #21333#20301#20195#30721
      Origin = 'YFGLDATA."yfgl_dwsdf.DB".'#21333#20301#20195#30721
    end
    object qdwsdfBDEDesigner3: TStringField
      FieldName = #21333#20301#21517#31216
      Origin = 'YFGLDATA."yfgl_dwsdf.DB".'#21333#20301#21517#31216
      Size = 50
    end
    object qdwsdfBDEDesigner4: TStringField
      FieldName = #21333#20301#36131#20219#20154
      Origin = 'YFGLDATA."yfgl_dwsdf.DB".'#21333#20301#36131#20219#20154
      Size = 10
    end
    object qdwsdfBDEDesigner5: TSmallintField
      FieldName = #24180#24230
      Origin = 'YFGLDATA."yfgl_dwsdf.DB".'#24180#24230
    end
    object qdwsdfBDEDesigner6: TSmallintField
      FieldName = #26376#20221
      Origin = 'YFGLDATA."yfgl_dwsdf.DB".'#26376#20221
    end
    object qdwsdfBDEDesigner7: TCurrencyField
      FieldName = #27700#30005#36153#26631#20934
      Origin = 'YFGLDATA."yfgl_dwsdf.DB".'#27700#30005#36153#26631#20934
    end
    object qdwsdfBDEDesigner8: TFloatField
      FieldName = #29992#27700#37327
      Origin = 'YFGLDATA."yfgl_dwsdf.DB".'#29992#27700#37327
    end
    object qdwsdfBDEDesigner9: TFloatField
      FieldName = #29992#30005#37327
      Origin = 'YFGLDATA."yfgl_dwsdf.DB".'#29992#30005#37327
    end
    object qdwsdfBDEDesigner10: TFloatField
      FieldName = #27700#28040#32791#23450#39069
      Origin = 'YFGLDATA."yfgl_dwsdf.DB".'#27700#28040#32791#23450#39069
    end
    object qdwsdfBDEDesigner11: TFloatField
      FieldName = #30005#28040#32791#23450#39069
      Origin = 'YFGLDATA."yfgl_dwsdf.DB".'#30005#28040#32791#23450#39069
    end
    object qdwsdfBDEDesigner12: TCurrencyField
      FieldName = #27700#30005#36153#33410#32422
      Origin = 'YFGLDATA."yfgl_dwsdf.DB".'#27700#30005#36153#33410#32422
    end
  end
  object sdfbz: TTable
    Active = True
    DatabaseName = 'yfgldata'
    TableName = 'yfgl_sdfbz.DB'
    Left = 88
    Top = 72
    object sdfbzBDEDesigner: TCurrencyField
      FieldName = #24178#37096#32844#24037#22522#26412#26631#20934
    end
    object sdfbzBDEDesigner2: TCurrencyField
      FieldName = #25112#22763#22522#26412#26631#20934
    end
    object sdfbzBDEDesigner3: TCurrencyField
      FieldName = #24178#37096#32844#24037#34917#21161#26631#20934
    end
    object sdfbzBDEDesigner4: TCurrencyField
      FieldName = #25112#22763#34917#21161#26631#20934
    end
  end
  object Dsdfbz: TDataSource
    DataSet = sdfbz
    Left = 128
    Top = 72
  end
  object zjxhde: TTable
    Active = True
    DatabaseName = 'yfgldata'
    TableName = 'yfgl_zjxhde.DB'
    Left = 8
    Top = 72
    object zjxhdeBDEDesigner: TStringField
      FieldName = #32844#32423
      ReadOnly = True
    end
    object zjxhdeBDEDesigner2: TFloatField
      FieldName = #27700#28040#32791#23450#39069
    end
    object zjxhdeBDEDesigner3: TFloatField
      FieldName = #30005#28040#32791#23450#39069
    end
  end
  object Dzjxhde: TDataSource
    DataSet = zjxhde
    Left = 48
    Top = 72
  end
  object sdf: TTable
    Active = True
    DatabaseName = 'yfgldata'
    TableName = 'yfgl_sdf.DB'
    Left = 296
    Top = 8
  end
  object dwsdfhz: TTable
    Active = True
    DatabaseName = 'yfgldata'
    TableName = 'yfgl_dwsdfhz.db'
    Left = 296
    Top = 72
    object dwsdfhzBDEDesigner: TSmallintField
      FieldName = #26376#20221
    end
    object dwsdfhzBDEDesigner2: TFloatField
      FieldName = #29992#27700#37327
    end
    object dwsdfhzBDEDesigner3: TFloatField
      FieldName = #29992#30005#37327
    end
    object dwsdfhzBDEDesigner4: TCurrencyField
      FieldName = #27700#30005#36153#33410#32422
    end
  end
  object Ddwsdfhz: TDataSource
    DataSet = dwsdfhz
    Left = 344
    Top = 72
  end
  object dwsdfcx: TQuery
    DatabaseName = 'yfgldata'
    SQL.Strings = (
      
        'SELECT '#24207#21495', '#21333#20301#20195#30721', '#21333#20301#21517#31216', '#21333#20301#36131#20219#20154', '#24180#24230', '#26376#20221', '#27700#30005#36153#26631#20934', '#29992#27700#37327', '#29992#30005#37327', '#27700#28040#32791#23450#39069', '#30005#28040 +
        #32791#23450#39069', '#27700#30005#36153#33410#32422
      'FROM "yfgl_dwsdf.DB" Yfgl_dwsdf'
      'ORDER BY '#24180#24230', '#26376#20221', '#24207#21495)
    Left = 392
    Top = 72
    object dwsdfcxBDEDesigner: TIntegerField
      FieldName = #24207#21495
      Origin = 'YFGLDATA."yfgl_dwsdf.DB".'#24207#21495
    end
    object dwsdfcxBDEDesigner2: TStringField
      FieldName = #21333#20301#20195#30721
      Origin = 'YFGLDATA."yfgl_dwsdf.DB".'#21333#20301#20195#30721
    end
    object dwsdfcxBDEDesigner3: TStringField
      FieldName = #21333#20301#21517#31216
      Origin = 'YFGLDATA."yfgl_dwsdf.DB".'#21333#20301#21517#31216
      Size = 50
    end
    object dwsdfcxBDEDesigner4: TStringField
      FieldName = #21333#20301#36131#20219#20154
      Origin = 'YFGLDATA."yfgl_dwsdf.DB".'#21333#20301#36131#20219#20154
      Size = 10
    end
    object dwsdfcxBDEDesigner5: TSmallintField
      FieldName = #24180#24230
      Origin = 'YFGLDATA."yfgl_dwsdf.DB".'#24180#24230
    end
    object dwsdfcxBDEDesigner6: TSmallintField
      FieldName = #26376#20221
      Origin = 'YFGLDATA."yfgl_dwsdf.DB".'#26376#20221
    end
    object dwsdfcxBDEDesigner7: TCurrencyField
      FieldName = #27700#30005#36153#26631#20934
      Origin = 'YFGLDATA."yfgl_dwsdf.DB".'#27700#30005#36153#26631#20934
    end
    object dwsdfcxBDEDesigner8: TFloatField
      FieldName = #29992#27700#37327
      Origin = 'YFGLDATA."yfgl_dwsdf.DB".'#29992#27700#37327
    end
    object dwsdfcxBDEDesigner9: TFloatField
      FieldName = #29992#30005#37327
      Origin = 'YFGLDATA."yfgl_dwsdf.DB".'#29992#30005#37327
    end
    object dwsdfcxBDEDesigner10: TFloatField
      FieldName = #27700#28040#32791#23450#39069
      Origin = 'YFGLDATA."yfgl_dwsdf.DB".'#27700#28040#32791#23450#39069
    end
    object dwsdfcxBDEDesigner11: TFloatField
      FieldName = #30005#28040#32791#23450#39069
      Origin = 'YFGLDATA."yfgl_dwsdf.DB".'#30005#28040#32791#23450#39069
    end
    object dwsdfcxBDEDesigner12: TCurrencyField
      FieldName = #27700#30005#36153#33410#32422
      Origin = 'YFGLDATA."yfgl_dwsdf.DB".'#27700#30005#36153#33410#32422
    end
  end
  object Ddwsdfcx: TDataSource
    DataSet = dwsdfcx
    Left = 440
    Top = 72
  end
  object yj: TTable
    Active = True
    DatabaseName = 'yfgldata'
    TableName = 'yfgl_yj.DB'
    Left = 88
    Top = 128
    object yjBDEDesigner: TStringField
      FieldName = #32534#21495
      Size = 10
    end
    object yjBDEDesigner2: TStringField
      FieldName = #33829#20855#21517#31216
    end
    object yjBDEDesigner3: TStringField
      FieldName = #21333#20301
      Size = 4
    end
    object yjBDEDesigner4: TCurrencyField
      FieldName = #21333#20215
    end
    object yjBDEDesigner5: TStringField
      FieldName = #20351#29992#29366#20917
      Size = 10
    end
    object yjBDEDesigner6: TStringField
      DisplayWidth = 20
      FieldName = #20351#29992#21333#20301
    end
    object yjBDEDesigner7: TStringField
      FieldName = #33829#20855#20195#30721
      Size = 10
    end
    object yjBDEDesigner8: TBooleanField
      FieldName = #36873#25321
    end
  end
  object Dyj: TDataSource
    DataSet = Qyj
    Left = 168
    Top = 128
  end
  object yj1: TTable
    Active = True
    DatabaseName = 'yfgldata'
    FieldDefs = <
      item
        Name = #20195#30721
        DataType = ftString
        Size = 10
      end
      item
        Name = #33829#20855#21517#31216
        DataType = ftString
        Size = 20
      end
      item
        Name = #21333#20301
        DataType = ftString
        Size = 4
      end
      item
        Name = #21333#20215
        DataType = ftCurrency
      end
      item
        Name = #25968#37327
        DataType = ftInteger
      end
      item
        Name = #21512#35745#37329#39069
        DataType = ftCurrency
      end>
    IndexDefs = <
      item
        Name = 'yj1Index1'
        Fields = #20195#30721
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'yj1'
        Fields = #20195#30721';'#33829#20855#21517#31216
        Options = [ixCaseInsensitive, ixNonMaintained]
      end>
    StoreDefs = True
    TableName = 'yfgl_yj1.DB'
    Left = 240
    Top = 128
    object yj1BDEDesigner: TStringField
      FieldName = #20195#30721
      Size = 10
    end
    object yj1BDEDesigner2: TStringField
      FieldName = #33829#20855#21517#31216
    end
    object yj1BDEDesigner3: TStringField
      FieldName = #21333#20301
      Size = 4
    end
    object yj1BDEDesigner4: TCurrencyField
      FieldName = #21333#20215
    end
    object yj1BDEDesigner5: TIntegerField
      FieldName = #25968#37327
    end
    object yj1BDEDesigner6: TCurrencyField
      FieldName = #21512#35745#37329#39069
    end
  end
  object Dyj1: TDataSource
    DataSet = Qyj1
    Left = 272
    Top = 128
  end
  object kcyj: TTable
    Active = True
    DatabaseName = 'yfgldata'
    TableName = 'yfgl_kcyj.DB'
    Left = 312
    Top = 128
    object kcyjBDEDesigner: TStringField
      FieldName = #32534#21495
      Size = 10
    end
    object kcyjBDEDesigner2: TStringField
      FieldName = #33829#20855#21517#31216
    end
    object kcyjBDEDesigner3: TStringField
      FieldName = #21333#20301
      Size = 4
    end
    object kcyjBDEDesigner4: TCurrencyField
      FieldName = #21333#20215
    end
    object kcyjBDEDesigner5: TStringField
      FieldName = #20351#29992#29366#20917
      Size = 10
    end
    object kcyjBDEDesigner6: TBooleanField
      FieldName = #36873#25321
    end
    object kcyjBDEDesigner7: TStringField
      FieldName = #33829#20855#20195#30721
      Size = 10
    end
  end
  object kcyj1: TTable
    Active = True
    DatabaseName = 'yfgldata'
    TableName = 'yfgl_kcyj1.DB'
    Left = 392
    Top = 128
    object kcyj1BDEDesigner: TStringField
      FieldName = #20195#30721
      Size = 10
    end
    object kcyj1BDEDesigner2: TStringField
      FieldName = #33829#20855#21517#31216
    end
    object kcyj1BDEDesigner3: TStringField
      FieldName = #21333#20301
      Size = 4
12345

datafrm.dfm - 源码说明

本页面展示了「本人编写的有关军队营房工作的管理系统」中的 datafrm.dfm 源码文件，采用 DFM 编程语言编写，共 2,199 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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