fjdlth_un.dfm

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

        Top = 62
        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 = 1
      end
    end
    inherited bsSkinGroupBox2: TbsSkinGroupBox
      Top = 152
      Width = 519
      Height = 156
      inherited bsSkinDBGrid2: TbsSkinDBGrid
        Width = 498
        Height = 113
        DataSource = ds_disp
        Columns = <
          item
            Expanded = False
            FieldName = 'fid'
            Title.Caption = #36864#36135#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 = 'fnum'
            Title.Caption = #36864#36135#25968#37327
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fdate'
            Title.Caption = #36864#36135#26085#26399
            Width = 50
            Visible = True
          end>
      end
      inherited bsSkinScrollBar4: TbsSkinScrollBar
        Top = 136
        Width = 517
        TabOrder = 2
        Both = True
      end
      inherited bsSkinScrollBar3: TbsSkinScrollBar
        Left = 499
        Height = 113
        TabOrder = 1
        Visible = True
        PageSize = 1
        Max = 1
      end
    end
  end
  inherited bsSkinGroupBox3: TbsSkinGroupBox
    Width = 521
    TabOrder = 0
    Caption = #36873#25321#38656#35201#36864#36135#38468#20214#31867#22411#65306
    inherited bsSkinPanel1: TbsSkinPanel
      Width = 519
      inherited bsSkinStdLabel2: TbsSkinStdLabel
        Left = 72
        Top = 56
      end
      inherited bsSkinStdLabel3: TbsSkinStdLabel
        Left = 72
        Top = 88
      end
      inherited bsSkinStdLabel4: TbsSkinStdLabel
        Left = 72
        Top = 72
      end
      object bsSkinStdLabel5: TbsSkinStdLabel [3]
        Left = 72
        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
        Left = 176
        Top = 55
        SkinData = bsSkinData1
      end
      inherited bsSkinDBLookupComboBox2: TbsSkinDBLookupComboBox
        Left = 176
        Top = 82
        SkinData = bsSkinData1
      end
      inherited bsSkinGroupBox4: TbsSkinGroupBox
        Tag = 0
        inherited bsSkinPanel3: TbsSkinPanel
          inherited bsSkinStdLabel11: TbsSkinStdLabel
            Top = 29
          end
          inherited bsSkinDBLookupComboBox11: TbsSkinDBLookupComboBox
            Top = 22
          end
        end
      end
      object bsSkinDBLookupComboBox3: TbsSkinDBLookupComboBox
        Left = 176
        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 = 4
        Value = 'FT'
      end>
    Left = 88
  end
  inherited ds_disp: TDataSource
    Left = 48
  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 = 192
  end
end