uarea.dfm

来自「三層進銷存 使用接口和連接池 是他人的面试作品 delphi语言编写」· DFM 代码 · 共 79 行

inherited frmarea: Tfrmarea
  Top = 185
  Height = 387
  Caption = #22320#21306#36164#26009
  PixelsPerInch = 96
  TextHeight = 12
  inherited CoolBar1: TCoolBar
    Top = 333
  end
  inherited pagea: TPageControl
    Height = 333
    inherited tab1: TTabSheet
      inherited TreeView1: TTreeView
        Height = 303
      end
    end
  end
  inherited Grid: TDBGridEh
    Height = 333
    Columns = <
      item
        EditButtons = <>
        FieldName = 'fid'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #24207#21495
      end
      item
        EditButtons = <>
        FieldName = 'fparentid'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #29238'ID'
      end
      item
        EditButtons = <>
        FieldName = 'fcode'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #22320#21306#20195#30721
      end
      item
        EditButtons = <>
        FieldName = 'fname'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21517#31216
      end
      item
        EditButtons = <>
        FieldName = 'fnotes'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #22791#27880
      end>
  end
  inherited CDSbaseinfo: TClientDataSet
    object CDSbaseinfoAutoIncField: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object CDSbaseinfoIntegerField: TIntegerField
      FieldName = 'fparentid'
    end
    object CDSbaseinfoWideStringField: TWideStringField
      FieldName = 'fcode'
      Size = 30
    end
    object CDSbaseinfoWideStringField2: TWideStringField
      FieldName = 'fname'
      Size = 30
    end
    object CDSbaseinfoWideStringField3: TWideStringField
      FieldName = 'fnotes'
      Size = 50
    end
  end
end