datafrm.dfm

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

DFM
2,199 行
字号
12345
    object Qkcyj1BDEDesigner4: TIntegerField
      FieldName = #25968#37327
      Origin = 'YFGLDATA."yfgl_kcyj1.DB".'#25968#37327
    end
    object Qkcyj1BDEDesigner5: TCurrencyField
      FieldName = #21333#20215
      Origin = 'YFGLDATA."yfgl_kcyj1.DB".'#21333#20215
    end
    object Qkcyj1BDEDesigner6: TCurrencyField
      FieldName = #21512#35745#37329#39069
      Origin = 'YFGLDATA."yfgl_kcyj1.DB".'#21512#35745#37329#39069
    end
  end
  object Dkcyj2: TDataSource
    DataSet = Qkcyj
    Left = 552
    Top = 128
  end
  object Dkcyj3: TDataSource
    DataSet = Qkcyj1
    Left = 592
    Top = 128
  end
  object Qdwyj: TQuery
    Active = True
    DatabaseName = 'yfgldata'
    DataSource = Ddwyj3
    SQL.Strings = (
      'SELECT '#32534#21495', '#33829#20855#21517#31216', '#21333#20301', '#20351#29992#21333#20301', '#20351#29992#29366#20917', '#36131#20219#20154', '#36873#25321', '#21333#20215', '#20195#30721
      'FROM "yfgl_dwyj.DB" Yfgl_dwyj'
      'where '#20195#30721'=:'#20195#30721' and '#20351#29992#21333#20301'=:'#20351#29992#21333#20301)
    Left = 592
    Top = 184
    ParamData = <
      item
        DataType = ftString
        Name = #20195#30721
        ParamType = ptUnknown
        Size = 11
      end
      item
        DataType = ftString
        Name = #20351#29992#21333#20301
        ParamType = ptUnknown
        Size = 21
      end>
    object QdwyjBDEDesigner: TStringField
      FieldName = #32534#21495
      Origin = 'YFGLDATA."yfgl_dwyj.DB".'#32534#21495
      Size = 10
    end
    object QdwyjBDEDesigner2: TStringField
      FieldName = #33829#20855#21517#31216
      Origin = 'YFGLDATA."yfgl_dwyj.DB".'#33829#20855#21517#31216
    end
    object QdwyjBDEDesigner3: TStringField
      FieldName = #21333#20301
      Origin = 'YFGLDATA."yfgl_dwyj.DB".'#21333#20301
      Size = 4
    end
    object QdwyjBDEDesigner4: TStringField
      FieldName = #20351#29992#21333#20301
      Origin = 'YFGLDATA."yfgl_dwyj.DB".'#20351#29992#21333#20301
    end
    object QdwyjBDEDesigner5: TStringField
      FieldName = #20351#29992#29366#20917
      Origin = 'YFGLDATA."yfgl_dwyj.DB".'#20351#29992#29366#20917
      Size = 10
    end
    object QdwyjBDEDesigner6: TStringField
      FieldName = #36131#20219#20154
      Origin = 'YFGLDATA."yfgl_dwyj.DB".'#36131#20219#20154
      Size = 10
    end
    object QdwyjBDEDesigner7: TBooleanField
      FieldName = #36873#25321
      Origin = 'YFGLDATA."yfgl_dwyj.DB".'#36873#25321
    end
    object QdwyjBDEDesigner8: TCurrencyField
      FieldName = #21333#20215
      Origin = 'YFGLDATA."yfgl_dwyj.DB".'#21333#20215
    end
    object QdwyjBDEDesigner9: TStringField
      FieldName = #20195#30721
      Origin = 'YFGLDATA."yfgl_dwyj.DB".'#20195#30721
      Size = 10
    end
  end
  object Qdwyj1: TQuery
    Active = True
    DatabaseName = 'yfgldata'
    SQL.Strings = (
      'SELECT '#20195#30721', '#33829#20855#21517#31216', '#21333#20301', '#25968#37327', '#21333#20215', '#21512#35745#37329#39069', '#20351#29992#21333#20301
      'FROM "yfgl_dwyj1.DB" Yfgl_dwyj1'
      'ORDER BY '#20195#30721)
    Left = 632
    Top = 184
    object Qdwyj1BDEDesigner: TStringField
      FieldName = #20195#30721
      Origin = 'YFGLDATA."yfgl_dwyj1.DB".'#20195#30721
      Size = 10
    end
    object Qdwyj1BDEDesigner2: TStringField
      FieldName = #33829#20855#21517#31216
      Origin = 'YFGLDATA."yfgl_dwyj1.DB".'#33829#20855#21517#31216
    end
    object Qdwyj1BDEDesigner3: TStringField
      FieldName = #21333#20301
      Origin = 'YFGLDATA."yfgl_dwyj1.DB".'#21333#20301
      Size = 4
    end
    object Qdwyj1BDEDesigner4: TIntegerField
      FieldName = #25968#37327
      Origin = 'YFGLDATA."yfgl_dwyj1.DB".'#25968#37327
    end
    object Qdwyj1BDEDesigner5: TCurrencyField
      FieldName = #21333#20215
      Origin = 'YFGLDATA."yfgl_dwyj1.DB".'#21333#20215
    end
    object Qdwyj1BDEDesigner6: TCurrencyField
      FieldName = #21512#35745#37329#39069
      Origin = 'YFGLDATA."yfgl_dwyj1.DB".'#21512#35745#37329#39069
    end
    object Qdwyj1BDEDesigner7: TStringField
      FieldName = #20351#29992#21333#20301
      Origin = 'YFGLDATA."yfgl_dwyj1.DB".'#20351#29992#21333#20301
    end
  end
  object Ddwyj2: TDataSource
    DataSet = Qdwyj
    Left = 672
    Top = 184
  end
  object Ddwyj3: TDataSource
    DataSet = Qdwyj1
    Left = 712
    Top = 184
  end
  object Dyj2: TDataSource
    DataSet = yj
    Left = 8
    Top = 240
  end
  object Dyj3: TDataSource
    DataSet = yj1
    Left = 48
    Top = 240
  end
  object dwqk: TTable
    Active = True
    DatabaseName = 'yfgldata'
    TableName = 'yfgl_dwqk.DB'
    Left = 88
    Top = 240
    object dwqkBDEDesigner: TStringField
      FieldName = #21333#20301#20195#30721
    end
    object dwqkBDEDesigner2: TStringField
      FieldName = #21333#20301#21517#31216
      Size = 50
    end
    object dwqkBDEDesigner3: TStringField
      FieldName = #22320#21306#20195#30721
      Size = 10
    end
    object dwqkBDEDesigner4: TStringField
      FieldName = #21333#20301#22320#22336
      Size = 50
    end
    object dwqkBDEDesigner5: TStringField
      FieldName = #21333#20301#24615#36136
      Size = 10
    end
    object dwqkBDEDesigner6: TStringField
      FieldName = #20379#24212#20851#31995
      Size = 10
    end
    object dwqkBDEDesigner7: TStringField
      FieldName = #38582#23646#20851#31995
      Size = 50
    end
    object dwqkBDEDesigner8: TStringField
      FieldName = #32852#21220#20851#31995
      Size = 50
    end
    object dwqkBDEDesigner9: TStringField
      FieldName = #37096#38431#31867#21035
    end
    object dwqkBDEDesigner10: TStringField
      FieldName = #21333#20301#32423#21035
      Size = 10
    end
    object dwqkBDEDesigner11: TIntegerField
      FieldName = #21333#20301#29992#25151
    end
    object dwqkBDEDesigner12: TIntegerField
      FieldName = #20844#23507#25151
    end
    object dwqkBDEDesigner13: TStringField
      FieldName = #21464#26356#20381#25454
      Size = 50
    end
    object dwqkBDEDesigner14: TStringField
      FieldName = #37096#38431#20195#21495
      Size = 10
    end
    object dwqkBDEDesigner15: TStringField
      FieldName = #19978#32423#21333#20301#20195#30721
    end
    object dwqkBDEDesigner16: TStringField
      FieldName = #37038#32534
      Size = 6
    end
    object dwqkBDEDesigner17: TIntegerField
      FieldName = #22522#22320#38754#31215
    end
    object dwqkBDEDesigner18: TIntegerField
      FieldName = #24314#31569#24635#38754#31215
    end
    object dwqkBDEDesigner19: TIntegerField
      FieldName = #22352#33853#24635#20010#25968
    end
    object dwqkBDEDesigner20: TIntegerField
      FieldName = #24635#20154#25968
    end
    object dwqkBDEDesigner21: TIntegerField
      FieldName = #24178#37096#25968
    end
    object dwqkBDEDesigner22: TIntegerField
      FieldName = #22763#23448#25968
    end
    object dwqkBDEDesigner23: TIntegerField
      FieldName = #25151#23627#26635#25968
    end
    object dwqkBDEDesigner24: TIntegerField
      FieldName = #21150#20844#29992#25151
    end
    object dwqkBDEDesigner25: TIntegerField
      FieldName = #38598#20307#23487#33293
    end
    object dwqkBDEDesigner26: TIntegerField
      FieldName = #23478#23646#23487#33293
    end
    object dwqkBDEDesigner27: TIntegerField
      FieldName = #20844#20849#29992#25151
    end
    object dwqkBDEDesigner28: TIntegerField
      FieldName = #24211#25151
    end
    object dwqkBDEDesigner29: TIntegerField
      FieldName = #19987#19994#29992#25151
    end
    object dwqkBDEDesigner30: TIntegerField
      FieldName = #25307#24453#29992#25151
    end
    object dwqkBDEDesigner31: TIntegerField
      FieldName = #20854#23427#29992#25151
    end
  end
  object Ddwqk: TDataSource
    DataSet = dwqk
    Left = 128
    Top = 240
  end
  object guolu: TTable
    Active = True
    DatabaseName = 'yfgldata'
    TableName = 'yfgl_guolu.DB'
    Left = 160
    Top = 240
    object guoluBDEDesigner: TIntegerField
      FieldName = #24207#21495
    end
    object guoluBDEDesigner2: TStringField
      FieldName = #21333#20301#20195#30721
    end
    object guoluBDEDesigner3: TStringField
      FieldName = #20303#29992#21333#20301
      Size = 50
    end
    object guoluBDEDesigner4: TStringField
      FieldName = #22352#33853#21495
      Size = 30
    end
    object guoluBDEDesigner5: TStringField
      FieldName = #26635#21495
      Size = 6
    end
    object guoluBDEDesigner6: TStringField
      FieldName = #22411#21495
    end
    object guoluBDEDesigner7: TFloatField
      FieldName = #33976#21457#37327
    end
    object guoluBDEDesigner8: TFloatField
      FieldName = #39069#23450#21387#21147
    end
    object guoluBDEDesigner9: TFloatField
      FieldName = #20351#29992#21387#21147
    end
    object guoluBDEDesigner10: TSmallintField
      FieldName = #39069#23450#28201#24230
    end
    object guoluBDEDesigner11: TStringField
      FieldName = #29123#26009#31867#22411
      Size = 10
    end
    object guoluBDEDesigner12: TStringField
      FieldName = #38149#28809#29992#36884
      Size = 10
    end
    object guoluBDEDesigner13: TStringField
      FieldName = #36136#37327#29366#20917
      Size = 8
    end
    object guoluBDEDesigner14: TStringField
      FieldName = #20379#28909#20171#36136
      Size = 10
    end
    object guoluBDEDesigner15: TStringField
      FieldName = #27700#22788#29702#26041#24335
    end
    object guoluBDEDesigner16: TStringField
      FieldName = #28040#28895#38500#23576#26041#24335
    end
    object guoluBDEDesigner17: TStringField
      FieldName = #29983#20135#21378#23478
      Size = 30
    end
    object guoluBDEDesigner18: TSmallintField
      FieldName = #23433#35013#24180#20221
    end
    object guoluBDEDesigner19: TStringField
      FieldName = #26159#21542#30331#35760
      Size = 2
    end
    object guoluBDEDesigner20: TStringField
      FieldName = #26816#39564#37096#38376
    end
    object guoluBDEDesigner21: TStringField
      FieldName = #21464#26356#20381#25454
    end
  end
  object gx: TTable
    Active = True
    DatabaseName = 'yfgldata'
    TableName = 'yfgl_gx.db'
    Left = 240
    Top = 240
    object gxBDEDesigner: TIntegerField
      FieldName = #24207#21495
    end
    object gxBDEDesigner2: TStringField
      FieldName = #21333#20301#20195#30721
    end
    object gxBDEDesigner3: TStringField
      FieldName = #20303#29992#21333#20301
      Size = 50
    end
    object gxBDEDesigner4: TStringField
      FieldName = #22352#33853#21495
      Size = 30
    end
    object gxBDEDesigner5: TStringField
      FieldName = #31649#32447#32534#21495
    end
    object gxBDEDesigner6: TStringField
      FieldName = #31649#32447#31867#22411
    end
    object gxBDEDesigner7: TIntegerField
      FieldName = #31649#32447#38271#24230
    end
    object gxBDEDesigner8: TSmallintField
      FieldName = #31649#24452
    end
    object gxBDEDesigner9: TStringField
      FieldName = #26448#36136
    end
    object gxBDEDesigner10: TSmallintField
      FieldName = #38138#35774#24180#20221
    end
    object gxBDEDesigner11: TStringField
      FieldName = #38138#35774#26041#24335
      Size = 10
    end
    object gxBDEDesigner12: TStringField
      FieldName = #36136#37327#29366#20917
      Size = 10
    end
    object gxBDEDesigner13: TStringField
      FieldName = #20445#25252#26041#24335
      Size = 10
    end
    object gxBDEDesigner14: TStringField
      FieldName = #21464#26356#20381#25454
    end
  end
  object xjyf: TTable
    Active = True
    DatabaseName = 'yfgldata'
    TableName = 'yfgl_xjyf.db'
    Left = 304
    Top = 240
    object xjyfBDEDesigner: TIntegerField
      FieldName = #24207#21495
    end
    object xjyfBDEDesigner2: TStringField
      FieldName = #21333#20301#20195#30721
    end
    object xjyfBDEDesigner3: TStringField
      FieldName = #20303#29992#21333#20301
      Size = 50
    end
    object xjyfBDEDesigner4: TStringField
      FieldName = #22352#33853#21495
      Size = 30
    end
    object xjyfBDEDesigner5: TStringField
      FieldName = #26635#21495
      Size = 6
    end
    object xjyfBDEDesigner6: TStringField
      FieldName = #25151#23627#29992#36884
      Size = 10
    end
    object xjyfBDEDesigner7: TIntegerField
      FieldName = #21512#35745
    end
    object xjyfBDEDesigner8: TIntegerField
      FieldName = #26032#24314
    end
    object xjyfBDEDesigner9: TIntegerField
      FieldName = #32763#24314
    end
    object xjyfBDEDesigner10: TStringField
      FieldName = #19979#36798#20219#21153#21333#20301
      Size = 30
    end
    object xjyfBDEDesigner11: TSmallintFi
12345

datafrm.dfm - 源码说明

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

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

⌨️ 快捷键说明

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