selretdemandfrm.dfm

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

inherited FmSelRetDemand: TFmSelRetDemand
  Left = 228
  Top = 132
  Width = 808
  Height = 612
  Caption = #38144#21806#36864#22238#30003#35831
  PixelsPerInch = 96
  TextHeight = 12
  inherited TBDock1: TTBDock
    Width = 800
    inherited Toolbar1: TTBToolbar
      Left = 4
      DockPos = 4
    end
  end
  inherited TBDock2: TTBDock
    Top = 576
    Width = 800
  end
  inherited TBDock3: TTBDock
    Left = 791
    Height = 537
  end
  inherited TBDock4: TTBDock
    Height = 537
  end
  inherited plBoard: TRzPanel
    Width = 782
    Height = 537
    inherited plHeader: TRzPanel
      Width = 778
      Height = 91
      object Label1: TLabel
        Left = 31
        Top = 11
        Width = 48
        Height = 12
        Caption = #21333#25454#32534#21495
      end
      object Label2: TLabel
        Left = 31
        Top = 39
        Width = 48
        Height = 12
        Caption = #26085'    '#26399
      end
      object Label4: TLabel
        Left = 31
        Top = 68
        Width = 48
        Height = 12
        Caption = #21512' '#21516' '#21495
      end
      object Label5: TLabel
        Left = 276
        Top = 68
        Width = 48
        Height = 12
        Caption = #19994' '#21153' '#21592
      end
      object Label6: TLabel
        Left = 588
        Top = 11
        Width = 48
        Height = 12
        Caption = #22797' '#26680' '#21592
      end
      object Label7: TLabel
        Left = 276
        Top = 11
        Width = 48
        Height = 12
        Caption = #23458#25143#21333#20301
      end
      object Label8: TLabel
        Left = 276
        Top = 39
        Width = 48
        Height = 12
        Caption = #32852' '#31995' '#20154
      end
      object Lab_State: TLabel
        Left = 588
        Top = 68
        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 DBEdit1: TRzDBEdit
        Left = 86
        Top = 6
        Width = 140
        Height = 20
        DataSource = DsSelRetDemand
        DataField = 'BillNo'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 0
      end
      object DBEdit4: TRzDBEdit
        Left = 86
        Top = 63
        Width = 140
        Height = 20
        DataSource = DsSelRetDemand
        DataField = 'ContractNo'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 7
      end
      object DBEdit5: TRzDBEdit
        Left = 334
        Top = 62
        Width = 70
        Height = 20
        DataSource = DsSelRetDemand
        DataField = 'EmpNo'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 8
      end
      object DBEdit6: TRzDBEdit
        Tag = -1
        Left = 640
        Top = 6
        Width = 94
        Height = 20
        DataSource = DsSelRetDemand
        DataField = 'Audit'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 3
      end
      object DBEdit2: TRzDBDateTimePicker
        Left = 86
        Top = 34
        Width = 140
        Height = 19
        Date = 37721.664578136580000000
        Time = 37721.664578136580000000
        DateFormat = dfLong
        TabOrder = 4
        FlatButtons = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        DataField = 'FDate'
        DataSource = DsSelRetDemand
      end
      object RzDBEdit1: TRzDBEdit
        Left = 334
        Top = 6
        Width = 70
        Height = 20
        DataSource = DsSelRetDemand
        DataField = 'CustNo'
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 1
      end
      object edProvName: TRzDBButtonEdit
        Tag = -1
        Left = 405
        Top = 6
        Width = 121
        Height = 20
        DataSource = DsSelRetDemand
        DataField = 'CustName'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 2
        OnButtonClick = edProvNameButtonClick
        FlatButtons = True
      end
      object RzDBButtonEdit1: TRzDBButtonEdit
        Tag = -1
        Left = 405
        Top = 62
        Width = 121
        Height = 20
        DataSource = DsSelRetDemand
        DataField = 'EmpName'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 9
        OnButtonClick = RzDBButtonEdit1ButtonClick
        FlatButtons = True
      end
      object DBCheckBox1: TRzDBCheckBox
        Left = 588
        Top = 39
        Width = 75
        Height = 17
        DataField = 'Fungible'
        DataSource = DsSelRetDemand
        ValueChecked = 'True'
        ValueUnchecked = 'False'
        Caption = #20195#38144#25910#36135
        HotTrack = True
        TabOnEnter = True
        TabOrder = 6
      end
      object RzDBButtonEdit2: TRzDBButtonEdit
        Tag = -1
        Left = 334
        Top = 34
        Width = 192
        Height = 20
        DataSource = DsSelRetDemand
        DataField = 'LinkMan'
        ReadOnly = True
        FrameVisible = True
        TabOrder = 5
        OnButtonClick = RzDBButtonEdit2ButtonClick
        FlatButtons = True
      end
    end
    inherited plBody: TRzPanel
      Top = 93
      Width = 778
      Height = 385
      object dbgSelRetDemandDtl: TxDBGridEh
        Left = 0
        Top = 0
        Width = 778
        Height = 385
        Align = alClient
        AllowedOperations = [alopUpdateEh, alopAppendEh]
        DataSource = DsSelRetDemandDtl
        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 = dbgSelRetDemandDtlEditButtonClick
        RowColorsUse = True
        RowColor1 = 16772846
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ItemNo'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'GoodsID'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'Name'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'Specs'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'Unit'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'Qty'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'OPrice'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'Rebate'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'Price'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'TaxRate'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'UnTaxPrice'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'GoodsSum'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'TaxSum'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'Amount'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'BatchNo'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'ProdDate'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'ValidDate'
            Footers = <>
            Title.Alignment = taCenter
          end>
      end
    end
    inherited plFooter: TRzPanel
      Top = 478
      Width = 778
      Height = 59
      object Label10: TLabel
        Left = 8
        Top = 37
        Width = 60
        Height = 12
        Caption = #22791'    '#27880#65306