update_pass.dfm

汽配前台收费,一个具有详细功能的小系统

object frm_update_pass: Tfrm_update_pass
  Left = 287
  Top = 128
  BorderStyle = bsDialog
  Caption = #23494#30721#20462#25913
  ClientHeight = 149
  ClientWidth = 189
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 4
    Top = 34
    Width = 180
    Height = 77
    BevelInner = bvLowered
    TabOrder = 0
    object Label2: TLabel
      Left = 21
      Top = 9
      Width = 46
      Height = 13
      Caption = #26087#23494#30721':'
    end
    object Label3: TLabel
      Left = 21
      Top = 31
      Width = 46
      Height = 13
      Caption = #26032#23494#30721':'
    end
    object Label4: TLabel
      Left = 8
      Top = 53
      Width = 59
      Height = 13
      Caption = #23494#30721#26657#39564':'
    end
    object txt_old: TMaskEdit
      Tag = 1
      Left = 69
      Top = 6
      Width = 104
      Height = 21
      MaxLength = 10
      PasswordChar = '*'
      TabOrder = 0
      OnKeyPress = controlKeyPress
    end
    object txt_new: TMaskEdit
      Tag = 2
      Left = 69
      Top = 28
      Width = 104
      Height = 21
      MaxLength = 10
      PasswordChar = '*'
      TabOrder = 1
      OnKeyPress = controlKeyPress
    end
    object txt_jy: TMaskEdit
      Tag = 3
      Left = 69
      Top = 50
      Width = 104
      Height = 21
      MaxLength = 10
      PasswordChar = '*'
      TabOrder = 2
    end
  end
  object cmdOK: TBitBtn
    Left = 5
    Top = 118
    Width = 65
    Height = 25
    Caption = #30830#23450
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = cmdOKClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      555555555555555555555555555555555555555555FF55555555555559055555
      55555555577FF5555555555599905555555555557777F5555555555599905555
      555555557777FF5555555559999905555555555777777F555555559999990555
      5555557777777FF5555557990599905555555777757777F55555790555599055
      55557775555777FF5555555555599905555555555557777F5555555555559905
      555555555555777FF5555555555559905555555555555777FF55555555555579
      05555555555555777FF5555555555557905555555555555777FF555555555555
      5990555555555555577755555555555555555555555555555555}
    NumGlyphs = 2
  end
  object cmdCancel: TBitBtn
    Left = 119
    Top = 118
    Width = 65
    Height = 25
    Cancel = True
    Caption = #21462#28040
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = cmdCancelClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000C40E0000C40E00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      555555555555555555555555555555555555555555FF55555555555559055555
      55555555577FF5555555555599905555555555557777F5555555555599905555
      555555557777FF5555555559999905555555555777777F555555559999990555
      9955557777777FF5555557990599905995555777757777F55555790555599059
      55557775555777FF5555555555599995555555555557777F5555555555559905
      555555555555777FF5555555555599905555555555555777FF55555555595579
      05555555555555777FF5555555955557905555555555555777FF555555555555
      5990555555555555577755555555555555555555555555555555}
    NumGlyphs = 2
  end
  object Panel2: TPanel
    Left = 4
    Top = 2
    Width = 180
    Height = 34
    BevelInner = bvLowered
    TabOrder = 3
    object Label1: TLabel
      Left = 8
      Top = 10
      Width = 59
      Height = 13
      Caption = #29992#25143#21517#31216':'
    end
    object txt_name: TEdit
      Left = 69
      Top = 6
      Width = 104
      Height = 21
      Color = clMenu
      MaxLength = 10
      ReadOnly = True
      TabOrder = 0
    end
  end
  object sp_update_user_pass: TStoredProc
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    StoredProcName = 'UPDATE_USER_PASS;1'
    Left = 76
    Top = 111
    ParamData = <
      item
        DataType = ftString
        Name = '@iuser_name'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@iuser_password'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = '@iuser_group'
        ParamType = ptInput
      end>
  end
end