u_goodsoutstock.dfm

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

      BevelKind = bkFlat
      BorderStyle = bsNone
      Enabled = False
      ImeName = #20108#31508#36755#20837#27861'2003'
      TabOrder = 0
    end
    object edtPayMent: TEdit
      Left = 244
      Top = 8
      Width = 121
      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 = 489
      Top = 6
      Width = 75
      Height = 25
      Caption = #30830'   '#23450
      TabOrder = 2
      OnClick = btnOKClick
    end
    object BitBtn4: TBitBtn
      Left = 593
      Top = 6
      Width = 75
      Height = 25
      Caption = #20851'   '#38381
      TabOrder = 3
      OnClick = BitBtn4Click
    end
    object chkCheck: TCheckBox
      Left = 383
      Top = 10
      Width = 57
      Height = 17
      Caption = #32467#31639
      Checked = True
      State = cbChecked
      TabOrder = 5
      Visible = False
    end
    object chkPrint: TCheckBox
      Left = 424
      Top = 11
      Width = 57
      Height = 17
      Caption = #25171#21360
      TabOrder = 6
    end
  end
  object btnAbandon: TBitBtn
    Left = 508
    Top = 551
    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 = 320
  end
  object popGetGoodsOutBH: TADOStoredProc
    Connection = frmDataCtrl.ADOConn
    ProcedureName = 'pop_GetGoodsOutBH;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
    Top = 3
  end
  object pipGoodsOutMaster: TADOStoredProc
    Connection = frmDataCtrl.ADOConn
    ProcedureName = 'pip_GoodsOutMaster;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@OutBH'
        Attributes = [paNullable]
        DataType = ftString
        Size = 13
        Value = Null
      end
      item
        Name = '@CusName'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@OutUser'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@OutTotal'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
        Value = Null
      end
      item
        Name = '@OutPayMon'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
        Value = Null
      end
      item
        Name = '@InvoiceMon'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
        Value = Null
      end
      item
        Name = '@btCheck'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end>
    Left = 264
    Top = 176
  end
  object pipCusAccount: TADOStoredProc
    Connection = frmDataCtrl.ADOConn
    ProcedureName = 'pip_CusAccount;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@CusName'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@CusSummary'
        Attributes = [paNullable]
        DataType = ftString
        Size = 100
        Value = Null
      end
      item
        Name = '@GoodsOutSum'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@GoodsOutPrice'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
        Value = Null
      end
      item
        Name = '@OutDH'
        Attributes = [paNullable]
        DataType = ftString
        Size = 13
        Value = Null
      end
      item
        Name = '@PayMent'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
        Value = Null
      end>
    Left = 328
    Top = 176
  end
  object pipGoodsOutDetail: TADOStoredProc
    Connection = frmDataCtrl.ADOConn
    ProcedureName = 'pip_GoodsOutDetail;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@OutBH'
        Attributes = [paNullable]
        DataType = ftString
        Size = 13
        Value = Null
      end
      item
        Name = '@CusName'
        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 = '@GoodsOutSum'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@GoodsOutPrice'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
        Value = Null
      end>
    Left = 296
    Top = 176
  end
  object PMDb: TPopupMenu
    Left = 360
    Top = 176
    object pmDel: TMenuItem
      Caption = #21024#38500
      OnClick = pmDelClick
    end
  end
  object sp_GetCusNo: TADOStoredProc
    Connection = frmDataCtrl.ADOConn
    ProcedureName = 'pop_GetCusNo;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 OutRepQry: TADOQuery
    Connection = frmDataCtrl.ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from vw_GoodsOutDetail where outbh='#39'XH20041013002'#39)
    Left = 416
    Top = 176
  end
end