app.test.employeemodel.dfm

来自「轉載的程序應用框架」· DFM 代码 · 共 24 行

inherited EmployeeModel: TEmployeeModel
  Top = 118
  inherited _DataSource: TDataSource
    Left = 280
  end
  inherited _ClientDataSet: TClientDataSet
    Active = True
  end
  inherited _DataSet: TADODataSet
    Active = True
    Connection = MyDatabase.Connection
    MarshalOptions = moMarshalAll
    CommandText = 'test'
    object _DataSettest_id: TAutoIncField
      FieldName = 'test_id'
      ReadOnly = True
    end
    object _DataSetcaption: TStringField
      FieldName = 'caption'
      Size = 32
    end
  end
end