unit1.~dfm

来自「学习程序,用于初学进销存的参考代码学习程序,用于初学进销存的参考代码」· ~DFM 代码 · 共 33 行

inherited frmBase1: TfrmBase1
  Left = 214
  Top = 113
  Caption = 'frmBase1'
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited CoolBar1: TCoolBar
    ParentFont = False
    inherited SB_Save: TSpeedButton
      OnClick = SB_SaveClick
    end
    inherited SB_Del: TSpeedButton
      OnClick = nil
    end
  end
  object DBEdit1: TDBEdit [2]
    Left = 112
    Top = 56
    Width = 185
    Height = 20
    DataField = 'Custer_Name'
    DataSource = DS_Base
    TabOrder = 2
  end
  inherited ADO_Base: TADOQuery
    Active = True
    BeforeScroll = nil
    SQL.Strings = (
      'select * from ms_custer_hdr')
  end
end