Computer Buyer 1999 September/Dpcb0999.iso/Business/Empire/_SETUP.1/EmpireBuilder.exe/0/RCDATA/TFMSYSTEMUSERS/TFMSYSTEMUSERS.txt

Text File | 1999-06-21 | 10KB | 427 lines

object fmSystemUsers: TfmSystemUsers
  Left = 233
  Top = 108
  HelpContext = 576
  AutoScroll = False
  Caption = 'System Users'
  ClientHeight = 365
  ClientWidth = 426
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  Scaled = False
  OnActivate = FormActivate
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 324
    Width = 426
    Height = 41
    Align = alBottom
    TabOrder = 1
    object BtnSave: TBitBtn
      Left = 7
      Top = 6
      Width = 75
      Height = 30
      Hint = 'Save user details'
      Caption = '&Save'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = BtnSaveClick
      NumGlyphs = 2
    end
    object BtnAbandon: TBitBtn
      Left = 87
      Top = 6
      Width = 75
      Height = 30
      Hint = 'Discard user details'
      Caption = '&Abandon'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = BtnAbandonClick
      NumGlyphs = 2
    end
    object BtnClose: TBitBtn
      Left = 248
      Top = 6
      Width = 75
      Height = 30
      Cancel = True
      Caption = '&Close'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = BtnCloseClick
      NumGlyphs = 2
    end
    object BtnDelete: TBitBtn
      Left = 168
      Top = 6
      Width = 75
      Height = 30
      Hint = 'Delete current user'
      Caption = '&Delete'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = BtnDeleteClick
      NumGlyphs = 2
    end
    object btnHelp: TButton
      Left = 345
      Top = 6
      Width = 75
      Height = 30
      Caption = '&Help'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = btnHelpClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 426
    Height = 324
    Align = alClient
    TabOrder = 0
    object Bevel1: TBevel
      Left = 16
      Top = 7
      Width = 395
      Height = 97
      Shape = bsFrame
    end
    object Label1: TLabel
      Left = 28
      Top = 15
      Width = 45
      Height = 16
      Caption = 'User ID'
    end
    object Label2: TLabel
      Left = 28
      Top = 47
      Width = 69
      Height = 16
      Caption = 'User Name'
    end
    object Label3: TLabel
      Left = 28
      Top = 79
      Width = 60
      Height = 16
      Caption = 'Password'
    end
    object lbNew: TLabel
      Left = 240
      Top = 20
      Width = 6
      Height = 23
      Alignment = taCenter
      Color = clBtnFace
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -20
      Font.Name = 'Arial'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object GroupBox1: TGroupBox
      Left = 16
      Top = 109
      Width = 397
      Height = 205
      Caption = 'Access To'
      TabOrder = 3
      object CBCustomer: TDBCheckBox
        Left = 16
        Top = 24
        Width = 150
        Height = 17
        Hint = 'Press F1 for help'
        HelpContext = 639
        Alignment = taLeftJustify
        Caption = 'Customers'
        DataField = 'CUSTOMER'
        DataSource = DM1.dsSysUsers
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object CBSupplier: TDBCheckBox
        Left = 16
        Top = 50
        Width = 150
        Height = 17
        Hint = 'Press F1 for help'
        HelpContext = 640
        Alignment = taLeftJustify
        Caption = 'Suppliers'
        DataField = 'SUPPLIER'
        DataSource = DM1.dsSysUsers
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object CBNominal: TDBCheckBox
        Left = 16
        Top = 76
        Width = 150
        Height = 17
        Hint = 'Press F1 for help'
        HelpContext = 641
        Alignment = taLeftJustify
        Caption = 'Financial'
        DataField = 'NOMINAL'
        DataSource = DM1.dsSysUsers
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object CBCashBook: TDBCheckBox
        Left = 16
        Top = 102
        Width = 150
        Height = 17
        Hint = 'Press F1 for help'
        HelpContext = 642
        Alignment = taLeftJustify
        Caption = 'Bank'
        DataField = 'CASHBOOK'
        DataSource = DM1.dsSysUsers
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object CBInvoicing: TDBCheckBox
        Left = 16
        Top = 128
        Width = 150
        Height = 17
        Hint = 'Press F1 for help'
        HelpContext = 643
        Alignment = taLeftJustify
        Caption = 'Invoice'
        DataField = 'INVOICING'
        DataSource = DM1.dsSysUsers
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object CBStockControl: TDBCheckBox
        Left = 16
        Top = 154
        Width = 150
        Height = 17
        Hint = 'Press F1 for help'
        HelpContext = 644
        Alignment = taLeftJustify
        Caption = 'Stock '
        DataField = 'STOCK'
        DataSource = DM1.dsSysUsers
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object CBSupplierOrder: TDBCheckBox
        Left = 16
        Top = 180
        Width = 150
        Height = 17
        Hint = 'Press F1 for help'
        HelpContext = 645
        Alignment = taLeftJustify
        Caption = 'Purchase Order'
        DataField = 'ORDERS'
        DataSource = DM1.dsSysUsers
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object CBFinancialRep: TDBCheckBox
        Left = 216
        Top = 24
        Width = 150
        Height = 17
        Hint = 'Press F1 for help'
        HelpContext = 646
        Alignment = taLeftJustify
        Caption = 'Financial Reports'
        DataField = 'FINANREPS'
        DataSource = DM1.dsSysUsers
        ParentShowHint = False
        ShowHint = True
        TabOrder = 7
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object CBSysSetup: TDBCheckBox
        Left = 216
        Top = 106
        Width = 150
        Height = 17
        Hint = 'Press F1 for help'
        HelpContext = 649
        Alignment = taLeftJustify
        Caption = 'System Setup'
        DataField = 'SYSSETUP'
        DataSource = DM1.dsSysUsers
        ParentShowHint = False
        ShowHint = True
        TabOrder = 10
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object CBAmendTrans: TDBCheckBox
        Left = 216
        Top = 52
        Width = 150
        Height = 17
        Hint = 'Press F1 for help'
        HelpContext = 647
        Alignment = taLeftJustify
        Caption = 'Amend Transactions'
        DataField = 'AMEND'
        DataSource = DM1.dsSysUsers
        ParentShowHint = False
        ShowHint = True
        TabOrder = 8
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object DBCheckBox1: TDBCheckBox
        Left = 216
        Top = 78
        Width = 150
        Height = 17
        Hint = 'Press F1 for help'
        HelpContext = 648
        Alignment = taLeftJustify
        Caption = 'System Reports'
        DataField = 'SYSREPS'
        DataSource = DM1.dsSysUsers
        ParentShowHint = False
        ShowHint = True
        TabOrder = 9
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
    end
    object DBEUserName: TwwDBEdit
      Left = 124
      Top = 43
      Width = 201
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 637
      DataField = 'NAME'
      DataSource = DM1.dsSysUsers
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object DBCDlgUserID: TComboEdit
      Left = 124
      Top = 15
      Width = 101
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 636
      ButtonHint = 'Search'
      CharCase = ecUpperCase
      ClickKey = 16467
      ButtonWidth = 24
      MaxLength = 6
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnButtonClick = DBCDlgUserIDButtonClick
      OnEnter = DBCDlgUserIDEnter
      OnExit = DBCDlgUserIDExit
      OnKeyPress = DBCDlgUserIDKeyPress
    end
    object edtUserPassword: TEdit
      Left = 124
      Top = 71
      Width = 101
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 638
      CharCase = ecUpperCase
      MaxLength = 10
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnEnter = edtUserPasswordEnter
      OnExit = edtUserPasswordExit
    end
  end
  object Sizer1: TSizer
    Enabled = True
    ExceptionAction = eaIgnoreControl
    GridColumnSizing = gcSizeAllColumns
    GridRowSizing = grSizeByDefaults
    MinimumSize = True
    NavigateOnEnter = True
    OverrideParentFont = True
    PerformAssertions = True
    ShowAssertionFailures = False
    StretchFonts = True
    StretchImages = True
    StretchOnResize = True
    ThreadProcessing = False
    Left = 392
    Top = 294
    ScreenWidth = (
      800)
    ScreenHeight = (
      600)
    OriginalFormWidth = (
      434)
    OriginalFormHeight = (
      392)
    OriginalFormLeft = (
      233)
    OriginalFormTop = (
      108)
    OriginalFormPPI = (
      120)
    OriginalClientWidth = (
      426)
    OriginalClientHeight = (
      365)
  end
end