glch_un.dfm

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

    object bsSkinSpeedButton5: TbsSkinSpeedButton
      Left = 1
      Top = 1
      Width = 35
      Height = 20
      Hint = #39318#26465
      SkinData = bsSkinData1
      SkinDataName = 'resizebutton'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = 'Arial'
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 0
      UseSkinFont = True
      WidthWithCaption = 0
      WidthWithoutCaption = 0
      ImageIndex = 8
      RepeatMode = False
      RepeatInterval = 100
      Transparent = False
      Flat = False
      AllowAllUp = False
      Down = False
      GroupIndex = 0
      ShowCaption = True
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        1800000000000003000000000000000000000000000000000000FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FF7B00007B0000FF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FF7B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        7B00007B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7B00007B0000FF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FF7B00007B0000FF00FFFF00FFFF00FFFF
        00FFFF00FF7B00007B00007B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        7B00007B0000FF00FFFF00FFFF00FFFF00FF7B00007B00007B00007B0000FF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FF7B00007B0000FF00FFFF00FFFF00FF7B
        00007B00007B00007B00007B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        7B00007B0000FF00FFFF00FF7B00007B00007B00007B00007B00007B0000FF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FF7B00007B0000FF00FF7B00007B00007B
        00007B00007B00007B00007B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        7B00007B0000FF00FFFF00FF7B00007B00007B00007B00007B00007B0000FF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FF7B00007B0000FF00FFFF00FFFF00FF7B
        00007B00007B00007B00007B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        7B00007B0000FF00FFFF00FFFF00FFFF00FF7B00007B00007B00007B0000FF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FF7B00007B0000FF00FFFF00FFFF00FFFF
        00FFFF00FF7B00007B00007B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        7B00007B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7B00007B0000FF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FF7B00007B0000FF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FF7B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
      NumGlyphs = 1
      Spacing = 1
      Layout = blGlyphTop
      OnClick = bsSkinSpeedButton5Click
    end
    object bsSkinSpeedButton6: TbsSkinSpeedButton
      Left = 30
      Top = 1
      Width = 35
      Height = 20
      Hint = #19978#26465
      SkinData = bsSkinData1
      SkinDataName = 'resizebutton'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = 'Arial'
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 0
      UseSkinFont = True
      WidthWithCaption = 0
      WidthWithoutCaption = 0
      ImageIndex = 9
      RepeatMode = False
      RepeatInterval = 100
      Transparent = False
      Flat = False
      AllowAllUp = False
      Down = False
      GroupIndex = 0
      ShowCaption = True
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        1800000000000003000000000000000000000000000000000000FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FF7B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7B00007B0000FF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FF7B00007B00007B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7B00007B00007B00007B0000FF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7B
        00007B00007B00007B00007B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FF7B00007B00007B00007B00007B00007B0000FF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7B00007B00007B
        00007B00007B00007B00007B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FF7B00007B00007B00007B00007B00007B0000FF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7B
        00007B00007B00007B00007B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7B00007B00007B00007B0000FF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FF7B00007B00007B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7B00007B0000FF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FF7B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
      NumGlyphs = 1
      Spacing = 1
      Layout = blGlyphTop
      OnClick = bsSkinSpeedButton6Click
    end
    object bsSkinSpeedButton7: TbsSkinSpeedButton
      Left = 60
      Top = 1
      Width = 35
      Height = 20
      Hint = #19979#26465
      SkinData = bsSkinData1
      SkinDataName = 'resizebutton'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = 'Arial'
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 0
      UseSkinFont = True
      WidthWithCaption = 0
      WidthWithoutCaption = 0
      ImageIndex = 10
      RepeatMode = False
      RepeatInterval = 100
      Transparent = False
      Flat = False
      AllowAllUp = False
      Down = False
      GroupIndex = 0
      ShowCaption = True
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        1800000000000003000000000000000000000000000000000000FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7B0000FF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FF7B00007B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7B00007B00007B0000FF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FF7B00007B00007B00007B0000FF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7B00007B00007B00007B
        00007B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FF7B00007B00007B00007B00007B00007B0000FF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7B00007B00007B00007B
        00007B00007B00007B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FF7B00007B00007B00007B00007B00007B0000FF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7B00007B00007B00007B
        00007B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FF7B00007B00007B00007B0000FF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7B00007B00007B0000FF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FF7B00007B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7B0000FF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
      NumGlyphs = 1
      Spacing = 1
      Layout = blGlyphTop
      OnClick = bsSkinSpeedButton7Click
    end
    object bsSkinSpeedButton8: TbsSkinSpeedButton
      Left = 89
      Top = 1
      Width = 35
      Height = 20
      Hint = #26411#26465
      SkinData = bsSkinData1
      SkinDataName = 'resizebutton'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = 'Arial'
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 0
      UseSkinFont = True
      WidthWithCaption = 0
      WidthWithoutCaption = 0
      ImageIndex = 11
      RepeatMode = False
      RepeatInterval = 100
      Transparent = False
      Flat = False
      AllowAllUp = False
      Down = False
      GroupIndex = 0
      ShowCaption = True
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        1800000000000003000000000000000000000000000000000000FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7B0000FF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FF7B00007B0000FF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FF7B00007B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7B00
        007B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7B00007B00007B0000FF
        00FFFF00FFFF00FFFF00FFFF00FF7B00007B0000FF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FF7B00007B00007B00007B0000FF00FFFF00FFFF00FFFF00FF7B00
        007B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7B00007B00007B00007B
        00007B0000FF00FFFF00FFFF00FF7B00007B0000FF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FF7B00007B00007B00007B00007B00007B0000FF00FFFF00FF7B00
        007B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7B00007B00007B00007B
        00007B00007B00007B0000FF00FF7B00007B0000FF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FF7B00007B00007B00007B00007B00007B0000FF00FFFF00FF7B00
        007B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7B00007B00007B00007B
        00007B0000FF00FFFF00FFFF00FF7B00007B0000FF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FF7B00007B00007B00007B0000FF00FFFF00FFFF00FFFF00FF7B00
        007B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7B00007B00007B0000FF
        00FFFF00FFFF00FFFF00FFFF00FF7B00007B0000FF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FF7B00007B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7B00
        007B0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7B0000FF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FF7B00007B0000FF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
      NumGlyphs = 1
      Spacing = 1
      Layout = blGlyphTop
      OnClick = bsSkinSpeedButton8Click
    end
  end
  inherited bsBusinessSkinForm1: TbsBusinessSkinForm
    Left = 32
    Top = 112
  end
  inherited bsSkinData1: TbsSkinData
    Left = 56
    Top = 112
  end
  inherited bsSkinMessage1: TbsSkinMessage
    Left = 80
    Top = 112
  end
  object ADOQuery1: TADOQuery
    Connection = dm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tgt'
      'where tgt.fuse='#39'T'#39
      'order by tgt.fid')
    Left = 8
    Top = 80
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 48
    Top = 80
  end
  object spgtlh: TADOStoredProc
    Connection = dm.ADOConnection1
    ProcedureName = 'pGtlh;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@IDType'
        Attributes = [paNullable]
        DataType = ftString
        Size = 2
        Value = Null
      end
      item
        Name = '@numb'
        Attributes = [paNullable]
        DataType = ftInteger
        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 = '@OutNumber'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 13
        Value = Null
      end>
    Left = 80
    Top = 80
  end
  object bsSkinHint1: TbsSkinHint
    SkinData = bsSkinData1
    Active = True
    AlphaBlend = False
    AlphaBlendValue = 0
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = -11
    DefaultFont.Name = 'MS Sans Serif'
    DefaultFont.Style = []
    UseSkinFont = True
    Left = 40
    Top = 56
  end
end