gzjfh_un.dfm

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

        Text = '0'
        ValueType = vtInteger
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = 'Arial'
        DefaultFont.Style = []
        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 = 15
        OnChange = bsSkinNumericEdit1Change
      end
      object bsSkinCheckRadioBox2: TbsSkinCheckRadioBox
        Left = 397
        Top = 25
        Width = 100
        Height = 25
        TabOrder = 5
        SkinData = bsSkinData1
        SkinDataName = 'checkbox'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = 'Arial'
        DefaultFont.Style = []
        DefaultWidth = 0
        DefaultHeight = 0
        UseSkinFont = True
        ImageIndex = 0
        Flat = True
        TabStop = True
        CanFocused = True
        Radio = False
        Checked = False
        GroupIndex = 0
        Caption = #38656#35201#34917#20215
        OnClick = bsSkinCheckRadioBox2Click
      end
      object bsSkinMemo1: TbsSkinMemo
        Left = 394
        Top = 49
        Width = 185
        Height = 91
        BevelInner = bvLowered
        BevelKind = bkFlat
        BevelOuter = bvRaised
        BorderStyle = bsNone
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -17
        Font.Name = #23435#20307
        Font.Style = []
        Lines.Strings = (
          'bsSkinMemo1')
        ParentColor = True
        ParentFont = False
        TabOrder = 11
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clGreen
        DefaultFont.Height = -17
        DefaultFont.Name = #23435#20307
        DefaultFont.Style = []
        UseSkinFont = True
        BitMapBG = False
        SkinData = bsSkinData1
        SkinDataName = 'memo'
      end
      object bsSkinCheckRadioBox3: TbsSkinCheckRadioBox
        Left = 477
        Top = 25
        Width = 100
        Height = 20
        TabOrder = 6
        SkinData = bsSkinData1
        SkinDataName = 'checkbox'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = 'Arial'
        DefaultFont.Style = []
        DefaultWidth = 0
        DefaultHeight = 0
        UseSkinFont = True
        ImageIndex = 0
        Flat = True
        CanFocused = False
        Radio = False
        Checked = False
        GroupIndex = 0
        Caption = #21407#26426#26410#25439#22351
        OnClick = bsSkinCheckRadioBox3Click
      end
    end
  end
  inherited bsSkinGroupBox2: TbsSkinGroupBox
    Top = 360
    Width = 590
    Height = 143
    TabOrder = 4
    Align = alBottom
    inherited bsSkinDBGrid2: TbsSkinDBGrid
      Width = 569
      Height = 100
      Columns = <
        item
          Expanded = False
          FieldName = 'fid'
          Title.Caption = #21378#23478#36820#22238#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 = #25163#26426#39068#33394
          Width = 43
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fjbpz'
          Title.Caption = #22522#26412#37197#32622
          Width = 57
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fhylx'
          Title.Caption = #36135#28304#31867#22411
          Width = 52
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fdate'
          Title.Caption = #36827#36135#26085#26399
          Width = 59
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fgl'
          Title.Caption = #22522#26412#21151#33021
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fmemo'
          Title.Caption = #22791#27880
          Width = 60
          Visible = True
        end>
    end
    inherited bsSkinScrollBar1: TbsSkinScrollBar
      Left = 570
      Height = 100
    end
    inherited bsSkinScrollBar2: TbsSkinScrollBar
      Top = 123
      Width = 588
    end
  end
  inherited bsBusinessSkinForm1: TbsBusinessSkinForm
    DefCaptionFont.Height = -13
    DefCaptionFont.Name = #26032#23435#20307
    DefCaptionFont.Style = []
    Left = 496
    Top = 104
  end
  inherited bsSkinData1: TbsSkinData
    Left = 464
    Top = 104
  end
  inherited bsSkinMessage1: TbsSkinMessage
    Left = 528
    Top = 104
  end
  inherited ALToolbar: TActionList
    Left = 560
    Top = 104
  end
  inherited spsave: TADOStoredProc
    ProcedureName = 'pSjrcDetail;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@VAct'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@VModel'
        Attributes = [paNullable]
        DataType = ftString
        Size = 5
        Value = Null
      end
      item
        Name = '@VColor'
        Attributes = [paNullable]
        DataType = ftString
        Size = 4
        Value = Null
      end
      item
        Name = '@VJbpz'
        Attributes = [paNullable]
        DataType = ftString
        Size = 3
        Value = Null
      end
      item
        Name = '@VId'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
        Value = Null
      end
      item
        Name = '@VNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 16
        Value = Null
      end
      item
        Name = '@VMoney'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@VGl'
        Attributes = [paNullable]
        DataType = ftString
        Size = 200
        Value = Null
      end
      item
        Name = '@VHyd'
        Attributes = [paNullable]
        DataType = ftString
        Size = 4
        Value = Null
      end
      item
        Name = '@VHylx'
        Attributes = [paNullable]
        DataType = ftString
        Size = 2
        Value = Null
      end
      item
        Name = '@dat'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@vbsid'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
        Value = Null
      end
      item
        Name = '@vcmon'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
        Value = Null
      end
      item
        Name = '@vomon'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
        Value = Null
      end>
    Left = 432
    Top = 104
  end
  inherited spdisp: TADOStoredProc
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@hylx'
        Attributes = [paNullable]
        DataType = ftString
        Size = 2
        Value = Null
      end>
    Left = 192
    Top = 208
  end
  inherited ds_disp: TDataSource
    Left = 160
    Top = 208
  end
  inherited tbl_sjcs: TADOQuery
    Active = False
  end
  object ds_hyd: TDataSource
    DataSet = ADOTable1
    Left = 401
    Top = 104
  end
  object ADOTable1: TADOQuery
    Connection = dm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from thyd where  thyd.fid>'#39'HY02'#39' and thyd.fuse='#39'T'#39)
    Left = 369
    Top = 104
  end
  object sp_bs: TADOStoredProc
    Active = True
    Connection = dm.ADOConnection1
    CursorType = ctStatic
    AfterOpen = sp_bsAfterOpen
    ProcedureName = 'pSjcjfhDispDetail;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end>
    Left = 336
    Top = 104
  end
  object ds_bs: TDataSource
    DataSet = sp_bs
    OnDataChange = ds_bsDataChange
    Left = 304
    Top = 104
  end
  object sp_hhddview: TADOStoredProc
    Connection = dm.ADOConnection1
    ProcedureName = 'pSjhhddViewDetail;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@fhrxx'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
        Value = Null
      end>
    Left = 393
    Top = 225
  end
end