bank.dfm

Cash point simulator. You can add/remove/block users account, withdraw and deposit money. C++ Builde

object FBank: TFBank
  Left = 256
  Top = 174
  Width = 626
  Height = 482
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'Bank'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020000000000000A80800001600000028000000200000004000
    0000010008000000000000000000000000000000000000000000000000001039
    1800103921001042210018422100104229001842290021422900184A2900214A
    2900314A290021522900184A3100214A31001852310021523100295231003152
    310029633100316B310039733100184A3900215239002952390039523900295A
    3900315A3900395A39003163390039633900316B390039733900427B39002952
    4200215A4200295A4200315A4200395A42002963420031634200396342004263
    4200316B4200396B4200427B420031634A0039634A0042634A00396B4A00426B
    4A0039734A00397B4A00427B4A0052844A00528C4A003963520042635200316B
    5200396B5200426B52004A6B520039735200427352004A7352004A7B5200527B
    52004A8452005284520039735A0042735A004A735A0052735A00427B5A004A7B
    5A00527B5A004A845A0052845A005A845A00528C5A00427363004A7363005273
    6300427B63004A7B6300527B63004A846300528463005A846300528C63005A94
    630063A56300427B6B004A7B6B004A846B0052846B005A846B004A8C6B00528C
    6B005A8C6B00638C6B006B8C6B0063946B0052847300528C73005A8C7300638C
    73005A947300639473006B94730073947300639C73006BA573005A8C7B005A94
    7B0063947B006B947B00639C7B006B9C7B00739C7B006BA57B005A9484006394
    84006B948400639C84006B9C8400739C840063A584006BA5840073A584007BA5
    840073AD840063948C00639C8C006B9C8C00739C8C007B9C8C006BA58C0073A5
    8C007BA58C0073AD8C007BAD8C007BB58C0084B58C0084BD8C006BA5940073A5
    94007BA5940073AD94007BAD940084AD940073B594007BB5940084B5940084BD
    940073AD9C007BAD9C0084AD9C007BB59C0084B59C008CB59C007BBD9C0084BD
    9C008CBD9C007BB5A50084B5A5007BBDA50084BDA5008CBDA50094BDA50084C6
    A5008CC6A50094C6A50094CEA5007BBDAD0084BDAD008CBDAD008CC6AD0094C6
    AD0094CEAD009CCEAD009CD6AD008CBDB5008CC6B50094C6B50094CEB5009CCE
    B500A5CEB50094D6B5009CD6B50094C6BD009CC6BD0094CEBD009CCEBD00A5CE
    BD0094D6BD009CD6BD00A5D6BD00ADD6BD009CDEBD00A5DEBD00ADDEBD00A5CE
    C60094D6C6009CD6C600A5D6C600ADD6C6009CDEC600A5DEC600ADDEC600ADE7
    C6009CD6CE00A5D6CE00ADD6CE009CDECE00A5DECE00ADDECE00ADE7CE00A5DE
    D600ADDED600A5E7D600ADE7D600B5E7D600B5EFD600ADE7DE00B5E7DE00B5E7
    E700000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000007988
    A57B0C1587957A92669D26680DA7A69ABFAE90B0A6A59DBABFA6B14544462D9B
    7B53726A18B07A8A969D685C723AB0A7B8C6AB8DB1B2B6CEC2B6B5A6A7802255
    886772532C9CA87E9CA6B7395E0572B0A6551E4D308AAFCCDECACBCF6F394539
    747B2F5E049DAF9D8AA9BEB62C9E239E8B302B424A8ACBDCD5D6D6CA9A4E5C48
    538B68435EB6B6B0B6AFBECB86372326B29698A0A9BBAFA2D8CAC2A3AEB58744
    526893A3B5B6B5AFA6A6AFB8B937945366B8B7AFA0B7B0AE90672D215BB45D7A
    2D5E697AAEB5BFB0713A22457B7C2C2D5CB6AF9C90614839082F5E5382876888
    682C4E709BBCBD5E15262D4468A6B29B91663D26273A561A09635E3A849CBDDB
    BD443D5293BB9A6FA3A6A07F75685E3A190C285E48302D1C24492D0E8A6799D2
    D8AE719AB0C3B09D7A55432C5E626153305656404815395E3A2D3A207F53A3D5
    CBBEA7886853263D49556D553D533A3E53555E687A88947A5B7C305C7C5D9D84
    71462D685653566B55555D6767485D3D679494857387A393A379687154392F0F
    53646C3D16272368897C937C7F5D73847B7C7288A3A5A5A2AE60537F847B404C
    4556566A5E5368502E680F7BB7B7A6879D5D2060A56F9CAEAE5055854836496A
    7266535E9EA7233A9194680293B0AFB767398915A69DB6A7B452458548395566
    78849BC4C03A30528B749B145DBEB7AF16677C39B0A6A6A6852330903952D5D6
    CBB8CEC37C033E88B88B971645C2AEA314682E85A3ADA49D601545785261B196
    8AA0B8CF30243E8B7F6A71185EBFBCBD50237BAAA0A2A6AD7F225E909A71A9B2
    B8D6CB9D0F24278BA17B481861B8AFAEB1B0977E7D938767260784AFA2AEB8B0
    A3C2CA7B2327307C943027167CB0AF927E718A9D888A4B223B449CAFAF93A0A3
    93BFCD71262E289E75051A309DAA7387A396768A979E486B623C9ABFAF5B336A
    84BEC267460819303B080167B7A59B7B73717B7F44191B553A3A9266CB5B1F57
    97CEC27B240510063B273BB6BFAE9D7C71523A722D082771A2A685839CB81364
    A0CBC1A00C301A1A0C249ECCBE9153454F6836685E899EA7AFB8529B65B01197
    A3CDC2C1550108092772805E3A536153275B939BAEB0D6D5CBCA712C224F8CBB
    B6BCD4CFB986566230484F555326527CA1B8CEC0DFD6D5D9C988BF442644C3B6
    B76FBFCC9B3A2E7C19682144888D7B3DA5B0CA8FCAD9D8D2CAAFB9A739447CA6
    CF9B5E4F5E7C743D3D758E6D299E8A445BC2DCBFD2DFD5DAAFB04F47484F7C5E
    302394653E5393AB6E42353328AAB8482C72A5CBDAD2D9D6D9CEB927556B685E
    723B4888C2B8B297421C591D6BAFB9A7223D3888D3DBD6D7D7C3C4A10F8B3D2F
    72B0CBCBD9D9D1AF75413381CFC3C89D7B7C713DB6B0A3A690433D943D16A6B6
    D3D6DFD2D9D8D2B4B0D0C2CE9ABCA2AEBF619A534E8590949E793A3D270C0000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  OldCreateOrder = False
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Ramka: TGroupBox
    Left = 8
    Top = 8
    Width = 217
    Height = 433
    Caption = ' U'#380'ytkownicy banku '
    TabOrder = 0
    object Uzytkownicy: TListBox
      Left = 8
      Top = 16
      Width = 201
      Height = 409
      ItemHeight = 13
      TabOrder = 0
      OnClick = UzytkownicyClick
    end
  end
  object GroupBox1: TGroupBox
    Left = 232
    Top = 8
    Width = 257
    Height = 433
    Caption = ' Dane klienta '
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 24
      Width = 241
      Height = 73
      AutoSize = False
      Caption = 
        'Po dwukrotnym klikni'#281'ciu na u'#380'ytkowniku banku uzyskuje si'#281' dost'#281 +
        'p do jego danych osobowych. Dane te s'#261' chronione i nie wolno ich' +
        ' dystrybuowac ani rozpowszechniac bez zgody danego u'#380'ytkownika.'
      WordWrap = True
    end
    object Label2: TLabel
      Left = 8
      Top = 336
      Width = 241
      Height = 57
      AutoSize = False
      Caption = 
        'Prosz'#281' pami'#281'tac, i'#380' po zapisie zmian na koncie nie mo'#380'na w '#380'aden' +
        ' spos'#243'b przywr'#243'cic poprzedniego zapisu. R'#243'wnie'#380' nie zapisane dan' +
        'e zostan'#261' utracone bez mo'#380'liwosci odzyskania.'
      WordWrap = True
    end
    object Komunikat: TLabel
      Left = 8
      Top = 400
      Width = 241
      Height = 25
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Personalia: TLabeledEdit
      Left = 8
      Top = 120
      Width = 241
      Height = 21
      EditLabel.Width = 86
      EditLabel.Height = 13
      EditLabel.Caption = 'Personalia klienta:'
      LabelPosition = lpAbove
      LabelSpacing = 3
      TabOrder = 0
    end
    object Adres: TLabeledEdit
      Left = 8
      Top = 160
      Width = 241
      Height = 21
      EditLabel.Width = 130
      EditLabel.Height = 13
      EditLabel.Caption = 'Adres zamieszkania klienta:'
      LabelPosition = lpAbove
      LabelSpacing = 3
      TabOrder = 1
    end
    object NrKonta: TLabeledEdit
      Left = 8
      Top = 200
      Width = 177
      Height = 21
      EditLabel.Width = 98
      EditLabel.Height = 13
      EditLabel.Caption = 'Numer konta klienta:'
      LabelPosition = lpAbove
      LabelSpacing = 3
      MaxLength = 26
      TabOrder = 2
      Text = '090000000000000000########'
    end
    object NrPIN: TLabeledEdit
      Left = 192
      Top = 200
      Width = 57
      Height = 21
      EditLabel.Width = 21
      EditLabel.Height = 13
      EditLabel.Caption = 'PIN:'
      LabelPosition = lpAbove
      LabelSpacing = 3
      MaxLength = 4
      TabOrder = 3
      Text = '####'
    end
    object Kwota: TLabeledEdit
      Left = 128
      Top = 280
      Width = 121
      Height = 21
      EditLabel.Width = 101
      EditLabel.Height = 13
      EditLabel.Caption = 'Kwota na koncie (z'#322'):'
      LabelPosition = lpAbove
      LabelSpacing = 3
      MaxLength = 13
      TabOrder = 4
    end
    object Miasto: TLabeledEdit
      Left = 8
      Top = 240
      Width = 241
      Height = 21
      EditLabel.Width = 129
      EditLabel.Height = 13
      EditLabel.Caption = 'Miejsce ostatniej transakcji:'
      LabelPosition = lpAbove
      LabelSpacing = 3
      TabOrder = 5
      Text = 'Oddzia'#322' g'#322#243'wny banku '#321'ukasza i Emilki.'
    end
    object Blokada: TCheckBox
      Left = 8
      Top = 304
      Width = 97
      Height = 17
      Caption = 'Blokada konta'
      TabOrder = 6
    end
    object DataOst: TLabeledEdit
      Left = 8
      Top = 280
      Width = 65
      Height = 21
      EditLabel.Width = 108
      EditLabel.Height = 13
      EditLabel.Caption = 'Data ostatniej operacji:'
      LabelPosition = lpAbove
      LabelSpacing = 3
      ReadOnly = True
      TabOrder = 7
    end
    object Czas: TEdit
      Left = 80
      Top = 280
      Width = 41
      Height = 21
      ReadOnly = True
      TabOrder = 8
    end
  end
  object Zapisz: TButton
    Left = 496
    Top = 16
    Width = 113
    Height = 25
    Caption = 'Zapisz dane'
    TabOrder = 2
    OnClick = ZapiszClick
  end
  object Nowy: TButton
    Left = 496
    Top = 48
    Width = 113
    Height = 25
    Caption = 'Nowy u'#380'ytkownik'
    TabOrder = 3
    OnClick = NowyClick
  end
  object Przeladuj: TButton
    Left = 496
    Top = 80
    Width = 113
    Height = 25
    Caption = 'Prze'#322'adowanie'
    TabOrder = 4
    OnClick = PrzeladujClick
  end
  object Koniec: TButton
    Left = 496
    Top = 112
    Width = 113
    Height = 25
    Caption = 'Koniec'
    TabOrder = 5
    OnClick = KoniecClick
  end
end