providerfrm.~dfm

来自「医药连锁经营管理系统源码」· ~DFM 代码 · 共 1,793 行 · 第 1/5 页

object FmProvider: TFmProvider
  Left = 219
  Top = 130
  Width = 786
  Height = 557
  Caption = #20379#24212#21378#21830#36164#26009
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object dbgProviders: TxDBGridEh
    Left = 0
    Top = 24
    Width = 778
    Height = 308
    Align = alClient
    AllowedOperations = []
    ColumnDefValues.Title.Alignment = taCenter
    DataSource = DsProviders
    FixedColor = clActiveBorder
    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 = 16
    SortLocal = True
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    TitleHeight = 15
    OnDblClick = dbgProvidersDblClick
    RowColorsUse = True
    RowColor1 = 16772846
    Columns = <
      item
        EditButtons = <>
        FieldName = 'ProvNo'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'ProvName'
        Footers = <>
        Title.TitleButton = True
        Width = 97
      end
      item
        EditButtons = <>
        FieldName = 'FullName'
        Footers = <>
        Title.TitleButton = True
        Width = 89
      end
      item
        EditButtons = <>
        FieldName = 'EmpNo'
        Footers = <>
        Width = 71
      end
      item
        EditButtons = <>
        FieldName = 'ProvPyCode'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'ABCKind'
        Footers = <>
        Title.TitleButton = True
        Width = 58
      end
      item
        EditButtons = <>
        FieldName = 'Trade'
        Footers = <>
        Title.TitleButton = True
        Width = 71
      end
      item
        EditButtons = <>
        FieldName = 'SubjectDept'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'WorkingMode'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'WorkingBound'
        Footers = <>
        Title.TitleButton = True
        Width = 106
      end
      item
        EditButtons = <>
        FieldName = 'CorpName'
        Footers = <>
        Title.TitleButton = True
        Width = 59
      end
      item
        EditButtons = <>
        FieldName = 'CorpDuty'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'OwnerKind'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'QualityPar'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'PermitNo'
        Footers = <>
        Title.TitleButton = True
        Width = 101
      end
      item
        EditButtons = <>
        FieldName = 'Competency'
        Footers = <>
        Title.TitleButton = True
        Width = 94
      end
      item
        EditButtons = <>
        FieldName = 'Area'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'PostCode'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'Address'
        Footers = <>
        Title.TitleButton = True
        Width = 148
      end
      item
        EditButtons = <>
        FieldName = 'LinkMan'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'Mobile'
        Footers = <>
        Title.TitleButton = True
      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 = 139
      end
      item
        EditButtons = <>
        FieldName = 'AccountNo'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'TaxNo'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'Credit'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'CreditDays'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'PayModeNo'
        Footers = <>
        Title.TitleButton = True
        Width = 63
      end
      item
        EditButtons = <>
        FieldName = 'PayModename'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'Pause'
        Footers = <>
        Title.TitleButton = True
      end
      item
        EditButtons = <>
        FieldName = 'Remark'
        Footers = <>
        Title.TitleButton = True
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 497
    Width = 778
    Height = 33
    Align = alBottom
    BevelOuter = bvNone
    ParentColor = True
    TabOrder = 1
    object BtnNew: TRzBitBtn
      Left = 208
      Top = 4
      Width = 81
      Action = ActNew
      Caption = #26032#22686'(&N)'
      Color = 15791348
      Font.Charset = GB2312_CHARSET
      Font.Color = clBtnText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      HighlightColor = 16026986
      HotTrack = True
      HotTrackColor = 3983359
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C000000000000EF3D
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7CEF3D1F7C1F7C0000EF3D
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7CEF3D0000000000001F7C0000EF3D
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7CEF3D1F7C1F7C00001F7C0000EF3D
        EF3DEF3DEF3D1F7C1F7C1F7C1F7CEF3D0000000000001F7C00001F7C00000000
        0000000000001F7C1F7C1F7C1F7CEF3DFF7FFF7F00001F7C00001F7C1F7C1F7C
        1F7C1F7C00001F7C1F7C00000000EF3DFF7FFF7F00001F7C0000000000000000
        00001F7C00001F7C1F7CEF3D1F7CEF3DFF7FFF7F00001F7C1F7C1F7C1F7C1F7C
        0000EF3DEF3D00000000000000000000FF7FFF7F000000000000000000001F7C
        00001F7C1F7CEF3DFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000EF3D
        EF3D1F7C1F7CEF3DFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00001F7C
        1F7C1F7C1F7CEF3DEF3DEF3DEF3DEF3DFF7FFF7F0000EF3DEF3DEF3DEF3D1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7CEF3DFF7FFF7F00001F7C00001F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7CEF3DFF7FFF7F0000EF3DEF3D1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7CEF3DFF7FFF7F00001F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7CEF3DEF3DEF3DEF3D1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C}
      ImageIndex = 2
      Images = ImageList1
    end
    object BitBtn2: TRzBitBtn
      Left = 689
      Top = 4
      Width = 81
      Action = ActExit
      Caption = #36864#20986'(&E)'
      Color = 15791348
      Font.Charset = GB2312_CHARSET
      Font.Color = clBtnText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      HighlightColor = 16026986
      HotTrack = True
      HotTrackColor = 3983359
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000C40E0000C40E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDDDDD0DDDDDDDDDDDDDD00DDDDDDDDDDDDD030DDDDDDDDDDDD0330DDDDDD
        DDDD0033300000000DDDD03330FF0DDDDDDDD03300FF0DDDD4DDD03330FF0DDD
        44DDD03330FF0DD44444D03330FF0D444444D03330FF0DD44444D0330FFF0DDD
        44DDD030FFFF0DDDD4DDD00FFFFF0DDDDDDDD00000000DDDDDDD}
      ImageIndex = 7
      Images = ImageList1
    end
    object BtnPrint: TRzBitBtn
      Left = 592
      Top = 4
      Width = 81
      Action = ActPrint
      Caption = #25253#34920'(&P)'
      Color = 15791348
      Font.Charset = GB2312_CHARSET
      Font.Color = clBtnText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      HighlightColor = 16026986
      HotTrack = True
      HotTrackColor = 3983359
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2