uencoderform.dfm

工商银行限制了牡丹卡的网上交易功能.催着我们去各分行办领一张网上交易的通行证:口令卡 口令卡确实是一个好东东,但使用有点不方便.为此,我写了这个程序--你能将自己的口令保存为一个程序, 在

        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 70
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e55: TEdit
        Tag = 55
        Left = 262
        Top = 152
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 71
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e65: TEdit
        Tag = 65
        Left = 262
        Top = 176
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 72
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e75: TEdit
        Tag = 75
        Left = 262
        Top = 200
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 73
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e8: TEdit
        Tag = 8
        Left = 430
        Top = 32
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 74
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e18: TEdit
        Tag = 18
        Left = 430
        Top = 56
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 75
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e28: TEdit
        Tag = 28
        Left = 430
        Top = 80
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 76
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e38: TEdit
        Tag = 38
        Left = 430
        Top = 104
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 77
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e48: TEdit
        Tag = 48
        Left = 430
        Top = 128
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 78
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e58: TEdit
        Tag = 58
        Left = 430
        Top = 152
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 79
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e68: TEdit
        Tag = 68
        Left = 430
        Top = 176
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 80
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e78: TEdit
        Tag = 78
        Left = 430
        Top = 200
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 81
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e7: TEdit
        Tag = 7
        Left = 374
        Top = 32
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 82
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e17: TEdit
        Tag = 17
        Left = 374
        Top = 56
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 83
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e27: TEdit
        Tag = 27
        Left = 374
        Top = 80
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 84
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e37: TEdit
        Tag = 37
        Left = 374
        Top = 104
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 85
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e47: TEdit
        Tag = 47
        Left = 374
        Top = 128
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 86
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e57: TEdit
        Tag = 57
        Left = 374
        Top = 152
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 87
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e67: TEdit
        Tag = 67
        Left = 374
        Top = 176
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 88
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e77: TEdit
        Tag = 77
        Left = 374
        Top = 200
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 89
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object K1: TEdit
        Tag = -1
        Left = 38
        Top = 8
        Width = 27
        Height = 20
        CharCase = ecLowerCase
        MaxLength = 1
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 1
        OnChange = K1Change
        OnKeyPress = K1KeyPress
      end
      object K2: TEdit
        Tag = -2
        Left = 94
        Top = 8
        Width = 27
        Height = 20
        CharCase = ecLowerCase
        MaxLength = 1
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 2
        OnChange = K1Change
        OnKeyPress = K1KeyPress
      end
      object K3: TEdit
        Tag = -3
        Left = 150
        Top = 8
        Width = 27
        Height = 20
        CharCase = ecLowerCase
        MaxLength = 1
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 3
        OnChange = K1Change
        OnKeyPress = K1KeyPress
      end
      object K4: TEdit
        Tag = -4
        Left = 206
        Top = 8
        Width = 27
        Height = 20
        CharCase = ecLowerCase
        MaxLength = 1
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 4
        OnChange = K1Change
        OnKeyPress = K1KeyPress
      end
      object K5: TEdit
        Tag = -5
        Left = 262
        Top = 8
        Width = 27
        Height = 20
        CharCase = ecLowerCase
        MaxLength = 1
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 5
        OnChange = K1Change
        OnKeyPress = K1KeyPress
      end
      object K6: TEdit
        Tag = -6
        Left = 318
        Top = 8
        Width = 27
        Height = 20
        CharCase = ecLowerCase
        MaxLength = 1
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 6
        OnChange = K1Change
        OnKeyPress = K1KeyPress
      end
      object K7: TEdit
        Tag = -7
        Left = 374
        Top = 8
        Width = 27
        Height = 20
        CharCase = ecLowerCase
        MaxLength = 1
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 7
        OnChange = K1Change
        OnKeyPress = K1KeyPress
      end
      object K8: TEdit
        Tag = -8
        Left = 430
        Top = 8
        Width = 27
        Height = 20
        CharCase = ecLowerCase
        MaxLength = 1
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 8
        OnChange = K1Change
        OnKeyPress = K1KeyPress
      end
      object K9: TEdit
        Tag = -9
        Left = 486
        Top = 8
        Width = 27
        Height = 20
        CharCase = ecLowerCase
        MaxLength = 1
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 9
        OnChange = K1Change
        OnKeyPress = K1KeyPress
      end
      object K10: TEdit
        Tag = -10
        Left = 542
        Top = 8
        Width = 27
        Height = 20
        CharCase = ecLowerCase
        MaxLength = 1
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 10
        OnChange = K1Change
        OnKeyPress = K1KeyPress
      end
      object HintPanel: TPanel
        Left = 112
        Top = 64
        Width = 401
        Height = 121
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Color = 15461355
        TabOrder = 90
        Visible = False
        object btn2: TSpeedButton
          Left = 312
          Top = 88
          Width = 65
          Height = 21
          Caption = #26126#30333'!'
          Flat = True
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          OnClick = btn2Click
        end
      end
    end
    object pnl2: TPanel
      Left = 168
      Top = 267
      Width = 425
      Height = 30
      BevelOuter = bvLowered
      TabOrder = 3
      object Button1: TButton
        Left = 263
        Top = 4
        Width = 75
        Height = 21
        Hint = #20445#23384#24037#20316','#24314#31435#23646#20110#20320#33258#24049#30340#31243#24207'.'
        Caption = #24314#36896
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = Button1Click
      end
      object btn1: TButton
        Left = 342
        Top = 4
        Width = 75
        Height = 21
        Hint = #20851#38381#31243#24207
        Caption = #20851#38381
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnClick = btn1Click
      end
      object Button2: TButton
        Left = 8
        Top = 4
        Width = 75
        Height = 21
        Hint = #20851#20110#36719#20214#30340#30456#20851#20449#24687
        Caption = #20851#20110
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 88
        Top = 4
        Width = 75
        Height = 21
        Hint = #31243#24207#20351#29992#35828#26126
        Caption = #38416#36848
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        OnClick = Button3Click
      end
      object Button4: TButton
        Left = 184
        Top = 4
        Width = 75
        Height = 21
        Hint = #20174#20197#21069#24314#31435#22909#30340#31243#24207#35835#21462#25968#25454
        Caption = #35835#21462
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        OnClick = Button4Click
      end
    end
  end
  object BitBtn1: TBitBtn
    Left = 480
    Top = 8
    Width = 75
    Height = 25
    TabOrder = 1
    Visible = False
    Kind = bkAbort
  end
  object PopupMenu1: TPopupMenu
    Left = 424
  end
end