dlpz_un.dfm

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

        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 = 9
        AutoSize = False
        DataField = 'ftel'
        DataSource = ds_disp
      end
    end
    inherited bsSkinGroupBox2: TbsSkinGroupBox
      Top = 368
      Height = 164
      inherited bsSkinDBGrid2: TbsSkinDBGrid
        Height = 121
        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 = 100
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fcolor'
            Title.Caption = #39068#33394
            Width = 30
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fpz'
            Title.Caption = #37197#32622
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'flx'
            Title.Caption = #24179#24080#26041#24335
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fmon'
            Title.Caption = #32467#24080#37329#39069
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fname'
            Title.Caption = #23458#25143#22995#21517
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ftel'
            Title.Caption = #23458#25143#30005#35805
            Width = 60
            Visible = True
          end>
      end
      inherited bsSkinScrollBar4: TbsSkinScrollBar
        Top = 144
        Visible = True
        Max = 127
      end
      inherited bsSkinScrollBar3: TbsSkinScrollBar
        Height = 121
      end
    end
    inherited bsSkinExPanel2: TbsSkinExPanel
      inherited bsSkinPanel4: TbsSkinPanel
        inherited bsSkinStdLabel7: TbsSkinStdLabel
          Width = 84
          Caption = #20195#29702#21830#21517#31216#65306
        end
        inherited bsSkinStdLabel9: TbsSkinStdLabel
          Caption = #39046#36135#26085#26399#65306
        end
        inherited bsSkinStdLabel10: TbsSkinStdLabel
          Caption = #39046#36135#20215#26684#65306
        end
        inherited bsSkinStdLabel13: TbsSkinStdLabel
          Width = 84
          Caption = #20195#29702#36127#36131#20154#65306
        end
        inherited bsSkinStdLabel14: TbsSkinStdLabel
          Width = 70
          Caption = #39046#36135#22791#27880#65306
        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
          Left = 105
          DataField = 'fgtna'
        end
      end
    end
  end
  inherited bsSkinPanel3: TbsSkinPanel
    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
        inherited bsSkinCheckRadioBox1: TbsSkinCheckRadioBox
          Top = 8
          Height = 20
        end
      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 = 395
      inherited bsSkinScrollBar1: TbsSkinScrollBar
        Top = 375
      end
      inherited bsSkinScrollBar2: TbsSkinScrollBar
        Height = 349
        Max = 11
      end
      inherited bsSkinDBGrid1: TbsSkinDBGrid
        Height = 349
        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 = 256
    Top = 64
  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>
    Left = 472
    Top = 152
  end
  inherited spdisp: TADOStoredProc
    Active = False
    LockType = ltBatchOptimistic
    ProcedureName = 'pviewddpz;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@act'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    Left = 432
    Top = 152
  end
  inherited ds_disp: TDataSource
    Left = 400
    Top = 152
  end
  inherited sp_view: TADOStoredProc
    CursorType = ctStatic
    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>
    Top = 288
  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
  object ds_ygzl: TDataSource
    DataSet = tbl_ygzl
    Left = 504
    Top = 145
  end
  object tbl_ygzl: TADOTable
    Connection = dm.ADOConnection1
    TableName = 'tygzl'
    Left = 544
    Top = 145
  end
end