glfj_un.dfm

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

        DataField = 'fmon'
        DataSource = ds_disp
      end
      object bsSkinDBDateEdit1: TbsSkinDBDateEdit
        Tag = 5
        Left = 110
        Top = 80
        Width = 99
        Height = 20
        EditMask = '!0000/99/99;1; '
        Text = '2001- 1-27'
        AlphaBlend = False
        AlphaBlendAnimation = False
        AlphaBlendValue = 0
        Date = 36918.000000000000000000
        TodayDefault = False
        CalendarWidth = 200
        CalendarHeight = 150
        CalendarFont.Charset = DEFAULT_CHARSET
        CalendarFont.Color = clWindowText
        CalendarFont.Height = 14
        CalendarFont.Name = 'Arial'
        CalendarFont.Style = []
        FirstDayOfWeek = Sun
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = 'Arial'
        DefaultFont.Style = []
        DefaultWidth = 0
        DefaultHeight = 20
        ButtonMode = True
        SkinData = bsSkinData1
        SkinDataName = 'buttonedit'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = 14
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 10
        ParentFont = False
        TabOrder = 6
        AutoSize = False
        DataField = 'fdate'
        DataSource = ds_disp
      end
      object bsSkinDateEdit1: TbsSkinDateEdit
        Tag = 6
        Left = 109
        Top = 80
        Width = 100
        Height = 20
        EditMask = '!0000/99/99;1; '
        Text = '    -  -  '
        AlphaBlend = False
        AlphaBlendAnimation = False
        AlphaBlendValue = 0
        Date = 36922.617806053240000000
        TodayDefault = False
        CalendarWidth = 200
        CalendarHeight = 150
        CalendarFont.Charset = DEFAULT_CHARSET
        CalendarFont.Color = clWindowText
        CalendarFont.Height = 14
        CalendarFont.Name = 'Arial'
        CalendarFont.Style = []
        FirstDayOfWeek = Sun
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = 'Arial'
        DefaultFont.Style = []
        DefaultWidth = 0
        DefaultHeight = 20
        ButtonMode = True
        SkinData = bsSkinData1
        SkinDataName = 'buttonedit'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = 14
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 10
        ParentFont = False
        TabOrder = 7
      end
    end
    inherited bsSkinGroupBox2: TbsSkinGroupBox
      Top = 168
      Width = 511
      Height = 156
      inherited bsSkinDBGrid2: TbsSkinDBGrid
        Width = 490
        Height = 113
        DataSource = ds_disp
        Columns = <
          item
            Expanded = False
            FieldName = 'fid'
            Title.Caption = #39046#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 = 60
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fgtna'
            Title.Caption = #26588#21488#21517#31216
            Width = 60
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fmon'
            Title.Caption = #21333#20215
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fnum'
            Title.Caption = #39046#36135#25968#37327
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fdate'
            Title.Caption = #39046#36135#26085#26399
            Width = 60
            Visible = True
          end>
      end
      inherited bsSkinScrollBar4: TbsSkinScrollBar
        Top = 136
        Width = 509
        Both = True
      end
      inherited bsSkinScrollBar3: TbsSkinScrollBar
        Left = 491
        Height = 113
        Visible = True
        PageSize = 7
        Max = 17
      end
    end
  end
  inherited bsSkinGroupBox3: TbsSkinGroupBox
    Width = 513
    inherited bsSkinPanel1: TbsSkinPanel
      Width = 511
      inherited bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox
        SkinData = bsSkinData1
      end
      inherited bsSkinDBLookupComboBox2: TbsSkinDBLookupComboBox
        SkinData = bsSkinData1
      end
      inherited bsSkinGroupBox4: TbsSkinGroupBox
        Tag = 0
        inherited bsSkinPanel3: TbsSkinPanel
          inherited bsSkinDBLookupComboBox10: TbsSkinDBLookupComboBox
            Top = 1
          end
          inherited bsSkinDBLookupComboBox11: TbsSkinDBLookupComboBox
            Top = 22
          end
        end
      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>
    Left = 400
    Top = 160
  end
  inherited spdisp: TADOStoredProc
    Active = True
    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 = 'FL'
      end>
    Left = 208
    Top = 416
  end
  inherited ds_disp: TDataSource
    Left = 168
    Top = 400
  end
  inherited tbl_sjcs: TADOTable
    Active = False
  end
  inherited tbl_sjxh: TADOTable
    Active = False
  end
  object ds_gt: TDataSource
    DataSet = tbl_gt
    Left = 16
    Top = 217
  end
  object tbl_gt: TADOTable
    Connection = dm.ADOConnection1
    Filter = 'fuse='#39'T'#39
    Filtered = True
    TableName = 'tgt'
    Left = 16
    Top = 193
  end
  object ds_yz: TDataSource
    DataSet = tbl_yg
    Left = 272
    Top = 281
  end
  object tbl_yg: TADOTable
    Connection = dm.ADOConnection1
    TableName = 'tygzl'
    Left = 216
    Top = 281
  end
end