purchpayfrm.dfm

来自「医药连锁经营管理系统源码」· DFM 代码 · 共 847 行 · 第 1/2 页

inherited FmPurchPay: TFmPurchPay
  Left = 58
  Top = 96
  Width = 807
  Height = 564
  Caption = #37319#36141#20184#27454
  PixelsPerInch = 96
  TextHeight = 12
  inherited TBDock1: TTBDock
    Width = 799
  end
  inherited TBDock2: TTBDock
    Top = 528
    Width = 799
  end
  inherited TBDock3: TTBDock
    Left = 790
    Height = 489
  end
  inherited TBDock4: TTBDock
    Height = 489
  end
  inherited plBoard: TRzPanel
    Width = 781
    Height = 489
    inherited plHeader: TRzPanel
      Width = 777
      Height = 120
      object Label1: TLabel
        Left = 12
        Top = 13
        Width = 48
        Height = 12
        Caption = #20184#27454#21333#21495
      end
      object Label2: TLabel
        Left = 12
        Top = 41
        Width = 48
        Height = 12
        Caption = #20184#27454#26085#26399
      end
      object Label3: TLabel
        Left = 12
        Top = 69
        Width = 48
        Height = 12
        Caption = #20184#27454#31867#22411
      end
      object Label6: TLabel
        Left = 444
        Top = 97
        Width = 48
        Height = 12
        Caption = #22797#26680#21592#65306
      end
      object Label7: TLabel
        Left = 222
        Top = 13
        Width = 48
        Height = 12
        Caption = #20379#24212#21378#21830
      end
      object Label8: TLabel
        Left = 222
        Top = 69
        Width = 48
        Height = 12
        Caption = #25903' '#31080' '#21495
      end
      object Lab_State: TLabel
        Left = 592
        Top = 96
        Width = 96
        Height = 12
        Caption = #21333#25454#29366#24577#65306#26410#22797#26680
        Font.Charset = GB2312_CHARSET
        Font.Color = clFuchsia
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label10: TLabel
        Left = 222
        Top = 97
        Width = 48
        Height = 12
        Caption = #21457#31080#21495#30721
      end
      object Label15: TLabel
        Left = 12
        Top = 98
        Width = 48
        Height = 12
        Caption = #20184#27454#37329#39069
      end
      object Label5: TLabel
        Left = 222
        Top = 41
        Width = 48
        Height = 12
        Caption = #20184#27454#37096#38376
      end
      object DBEdit1: TRzDBEdit
        Tag = -1
        Left = 67
        Top = 9
        Width = 125
        Height = 20
        DataSource = DsPurchPay
        DataField = 'BillNo'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 0
      end
      object DBEdit6: TRzDBEdit
        Tag = -1
        Left = 492
        Top = 93
        Width = 81
        Height = 20
        DataSource = DsPurchPay
        DataField = 'Audit'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 10
      end
      object edProvNo: TRzDBEdit
        Left = 278
        Top = 9
        Width = 53
        Height = 20
        DataSource = DsPurchPay
        DataField = 'ProvNo'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 1
      end
      object DBEdit8: TRzDBEdit
        Left = 278
        Top = 65
        Width = 148
        Height = 20
        DataSource = DsPurchPay
        DataField = 'ChequeNo'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 7
      end
      object DBEdit2: TRzDBDateTimePicker
        Left = 67
        Top = 37
        Width = 125
        Height = 19
        Date = 37712.889040856470000000
        Time = 37712.889040856470000000
        DateFormat = dfLong
        TabOrder = 3
        FlatButtons = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        DataField = 'FDate'
        DataSource = DsPurchPay
      end
      object edProvName: TRzDBButtonEdit
        Tag = -1
        Left = 332
        Top = 9
        Width = 94
        Height = 20
        DataSource = DsPurchPay
        DataField = 'ProvName'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 2
        OnButtonClick = edProvNameButtonClick
        FlatButtons = True
      end
      object RzDBEdit4: TRzDBEdit
        Left = 278
        Top = 93
        Width = 148
        Height = 20
        DataSource = DsPurchPay
        DataField = 'Invoice'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 9
      end
      object cbPayModes: TRzComboBox
        Left = 67
        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 RzDBEdit2: TRzDBEdit
        Tag = -1
        Left = 67
        Top = 93
        Width = 125
        Height = 20
        DataSource = DsPurchPay
        DataField = 'CurrPay'
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 8
      end
      object Panel1: TPanel
        Left = 443
        Top = 8
        Width = 325
        Height = 78
        BevelInner = bvLowered
        ParentColor = True
        TabOrder = 11
        object Label14: TLabel
          Left = 12
          Top = 16
          Width = 108
          Height = 12
          Caption = #32467#20313#27454'('#21547#39044#20184#27454')'#65306
        end
        object Label4: TLabel
          Left = 188
          Top = 16
          Width = 72
          Height = 12
          Caption = #21487#29992#24635#37329#39069#65306
        end
        object Label9: TLabel
          Left = 188
          Top = 44
          Width = 72
          Height = 12
          Caption = #20184#27454#21518#20313#39069#65306
        end
        object edOverplus: TRzDBLabel
          Left = 260
          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 edPrePay: TRzDBLabel
          Left = 109
          Top = 44
          Width = 77
          Height = 12
          Font.Charset = GB2312_CHARSET
          Font.Color = clFuchsia
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          Transparent = True
          DataField = 'PrePay'
          DataSource = DsPurchPay
        end
        object CkPrePay: TRzDBCheckBox
          Left = 12
          Top = 44
          Width = 93
          Height = 17
          DataField = 'UsePrePay'
          DataSource = DsPurchPay
          ValueChecked = 'True'
          ValueUnchecked = 'True'
          AlignmentVertical = avCenter
          Caption = #20351#29992#32467#20313#27454#65306
          HotTrack = True
          TabOrder = 0
          OnClick = CkPrePayClick
        end
        object edUsableTotal: TRzNumericEdit
          Left = 256
          Top = 12
          Width = 65
          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 edDepartNo: TRzDBEdit
        Left = 278
        Top = 37
        Width = 53
        Height = 20
        DataSource = DsPurchPay
        DataField = 'DepartNo'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 4
      end
      object RzDBButtonEdit1: TRzDBButtonEdit
        Tag = -1
        Left = 332
        Top = 37
        Width = 94
        Height = 20
        DataSource = DsPurchPay
        DataField = 'DepartName'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 5
        OnButtonClick = RzDBButtonEdit1ButtonClick
        FlatButtons = True
      end
      object btnAutoCalc: TRzButton
        Left = 695
        Top = 91
        Caption = #33258#21160#32467#28165
        Color = 15791348
        HighlightColor = 16026986
        HotTrack = True
        HotTrackColor = 3983359
        ParentColor = False
        TabOrder = 12
        OnClick = btnAutoCalcClick
      end
    end
    inherited plBody: TRzPanel
      Top = 122
      Width = 777
      Height = 339
      object dbgPurchPayDtl: TxDBGridEh
        Left = 0
        Top = 0
        Width = 777
        Height = 339
        Align = alClient
        AllowedOperations = [alopUpdateEh]
        DataSource = DsPurchPayDtl
        Flat = True
        FooterColor = clInfoBk
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        FooterRowCount = 1
        RowHeight = 16
        SumList.Active = True
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        TitleHeight = 15
        RowColorsUse = True
        RowColor1 = 16772846
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ItemNo'
            Footers = <>
            ReadOnly = True
            Width = 31
          end
          item
            EditButtons = <>
            FieldName = 'PInOutKind'