cardwriteread.dfm

关于手持机的LCD显示模块的设计LCD的显示固定为每行16个字符

                Top = 24
                Width = 33
                Height = 13
                Caption = #23494#30721'A'
                Font.Charset = ANSI_CHARSET
                Font.Color = clWindowText
                Font.Height = -13
                Font.Name = #23435#20307
                Font.Style = []
                ParentFont = False
              end
              object Label18: TLabel
                Left = 20
                Top = 53
                Width = 33
                Height = 13
                Caption = #23494#30721'B'
                Font.Charset = ANSI_CHARSET
                Font.Color = clWindowText
                Font.Height = -13
                Font.Name = #23435#20307
                Font.Style = []
                ParentFont = False
              end
              object Edit1PasswordA: TEdit
                Left = 60
                Top = 20
                Width = 141
                Height = 21
                CharCase = ecUpperCase
                ImeName = #32043#20809#25340#38899#36755#20837#27861
                MaxLength = 12
                TabOrder = 0
                Text = 'FFFFFFFFFFFF'
              end
              object Edit1PasswordB: TEdit
                Left = 60
                Top = 49
                Width = 141
                Height = 21
                CharCase = ecUpperCase
                ImeName = #32043#20809#25340#38899#36755#20837#27861
                MaxLength = 12
                TabOrder = 1
                Text = 'FFFFFFFFFFFF'
              end
            end
            object GroupBox10: TGroupBox
              Left = 29
              Top = 114
              Width = 220
              Height = 63
              Caption = #25511#21046#20301
              TabOrder = 2
              object EditControlBIt: TEdit
                Left = 16
                Top = 23
                Width = 185
                Height = 21
                Font.Charset = ANSI_CHARSET
                Font.Color = clRed
                Font.Height = -13
                Font.Name = #23435#20307
                Font.Style = []
                ImeName = #32043#20809#25340#38899#36755#20837#27861
                MaxLength = 8
                ParentFont = False
                TabOrder = 0
                Text = 'FF078069'
              end
            end
            object BtnChangePass: TButton
              Left = 296
              Top = 128
              Width = 113
              Height = 33
              Caption = #20462#25913#23494#30721
              TabOrder = 3
              OnClick = BtnChangePassClick
            end
          end
        end
        object GroupBox5: TGroupBox
          Left = 480
          Top = 0
          Width = 521
          Height = 601
          TabOrder = 1
          object GroupBox13: TGroupBox
            Left = 0
            Top = 0
            Width = 521
            Height = 257
            Align = alCustom
            Caption = #38065#21253
            Color = clMenuBar
            ParentColor = False
            TabOrder = 0
            object Label1: TLabel
              Left = 56
              Top = 80
              Width = 52
              Height = 13
              Caption = #20889#20837#20540#65306
            end
            object Label5: TLabel
              Left = 56
              Top = 128
              Width = 52
              Height = 13
              Caption = #35835#20986#20540#65306
            end
            object Label8: TLabel
              Left = 168
              Top = 40
              Width = 39
              Height = 13
              Caption = #21313#36827#21046
            end
            object GroupBox16: TGroupBox
              Left = 337
              Top = 46
              Width = 104
              Height = 51
              Caption = #36873#25321#25159#21306#21495
              TabOrder = 0
              object cbPurseSec: TComboBox
                Left = 16
                Top = 19
                Width = 81
                Height = 21
                Style = csDropDownList
                ImeName = #32043#20809#25340#38899#36755#20837#27861
                ItemHeight = 13
                ItemIndex = 0
                TabOrder = 0
                Text = #31532'0'#25159#21306
                OnChange = cbPurseSecChange
                Items.Strings = (
                  #31532'0'#25159#21306
                  #31532'1'#25159#21306
                  #31532'2'#25159#21306
                  #31532'3'#25159#21306
                  #31532'4'#25159#21306
                  #31532'5'#25159#21306
                  #31532'6'#25159#21306
                  #31532'7'#25159#21306
                  #31532'8'#25159#21306
                  #31532'9'#25159#21306
                  #31532'10'#25159#21306
                  #31532'11'#25159#21306
                  #31532'12'#25159#21306
                  #31532'13'#25159#21306
                  #31532'14'#25159#21306
                  #31532'15'#25159#21306)
              end
            end
            object EditHexToIntShow: TEdit
              Left = 120
              Top = 80
              Width = 121
              Height = 21
              TabOrder = 1
              Text = '0'
              OnKeyPress = EditHexToIntShowKeyPress
            end
            object EditHexReadData: TEdit
              Left = 120
              Top = 128
              Width = 121
              Height = 21
              Font.Charset = ANSI_CHARSET
              Font.Color = clBlue
              Font.Height = -13
              Font.Name = #23435#20307
              Font.Style = [fsBold]
              MaxLength = 8
              ParentFont = False
              TabOrder = 2
              Text = '00000000'
            end
            object GroupBox15: TGroupBox
              Left = 336
              Top = 112
              Width = 105
              Height = 57
              Caption = #36873#25321#22359#21495
              TabOrder = 3
              object ComboBoxBlockSel: TComboBox
                Left = 8
                Top = 24
                Width = 89
                Height = 21
                ItemHeight = 13
                ItemIndex = 0
                TabOrder = 0
                Text = '0'
                Items.Strings = (
                  '0'
                  '1'
                  '2')
              end
            end
            object BtnInitPurse: TButton
              Left = 24
              Top = 208
              Width = 89
              Height = 33
              Caption = #21021#22987#21270
              TabOrder = 4
              OnClick = BtnInitPurseClick
            end
            object BtinInc: TButton
              Left = 152
              Top = 208
              Width = 89
              Height = 33
              Caption = #20805#20540
              TabOrder = 5
              OnClick = BtinIncClick
            end
            object BtnDec: TButton
              Left = 272
              Top = 208
              Width = 73
              Height = 33
              Caption = #25187#27454
              TabOrder = 6
              OnClick = BtnDecClick
            end
            object BtnReadPurse: TButton
              Left = 376
              Top = 208
              Width = 97
              Height = 33
              Caption = #35835#38065#21253
              TabOrder = 7
              OnClick = BtnReadPurseClick
            end
          end
          object GroupBox14: TGroupBox
            Left = 0
            Top = 296
            Width = 521
            Height = 305
            Caption = #22359#25805#20316#31383#21475
            TabOrder = 1
            object Label4: TLabel
              Left = 16
              Top = 56
              Width = 33
              Height = 13
              Caption = #22359'0'#65306
              Enabled = False
            end
            object Label6: TLabel
              Left = 16
              Top = 112
              Width = 33
              Height = 13
              Caption = #22359'1'#65306
            end
            object Label7: TLabel
              Left = 16
              Top = 160
              Width = 33
              Height = 13
              Caption = #22359'2'#65306
            end
            object Label11: TLabel
              Left = 16
              Top = 208
              Width = 33
              Height = 13
              Caption = #22359'3'#65306
            end