datafrm.dfm

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

DFM
2,199 行
字号
12345
    end
    object dbdBDEDesigner4: TStringField
      FieldName = #25209#20934#20154
      Size = 10
    end
    object dbdBDEDesigner5: TStringField
      FieldName = #35843#20837#21333#20301#36131#20219#20154
      Size = 10
    end
    object dbdBDEDesigner6: TStringField
      FieldName = #35843#20986#21333#20301#36131#20219#20154
      Size = 10
    end
    object dbdBDEDesigner7: TDateField
      FieldName = #35843#25320#26085#26399
    end
    object dbdBDEDesigner8: TMemoField
      FieldName = #22791#27880
      BlobType = ftMemo
      Size = 10
    end
  end
  object dbd1: TTable
    Active = True
    DatabaseName = 'yfgldata'
    TableName = 'yfgl_yjdb1.db'
    Left = 232
    Top = 184
    object dbd1BDEDesigner: TStringField
      FieldName = #35843#25320#21333#32534#21495
      Size = 10
    end
    object dbd1BDEDesigner2: TStringField
      FieldName = #33829#20855#32534#21495
      Size = 10
    end
    object dbd1BDEDesigner3: TStringField
      FieldName = #33829#20855#20195#30721
      Size = 10
    end
    object dbd1BDEDesigner4: TStringField
      FieldName = #33829#20855#21517#31216
    end
    object dbd1BDEDesigner5: TStringField
      FieldName = #21333#20301
      Size = 4
    end
    object dbd1BDEDesigner6: TCurrencyField
      FieldName = #21333#20215
    end
    object dbd1BDEDesigner7: TStringField
      FieldName = #20351#29992#29366#20917
      Size = 10
    end
  end
  object Qdbd: TQuery
    Active = True
    DatabaseName = 'yfgldata'
    SQL.Strings = (
      'SELECT '#35843#25320#21333#32534#21495', '#25209#20934#20154', '#35843#20837#21333#20301#36131#20219#20154', '#35843#20986#21333#20301#36131#20219#20154', '#35843#25320#26085#26399', '#22791#27880', '#35843#20986#21333#20301#21517#31216', '#35843#20837#21333#20301#21517#31216
      'FROM "yfgl_yjdb.db" Yfgl_yjdb'
      'ORDER BY '#35843#25320#21333#32534#21495)
    Left = 136
    Top = 184
    object QdbdBDEDesigner: TStringField
      FieldName = #35843#25320#21333#32534#21495
      Origin = 'YFGLDATA."yfgl_yjdb.DB".'#35843#25320#21333#32534#21495
      Size = 10
    end
    object QdbdBDEDesigner2: TStringField
      FieldName = #25209#20934#20154
      Origin = 'YFGLDATA."yfgl_yjdb.DB".'#25209#20934#20154
      Size = 10
    end
    object QdbdBDEDesigner3: TStringField
      FieldName = #35843#20837#21333#20301#36131#20219#20154
      Origin = 'YFGLDATA."yfgl_yjdb.DB".'#35843#20837#21333#20301#36131#20219#20154
      Size = 10
    end
    object QdbdBDEDesigner4: TStringField
      FieldName = #35843#20986#21333#20301#36131#20219#20154
      Origin = 'YFGLDATA."yfgl_yjdb.DB".'#35843#20986#21333#20301#36131#20219#20154
      Size = 10
    end
    object QdbdBDEDesigner5: TDateField
      FieldName = #35843#25320#26085#26399
      Origin = 'YFGLDATA."yfgl_yjdb.DB".'#35843#25320#26085#26399
    end
    object QdbdBDEDesigner6: TMemoField
      FieldName = #22791#27880
      Origin = 'YFGLDATA."yfgl_yjdb.DB".'#22791#27880
      BlobType = ftMemo
      Size = 10
    end
    object QdbdBDEDesigner7: TStringField
      FieldName = #35843#20986#21333#20301#21517#31216
      Origin = 'YFGLDATA."yfgl_yjdb.DB".'#35843#20986#21333#20301#21517#31216
      Size = 50
    end
    object QdbdBDEDesigner8: TStringField
      FieldName = #35843#20837#21333#20301#21517#31216
      Origin = 'YFGLDATA."yfgl_yjdb.DB".'#35843#20837#21333#20301#21517#31216
      Size = 50
    end
  end
  object Qdbd1: TQuery
    Active = True
    DatabaseName = 'yfgldata'
    DataSource = Ddbd
    SQL.Strings = (
      'SELECT '#35843#25320#21333#32534#21495', '#33829#20855#32534#21495', '#33829#20855#20195#30721', '#33829#20855#21517#31216', '#21333#20301', '#21333#20215', '#20351#29992#29366#20917
      'FROM "yfgl_yjdb1.db" Yfgl_yjdb1'
      'where '#35843#25320#21333#32534#21495'=:'#35843#25320#21333#32534#21495)
    Left = 272
    Top = 184
    ParamData = <
      item
        DataType = ftString
        Name = #35843#25320#21333#32534#21495
        ParamType = ptUnknown
        Size = 11
      end>
    object Qdbd1BDEDesigner: TStringField
      FieldName = #35843#25320#21333#32534#21495
      Origin = 'YFGLDATA."yfgl_yjdb1.DB".'#35843#25320#21333#32534#21495
      Size = 10
    end
    object Qdbd1BDEDesigner2: TStringField
      FieldName = #33829#20855#32534#21495
      Origin = 'YFGLDATA."yfgl_yjdb1.DB".'#33829#20855#32534#21495
      Size = 10
    end
    object Qdbd1BDEDesigner3: TStringField
      FieldName = #33829#20855#20195#30721
      Origin = 'YFGLDATA."yfgl_yjdb1.DB".'#33829#20855#20195#30721
      Size = 10
    end
    object Qdbd1BDEDesigner4: TStringField
      FieldName = #33829#20855#21517#31216
      Origin = 'YFGLDATA."yfgl_yjdb1.DB".'#33829#20855#21517#31216
    end
    object Qdbd1BDEDesigner5: TStringField
      FieldName = #21333#20301
      Origin = 'YFGLDATA."yfgl_yjdb1.DB".'#21333#20301
      Size = 4
    end
    object Qdbd1BDEDesigner6: TCurrencyField
      FieldName = #21333#20215
      Origin = 'YFGLDATA."yfgl_yjdb1.DB".'#21333#20215
    end
    object Qdbd1BDEDesigner7: TStringField
      FieldName = #20351#29992#29366#20917
      Origin = 'YFGLDATA."yfgl_yjdb1.DB".'#20351#29992#29366#20917
      Size = 10
    end
  end
  object Ddbd: TDataSource
    DataSet = Qdbd
    Left = 176
    Top = 184
  end
  object Ddbd1: TDataSource
    DataSet = Qdbd1
    Left = 312
    Top = 184
  end
  object qcjd: TQuery
    Active = True
    DatabaseName = 'yfgldata'
    SQL.Strings = (
      'SELECT '#32534#21495', '#20511#29992#20154', '#20986#20511#20154', '#20511#29992#26085#26399', '#22791#27880
      'FROM "yfgl_cjd.DB" Yfgl_cjd'
      'ORDER BY '#32534#21495)
    Left = 392
    Top = 184
    object qcjdBDEDesigner: TStringField
      FieldName = #32534#21495
      Origin = 'YFGLDATA."yfgl_cjd.DB".'#32534#21495
      Size = 10
    end
    object qcjdBDEDesigner2: TStringField
      FieldName = #20511#29992#20154
      Origin = 'YFGLDATA."yfgl_cjd.DB".'#20511#29992#20154
      Size = 10
    end
    object qcjdBDEDesigner3: TStringField
      FieldName = #20986#20511#20154
      Origin = 'YFGLDATA."yfgl_cjd.DB".'#20986#20511#20154
      Size = 10
    end
    object qcjdBDEDesigner4: TDateField
      FieldName = #20511#29992#26085#26399
      Origin = 'YFGLDATA."yfgl_cjd.DB".'#20511#29992#26085#26399
    end
    object qcjdBDEDesigner5: TMemoField
      FieldName = #22791#27880
      Origin = 'YFGLDATA."yfgl_cjd.DB".'#22791#27880
      BlobType = ftMemo
      Size = 10
    end
  end
  object Dcjd: TDataSource
    DataSet = qcjd
    Left = 432
    Top = 184
  end
  object Qcjd1: TQuery
    Active = True
    DatabaseName = 'yfgldata'
    DataSource = Dcjd
    SQL.Strings = (
      'SELECT '#20986#20511#21333#32534#21495', '#33829#20855#32534#21495', '#33829#20855#20195#30721', '#33829#20855#21517#31216', '#21333#20301', '#21333#20215', '#20351#29992#29366#20917
      'FROM "yfgl_cjd1.DB" Yfgl_cjd1'
      'where '#20986#20511#21333#32534#21495'=:'#32534#21495)
    Left = 512
    Top = 184
    ParamData = <
      item
        DataType = ftString
        Name = #32534#21495
        ParamType = ptUnknown
        Size = 11
      end>
    object Qcjd1BDEDesigner: TStringField
      FieldName = #20986#20511#21333#32534#21495
      Origin = 'YFGLDATA."yfgl_cjd1.DB".'#20986#20511#21333#32534#21495
      Size = 10
    end
    object Qcjd1BDEDesigner2: TStringField
      FieldName = #33829#20855#32534#21495
      Origin = 'YFGLDATA."yfgl_cjd1.DB".'#33829#20855#32534#21495
      Size = 10
    end
    object Qcjd1BDEDesigner3: TStringField
      FieldName = #33829#20855#20195#30721
      Origin = 'YFGLDATA."yfgl_cjd1.DB".'#33829#20855#20195#30721
      Size = 10
    end
    object Qcjd1BDEDesigner4: TStringField
      FieldName = #33829#20855#21517#31216
      Origin = 'YFGLDATA."yfgl_cjd1.DB".'#33829#20855#21517#31216
    end
    object Qcjd1BDEDesigner5: TStringField
      FieldName = #21333#20301
      Origin = 'YFGLDATA."yfgl_cjd1.DB".'#21333#20301
      Size = 4
    end
    object Qcjd1BDEDesigner6: TCurrencyField
      FieldName = #21333#20215
      Origin = 'YFGLDATA."yfgl_cjd1.DB".'#21333#20215
    end
    object Qcjd1BDEDesigner7: TStringField
      FieldName = #20351#29992#29366#20917
      Origin = 'YFGLDATA."yfgl_cjd1.DB".'#20351#29992#29366#20917
      Size = 10
    end
  end
  object Dcjd1: TDataSource
    DataSet = Qcjd1
    Left = 552
    Top = 184
  end
  object Qgrjyyj: TQuery
    Active = True
    DatabaseName = 'yfgldata'
    DataSource = dgrjyyj1
    SQL.Strings = (
      'SELECT '#32534#21495', '#33829#20855#21517#31216', '#21333#20301', '#21333#20215', '#20351#29992#29366#20917', '#20511#29992#26085#26399', '#20511#29992#20154', '#36873#25321', '#20195#30721
      'FROM "yfgl_grjyyj.DB" Yfgl_grjyyj'
      'where '#20195#30721'=:'#20195#30721)
    Left = 656
    Top = 72
    ParamData = <
      item
        DataType = ftString
        Name = #20195#30721
        ParamType = ptUnknown
        Size = 11
      end>
    object QgrjyyjBDEDesigner: TStringField
      FieldName = #32534#21495
      Origin = 'YFGLDATA."yfgl_grjyyj.DB".'#32534#21495
      Size = 10
    end
    object QgrjyyjBDEDesigner2: TStringField
      FieldName = #33829#20855#21517#31216
      Origin = 'YFGLDATA."yfgl_grjyyj.DB".'#33829#20855#21517#31216
    end
    object QgrjyyjBDEDesigner5: TStringField
      FieldName = #20351#29992#29366#20917
      Origin = 'YFGLDATA."yfgl_grjyyj.DB".'#20351#29992#29366#20917
      Size = 10
    end
    object QgrjyyjBDEDesigner6: TDateField
      FieldName = #20511#29992#26085#26399
      Origin = 'YFGLDATA."yfgl_grjyyj.DB".'#20511#29992#26085#26399
    end
    object QgrjyyjBDEDesigner7: TStringField
      FieldName = #20511#29992#20154
      Origin = 'YFGLDATA."yfgl_grjyyj.DB".'#20511#29992#20154
      Size = 10
    end
    object QgrjyyjBDEDesigner3: TStringField
      FieldName = #21333#20301
      Origin = 'YFGLDATA."yfgl_grjyyj.DB".'#21333#20301
      Size = 4
    end
    object QgrjyyjBDEDesigner4: TCurrencyField
      FieldName = #21333#20215
      Origin = 'YFGLDATA."yfgl_grjyyj.DB".'#21333#20215
    end
    object QgrjyyjBDEDesigner8: TBooleanField
      FieldName = #36873#25321
      Origin = 'YFGLDATA."yfgl_grjyyj.DB".'#36873#25321
    end
    object QgrjyyjBDEDesigner9: TStringField
      FieldName = #20195#30721
      Origin = 'YFGLDATA."yfgl_grjyyj.DB".'#20195#30721
      Size = 10
    end
  end
  object Qgrjyyj1: TQuery
    Active = True
    DatabaseName = 'yfgldata'
    SQL.Strings = (
      'SELECT '#20195#30721', '#33829#20855#21517#31216', '#21333#20301', '#25968#37327', '#21333#20215', '#21512#35745#37329#39069', '#20511#29992#20154
      'FROM "yfgl_grjyyj1.DB" Yfgl_grjyyj1'
      'ORDER BY '#20195#30721)
    Left = 696
    Top = 72
    object Qgrjyyj1BDEDesigner: TStringField
      FieldName = #20195#30721
      Origin = 'YFGLDATA."yfgl_grjyyj1.DB".'#20195#30721
      Size = 10
    end
    object Qgrjyyj1BDEDesigner2: TStringField
      FieldName = #33829#20855#21517#31216
      Origin = 'YFGLDATA."yfgl_grjyyj1.DB".'#33829#20855#21517#31216
    end
    object Qgrjyyj1BDEDesigner3: TStringField
      FieldName = #21333#20301
      Origin = 'YFGLDATA."yfgl_grjyyj1.DB".'#21333#20301
      Size = 4
    end
    object Qgrjyyj1BDEDesigner4: TIntegerField
      FieldName = #25968#37327
      Origin = 'YFGLDATA."yfgl_grjyyj1.DB".'#25968#37327
    end
    object Qgrjyyj1BDEDesigner5: TCurrencyField
      FieldName = #21333#20215
      Origin = 'YFGLDATA."yfgl_grjyyj1.DB".'#21333#20215
    end
    object Qgrjyyj1BDEDesigner6: TCurrencyField
      FieldName = #21512#35745#37329#39069
      Origin = 'YFGLDATA."yfgl_grjyyj1.DB".'#21512#35745#37329#39069
    end
    object Qgrjyyj1BDEDesigner7: TStringField
      FieldName = #20511#29992#20154
      Origin = 'YFGLDATA."yfgl_grjyyj1.DB".'#20511#29992#20154
      Size = 10
    end
  end
  object Dgrjyyj2: TDataSource
    DataSet = grjyyj
    Left = 736
    Top = 72
  end
  object Qkcyj: TQuery
    Active = True
    DatabaseName = 'yfgldata'
    DataSource = Dkcyj3
    SQL.Strings = (
      'SELECT '#32534#21495', '#33829#20855#21517#31216', '#21333#20301', '#21333#20215', '#20351#29992#29366#20917', '#36873#25321', '#33829#20855#20195#30721
      'FROM "yfgl_kcyj.DB" Yfgl_kcyj'
      'where '#33829#20855#20195#30721'=:'#20195#30721)
    Left = 472
    Top = 128
    ParamData = <
      item
        DataType = ftString
        Name = #20195#30721
        ParamType = ptUnknown
        Size = 11
      end>
    object QkcyjBDEDesigner: TStringField
      FieldName = #32534#21495
      Origin = 'YFGLDATA."yfgl_kcyj.DB".'#32534#21495
      Size = 10
    end
    object QkcyjBDEDesigner2: TStringField
      FieldName = #33829#20855#21517#31216
      Origin = 'YFGLDATA."yfgl_kcyj.DB".'#33829#20855#21517#31216
    end
    object QkcyjBDEDesigner3: TStringField
      FieldName = #21333#20301
      Origin = 'YFGLDATA."yfgl_kcyj.DB".'#21333#20301
      Size = 4
    end
    object QkcyjBDEDesigner4: TCurrencyField
      FieldName = #21333#20215
      Origin = 'YFGLDATA."yfgl_kcyj.DB".'#21333#20215
    end
    object QkcyjBDEDesigner5: TStringField
      FieldName = #20351#29992#29366#20917
      Origin = 'YFGLDATA."yfgl_kcyj.DB".'#20351#29992#29366#20917
      Size = 10
    end
    object QkcyjBDEDesigner6: TBooleanField
      FieldName = #36873#25321
      Origin = 'YFGLDATA."yfgl_kcyj.DB".'#36873#25321
    end
    object QkcyjBDEDesigner7: TStringField
      FieldName = #33829#20855#20195#30721
      Origin = 'YFGLDATA."yfgl_kcyj.DB".'#33829#20855#20195#30721
      Size = 10
    end
  end
  object Qkcyj1: TQuery
    Active = True
    DatabaseName = 'yfgldata'
    SQL.Strings = (
      'SELECT '#20195#30721', '#33829#20855#21517#31216', '#21333#20301', '#25968#37327', '#21333#20215', '#21512#35745#37329#39069
      'FROM "yfgl_kcyj1.DB" Yfgl_kcyj1'
      'ORDER BY '#20195#30721)
    Left = 512
    Top = 128
    object Qkcyj1BDEDesigner: TStringField
      FieldName = #20195#30721
      Origin = 'YFGLDATA."yfgl_kcyj1.DB".'#20195#30721
      Size = 10
    end
    object Qkcyj1BDEDesigner2: TStringField
      FieldName = #33829#20855#21517#31216
      Origin = 'YFGLDATA."yfgl_kcyj1.DB".'#33829#20855#21517#31216
    end
    object Qkcyj1BDEDesigner3: TStringField
      FieldName = #21333#20301
      Origin = 'YFGLDATA."yfgl_kcyj1.DB".'#21333#20301
      Size = 4
    end
12345

datafrm.dfm - 源码说明

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

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

⌨️ 快捷键说明

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