usalebill.dfm

天涯進銷存系統

      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF9F000000F9FFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFF9F000000F999999999999999999999999999
      999999999999999999999F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFF000000}
    Transparent = True
    Visible = False
  end
  object BillPanel: TPanel
    Left = 700
    Top = 35
    Width = 89
    Height = 26
    BevelOuter = bvNone
    Color = clWhite
    Enabled = False
    TabOrder = 5
    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 DBCtrlGrid: TDBCtrlGrid
    Left = 8
    Top = 136
    Width = 778
    Height = 255
    AllowDelete = False
    AllowInsert = False
    Color = clWhite
    DataSource = BillBodyDs
    PanelBorder = gbNone
    PanelHeight = 17
    PanelWidth = 762
    ParentColor = False
    TabOrder = 6
    RowCount = 15
    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 Shape11: TShape
        Left = 319
        Top = -2
        Width = 1
        Height = 18
        Brush.Color = 10395294
        Pen.Color = clBackground
      end
      object Shape12: TShape
        Left = 384
        Top = -2
        Width = 1
        Height = 18
        Brush.Color = 10395294
        Pen.Color = clBackground
      end
      object Shape14: TShape
        Left = 415
        Top = -2
        Width = 1
        Height = 18
        Brush.Color = 10395294
        Pen.Color = clBackground
      end
      object Shape15: TShape
        Left = 488
        Top = -2
        Width = 1
        Height = 18
        Brush.Color = 10395294
        Pen.Color = clBackground
      end
      object Shape16: TShape
        Left = 531
        Top = -2
        Width = 1
        Height = 18
        Brush.Color = 10395294
        Pen.Color = clBackground
      end
      object Shape17: TShape
        Left = 605
        Top = -2
        Width = 1
        Height = 18
        Brush.Color = 10395294
        Pen.Color = clBackground
      end
      object Shape18: TShape
        Left = 643
        Top = -1
        Width = 1
        Height = 17
        Brush.Color = 10395294
        Pen.Color = clBackground
      end
      object Shape19: TShape
        Left = 672
        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 = clWhite
        DataField = 'PARTCODE'
        DataSource = BillBodyDs
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        ReadOnly = True
        TabOrder = 1
        OnDblClick = PartCodeDBEditDblClick
        OnKeyDown = PartCodeDBEditKeyDown
      end
      object PartNameDBEdit: TDBEdit
        Left = 106
        Top = 2
        Width = 212
        Height = 14
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'PARTNAME'
        DataSource = BillBodyDs
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        ReadOnly = True
        TabOrder = 2
        OnDblClick = PartCodeDBEditDblClick
        OnKeyDown = PartNameDBEditKeyDown
      end
      object ProducingDBEdit: TDBEdit
        Left = 322
        Top = 2
        Width = 61
        Height = 14
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'PRODUCING'
        DataSource = BillBodyDs
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        TabOrder = 3
        OnKeyDown = ProducingDBEditKeyDown
      end
      object DepotPlaceDBEdit: TDBEdit
        Left = 418
        Top = 2
        Width = 70
        Height = 14
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'DEPOTPLACE'
        DataSource = BillBodyDs
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        TabOrder = 4
        OnKeyDown = DepotPlaceDBEditKeyDown
      end
      object UnitDBEdit: TDBEdit
        Left = 386
        Top = 2
        Width = 29
        Height = 14
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'UNITS'
        DataSource = BillBodyDs
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        TabOrder = 5
        OnKeyDown = UnitDBEditKeyDown
      end
      object QuantityDBEdit: TDBEdit
        Left = 490
        Top = 2
        Width = 40
        Height = 14
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'QUANTITY'
        DataSource = BillBodyDs
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        TabOrder = 6
        OnEnter = QuantityDBEditEnter
        OnExit = QuantityDBEditExit
        OnKeyDown = QuantityDBEditKeyDown
      end
      object PriceDBEdit: TDBEdit
        Left = 534
        Top = 2
        Width = 71
        Height = 14
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'PRICE'
        DataSource = BillBodyDs
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        TabOrder = 7
        OnEnter = PriceDBEditEnter
        OnExit = PriceDBEditExit
        OnKeyDown = PriceDBEditKeyDown
      end
      object AgioDBEdit: TDBEdit
        Left = 607
        Top = 2
        Width = 36
        Height = 14
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'AGIO'
        DataSource = BillBodyDs
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        TabOrder = 8
        OnExit = AgioDBEditExit
        OnKeyDown = AgioDBEditKeyDown
      end
      object CessDBEdit: TDBEdit
        Left = 645
        Top = 2
        Width = 27
        Height = 14
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'CESS'
        DataSource = BillBodyDs
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        TabOrder = 9
        OnExit = CessDBEditExit
        OnKeyDown = CessDBEditKeyDown
      end
      object SumDBEdit: TDBEdit
        Left = 674
        Top = 2
        Width = 86
        Height = 14
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'TOTALSUM'
        DataSource = BillBodyDs
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        TabOrder = 10
        OnKeyDown = CessDBEditKeyDown
      end
    end
  end
  object Panel4: TPanel
    Left = 8
    Top = 120
    Width = 780
    Height = 16
    BevelOuter = bvNone
    Color = 14581072
    TabOrder = 7
    object Label4: TLabel
      Left = 2
      Top = 2
      Width = 48
      Height = 12
      Caption = #21830#21697#32534#21495
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label6: TLabel
      Left = 321
      Top = 2
      Width = 24
      Height = 12
      Caption = #20135#22320
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label7: TLabel
      Left = 385
      Top = 2
      Width = 24
      Height = 12
      Caption = #21333#20301
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label8: TLabel
      Left = 488
      Top = 2
      Width = 24
      Height = 12
      Caption = #25968#37327
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -12