sjxc_un.dfm

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

      DataField = 'fgl'
      Transparent = True
    end
    object bsSkinStdLabel34: TbsSkinStdLabel
      Left = 16
      Top = 167
      Width = 36
      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 = #21151#33021#65306
    end
    object bsSkinStdLabel36: TbsSkinStdLabel
      Left = 16
      Top = 30
      Width = 96
      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 = #20018#21495#20837#24211#27969#27700#21495#65306
    end
    object bsSkinDBText17: TbsSkinDBText
      Left = 113
      Top = 30
      Width = 112
      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 = 'bsSkinDBText17'
      ParentFont = False
      ShowAccelChar = False
      DataField = 'fhrxxid'
      Transparent = True
    end
    object bsSkinStdLabel37: TbsSkinStdLabel
      Left = 16
      Top = 59
      Width = 60
      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 = #25163#26426#22411#21495#65306
    end
    object bsSkinStdLabel22: TbsSkinStdLabel
      Left = 224
      Top = 183
      Width = 36
      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 = #21151#33021#65306
      Visible = False
    end
    object bsSkinStdLabel23: TbsSkinStdLabel
      Left = 224
      Top = 199
      Width = 36
      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 = #21151#33021#65306
      Visible = False
    end
    object bsSkinStdLabel24: TbsSkinStdLabel
      Left = 224
      Top = 215
      Width = 36
      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 = #21151#33021#65306
      Visible = False
    end
    object bsSkinStdLabel25: TbsSkinStdLabel
      Left = 224
      Top = 167
      Width = 36
      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 = #21151#33021#65306
      Visible = False
    end
    object bssl_1: TbsSkinDBText
      Left = 80
      Top = 198
      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 = clWindowText
      Font.Height = -15
      Font.Name = #26032#23435#20307
      Font.Style = []
      AutoSize = True
      Caption = 'bssl_1'
      ParentFont = False
      ShowAccelChar = False
      Visible = False
      DataField = 'fmon'
      Transparent = True
    end
  end
  object bsSkinCheckRadioBox1: TbsSkinCheckRadioBox [16]
    Left = 446
    Top = 167
    Width = 161
    Height = 33
    TabOrder = 4
    SkinData = bsSkinData1
    SkinDataName = 'checkbox'
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clMaroon
    DefaultFont.Height = -16
    DefaultFont.Name = #26032#23435#20307
    DefaultFont.Style = [fsBold]
    DefaultWidth = 0
    DefaultHeight = 0
    UseSkinFont = True
    Images = dm.ilToolBtn
    ImageIndex = 12
    Flat = True
    TabStop = True
    CanFocused = True
    Radio = False
    Checked = False
    GroupIndex = 0
    Caption = #26159#21542#36873#20013#36825#37096#25163#26426
    OnClick = bsSkinCheckRadioBox1Click
  end
  object bsSkinGroupBox1: TbsSkinGroupBox [17]
    Left = 444
    Top = 64
    Width = 169
    Height = 105
    TabOrder = 6
    SkinData = bsSkinData1
    SkinDataName = 'groupbox'
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = 14
    DefaultFont.Name = 'Arial'
    DefaultFont.Style = []
    DefaultWidth = 0
    DefaultHeight = 0
    UseSkinFont = True
    RealHeight = -1
    AutoEnabledControls = True
    CheckedMode = False
    Checked = False
    DefaultAlignment = taLeftJustify
    DefaultCaptionHeight = 22
    BorderStyle = bvFrame
    CaptionMode = True
    RollUpMode = False
    RollUpState = False
    NumGlyphs = 1
    Spacing = 2
    Caption = #21806#21518#26381#21153#24773#20917#65306
    object bsSkinStdLabel38: TbsSkinStdLabel
      Left = 44
      Top = 79
      Width = 90
      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 = #24180#36136#20445'('#21378#23478#32500#20462')'
    end
    object bsSkinStdLabel39: TbsSkinStdLabel
      Left = 44
      Top = 59
      Width = 120
      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 = #22825#25216#26415#21407#22240#25442#21516#22411#21495#26426
    end
    object bsSkinStdLabel40: TbsSkinStdLabel
      Left = 44
      Top = 35
      Width = 72
      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 = #22825#26080#26465#20214#36864#36135
    end
    object bsSkinDBEdit4: TbsSkinDBEdit
      Left = 8
      Top = 28
      Width = 33
      Height = 20
      Text = 'bsSkinDBEdit4'
      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 = clGrayText
      Font.Height = 14
      Font.Name = 'Arial'
      Font.Style = []
      Enabled = False
      ParentFont = False
      TabOrder = 0
      AutoSize = False
      DataField = 'fth'
      DataSource = ds_sjxc
    end
    object bsSkinDBEdit5: TbsSkinDBEdit
      Left = 8
      Top = 51
      Width = 33
      Height = 20
      Text = 'bsSkinDBEdit5'
      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 = clGrayText
      Font.Height = 14
      Font.Name = 'Arial'
      Font.Style = []
      Enabled = False
      ParentFont = False
      TabOrder = 1
      AutoSize = False
      DataField = 'fhj'
      DataSource = ds_sjxc
    end
    object bsSkinDBEdit6: TbsSkinDBEdit
      Left = 8
      Top = 77
      Width = 33
      Height = 20
      Text = 'bsSkinDBEdit6'
      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 = clGrayText
      Font.Height = 14
      Font.Name = 'Arial'
      Font.Style = []
      Enabled = False
      ParentFont = False
      TabOrder = 2
      AutoSize = False
      DataField = 'fzb'
      DataSource = ds_sjxc
    end
  end
  inherited bsBusinessSkinForm1: TbsBusinessSkinForm
    Left = 376
    Top = 0
  end
  inherited bsSkinData1: TbsSkinData
    Left = 416
    Top = 0
  end
  inherited bsSkinMessage1: TbsSkinMessage
    Left = 336
    Top = 0
  end
  object spsjxc: TADOStoredProc
    Connection = dm.ADOConnection1
    CursorType = ctStatic
    AfterOpen = spsjxcAfterOpen
    ProcedureName = 'pdispsjcx;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@fid'
        Attributes = [paNullable]
        DataType = ftString
        Size = 5
        Value = Null
      end>
    Left = 65
    Top = 234
  end
  object ds_sjxc: TDataSource
    DataSet = spsjxc
    Left = 97
    Top = 234
  end
  object qry_sjcs: TADOQuery
    Connection = dm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tsjcs'
      'where tsjcs.fuse='#39'T'#39
      'order by tsjcs.fna')
    Left = 41
    Top = 186
  end
  object ds_sjcs: TDataSource
    DataSet = qry_sjcs
    Left = 9
    Top = 186
  end
  object ds_sjxh: TDataSource
    DataSet = tbl_sjxh
    Left = 105
    Top = 186
  end
  object tbl_sjxh: TADOQuery
    Connection = dm.ADOConnection1
    CursorType = ctStatic
    DataSource = ds_sjcs
    Parameters = <
      item
        Name = 'fid'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 4
        Value = 'CS02'
      end>
    SQL.Strings = (
      'select * from tsjxh '
      'where tsjxh.fuse='#39'T'#39'  and tsjxh.fsjcs=:fid')
    Left = 73
    Top = 182
  end
  object tbl_hxc: TADOTable
    Connection = dm.ADOConnection1
    CursorType = ctStatic
    MaxRecords = 1
    TableName = 'thxc'
    Left = 270
    Top = 258
  end
  object ds_hxc: TDataSource
    DataSet = tbl_hxc
    Left = 239
    Top = 255
  end
  object tbl_ygzl: TADOTable
    Connection = dm.ADOConnection1
    TableName = 'tygzl'
    Left = 335
    Top = 255
  end
  object ds_ygzl: TDataSource
    DataSet = tbl_ygzl
    Left = 367
    Top = 255
  end
  object spgetid: TADOStoredProc
    Connection = dm.ADOConnection1
    ProcedureName = 'pGetId;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@IDType'
        Attributes = [paNullable]
        DataType = ftWideString
        Size = 2
        Value = Null
      end
      item
        Name = '@numb'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@OutNumber'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 13
        Value = Null
      end>
    Left = 303
    Top = 255
  end
end