fmcustparau.dfm

小型库存管理,希望有帮助,小型库存管理,希望有帮助

inherited FMCustPara: TFMCustPara
  Width = 829
  Height = 485
  Caption = 'FMCustPara'
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter [0]
    Left = 320
    Top = 38
    Width = 5
    Height = 420
    Cursor = crHSplit
  end
  inherited BtnPanel: TPanel
    Width = 821
  end
  object Panel1: TPanel [2]
    Left = 325
    Top = 38
    Width = 496
    Height = 420
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Label1: TLabel
      Left = 18
      Top = 32
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #21442#25968#32534#21495
      FocusControl = dbfPameNo
    end
    object Label2: TLabel
      Left = 30
      Top = 72
      Width = 36
      Height = 12
      Alignment = taRightJustify
      Caption = #21442#25968#20540
      FocusControl = DBEdit2
    end
    object dbfPameNo: TDBEdit
      Left = 72
      Top = 32
      Width = 124
      Height = 20
      DataField = 'fPameNo'
      DataSource = dsMain
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 72
      Top = 72
      Width = 362
      Height = 20
      DataField = 'fPameValue'
      DataSource = dsMain
      TabOrder = 1
    end
  end
  object DBGrid1: TDBGrid [3]
    Tag = 1
    Left = 0
    Top = 38
    Width = 320
    Height = 420
    Align = alLeft
    DataSource = dsMain
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'fPameNo'
        Title.Caption = #21442#25968#32534#21495
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fPameValue'
        Title.Caption = #21442#25968#20540
        Width = 120
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fPameMenu'
        Title.Caption = #21442#25968#35828#26126
        Width = 120
        Visible = True
      end>
  end
  inherited cdsMain: TADODataSet
    CommandText = 'select * from ts_pame where 1=1'
    Left = 64
    Top = 112
    object cdsMainfPameNo: TSmallintField
      FieldName = 'fPameNo'
    end
    object cdsMainfPameValue: TWideStringField
      FieldName = 'fPameValue'
      Size = 50
    end
    object cdsMainfPameMenu: TWideStringField
      FieldName = 'fPameMenu'
      Size = 50
    end
    object cdsMainfFFU: TWideStringField
      FieldName = 'fFFU'
      Size = 10
    end
  end
  inherited dsMain: TDataSource
    Left = 112
    Top = 112
  end
end