editsell.dfm

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

object EditSellFrm: TEditSellFrm
  Left = 180
  Top = 114
  Width = 481
  Height = 306
  Caption = #20462#25913#38144#21806#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 EditSell_DBNavigator: TDBNavigator
    Left = 8
    Top = 8
    Width = 220
    Height = 25
    DataSource = EditSell_DataSource
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
    Flat = True
    TabOrder = 0
  end
  object Sell_GroupBox: TGroupBox
    Left = 2
    Top = 37
    Width = 463
    Height = 236
    Caption = #36827#36135#20449#24687
    TabOrder = 1
    object CustomerID_Label: TLabel
      Left = 20
      Top = 28
      Width = 48
      Height = 13
      Caption = #39038#23458#32534#21495
    end
    object CustomerName_Label: TLabel
      Left = 20
      Top = 57
      Width = 48
      Height = 13
      Caption = #39038#23458#21517#31216
    end
    object ProductID_Label: TLabel
      Left = 20
      Top = 86
      Width = 48
      Height = 13
      Caption = #21830#21697#32534#21495
    end
    object ProductName_Label: TLabel
      Left = 20
      Top = 116
      Width = 48
      Height = 13
      Caption = #21830#21697#21517#31216
    end
    object Spec_Label: TLabel
      Left = 20
      Top = 145
      Width = 48
      Height = 13
      Caption = #21830#21697#35268#26684
    end
    object unit_Label: TLabel
      Left = 20
      Top = 174
      Width = 48
      Height = 13
      Caption = #35745#37327#21333#20301
    end
    object Quantity_Label: TLabel
      Left = 20
      Top = 204
      Width = 48
      Height = 13
      Caption = #21830#21697#25968#37327
    end
    object SellDate_Label: TLabel
      Left = 256
      Top = 59
      Width = 48
      Height = 13
      Caption = #38144#21806#26085#26399
    end
    object UnitPrice_Label: TLabel
      Left = 255
      Top = 27
      Width = 48
      Height = 13
      Caption = #21830#21697#21333#20215
    end
    object Discount_Label: TLabel
      Left = 264
      Top = 88
      Width = 24
      Height = 13
      Caption = #25240#25187
    end
    object SellRemark_GroupBox: TGroupBox
      Left = 256
      Top = 112
      Width = 193
      Height = 113
      Caption = #22791#27880#20449#24687
      TabOrder = 0
      object SellRemark_DBEdit: TDBEdit
        Left = 16
        Top = 16
        Width = 161
        Height = 89
        Cursor = crIBeam
        AutoSize = False
        DataField = 'SellRemark'
        DataSource = EditSell_DataSource
        TabOrder = 0
      end
    end
    object CustomerID_DBEdit: TDBEdit
      Left = 82
      Top = 24
      Width = 121
      Height = 21
      Cursor = crIBeam
      DataField = 'CustomerID'
      DataSource = EditSell_DataSource
      ReadOnly = True
      TabOrder = 1
    end
    object CustomerName_DBEdit: TDBEdit
      Left = 82
      Top = 53
      Width = 121
      Height = 21
      Cursor = crIBeam
      DataField = 'CustomerName'
      DataSource = EditSell_DataSource
      ReadOnly = True
      TabOrder = 2
    end
    object ProductID_DBEdit: TDBEdit
      Left = 82
      Top = 82
      Width = 121
      Height = 21
      Cursor = crIBeam
      DataField = 'ProductID'
      DataSource = EditSell_DataSource
      ReadOnly = True
      TabOrder = 3
    end
    object ProductName_DBEdit: TDBEdit
      Left = 82
      Top = 112
      Width = 121
      Height = 21
      Cursor = crIBeam
      DataField = 'ProductName'
      DataSource = EditSell_DataSource
      ReadOnly = True
      TabOrder = 4
    end
    object Spec_DBEdit: TDBEdit
      Left = 82
      Top = 141
      Width = 121
      Height = 21
      Cursor = crIBeam
      DataField = 'Spec'
      DataSource = EditSell_DataSource
      ReadOnly = True
      TabOrder = 5
    end
    object unit_DBEdit: TDBEdit
      Left = 82
      Top = 170
      Width = 121
      Height = 21
      Cursor = crIBeam
      DataField = 'unit'
      DataSource = EditSell_DataSource
      ReadOnly = True
      TabOrder = 6
    end
    object Quantity_DBEdit: TDBEdit
      Left = 82
      Top = 200
      Width = 121
      Height = 21
      Cursor = crIBeam
      DataField = 'Quantity'
      DataSource = EditSell_DataSource
      TabOrder = 7
    end
    object UnitPrice_DBEdit: TDBEdit
      Left = 312
      Top = 24
      Width = 121
      Height = 21
      Cursor = crIBeam
      DataField = 'UnitPrice'
      DataSource = EditSell_DataSource
      TabOrder = 8
    end
    object SellDate_DBEdit: TDBEdit
      Left = 312
      Top = 56
      Width = 121
      Height = 21
      Cursor = crIBeam
      DataField = 'SellDate'
      DataSource = EditSell_DataSource
      TabOrder = 9
    end
    object Discount_DBEdit: TDBEdit
      Left = 312
      Top = 88
      Width = 121
      Height = 21
      Cursor = crIBeam
      DataField = 'Discount'
      DataSource = EditSell_DataSource
      TabOrder = 10
    end
  end
  object EditSellOk_BitBtn: TBitBtn
    Left = 272
    Top = 8
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Caption = #20462#25913
    TabOrder = 2
    OnClick = EditSellOk_BitBtnClick
    Kind = bkOK
  end
  object EditSellReturn_BitBtn: TBitBtn
    Left = 376
    Top = 8
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Caption = #36820#22238
    TabOrder = 3
    OnClick = EditSellReturn_BitBtnClick
    Kind = bkClose
  end
  object EditSell_DataSource: TDataSource
    DataSet = EditSell_Table
    Left = 288
    Top = 200
  end
  object EditSell_Table: TTable
    Active = True
    DatabaseName = 'venditiondatabase'
    TableName = 'Sell'
    Left = 352
    Top = 200
  end
end