djyc_un.dfm

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

inherited djyc_frm: Tdjyc_frm
  Left = 93
  Top = 80
  Caption = #21333#26426#36827#36135#20837#24211
  PixelsPerInch = 96
  TextHeight = 13
  inherited bsSkinGroupBox1: TbsSkinGroupBox
    inherited bsSkinPanel1: TbsSkinPanel
      inherited bsSkinStdLabel9: TbsSkinStdLabel
        Caption = #36827#36135#20215#26684'(*)'#65306
      end
      object bsSkinDBLookupComboBox10: TbsSkinDBLookupComboBox [27]
        Tag = 2
        Left = 256
        Top = 12
        Width = 121
        Height = 20
        TabOrder = 15
        SkinData = bsSkinData1
        SkinDataName = 'combobox'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = 'Arial'
        DefaultFont.Style = []
        DefaultWidth = 0
        DefaultHeight = 20
        UseSkinFont = True
        DataField = 'fhydid'
        DataSource = ds_disp
        ListBoxDefaultItemHeight = 20
        ListBoxUseSkinFont = True
        ListBoxUseSkinItemHeight = True
        KeyField = 'fid'
        ListField = 'fna'
        ListFieldIndex = 1
        ListSource = ds_hyd
      end
      object bsSkinDBLookupComboBox11: TbsSkinDBLookupComboBox [28]
        Tag = 5
        Left = 256
        Top = 12
        Width = 121
        Height = 20
        TabOrder = 16
        SkinData = bsSkinData1
        SkinDataName = 'combobox'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = 'Arial'
        DefaultFont.Style = []
        DefaultWidth = 0
        DefaultHeight = 20
        UseSkinFont = True
        ListBoxDefaultItemHeight = 20
        ListBoxUseSkinFont = True
        ListBoxUseSkinItemHeight = True
        KeyField = 'fid'
        ListField = 'fna'
        ListFieldIndex = 1
        ListSource = ds_hyd
      end
      inherited bsSkinDBDateEdit1: TbsSkinDBDateEdit
        Width = 81
        TabOrder = 18
      end
      inherited bsSkinDateEdit1: TbsSkinDateEdit
        Width = 81
        TabOrder = 17
      end
    end
  end
  inherited spsave: TADOStoredProc
    ProcedureName = 'pSjrcDetail;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@VAct'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@VModel'
        Attributes = [paNullable]
        DataType = ftString
        Size = 5
        Value = Null
      end
      item
        Name = '@VColor'
        Attributes = [paNullable]
        DataType = ftString
        Size = 4
        Value = Null
      end
      item
        Name = '@VJbpz'
        Attributes = [paNullable]
        DataType = ftString
        Size = 3
        Value = Null
      end
      item
        Name = '@VId'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
        Value = Null
      end
      item
        Name = '@VNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 16
        Value = Null
      end
      item
        Name = '@VMoney'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@VGl'
        Attributes = [paNullable]
        DataType = ftString
        Size = 200
        Value = Null
      end
      item
        Name = '@VHyd'
        Attributes = [paNullable]
        DataType = ftString
        Size = 4
        Value = Null
      end
      item
        Name = '@VHylx'
        Attributes = [paNullable]
        DataType = ftString
        Size = 2
        Value = Null
      end
      item
        Name = '@dat'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@vbsid'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
        Value = Null
      end
      item
        Name = '@vcmon'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
        Value = Null
      end
      item
        Name = '@vomon'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
        Value = Null
      end>
  end
  inherited spdisp: TADOStoredProc
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@hylx'
        Attributes = [paNullable]
        DataType = ftString
        Size = 2
        Value = Null
      end>
  end
  inherited tbl_sjcs: TADOQuery
    Active = False
  end
  object ds_hyd: TDataSource
    DataSet = ADOTable1
    Left = 393
    Top = 72
  end
  object ADOTable1: TADOQuery
    Connection = dm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from thyd where  thyd.fid>'#39'HY02'#39' and thyd.fuse='#39'T'#39)
    Left = 433
    Top = 72
  end
end