ps_comwareamount.dfm

DELPHI5加SQL SERVER2000完成的进销存系统,具体哪些内容记不清了,六七年前写的,希望还能有点贡献

object F_comwareamount: TF_comwareamount
  Left = 250
  Top = 176
  BorderStyle = bsSingle
  Caption = '产品库存表'
  ClientHeight = 133
  ClientWidth = 235
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 235
    Height = 133
    Align = alClient
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 18
      Width = 65
      Height = 16
      Caption = '产品编号：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 8
      Top = 47
      Width = 65
      Height = 16
      Caption = '仓库编号：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 8
      Top = 75
      Width = 65
      Height = 16
      Caption = '期初数量：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object L_presentamount: TLabel
      Left = 8
      Top = 105
      Width = 65
      Height = 16
      Caption = '现有数量：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object E_productid: TDBEdit
      Left = 80
      Top = 14
      Width = 145
      Height = 21
      DataField = 'productid'
      DataSource = comdatabase.DS_comwareamount
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = E_productidClick
    end
    object E_warehouseid: TDBEdit
      Left = 80
      Top = 43
      Width = 145
      Height = 21
      DataField = 'warehouseid'
      DataSource = comdatabase.DS_comwareamount
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = E_productidClick
    end
    object E_earlyamount: TDBEdit
      Left = 80
      Top = 71
      Width = 145
      Height = 21
      DataField = 'earlyamount'
      DataSource = comdatabase.DS_comwareamount
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = E_productidClick
    end
    object E_presentamount: TDBEdit
      Left = 80
      Top = 100
      Width = 145
      Height = 21
      TabStop = False
      DataField = 'presentamount'
      DataSource = comdatabase.DS_comwareamount
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 3
      OnClick = E_productidClick
    end
  end
end