ppbs_un.dfm

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

inherited ppbs_frm: Tppbs_frm
  Left = 109
  Top = 48
  Caption = #30424#24179#25253#25439
  PixelsPerInch = 96
  TextHeight = 13
  inherited bsSkinPanel1: TbsSkinPanel
    inherited bsSkinDBGrid1: TbsSkinDBGrid
      Columns = <
        item
          Expanded = False
          FieldName = 'fbsid'
          Title.Caption = #25253#25439#27969#27700#21495
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fno'
          Title.Caption = #25163#26426#20018#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fsjxh'
          Title.Caption = #25163#26426#22411#21495
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fcolor'
          Title.Caption = #39068#33394
          Width = 30
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fjbpz'
          Title.Caption = #22522#26412#37197#32622
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fbsdate'
          Title.Caption = #25253#25439#26085#26399
          Width = 65
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fbsmemo'
          Title.Caption = #36864#24211#21407#22240
          Width = 100
          Visible = True
        end>
    end
    inherited bsSkinPanel3: TbsSkinPanel
      inherited bsSkinPanel2: TbsSkinPanel
        inherited bsSkinDBText: TbsSkinDBText
          Width = 7
          Caption = ''
        end
      end
    end
    inherited bsSkinScrollBar3: TbsSkinScrollBar
      Visible = True
      PageSize = 3
      Max = 5
    end
    inherited bsSkinScrollBar4: TbsSkinScrollBar
      Both = True
    end
  end
  inherited bsSkinPanel4: TbsSkinPanel
    inherited bsSkinDBGrid2: TbsSkinDBGrid
      Columns = <
        item
          Expanded = False
          FieldName = 'fbsfhid'
          Title.Caption = #30424#24179#27969#27700#21495
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fno'
          Title.Caption = #21407#25163#26426#20018#21495
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fsjxh'
          Title.Caption = #21407#25163#26426#22411#21495
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fcolor'
          Title.Caption = #21407#39068#33394
          Width = 30
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fjbpz'
          Title.Caption = #21407#22522#26412#37197#32622
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fbsfhdate'
          Title.Caption = #30424#24179#26085#26399
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fcmon'
          Title.Caption = #30424#24179#24046#20215
          Width = 50
          Visible = True
        end>
    end
    inherited bsSkinPanel5: TbsSkinPanel
      inherited bsSkinPanel6: TbsSkinPanel
        inherited bsSkinDBText1: TbsSkinDBText
          DataField = 'fbsfhid'
          DataSource = ds_bottom
        end
      end
    end
  end
  inherited bsSkinPanel8: TbsSkinPanel
    inherited bsSkinPanel9: TbsSkinPanel
      object bsSkinStdLabel3: TbsSkinStdLabel
        Left = 136
        Top = 48
        Width = 60
        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 = #36864#24211#20570#20215#65306
      end
      object bsSkinStdLabel4: TbsSkinStdLabel
        Left = 122
        Top = 77
        Width = 72
        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 = #19982#36827#20215#24046#21035#65306
      end
      object bsSkinStdLabel5: TbsSkinStdLabel
        Left = 136
        Top = 21
        Width = 60
        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 = #26426#23376#21407#20215#65306
      end
      object bsSkinEdit3: TbsSkinEdit
        Left = 216
        Top = 72
        Width = 121
        Height = 20
        Text = 'bsSkinEdit2'
        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 = clGrayText
        Font.Height = 14
        Font.Name = 'Arial'
        Font.Style = []
        Enabled = False
        ParentFont = False
        TabOrder = 0
      end
      object bsSkinNumericEdit1: TbsSkinNumericEdit
        Left = 216
        Top = 43
        Width = 120
        Height = 20
        Text = '0'
        ValueType = vtInteger
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = 'Arial'
        DefaultFont.Style = []
        DefaultWidth = 0
        DefaultHeight = 20
        ButtonMode = False
        SkinDataName = 'edit'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = 14
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnChange = bsSkinNumericEdit1Change
      end
      object bsSkinMemo1: TbsSkinMemo
        Left = 352
        Top = 8
        Width = 161
        Height = 97
        BiDiMode = bdLeftToRight
        BorderStyle = bsNone
        Color = clInactiveBorder
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -17
        Font.Name = #23435#20307
        Font.Style = []
        Lines.Strings = (
          'bsSkinMemo1')
        ParentBiDiMode = False
        ParentFont = False
        TabOrder = 2
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = 'Arial'
        DefaultFont.Style = []
        UseSkinFont = True
        BitMapBG = False
        SkinData = bsSkinData1
        SkinDataName = 'memo'
      end
      object bsdb_1: TbsSkinEdit
        Left = 216
        Top = 16
        Width = 121
        Height = 20
        Text = 'bsdb_1'
        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 = clGrayText
        Font.Height = 14
        Font.Name = 'Arial'
        Font.Style = []
        Enabled = False
        ParentFont = False
        TabOrder = 3
      end
    end
  end
  inherited bsBusinessSkinForm1: TbsBusinessSkinForm
    Left = 400
    Top = 80
  end
  inherited bsSkinData1: TbsSkinData
    Left = 440
    Top = 80
  end
  inherited sp_top: TADOStoredProc
    Active = True
    ProcedureName = 'pViewBBsSj;1'
  end
  inherited sp_bottom: TADOStoredProc
    ProcedureName = 'pViewAllBPpSj;1'
    Left = 338
  end
  object sp_save: TADOStoredProc
    Connection = dm.ADOConnection1
    ProcedureName = 'pPpbs;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@act'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@bsid'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
        Value = Null
      end
      item
        Name = '@date'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@cmon'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
        Value = Null
      end
      item
        Name = '@omon'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
        Value = Null
      end
      item
        Name = '@bsfhid'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
        Value = Null
      end
      item
        Name = '@OutNumber'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 12
        Value = Null
      end>
    Left = 401
    Top = 219
  end
end