dllh_un.dfm

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

        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 = 6
      end
      object bsSkinDateEdit1: TbsSkinDateEdit
        Tag = 6
        Left = 152
        Top = 84
        Width = 100
        Height = 20
        EditMask = '!0000/99/99;1; '
        Text = '    -  -  '
        AlphaBlend = False
        AlphaBlendAnimation = False
        AlphaBlendValue = 0
        Date = 36922.604301215280000000
        TodayDefault = False
        CalendarWidth = 300
        CalendarHeight = 200
        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 = 312
      Height = 220
      Caption = #25152#26377#24050#39046#36135#30340#25163#26426
      Align = alNone
      inherited bsSkinDBGrid2: TbsSkinDBGrid
        Height = 177
        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 = 'fsjxh'
            Title.Caption = #25163#26426#24324#21495
            Width = 67
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fno'
            Title.Caption = #25163#26426#20018#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fjbpz'
            Title.Caption = #22522#26412#37197#32622
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fcolor'
            Title.Caption = #39068#33394
            Width = 30
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fna'
            Title.Caption = #20195#29702#21830
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fdate'
            Title.Caption = #39046#36135#26085#26399
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fmemo'
            Title.Caption = #22791#27880
            Width = 100
            Visible = True
          end>
      end
      inherited bsSkinScrollBar4: TbsSkinScrollBar
        Top = 200
        Visible = True
        Both = True
        Max = 127
      end
      inherited bsSkinScrollBar3: TbsSkinScrollBar
        Height = 177
        Visible = True
        PageSize = 7
        Max = 13
      end
    end
    inherited bsSkinExPanel2: TbsSkinExPanel
      Height = 120
      Caption = #25163#26426#35814#32454#20449#24687#65306
      inherited bsSkinPanel4: TbsSkinPanel
        Left = 424
        Top = 45
        Width = 17
        Height = 20
        Visible = False
        Align = alNone
        inherited bsSkinDBText11: TbsSkinDBText
          DataSource = nil
        end
        inherited bsSkinDBText6: TbsSkinDBText
          DataSource = nil
        end
        inherited bsSkinDBText4: TbsSkinDBText
          DataSource = nil
        end
        inherited bsSkinDBText5: TbsSkinDBText
          DataSource = nil
        end
        inherited bsSkinDBText3: TbsSkinDBText
          DataSource = nil
        end
        inherited bsSkinDBText1: TbsSkinDBText
          DataSource = nil
        end
      end
      inherited bsSkinPanel6: TbsSkinPanel
        Width = 511
        Height = 98
        Align = alClient
        inherited bsSkinStdLabel35: TbsSkinStdLabel
          Left = 52
        end
        inherited bsSkinStdLabel4: TbsSkinStdLabel
          Left = 52
          Top = 33
        end
        inherited bsSkinStdLabel3: TbsSkinStdLabel
          Left = 52
          Top = 54
        end
        inherited bsSkinStdLabel11: TbsSkinStdLabel
          Left = 52
          Top = 72
        end
        inherited bsSkinDBText12: TbsSkinDBText
          Left = 236
          Top = 9
        end
        inherited bsSkinDBText13: TbsSkinDBText
          Left = 236
          Top = 29
        end
        inherited bsSkinDBText14: TbsSkinDBText
          Left = 236
          Top = 48
        end
        inherited bsSkinStdLabel12: TbsSkinStdLabel
          Left = 236
          Top = 68
        end
        inherited bsSkinDBText10: TbsSkinDBText
          Left = 276
          Top = 66
        end
        inherited bsSkinStdLabel38: TbsSkinStdLabel
          Left = 276
          Top = 49
        end
        inherited bsSkinStdLabel39: TbsSkinStdLabel
          Left = 276
          Top = 31
        end
        inherited bsSkinStdLabel40: TbsSkinStdLabel
          Left = 276
          Top = 14
        end
        inherited bsSkinDBText9: TbsSkinDBText
          Left = 92
        end
        inherited bsSkinDBText2: TbsSkinDBText
          Left = 92
        end
        inherited bsSkinDBText8: TbsSkinDBText
          Left = 92
        end
        inherited bsSkinDBText7: TbsSkinDBText
          Left = 92
        end
      end
    end
  end
  inherited bsSkinPanel3: TbsSkinPanel
    inherited bsSkinPanel8: TbsSkinPanel
      inherited bsSkinDBGrid1: TbsSkinDBGrid
        Columns = <
          item
            Expanded = False
            FieldName = 'fid'
            Title.Caption = #20018#21495#27969#27700#21495
            Width = 80
            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>
      end
    end
  end
  inherited spsave: TADOStoredProc
    ProcedureName = 'pGtlh;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 = '@hrxxid'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
        Value = Null
      end
      item
        Name = '@gtid'
        Attributes = [paNullable]
        DataType = ftString
        Size = 4
        Value = Null
      end
      item
        Name = '@gtlhid'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
        Value = Null
      end
      item
        Name = '@mon'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
        Value = Null
      end
      item
        Name = '@Date'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@memo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 200
        Value = Null
      end
      item
        Name = '@OutNumber'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 13
        Value = Null
      end>
    Left = 280
    Top = 272
  end
  inherited spdisp: TADOStoredProc
    ProcedureName = 'pViewAllGtlhNoSaleNoTh;1'
    Left = 296
    Top = 360
  end
  inherited ds_disp: TDataSource
    Left = 256
    Top = 352
  end
  inherited sp_view: TADOStoredProc
    ProcedureName = 'pViewNOtSNOtLNOtTSJ;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 = '@val'
        Attributes = [paNullable]
        DataType = ftString
        Size = 16
        Value = Null
      end>
  end
  object tbl_gt: TADOTable
    Connection = dm.ADOConnection1
    TableName = 'tgt'
    Left = 642
    Top = 282
  end
  object ds_gt: TDataSource
    DataSet = tbl_gt
    Left = 674
    Top = 218
  end
end