selretexcludefrm.dfm

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

inherited FmSelRetExclude: TFmSelRetExclude
  Left = 91
  Top = 140
  Width = 808
  Height = 577
  Caption = #38144#36864#25298#25910
  PixelsPerInch = 96
  TextHeight = 12
  inherited TBDock1: TTBDock
    Width = 800
    inherited Toolbar1: TTBToolbar
      DockPos = 0
      object TBItem18: TTBItem [11]
        Action = ActFinish
      end
    end
  end
  inherited TBDock2: TTBDock
    Top = 541
    Width = 800
  end
  inherited TBDock3: TTBDock
    Left = 791
    Height = 502
  end
  inherited TBDock4: TTBDock
    Height = 502
  end
  inherited plBoard: TRzPanel
    Width = 782
    Height = 502
    inherited plHeader: TRzPanel
      Width = 778
      Height = 89
      object RzLabel1: TRzLabel
        Left = 5
        Top = 11
        Width = 60
        Height = 12
        Caption = #21333#25454#32534#21495#65306
      end
      object RzLabel2: TRzLabel
        Left = 5
        Top = 40
        Width = 60
        Height = 12
        Caption = #26085'    '#26399#65306
      end
      object RzLabel5: TRzLabel
        Left = 583
        Top = 40
        Width = 48
        Height = 12
        Caption = #22797#26680#21592#65306
      end
      object RzLabel8: TRzLabel
        Left = 190
        Top = 40
        Width = 60
        Height = 12
        Caption = #32852' '#31995' '#20154#65306
      end
      object Lab_State: TLabel
        Left = 583
        Top = 68
        Width = 96
        Height = 12
        Caption = #21333#25454#29366#24577#65306#26410#23457#26680
        Font.Charset = GB2312_CHARSET
        Font.Color = clHotLight
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 190
        Top = 11
        Width = 60
        Height = 12
        Caption = #20379#24212#21378#21830#65306
      end
      object Label1: TLabel
        Left = 583
        Top = 11
        Width = 48
        Height = 12
        Caption = #19994#21153#21592#65306
      end
      object RzLabel12: TRzLabel
        Left = 190
        Top = 68
        Width = 60
        Height = 12
        AutoSize = False
        Caption = #36827#36135#20973#35777#65306
      end
      object RzLabel9: TRzLabel
        Left = 405
        Top = 68
        Width = 60
        Height = 12
        AutoSize = False
        Caption = #36827#36135#22320#22336#65306
      end
      object RzLabel3: TRzLabel
        Left = 5
        Top = 68
        Width = 60
        Height = 12
        AutoSize = False
        Caption = #23545#24212#21333#21495#65306
      end
      object RzLabel10: TRzLabel
        Left = 405
        Top = 11
        Width = 60
        Height = 12
        AutoSize = False
        Caption = #36816#36755#26041#24335#65306
      end
      object RzLabel11: TRzLabel
        Left = 405
        Top = 40
        Width = 60
        Height = 12
        AutoSize = False
        Caption = #36816#36755#21040#31449#65306
      end
      object RzDBEdit1: TRzDBEdit
        Tag = -1
        Left = 63
        Top = 7
        Width = 119
        Height = 20
        DataSource = DsSelRetExclude
        DataField = 'BillNo'
        ReadOnly = True
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 0
      end
      object RzDBDateTimePicker1: TRzDBDateTimePicker
        Left = 63
        Top = 35
        Width = 119
        Height = 19
        Date = 37677.813191481480000000
        Time = 37677.813191481480000000
        DateFormat = dfLong
        TabOrder = 6
        FlatButtons = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        ShowToday = True
        DataField = 'FDate'
        DataSource = DsSelRetExclude
      end
      object edCustName: TRzDBButtonEdit
        Tag = -1
        Left = 305
        Top = 7
        Width = 92
        Height = 20
        DataSource = DsSelRetExclude
        DataField = 'CustName'
        ReadOnly = True
        FrameVisible = True
        TabOrder = 2
        OnButtonClick = edCustNameButtonClick
        FlatButtons = True
      end
      object RzDBEdit9: TRzDBEdit
        Left = 248
        Top = 7
        Width = 56
        Height = 20
        DataSource = DsSelRetExclude
        DataField = 'CustNo'
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 1
      end
      object RzDBEdit8: TRzDBEdit
        Tag = -1
        Left = 629
        Top = 35
        Width = 145
        Height = 20
        DataSource = DsSelRetExclude
        DataField = 'Audit'
        ReadOnly = True
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 9
      end
      object RzDBButtonEdit2: TRzDBButtonEdit
        Tag = -1
        Left = 248
        Top = 35
        Width = 149
        Height = 20
        DataSource = DsSelRetExclude
        DataField = 'LinkMan'
        ReadOnly = True
        FrameVisible = True
        TabOrder = 7
        OnButtonClick = RzDBButtonEdit2ButtonClick
        FlatButtons = True
      end
      object RzDBEdit2: TRzDBEdit
        Left = 629
        Top = 7
        Width = 54
        Height = 20
        DataSource = DsSelRetExclude
        DataField = 'EmpNo'
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 4
      end
      object RzDBButtonEdit1: TRzDBButtonEdit
        Tag = -1
        Left = 684
        Top = 8
        Width = 90
        Height = 20
        DataSource = DsSelRetExclude
        DataField = 'EmpName'
        ReadOnly = True
        FrameVisible = True
        TabOrder = 5
        OnButtonClick = RzDBButtonEdit1ButtonClick
        FlatButtons = True
      end
      object RzDBEdit3: TRzDBEdit
        Left = 463
        Top = 63
        Width = 112
        Height = 19
        DataSource = DsSelRetExclude
        DataField = 'CustAddr'
        AutoSize = False
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 12
      end
      object RzDBEdit7: TRzDBEdit
        Left = 248
        Top = 63
        Width = 149
        Height = 20
        DataSource = DsSelRetExclude
        DataField = 'Invoice'
        Alignment = taRightJustify
        FrameVisible = True
        TabOrder = 11
      end
      object RzDBEdit10: TRzDBEdit
        Left = 63
        Top = 63
        Width = 119
        Height = 19
        DataSource = DsSelRetExclude
        DataField = 'PBillNo'
        AutoSize = False
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 10
      end
      object RzDBEdit4: TRzDBEdit
        Left = 463
        Top = 7
        Width = 112
        Height = 19
        DataSource = DsSelRetExclude
        DataField = 'CarrKind'
        AutoSize = False
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 3
      end
      object RzDBEdit5: TRzDBEdit
        Left = 463
        Top = 35
        Width = 112
        Height = 19
        DataSource = DsSelRetExclude
        DataField = 'CarrAddr'
        AutoSize = False
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 8
      end
    end
    inherited plBody: TRzPanel
      Top = 91
      Width = 778
      Height = 382
      object dbgSelRetOrderDtl: TxDBGridEh
        Left = 0
        Top = 0
        Width = 778
        Height = 382
        TabStop = False
        Align = alClient
        AllowedOperations = [alopUpdateEh]
        DataSource = DsSelRetExcludeDtl
        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]
        RowHeight = 16
        SortLocal = True
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        TitleHeight = 15
        OnEditButtonClick = dbgSelRetOrderDtlEditButtonClick
        RowColorsUse = True
        RowColor1 = 16772846
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ItemNo'
            Footers = <>
            ReadOnly = True
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'GoodsID'
            Footers = <>
            Width = 99
          end
          item
            EditButtons = <>
            FieldName = 'Name'
            Footers = <>
            ReadOnly = True
          end
          item
            EditButtons = <>