upartoutputstock.dfm

天涯進銷存系統

  end
  object Panel1: TPanel
    Left = 10
    Top = 56
    Width = 530
    Height = 1
    BevelOuter = bvNone
    Color = 14282231
    TabOrder = 4
  end
  object Panel2: TPanel
    Left = 9
    Top = 89
    Width = 528
    Height = 21
    BevelOuter = bvNone
    Color = 14581072
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    object Label4: TLabel
      Left = 3
      Top = 3
      Width = 48
      Height = 12
      Caption = #21830#21697#32534#21495
      Transparent = True
    end
    object Label8: TLabel
      Left = 315
      Top = 3
      Width = 60
      Height = 12
      Caption = #26410#20986#24211#25968#37327
      Transparent = True
    end
    object Label9: TLabel
      Left = 379
      Top = 3
      Width = 48
      Height = 12
      Caption = #24211#23384#25968#37327
      Transparent = True
    end
    object Label20: TLabel
      Left = 116
      Top = 3
      Width = 48
      Height = 12
      Caption = #21517#31216#35268#26684
      Transparent = True
    end
    object Label21: TLabel
      Left = 437
      Top = 3
      Width = 72
      Height = 12
      Caption = #26412#27425#20986#24211#25968#37327
      Transparent = True
    end
    object Label7: TLabel
      Left = 283
      Top = 3
      Width = 24
      Height = 12
      Caption = #21333#20301
      Transparent = True
    end
  end
  object DBCtrlGrid: TDBCtrlGrid
    Left = 9
    Top = 109
    Width = 525
    Height = 221
    AllowDelete = False
    AllowInsert = False
    Color = clWhite
    DataSource = BillBodyDs
    PanelBorder = gbNone
    PanelHeight = 17
    PanelWidth = 509
    ParentColor = False
    ParentShowHint = False
    TabOrder = 6
    TabStop = False
    RowCount = 13
    ShowHint = True
    object Shape3: TShape
      Left = -24
      Top = -225
      Width = 533
      Height = 242
      Brush.Color = 15175283
      Pen.Color = 13462595
    end
    object Panel5: TPanel
      Left = 0
      Top = 0
      Width = 509
      Height = 17
      Align = alClient
      BevelOuter = bvNone
      Color = clWhite
      TabOrder = 0
      object Shape9: TShape
        Left = 115
        Top = -1
        Width = 1
        Height = 17
        Brush.Color = 10395294
        Pen.Color = clBackground
      end
      object Shape10: TShape
        Left = 282
        Top = -2
        Width = 1
        Height = 18
        Brush.Color = 10395294
        Pen.Color = clBackground
      end
      object Shape11: TShape
        Left = 315
        Top = -2
        Width = 1
        Height = 18
        Brush.Color = 10395294
        Pen.Color = clBackground
      end
      object Shape12: TShape
        Left = 378
        Top = -2
        Width = 1
        Height = 18
        Brush.Color = 10395294
        Pen.Color = clBackground
      end
      object Shape14: TShape
        Left = 436
        Top = -2
        Width = 1
        Height = 18
        Brush.Color = 10395294
        Pen.Color = clBackground
      end
      object Panel7: TPanel
        Left = 0
        Top = 16
        Width = 509
        Height = 1
        Align = alBottom
        BevelOuter = bvNone
        Color = clBackground
        TabOrder = 0
      end
      object PartCodeDBEdit: TDBEdit
        Left = 1
        Top = 2
        Width = 114
        Height = 14
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'PARTCODE'
        DataSource = BillBodyDs
        TabOrder = 1
        OnKeyDown = PartCodeDBEditKeyDown
      end
      object PartNameDBEdit: TDBEdit
        Left = 116
        Top = 2
        Width = 136
        Height = 14
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'PARTNAME'
        DataSource = BillBodyDs
        TabOrder = 2
        OnKeyDown = PartCodeDBEditKeyDown
      end
      object UnitsDBEdit: TDBEdit
        Left = 285
        Top = 2
        Width = 30
        Height = 14
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'UNITS'
        DataSource = BillBodyDs
        TabOrder = 3
        OnKeyDown = PartCodeDBEditKeyDown
      end
      object QuantityDBEdit: TDBEdit
        Left = 318
        Top = 2
        Width = 58
        Height = 14
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'QUANTITY'
        DataSource = BillBodyDs
        TabOrder = 4
        OnKeyDown = PartCodeDBEditKeyDown
      end
      object OutQtyDBEdit: TDBEdit
        Left = 438
        Top = 2
        Width = 72
        Height = 14
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'OUTQUANTITY'
        DataSource = BillBodyDs
        TabOrder = 5
        OnEnter = OutQtyDBEditEnter
        OnExit = OutQtyDBEditExit
        OnKeyDown = PartCodeDBEditKeyDown
      end
      object StockQtyDBEdit: TDBEdit
        Left = 381
        Top = 2
        Width = 53
        Height = 14
        BorderStyle = bsNone
        Color = clWhite
        DataField = 'STOCKQTY'
        DataSource = BillBodyDs
        TabOrder = 6
        OnKeyDown = PartCodeDBEditKeyDown
      end
    end
  end
  object LBDBScrollBar1: TLBDBScrollBar
    Left = 518
    Top = 109
    Width = 19
    Height = 222
    Color = 16774127
    LineColor = clBackground
    DownFontColor = clBlack
    Font.Charset = SYMBOL_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Marlett'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
    DataSource = dmData.sdsSelectClient
  end
  object SaveButton: TLBButton
    Left = 405
    Top = 336
    Width = 62
    Height = 19
    Cursor = crHandPoint
    Caption = #20445#23384'(&S)'
    TabOrder = 8
    OnClick = SaveButtonClick
  end
  object CancelButton: TLBButton
    Left = 476
    Top = 336
    Width = 62
    Height = 19
    Cursor = crHandPoint
    Caption = #21462#28040'(&C)'
    TabOrder = 9
    OnClick = CancelButtonClick
  end
  object BillHandData: TSimpleDataSet
    Aggregates = <>
    Connection = dmData.SQLConnection
    DataSet.CommandText = 'select * from OutPutStockHand'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    FetchOnDemand = False
    PacketRecords = 1
    Params = <>
    Left = 152
    Top = 288
    object BillHandDataBILLCODE: TStringField
      FieldName = 'BILLCODE'
      Required = True
    end
    object BillHandDataBILLDATE: TSQLTimeStampField
      FieldName = 'BILLDATE'
    end
    object BillHandDataORIGINALITYNO: TStringField
      FieldName = 'ORIGINALITYNO'
    end
    object BillHandDataORIGINALITYUNITCODE: TStringField
      FieldName = 'ORIGINALITYUNITCODE'
      Size = 50
    end
    object BillHandDataORIGINALITYUNITNAME: TStringField
      FieldName = 'ORIGINALITYUNITNAME'
      Size = 100
    end
    object BillHandDataSTOCKMAGMAN: TStringField
      FieldName = 'STOCKMAGMAN'
      Size = 50
    end
    object BillHandDataDEPOTCODE: TStringField
      FieldName = 'DEPOTCODE'
    end
  end
  object BillHandDs: TDataSource
    DataSet = BillHandData
    Left = 184
    Top = 288
  end
  object BillBodyData: TSimpleDataSet
    Aggregates = <>
    Connection = dmData.SQLConnection
    DataSet.CommandText = 'select * from OutPutStockBody'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    FetchOnDemand = False
    Params = <>
    Left = 214
    Top = 288
    object BillBodyDataBILLCODE: TStringField
      FieldName = 'BILLCODE'
      Required = True
      FixedChar = True
    end
    object BillBodyDataID: TIntegerField
      FieldName = 'ID'
      Required = True
    end
    object BillBodyDataPARTCODE: TStringField
      FieldName = 'PARTCODE'
      Size = 50
    end
    object BillBodyDataPARTNAME: TStringField
      FieldName = 'PARTNAME'
      Size = 100
    end
    object BillBodyDataBORNCODE: TStringField
      FieldName = 'BORNCODE'
      Size = 50
    end
    object BillBodyDataCARMODEL: TStringField
      FieldName = 'CARMODEL'
      Size = 50
    end
    object BillBodyDataPRODUCING: TStringField
      FieldName = 'PRODUCING'
      Size = 50
    end
    object BillBodyDataUNITS: TStringField
      FieldName = 'UNITS'
    end
    object BillBodyDataQUANTITY: TBCDField
      FieldName = 'QUANTITY'
      Precision = 9
      Size = 2
    end
    object BillBodyDataSTOCKQTY: TBCDField
      FieldName = 'STOCKQTY'
      Precision = 9
      Size = 2
    end
    object BillBodyDataOUTQUANTITY: TBCDField
      FieldName = 'OUTQUANTITY'
      Precision = 9
      Size = 2
    end
    object BillBodyDataTOTALSUM: TBCDField
      FieldName = 'TOTALSUM'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
  end
  object BillBodyDs: TDataSource
    DataSet = BillBodyData
    Left = 248
    Top = 288
  end
end