selectitemform.dfm

实达企业在线EOL源码

inherited SelectItemFrm: TSelectItemFrm
  Left = 333
  Top = 104
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = '选择商品代码'
  ClientHeight = 416
  ClientWidth = 362
  WindowState = wsNormal
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  inherited Image1: TImage
    Width = 362
    Height = 416
  end
  object sDBTree1: TsDBTree [1]
    Left = 24
    Top = 16
    Width = 185
    Height = 369
    HideSelection = False
    Indent = 19
    ReadOnly = True
    TabOrder = 0
    OnClick = sDBTree1Click
    OnDblClick = sDBTree1DblClick
    OnKeyUp = sDBTree1KeyUp
    KeyField = 'ItemType'
    UpKeyField = 'ParentCode'
    DisplayFields = 'TypeName'
    OnGetFirstLevelData = sDBTree1GetFirstLevelData
    OnGetNextLevelData = sDBTree1GetNextLevelData
  end
  object Panel1: TPanel [2]
    Left = 16
    Top = 8
    Width = 329
    Height = 381
    BevelOuter = bvNone
    Color = clInfoBk
    TabOrder = 1
    object Label1: TLabel
      Left = 9
      Top = 16
      Width = 90
      Height = 12
      Caption = '商品代码/名称：'
      Transparent = True
    end
    object btnFind: TSpeedButton
      Left = 262
      Top = 10
      Width = 60
      Height = 22
      Caption = '查找'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
        300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
        330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
        333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
        339977FF777777773377000BFB03333333337773FF733333333F333000333333
        3300333777333333337733333333333333003333333333333377333333333333
        333333333333333333FF33333333333330003333333333333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = btnFindClick
    end
    object edFindText: TEdit
      Left = 101
      Top = 12
      Width = 156
      Height = 20
      TabOrder = 0
    end
    object btnEdit: TBitBtn
      Left = 80
      Top = 349
      Width = 60
      Height = 23
      Caption = '编辑'
      TabOrder = 1
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
        33333333333F8888883F33330000324334222222443333388F3833333388F333
        000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
        F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
        223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
        3338888300003AAAAAAA33333333333888888833333333330000333333333333
        333333333333333333FFFFFF000033333333333344444433FFFF333333888888
        00003A444333333A22222438888F333338F3333800003A2243333333A2222438
        F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
        22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
        33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
        3333333333338888883333330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object btnTree: TBitBtn
      Left = 8
      Top = 349
      Width = 60
      Height = 23
      Caption = '辅助'
      TabOrder = 2
      OnClick = btnTreeClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00303333333333
        333337F3333333333333303333333333333337F33FFFFF3FF3FF303300000300
        300337FF77777F77377330000BBB0333333337777F337F33333330330BB00333
        333337F373F773333333303330033333333337F3377333333333303333333333
        333337F33FFFFF3FF3FF303300000300300337FF77777F77377330000BBB0333
        333337777F337F33333330330BB00333333337F373F773333333303330033333
        333337F3377333333333303333333333333337FFFF3FF3FFF333000003003000
        333377777F77377733330BBB0333333333337F337F33333333330BB003333333
        333373F773333333333330033333333333333773333333333333}
      NumGlyphs = 2
    end
    object btnOk: TBitBtn
      Left = 192
      Top = 349
      Width = 60
      Height = 23
      Caption = '选择'
      TabOrder = 3
      OnClick = btnOkClick
      Kind = bkOK
    end
    object btnCancel: TBitBtn
      Left = 262
      Top = 349
      Width = 60
      Height = 23
      Caption = '取消'
      TabOrder = 4
      Kind = bkCancel
    end
    object DBGridEh1: TDBGridEh
      Left = 9
      Top = 38
      Width = 313
      Height = 305
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 5
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnDblClick = DBGridEh1DblClick
      AllowedOperations = []
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = '宋体'
      FooterFont.Style = []
      FooterColor = clWindow
      AutoFitColWidths = True
    end
  end
  inherited DataSource1: TDataSource
    DataSet = cdsLookupTable
    Left = 96
    Top = 96
  end
  object cdsLookupTable: TClientDataSet
    Aggregates = <>
    PacketRecords = 5
    Params = <>
    ProviderName = 'prvPublic'
    RemoteServer = ItemPackfrm.scEOLShQ
    Left = 56
    Top = 96
    object cdsLookupTableItemNo: TStringField
      DisplayLabel = '商品代码'
      FieldName = 'ItemNo'
    end
    object cdsLookupTableItemName: TStringField
      DisplayLabel = '商品名称'
      FieldName = 'ItemName'
    end
    object cdsLookupTableItemType: TStringField
      DisplayLabel = '商品类型'
      FieldName = 'ItemType'
      Visible = False
      Size = 10
    end
    object cdsLookupTableMeasureMethod: TStringField
      DisplayLabel = '计量方式'
      FieldName = 'MeasureMethod'
      Visible = False
      Size = 4
    end
    object cdsLookupTableModeSpec: TStringField
      DisplayLabel = '型号规格'
      FieldName = 'ModeSpec'
      Visible = False
    end
    object cdsLookupTableStandardPrice: TBCDField
      DisplayLabel = '标准单价'
      FieldName = 'StandardPrice'
      Visible = False
      Size = 2
    end
    object cdsLookupTableCostPrice: TBCDField
      DisplayLabel = '成本单价'
      FieldName = 'CostPrice'
      Visible = False
      Size = 2
    end
    object cdsLookupTableBarCode: TStringField
      DisplayLabel = '条码'
      FieldName = 'BarCode'
      Size = 30
    end
    object cdsLookupTableTaxRate: TBCDField
      DisplayLabel = '税率'
      FieldName = 'TaxRate'
      Precision = 12
      Size = 2
    end
  end
end