upickgoodsform.dfm

DELPHI DFM资源文件内码批量转换程序

inherited PickGoodsForm: TPickGoodsForm
  Left = 418
  Top = 131
  BorderStyle = bsDialog
  Caption = #36873#25321#36135#21697
  ClientHeight = 435
  ClientWidth = 581
  OldCreateOrder = True
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Label4: TLabel
    Left = 10
    Top = 309
    Width = 30
    Height = 12
    Caption = #25968#37327':'
  end
  object Edit1: TEdit
    Left = 48
    Top = 306
    Width = 102
    Height = 20
    MaxLength = 40
    TabOrder = 1
    Text = '1'
  end
  object btnOk: TButton
    Left = 499
    Top = 7
    Width = 75
    Height = 21
    Anchors = [akTop, akRight]
    Caption = #30830#23450
    Default = True
    Enabled = False
    TabOrder = 2
    OnClick = btnOkClick
  end
  object btnCancel: TButton
    Left = 499
    Top = 35
    Width = 75
    Height = 21
    Anchors = [akTop, akRight]
    Caption = #21462#28040
    ModalResult = 2
    TabOrder = 3
  end
  object btnSel: TButton
    Left = 499
    Top = 63
    Width = 75
    Height = 21
    Anchors = [akTop, akRight]
    Caption = #28155#21152#21040#21333#25454
    Enabled = False
    TabOrder = 4
    OnClick = btnSelClick
  end
  object btnSelAll: TButton
    Left = 499
    Top = 92
    Width = 75
    Height = 21
    Anchors = [akTop, akRight]
    Caption = #20840#28155#21040#21333#25454
    Enabled = False
    TabOrder = 5
    OnClick = btnSelAllClick
  end
  object btnNew: TButton
    Left = 499
    Top = 120
    Width = 75
    Height = 21
    Anchors = [akTop, akRight]
    Caption = #26032#22686'...'
    TabOrder = 6
    OnClick = btnNewClick
  end
  object SDDBGrid1: TSDDBGrid
    Left = 6
    Top = 158
    Width = 484
    Height = 144
    DataSource = dsGoods
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 7
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = 'Terminal'
    TitleFont.Style = []
    OnDblClick = SDDBGrid1DblClick
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = 'Terminal'
    FooterFont.Style = []
    CheckGlyphs.Checked.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      FFFFFFFF44FFFFFFFFFFFFF4224FFFFFFFFFFF422224FFFFFFFFF42222224FFF
      FFFF4222A22224FFFFFF222AFA2224FFFFFFA2AFFFA2224FFFFFFAFFFFFA2224
      FFFFFFFFFFFFA2224FFFFFFFFFFFFA2224FFFFFFFFFFFFA2224FFFFFFFFFFFFA
      2224FFFFFFFFFFFFA224FFFFFFFFFFFFFA22FFFFFFFFFFFFFFAF}
    CheckGlyphs.Unchecked.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    CheckGlyphs.Gray.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFF777FFFFFFFFFFFF77777FFFFFFFFFF0788777FF
      FFFFFF778888777FFFFFF77888888777FFFFF788887788777FFFFF7887FF7887
      77FFFF777FFFF7887777FFFFFFFFFF788777FFFFFFFFFFF78888FFFFFFFFFFFF
      7777FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    Columns = <
      item
        FieldName = 'GOODSCODE'
        Title.Alignment = taCenter
        Width = 100
        Tag = 0
      end
      item
        FieldName = 'GOODSNAME'
        Title.Alignment = taCenter
        Width = 100
        Tag = 0
      end
      item
        FieldName = 'SPECS'
        Title.Alignment = taCenter
        Width = 70
        Tag = 0
      end
      item
        FieldName = 'UNITNAME'
        Title.Alignment = taCenter
        Width = 60
        Tag = 0
      end
      item
        FieldName = 'QUANTITY'
        Title.Alignment = taCenter
        Visible = False
        Tag = 0
      end
      item
        FieldName = 'REALQTY'
        Title.Alignment = taCenter
        Visible = False
        Tag = 0
      end
      item
        FieldName = 'LPRICE1'
        Title.Alignment = taCenter
        Tag = 0
      end
      item
        FieldName = 'LPRICE2'
        Title.Alignment = taCenter
        Tag = 0
      end
      item
        FieldName = 'LPRICE3'
        Title.Alignment = taCenter
        Tag = 0
      end
      item
        FieldName = 'LPRICE4'
        Title.Alignment = taCenter
        Tag = 0
      end
      item
        FieldName = 'LPRICE5'
        Title.Alignment = taCenter
        Tag = 0
      end>
  end
  object SDDBGrid2: TSDDBGrid
    Left = 156
    Top = 306
    Width = 334
    Height = 127
    DataSource = dsOnhand
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 8
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = 'Terminal'
    TitleFont.Style = []
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = 'Terminal'
    FooterFont.Style = []
    AutoFitColWidths = True
    OnGetFooterParams = SDDBGrid2GetFooterParams
    ShowCalcRow = True
    CheckGlyphs.Checked.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      FFFFFFFF44FFFFFFFFFFFFF4224FFFFFFFFFFF422224FFFFFFFFF42222224FFF
      FFFF4222A22224FFFFFF222AFA2224FFFFFFA2AFFFA2224FFFFFFAFFFFFA2224
      FFFFFFFFFFFFA2224FFFFFFFFFFFFA2224FFFFFFFFFFFFA2224FFFFFFFFFFFFA
      2224FFFFFFFFFFFFA224FFFFFFFFFFFFFA22FFFFFFFFFFFFFFAF}
    CheckGlyphs.Unchecked.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    CheckGlyphs.Gray.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFF777FFFFFFFFFFFF77777FFFFFFFFFF0788777FF
      FFFFFF778888777FFFFFF77888888777FFFFF788887788777FFFFF7887FF7887
      77FFFF777FFFF7887777FFFFFFFFFF788777FFFFFFFFFFF78888FFFFFFFFFFFF
      7777FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    Columns = <
      item
        FieldName = 'NAME'
        Title.Alignment = taCenter
        Width = 150
        Tag = 0
      end
      item
        FieldName = 'QUANTITY'
        Title.Alignment = taCenter
        Width = 70
        CalcType = ctSum
        ShowCalcValue = True
        Tag = 0
      end
      item
        FieldName = 'REALQTY'
        Title.Alignment = taCenter
        Width = 70
        CalcType = ctSum
        ShowCalcValue = True
        Tag = 0
      end>
  end
  object GroupBox1: TGroupBox
    Left = 7
    Top = 3
    Width = 483
    Height = 155
    Caption = #36807#28388
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 20
      Width = 54
      Height = 12
      Caption = #36135#21697#32534#30721':'
    end
    object Label3: TLabel
      Left = 8
      Top = 47
      Width = 54
      Height = 12
      Caption = #36135#21697#21517#31216':'
    end
    object Label2: TLabel
      Left = 8
      Top = 103
      Width = 54
      Height = 12
      Caption = #36135#21697#31867#21035':'
    end
    object Label5: TLabel
      Left = 8
      Top = 75
      Width = 54
      Height = 12
      Caption = #36135#21697#35268#26684':'
    end
    object StoreLabel: TLabel
      Left = 344
      Top = 57
      Width = 54
      Height = 12
      Caption = #24403#21069#20179#24211':'
    end
    object Label6: TLabel
      Left = 8
      Top = 131
      Width = 54
      Height = 12
      Caption = #36135#21697#39318#25340':'
      Visible = False
    end
    object GoodsCodeED: TEdit
      Left = 66
      Top = 17
      Width = 141
      Height = 20
      MaxLength = 20
      TabOrder = 0
      OnChange = OnFilterChange
    end
    object GoodsNameED: TEdit
      Left = 66
      Top = 44
      Width = 141
      Height = 20
      MaxLength = 40
      TabOrder = 1
      OnChange = OnFilterChange
    end
    object GoodsType: TComboBox
      Left = 66
      Top = 100
      Width = 142
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 2
      OnClick = OnFilterChange
    end
    object HistoryGoodsCK: TCheckBox
      Left = 217
      Top = 15
      Width = 114
      Height = 17
      Caption = #21482#26174#31034#26368#36817#36135#21697
      TabOrder = 3
      OnClick = InStoreCKBClick
    end
    object InStoreCKB: TCheckBox
      Left = 217
      Top = 55
      Width = 119
      Height = 17
      Caption = #21482#26174#31034#26377#24211#23384#36135#21697
      TabOrder = 4
      OnClick = InStoreCKBClick
    end
    object SpecsED: TEdit
      Left = 66
      Top = 72
      Width = 141
      Height = 20
      MaxLength = 40
      TabOrder = 5
      OnChange = OnFilterChange
    end
    object CurTraderCB: TCheckBox
      Left = 217
      Top = 35
      Width = 232
      Height = 17
      Caption = #21482#26174#31034#19982#24403#21069#24448#26469#21333#20301#26377#20851#30340#36135#21697
      TabOrder = 6
      OnClick = InStoreCKBClick
    end
    object GroupBox2: TGroupBox
      Left = 217
      Top = 75