selsettlefrm.dfm

群星医药系统源码

inherited FmSelSettle: TFmSelSettle
  Left = 240
  Top = 130
  Width = 812
  Height = 577
  Caption = #38144#21806#32467#31639
  PixelsPerInch = 96
  TextHeight = 12
  inherited TBDock1: TTBDock
    Width = 804
    inherited Toolbar1: TTBToolbar
      DockPos = 0
      object TBItem18: TTBItem [11]
        Action = ActFinish
      end
    end
  end
  inherited TBDock2: TTBDock
    Top = 541
    Width = 804
  end
  inherited TBDock3: TTBDock
    Left = 795
    Height = 502
  end
  inherited TBDock4: TTBDock
    Height = 502
  end
  inherited plBoard: TRzPanel
    Width = 786
    Height = 502
    inherited plHeader: TRzPanel
      Width = 782
      Height = 139
      object RzLabel1: TRzLabel
        Left = 9
        Top = 12
        Width = 60
        Height = 12
        Caption = #32467#31639#21333#21495#65306
      end
      object RzLabel2: TRzLabel
        Left = 9
        Top = 39
        Width = 60
        Height = 12
        Caption = #32467#31639#26085#26399#65306
      end
      object RzLabel3: TRzLabel
        Left = 9
        Top = 66
        Width = 60
        Height = 12
        Caption = #31867#12288#12288#22411#65306
      end
      object RzLabel4: TRzLabel
        Left = 594
        Top = 65
        Width = 60
        Height = 12
        Caption = #32463' '#25163' '#20154#65306
      end
      object RzLabel5: TRzLabel
        Left = 594
        Top = 93
        Width = 60
        Height = 12
        Caption = #22797' '#26680' '#21592#65306
      end
      object RzLabel8: TRzLabel
        Left = 217
        Top = 39
        Width = 60
        Height = 12
        Caption = #32852' '#31995' '#20154#65306
      end
      object RzLabel18: TRzLabel
        Left = 428
        Top = 66
        Width = 60
        Height = 12
        Caption = #24080'    '#21495#65306
      end
      object RzLabel19: TRzLabel
        Left = 428
        Top = 93
        Width = 60
        Height = 12
        Caption = #31246'    '#21495#65306
      end
      object Lab_State: TLabel
        Left = 594
        Top = 119
        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 = 217
        Top = 12
        Width = 60
        Height = 12
        Caption = #23458#25143#21333#20301#65306
      end
      object RzLabel17: TRzLabel
        Left = 217
        Top = 66
        Width = 60
        Height = 12
        Caption = #32467#31639#37096#38376#65306
      end
      object RzLabel20: TRzLabel
        Left = 9
        Top = 120
        Width = 60
        Height = 12
        Caption = #24320' '#25143' '#34892#65306
      end
      object RzLabel23: TRzLabel
        Left = 193
        Top = 93
        Width = 84
        Height = 12
        Caption = #23458#25143#21457#31080#21517#31216#65306
      end
      object RzLabel24: TRzLabel
        Left = 193
        Top = 120
        Width = 84
        Height = 12
        Caption = #21457#31080#30005#35805#21495#30721#65306
      end
      object RzLabel25: TRzLabel
        Left = 428
        Top = 120
        Width = 60
        Height = 12
        Caption = #20184#27454#26041#24335#65306
      end
      object RzLabel26: TRzLabel
        Left = 594
        Top = 38
        Width = 60
        Height = 12
        Caption = #20184#27454#26085#26399#65306
      end
      object RzLabel27: TRzLabel
        Left = 594
        Top = 12
        Width = 60
        Height = 12
        Caption = #29616#25910#37329#39069#65306
      end
      object RzLabel6: TRzLabel
        Left = 9
        Top = 93
        Width = 60
        Height = 12
        AutoSize = False
        Caption = #21457#31080#26085#26399#65306
      end
      object RzLabel10: TRzLabel
        Left = 428
        Top = 12
        Width = 60
        Height = 12
        AutoSize = False
        Caption = #21457#31080#31867#22411#65306
      end
      object RzLabel11: TRzLabel
        Left = 428
        Top = 39
        Width = 60
        Height = 12
        AutoSize = False
        Caption = #21457#31080#21495#30721#65306
      end
      object RzDBEdit1: TRzDBEdit
        Tag = -1
        Left = 67
        Top = 7
        Width = 118
        Height = 20
        DataSource = DsSelSettle
        DataField = 'BillNo'
        ReadOnly = True
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 0
      end
      object RzDBDateTimePicker1: TRzDBDateTimePicker
        Left = 67
        Top = 34
        Width = 118
        Height = 19
        Date = 37677.813191481480000000
        Time = 37677.813191481480000000
        DateFormat = dfLong
        TabOrder = 5
        FlatButtons = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        ShowToday = True
        DataField = 'FDate'
        DataSource = DsSelSettle
      end
      object RzDBDateTimePicker3: TRzDBDateTimePicker
        Left = 652
        Top = 34
        Width = 127
        Height = 19
        Date = 37677.813191481480000000
        Time = 37677.813191481480000000
        DateFormat = dfLong
        TabOrder = 4
        FlatButtons = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        ShowToday = True
        DataField = 'PayDate'
        DataSource = DsSelSettle
      end
      object edProvName: TRzDBButtonEdit
        Tag = -1
        Left = 331
        Top = 7
        Width = 90
        Height = 20
        DataSource = DsSelSettle
        DataField = 'CustName'
        ReadOnly = True
        FrameVisible = True
        TabOrder = 2
        OnButtonClick = edProvNameButtonClick
        FlatButtons = True
      end
      object RzDBEdit9: TRzDBEdit
        Left = 276
        Top = 7
        Width = 54
        Height = 20
        DataSource = DsSelSettle
        DataField = 'CustNo'
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 1
      end
      object RzDBEdit8: TRzDBEdit
        Tag = -1
        Left = 652
        Top = 88
        Width = 127
        Height = 20
        DataSource = DsSelSettle
        DataField = 'Audit'
        ReadOnly = True
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 14
      end
      object cbPayModes: TRzComboBox
        Left = 487
        Top = 115
        Width = 100
        Height = 20
        AutoComplete = False
        Style = csDropDownList
        Ctl3D = False
        DisabledColor = clWhite
        FlatButtons = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        ItemHeight = 12
        ParentCtl3D = False
        TabOnEnter = True
        TabOrder = 17
      end
      object DBEdit6: TRzDBEdit
        Left = 652
        Top = 61
        Width = 52
        Height = 20
        DataSource = DsSelSettle
        DataField = 'EmpNo'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 8
      end
      object RzDBButtonEdit1: TRzDBButtonEdit
        Tag = -1
        Left = 705
        Top = 61
        Width = 74
        Height = 20
        DataSource = DsSelSettle
        DataField = 'EmpName'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 9
        OnButtonClick = RzDBButtonEdit1ButtonClick
        FlatButtons = True
      end
      object RzDBButtonEdit2: TRzDBButtonEdit
        Tag = -1
        Left = 276
        Top = 34
        Width = 145
        Height = 20
        DataSource = DsSelSettle
        DataField = 'LinkMan'
        ReadOnly = True
        FrameVisible = True
        TabOrder = 6
        OnButtonClick = RzDBButtonEdit2ButtonClick
        FlatButtons = True
      end
      object RzDBDateTimePicker6: TRzDBDateTimePicker
        Left = 67
        Top = 88
        Width = 118
        Height = 19
        Date = 37677.813191481480000000
        Time = 37677.813191481480000000
        DateFormat = dfLong
        TabOrder = 15
        FlatButtons = True
        FrameVisible = True
        ShowToday = True
        DataField = 'InvoiceDate'
        DataSource = DsSelSettle
      end
      object RzDBComboBox1: TRzDBComboBox
        Left = 276
        Top = 88
        Width = 145
        Height = 20
        DataField = 'CompanyName'
        DataSource = DsSelSettle
        Ctl3D = False
        FlatButtons = True
        FrameHotTrack = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        ItemHeight = 12
        ParentCtl3D = False
        TabOrder = 16
        Items.Strings = (
          #35745#21010#21512#21516
          #36861#21152#21512#21516
          #30005#35805#21512#21516
          #30005#25253#21512#21516
          #20256#30495#21512#21516
          #36827#21475#21512#21516)
      end
      object RzDBEdit11: TRzDBEdit
        Left = 276
        Top = 115
        Width = 145
        Height = 20
        DataSource = DsSelSettle
        DataField = 'Telephone'
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 19
      end
      object RzDBEdit13: TRzDBEdit
        Left = 652
        Top = 7
        Width = 127
        Height = 20
        DataSource = DsSelSettle
        DataField = 'GatherAtOnce'
        Alignment = taRightJustify
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 20
      end
      object RzDBEdit10: TRzDBEdit
        Left = 276
        Top = 61
        Width = 54
        Height = 20
        DataSource = DsSelSettle
        DataField = 'DepartNo'
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 11
      end
      object edDepartName: TRzDBButtonEdit
        Tag = -1
        Left = 331
        Top = 61
        Width = 90
        Height = 20
        DataSource = DsSelSettle
        DataField = 'DepartName'
        ReadOnly = True
        FrameVisible = True
        TabOrder = 12
        OnButtonClick = edDepartNameButtonClick
        FlatButtons = True
      end
      object cbInOutKind: TRzComboBox
        Left = 67
        Top = 61
        Width = 118
        Height = 20
        Ctl3D = False
        FlatButtons = True
        FrameHotTrack = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        ItemHeight = 12
        ParentCtl3D = False
        TabOrder = 10
        Items.Strings = (
          #26399#21021#24212#25910
          #25209#21457#38144#21806
          #20195#38144)
      end
      object RzDBComboBox3: TRzDBComboBox
        Left = 67
        Top = 115
        Width = 118
        Height = 20
        DataField = 'AccountBank'
        DataSource = DsSelSettle
        Ctl3D = False
        FlatButtons = True
        FrameHotTrack = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        ItemHeight = 12
        ParentCtl3D = False
        TabOrder = 18
        Items.Strings = (
          #20013#22269#20154#27665#38134#34892
          #20013#22269#25307#21830#38134#34892
          #20013#22269#24314#35774#38134#34892
          #20013#22269#20892#19994#38134#34892)
      end
      object RzDBEdit14: TRzDBEdit
        Left = 487
        Top = 61
        Width = 100
        Height = 20
        DataSource = DsSelSettle
        DataField = 'AccountNo'
        FrameHotTrack = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 7
      end
      object RzDBEdit15: TRzDBEdit
        Left = 487
        Top = 88
        Width = 100
        Height = 20
        DataSource = DsSelSettle
        DataField = 'TaxNo'
        FrameHotTrack = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 13
      end
      object cbInvoiceType: TRzComboBox
        Left = 487
        Top = 7
        Width = 100
        Height = 20
        Ctl3D = False
        FlatButtons = True
        FrameHotTrack = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        ItemHeight = 12
        ParentCtl3D = False
        TabOrder = 3
        Items.Strings = (
          #26222#36890
          #22686#20540#31246)
      end
      object RzDBEdit6: TRzDBEdit
        Left = 487
        Top = 34
        Width = 100
        Height = 19
        DataSource = DsSelSettle
        DataField = 'InvoiceNo'
        AutoSize = False
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 21
      end
    end
    inherited plBody: TRzPanel
      Top = 141
      Width = 782
      Height = 301
      object dbgPchOrderDtl: TxDBGridEh
        Left = 0
        Top = 0
        Width = 782
        Height = 301
        TabStop = False
        Align = alClient
        AllowedOperations = [alopUpdateEh, alopAppendEh]
        DataSource = DsSelSettleDtl
        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 = dbgPchOrderDtlEditButtonClick
        RowColorsUse = True
        RowColor1 = 16772846
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ItemNo'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'GoodsID'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 92
          end
          item
            EditButtons = <>
            FieldName = 'Name'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 106
          end
          item
            EditButtons = <>
            FieldName = 'Specs'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 105
          end
          item
            EditButtons = <>
            FieldName = 'Unit'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 49
          end
          item
            EditButtons = <>
            FieldName = 'BatchNo'
            Footers = <>
            ReadOnly = True