ustoragecheck.dfm

天涯進銷存系統

  end
  object Shape6: TShape
    Left = 9
    Top = 446
    Width = 779
    Height = 1
    Brush.Color = clGray
    Pen.Color = 14581072
  end
  object InPubImg: TImage
    Left = 688
    Top = 422
    Width = 50
    Height = 22
    AutoSize = True
    Picture.Data = {
      07544269746D6170DE020000424DDE0200000000000076000000280000003200
      000016000000010004000000000068020000C40E0000C40E0000100000000000
      000000000000000080000080000000808000800000008000800080800000C0C0
      C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
      FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000F999
      999999999999999999999999999999999999999999999F000000F9FFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF9F000000F9FFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFF9F000000F9FFFFFFFFFFFFFFFFFFFFFFFFFF
      F9FF9FFFFFFF9FFFFFFF9F000000F9FFF9999999999FFFF99999999999FF9FFF
      FFFF9FFFFFFF9F000000F9FF9FFFFFFFFF9FFFF9FFFF9FFFF9FFF9FFFFFF9FFF
      FFFF9F000000F9FF9FFFFFFFFF9FFFF9FFFF9FFFF9FFF9F99999999999FF9F00
      0000F9FF9FFFFFFFFFFFFFF9FFFF9FFFF9FFF9FFFFFF9FFFFFFF9F000000F9FF
      9FFFFFFFFFFFFFF9FFFF9FFFF9FFF9FFFFFF9FFFFFFF9F000000F9FF9FFFFFFF
      FFFFFFFFFFFF9FFFFFFFF9FF999999999FFF9F000000F9FF9FFFFFFFF9FFFFF9
      999999999FFFF9FFF9FF9FFFFFFF9F000000F9FF9999999999FFFFF9FFFF9FFF
      9FFFF9FFFF9FFFFFFFFF9F000000F9FF9FFFFFFFF9FFFFF9FFFF9FFF9FFFF9F9
      999999999FFF9F000000F9FFFFFFFFFFF9FFFFF9FFFF9FFF9FFFF9FFFF9FFFFF
      FFFF9F000000F9FFFFFFFFFFF9FFFFF9FFFF9FFF9FFFF9999999999999FF9F00
      0000F9FF99999999999FFFFFFFFF9FFFFFFFFFFFFFF9FFFF9FFF9F000000F9FF
      FFFFFFFFF9FFFFFFFFFF9FFFFFFFFFFFFF9FFFFFFFFF9F000000F9FFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF9F000000F9FFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFF9F000000F999999999999999999999999999
      999999999999999999999F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFF000000}
    Transparent = True
    Visible = False
  end
  object BillPanel: TPanel
    Left = 699
    Top = 35
    Width = 91
    Height = 26
    BevelOuter = bvNone
    Color = clWhite
    Enabled = False
    TabOrder = 0
    object BillNextButton: TLBLabel
      Left = 0
      Top = 8
      Width = 57
      Height = 12
      Cursor = crHandPoint
      AutoSize = False
      Caption = #19978#19968#21333
      Font.Charset = GB2312_CHARSET
      Font.Color = clBackground
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = BillNextButtonClick
      MouseInColor = 14581072
    end
    object BillPriorButton: TLBLabel
      Left = 53
      Top = 8
      Width = 57
      Height = 12
      Cursor = crHandPoint
      AutoSize = False
      Caption = #19979#19968#21333' '
      Font.Charset = GB2312_CHARSET
      Font.Color = clBackground
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = BillPriorButtonClick
      MouseInColor = 14581072
    end
  end
  object ORDERMANDBEdit: TLBDBComboBox
    Left = 376
    Top = 69
    Width = 161
    Height = 20
    Color = clWhite
    ArrowColor = clBlack
    ButtonColor = 10395294
    ButStyle = cbsXp
    ItemHeight = 12
    TabOrder = 1
    Text = 'ORDERMANDBEdit'
    ItemIndex = -1
    OnDropDown = ORDERMANDBEditDropDown
    DataField = 'OPERATIONMAN'
    DataSource = BillHandDs
  end
  object BillDateDBEdit: TLBDBEdit
    Left = 674
    Top = 70
    Width = 99
    Height = 18
    ParentColor = True
    Color = clWhite
    ReadOnly = True
    TabOrder = 2
    Text = 'BillDateDBEdit'
    AutoSize = False
    BorderStyle = bsNone
    DataField = 'BILLDATE'
    DataSource = BillHandDs
  end
  object DBCtrlGrid: TDBCtrlGrid
    Left = 8
    Top = 112
    Width = 778
    Height = 272
    AllowDelete = False
    AllowInsert = False
    Color = 16251903
    DataSource = BillBodyDs
    PanelBorder = gbNone
    PanelHeight = 17
    PanelWidth = 762
    ParentColor = False
    TabOrder = 3
    RowCount = 16
    OnKeyDown = DBCtrlGridKeyDown
    object Panel5: TPanel
      Left = 0
      Top = 0
      Width = 762
      Height = 17
      Align = alClient
      BevelOuter = bvNone
      Color = clWhite
      TabOrder = 0
      object Shape9: TShape
        Left = 104
        Top = -1
        Width = 1
        Height = 17
        Brush.Color = 10395294
        Pen.Color = clBackground
      end
      object Shape10: TShape
        Left = 256
        Top = -2
        Width = 1
        Height = 18
        Brush.Color = 10395294
        Pen.Color = clBackground
      end
      object Shape12: TShape
        Left = 284
        Top = -2
        Width = 1
        Height = 18
        Brush.Color = 10395294
        Pen.Color = clBackground
      end
      object Shape14: TShape
        Left = 356
        Top = -2
        Width = 1
        Height = 18
        Brush.Color = 10395294
        Pen.Color = clBackground
      end
      object Shape15: TShape
        Left = 409
        Top = -2
        Width = 1
        Height = 18
        Brush.Color = 10395294
        Pen.Color = clBackground
      end
      object Shape16: TShape
        Left = 462
        Top = -2
        Width = 1
        Height = 18
        Brush.Color = 10395294
        Pen.Color = clBackground
      end
      object Shape17: TShape
        Left = 534
        Top = -2
        Width = 1
        Height = 18
        Brush.Color = 10395294
        Pen.Color = clBackground
      end
      object Shape18: TShape
        Left = 622
        Top = -1
        Width = 1
        Height = 17
        Brush.Color = 10395294
        Pen.Color = clBackground
      end
      object Shape19: TShape
        Left = 745
        Top = -2
        Width = 1
        Height = 18
        Brush.Color = 10395294
        Pen.Color = clBackground
      end
      object Panel6: TPanel
        Left = 0
        Top = 16
        Width = 762
        Height = 1
        Align = alBottom
        BevelOuter = bvNone
        Color = clBackground
        TabOrder = 0
      end
      object PartCodeDBEdit: TDBEdit
        Left = 1
        Top = 2
        Width = 102
        Height = 14
        BorderStyle = bsNone
        Color = 16251903
        DataField = 'PARTCODE'
        DataSource = BillBodyDs
        ReadOnly = True
        TabOrder = 1
        OnKeyDown = PartCodeDBEditKeyDown
      end
      object PartNameDBEdit: TDBEdit
        Left = 106
        Top = 2
        Width = 149
        Height = 14
        BorderStyle = bsNone
        Color = 16251903
        DataField = 'PARTNAME'
        DataSource = BillBodyDs
        ReadOnly = True
        TabOrder = 2
        OnKeyDown = PartNameDBEditKeyDown
      end
      object DepotPlaceDBEdit: TDBEdit
        Left = 286
        Top = 2
        Width = 70
        Height = 14
        BorderStyle = bsNone
        Color = 16251903
        DataField = 'DEPOTPLACE'
        DataSource = BillBodyDs
        ReadOnly = True
        TabOrder = 3
        OnKeyDown = DepotPlaceDBEditKeyDown
      end
      object UnitDBEdit: TDBEdit
        Left = 258
        Top = 2
        Width = 26
        Height = 14
        BorderStyle = bsNone
        Color = 16251903
        DataField = 'UNITS'
        DataSource = BillBodyDs
        ReadOnly = True
        TabOrder = 4
        OnKeyDown = UnitDBEditKeyDown
      end
      object QuantityDBEdit: TDBEdit
        Left = 358
        Top = 2
        Width = 51
        Height = 14
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'QUANTITY'
        DataSource = BillBodyDs
        TabOrder = 5
        OnEnter = QuantityDBEditEnter
        OnExit = QuantityDBEditExit
        OnKeyDown = QuantityDBEditKeyDown
      end
      object PriceDBEdit: TDBEdit
        Left = 463
        Top = 2
        Width = 71
        Height = 14
        BorderStyle = bsNone
        Color = 16251903
        DataField = 'PRICE'
        DataSource = BillBodyDs
        ReadOnly = True
        TabOrder = 6
        OnKeyDown = PriceDBEditKeyDown
      end