fjxc_un.dfm

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

        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 = 3
        AutoSize = False
        DataField = 'fnum'
        DataSource = ds_disp
      end
      object bsdb_1: TbsSkinEdit
        Tag = 6
        Left = 397
        Top = 55
        Width = 73
        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 = clBlack
        Font.Height = 14
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
      end
      object bsSkinDBEdit2: TbsSkinDBEdit
        Tag = 5
        Left = 397
        Top = 77
        Width = 73
        Height = 20
        Text = '10'
        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 = 5
        AutoSize = False
        DataField = 'fmon'
        DataSource = ds_disp
      end
      object bsSkinEdit2: TbsSkinEdit
        Tag = 6
        Left = 397
        Top = 77
        Width = 73
        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 = clBlack
        Font.Height = 14
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
      end
    end
    inherited bsSkinGroupBox2: TbsSkinGroupBox
      Top = 192
      Height = 140
      inherited bsSkinDBGrid2: TbsSkinDBGrid
        Height = 97
        DataSource = ds_disp
        Columns = <
          item
            Expanded = False
            FieldName = 'fid'
            Title.Caption = #38144#21806#27969#27700#21495
            Width = 75
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fxlxna'
            Title.Caption = #38144#21806#31867#22411
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ffjlx'
            Title.Caption = #38468#20214#31867#22411
            Width = 40
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fna'
            Title.Caption = #21697#29260
            Width = 40
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fsyjx'
            Title.Caption = #36866#29992#26426#22411
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fnum'
            Title.Caption = #36141#20080#25968#37327
            Width = 30
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fmon'
            Title.Caption = #21333#20215
            Width = 30
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fygna'
            Title.Caption = #21806#36135#21592#24037
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fdate'
            Title.Caption = #36141#20080#26085#26399
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fmemo'
            Title.Caption = #22791#27880
            Width = 100
            Visible = True
          end>
      end
      inherited bsSkinScrollBar4: TbsSkinScrollBar
        Top = 120
        Visible = True
        Both = True
        Max = 127
      end
      inherited bsSkinScrollBar3: TbsSkinScrollBar
        Height = 97
        Visible = True
        PageSize = 3
        Max = 5
      end
    end
  end
  inherited bsSkinGroupBox3: TbsSkinGroupBox
    Height = 121
    Caption = #35831#36873#25321#38656#35201#38144#21806#30340#38468#20214#31867#22411#65306
    inherited bsSkinPanel1: TbsSkinPanel
      Height = 97
      inherited bsSkinStdLabel2: TbsSkinStdLabel
        Left = 88
        Top = 37
      end
      inherited bsSkinStdLabel3: TbsSkinStdLabel
        Left = 88
        Top = 61
      end
      inherited bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox
        Top = 31
        SkinData = bsSkinData1
      end
      inherited bsSkinDBLookupComboBox2: TbsSkinDBLookupComboBox
        Top = 55
        SkinData = bsSkinData1
      end
      inherited bsSkinGroupBox4: TbsSkinGroupBox
        Tag = 0
        Top = 0
      end
    end
  end
  inherited bsBusinessSkinForm2: TbsBusinessSkinForm
    Left = 424
    Top = 8
  end
  inherited bsSkinData2: TbsSkinData
    Left = 448
    Top = 8
  end
  inherited spsave: TADOStoredProc
    ProcedureName = 'pFjxc;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 = '@pjzl'
        Attributes = [paNullable]
        DataType = ftString
        Size = 5
        Value = Null
      end
      item
        Name = '@gt'
        Attributes = [paNullable]
        DataType = ftString
        Size = 4
        Value = Null
      end
      item
        Name = '@num'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@mon'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
        Value = Null
      end
      item
        Name = '@date'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@person'
        Attributes = [paNullable]
        DataType = ftString
        Size = 4
        Value = Null
      end
      item
        Name = '@fxlx'
        Attributes = [paNullable]
        DataType = ftString
        Size = 1
        Value = Null
      end
      item
        Name = '@memo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 200
        Value = Null
      end
      item
        Name = '@fjxcid'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
        Value = Null
      end
      item
        Name = '@OutNumber'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 12
        Value = Null
      end>
    Left = 256
    Top = 240
  end
  inherited spdisp: TADOStoredProc
    Active = True
    CursorType = ctStatic
    ProcedureName = 'pviewfjxc;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end>
    Left = 112
    Top = 376
  end
  inherited ds_disp: TDataSource
    Left = 72
    Top = 376
  end
  inherited sp_fjlx: TADOStoredProc
    Top = 7
  end
  inherited ds_fjcs: TDataSource
    Top = 9
  end
  inherited tbl_fjcs: TADOTable
    Left = 136
    Top = 9
  end
  inherited tbl_fjlx: TADOTable
    Left = 200
    Top = 9
  end
  inherited ds_fjlx: TDataSource
    Left = 168
    Top = 9
  end
  inherited tbl_sjcs: TADOTable
    Active = False
  end
  inherited tbl_sjxh: TADOTable
    Active = False
  end
  inherited ds_sjxh: TDataSource
    Top = 1
  end
  object ds_fxlx: TDataSource
    DataSet = tbl_fxlx
    OnDataChange = ds_fxlxDataChange
    Left = 232
    Top = 369
  end
  object tbl_fxlx: TADOTable
    Connection = dm.ADOConnection1
    TableName = 'tfxlx'
    Left = 264
    Top = 361
  end
  object ds_yg: TDataSource
    DataSet = tbl_yg
    Left = 152
    Top = 393
  end
  object tbl_yg: TADOTable
    Active = True
    Connection = dm.ADOConnection1
    CursorType = ctStatic
    Filter = 'fuse='#39'T'#39
    Filtered = True
    TableName = 'tygzl'
    Left = 192
    Top = 393
  end
  object sp_checkfj: TADOStoredProc
    Connection = dm.ADOConnection1
    ProcedureName = 'pCheckFjNotSale;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@fpjzl'
        Attributes = [paNullable]
        DataType = ftString
        Size = 5
        Value = Null
      end
      item
        Name = '@outnumber'
        Attributes = [paNullable]
        DataType = ftInteger
        Direction = pdInputOutput
        Precision = 10
        Value = Null
      end>
    Left = 209
    Top = 159
  end
end