kundeEditForm.dfm

inherited frmEditKunde: TfrmEditKunde
  Left = 210
  Top = 48
  ActiveControl = nFirma
  Caption = 'Leverandør'
  ClientHeight = 430
  ClientWidth = 506
  Constraints.MaxWidth = 0
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  inherited Panel1: TPanel
    Width = 506
    inherited Label1: TLabel
      Width = 180
      Caption = 'Redigere kunde informasjon'
    end
    inherited Label2: TLabel
      Left = 57
      Width = 260
      Caption = 'Rediger feltene nedenfor med informasjon om kunden.'
    end
    object Image1: TImage
      Left = 6
      Top = 27
      Width = 49
      Height = 43
      Center = True
      Picture.Data = {
        07544269746D6170F6060000424DF60600000000000036000000280000001800
        0000180000000100180000000000C0060000120B0000120B0000000000000000
        0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFA97F79B78183B78183B78183B78183B78183B78183B7
        8183B78183B78183B78183B78183B78183B78183B78183B78183B78183B78183
        B78183FF00FFFF00FFFF00FFFF00FFFF00FFA97F7AF2DEC8F7E3CAF5DFC2F1D9
        BAECD4B1E8CEA9E6CAA3E8CA9FEBCB9CEDCB99EDCB96EECC97EECC97EECC97EE
        CC97EFCD97EDCB96B3897BFF00FFFF00FFFF00FFFF00FFFF00FFA97F7AF2E0CE
        F7E6CEF4E1C7EED8BDE2CCAED5BFA0CFB897D3B996DCC097E3C497E8C795EAC9
        95EDCB96EECC97EECC97EFCD97EDCB96B3897BFF00FFFF00FFFF00FFFF00FFFF
        00FFA97F7AF3E3D2F8E8D3F4E2CBECD9C038373958534EA3927BB19E81BCA585
        C8AF89D4B78DDCBD8EE6C592EBCA95EDCB96EFCD97EDCB96B3897BFF00FFFF00
        FFFF00FFFF00FFFF00FFA97F7BF4E6D8F9EBD9F7E6D2EFDEC656524F3535372C
        424C4D5E5F9B8971A49074B29B7AC3A882D4B689E2C28FEAC995EDCB96EDCB96
        B3897BFF00FFFF00FFFF00FFFF00FFFF00FFAA807BF5E9DDFBEFE0F8EAD9F4E3
        D0BEB1A12255690C82AF106A8E1A566D546463907E67A08B6EB79D7ACBAE83DC
        BD8CE8C792EAC994B3897BFF00FFFF00FFFF00FFFF00FFFF00FFAD837DF5ECE3
        FBF2E6F9EDDEF7E8D6F0E1CC2E58680A84B10D81AD2F6B88424D5A5B4E528470
        5D968367AD9573C3A77DD8B988E3C290B1877AFF00FFFF00FFFF00FFFF00FFFF
        00FFB2887EF7EFE8FCF5ECFAEFE4F9ECDDF6E7D68D9D9D0B749B4A6B7FAA7B7B
        BC8888AB78787E55547F6D5A8F7D62A48D6CBBA078CEB083AB8375FF00FFFF00
        FFFF00FFFF00FFFF00FFB68B80F8F2EEFDF8F1FAF3EAF9EFE3F9ECDDF4E5D518
        5B74A37676D8A4A4CA9696BC8888AB77777E55547E6C5889785E9A8666AF9670
        9D786CFF00FFFF00FFFF00FFFF00FFFF00FFBA8E82FAF6F4FEFCF8FCF6F0FAF2
        EAFAF0E4F8ECDC69868FB08383E5B1B1D7A3A3C99595BB8787A77474754E4D7C
        6B5784735B9480638C6B61FF00FFFF00FFFF00FFFF00FFFF00FFBE9283FBF8F7
        FFFFFEFEFAF6FCF5EFFAF2EAFAF0E3F7EADB946B6AE9B7B7E4B1B1D6A3A3C995
        95BB8787A37272754E4D7B6A5786745C7C5F56FF00FFFF00FFFF00FFFF00FFFF
        00FFC29685FBF8F7FFFFFFFFFEFCFEF9F4FCF6EFFBF3EAFAEFE3E8D8CA946B6A
        E9B6B6E4B0B0D6A2A2C89494BA8686A37171754E4E806D59735951FF00FFFF00
        FFFF00FFFF00FFFF00FFC69986FBF8F7FFFFFFFFFFFFFFFDFCFEF9F5FCF6F0FA
        F2EAFAF0E4E8D8CA8C6362E8B6B6E3B0B0D5A2A2C89494BA8686A27171785250
        6E564FFF00FFFF00FFFF00FFFF00FFFF00FFCA9C88FBF8F7FFFFFFFFFFFFFFFF
        FFFFFEFCFEF9F5FCF6EFFBF2EAFAEFE3CAB5AB8C6362E8B5B5E3AFAFD5A1A1C7
        9393B98585A27070754F4EFF00FFFF00FFFF00FFFF00FFFF00FFCEA089FCF9F7
        FFFFFFFFFFFFFFFFFFFFFFFFFFFEFCFEF9F5FCF5EFFBF2E9FAF0E3CAB5AB8C63
        62E7B5B5E2AFAFD4A1A1C79393B98585A17070764E4EFF00FFFF00FFFF00FFFF
        00FFD2A38AFCF9F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFCFDFAF5FCF6EF
        FAF2E9FAEFE2CBB5ABA77B7BF0BCBCE2AEAED4A0A0C692929869695C63704F62
        71FF00FFFF00FFFF00FFD7A78CFCF9F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFEFCFDF9F4FCF5EEFCF5EBEEDDD19C6F67A77B7BEFBCBCE1AEAE6E6972
        07A1D100BCEF00B9EC009ED1FF00FFFF00FFDAAB8DFCF9F8FFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFBFDF9F4FFFBF3E3CEC6B38176BC9171A6
        7B7BD0A0A01594BD00CCFF00CCFF00B9EC0130B100009AFF00FFDEAD8EFDFAF8
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFCFFFEF9E5D1
        CBB38176EFC48DC795618C626200B3E600CCFF00A3DC0130B1041CB10316AC00
        009ADEAD8EFDFAF8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFE5D4D0B38176EFC38CF3BA6C93646500A9DC00C2F50443BA113C
        E40C36C80732C20316ACDEAD8EFFFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFE9DBD9B38176F1C58BB88285FF00FFFF00FF
        019CCF1A37CD456AF81E47D80833C2020EA5DAA482DAA482DAA482DAA482DAA4
        82DAA482DAA482DAA482DAA482DAA482DAA482DAA482DAA482B38176B88285FF
        00FFFF00FFFF00FFFF00FF293BCD6D8AFD2B53EA0515ACFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF2538CC0E1BB8FF00FFFF
        00FF}
      Transparent = True
    end
    object Label14: TLabel
      Left = 57
      Top = 57
      Width = 324
      Height = 14
      Caption = 
        'Ønsker du å avbryte trykker du på Avbryt knappen eller ESC taste' +
        'n'
    end
    object Label15: TLabel
      Left = 57
      Top = 42
      Width = 339
      Height = 14
      Caption = 
        'Når du er ferdig trykker du på OK knappen for å oppdatere databa' +
        'sen.'
    end
  end
  inherited Panel2: TPanel
    Top = 392
    Width = 506
    object Label12: TLabel [0]
      Left = 3
      Top = 15
      Width = 242
      Height = 14
      Caption = 'Trykk på F1 knappen for hjelp til denne oppgaven'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsItalic]
      ParentFont = False
    end
    inherited Button1: TButton
      Left = 425
      TabOrder = 1
    end
    inherited Button2: TButton
      Left = 344
      TabOrder = 0
    end
  end
  object GroupBox1: TGroupBox [2]
    Left = 0
    Top = 82
    Width = 506
    Height = 130
    Align = alTop
    Caption = 'Kunde informasjon'
    TabOrder = 2
    object Label3: TLabel
      Left = 6
      Top = 18
      Width = 85
      Height = 22
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Kunde '
      Color = clBtnShadow
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Layout = tlCenter
    end
    object Label4: TLabel
      Left = 6
      Top = 45
      Width = 85
      Height = 22
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Adresse '
      Color = clBtnShadow
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Layout = tlCenter
    end
    object Label5: TLabel
      Left = 6
      Top = 72
      Width = 85
      Height = 22
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Post nr. '
      Color = clBtnShadow
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Layout = tlCenter
    end
    object Label7: TLabel
      Left = 6
      Top = 99
      Width = 85
      Height = 22
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Telefon '
      Color = clBtnShadow
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Layout = tlCenter
    end
    object Label6: TLabel
      Left = 231
      Top = 72
      Width = 79
      Height = 22
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Sted '
      Color = clBtnShadow
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Layout = tlCenter
    end
    object Label8: TLabel
      Left = 231
      Top = 99
      Width = 79
      Height = 22
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Fax '
      Color = clBtnShadow
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Layout = tlCenter
    end
    object nFirma: TDBEdit
      Left = 96
      Top = 18
      Width = 352
      Height = 22
      DataField = 'Firma'
      DataSource = AppData.KunderDs
      TabOrder = 0
    end
    object nAdresse: TDBEdit
      Left = 96
      Top = 45
      Width = 352
      Height = 22
      DataField = 'Adresse'
      DataSource = AppData.KunderDs
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 96
      Top = 72
      Width = 131
      Height = 22
      DataField = 'Postnr'
      DataSource = AppData.KunderDs
      TabOrder = 2
    end
    object DBEdit4: TDBEdit
      Left = 315
      Top = 72
      Width = 133
      Height = 22
      DataField = 'Sted'
      DataSource = AppData.KunderDs
      TabOrder = 3
    end
    object DBEdit5: TDBEdit
      Left = 96
      Top = 99
      Width = 131
      Height = 22
      DataField = 'Telefon'
      DataSource = AppData.KunderDs
      TabOrder = 4
    end
    object DBEdit6: TDBEdit
      Left = 315
      Top = 99
      Width = 133
      Height = 22
      DataField = 'Fax'
      DataSource = AppData.KunderDs
      TabOrder = 5
    end
  end
  object PageControl1: TPageControl [3]
    Left = 0
    Top = 216
    Width = 506
    Height = 176
    Hint = 'Trykk på knappene for å skifte mellom kategoriene'
    ActivePage = TabSheet1
    Align = alClient
    ParentShowHint = False
    ShowHint = True
    Style = tsButtons
    TabOrder = 3
    object TabSheet1: TTabSheet
      Caption = 'Andre opplysninger'
      object Label9: TLabel
        Left = 3
        Top = 36
        Width = 85
        Height = 22
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'E-Post '
        Color = clBtnShadow
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
        Layout = tlCenter
      end
      object Label10: TLabel
        Left = 3
        Top = 63
        Width = 85
        Height = 22
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Nettsted '
        Color = clBtnShadow
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
        Layout = tlCenter
      end
      object Label11: TLabel
        Left = 3
        Top = 90
        Width = 85
        Height = 22
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Org. nummer '
        Color = clBtnShadow
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
        Layout = tlCenter
      end
      object Label13: TLabel
        Left = 3
        Top = 9
        Width = 85
        Height = 22
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Intern kontakt '
        Color = clBtnShadow
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
        Layout = tlCenter
      end
      object DBEdit7: TDBEdit
        Left = 93
        Top = 36
        Width = 349
        Height = 22
        DataField = 'Email'
        DataSource = AppData.KunderDs
        TabOrder = 1
      end
      object DBEdit8: TDBEdit
        Left = 93
        Top = 63
        Width = 349
        Height = 22
        DataField = 'Internett'
        DataSource = AppData.KunderDs
        TabOrder = 2
      end
      object DBEdit9: TDBEdit
        Left = 93
        Top = 90
        Width = 349
        Height = 22
        DataField = 'OrganisasjonsId'
        DataSource = AppData.KunderDs
        TabOrder = 3
      end
      object DBEdit1: TDBEdit
        Left = 93
        Top = 9
        Width = 349
        Height = 22
        Hint = 'Din kontaktperson hos kunde'
        DataField = 'Kontaktperson'
        DataSource = AppData.KunderDs
        TabOrder = 0
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Dine kommentarer'
      ImageIndex = 1
      object DBMemo1: TDBMemo
        Left = 0
        Top = 0
        Width = 498
        Height = 142
        Align = alClient
        DataField = 'Kommentarer'
        DataSource = AppData.KunderDs
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Fixedsys'
        Font.Style = []
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
  end
  object Panel3: TPanel [4]
    Left = 0
    Top = 212
    Width = 506
    Height = 4
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 4
  end
  inherited ActionList1: TActionList
    Left = 393
    Top = 354
  end
end