customerfrm.~dfm

医药连锁经营管理系统源码

      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        1800000000000003000000000000000000000000000000000000FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FF00000000000000000000000000000000000000000000
        0000000000000000636163FF00FFFF00FFFF00FFFF00FFFF00FF000000F7F7F7
        F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7FFFFFF00FF000000B5B6B56361636361
        63FF00FFFF00FFFF00FF000000F7F7F7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7DE
        DFDEF7F7F7000000B5B6B5B5B6B5B5B6B5636163636163FF00FF000000E7E7E7
        E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7F7F7F70000003130313130313130
        31B5B6B5B5B6B5636163000000E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7
        E7E7F7F7F7000000E7FFB5F7FFD63130314A494A4A494A4A494A000000E7E7E7
        F7F7F7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7F7F7F7000000BDFF4AE7FFB53130
        31FFE7B5FFF7D64A494A000000E7E7E7F7F7F7F7F7F7E7E7E7E7E7E7E7E7E7E7
        E7E7F7F7F7000000D6FF8CE7FFB5313031FFD78CFFE7B54A494A000000E7E7E7
        F7F7F7F7F7F7F7F7F7F7F7F7E7E7E7E7E7E7F7F7F7000000D6FF8CE7FFB53130
        31FFD78CFFF7D64A494A000000E7E7E7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7E7
        E7E7E7E7E7000000D6FF8CD6FF8C313031FFE7B5FFF7D64A494A000000DEDFDE
        F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7E7E7E7000000F7FFD6D6FF8C3130
        31FFE7B5FFF7D64A494A000000DEDFDEF7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7
        F7F7E7E7E7000000F7FFD6BDFF4A313031FFF7D6FFF7D64A494A000000DEDFDE
        F7FFFFF7F7F7F7F7F7F7F7F7F7F7F7F7F7F7E7E7E7000000BDFF4ABDFF4A3130
        314A494A4A494A4A494A000000DEDFDEDEDFDEDEDFDEDEDFDEDEDFDEE7E7E7E7
        E7E7E7E7E7000000313031313031313031FF00FFFF00FFFF00FF000000000000
        000000000000000000000000000000000000000000000000FF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
      ImageIndex = 1
      Images = ImageList1
    end
  end
  object dbgCustomers: TxDBGridEh
    Left = 0
    Top = 24
    Width = 785
    Height = 310
    Align = alClient
    AllowedOperations = []
    ColumnDefValues.Title.Alignment = taCenter
    DataSource = DsCustomers
    EditActions = [geaCutEh, geaCopyEh, geaPasteEh]
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghRowHighlight]
    ReadOnly = True
    RowHeight = 18
    SortLocal = True
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    TitleHeight = 15
    OnDblClick = ActModifyExecute
    RowColorsUse = True
    RowColor1 = 16772846
    Columns = <
      item
        EditButtons = <>
        FieldName = 'CustNo'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'CustName'
        Footers = <>
        Title.TitleButton = True
        Width = 115
      end
      item
        EditButtons = <>
        FieldName = 'FullName'
        Footers = <>
        Title.TitleButton = True
        Width = 121
      end
      item
        EditButtons = <>
        FieldName = 'CustPyCode'
        Footers = <>
        Width = 80
      end
      item
        EditButtons = <>
        FieldName = 'ABCKind'
        Footers = <>
        Title.TitleButton = True
        Width = 50
      end
      item
        EditButtons = <>
        FieldName = 'Trade'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'SubjectDept'
        Footers = <>
        Title.TitleButton = True
        Width = 66
      end
      item
        EditButtons = <>
        FieldName = 'WorkingMode'
        Footers = <>
        Title.TitleButton = True
        Width = 85
      end
      item
        EditButtons = <>
        FieldName = 'WorkingBound'
        Footers = <>
        Title.TitleButton = True
        Width = 123
      end
      item
        EditButtons = <>
        FieldName = 'CorpName'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'CorpDuty'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'OwnerKind'
        Footers = <>
        Title.TitleButton = True
        Width = 81
      end
      item
        EditButtons = <>
        FieldName = 'QualityPar'
        Footers = <>
        Title.TitleButton = True
        Width = 77
      end
      item
        EditButtons = <>
        FieldName = 'PermitNo'
        Footers = <>
        Title.TitleButton = True
        Width = 79
      end
      item
        EditButtons = <>
        FieldName = 'Competency'
        Footers = <>
        Title.TitleButton = True
        Width = 85
      end
      item
        EditButtons = <>
        FieldName = 'EmpNo'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'Area'
        Footers = <>
        Title.TitleButton = True
        Width = 69
      end
      item
        EditButtons = <>
        FieldName = 'PostCode'
        Footers = <>
        Title.TitleButton = True
        Width = 70
      end
      item
        EditButtons = <>
        FieldName = 'Address'
        Footers = <>
        Title.TitleButton = True
        Width = 96
      end
      item
        EditButtons = <>
        FieldName = 'LinkMan'
        Footers = <>
        Title.TitleButton = True
        Width = 66
      end
      item
        EditButtons = <>
        FieldName = 'Mobile'
        Footers = <>
        Title.TitleButton = True
        Width = 71
      end
      item
        EditButtons = <>
        FieldName = 'LinkTel'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'Fax'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'AccountBank'
        Footers = <>
        Title.TitleButton = True
        Width = 102
      end
      item
        EditButtons = <>
        FieldName = 'AccountNo'
        Footers = <>
        Title.TitleButton = True
        Width = 85
      end
      item
        EditButtons = <>
        FieldName = 'TaxNo'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'CoinKind'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'Credit'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'CreditDays'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'Pause'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'PriceMode'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'PriceModulus'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'PayModeNo'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'Remark'
        Footers = <>
        Title.TitleButton = True
        Width = 123
      end>
  end
  object Panel2: TRzSizePanel
    Left = 0
    Top = 334
    Width = 785
    Height = 165
    Align = alBottom
    HotSpotHighlight = clFuchsia
    HotSpotVisible = True
    ParentColor = True
    SizeBarStyle = ssGroove
    SizeBarWidth = 7
    TabOrder = 2
    object PageTabs: TRzPageControl
      Left = 0
      Top = 8
      Width = 785
      Height = 157
      ActivePage = TabSheet1
      Align = alClient
      FlatColor = 10263441
      HotTrack = False
      HotTrackColor = 3983359
      HotTrackColorType = htctActual
      ShowFocusRect = False
      TabColors.HighlightBar = 3983359
      TabIndex = 0
      TabOrder = 0
      FixedDimension = 18
      object TabSheet1: TRzTabSheet
        Caption = #21327#35758#21697#31181#31649#29702
        object dbgCustGoods: TxDBGridEh
          Left = 0
          Top = 0
          Width = 683
          Height = 135
          Align = alClient
          AllowedOperations = [alopUpdateEh]
          ColumnDefValues.Title.Alignment = taCenter
          DataSource = dsCustGoods
          EditActions = [geaCutEh, geaCopyEh, geaPasteEh]
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = GB2312_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -12
          FooterFont.Name = #23435#20307
          FooterFont.Style = []
          Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
          OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghRowHighlight]
          ReadOnly = True
          RowHeight = 16
          SortLocal = True
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          TitleHeight = 15
          RowColorsUse = True
          RowColor1 = 16772846
          Columns = <
            item
              EditButtons = <>
              FieldName = 'GoodsID'