uencoderform.dfm

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

      object e70: TEdit
        Tag = 70
        Left = 542
        Top = 176
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 32
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e80: TEdit
        Tag = 80
        Left = 542
        Top = 200
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 33
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e2: TEdit
        Tag = 2
        Left = 94
        Top = 32
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 34
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e12: TEdit
        Tag = 12
        Left = 94
        Top = 56
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 35
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e22: TEdit
        Tag = 22
        Left = 94
        Top = 80
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 36
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e32: TEdit
        Tag = 32
        Left = 94
        Top = 104
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 37
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e42: TEdit
        Tag = 42
        Left = 94
        Top = 128
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 38
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e52: TEdit
        Tag = 52
        Left = 94
        Top = 152
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 39
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e62: TEdit
        Tag = 62
        Left = 94
        Top = 176
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 40
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e72: TEdit
        Tag = 72
        Left = 94
        Top = 200
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 41
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e4: TEdit
        Tag = 4
        Left = 206
        Top = 32
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 42
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e14: TEdit
        Tag = 14
        Left = 206
        Top = 56
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 43
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e24: TEdit
        Tag = 24
        Left = 206
        Top = 80
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 44
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e34: TEdit
        Tag = 34
        Left = 206
        Top = 104
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 45
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e44: TEdit
        Tag = 44
        Left = 206
        Top = 128
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 46
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e54: TEdit
        Tag = 54
        Left = 206
        Top = 152
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 47
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e64: TEdit
        Tag = 64
        Left = 206
        Top = 176
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 48
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e74: TEdit
        Tag = 74
        Left = 206
        Top = 200
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 49
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e3: TEdit
        Tag = 3
        Left = 150
        Top = 32
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 50
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e13: TEdit
        Tag = 13
        Left = 150
        Top = 56
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 51
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e23: TEdit
        Tag = 23
        Left = 150
        Top = 80
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 52
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e33: TEdit
        Tag = 33
        Left = 150
        Top = 104
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 53
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e43: TEdit
        Tag = 43
        Left = 150
        Top = 128
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 54
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e53: TEdit
        Tag = 53
        Left = 150
        Top = 152
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 55
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e63: TEdit
        Tag = 63
        Left = 150
        Top = 176
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 56
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e73: TEdit
        Tag = 73
        Left = 150
        Top = 200
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 57
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e6: TEdit
        Tag = 6
        Left = 318
        Top = 32
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 58
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e16: TEdit
        Tag = 16
        Left = 318
        Top = 56
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 59
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e26: TEdit
        Tag = 26
        Left = 318
        Top = 80
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 60
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e36: TEdit
        Tag = 36
        Left = 318
        Top = 104
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 61
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e46: TEdit
        Tag = 46
        Left = 318
        Top = 128
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 62
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e56: TEdit
        Tag = 56
        Left = 318
        Top = 152
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 63
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e66: TEdit
        Tag = 66
        Left = 318
        Top = 176
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 64
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e76: TEdit
        Tag = 76
        Left = 318
        Top = 200
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 65
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e5: TEdit
        Tag = 5
        Left = 262
        Top = 32
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 66
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e15: TEdit
        Tag = 15
        Left = 262
        Top = 56
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 67
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e25: TEdit
        Tag = 25
        Left = 262
        Top = 80
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 68
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e35: TEdit
        Tag = 35
        Left = 262
        Top = 104
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 69
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e45: TEdit
        Tag = 45
        Left = 262
        Top = 128
        Width = 49