datafrm.dfm

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

DFM
2,199 行
字号
12345
object yfgldata: Tyfgldata
  OldCreateOrder = False
  Left = 201
  Top = 174
  Height = 559
  Width = 790
  object sdjg: TTable
    Active = True
    AutoRefresh = True
    DatabaseName = 'yfgldata'
    TableName = 'yfgl_sdjg.db'
    Left = 80
    Top = 8
    object sdjgBDEDesigner: TFloatField
      FieldName = #29028#27668#20215
    end
    object sdjgBDEDesigner2: TFloatField
      FieldName = #30005#20215
    end
    object sdjgBDEDesigner3: TFloatField
      FieldName = #27700#20215
    end
  end
  object dsdjg: TDataSource
    DataSet = sdjg
    Left = 112
    Top = 8
  end
  object sdbz: TTable
    Active = True
    AutoRefresh = True
    DatabaseName = 'yfgldata'
    TableName = 'yfgl_sdbz.DB'
    Left = 152
    Top = 8
    object sdbzBDEDesigner: TSmallintField
      FieldName = #24207#21495
    end
    object sdbzBDEDesigner2: TStringField
      FieldName = #32844#32423
      Size = 30
    end
    object sdbzBDEDesigner3: TCurrencyField
      FieldName = #29992#27700#34917#21161
      currency = False
    end
    object sdbzBDEDesigner4: TCurrencyField
      FieldName = #29992#30005#34917#21161
      currency = False
    end
  end
  object dsdbz: TDataSource
    DataSet = sdbz
    Left = 184
    Top = 8
  end
  object sdyh: TTable
    Active = True
    AutoRefresh = True
    DatabaseName = 'yfgldata'
    TableName = 'yfgl_sdyh.DB'
    Left = 224
    Top = 8
    object sdyhBDEDesigner: TSmallintField
      DisplayWidth = 6
      FieldName = #24207#21495
    end
    object sdyhBDEDesigner2: TStringField
      DisplayWidth = 11
      FieldName = #22995#21517
    end
    object sdyhBDEDesigner3: TStringField
      DisplayLabel = #32844'  '#32423
      DisplayWidth = 29
      FieldName = #32844#32423
      Size = 30
    end
    object sdyhBDEDesigner4: TCurrencyField
      DisplayWidth = 10
      FieldName = #25151#31199
    end
    object sdyhBDEDesigner5: TCurrencyField
      DisplayWidth = 10
      FieldName = #29992#27700#34917#21161
      currency = False
    end
    object sdyhBDEDesigner6: TCurrencyField
      DisplayWidth = 10
      FieldName = #29992#30005#34917#21161
      currency = False
    end
  end
  object dsdyh: TDataSource
    DataSet = sdyh
    Left = 256
    Top = 8
  end
  object qyhsdf: TQuery
    CachedUpdates = True
    DatabaseName = 'yfgldata'
    SQL.Strings = (
      
        'SELECT '#24207#21495', '#22995#21517', '#29992#27668#37327', '#29028#27668#36153', '#29992#27700#37327', '#29992#27700#34917#21161', '#27700#36153', '#29992#30005#37327', '#29992#30005#34917#21161', '#30005#36153', '#25151#31199', '#21512#35745','#24180#24230 +
        ','#26376#20221
      'FROM "yfgl_sdf.DB" Yfgl_sdf'
      'where '#24180#24230'=:nian and '#26376#20221'=:yue')
    Left = 328
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'nian'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'yue'
        ParamType = ptUnknown
      end>
    object qyhsdfBDEDesigner: TSmallintField
      DisplayWidth = 8
      FieldName = #24207#21495
      Origin = 'YFGLDATA."yfgl_sdf.DB".'#24207#21495
    end
    object qyhsdfBDEDesigner2: TStringField
      DisplayWidth = 12
      FieldName = #22995#21517
      Origin = 'YFGLDATA."yfgl_sdf.DB".'#22995#21517
    end
    object qyhsdfBDEDesigner3: TFloatField
      DisplayWidth = 9
      FieldName = #29992#27668#37327
      Origin = 'YFGLDATA."yfgl_sdf.DB".'#29992#27668#37327
    end
    object qyhsdfBDEDesigner4: TCurrencyField
      DisplayWidth = 10
      FieldName = #29028#27668#36153
      Origin = 'YFGLDATA."yfgl_sdf.DB".'#29028#27668#36153
    end
    object qyhsdfBDEDesigner5: TFloatField
      DisplayWidth = 10
      FieldName = #29992#27700#37327
      Origin = 'YFGLDATA."yfgl_sdf.DB".'#29992#27700#37327
    end
    object qyhsdfBDEDesigner6: TFloatField
      DisplayWidth = 10
      FieldName = #29992#27700#34917#21161
      Origin = 'YFGLDATA."yfgl_sdf.DB".'#29992#27700#34917#21161
    end
    object qyhsdfBDEDesigner7: TCurrencyField
      DisplayWidth = 10
      FieldName = #27700#36153
      Origin = 'YFGLDATA."yfgl_sdf.DB".'#27700#36153
    end
    object qyhsdfBDEDesigner8: TFloatField
      DisplayWidth = 10
      FieldName = #29992#30005#37327
      Origin = 'YFGLDATA."yfgl_sdf.DB".'#29992#30005#37327
    end
    object qyhsdfBDEDesigner9: TFloatField
      DisplayWidth = 10
      FieldName = #29992#30005#34917#21161
      Origin = 'YFGLDATA."yfgl_sdf.DB".'#29992#30005#34917#21161
    end
    object qyhsdfBDEDesigner10: TCurrencyField
      DisplayWidth = 10
      FieldName = #30005#36153
      Origin = 'YFGLDATA."yfgl_sdf.DB".'#30005#36153
    end
    object qyhsdfBDEDesigner11: TCurrencyField
      DisplayWidth = 10
      FieldName = #25151#31199
      Origin = 'YFGLDATA."yfgl_sdf.DB".'#25151#31199
    end
    object qyhsdfBDEDesigner12: TCurrencyField
      DisplayWidth = 10
      FieldName = #21512#35745
      Origin = 'YFGLDATA."yfgl_sdf.DB".'#21512#35745
    end
  end
  object dyhsdf: TDataSource
    DataSet = qyhsdf
    Left = 368
    Top = 8
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'yfgldata'
    TableName = 'yfgl_yhsdfhz.db'
    Left = 496
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 552
    Top = 8
  end
  object yhsdf: TQuery
    DatabaseName = 'yfgldata'
    SQL.Strings = (
      
        'SELECT '#29992#27668#37327', '#29028#27668#36153', '#29992#27700#37327', '#29992#27700#34917#21161', '#27700#36153', '#29992#30005#37327', '#29992#30005#34917#21161', '#30005#36153', '#25151#31199', '#21512#35745', '#24180#24230', '#26376#20221', '#24207 +
        #21495', '#22995#21517
      'FROM "yfgl_sdf.DB" Yfgl_sdf'
      'ORDER BY '#24180#24230', '#26376#20221)
    Left = 408
    Top = 8
    object yhsdfBDEDesigner11: TSmallintField
      DisplayWidth = 7
      FieldName = #24180#24230
      Origin = 'YFGLDATA."yfgl_sdf.DB".'#24180#24230
    end
    object yhsdfBDEDesigner12: TSmallintField
      DisplayWidth = 5
      FieldName = #26376#20221
      Origin = 'YFGLDATA."yfgl_sdf.DB".'#26376#20221
    end
    object yhsdfBDEDesigner: TFloatField
      DisplayLabel = #27668'|'#29992#27668#37327
      DisplayWidth = 7
      FieldName = #29992#27668#37327
      Origin = 'YFGLDATA."yfgl_sdf.DB".'#29992#27668#37327
    end
    object yhsdfBDEDesigner2: TCurrencyField
      DisplayLabel = #27668'|'#29028#27668#36153
      DisplayWidth = 10
      FieldName = #29028#27668#36153
      Origin = 'YFGLDATA."yfgl_sdf.DB".'#29028#27668#36153
    end
    object yhsdfBDEDesigner3: TFloatField
      DisplayLabel = #27700'|'#29992#27700#37327
      DisplayWidth = 7
      FieldName = #29992#27700#37327
      Origin = 'YFGLDATA."yfgl_sdf.DB".'#29992#27700#37327
    end
    object yhsdfBDEDesigner4: TFloatField
      DisplayLabel = #27700'|'#29992#27700#34917#21161
      DisplayWidth = 9
      FieldName = #29992#27700#34917#21161
      Origin = 'YFGLDATA."yfgl_sdf.DB".'#29992#27700#34917#21161
    end
    object yhsdfBDEDesigner5: TCurrencyField
      DisplayLabel = #27700'|'#27700#36153
      DisplayWidth = 10
      FieldName = #27700#36153
      Origin = 'YFGLDATA."yfgl_sdf.DB".'#27700#36153
    end
    object yhsdfBDEDesigner6: TFloatField
      DisplayLabel = #30005'|'#29992#30005#37327
      DisplayWidth = 7
      FieldName = #29992#30005#37327
      Origin = 'YFGLDATA."yfgl_sdf.DB".'#29992#30005#37327
    end
    object yhsdfBDEDesigner7: TFloatField
      DisplayLabel = #30005'|'#29992#30005#34917#21161
      DisplayWidth = 9
      FieldName = #29992#30005#34917#21161
      Origin = 'YFGLDATA."yfgl_sdf.DB".'#29992#30005#34917#21161
    end
    object yhsdfBDEDesigner8: TCurrencyField
      DisplayLabel = #30005'|'#30005#36153
      DisplayWidth = 10
      FieldName = #30005#36153
      Origin = 'YFGLDATA."yfgl_sdf.DB".'#30005#36153
    end
    object yhsdfBDEDesigner9: TCurrencyField
      DisplayWidth = 10
      FieldName = #25151#31199
      Origin = 'YFGLDATA."yfgl_sdf.DB".'#25151#31199
    end
    object yhsdfBDEDesigner10: TCurrencyField
      DisplayWidth = 10
      FieldName = #21512#35745
      Origin = 'YFGLDATA."yfgl_sdf.DB".'#21512#35745
    end
  end
  object yhchaxun: TDataSource
    DataSet = yhsdf
    Left = 448
    Top = 8
  end
  object dbbdc: TTable
    DatabaseName = 'yfgldata'
    Left = 80
    Top = 472
  end
  object Ddw: TDataSource
    DataSet = dw
    Left = 40
    Top = 472
  end
  object yjzl: TTable
    Active = True
    DatabaseName = 'yfgldata'
    TableName = 'yfgl_yjzl.DB'
    Left = 8
    Top = 128
    object yjzlBDEDesigner: TStringField
      FieldName = #33829#20855#20195#30721
      Size = 10
    end
    object yjzlBDEDesigner2: TStringField
      FieldName = #33829#20855#21517#31216
    end
    object yjzlBDEDesigner3: TStringField
      FieldName = #21333#20301
      Size = 4
    end
    object yjzlBDEDesigner4: TCurrencyField
      FieldName = #21333#20215
    end
    object yjzlBDEDesigner5: TStringField
      FieldName = #35268#26684
    end
    object yjzlBDEDesigner6: TDateField
      FieldName = #36141#20837#26102#38388
    end
    object yjzlBDEDesigner7: TStringField
      FieldName = #33719#21462#26041#24335
      Size = 10
    end
  end
  object Dyjzl: TDataSource
    DataSet = yjzl
    Left = 48
    Top = 128
  end
  object dw: TTable
    Active = True
    DatabaseName = 'yfgldata'
    TableName = 'yfgl_dw.DB'
    Left = 8
    Top = 472
    object dwBDEDesigner: TStringField
      FieldName = #21333#20301#20195#30721
    end
    object dwBDEDesigner2: TStringField
      FieldName = #21333#20301#21517#31216
      Size = 50
    end
    object dwBDEDesigner3: TStringField
      FieldName = #26631#39064
      Size = 70
    end
    object dwBDEDesigner4: TStringField
      FieldName = #21333#20301#36131#20219#20154
      Size = 10
    end
    object dwBDEDesigner5: TIntegerField
      FieldName = #20891#32844#20197#19978#24178#37096#32534#21046#25968
    end
    object dwBDEDesigner6: TIntegerField
      FieldName = #24072#32844#24178#37096#32534#21046#25968
    end
    object dwBDEDesigner7: TIntegerField
      FieldName = #22242#32844#24178#37096#32534#21046#25968
    end
    object dwBDEDesigner8: TIntegerField
      FieldName = #33829#32844#24178#37096#32534#21046#25968
    end
    object dwBDEDesigner9: TIntegerField
      FieldName = #36830#25490#32844#24178#37096#32534#21046#25968
    end
    object dwBDEDesigner10: TIntegerField
      FieldName = #23398#21592#20154#25968
    end
    object dwBDEDesigner11: TIntegerField
      FieldName = #25112#22763#32534#21046#25968
    end
    object dwBDEDesigner12: TIntegerField
      FieldName = #32844#24037#32534#21046#25968
    end
    object dwBDEDesigner13: TStringField
      FieldName = #30005#35805
      Size = 15
    end
    object dwBDEDesigner14: TMemoField
      FieldName = #22791#27880
      BlobType = ftMemo
      Size = 20
    end
    object dwBDEDesigner15: TStringField
      FieldName = #19978#32423#20195#30721
    end
    object dwBDEDesigner16: TSmallintField
      FieldName = #21407#22987#22270#26631
    end
    object dwBDEDesigner17: TSmallintField
      FieldName = #36873#25321#22270#26631
    end
    object dwBDEDesigner18: TSmallintField
      FieldName = #38745#27490#22270#26631
    end
  end
  object dwsdf: TTable
    Active = True
    AutoRefresh = True
    DatabaseName = 'yfgldata'
    FieldDefs = <
      item
        Name = #24207#21495
        DataType = ftInteger
      end
      item
        Name = #21333#20301#20195#30721
        DataType = ftString
        Size = 20
      end
      item
        Name = #21333#20301#21517#31216
        DataType = ftString
        Size = 50
      end
      item
        Name = #21333#20301#36131#20219#20154
        DataType = ftString
        Size = 10
      end
      item
        Name = #24180#24230
        DataType = ftSmallint
      end
      item
        Name = #26376#20221
        DataType = ftSmallint
      end
      item
        Name = #27700#30005#36153#26631#20934
        DataType = ftCurrency
      end
      item
        Name = #29992#27700#37327
        DataType = ftFloat
      end
      item
        Name = #29992#30005#37327
        DataType = ftFloat
      end
      item
        Name = #27700#28040#32791#23450#39069
12345

datafrm.dfm - 源码说明

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

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

⌨️ 快捷键说明

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