selectunitprice.dfm

来自「三层ERP系统 (SQL)」· DFM 代码 · 共 82 行

inherited frmSelectUnitPrict: TfrmSelectUnitPrict
  Width = 298
  Height = 233
  Caption = #21934#20729#36984#25799
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 16
    Width = 64
    Height = 15
    Caption = #21934#20729#36984#25799
    Font.Charset = ANSI_CHARSET
    Font.Color = clMaroon
    Font.Height = -15
    Font.Name = #32048#26126#39636
    Font.Style = []
    ParentFont = False
  end
  object Bevel1: TBevel
    Left = 69
    Top = 22
    Width = 193
    Height = 2
  end
  object grid: TDBGridEh
    Left = 16
    Top = 40
    Width = 177
    Height = 153
    DataSource = DSUnitPrice
    FixedColor = 12835543
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = ANSI_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -13
    FooterFont.Name = #32048#26126#39636
    FooterFont.Style = []
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #32048#26126#39636
    TitleFont.Style = []
    OnGetCellParams = gridGetCellParams
  end
  object btnok: TButton
    Left = 207
    Top = 136
    Width = 75
    Height = 25
    Caption = #30906#23450
    TabOrder = 1
    OnClick = btnokClick
  end
  object btnexit: TButton
    Left = 207
    Top = 168
    Width = 75
    Height = 25
    Caption = #21462#28040
    TabOrder = 2
    OnClick = btnexitClick
  end
  object CDSUnitPrice: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 112
    Top = 64
  end
  object DSUnitPrice: TDataSource
    DataSet = CDSUnitPrice
    Left = 128
    Top = 120
  end
end