addstock.dfm

可对供应商,顾客,商品,信息进行添加修改查询删除.可随时统计进货量和销售量,同时统计销售额和利润等.

object AddstockFrm: TAddstockFrm
  Left = 169
  Top = 103
  Width = 488
  Height = 281
  Caption = #28155#21152#36827#36135#20449#24687
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Stock_GroupBox: TGroupBox
    Left = 8
    Top = 4
    Width = 465
    Height = 241
    Caption = #36827#36135#20449#24687
    TabOrder = 0
    object FeederID_Label: TLabel
      Left = 14
      Top = 28
      Width = 60
      Height = 13
      Caption = #20379#36135#21830#32534#21495
    end
    object FeederName_Label: TLabel
      Left = 14
      Top = 57
      Width = 60
      Height = 13
      Caption = #20379#36135#21830#21517#31216
    end
    object ProductID_Label: TLabel
      Left = 15
      Top = 86
      Width = 48
      Height = 13
      Caption = #21830#21697#32534#21495
    end
    object ProductName_Label: TLabel
      Left = 15
      Top = 116
      Width = 48
      Height = 13
      Caption = #21830#21697#21517#31216
    end
    object Spec_Label: TLabel
      Left = 15
      Top = 145
      Width = 48
      Height = 13
      Caption = #21830#21697#35268#26684
    end
    object unit_Label: TLabel
      Left = 15
      Top = 174
      Width = 48
      Height = 13
      Caption = #35745#37327#21333#20301
    end
    object Quantity_Label: TLabel
      Left = 15
      Top = 204
      Width = 48
      Height = 13
      Caption = #21830#21697#25968#37327
    end
    object UnitPrice_Label: TLabel
      Left = 255
      Top = 27
      Width = 48
      Height = 13
      Caption = #21830#21697#21333#20215
    end
    object StockDate_Label: TLabel
      Left = 256
      Top = 59
      Width = 48
      Height = 13
      Caption = #36827#36135#26085#26399
    end
    object StockRemark_GroupBox: TGroupBox
      Left = 256
      Top = 80
      Width = 193
      Height = 113
      Caption = #22791#27880#20449#24687
      TabOrder = 0
      object StockRemark_Edit: TEdit
        Left = 8
        Top = 16
        Width = 169
        Height = 89
        Cursor = crIBeam
        AutoSize = False
        TabOrder = 0
      end
    end
    object FeederName_Edit: TEdit
      Left = 83
      Top = 53
      Width = 121
      Height = 21
      Cursor = crIBeam
      ReadOnly = True
      TabOrder = 1
    end
    object ProductName_Edit: TEdit
      Left = 83
      Top = 112
      Width = 121
      Height = 21
      Cursor = crIBeam
      ReadOnly = True
      TabOrder = 2
    end
    object Spec_Edit: TEdit
      Left = 83
      Top = 141
      Width = 121
      Height = 21
      Cursor = crIBeam
      ReadOnly = True
      TabOrder = 3
    end
    object unit_Edit: TEdit
      Left = 83
      Top = 170
      Width = 121
      Height = 21
      Cursor = crIBeam
      ReadOnly = True
      TabOrder = 4
    end
    object Quantity_Edit: TEdit
      Left = 83
      Top = 200
      Width = 121
      Height = 21
      Cursor = crIBeam
      TabOrder = 5
    end
    object UnitPrice_Edit: TEdit
      Left = 311
      Top = 22
      Width = 121
      Height = 21
      Cursor = crIBeam
      TabOrder = 6
    end
    object StockDate_Edit: TEdit
      Left = 311
      Top = 54
      Width = 121
      Height = 21
      Cursor = crIBeam
      TabOrder = 7
    end
    object AddStockOk_BitBtn: TBitBtn
      Left = 264
      Top = 200
      Width = 75
      Height = 25
      Cursor = crHandPoint
      Caption = #20445#23384
      Default = True
      TabOrder = 8
      OnClick = AddStockOk_BitBtnClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object AddStockReturn_BitBtn: TBitBtn
      Left = 368
      Top = 200
      Width = 75
      Height = 25
      Cursor = crHandPoint
      Caption = #36820#22238
      TabOrder = 9
      OnClick = AddStockReturn_BitBtnClick
      Kind = bkClose
    end
    object FeederID_ComboBox: TComboBox
      Left = 83
      Top = 24
      Width = 122
      Height = 21
      ItemHeight = 13
      TabOrder = 10
      OnChange = FeederID_ComboBoxChange
    end
    object ProductID_ComboBox: TComboBox
      Left = 83
      Top = 80
      Width = 123
      Height = 21
      ItemHeight = 13
      TabOrder = 11
      OnChange = ProductID_ComboBoxChange
    end
  end
  object Addstock_Table: TTable
    Active = True
    DatabaseName = 'venditiondatabase'
    TableName = 'Stock'
    Left = 240
    Top = 8
  end
  object Addstock_Query: TQuery
    Active = True
    DatabaseName = 'venditiondatabase'
    SQL.Strings = (
      'select * from stock')
    Left = 256
    Top = 56
  end
end