fjdlpz_un.dfm

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

        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 = 1
      end
      object bsSkinEdit2: TbsSkinEdit
        Tag = 6
        Left = 385
        Top = 70
        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
      object bsSkinDBEdit2: TbsSkinDBEdit
        Tag = 5
        Left = 385
        Top = 70
        Width = 73
        Height = 20
        Text = 'bsSkinDBEdit2'
        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 = 3
        AutoSize = False
        DataField = 'fmon'
        DataSource = ds_disp
      end
      object bsSkinDBLookupComboBox4: TbsSkinDBLookupComboBox
        Tag = 6
        Left = 385
        Top = 37
        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
        KeyField = 'fid'
        ListField = 'fname'
        ListSource = ds_yg
      end
    end
    inherited bsSkinGroupBox2: TbsSkinGroupBox
      Top = 176
      Width = 543
      Height = 179
      inherited bsSkinDBGrid2: TbsSkinDBGrid
        Width = 522
        Height = 136
        DataSource = ds_disp
        Columns = <
          item
            Expanded = False
            FieldName = 'fid'
            Title.Caption = #32467#24080#27969#27700#21495
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ffjlx'
            Title.Caption = #38468#20214#31867#22411
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fjcs'
            Title.Caption = #38468#20214#21697#29260
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fsyjx'
            Title.Caption = #36866#29992#26426#22411
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fgtna'
            Title.Caption = #20195#29702#21830
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fmon'
            Title.Caption = #21333#20215
            Width = 40
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fnum'
            Title.Caption = #25968#37327
            Width = 40
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fdate'
            Title.Caption = #32467#24080#26085#26399
            Width = 50
            Visible = True
          end>
      end
      inherited bsSkinScrollBar4: TbsSkinScrollBar
        Top = 159
        Width = 541
        TabOrder = 2
      end
      inherited bsSkinScrollBar3: TbsSkinScrollBar
        Left = 523
        Height = 136
        TabOrder = 1
      end
    end
  end
  inherited bsSkinGroupBox3: TbsSkinGroupBox
    Width = 545
    TabOrder = 0
    Caption = #36873#25321#38656#35201#32467#24080#30340#38468#20214#31867#22411#65306
    inherited bsSkinPanel1: TbsSkinPanel
      Width = 543
      inherited bsSkinStdLabel2: TbsSkinStdLabel
        Top = 60
      end
      inherited bsSkinStdLabel3: TbsSkinStdLabel
        Top = 88
      end
      object bsSkinStdLabel9: TbsSkinStdLabel [3]
        Left = 64
        Top = 32
        Width = 84
        Height = 13
        UseSkinFont = True
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = -11
        DefaultFont.Name = 'MS Sans Serif'
        DefaultFont.Style = []
        SkinData = bsSkinData2
        SkinDataName = 'stdlabel'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #26032#23435#20307
        Font.Style = []
        Caption = #36873#25321#20195#29702#21830#65306
        ParentFont = False
      end
      inherited bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox
        Top = 54
        SkinData = bsSkinData1
      end
      inherited bsSkinDBLookupComboBox2: TbsSkinDBLookupComboBox
        Top = 82
        SkinData = bsSkinData1
      end
      inherited bsSkinGroupBox4: TbsSkinGroupBox
        Tag = 0
        inherited bsSkinPanel3: TbsSkinPanel
          inherited bsSkinDBLookupComboBox11: TbsSkinDBLookupComboBox
            Top = 22
          end
        end
      end
      object bsSkinDBLookupComboBox3: TbsSkinDBLookupComboBox
        Left = 168
        Top = 26
        Width = 65
        Height = 20
        TabOrder = 3
        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'
        ListSource = ds_gt
      end
    end
  end
  inherited spsave: TADOStoredProc
    ProcedureName = 'pFjGtlh;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 = '@IDType'
        Attributes = [paNullable]
        DataType = ftString
        Size = 2
        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 = '@date'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@glfjid'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
        Value = Null
      end
      item
        Name = '@mon'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
        Value = Null
      end
      item
        Name = '@person'
        Attributes = [paNullable]
        DataType = ftString
        Size = 4
        Value = Null
      end
      item
        Name = '@OutNumber'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 12
        Value = Null
      end>
  end
  inherited spdisp: TADOStoredProc
    CursorType = ctStatic
    ProcedureName = 'pViewAllFjGtlh;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@IDType'
        Attributes = [paNullable]
        DataType = ftString
        Size = 2
        Value = 'FX'
      end>
    Left = 336
  end
  inherited ds_disp: TDataSource
    Left = 304
    Top = 248
  end
  inherited tbl_sjcs: TADOTable
    Active = False
  end
  inherited tbl_sjxh: TADOTable
    Active = False
  end
  object tbl_yg: TADOTable
    Connection = dm.ADOConnection1
    TableName = 'tygzl'
    Left = 408
    Top = 225
  end
  object ds_yg: TDataSource
    DataSet = tbl_yg
    Left = 440
    Top = 225
  end
  object tbl_gt: TADOTable
    Connection = dm.ADOConnection1
    TableName = 'tgt'
    Left = 208
    Top = 25
  end
  object ds_gt: TDataSource
    DataSet = tbl_gt
    Left = 240
    Top = 25
  end
  object sp_checkdlfj: TADOStoredProc
    Connection = dm.ADOConnection1
    CursorType = ctStatic
    ProcedureName = 'pCheckFjdl;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 = '@gt'
        Attributes = [paNullable]
        DataType = ftString
        Size = 4
        Value = Null
      end
      item
        Name = '@exist'
        Attributes = [paNullable]
        DataType = ftInteger
        Direction = pdInputOutput
        Precision = 10
        Value = Null
      end
      item
        Name = '@fl'
        Attributes = [paNullable]
        DataType = ftInteger
        Direction = pdInputOutput
        Precision = 10
        Value = Null
      end
      item
        Name = '@fx'
        Attributes = [paNullable]
        DataType = ftInteger
        Direction = pdInputOutput
        Precision = 10
        Value = Null
      end
      item
        Name = '@ft'
        Attributes = [paNullable]
        DataType = ftInteger
        Direction = pdInputOutput
        Precision = 10
        Value = Null
      end>
    Left = 72
    Top = 320
  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 = 185
    Top = 255
  end
end