updatepw.dfm

房屋出租信息管理系统,房屋出租信息的录入、查询、删除以及用户管理等功能

object UpdatePWForm: TUpdatePWForm
  Left = 366
  Top = 191
  BorderStyle = bsDialog
  Caption = #20462#25913#30331#24405#23494#30721
  ClientHeight = 192
  ClientWidth = 365
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Lbl_old_password: TLabel
    Left = 102
    Top = 28
    Width = 120
    Height = 12
    Caption = #35831#36755#20837#26087#23494#30721'        '
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object lbl_new_password: TLabel
    Left = 101
    Top = 64
    Width = 120
    Height = 12
    Caption = #35831#36755#20837#26032#23494#30721'        '
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object lbl_check_new_password: TLabel
    Left = 78
    Top = 100
    Width = 132
    Height = 12
    Caption = #35831#30830#35748#20320#30340#26032#23494#30721'      '
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Image1: TImage
    Left = 26
    Top = 45
    Width = 36
    Height = 34
    Picture.Data = {
      055449636F6E0000010001002020100000000000E80200001600000028000000
      2000000040000000010004000000000080020000000000000000000000000000
      0000000000000000000080000080000000808000800000008000800080800000
      80808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
      FFFFFF0000000000000000000000000000000000000000000000088000000000
      00000000000000000000F8780000000000000000000000088007087800000000
      0000000000000778880078780000000000000000000007F8787F887800000000
      00007000000007F87807F878000000000007B330000000087800087800000000
      0700BB70000000787800787800000000733BB70000007F88787F887800000000
      7BBB7030000007F8787F8878000000700BB70300000000087807F87800000733
      BB703000000000787807F87700007BBBB703000000007F88787F88F700007BBB
      7030000000007F8877F88F887000BBB703000000000007F87F88F000000BBB70
      30000000000007F7F8800777777BB7030000000000007F7F88077BBBBBBB7030
      000000000007F87F807BBBBBBBB8B30000000000007F887F80BBBB8B8B8B8300
      0000000007F88F7F0BBBB0B0B8B8B300000000007F88F87F7BBBBB0B0B8B8300
      000000007F888F877BBBBBB0B0B8B300000000007F88F8007BBB770B0B0B8300
      000000007F88807F7BB00880B0B83000000000007F88F0787BB00080BBB83000
      0000000007F8807707B00700BB83000000000000007F88000877000BB3300000
      000000000007FFF0787088883000000000000000000077707770777700000000
      0000000000000000700070000000000000000000000000000000000000000000
      00000000FFF9FFFFFFF0FFFFFE607FFFFC007FFFF8007FFFF8007FF1F8007FE0
      FC107F80F8007F00F0007F00F8007C01FC007803F8007007F000700FF000201F
      F800003FF800007FF00000FFE00001FFC00001FF800001FF000001FF000001FF
      000001FF000803FF000403FF800207FFC0000FFFE0001FFFF0107FFFFE73FFFF
      FF07FFFF}
  end
  object EditOld: TEdit
    Left = 193
    Top = 24
    Width = 121
    Height = 20
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    PasswordChar = '*'
    TabOrder = 0
  end
  object EditNew: TEdit
    Left = 193
    Top = 60
    Width = 121
    Height = 20
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    PasswordChar = '*'
    TabOrder = 1
  end
  object EditConfirm: TEdit
    Left = 193
    Top = 96
    Width = 121
    Height = 20
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    PasswordChar = '*'
    TabOrder = 2
  end
  object Btn_ok: TButton
    Left = 153
    Top = 140
    Width = 75
    Height = 25
    Caption = #30830#35748
    Default = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = Btn_okClick
  end
  object Btn_cancel: TButton
    Left = 254
    Top = 140
    Width = 75
    Height = 25
    Cancel = True
    Caption = #21462#28040
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = Btn_cancelClick
  end
  object ADOQry_update: TADOQuery
    Connection = DB_module.ADOCon
    Parameters = <
      item
        Name = 'password'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'OLD_password'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'username'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      'update login_user set user_password=:password '
      'where user_password=:OLD_password and user_loginname=:username'
      '')
    Left = 45
    Top = 128
  end
end