u_goodsadd.~dfm

河南师范大学餐饮进销存软件,只要控制库存的数据。

object frmGoodsAdd: TfrmGoodsAdd
  Left = 275
  Top = 202
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #21830#21697#20449#24687'--'#32534#36753
  ClientHeight = 240
  ClientWidth = 589
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 589
    Height = 240
    Align = alClient
    BevelOuter = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 444
      Top = 78
      Width = 48
      Height = 12
      Caption = #31867'  '#21035#65306
    end
    object edtBH: TLabeledEdit
      Left = 14
      Top = 32
      Width = 121
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 48
      EditLabel.Height = 12
      EditLabel.Caption = #32534'  '#21495#65306
      EditLabel.Transparent = True
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 0
      OnKeyDown = edtBHKeyDown
    end
    object edtName: TLabeledEdit
      Left = 156
      Top = 32
      Width = 121
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 48
      EditLabel.Height = 12
      EditLabel.Caption = #21517'  '#31216#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 1
      OnKeyDown = edtNameKeyDown
    end
    object edtSpec: TLabeledEdit
      Left = 299
      Top = 32
      Width = 121
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 48
      EditLabel.Height = 12
      EditLabel.Caption = #35268'  '#26684#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 2
      OnKeyDown = edtSpecKeyDown
    end
    object edtModel: TLabeledEdit
      Left = 442
      Top = 32
      Width = 121
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 48
      EditLabel.Height = 12
      EditLabel.Caption = #22411'  '#21495#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 3
      OnKeyDown = edtModelKeyDown
    end
    object edtUnit: TLabeledEdit
      Left = 14
      Top = 95
      Width = 121
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 48
      EditLabel.Height = 12
      EditLabel.Caption = #21333'  '#20301#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 4
      OnKeyDown = edtUnitKeyDown
    end
    object edtInPrice: TLabeledEdit
      Left = 156
      Top = 93
      Width = 121
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 48
      EditLabel.Height = 12
      EditLabel.Caption = #36827'  '#20215#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 5
      OnKeyDown = edtInPriceKeyDown
    end
    object edtOutPrice: TLabeledEdit
      Left = 299
      Top = 95
      Width = 121
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 48
      EditLabel.Height = 12
      EditLabel.Caption = #21806'  '#20215#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 6
      OnKeyDown = edtOutPriceKeyDown
    end
    object edtNote: TLabeledEdit
      Left = 156
      Top = 152
      Width = 413
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 48
      EditLabel.Height = 12
      EditLabel.Caption = #22791'  '#27880#65306
      TabOrder = 7
      OnKeyDown = edtNoteKeyDown
    end
    object edtArea: TLabeledEdit
      Left = 14
      Top = 152
      Width = 121
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 48
      EditLabel.Height = 12
      EditLabel.Caption = #20135'  '#22320#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 8
      OnKeyDown = edtAreaKeyDown
    end
    object cmbClass: TComboBox
      Left = 444
      Top = 95
      Width = 121
      Height = 20
      BevelKind = bkFlat
      Style = csDropDownList
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 12
      TabOrder = 9
      OnChange = cmbClassChange
    end
    object btnOk: TBitBtn
      Left = 108
      Top = 197
      Width = 75
      Height = 25
      Caption = #30830'   '#23450
      TabOrder = 10
      OnClick = btnOkClick
    end
    object btnCancle: TBitBtn
      Left = 256
      Top = 197
      Width = 75
      Height = 25
      Caption = #21462'   '#28040
      TabOrder = 11
      OnClick = btnCancleClick
    end
    object btnClose: TBitBtn
      Left = 404
      Top = 197
      Width = 75
      Height = 25
      Caption = #36864'   '#20986
      TabOrder = 12
      OnClick = btnCloseClick
    end
  end
  object qry: TADOQuery
    Connection = frmDataCtrl.ADOConn
    Parameters = <>
    SQL.Strings = (
      'select * from tb_GoodsClass')
    Left = 496
    Top = 88
  end
  object pip_GoodsInfo: TADOStoredProc
    Connection = frmDataCtrl.ADOConn
    ProcedureName = 'pip_GoodsInfo;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@GoodsBH'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@GoodsName'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@GoodsSpec'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@GoodsModel'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@GoodsUnit'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@GoodsClass'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@GoodsInPrice'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
        Value = Null
      end
      item
        Name = '@GoodsOutPrice'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
        Value = Null
      end
      item
        Name = '@GoodsArea'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@GoodsNote'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end>
    Left = 56
    Top = 200
  end
end