selorderfrm.~dfm

群星医药系统源码

inherited FmSelOrder: TFmSelOrder
  Left = 1
  Top = 216
  Width = 812
  Height = 580
  Caption = #38144#21806#21512#21516
  PixelsPerInch = 96
  TextHeight = 12
  inherited TBDock1: TTBDock
    Width = 804
  end
  inherited TBDock2: TTBDock
    Top = 544
    Width = 804
  end
  inherited TBDock3: TTBDock
    Left = 795
    Height = 505
  end
  inherited TBDock4: TTBDock
    Height = 505
  end
  inherited plBoard: TRzPanel
    Width = 786
    Height = 505
    inherited plHeader: TRzPanel
      Width = 782
      Height = 119
      object Label1: TLabel
        Left = 4
        Top = 11
        Width = 60
        Height = 12
        Caption = #21333#25454#32534#21495#65306
        FocusControl = edBillNo
      end
      object Label2: TLabel
        Left = 4
        Top = 39
        Width = 60
        Height = 12
        Caption = #31614#32422#26085#26399#65306
        FocusControl = DBEdit2
      end
      object Label3: TLabel
        Left = 388
        Top = 11
        Width = 60
        Height = 12
        Caption = #23458#25143#21333#20301#65306
        FocusControl = DBEdit3
      end
      object Label4: TLabel
        Left = 4
        Top = 68
        Width = 60
        Height = 12
        Caption = #20132#36135#26085#26399#65306
        FocusControl = RzDBDateTimePicker1
      end
      object Label5: TLabel
        Left = 388
        Top = 97
        Width = 60
        Height = 12
        Caption = #20184#27454#26085#26399#65306
        FocusControl = RzDBDateTimePicker2
      end
      object Label6: TLabel
        Left = 592
        Top = 12
        Width = 48
        Height = 12
        Caption = #19994#21153#21592#65306
      end
      object Label7: TLabel
        Left = 592
        Top = 39
        Width = 48
        Height = 12
        Caption = #22797#26680#21592#65306
      end
      object Label10: TLabel
        Left = 388
        Top = 39
        Width = 60
        Height = 12
        Caption = #32852' '#31995' '#20154#65306
      end
      object Label17: TLabel
        Left = 388
        Top = 68
        Width = 60
        Height = 12
        Caption = #20184#27454#26041#24335#65306
      end
      object Lab_State: TLabel
        Left = 594
        Top = 96
        Width = 96
        Height = 12
        Caption = #21333#25454#29366#24577#65306#26410#23457#26680
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object RzLabel17: TRzLabel
        Left = 4
        Top = 97
        Width = 60
        Height = 12
        Caption = #31614#32422#22320#28857#65306
      end
      object RzLabel20: TRzLabel
        Left = 202
        Top = 11
        Width = 60
        Height = 12
        Caption = #29983#25928#26085#26399#65306
      end
      object RzLabel22: TRzLabel
        Left = 202
        Top = 39
        Width = 60
        Height = 12
        Caption = #22833#25928#26085#26399#65306
      end
      object RzLabel23: TRzLabel
        Left = 202
        Top = 68
        Width = 60
        Height = 12
        Caption = #21512#21516#31867#22411#65306
      end
      object RzLabel24: TRzLabel
        Left = 190
        Top = 97
        Width = 72
        Height = 12
        Caption = #20070#38754#21512#21516#21495#65306
      end
      object edBillNo: TRzDBEdit
        Tag = -1
        Left = 60
        Top = 6
        Width = 122
        Height = 20
        DataSource = DsSelOrder
        DataField = 'BillNo'
        ReadOnly = True
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 0
      end
      object DBEdit2: TRzDBDateTimePicker
        Left = 60
        Top = 34
        Width = 122
        Height = 19
        Date = 37677.724648842600000000
        Time = 37677.724648842600000000
        DateFormat = dfLong
        TabOrder = 6
        FlatButtons = True
        FrameVisible = True
        DataField = 'FDate'
        DataSource = DsSelOrder
      end
      object DBEdit3: TRzDBEdit
        Left = 444
        Top = 6
        Width = 56
        Height = 20
        DataSource = DsSelOrder
        DataField = 'CustNo'
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 2
      end
      object RzDBDateTimePicker1: TRzDBDateTimePicker
        Left = 60
        Top = 63
        Width = 122
        Height = 19
        Date = 37677.724648726850000000
        Time = 37677.724648726850000000
        DateFormat = dfLong
        TabOrder = 10
        FlatButtons = True
        FrameVisible = True
        DataField = 'DealDate'
        DataSource = DsSelOrder
      end
      object RzDBDateTimePicker2: TRzDBDateTimePicker
        Left = 444
        Top = 92
        Width = 141
        Height = 19
        Date = 37677.724648726850000000
        Time = 37677.724648726850000000
        ShowCheckbox = True
        DateFormat = dfLong
        TabOrder = 15
        FlatButtons = True
        FrameVisible = True
        DataField = 'PayDate'
        DataSource = DsSelOrder
      end
      object DBEdit5: TRzDBEdit
        Tag = -1
        Left = 638
        Top = 34
        Width = 141
        Height = 20
        DataSource = DsSelOrder
        DataField = 'Audit'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 9
      end
      object edProvName: TRzDBButtonEdit
        Tag = -1
        Left = 494
        Top = 6
        Width = 91
        Height = 20
        DataSource = DsSelOrder
        DataField = 'CustName'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 3
        OnButtonClick = edProvNameButtonClick
        FlatButtons = True
      end
      object RzDBEdit5: TRzDBEdit
        Left = 638
        Top = 7
        Width = 55
        Height = 20
        DataSource = DsSelOrder
        DataField = 'EmpNo'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 4
      end
      object RzDBButtonEdit1: TRzDBButtonEdit
        Tag = -1
        Left = 694
        Top = 7
        Width = 85
        Height = 20
        DataSource = DsSelOrder
        DataField = 'Name'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 5
        OnButtonClick = RzDBButtonEdit1ButtonClick
        FlatButtons = True
      end
      object cbPayModes: TRzComboBox
        Left = 444
        Top = 63
        Width = 141
        Height = 20
        Style = csDropDownList
        Ctl3D = False
        DisabledColor = clWhite
        FlatButtons = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        ItemHeight = 12
        ParentCtl3D = False
        TabOnEnter = True
        TabOrder = 12
      end
      object RzDBButtonEdit2: TRzDBButtonEdit
        Tag = -1
        Left = 444
        Top = 34
        Width = 141
        Height = 20
        DataSource = DsSelOrder
        DataField = 'LinkMan'
        ReadOnly = True
        FrameVisible = True
        TabOrder = 8
        OnButtonClick = RzDBButtonEdit2ButtonClick
        FlatButtons = True
      end
      object RzDBEdit10: TRzDBEdit
        Left = 60
        Top = 92
        Width = 122
        Height = 20
        DataSource = DsSelOrder
        DataField = 'SignAddr'
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 13
      end
      object RzDBDateTimePicker5: TRzDBDateTimePicker
        Left = 260
        Top = 6
        Width = 117
        Height = 19
        Date = 37677.813191481480000000
        Time = 37677.813191481480000000
        ShowCheckbox = True
        DateFormat = dfLong
        TabOrder = 1
        FlatButtons = True
        FrameVisible = True
        ShowToday = True
        DataField = 'BeginDate'
        DataSource = DsSelOrder
      end
      object RzDBDateTimePicker6: TRzDBDateTimePicker
        Left = 260
        Top = 34
        Width = 117
        Height = 19
        Date = 37677.813191481480000000
        Time = 37677.813191481480000000
        ShowCheckbox = True
        DateFormat = dfLong
        TabOrder = 7
        FlatButtons = True
        FrameVisible = True
        ShowToday = True
        DataField = 'EndDate'
        DataSource = DsSelOrder
      end
      object RzDBComboBox1: TRzDBComboBox
        Left = 260
        Top = 63
        Width = 117
        Height = 20
        DataField = 'ContractType'
        DataSource = DsSelOrder
        Ctl3D = False
        FlatButtons = True
        FrameHotTrack = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        ItemHeight = 12
        ParentCtl3D = False
        TabOrder = 11
        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 = 260
        Top = 92
        Width = 117
        Height = 20
        DataSource = DsSelOrder
        DataField = 'ContractNO'
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 14
      end
    end
    inherited plBody: TRzPanel
      Top = 121
      Width = 782
      Height = 303
      object dbgSelOrderDtl: TxDBGridEh
        Left = 0
        Top = 0
        Width = 782
        Height = 303
        Align = alClient
        AllowedOperations = [alopUpdateEh, alopAppendEh]
        DataSource = DsSelOrderDtl
        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 = dbgSelOrderDtlEditButtonClick
        RowColorsUse = True
        RowColor1 = 16772846
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ItemNo'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 28
          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
            ButtonStyle = cbsEllipsis
            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 = 'PaidUp'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'CustGoodsID'
            Footers = <>
            Title.Alignment = taCenter
          end>
      end
    end