sellpayfrm.~dfm

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

inherited FmSellPay: TFmSellPay
  Left = 251
  Top = 161
  Width = 807
  Height = 602
  Caption = #38144#21806#25910#27454
  PixelsPerInch = 96
  TextHeight = 12
  inherited TBDock1: TTBDock
    Width = 799
    inherited Toolbar1: TTBToolbar
      DockPos = -8
    end
  end
  inherited TBDock2: TTBDock
    Top = 566
    Width = 799
  end
  inherited TBDock3: TTBDock
    Left = 790
    Height = 527
  end
  inherited TBDock4: TTBDock
    Height = 527
  end
  inherited plBoard: TRzPanel
    Width = 781
    Height = 527
    inherited plHeader: TRzPanel
      Width = 777
      Height = 119
      object Label1: TLabel
        Left = 14
        Top = 13
        Width = 48
        Height = 12
        Caption = #25910#27454#21333#21495
      end
      object Label2: TLabel
        Left = 14
        Top = 40
        Width = 48
        Height = 12
        Caption = #25910#27454#26085#26399
      end
      object Label3: TLabel
        Left = 14
        Top = 68
        Width = 48
        Height = 12
        Caption = #25910#27454#31867#22411
      end
      object Label6: TLabel
        Left = 454
        Top = 96
        Width = 36
        Height = 12
        Caption = #22797#26680#21592
      end
      object Label7: TLabel
        Left = 220
        Top = 13
        Width = 48
        Height = 12
        Caption = #23458#25143#21333#20301
      end
      object Label8: TLabel
        Left = 220
        Top = 68
        Width = 48
        Height = 12
        Caption = #25903' '#31080' '#21495
      end
      object Lab_State: TLabel
        Left = 589
        Top = 96
        Width = 96
        Height = 12
        Caption = #21333#25454#29366#24577#65306#26410#22797#26680
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label10: TLabel
        Left = 220
        Top = 96
        Width = 48
        Height = 12
        Caption = #21457#31080#21495#30721
      end
      object Label15: TLabel
        Left = 14
        Top = 96
        Width = 48
        Height = 12
        Caption = #25910#27454#37329#39069
      end
      object Label4: TLabel
        Left = 220
        Top = 40
        Width = 48
        Height = 12
        Caption = #25910#27454#37096#38376
      end
      object DBEdit1: TRzDBEdit
        Tag = -1
        Left = 69
        Top = 9
        Width = 125
        Height = 20
        DataSource = DsSellPay
        DataField = 'BillNo'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 0
      end
      object DBEdit6: TRzDBEdit
        Tag = -1
        Left = 495
        Top = 93
        Width = 82
        Height = 20
        DataSource = DsSellPay
        DataField = 'Audit'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 10
      end
      object edCustNo: TRzDBEdit
        Left = 277
        Top = 9
        Width = 54
        Height = 20
        DataSource = DsSellPay
        DataField = 'CustNo'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 1
      end
      object DBEdit8: TRzDBEdit
        Left = 277
        Top = 65
        Width = 153
        Height = 20
        DataSource = DsSellPay
        DataField = 'ChequeNo'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 7
      end
      object DBEdit2: TRzDBDateTimePicker
        Left = 69
        Top = 37
        Width = 125
        Height = 19
        Date = 37634.446819560190000000
        Time = 37634.446819560190000000
        DateFormat = dfLong
        TabOrder = 3
        FlatButtons = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        DataField = 'FDate'
        DataSource = DsSellPay
      end
      object edProvName: TRzDBButtonEdit
        Left = 332
        Top = 9
        Width = 98
        Height = 20
        DataSource = DsSellPay
        DataField = 'CustName'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 2
        OnButtonClick = edProvNameButtonClick
        FlatButtons = True
      end
      object RzDBEdit4: TRzDBEdit
        Left = 277
        Top = 93
        Width = 153
        Height = 20
        DataSource = DsSellPay
        DataField = 'Invoice'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 9
      end
      object cbPayModes: TRzComboBox
        Left = 69
        Top = 65
        Width = 125
        Height = 20
        AutoComplete = False
        Style = csDropDownList
        Ctl3D = False
        DisabledColor = clWhite
        FlatButtons = True
        FrameVisible = True
        ItemHeight = 12
        ParentCtl3D = False
        TabOnEnter = True
        TabOrder = 6
        OnEnter = cbPayModesEnter
        Items.Strings = (
          #23454#20184
          #39044#20184)
      end
      object Panel1: TPanel
        Left = 448
        Top = 8
        Width = 321
        Height = 78
        BevelInner = bvLowered
        ParentColor = True
        TabOrder = 11
        object Label14: TLabel
          Left = 11
          Top = 16
          Width = 108
          Height = 12
          Caption = #32467#20313#27454'('#21547#39044#25910#27454')'#65306
        end
        object Label9: TLabel
          Left = 180
          Top = 16
          Width = 72
          Height = 12
          Caption = #21487#29992#24635#37329#39069#65306
        end
        object Label11: TLabel
          Left = 180
          Top = 44
          Width = 72
          Height = 12
          Caption = #25910#27454#21518#20313#39069#65306
        end
        object edPrePay: TRzDBLabel
          Left = 101
          Top = 45
          Width = 76
          Height = 12
          Font.Charset = GB2312_CHARSET
          Font.Color = clFuchsia
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          DataField = 'PrePay'
          DataSource = DsSellPay
        end
        object edOverplus: TRzDBLabel
          Left = 251
          Top = 43
          Width = 60
          Height = 12
          AutoSize = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clFuchsia
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object lbBalance: TLabel
          Left = 118
          Top = 16
          Width = 24
          Height = 12
          Caption = '0.00'
          Font.Charset = GB2312_CHARSET
          Font.Color = clFuchsia
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object DBCheckBox1: TRzDBCheckBox
          Left = 9
          Top = 44
          Width = 91
          Height = 17
          DataField = 'UsePrePay'
          DataSource = DsSellPay
          ValueChecked = 'True'
          ValueUnchecked = 'False'
          AlignmentVertical = avCenter
          Caption = #20351#29992#32467#20313#27454#65306
          HotTrack = True
          TabOnEnter = True
          TabOrder = 0
          OnClick = DBCheckBox1Click
        end
        object edUsableTotal: TRzNumericEdit
          Left = 248
          Top = 13
          Width = 69
          Height = 20
          Text = '0.0000'
          Alignment = taLeftJustify
          Color = 15658734
          Font.Charset = GB2312_CHARSET
          Font.Color = clFuchsia
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          FrameHotStyle = fsNone
          FrameStyle = fsNone
          FrameVisible = True
          ParentColor = True
          ParentFont = False
          TabOrder = 1
          IntegersOnly = False
          DisplayFormat = '0.0000'
        end
      end
      object RzDBEdit2: TRzDBEdit
        Left = 69
        Top = 93
        Width = 125
        Height = 20
        DataSource = DsSellPay
        DataField = 'CurrPay'
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 8
      end
      object Button1: TRzButton
        Left = 694
        Top = 90
        Height = 23
        Caption = #33258#21160#32467#28165
        Color = 15791348
        HighlightColor = 16026986
        HotTrack = True
        HotTrackColor = 3983359
        ParentColor = False
        TabOrder = 12
        OnClick = Button1Click
      end
      object edDepartNo: TRzDBEdit
        Left = 277
        Top = 37
        Width = 54
        Height = 20
        DataSource = DsSellPay
        DataField = 'DepartNo'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 4
      end
      object RzDBButtonEdit1: TRzDBButtonEdit
        Left = 332
        Top = 37
        Width = 98
        Height = 20
        DataSource = DsSellPay
        DataField = 'DepartName'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 5
        OnButtonClick = RzDBButtonEdit1ButtonClick
        FlatButtons = True
      end
    end
    inherited plBody: TRzPanel
      Top = 121
      Width = 777