datafrm.dfm

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

DFM
2,199 行
字号
12345
    end
    object kcyj1BDEDesigner4: TIntegerField
      FieldName = #25968#37327
    end
    object kcyj1BDEDesigner5: TCurrencyField
      FieldName = #21333#20215
    end
    object kcyj1BDEDesigner6: TCurrencyField
      FieldName = #21512#35745#37329#39069
    end
  end
  object dwyj: TTable
    Active = True
    DatabaseName = 'yfgldata'
    TableName = 'yfgl_dwyj.DB'
    Left = 624
    Top = 128
    object dwyjBDEDesigner: TStringField
      FieldName = #32534#21495
      Size = 10
    end
    object dwyjBDEDesigner2: TStringField
      FieldName = #33829#20855#21517#31216
    end
    object dwyjBDEDesigner3: TStringField
      FieldName = #21333#20301
      Size = 4
    end
    object dwyjBDEDesigner4: TStringField
      DisplayWidth = 20
      FieldName = #20351#29992#21333#20301
    end
    object dwyjBDEDesigner5: TStringField
      FieldName = #20351#29992#29366#20917
      Size = 10
    end
    object dwyjBDEDesigner6: TStringField
      FieldName = #36131#20219#20154
      Size = 10
    end
    object dwyjBDEDesigner7: TBooleanField
      FieldName = #36873#25321
    end
    object dwyjBDEDesigner8: TCurrencyField
      FieldName = #21333#20215
    end
    object dwyjBDEDesigner9: TStringField
      FieldName = #20195#30721
      Size = 10
    end
  end
  object dwyj1: 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 = #25968#37327
        DataType = ftInteger
      end
      item
        Name = #21333#20215
        DataType = ftCurrency
      end
      item
        Name = #21512#35745#37329#39069
        DataType = ftCurrency
      end
      item
        Name = #20351#29992#21333#20301
        DataType = ftString
        Size = 20
      end>
    StoreDefs = True
    TableName = 'yfgl_dwyj1.DB'
    Left = 696
    Top = 128
    object dwyj1BDEDesigner: TStringField
      FieldName = #20195#30721
      Size = 10
    end
    object dwyj1BDEDesigner2: TStringField
      FieldName = #33829#20855#21517#31216
    end
    object dwyj1BDEDesigner3: TStringField
      FieldName = #21333#20301
      Size = 4
    end
    object dwyj1BDEDesigner4: TIntegerField
      FieldName = #25968#37327
    end
    object dwyj1BDEDesigner5: TCurrencyField
      FieldName = #21333#20215
    end
    object dwyj1BDEDesigner6: TCurrencyField
      FieldName = #21512#35745#37329#39069
    end
    object dwyj1BDEDesigner7: TStringField
      DisplayWidth = 20
      FieldName = #20351#29992#21333#20301
    end
  end
  object grjyyj: TTable
    Active = True
    DatabaseName = 'yfgldata'
    TableName = 'yfgl_grjyyj.DB'
    Left = 496
    Top = 72
    object grjyyjBDEDesigner: TStringField
      FieldName = #32534#21495
      Size = 10
    end
    object grjyyjBDEDesigner2: TStringField
      FieldName = #33829#20855#21517#31216
    end
    object grjyyjBDEDesigner3: TStringField
      FieldName = #21333#20301
      Size = 4
    end
    object grjyyjBDEDesigner4: TCurrencyField
      FieldName = #21333#20215
    end
    object grjyyjBDEDesigner5: TStringField
      FieldName = #20351#29992#29366#20917
      Size = 10
    end
    object grjyyjBDEDesigner6: TDateField
      FieldName = #20511#29992#26085#26399
    end
    object grjyyjBDEDesigner7: TStringField
      FieldName = #20511#29992#20154
      Size = 10
    end
    object grjyyjBDEDesigner8: TBooleanField
      FieldName = #36873#25321
    end
    object grjyyjBDEDesigner9: TStringField
      FieldName = #20195#30721
      Size = 10
    end
  end
  object grjyyj1: TTable
    Active = True
    DatabaseName = 'yfgldata'
    TableName = 'yfgl_grjyyj1.DB'
    Left = 576
    Top = 72
    object grjyyj1BDEDesigner: TStringField
      FieldName = #20195#30721
      Size = 10
    end
    object grjyyj1BDEDesigner2: TStringField
      FieldName = #33829#20855#21517#31216
    end
    object grjyyj1BDEDesigner3: TStringField
      FieldName = #21333#20301
      Size = 4
    end
    object grjyyj1BDEDesigner4: TIntegerField
      FieldName = #25968#37327
    end
    object grjyyj1BDEDesigner5: TCurrencyField
      FieldName = #21333#20215
    end
    object grjyyj1BDEDesigner6: TCurrencyField
      FieldName = #21512#35745#37329#39069
    end
    object grjyyj1BDEDesigner7: TStringField
      FieldName = #20511#29992#20154
      Size = 10
    end
  end
  object Dkcyj: TDataSource
    DataSet = kcyj
    Left = 352
    Top = 128
  end
  object dkcyj1: TDataSource
    DataSet = kcyj1
    Left = 432
    Top = 128
  end
  object ddwyj: TDataSource
    DataSet = dwyj
    Left = 656
    Top = 128
  end
  object ddwyj1: TDataSource
    DataSet = dwyj1
    Left = 736
    Top = 128
  end
  object dgrjyyj: TDataSource
    DataSet = Qgrjyyj
    Left = 536
    Top = 72
  end
  object dgrjyyj1: TDataSource
    DataSet = Qgrjyyj1
    Left = 616
    Top = 72
  end
  object yjtemp: TTable
    DatabaseName = 'yfgldata'
    FieldDefs = <
      item
        Name = #21333#20301#20195#30721
        DataType = ftString
        Size = 20
      end
      item
        Name = #21333#20301#21517#31216
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Y001'
        DataType = ftInteger
      end
      item
        Name = 'Y002'
        DataType = ftInteger
      end
      item
        Name = 'Y003'
        DataType = ftInteger
      end
      item
        Name = 'Y004'
        DataType = ftInteger
      end
      item
        Name = 'Y005'
        DataType = ftInteger
      end
      item
        Name = 'Y006'
        DataType = ftInteger
      end
      item
        Name = 'Y007'
        DataType = ftInteger
      end>
    StoreDefs = True
    TableName = 'yfgl_yjtemp.db'
    Left = 8
    Top = 184
  end
  object dyjtemp: TDataSource
    DataSet = yjtemp
    Left = 48
    Top = 184
  end
  object Qyj1: TQuery
    Active = True
    DatabaseName = 'yfgldata'
    SQL.Strings = (
      'SELECT '#20195#30721', '#33829#20855#21517#31216', '#21333#20301', '#21333#20215', '#25968#37327', '#21512#35745#37329#39069
      'FROM "yfgl_yj1.DB" Yfgl_yj1'
      'ORDER BY '#20195#30721)
    Left = 208
    Top = 128
    object Qyj1BDEDesigner: TStringField
      FieldName = #20195#30721
      Origin = 'YFGLDATA."yfgl_yj1.DB".'#20195#30721
      Size = 10
    end
    object Qyj1BDEDesigner2: TStringField
      FieldName = #33829#20855#21517#31216
      Origin = 'YFGLDATA."yfgl_yj1.DB".'#33829#20855#21517#31216
    end
    object Qyj1BDEDesigner3: TStringField
      FieldName = #21333#20301
      Origin = 'YFGLDATA."yfgl_yj1.DB".'#21333#20301
      Size = 4
    end
    object Qyj1BDEDesigner4: TCurrencyField
      FieldName = #21333#20215
      Origin = 'YFGLDATA."yfgl_yj1.DB".'#21333#20215
    end
    object Qyj1BDEDesigner5: TIntegerField
      FieldName = #25968#37327
      Origin = 'YFGLDATA."yfgl_yj1.DB".'#25968#37327
    end
    object Qyj1BDEDesigner6: TCurrencyField
      FieldName = #21512#35745#37329#39069
      Origin = 'YFGLDATA."yfgl_yj1.DB".'#21512#35745#37329#39069
    end
  end
  object Qyj: TQuery
    Active = True
    DatabaseName = 'yfgldata'
    DataSource = Dyj1
    SQL.Strings = (
      'SELECT '#32534#21495', '#33829#20855#21517#31216', '#21333#20301', '#21333#20215', '#20351#29992#29366#20917', '#20351#29992#21333#20301', '#33829#20855#20195#30721', '#36873#25321
      'FROM "yfgl_yj.DB" Yfgl_yj'
      'where '#33829#20855#20195#30721'=:'#20195#30721' and '#33829#20855#21517#31216'=:'#33829#20855#21517#31216)
    Left = 128
    Top = 128
    ParamData = <
      item
        DataType = ftString
        Name = #20195#30721
        ParamType = ptUnknown
        Size = 11
      end
      item
        DataType = ftString
        Name = #33829#20855#21517#31216
        ParamType = ptUnknown
        Size = 21
      end>
    object QyjBDEDesigner: TStringField
      FieldName = #32534#21495
      Origin = 'YFGLDATA."yfgl_yj.DB".'#32534#21495
      Size = 10
    end
    object QyjBDEDesigner2: TStringField
      FieldName = #33829#20855#21517#31216
      Origin = 'YFGLDATA."yfgl_yj.DB".'#33829#20855#21517#31216
    end
    object QyjBDEDesigner3: TStringField
      FieldName = #21333#20301
      Origin = 'YFGLDATA."yfgl_yj.DB".'#21333#20301
      Size = 4
    end
    object QyjBDEDesigner4: TCurrencyField
      FieldName = #21333#20215
      Origin = 'YFGLDATA."yfgl_yj.DB".'#21333#20215
    end
    object QyjBDEDesigner5: TStringField
      FieldName = #20351#29992#29366#20917
      Origin = 'YFGLDATA."yfgl_yj.DB".'#20351#29992#29366#20917
      Size = 10
    end
    object QyjBDEDesigner6: TStringField
      FieldName = #20351#29992#21333#20301
      Origin = 'YFGLDATA."yfgl_yj.DB".'#20351#29992#21333#20301
    end
    object QyjBDEDesigner7: TStringField
      FieldName = #33829#20855#20195#30721
      Origin = 'YFGLDATA."yfgl_yj.DB".'#33829#20855#20195#30721
      Size = 10
    end
    object QyjBDEDesigner8: TBooleanField
      FieldName = #36873#25321
      Origin = 'YFGLDATA."yfgl_yj.DB".'#36873#25321
    end
  end
  object cjd: TTable
    Active = True
    DatabaseName = 'yfgldata'
    TableName = 'yfgl_cjd.DB'
    Left = 352
    Top = 184
    object cjdBDEDesigner: TStringField
      FieldName = #32534#21495
      Size = 10
    end
    object cjdBDEDesigner2: TStringField
      FieldName = #20511#29992#20154
      Size = 10
    end
    object cjdBDEDesigner3: TStringField
      FieldName = #20986#20511#20154
      Size = 10
    end
    object cjdBDEDesigner4: TDateField
      FieldName = #20511#29992#26085#26399
    end
    object cjdBDEDesigner5: TMemoField
      FieldName = #22791#27880
      BlobType = ftMemo
      Size = 10
    end
  end
  object cjd1: TTable
    Active = True
    DatabaseName = 'yfgldata'
    TableName = 'yfgl_cjd1.DB'
    Left = 472
    Top = 184
    object cjd1BDEDesigner: TStringField
      FieldName = #20986#20511#21333#32534#21495
      Size = 10
    end
    object cjd1BDEDesigner2: TStringField
      FieldName = #33829#20855#32534#21495
      Size = 10
    end
    object cjd1BDEDesigner3: TStringField
      FieldName = #33829#20855#20195#30721
      Size = 10
    end
    object cjd1BDEDesigner4: TStringField
      FieldName = #33829#20855#21517#31216
    end
    object cjd1BDEDesigner5: TStringField
      FieldName = #21333#20301
      Size = 4
    end
    object cjd1BDEDesigner6: TCurrencyField
      FieldName = #21333#20215
    end
    object cjd1BDEDesigner7: TStringField
      FieldName = #20351#29992#29366#20917
      Size = 10
    end
  end
  object dbd: TTable
    Active = True
    DatabaseName = 'yfgldata'
    TableName = 'yfgl_yjdb.db'
    Left = 88
    Top = 184
    object dbdBDEDesigner: TStringField
      FieldName = #35843#25320#21333#32534#21495
      Size = 10
    end
    object dbdBDEDesigner2: TStringField
      FieldName = #35843#20986#21333#20301#21517#31216
      Size = 50
    end
    object dbdBDEDesigner3: TStringField
      FieldName = #35843#20837#21333#20301#21517#31216
      Size = 50
12345

datafrm.dfm - 源码说明

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

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

⌨️ 快捷键说明

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