u_goodsedit.dfm

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

object frmGoodsEdit: TfrmGoodsEdit
  Left = 268
  Top = 254
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #21830#21697#20449#24687'--'#32534#36753
  ClientHeight = 236
  ClientWidth = 589
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 589
    Height = 236
    Align = alClient
    BevelOuter = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 444
      Top = 75
      Width = 42
      Height = 13
      Caption = #31867'  '#21035#65306
    end
    object edtBH: TLabeledEdit
      Left = 17
      Top = 32
      Width = 121
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 42
      EditLabel.Height = 13
      EditLabel.Caption = #32534'  '#21495#65306
      EditLabel.Transparent = True
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 0
      OnKeyDown = edtBHKeyDown
    end
    object edtName: TLabeledEdit
      Left = 163
      Top = 32
      Width = 121
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 42
      EditLabel.Height = 13
      EditLabel.Caption = #21517'  '#31216#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 1
      OnKeyDown = edtNameKeyDown
    end
    object edtSpec: TLabeledEdit
      Left = 303
      Top = 32
      Width = 121
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 42
      EditLabel.Height = 13
      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 = 42
      EditLabel.Height = 13
      EditLabel.Caption = #22411'  '#21495#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 3
      OnKeyDown = edtModelKeyDown
    end
    object edtUnit: TLabeledEdit
      Left = 17
      Top = 95
      Width = 121
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 42
      EditLabel.Height = 13
      EditLabel.Caption = #21333'  '#20301#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 4
      OnKeyDown = edtUnitKeyDown
    end
    object edtInPrice: TLabeledEdit
      Left = 163
      Top = 93
      Width = 121
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 42
      EditLabel.Height = 13
      EditLabel.Caption = #36827'  '#20215#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 5
      OnKeyDown = edtInPriceKeyDown
    end
    object edtOutPrice: TLabeledEdit
      Left = 304
      Top = 93
      Width = 121
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 42
      EditLabel.Height = 13
      EditLabel.Caption = #21806'  '#20215#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 6
      OnKeyDown = edtOutPriceKeyDown
    end
    object edtNote: TLabeledEdit
      Left = 161
      Top = 152
      Width = 400
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 42
      EditLabel.Height = 13
      EditLabel.Caption = #22791'  '#27880#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 7
      OnKeyDown = edtNoteKeyDown
    end
    object edtArea: TLabeledEdit
      Left = 17
      Top = 152
      Width = 121
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 42
      EditLabel.Height = 13
      EditLabel.Caption = #20135'  '#22320#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 8
      OnKeyDown = edtAreaKeyDown
    end
    object cmbClass: TComboBox
      Left = 445
      Top = 91
      Width = 121
      Height = 21
      BevelKind = bkFlat
      Style = csDropDownList
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 13
      TabOrder = 9
      OnChange = cmbClassChange
    end
    object btnOk: TBitBtn
      Left = 128
      Top = 197
      Width = 75
      Height = 25
      Caption = #30830'   '#23450
      TabOrder = 10
      OnClick = btnOkClick
    end
    object btnClose: TBitBtn
      Left = 384
      Top = 197
      Width = 75
      Height = 25
      Caption = #36864'   '#20986
      TabOrder = 11
      OnClick = btnCloseClick
    end
  end
  object qry: TADOQuery
    Connection = frmDataCtrl.ADOConn
    Parameters = <>
    SQL.Strings = (
      'select * from tb_GoodsClass')
    Left = 648
    Top = 96
  end
  object pup_GoodsInfo: TADOStoredProc
    Connection = frmDataCtrl.ADOConn
    ProcedureName = 'pup_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 = '@ClassName'
        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 = 192
  end
end