retailfrm.dfm

来自「群星医药系统源码」· DFM 代码 · 共 1,574 行 · 第 1/4 页

object FmRetail: TFmRetail
  Left = 36
  Top = 98
  Width = 800
  Height = 572
  Caption = #38646#21806#31649#29702
  Color = 14540253
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 663
    Height = 545
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 8
    ParentColor = True
    TabOrder = 0
    object plTitle: TRzPanel
      Left = 8
      Top = 8
      Width = 647
      Height = 61
      Align = alTop
      BorderOuter = fsFlat
      ParentColor = True
      TabOrder = 0
      OnResize = plTitleResize
      object Label2: TLabel
        Left = 8
        Top = 12
        Width = 60
        Height = 12
        Caption = #26412#24215#32534#21495#65306
      end
      object Label3: TLabel
        Left = 150
        Top = 12
        Width = 72
        Height = 12
        Caption = #25910#27454#26426#32534#21495#65306
      end
      object Label4: TLabel
        Left = 462
        Top = 12
        Width = 42
        Height = 12
        Caption = #21333' '#21495#65306
      end
      object Label9: TLabel
        Left = 305
        Top = 12
        Width = 60
        Height = 12
        Caption = #24037#20316#29677#27425#65306
      end
      object BtnViewRPanel: TSpeedButton
        Left = 624
        Top = 1
        Width = 17
        Height = 17
        Hint = #26174#31034#21491#38754#26495
        Caption = '&>>'
        Flat = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        Visible = False
        OnClick = BtnViewRPanelClick
      end
      object BtnHideRPanel: TSpeedButton
        Left = 624
        Top = 1
        Width = 17
        Height = 17
        Hint = #38544#34255#21491#38754#26495
        Caption = '&<<'
        Flat = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        OnClick = BtnHideRPanelClick
      end
      object Label6: TLabel
        Left = 8
        Top = 38
        Width = 60
        Height = 12
        Caption = 'VIP'#23458#25143'(&V)'
        FocusControl = edVipCustNo
      end
      object Label7: TLabel
        Left = 150
        Top = 38
        Width = 66
        Height = 12
        Caption = #19994#21153#21592#32534#21495'&E'
        FocusControl = edEmpNo
      end
      object Label1: TLabel
        Left = 462
        Top = 38
        Width = 36
        Height = 12
        Caption = #25910#38134#21592
      end
      object Label5: TLabel
        Left = 305
        Top = 38
        Width = 60
        Height = 12
        Caption = #20986#36135#20179#24211#65306
      end
      object edBranchID: TRzDBEdit
        Left = 72
        Top = 8
        Width = 73
        Height = 20
        TabStop = False
        DataSource = dsRetail
        DataField = 'BranchID'
        ReadOnly = True
        Alignment = taRightJustify
        DisabledColor = 15000804
        Enabled = False
        FrameVisible = True
        TabOrder = 0
      end
      object edMachNo: TRzDBEdit
        Left = 218
        Top = 8
        Width = 81
        Height = 20
        TabStop = False
        DataSource = dsRetail
        DataField = 'MachNo'
        ReadOnly = True
        Alignment = taRightJustify
        DisabledColor = 15000804
        Enabled = False
        FrameVisible = True
        TabOrder = 1
      end
      object edBillNo: TRzDBEdit
        Left = 501
        Top = 8
        Width = 121
        Height = 20
        TabStop = False
        DataSource = dsRetail
        DataField = 'BillNo'
        ReadOnly = True
        DisabledColor = 15000804
        Enabled = False
        FrameVisible = True
        TabOrder = 2
      end
      object edTeamNo: TRzDBEdit
        Left = 362
        Top = 8
        Width = 93
        Height = 20
        TabStop = False
        DataSource = dsRetail
        DataField = 'TeamNo'
        ReadOnly = True
        Alignment = taRightJustify
        Ctl3D = True
        DisabledColor = 15000804
        Enabled = False
        FrameVisible = True
        ParentCtl3D = False
        TabOrder = 3
      end
      object edVipCustNo: TRzDBEdit
        Left = 72
        Top = 34
        Width = 73
        Height = 20
        TabStop = False
        DataSource = dsRetail
        DataField = 'VIPNo'
        ReadOnly = True
        Color = 15000804
        DisabledColor = 15000804
        FrameVisible = True
        TabOrder = 4
      end
      object edEmpNo: TRzDBButtonEdit
        Left = 218
        Top = 34
        Width = 81
        Height = 20
        TabStop = False
        DataSource = dsRetail
        DataField = 'EmpNo'
        ReadOnly = True
        Color = 15000804
        DisabledColor = 15000804
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 5
        OnButtonClick = edEmpNoButtonClick
        FlatButtons = True
      end
      object edPayeeNo: TRzDBEdit
        Left = 501
        Top = 34
        Width = 121
        Height = 20
        TabStop = False
        DataSource = dsRetail
        DataField = 'PayeeNo'
        ReadOnly = True
        Ctl3D = True
        DisabledColor = 15000804
        Enabled = False
        FrameVisible = True
        ParentCtl3D = False
        TabOrder = 6
      end
      object edDepotID: TRzDBEdit
        Left = 362
        Top = 34
        Width = 93
        Height = 20
        TabStop = False
        DataSource = dsRetail
        DataField = 'DepotID'
        ReadOnly = True
        Alignment = taRightJustify
        Ctl3D = True
        DisabledColor = 15000804
        Enabled = False
        FrameVisible = True
        ParentCtl3D = False
        TabOrder = 7
      end
    end
    object plCtrl: TRzPanel
      Left = 8
      Top = 381
      Width = 647
      Height = 156
      Align = alBottom
      BorderOuter = fsFlat
      Color = clBlack
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      object capTotal: TAALabel
        Left = 12
        Top = 12
        Width = 58
        Height = 19
        ParentEffect.ParentFont = False
        Caption = #21512#35745#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -19
        Font.Name = #40657#20307
        Font.Style = [fsBold]
      end
      object capPayMoney: TAALabel
        Left = 240
        Top = 12
        Width = 58
        Height = 19
        ParentEffect.ParentFont = False
        Caption = #20184#27454#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -19
        Font.Name = #40657#20307
        Font.Style = [fsBold]
      end
      object capChange: TAALabel
        Left = 468
        Top = 12
        Width = 58
        Height = 19
        ParentEffect.ParentFont = False
        Caption = #25214#38646#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -19
        Font.Name = #40657#20307
        Font.Style = [fsBold]
      end
      object lbTotal: TRzLEDDisplay
        Left = 64
        Top = 10
        Width = 149
        Height = 25
        BorderOuter = fsNone
        Caption = '12345.60'
      end
      object lbChange: TRzLEDDisplay
        Left = 520
        Top = 8
        Width = 109
        Height = 29
        BorderOuter = fsNone
        Caption = ' 54.40'
      end
      object lbPayMoney: TRzLEDDisplay
        Left = 292
        Top = 10
        Width = 145
        Height = 25
        BorderOuter = fsNone
        Caption = '12400.00'
      end
      object plInputBk: TRzPanel
        Left = 1
        Top = 122
        Width = 645
        Height = 33
        Align = alBottom
        BorderOuter = fsNone
        BorderSides = [sdTop]
        FlatColor = clWhite
        ParentColor = True
        TabOrder = 0
        OnResize = plInputBkResize
        object lbOptHint: TRzMarqueeStatus
          Left = 4
          Top = 6
          Width = 505
          Height = 23
          FillColor = clWindowText
          FlatColor = clWhite
          Font.Charset = GB2312_CHARSET
          Font.Color = clWhite
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          Alignment = taCenter
          BlinkColor = clBlue
          Caption = #27426#36814#20351#29992#26412#31995#32479#65292#22312#36825#37324#26174#31034#30340#26159#19968#20123#21363#26102#25552#31034#20449#24687#65281
          ScrollType = stNone
          Scrolling = False
          ScrollDelay = 75
        end
        object plInput: TPanel
          Left = 516
          Top = 0
          Width = 129
          Height = 33
          Align = alRight
          BevelOuter = bvNone
          ParentColor = True
          TabOrder = 0
          object edInput: TRzEdit
            Left = 4
            Top = 4
            Width = 121
            Height = 25
            AutoSize = False
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlue
            Font.Height = -19
            Font.Name = #23435#20307