📄 ps_comproduct.dfm

📁 DELPHI5加SQL SERVER2000完成的进销存系统,具体哪些内容记不清了,六七年前写的,希望还能有点贡献
💻 DFM
字号:
object F_comproduct: TF_comproduct
  Left = 255
  Top = 172
  BorderStyle = bsSingle
  Caption = '产品表'
  ClientHeight = 267
  ClientWidth = 394
  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 = 394
    Height = 267
    Align = alClient
    TabOrder = 0
    object L_productid: TLabel
      Left = 16
      Top = 22
      Width = 65
      Height = 16
      Caption = '产品编号：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object L_productname: TLabel
      Left = 16
      Top = 52
      Width = 65
      Height = 16
      Caption = '品名规格：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object L_unit: TLabel
      Left = 16
      Top = 83
      Width = 65
      Height = 16
      Caption = '计量单位：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object L_suggprice: TLabel
      Left = 200
      Top = 81
      Width = 65
      Height = 16
      Caption = '建议售价：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object L_stdbuying: TLabel
      Left = 200
      Top = 110
      Width = 65
      Height = 16
      Caption = '标准进价：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object L_earlycost: TLabel
      Left = 200
      Top = 138
      Width = 65
      Height = 16
      Caption = '期初成本：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object L_presentcost: TLabel
      Left = 200
      Top = 167
      Width = 65
      Height = 16
      Caption = '现有成本：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object L_stdcost: TLabel
      Left = 200
      Top = 195
      Width = 65
      Height = 16
      Caption = '标准成本：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object L_taxrate: TLabel
      Left = 200
      Top = 224
      Width = 65
      Height = 16
      Caption = '营业税率：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object L_memo: TLabel
      Left = 16
      Top = 110
      Width = 39
      Height = 16
      Caption = '备注：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object E_productid: TDBEdit
      Left = 104
      Top = 22
      Width = 97
      Height = 21
      DataField = 'productid'
      DataSource = comdatabase.DS_comproduct
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = E_productidClick
    end
    object E_productname: TDBEdit
      Left = 104
      Top = 52
      Width = 273
      Height = 21
      DataField = 'productname'
      DataSource = comdatabase.DS_comproduct
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = E_productidClick
    end
    object E_unit: TDBEdit
      Left = 104
      Top = 83
      Width = 49
      Height = 21
      DataField = 'unit'
      DataSource = comdatabase.DS_comproduct
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = E_productidClick
    end
    object E_suggprice: TDBEdit
      Left = 280
      Top = 79
      Width = 97
      Height = 21
      DataField = 'suggprice'
      DataSource = comdatabase.DS_comproduct
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = E_productidClick
    end
    object E_stdbuying: TDBEdit
      Left = 280
      Top = 108
      Width = 97
      Height = 21
      DataField = 'stdbuying'
      DataSource = comdatabase.DS_comproduct
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = E_productidClick
    end
    object E_earlycost: TDBEdit
      Left = 280
      Top = 137
      Width = 97
      Height = 21
      DataField = 'earlycost'
      DataSource = comdatabase.DS_comproduct
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = E_productidClick
    end
    object E_presentcost: TDBEdit
      Left = 280
      Top = 166
      Width = 97
      Height = 21
      TabStop = False
      DataField = 'presentcost'
      DataSource = comdatabase.DS_comproduct
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 6
      OnClick = E_productidClick
    end
    object E_stdcost: TDBEdit
      Left = 280
      Top = 195
      Width = 97
      Height = 21
      DataField = 'stdcost'
      DataSource = comdatabase.DS_comproduct
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      OnClick = E_productidClick
    end
    object E_taxrate: TDBEdit
      Left = 280
      Top = 224
      Width = 97
      Height = 21
      DataField = 'taxrate'
      DataSource = comdatabase.DS_comproduct
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      OnClick = E_productidClick
    end
    object M_memo: TDBMemo
      Left = 16
      Top = 128
      Width = 169
      Height = 112
      DataField = 'memo'
      DataSource = comdatabase.DS_comproduct
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      MaxLength = 400
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 9
    end
  end
end
💿 文件大小 54 K
👤 上传用户 babydog00
📂 所属分类企业管理
🏷️ 相关标签

#DELPHI5 #SERVER #2000 #SQL
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -