deletestock.dfm

完整的delphi书籍源代码,大家有空的时候自己慢慢看看

object DeletestockFrm: TDeletestockFrm
  Left = 201
  Top = 111
  Width = 479
  Height = 305
  Caption = #21024#38500#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 Deletestock_DBNavigator: TDBNavigator
    Left = 8
    Top = 8
    Width = 224
    Height = 25
    DataSource = Deletestock_DataSource
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
    Flat = True
    TabOrder = 0
  end
  object DeleteStockOk_BitBtn: TBitBtn
    Left = 280
    Top = 8
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Caption = #21024#38500
    TabOrder = 1
    OnClick = DeleteStockOk_BitBtnClick
    Kind = bkOK
  end
  object DeleteStockReturn_BitBtn: TBitBtn
    Left = 384
    Top = 8
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Caption = #36820#22238
    TabOrder = 2
    OnClick = DeleteStockReturn_BitBtnClick
    Kind = bkClose
  end
  object Stock_GroupBox: TGroupBox
    Left = 10
    Top = 37
    Width = 455
    Height = 236
    Caption = #36827#36135#20449#24687
    TabOrder = 3
    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 StockDate_Label: TLabel
      Left = 256
      Top = 59
      Width = 48
      Height = 13
      Caption = #36827#36135#26085#26399
    end
    object UnitPrice_Label: TLabel
      Left = 255
      Top = 27
      Width = 48
      Height = 13
      Caption = #21830#21697#21333#20215
    end
    object GroupBox3: TGroupBox
      Left = 256
      Top = 80
      Width = 185
      Height = 145
      Caption = #22791#27880#20449#24687
      TabOrder = 0
      object StockRemark_DBEdit: TDBEdit
        Left = 16
        Top = 24
        Width = 161
        Height = 105
        Cursor = crIBeam
        AutoSize = False
        DataField = 'StockRemark'
        DataSource = Deletestock_DataSource
        TabOrder = 0
      end
    end
    object FeederID_DBEdit: TDBEdit
      Left = 82
      Top = 24
      Width = 121
      Height = 21
      Cursor = crIBeam
      DataField = 'FeederID'
      DataSource = Deletestock_DataSource
      ReadOnly = True
      TabOrder = 1
    end
    object FeederName_DBEdit: TDBEdit
      Left = 82
      Top = 53
      Width = 121
      Height = 21
      Cursor = crIBeam
      DataField = 'FeederName'
      DataSource = Deletestock_DataSource
      ReadOnly = True
      TabOrder = 2
    end
    object ProductID_DBEdit: TDBEdit
      Left = 82
      Top = 82
      Width = 121
      Height = 21
      Cursor = crIBeam
      DataField = 'ProductID'
      DataSource = Deletestock_DataSource
      ReadOnly = True
      TabOrder = 3
    end
    object ProductName_DBEdit: TDBEdit
      Left = 82
      Top = 112
      Width = 121
      Height = 21
      Cursor = crIBeam
      DataField = 'ProductName'
      DataSource = Deletestock_DataSource
      ReadOnly = True
      TabOrder = 4
    end
    object Spec_DBEdit: TDBEdit
      Left = 82
      Top = 141
      Width = 121
      Height = 21
      Cursor = crIBeam
      DataField = 'Spec'
      DataSource = Deletestock_DataSource
      ReadOnly = True
      TabOrder = 5
    end
    object unit_DBEdit: TDBEdit
      Left = 82
      Top = 170
      Width = 121
      Height = 21
      Cursor = crIBeam
      DataField = 'unit'
      DataSource = Deletestock_DataSource
      ReadOnly = True
      TabOrder = 6
    end
    object Quantity_DBEdit: TDBEdit
      Left = 82
      Top = 200
      Width = 121
      Height = 21
      Cursor = crIBeam
      DataField = 'Quantity'
      DataSource = Deletestock_DataSource
      TabOrder = 7
    end
    object UnitPrice_DBEdit: TDBEdit
      Left = 316
      Top = 24
      Width = 121
      Height = 21
      Cursor = crIBeam
      DataField = 'UnitPrice'
      DataSource = Deletestock_DataSource
      TabOrder = 8
    end
    object StockDate_DBEdit: TDBEdit
      Left = 316
      Top = 56
      Width = 121
      Height = 21
      Cursor = crIBeam
      DataField = 'StockDate'
      DataSource = Deletestock_DataSource
      TabOrder = 9
    end
  end
  object Deletestock_DataSource: TDataSource
    DataSet = Deletestock_Table
    Left = 256
    Top = 56
  end
  object Deletestock_Table: TTable
    Active = True
    DatabaseName = 'venditiondatabase'
    TableName = 'Stock'
    Left = 176
    Top = 40
  end
end