selreturnfrm.dfm

群星医药系统源码

inherited FmSelReturn: TFmSelReturn
  Left = 134
  Top = 115
  Width = 808
  Height = 580
  Caption = #38144#36864#20837#24211#36890#30693#21333
  PixelsPerInch = 96
  TextHeight = 12
  inherited TBDock1: TTBDock
    Width = 800
  end
  inherited TBDock2: TTBDock
    Top = 544
    Width = 800
  end
  inherited TBDock3: TTBDock
    Left = 791
    Height = 505
  end
  inherited TBDock4: TTBDock
    Height = 505
  end
  inherited plBoard: TRzPanel
    Width = 782
    Height = 505
    inherited plHeader: TRzPanel
      Width = 778
      Height = 90
      object Label1: TLabel
        Left = 8
        Top = 12
        Width = 48
        Height = 12
        Caption = #21333#25454#32534#21495
      end
      object Label2: TLabel
        Left = 8
        Top = 40
        Width = 48
        Height = 12
        Caption = #26085#12288#12288#26399
      end
      object Label4: TLabel
        Left = 8
        Top = 69
        Width = 48
        Height = 12
        Caption = #35746' '#21333' '#21495
      end
      object Label5: TLabel
        Left = 198
        Top = 69
        Width = 48
        Height = 12
        Caption = #21512' '#21516' '#21495
      end
      object Label6: TLabel
        Left = 594
        Top = 12
        Width = 36
        Height = 12
        Caption = #19994#21153#21592
      end
      object Label7: TLabel
        Left = 594
        Top = 40
        Width = 36
        Height = 12
        Caption = #22797#26680#21592
      end
      object Label8: TLabel
        Left = 198
        Top = 12
        Width = 48
        Height = 12
        Caption = #23458#25143#21333#20301
      end
      object Label9: TLabel
        Left = 198
        Top = 40
        Width = 48
        Height = 12
        Caption = #32852' '#31995' '#20154
      end
      object Label14: TLabel
        Left = 404
        Top = 12
        Width = 48
        Height = 12
        Caption = #32467#31639#26041#24335
      end
      object Label15: TLabel
        Left = 404
        Top = 40
        Width = 48
        Height = 12
        Caption = #20184#27454#26085#26399
      end
      object Lab_State: TLabel
        Left = 537
        Top = 67
        Width = 96
        Height = 12
        Caption = #21333#25454#29366#24577#65306#26410#23457#26680
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object edBillNo: TRzDBEdit
        Left = 60
        Top = 8
        Width = 122
        Height = 20
        DataSource = dsSelReturn
        DataField = 'BillNo'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 0
      end
      object DBEdit4: TRzDBEdit
        Left = 60
        Top = 65
        Width = 122
        Height = 20
        DataSource = dsSelReturn
        DataField = 'OrderNo'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 9
      end
      object DBEdit5: TRzDBEdit
        Left = 250
        Top = 65
        Width = 138
        Height = 20
        DataSource = dsSelReturn
        DataField = 'ContractNo'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 10
      end
      object DBEdit6: TRzDBEdit
        Left = 634
        Top = 8
        Width = 58
        Height = 20
        DataSource = dsSelReturn
        DataField = 'EmpNo'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 3
      end
      object DBEdit7: TRzDBEdit
        Tag = -1
        Left = 634
        Top = 36
        Width = 136
        Height = 20
        DataSource = dsSelReturn
        DataField = 'Audit'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 8
      end
      object DBEdit8: TRzDBEdit
        Left = 250
        Top = 8
        Width = 53
        Height = 20
        DataSource = dsSelReturn
        DataField = 'CustNo'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 12
      end
      object DBEdit2: TRzDBDateTimePicker
        Left = 60
        Top = 36
        Width = 122
        Height = 19
        Date = 37740.718087916670000000
        Time = 37740.718087916670000000
        DateFormat = dfLong
        TabOrder = 5
        FlatButtons = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        DataField = 'FDate'
        DataSource = dsSelReturn
      end
      object DBEdit15: TRzDBDateTimePicker
        Left = 456
        Top = 36
        Width = 122
        Height = 19
        Date = 37740.718087916670000000
        Time = 37740.718087916670000000
        DateFormat = dfLong
        TabOrder = 7
        FlatButtons = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        DataField = 'PayDate'
        DataSource = dsSelReturn
      end
      object DBCheckBox1: TRzDBCheckBox
        Left = 409
        Top = 66
        Width = 97
        Height = 17
        DataField = 'Fungible'
        DataSource = dsSelReturn
        ValueChecked = 'True'
        ValueUnchecked = 'False'
        Caption = #20195#38144#36864#22238
        HotTrack = True
        TabOnEnter = True
        TabOrder = 11
      end
      object edProvName: TRzDBButtonEdit
        Tag = -1
        Left = 304
        Top = 8
        Width = 84
        Height = 20
        DataSource = dsSelReturn
        DataField = 'CustName'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 1
        OnButtonClick = edProvNameButtonClick
        FlatButtons = True
      end
      object cbPayModes: TRzComboBox
        Left = 456
        Top = 8
        Width = 122
        Height = 20
        Style = csDropDownList
        Ctl3D = False
        DisabledColor = clWhite
        FlatButtons = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        ItemHeight = 12
        ParentCtl3D = False
        TabOnEnter = True
        TabOrder = 2
        OnChange = cbPayModesChange
      end
      object RzDBButtonEdit1: TRzDBButtonEdit
        Tag = -1
        Left = 693
        Top = 8
        Width = 77
        Height = 20
        DataSource = dsSelReturn
        DataField = 'EmpName'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 4
        OnButtonClick = RzDBButtonEdit1ButtonClick
        FlatButtons = True
      end
      object RzDBButtonEdit2: TRzDBButtonEdit
        Tag = -1
        Left = 250
        Top = 36
        Width = 138
        Height = 20
        DataSource = dsSelReturn
        DataField = 'LinkMan'
        ReadOnly = True
        FrameVisible = True
        TabOrder = 6
        OnButtonClick = RzDBButtonEdit2ButtonClick
        FlatButtons = True
      end
    end
    inherited plBody: TRzPanel
      Top = 92
      Width = 778
      Height = 358
      object PgC1: TRzPageControl
        Tag = -2
        Left = 0
        Top = 0
        Width = 778
        Height = 358
        ActivePage = TabSelExportDtl
        Align = alClient
        HotTrack = False
        ShowFocusRect = False
        TabIndex = 0
        TabOrder = 0
        TabStyle = tsCutCorner
        FixedDimension = 19
        object TabSelExportDtl: TRzTabSheet
          Tag = -2
          Color = 15658734
          Caption = #38144#21806#36864#22238#21830#21697
          object dbgSelReturnDtl: TxDBGridEh
            Tag = -1
            Left = 0
            Top = 0
            Width = 774
            Height = 335
            Align = alClient
            AllowedOperations = [alopUpdateEh, alopAppendEh]
            DataSource = dsSelReturnDtl
            Flat = True
            FooterColor = clWindow
            FooterFont.Charset = GB2312_CHARSET
            FooterFont.Color = clWindowText
            FooterFont.Height = -12
            FooterFont.Name = #23435#20307
            FooterFont.Style = []
            RowHeight = 16
            TabOrder = 0
            TitleFont.Charset = GB2312_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -12
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            TitleHeight = 15
            OnEditButtonClick = dbgSelReturnDtlEditButtonClick
            RowColorsUse = True
            RowColor1 = 16772846
            Columns = <
              item
                EditButtons = <>
                FieldName = 'ItemNo'
                Footers = <>
                ReadOnly = True
                Title.Alignment = taCenter
                Width = 41
              end
              item
                ButtonStyle = cbsEllipsis
                EditButtons = <>
                FieldName = 'GoodsID'
                Footers = <>
                Title.Alignment = taCenter
              end
              item
                EditButtons = <>
                FieldName = 'Name'
                Footers = <>
                ReadOnly = True
                Title.Alignment = taCenter
                Width = 86
              end
              item
                EditButtons = <>
                FieldName = 'Specs'
                Footers = <>
                ReadOnly = True
                Title.Alignment = taCenter
                Width = 65
              end
              item
                EditButtons = <>
                FieldName = 'Unit'
                Footers = <>
                ReadOnly = True
                Title.Alignment = taCenter
                Width = 47
              end
              item
                EditButtons = <>
                FieldName = 'Qty'
                Footers = <>
                Title.Alignment = taCenter
                Width = 57
              end
              item
                ButtonStyle = cbsEllipsis
                EditButtons = <>
                FieldName = 'OPrice'
                Footers = <>
                Title.Alignment = taCenter
                Width = 61
              end
              item
                EditButtons = <>
                FieldName = 'Rebate'
                Footers = <>
                Title.Alignment = taCenter
                Width = 44
              end
              item
                EditButtons = <>
                FieldName = 'Price'
                Footers = <>
                ReadOnly = True
                Title.Alignment = taCenter
                Width = 73
              end
              item
                EditButtons = <>
                FieldName = 'TaxRate'
                Footers = <>
                Title.Alignment = taCenter
                Width = 41
              end
              item
                EditButtons = <>
                FieldName = 'UnTaxPrice'
                Footers = <>
                ReadOnly = True
                Title.Alignment = taCenter
                Width = 61
              end
              item
                EditButtons = <>
                FieldName = 'GoodsSum'
                Footers = <>
                ReadOnly = True
                Title.Alignment = taCenter
                Width = 66
              end
              item
                EditButtons = <>
                FieldName = 'TaxSum'
                Footers = <>
                ReadOnly = True
                Title.Alignment = taCenter
                Width = 66
              end
              item
                EditButtons = <>
                FieldName = 'Amount'
                Footers = <>
                ReadOnly = True
                Title.Alignment = taCenter
                Width = 67
              end
              item
                EditButtons = <>
                FieldName = 'BatchNo'
                Footers = <>
                Title.Alignment = taCenter
                Width = 58
              end
              item
                EditButtons = <>
                FieldName = 'ProdDate'
                Footers = <>
                Title.Alignment = taCenter
                Width = 75
              end
              item
                EditButtons = <>
                FieldName = 'ValidDate'
                Footers = <>
                Title.Alignment = taCenter
                Width = 67
              end
              item
                EditButtons = <>
                FieldName = 'WholeDepotNo'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'WholeDepotName'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'MidPackQty'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'BigPackQty'
                Footers = <>
              end
              item
                ButtonStyle = cbsEllipsis
                EditButtons = <>
                FieldName = 'DepotNO'
                Footers = <>
                Title.Alignment = taCenter
              end
              item
                EditButtons = <>
                FieldName = 'DepotName'
                Footers = <>
                ReadOnly = True
                Title.Alignment = taCenter
              end
              item
                EditButtons = <>
                FieldName = 'PBillNo'
                Footers = <>
                Title.Alignment = taCenter
                Width = 72
              end
              item
                EditButtons = <>
                FieldName = 'PItemNo'
                Footers = <>
                Title.Alignment = taCenter
                Width = 55
              end
              item
                EditButtons = <>
                FieldName = 'PaidUp'
                Footers = <>
                Title.Alignment = taCenter
              end
              item
                ButtonStyle = cbsEllipsis
                EditButtons = <>
                FieldName = 'ProvNo'
                Footers = <>
              end>
          end
        end
        object TabSelExpense: TRzTabSheet
          Tag = -2
          Color = 15658734
          Caption = #38144#21806#36864#22238#36153#29992
          object dbgSelExpense: TxDBGridEh