u_goodsinstock.dfm

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

object frmGoodsInStock: TfrmGoodsInStock
  Left = 338
  Top = 184
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #21830#21697#20837#24211#30028#38754
  ClientHeight = 398
  ClientWidth = 673
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 673
    Height = 30
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 14
      Top = 11
      Width = 48
      Height = 12
      Caption = #20379#24212#21830#65306
    end
    object edtDate: TLabeledEdit
      Left = 295
      Top = 6
      Width = 121
      Height = 20
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 36
      EditLabel.Height = 12
      EditLabel.Caption = #26085#26399#65306
      Enabled = False
      ImeName = #20108#31508#36755#20837#27861'2003'
      LabelPosition = lpLeft
      LabelSpacing = 3
      TabOrder = 0
    end
    object EdtGoodsInBH: TLabeledEdit
      Left = 519
      Top = 6
      Width = 121
      Height = 20
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 60
      EditLabel.Height = 12
      EditLabel.Caption = #20837#24211#21333#21495#65306
      Enabled = False
      ImeName = #20108#31508#36755#20837#27861'2003'
      LabelPosition = lpLeft
      LabelSpacing = 3
      TabOrder = 1
    end
    object cmbSupply: TEdit
      Left = 64
      Top = 5
      Width = 175
      Height = 20
      TabOrder = 2
      OnDblClick = cmbSupplyDblClick
      OnExit = cmbSupplyExit
      OnKeyDown = cmbSupplyKeyDown
    end
  end
  object lvMain: TListView
    Left = 0
    Top = 127
    Width = 673
    Height = 236
    Align = alClient
    Columns = <
      item
        Caption = #21830#21697#32534#30721
        Width = 80
      end
      item
        Alignment = taCenter
        Caption = #21517'   '#31216
        Width = 100
      end
      item
        Alignment = taCenter
        Caption = #35268'   '#26684
        Width = 100
      end
      item
        Alignment = taCenter
        Caption = #22411'   '#21495
        Width = 100
      end
      item
        Alignment = taCenter
        Caption = #21333'   '#20215
        Width = 70
      end
      item
        Alignment = taCenter
        Caption = #25968'   '#37327
        Width = 70
      end
      item
        Alignment = taCenter
        Caption = #21512'   '#35745
        Width = 90
      end>
    GridLines = True
    ReadOnly = True
    RowSelect = True
    PopupMenu = PopupMenu1
    TabOrder = 1
    ViewStyle = vsReport
    OnDblClick = lvMainDblClick
    OnSelectItem = lvMainSelectItem
  end
  object Panel2: TPanel
    Left = 0
    Top = 30
    Width = 673
    Height = 97
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 2
    object btnCancel: TBitBtn
      Left = 517
      Top = 67
      Width = 75
      Height = 25
      Caption = #21462'   '#28040
      TabOrder = 9
      OnClick = btnCancelClick
    end
    object btnSave: TBitBtn
      Left = 383
      Top = 67
      Width = 75
      Height = 24
      Caption = #20445'   '#23384
      TabOrder = 10
      OnClick = btnSaveClick
    end
    object edtGoodsBH: TLabeledEdit
      Left = 20
      Top = 22
      Width = 121
      Height = 20
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 60
      EditLabel.Height = 12
      EditLabel.Caption = #21830#21697#32534#30721#65306
      ImeName = #20108#31508#36755#20837#27861'2003'
      LabelPosition = lpAbove
      LabelSpacing = 3
      TabOrder = 0
      OnDblClick = edtGoodsBHDblClick
      OnExit = edtGoodsBHExit
      OnKeyDown = edtGoodsBHKeyDown
    end
    object edtGoodsName: TLabeledEdit
      Left = 182
      Top = 22
      Width = 121
      Height = 20
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 60
      EditLabel.Height = 12
      EditLabel.Caption = #21517'    '#31216#65306
      Enabled = False
      ImeName = #20108#31508#36755#20837#27861'2003'
      LabelPosition = lpAbove
      LabelSpacing = 3
      TabOrder = 1
    end
    object edtGoodsSpec: TLabeledEdit
      Left = 345
      Top = 22
      Width = 121
      Height = 20
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 60
      EditLabel.Height = 12
      EditLabel.Caption = #35268'    '#26684#65306
      Enabled = False
      ImeName = #20108#31508#36755#20837#27861'2003'
      LabelPosition = lpAbove
      LabelSpacing = 3
      TabOrder = 2
    end
    object edtGoodsModel: TLabeledEdit
      Left = 508
      Top = 22
      Width = 121
      Height = 20
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 60
      EditLabel.Height = 12
      EditLabel.Caption = #22411'    '#21495#65306
      Enabled = False
      ImeName = #20108#31508#36755#20837#27861'2003'
      LabelPosition = lpAbove
      LabelSpacing = 3
      TabOrder = 3
    end
    object edtGoodsPrice: TLabeledEdit
      Left = 19
      Top = 70
      Width = 121
      Height = 20
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 60
      EditLabel.Height = 12
      EditLabel.Caption = #36827'    '#20215#65306
      ImeName = #20108#31508#36755#20837#27861'2003'
      LabelPosition = lpAbove
      LabelSpacing = 3
      TabOrder = 4
      OnKeyDown = edtGoodsPriceKeyDown
    end
    object edtGoodsAmount: TLabeledEdit
      Left = 181
      Top = 70
      Width = 121
      Height = 20
      BevelKind = bkFlat
      BorderStyle = bsNone
      EditLabel.Width = 60
      EditLabel.Height = 12
      EditLabel.Caption = #25968'    '#37327#65306
      ImeName = #20108#31508#36755#20837#27861'2003'
      LabelPosition = lpAbove
      LabelSpacing = 3
      TabOrder = 5
      OnKeyDown = edtGoodsAmountKeyDown
    end
    object btnAdd: TBitBtn
      Left = 383
      Top = 67
      Width = 75
      Height = 25
      Caption = #28155'   '#21152
      TabOrder = 6
      OnClick = btnAddClick
    end
    object btnDelete: TBitBtn
      Left = 716
      Top = 67
      Width = 75
      Height = 25
      Caption = #21024'   '#38500
      TabOrder = 7
      Visible = False
      OnClick = btnDeleteClick
    end
    object btnEdit: TBitBtn
      Left = 517
      Top = 67
      Width = 75
      Height = 25
      Caption = #32534'   '#36753
      TabOrder = 8
      OnClick = btnEditClick
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 363
    Width = 673
    Height = 35
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 3
    object Label2: TLabel
      Left = 9
      Top = 13
      Width = 54
      Height = 12
      Caption = #24635'   '#35745#65306
      Enabled = False
    end
    object Label3: TLabel
      Left = 193
      Top = 12
      Width = 60
      Height = 12
      Caption = #20184'    '#27454#65306
      Visible = False
    end
    object edtTotal: TEdit
      Left = 63
      Top = 9
      Width = 121
      Height = 20
      BevelKind = bkFlat
      BorderStyle = bsNone
      Enabled = False
      ImeName = #20108#31508#36755#20837#27861'2003'
      TabOrder = 0
    end
    object edtPayMent: TEdit
      Left = 258
      Top = 8
      Width = 103
      Height = 20
      BevelKind = bkFlat
      BorderStyle = bsNone
      ImeName = #20108#31508#36755#20837#27861'2003'
      TabOrder = 1
      Text = '0'
      Visible = False
      OnKeyDown = edtPayMentKeyDown
    end
    object btnOK: TBitBtn
      Left = 430
      Top = 5
      Width = 75
      Height = 25
      Caption = #30830'   '#23450
      TabOrder = 2
      OnClick = btnOKClick
    end
    object btnClose: TBitBtn
      Left = 595
      Top = 5
      Width = 72
      Height = 25
      Caption = #20851'   '#38381
      TabOrder = 3
      OnClick = btnCloseClick
    end
    object chkCheck: TCheckBox
      Left = 375
      Top = 10
      Width = 50
      Height = 17
      Caption = #32467#31639
      Checked = True
      State = cbChecked
      TabOrder = 4
      Visible = False
    end
    object chkPrint: TCheckBox
      Left = 368
      Top = 11
      Width = 57
      Height = 17
      Caption = #25171#21360
      TabOrder = 5
    end
  end
  object btnAbandon: TBitBtn
    Left = 512
    Top = 368
    Width = 75
    Height = 25
    Caption = #25918'   '#24323
    TabOrder = 4
    OnClick = btnAbandonClick
  end
  object popGetSysTime: TADOStoredProc
    Connection = frmDataCtrl.ADOConn
    ProcedureName = 'pop_GetSystemDate;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@billcode'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 10
        Value = Null
      end>
    Left = 328
  end
  object popGetGoodsInBH: TADOStoredProc
    Connection = frmDataCtrl.ADOConn
    ProcedureName = 'pop_GetGoodsInBH;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@billcode'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 13
        Value = Null
      end>
    Left = 560
  end
  object pipGoodsInMaster: TADOStoredProc
    Connection = frmDataCtrl.ADOConn
    ProcedureName = 'pip_GoodsInMaster;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@InBH'
        Attributes = [paNullable]
        DataType = ftString
        Size = 13
        Value = Null
      end
      item
        Name = '@SupName'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@InUser'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@InTotal'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
        Value = Null
      end
      item
        Name = '@InPayMon'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
        Value = Null
      end
      item
        Name = '@btCheck'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end>
    Left = 320
    Top = 240
  end
  object pipGoodsInDetail: TADOStoredProc
    Connection = frmDataCtrl.ADOConn
    ProcedureName = 'pip_GoodsInDetail;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@InBH'
        Attributes = [paNullable]
        DataType = ftString
        Size = 13
        Value = Null
      end
      item
        Name = '@SupName'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@GoodsBH'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        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 = '@GoodsInSum'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@GoodsInPrice'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
        Value = Null
      end>
    Left = 368
    Top = 240
  end
  object pipSupAccount: TADOStoredProc
    Connection = frmDataCtrl.ADOConn
    ProcedureName = 'pip_SupAccount;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@SupName'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@SupSummary'
        Attributes = [paNullable]
        DataType = ftString
        Size = 100
        Value = Null
      end
      item
        Name = '@GoodsInSum'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@GoodsInPrice'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
        Value = Null
      end
      item
        Name = '@InDH'
        Attributes = [paNullable]
        DataType = ftString
        Size = 13
        Value = Null
      end
      item
        Name = '@PayMent'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
        Value = Null
      end>
    Left = 416
    Top = 240
  end
  object PopupMenu1: TPopupMenu
    Left = 464
    Top = 240
    object PmDel: TMenuItem
      Caption = #21024#38500
      OnClick = PmDelClick
    end
  end
  object sp_GetSupNo: TADOStoredProc
    Connection = frmDataCtrl.ADOConn
    ProcedureName = 'pop_GetSupNo;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@billcode'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 13
        Value = Null
      end>
    Left = 144
    Top = 8
  end
  object InRepQry: TADOQuery
    Connection = frmDataCtrl.ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from vw_GoodsInDetail')
    Left = 504
    Top = 240
  end
end