dltj_un.dfm

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

inherited dltj_frm: Tdltj_frm
  Left = 1
  Top = -12
  Caption = #20195#29702#36864#26426
  ClientHeight = 534
  PixelsPerInch = 96
  TextHeight = 13
  inherited bsSkinPanel2: TbsSkinPanel
    Height = 534
    inherited bsSkinToolBar2: TbsSkinToolBar
      inherited bsSkinSpeedButton12: TbsSkinSpeedButton
        Caption = #36864#39046
      end
    end
    inherited bsSkinGroupBox1: TbsSkinGroupBox
      Height = 174
      object bsSkinStdLabel16: TbsSkinStdLabel
        Left = 116
        Top = 87
        Width = 70
        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'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #26032#23435#20307
        Font.Style = []
        Caption = #36864#39046#21407#22240#65306
        ParentFont = False
      end
      object bsSkinStdLabel17: TbsSkinStdLabel
        Left = 116
        Top = 53
        Width = 84
        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'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #26032#23435#20307
        Font.Style = []
        Caption = #20018#21576#27969#27700#21495#65306
        ParentFont = False
      end
      object bsSkinStdLabel18: TbsSkinStdLabel
        Tag = 6
        Left = 200
        Top = 53
        Width = 84
        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'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -13
        Font.Name = #26032#23435#20307
        Font.Style = []
        Caption = #20018#21576#27969#27700#21495#65306
        ParentFont = False
      end
      object bssl_1: TbsSkinDBText
        Tag = 5
        Left = 200
        Top = 52
        Width = 48
        Height = 15
        UseSkinFont = True
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = -11
        DefaultFont.Name = 'MS Sans Serif'
        DefaultFont.Style = []
        SkinData = bsSkinData1
        SkinDataName = 'stdlabel'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -15
        Font.Name = #26032#23435#20307
        Font.Style = []
        AutoSize = True
        Caption = 'bssl_1'
        ParentFont = False
        ShowAccelChar = False
        DataField = 'fhrxx'
        DataSource = ds_disp
        Transparent = True
      end
      object bsSkinDBEdit1: TbsSkinDBEdit
        Tag = 5
        Left = 200
        Top = 80
        Width = 121
        Height = 20
        Text = 'bsSkinDBEdit1'
        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 = clWindowText
        Font.Height = 14
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        AutoSize = False
        DataField = 'fmemo'
        DataSource = ds_disp
      end
      object bsdb_1: TbsSkinEdit
        Tag = 6
        Left = 200
        Top = 80
        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 = clWindowText
        Font.Height = 14
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
    end
    inherited bsSkinGroupBox2: TbsSkinGroupBox
      Top = 392
      inherited bsSkinDBGrid2: TbsSkinDBGrid
        DataSource = ds_disp
        Columns = <
          item
            Expanded = False
            FieldName = 'fhrxx'
            Title.Caption = #20018#21495#27969#27700#21495
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fsjxh'
            Title.Caption = #25163#26426#22411#21495
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fno'
            Title.Caption = #25163#26426#20018#21495
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fcolor'
            Title.Caption = #39068#33394
            Width = 30
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fpz'
            Title.Caption = #25163#26426#37197#32622
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fmemo'
            Title.Caption = #36864#36135#21407#22240
            Width = 100
            Visible = True
          end>
      end
    end
    inherited bsSkinExPanel2: TbsSkinExPanel
      inherited bsSkinPanel4: TbsSkinPanel
        inherited bsSkinStdLabel7: TbsSkinStdLabel
          Left = 7
          Width = 84
          Caption = #20195#29702#21830#21517#31216#65306
        end
        inherited bsSkinStdLabel8: TbsSkinStdLabel
          Left = 7
        end
        inherited bsSkinStdLabel9: TbsSkinStdLabel
          Left = 7
          Caption = #39046#36135#26085#26399#65306
        end
        inherited bsSkinStdLabel10: TbsSkinStdLabel
          Left = 7
          Caption = #39046#36135#20215#26684#65306
        end
        inherited bsSkinStdLabel13: TbsSkinStdLabel
          Left = 7
          Width = 84
          Caption = #20195#29702#36127#36131#20154#65306
        end
        inherited bsSkinStdLabel14: TbsSkinStdLabel
          Left = 7
        end
        inherited bsSkinDBText11: TbsSkinDBText
          DataField = 'fglmemo'
        end
        inherited bsSkinDBText6: TbsSkinDBText
          DataField = 'fgtuser'
        end
        inherited bsSkinDBText4: TbsSkinDBText
          DataField = 'fglmon'
        end
        inherited bsSkinDBText5: TbsSkinDBText
          DataField = 'fgtlhdate'
        end
        inherited bsSkinDBText3: TbsSkinDBText
          DataField = 'fgttel'
        end
        inherited bsSkinDBText1: TbsSkinDBText
          DataField = 'fgtna'
        end
      end
    end
  end
  inherited bsSkinPanel3: TbsSkinPanel
    Height = 534
    inherited bsSkinExPanel3: TbsSkinExPanel
      Height = 136
      object bsSkinStdLabel15: TbsSkinStdLabel [0]
        Left = 12
        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 = bsSkinData1
        SkinDataName = 'stdlabel'
        Caption = #25353#20195#29702#21830#26597#35810#65306
      end
      inherited bsSkinGroupBox3: TbsSkinGroupBox
        Top = 54
      end
      inherited bsSkinGroupBox4: TbsSkinGroupBox
        Top = 54
        inherited bsSkinPanel1: TbsSkinPanel
          inherited bsSkinDBLookupComboBox4: TbsSkinDBLookupComboBox
            OnChange = bsSkinDBLookupComboBox4Change
          end
        end
      end
      inherited bsSkinButton1: TbsSkinButton
        Top = 109
      end
      inherited bsSkinPanel7: TbsSkinPanel
        Top = 55
      end
      object bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox
        Left = 104
        Top = 25
        Width = 73
        Height = 20
        TabOrder = 4
        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
        OnChange = bsSkinDBLookupComboBox1Change
        OnClick = bsSkinDBLookupComboBox4Click
      end
    end
    inherited bsSkinPanel8: TbsSkinPanel
      Top = 137
      Height = 396
      inherited bsSkinScrollBar1: TbsSkinScrollBar
        Top = 376
      end
      inherited bsSkinScrollBar2: TbsSkinScrollBar
        Height = 350
      end
      inherited bsSkinDBGrid1: TbsSkinDBGrid
        Height = 350
        Columns = <
          item
            Expanded = False
            FieldName = 'fgtlhdate'
            Title.Caption = #39046#36135#26085#26399
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fno'
            Title.Caption = #25163#26426#20018#21495
            Width = 100
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fcolor'
            Title.Caption = #39068#33394
            Width = 30
            Visible = True
          end>
      end
    end
  end
  inherited ALToolbar: TActionList
    Left = 200
    Top = 32
  end
  inherited spsave: TADOStoredProc
    ProcedureName = 'pddpz;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 = '@lx'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@hrxx'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
        Value = Null
      end
      item
        Name = '@glid'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
        Value = Null
      end
      item
        Name = '@date'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@name'
        Attributes = [paNullable]
        DataType = ftString
        Size = 15
        Value = Null
      end
      item
        Name = '@person'
        Attributes = [paNullable]
        DataType = ftString
        Size = 4
        Value = Null
      end
      item
        Name = '@mon'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
        Value = Null
      end
      item
        Name = '@memo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 200
        Value = Null
      end
      item
        Name = '@no'
        Attributes = [paNullable]
        DataType = ftString
        Size = 16
        Value = Null
      end
      item
        Name = '@sjxh'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@color'
        Attributes = [paNullable]
        DataType = ftString
        Size = 15
        Value = Null
      end
      item
        Name = '@pz'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@tel'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end>
  end
  inherited spdisp: TADOStoredProc
    Active = False
    ProcedureName = 'pviewddpz;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>
  end
  inherited sp_view: TADOStoredProc
    ProcedureName = 'pSearchAllGtlhNotSaleNotThSj;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@gtid'
        Attributes = [paNullable]
        DataType = ftString
        Size = 4
        Value = Null
      end
      item
        Name = '@act'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Val'
        Attributes = [paNullable]
        DataType = ftString
        Size = 16
        Value = Null
      end>
  end
  object ds_gt: TDataSource
    DataSet = tbl_gt
    Left = 128
    Top = 25
  end
  object tbl_gt: TADOTable
    Active = True
    Connection = dm.ADOConnection1
    CursorType = ctStatic
    TableName = 'tgt'
    Left = 168
    Top = 25
  end
end