changekey.dfm

来自「1. 纯粹的合同管理,不涉及其它业务,独立成系统2. 简单明了,流程清析3. 合」· DFM 代码 · 共 100 行

inherited ChangeKeyForm: TChangeKeyForm
  Left = 226
  Top = 31
  Caption = #26356#25913#23494#30721
  PixelsPerInch = 96
  TextHeight = 12
  inherited palClient: TPanel
    inherited lbBtnOK: TLabelBtn
      Left = 192
      Top = 120
      OnClick = MIBtnOKClick
    end
    inherited lbBtnExit: TLabelBtn
      Left = 264
      Top = 120
      OnClick = imgCloseButtonClick
    end
    inherited MIBtnOK: TMoveImgBtn
      Left = 160
      Top = 112
      OnClick = MIBtnOKClick
    end
    inherited MIBtnExit: TMoveImgBtn
      Left = 232
      Top = 112
      OnClick = imgCloseButtonClick
    end
    object Label2: TLabel
      Left = 16
      Top = 12
      Width = 36
      Height = 12
      Caption = #21407#23494#30721
    end
    object Label1: TLabel
      Left = 16
      Top = 44
      Width = 36
      Height = 12
      Caption = #26032#23494#30721
    end
    object Label3: TLabel
      Left = 16
      Top = 76
      Width = 48
      Height = 12
      Caption = #23494#30721#30830#23450
    end
    object edtOldKey: TEdit
      Left = 72
      Top = 8
      Width = 217
      Height = 20
      PasswordChar = '*'
      TabOrder = 0
    end
    object edtNewKey: TEdit
      Left = 72
      Top = 40
      Width = 217
      Height = 20
      PasswordChar = '*'
      TabOrder = 1
    end
    object edtNewKey1: TEdit
      Left = 72
      Top = 72
      Width = 217
      Height = 20
      PasswordChar = '*'
      TabOrder = 2
    end
  end
  object ADOCommand1: TADOCommand
    CommandText = 
      'UPDATE AdminList'#13#10'SET adPassword=@adPassword'#13#10'WHERE adLoginName=' +
      '@adLoginName'
    Connection = DM.ADOCon
    Parameters = <
      item
        Name = '@adPassword'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
      end
      item
        Name = '@adLoginName'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
      end>
    Left = 24
    Top = 160
  end
end