sjlr1_un.dfm

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

        Font.Style = []
        MaxLength = 10
        ParentFont = False
        TabOrder = 1
      end
    end
    object bsSkinEdit1: TbsSkinEdit
      Left = 77
      Top = 32
      Width = 225
      Height = 20
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = 'Arial'
      DefaultFont.Style = []
      UseSkinFont = True
      DefaultWidth = 0
      DefaultHeight = 20
      ButtonMode = False
      SkinData = bsSkinData1
      SkinDataName = 'edit'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = 14
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object bsSkinGroupBox1: TbsSkinGroupBox
      Left = 184
      Top = 59
      Width = 161
      Height = 89
      TabOrder = 2
      SkinData = bsSkinData1
      SkinDataName = 'groupbox'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = 'Arial'
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 0
      UseSkinFont = True
      RealHeight = -1
      AutoEnabledControls = True
      CheckedMode = True
      Checked = False
      DefaultAlignment = taLeftJustify
      DefaultCaptionHeight = 22
      BorderStyle = bvFrame
      CaptionMode = True
      RollUpMode = False
      RollUpState = False
      NumGlyphs = 1
      Spacing = 2
      Caption = #19981#32479#35745#25152#26377#25163#26426#22411#21495
      object bsSkinStdLabel8: TbsSkinStdLabel
        Left = 28
        Top = 40
        Width = 36
        Height = 13
        UseSkinFont = True
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = -11
        DefaultFont.Name = 'MS Sans Serif'
        DefaultFont.Style = []
        SkinData = bsSkinData1
        SkinDataName = 'stdlabel'
        Caption = #21378#21830#65306
        Enabled = False
      end
      object bsSkinStdLabel9: TbsSkinStdLabel
        Left = 28
        Top = 65
        Width = 36
        Height = 13
        UseSkinFont = True
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = -11
        DefaultFont.Name = 'MS Sans Serif'
        DefaultFont.Style = []
        SkinData = bsSkinData1
        SkinDataName = 'stdlabel'
        Caption = #22411#21495#65306
        Enabled = False
      end
      object bsSkinDBLookupComboBox4: TbsSkinDBLookupComboBox
        Left = 64
        Top = 33
        Width = 73
        Height = 20
        TabOrder = 0
        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
        Enabled = False
        KeyField = 'fid'
        ListField = 'fna'
        ListSource = ds_sjcs
      end
      object bsSkinDBLookupComboBox3: TbsSkinDBLookupComboBox
        Left = 64
        Top = 58
        Width = 73
        Height = 20
        TabOrder = 1
        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
        Enabled = False
        KeyField = 'fid'
        ListField = 'fmodel'
        ListSource = ds_sjxh
      end
    end
  end
  object bsSkinPanel1: TbsSkinPanel [1]
    Left = 0
    Top = 0
    Width = 353
    Height = 49
    TabOrder = 0
    SkinData = bsSkinData1
    SkinDataName = 'panel'
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = 14
    DefaultFont.Name = 'Arial'
    DefaultFont.Style = []
    DefaultWidth = 0
    DefaultHeight = 0
    UseSkinFont = True
    RealHeight = -1
    AutoEnabledControls = True
    CheckedMode = False
    Checked = False
    DefaultAlignment = taLeftJustify
    DefaultCaptionHeight = 22
    BorderStyle = bvLowered
    CaptionMode = False
    RollUpMode = False
    RollUpState = False
    NumGlyphs = 1
    Spacing = 2
    Align = alTop
    object bsSkinStdLabel5: TbsSkinStdLabel
      Left = 24
      Top = 9
      Width = 313
      Height = 24
      UseSkinFont = True
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = -11
      DefaultFont.Name = 'MS Sans Serif'
      DefaultFont.Style = []
      SkinData = bsSkinData1
      SkinDataName = 'stdlabel'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -17
      Font.Name = #26032#23435#20307
      Font.Style = []
      Alignment = taCenter
      AutoSize = False
      Caption = #25163#26426#21033#28070#32479#35745
      ParentFont = False
    end
  end
  object ds_sjcs: TDataSource
    DataSet = qry__sjcs
    Left = 248
    Top = 177
  end
  object qry__sjcs: TADOQuery
    Connection = dm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tsjcs'
      'where tsjcs.fuse='#39'T'#39)
    Left = 288
    Top = 177
  end
  object tbl_sjxh: TADOTable
    Connection = dm.ADOConnection1
    IndexFieldNames = 'fsjcs'
    MasterFields = 'fid'
    MasterSource = ds_sjcs
    TableName = 'tsjxh'
    Left = 288
    Top = 209
  end
  object ds_sjxh: TDataSource
    DataSet = tbl_sjxh
    Left = 248
    Top = 209
  end
  object sp_count: TADOStoredProc
    Active = True
    Connection = dm.ADOConnection1
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    ProcedureName = 'pSjlrCount;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@Ffdate'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = 36526d
      end
      item
        Name = '@fedate'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = 38716d
      end
      item
        Name = '@sear'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = 2
      end
      item
        Name = '@act'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10