posfrm.dfm

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

object FmPOS: TFmPOS
  Left = 209
  Top = 127
  Width = 800
  Height = 600
  Caption = #38646#21806#31649#29702
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 667
    Height = 573
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 8
    ParentColor = True
    TabOrder = 0
    object Panel2: TRzPanel
      Left = 8
      Top = 8
      Width = 651
      Height = 41
      Align = alTop
      BorderOuter = fsFlat
      ParentColor = True
      TabOrder = 0
      object Label2: TLabel
        Left = 8
        Top = 12
        Width = 70
        Height = 14
        Caption = #26412#24215#32534#21495#65306
      end
      object Label3: TLabel
        Left = 168
        Top = 12
        Width = 70
        Height = 14
        Caption = #25910#27454#26426#21495#65306
      end
      object Label4: TLabel
        Left = 492
        Top = 12
        Width = 42
        Height = 14
        Caption = #21333#21495#65306
      end
      object Label9: TLabel
        Left = 328
        Top = 12
        Width = 70
        Height = 14
        Caption = #24037#20316#29677#27425#65306
      end
      object edBranchID: TRzEdit
        Left = 72
        Top = 8
        Width = 65
        Height = 22
        Color = clBtnFace
        Enabled = False
        FocusColor = 14540253
        FrameVisible = True
        ReadOnly = True
        TabOrder = 0
      end
      object edMachNo: TRzEdit
        Left = 232
        Top = 8
        Width = 65
        Height = 22
        Color = clBtnFace
        Enabled = False
        FocusColor = 14540253
        FrameVisible = True
        ReadOnly = True
        TabOrder = 1
      end
      object RzEdit3: TRzDBEdit
        Left = 532
        Top = 8
        Width = 93
        Height = 22
        DataSource = DS_Retail
        DataField = 'BillNo'
        ReadOnly = True
        Color = clBtnFace
        Enabled = False
        FocusColor = 14540253
        FrameVisible = True
        TabOrder = 2
      end
      object edTeamNo: TRzEdit
        Left = 392
        Top = 8
        Width = 65
        Height = 22
        Color = clBtnFace
        Ctl3D = True
        Enabled = False
        FocusColor = 14540253
        FrameVisible = True
        ParentCtl3D = False
        TabOrder = 3
      end
    end
    object plCtrl: TRzPanel
      Left = 8
      Top = 393
      Width = 651
      Height = 172
      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 = 16
        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 = 16
        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 = 16
        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 = 14
        Width = 149
        Height = 25
        BorderOuter = fsNone
        Caption = '12345.60'
      end
      object lbChange: TRzLEDDisplay
        Left = 520
        Top = 12
        Width = 109
        Height = 29
        BorderOuter = fsNone
        Caption = ' 54.40'
      end
      object lbPayMoney: TRzLEDDisplay
        Left = 292
        Top = 14
        Width = 145
        Height = 25
        BorderOuter = fsNone
        Caption = '12400.00'
      end
      object plInputBk: TRzPanel
        Left = 1
        Top = 134
        Width = 649
        Height = 37
        Align = alBottom
        BorderOuter = fsNone
        BorderSides = [sdTop]
        FlatColor = clWhite
        ParentColor = True
        TabOrder = 0
        OnResize = plInputBkResize
        object lbOptHint: TRzMarqueeStatus
          Left = 4
          Top = 7
          Width = 325
          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 = 520
          Top = 0
          Width = 129
          Height = 37
          Align = alRight
          BevelOuter = bvNone
          ParentColor = True
          TabOrder = 0
          object edInput: TRzEdit
            Left = 4
            Top = 4
            Width = 121
            Height = 27
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlue
            Font.Height = -16
            Font.Name = 'Arial'
            Font.Style = [fsBold]
            framehottrack = false
            FrameHotStyle = fsNone
            FrameStyle = fsNone
            FrameVisible = True
            ParentFont = False
            TabOrder = 0
            OnKeyDown = edInputKeyDown
            OnKeyPress = edInputKeyPress
          end
        end
      end
      object plGoodsInfo: TRzPanel
        Left = 1
        Top = 55
        Width = 649
        Height = 79
        Align = alBottom
        BorderOuter = fsFlat
        BorderSides = [sdTop, sdBottom]
        ParentColor = True
        TabOrder = 1
        object Label11: TLabel
          Left = 12
          Top = 8
          Width = 80
          Height = 16
          Caption = #21697#21517#35268#26684#65306
          Font.Charset = GB2312_CHARSET
          Font.Color = clWhite
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object lbGoodsName: TLabel
          Left = 92
          Top = 8
          Width = 160
          Height = 16
          Caption = #27915#21442#24029#36125#26503#26487#33167'('#36827#21475')'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWhite
          Font.Height = -16
          Font.Name = #26999#20307'_GB2312'
          Font.Style = []
          ParentFont = False
        end
        object lbGoodsSpecs: TLabel
          Left = 260
          Top = 8
          Width = 80
          Height = 16
          Caption = '150ml'#215'1'#29942
          Font.Charset = GB2312_CHARSET
          Font.Color = clWhite
          Font.Height = -16
          Font.Name = #26999#20307'_GB2312'
          Font.Style = []
          ParentFont = False
        end
        object Label15: TLabel
          Left = 12
          Top = 32
          Width = 80
          Height = 16
          Caption = #20027' '#21333' '#20301#65306
          Font.Charset = GB2312_CHARSET
          Font.Color = clWhite
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object lbUnit: TLabel
          Left = 96
          Top = 32
          Width = 16
          Height = 16
          Caption = #29942
          Font.Charset = GB2312_CHARSET
          Font.Color = clWhite
          Font.Height = -16
          Font.Name = #26999#20307'_GB2312'
          Font.Style = []
          ParentFont = False
        end
        object lbSplit: TLabel
          Left = 372
          Top = 32
          Width = 72
          Height = 16
          Caption = #20801#35768#25286#38646':'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWhite
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label17: TLabel
          Left = 148
          Top = 32
          Width = 64
          Height = 16
          Caption = #27425#21333#20301#65306
          Font.Charset = GB2312_CHARSET
          Font.Color = clWhite
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object lbUnit2: TLabel
          Left = 208
          Top = 32
          Width = 16
          Height = 16
          Caption = #25903
          Font.Charset = GB2312_CHARSET
          Font.Color = clWhite
          Font.Height = -16
          Font.Name = #26999#20307'_GB2312'
          Font.Style = []
          ParentFont = False
        end
        object Label19: TLabel
          Left = 264
          Top = 32
          Width = 64
          Height = 16
          Caption = #36716#25442#29575#65306
          Font.Charset = GB2312_CHARSET
          Font.Color = clWhite
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object lbConv: TLabel
          Left = 328
          Top = 32
          Width = 16
          Height = 16
          Caption = '10'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWhite
          Font.Height = -16
          Font.Name = #26999#20307'_GB2312'
          Font.Style = []
          ParentFont = False
        end
        object Label14: TLabel
          Left = 12
          Top = 56
          Width = 80
          Height = 16
          Caption = #29983#20135#21378#21830#65306