change_un.dfm

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

inherited change_frm: Tchange_frm
  Left = 286
  Top = 183
  BorderStyle = bsDialog
  Caption = #26356#25913#23494#30721
  ClientHeight = 211
  ClientWidth = 252
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object bsSkinStdLabel1: TbsSkinStdLabel [0]
    Left = 40
    Top = 24
    Width = 78
    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'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Caption = #36873#25321#29992#25143#21517#65306
    ParentFont = False
  end
  object bsSkinStdLabel2: TbsSkinStdLabel [1]
    Left = 40
    Top = 104
    Width = 78
    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'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Caption = #36755#20837#26032#23494#30721#65306
    ParentFont = False
  end
  object bsSkinStdLabel3: TbsSkinStdLabel [2]
    Left = 40
    Top = 64
    Width = 78
    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'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Caption = #36755#20837#21407#23494#30721#65306
    ParentFont = False
  end
  object bsSkinPasswordEdit1: TbsSkinPasswordEdit [3]
    Left = 88
    Top = 120
    Width = 121
    Height = 21
    Cursor = crIBeam
    TabOrder = 2
    SkinData = bsSkinData1
    SkinDataName = 'edit'
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = 14
    DefaultFont.Name = 'Arial'
    DefaultFont.Style = []
    DefaultWidth = 0
    DefaultHeight = 21
    UseSkinFont = True
    PasswordKind = pkRoundRect
  end
  object bsSkinButton1: TbsSkinButton [4]
    Left = 72
    Top = 160
    Width = 60
    Height = 25
    TabOrder = 3
    SkinDataName = 'button'
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = 14
    DefaultFont.Name = 'Arial'
    DefaultFont.Style = []
    DefaultWidth = 0
    DefaultHeight = 0
    UseSkinFont = True
    RepeatMode = False
    RepeatInterval = 100
    AllowAllUp = False
    TabStop = True
    CanFocused = True
    Down = False
    GroupIndex = 0
    Caption = #26356#25913
    NumGlyphs = 1
    Spacing = 1
    OnClick = bsSkinButton1Click
    OnKeyPress = bsSkinButton1KeyPress
  end
  object bsSkinButton2: TbsSkinButton [5]
    Left = 152
    Top = 160
    Width = 60
    Height = 25
    TabOrder = 4
    SkinDataName = 'button'
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = 14
    DefaultFont.Name = 'Arial'
    DefaultFont.Style = []
    DefaultWidth = 0
    DefaultHeight = 0
    UseSkinFont = True
    RepeatMode = False
    RepeatInterval = 100
    AllowAllUp = False
    TabStop = True
    CanFocused = True
    Down = False
    GroupIndex = 0
    Caption = #20851#38381
    NumGlyphs = 1
    Spacing = 1
    OnClick = bsSkinButton2Click
  end
  object bsSkinPasswordEdit2: TbsSkinPasswordEdit [6]
    Left = 88
    Top = 80
    Width = 121
    Height = 21
    Cursor = crIBeam
    TabOrder = 1
    SkinData = bsSkinData1
    SkinDataName = 'edit'
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = 14
    DefaultFont.Name = 'Arial'
    DefaultFont.Style = []
    DefaultWidth = 0
    DefaultHeight = 21
    UseSkinFont = True
    PasswordKind = pkRoundRect
  end
  object bsSkinDBLookupComboBox4: TbsSkinDBLookupComboBox [7]
    Left = 85
    Top = 40
    Width = 124
    Height = 20
    TabOrder = 0
    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 = 'fid'
    ListSource = ds_account
  end
  inherited bsBusinessSkinForm1: TbsBusinessSkinForm
    Left = 392
  end
  inherited bsSkinData1: TbsSkinData
    Left = 432
  end
  inherited bsSkinMessage1: TbsSkinMessage
    Left = 480
  end
  object tbl_account: TADOTable
    Connection = dm.ADOConnection1
    TableName = 'taccount'
    Left = 184
    Top = 8
  end
  object ds_account: TDataSource
    DataSet = tbl_account
    OnDataChange = ds_accountDataChange
    Left = 152
    Top = 8
  end
  object ADOCommand1: TADOCommand
    CommandText = 'update taccount set pass=:pass where ltrim(rtrim(fid))=:user'
    Connection = dm.ADOConnection1
    Parameters = <
      item
        Name = 'pass'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'user'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    Left = 120
    Top = 8
  end
end