yfglszhfrm.dfm

本人编写的有关军队营房工作的管理系统

object yfglszh: Tyfglszh
  OldCreateOrder = False
  Left = 482
  Top = 339
  Height = 150
  Width = 215
  object szh: TTable
    Active = True
    AutoRefresh = True
    DatabaseName = 'yfgldata'
    FieldDefs = <
      item
        Name = #21333#20301
        Attributes = [faRequired]
        DataType = ftString
        Size = 50
      end
      item
        Name = #22270#29255
        DataType = ftString
        Size = 150
      end
      item
        Name = #20351#29992#26085#26399
        DataType = ftDate
      end
      item
        Name = #27880#20876#30721
        DataType = ftString
        Size = 20
      end
      item
        Name = #23494#30721
        DataType = ftString
        Size = 20
      end>
    IndexDefs = <
      item
        Name = 'szhIndex1'
        Fields = #21333#20301
        Options = [ixPrimary, ixUnique]
      end>
    StoreDefs = True
    TableName = 'yfgl_szh.DB'
    Left = 8
    Top = 8
    object szhBDEDesigner: TStringField
      FieldName = #21333#20301
      Required = True
      Size = 50
    end
    object szhBDEDesigner2: TStringField
      FieldName = #22270#29255
      Size = 150
    end
    object szhBDEDesigner3: TDateField
      FieldName = #20351#29992#26085#26399
    end
    object szhBDEDesigner4: TStringField
      FieldName = #27880#20876#30721
    end
    object szhBDEDesigner5: TStringField
      FieldName = #23494#30721
    end
  end
  object dszh: TDataSource
    DataSet = szh
    Left = 40
    Top = 8
  end
end