ps_comwareahouse.dfm

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

object F_comwarehouse: TF_comwarehouse
  Left = 227
  Top = 198
  BorderStyle = bsSingle
  Caption = '仓库表信息管理'
  ClientHeight = 213
  ClientWidth = 359
  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 = 359
    Height = 213
    Align = alClient
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 16
      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 Label2: TLabel
      Left = 8
      Top = 40
      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 Label3: TLabel
      Left = 8
      Top = 61
      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_id: TDBEdit
      Left = 80
      Top = 16
      Width = 97
      Height = 21
      DataField = 'id'
      DataSource = comdatabase.DS_comwarehouse
      TabOrder = 0
      OnClick = E_idClick
    end
    object E_name: TDBEdit
      Left = 80
      Top = 37
      Width = 273
      Height = 24
      DataField = 'name'
      DataSource = comdatabase.DS_comwarehouse
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = E_idClick
    end
    object M_memo: TDBMemo
      Left = 9
      Top = 80
      Width = 344
      Height = 121
      DataField = 'memo'
      DataSource = comdatabase.DS_comwarehouse
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 2
    end
  end
end