sgsj_un.dfm

手机进销存系统Delphi源码,管理手机的进货还有销售方面的功能

inherited sgsj_frm: Tsgsj_frm
  Left = 117
  Top = 52
  Caption = #25910#36141#25163#26426
  PixelsPerInch = 96
  TextHeight = 13
  inherited spsave: TADOStoredProc
    ProcedureName = 'pSjrcDetail;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
      end
      item
        Name = '@VAct'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
      end
      item
        Name = '@VModel'
        Attributes = [paNullable]
        DataType = ftString
        Size = 5
      end
      item
        Name = '@VColor'
        Attributes = [paNullable]
        DataType = ftString
        Size = 4
      end
      item
        Name = '@VJbpz'
        Attributes = [paNullable]
        DataType = ftString
        Size = 3
      end
      item
        Name = '@VId'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
      end
      item
        Name = '@VNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 16
      end
      item
        Name = '@VMoney'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
      end
      item
        Name = '@VGl'
        Attributes = [paNullable]
        DataType = ftString
        Size = 200
      end
      item
        Name = '@VHyd'
        Attributes = [paNullable]
        DataType = ftString
        Size = 4
      end
      item
        Name = '@VHylx'
        Attributes = [paNullable]
        DataType = ftString
        Size = 2
      end
      item
        Name = '@dat'
        Attributes = [paNullable]
        DataType = ftDateTime
      end
      item
        Name = '@vbsid'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
      end
      item
        Name = '@vcmon'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
      end
      item
        Name = '@vomon'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
      end>
  end
  inherited tbl_sjcs: TADOQuery
    Active = False
  end
  object ADOQuery1: TADOQuery
    Parameters = <>
    SQL.Strings = (
      'select *  from tgtlh where fhrxx=:frhxxid')
    Left = 385
    Top = 136
  end
end