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

Text File | 1999-06-21 | 20KB | 832 lines

object fmCompanySetupWizard: TfmCompanySetupWizard
  Left = 156
  Top = 112
  HelpContext = 730
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  BorderStyle = bsDialog
  Caption = 'Company Setup Wizard'
  ClientHeight = 353
  ClientWidth = 592
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  Position = poScreenCenter
  Scaled = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object Notebook1: TNotebook
    Left = 152
    Top = 0
    Width = 440
    Height = 288
    Align = alRight
    PageIndex = 3
    TabOrder = 0
    object TPage
      Left = 0
      Top = 0
      Caption = 'WelcomePage'
      object RxLabel7: TRxLabel
        Left = 20
        Top = 15
        Width = 215
        Height = 23
        Caption = 'Company Setup Wizard.'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -20
        Font.Name = 'Arial'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        ShadowColor = clWhite
        ShadowSize = 2
        ShadowPos = spRightBottom
      end
      object Label23: TLabel
        Left = 44
        Top = 72
        Width = 360
        Height = 80
        Caption =
          'Welcome to the company setup wizard. This wizard will guide '#13#10'yo' +
          'u through the process of creating a new company. '#13#10'All you have ' +
          'to do is answer some basic questions using the'#13#10'< Back > and < N' +
          'ext > buttons to progress through the setup process.'
        WordWrap = True
      end
      object Label24: TLabel
        Left = 200
        Top = 188
        Width = 4
        Height = 16
      end
      object FileListBox1: TFileListBox
        Left = 12
        Top = 216
        Width = 65
        Height = 33
        ItemHeight = 16
        TabOrder = 0
        Visible = False
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'MainDetails'
      object Label1: TLabel
        Left = 36
        Top = 56
        Width = 341
        Height = 16
        Caption = 'Please enter your company details. Click Next to continue.'
        WordWrap = True
      end
      object RxLabel1: TRxLabel
        Left = 20
        Top = 15
        Width = 172
        Height = 23
        Caption = 'Company details ...'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -20
        Font.Name = 'Arial'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        ShadowColor = clWhite
        ShadowSize = 2
        ShadowPos = spRightBottom
      end
      object Label5: TLabel
        Left = 36
        Top = 100
        Width = 93
        Height = 16
        Caption = 'Company Name'
      end
      object Label6: TLabel
        Left = 36
        Top = 130
        Width = 59
        Height = 16
        Caption = 'Address 1'
      end
      object Label7: TLabel
        Left = 36
        Top = 161
        Width = 59
        Height = 16
        Caption = 'Address 2'
      end
      object Label8: TLabel
        Left = 36
        Top = 191
        Width = 59
        Height = 16
        Caption = 'Address 3'
      end
      object Label9: TLabel
        Left = 36
        Top = 222
        Width = 59
        Height = 16
        Caption = 'Address 4'
      end
      object Label10: TLabel
        Left = 36
        Top = 252
        Width = 61
        Height = 16
        Caption = 'Post Code'
      end
      object DBECompanyName: TwwDBEdit
        Left = 144
        Top = 96
        Width = 284
        Height = 24
        DataField = 'COMPANY'
        DataSource = DM1.dsSetup
        TabOrder = 0
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
        OnExit = DBECompanyNameExit
      end
      object DBEdit2: TwwDBEdit
        Left = 144
        Top = 126
        Width = 214
        Height = 24
        DataField = 'ADDRESS1'
        DataSource = DM1.dsSetup
        TabOrder = 1
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object DBEdit3: TwwDBEdit
        Left = 144
        Top = 157
        Width = 214
        Height = 24
        DataField = 'ADDRESS2'
        DataSource = DM1.dsSetup
        TabOrder = 2
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object DBEdit4: TwwDBEdit
        Left = 144
        Top = 187
        Width = 214
        Height = 24
        DataField = 'ADDRESS3'
        DataSource = DM1.dsSetup
        TabOrder = 3
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object DBEdit5: TwwDBEdit
        Left = 144
        Top = 218
        Width = 214
        Height = 24
        DataField = 'ADDRESS4'
        DataSource = DM1.dsSetup
        TabOrder = 4
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object DBEPostcode: TwwDBEdit
        Left = 144
        Top = 248
        Width = 74
        Height = 24
        CharCase = ecUpperCase
        DataField = 'POSTCODE'
        DataSource = DM1.dsSetup
        TabOrder = 5
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'TelephoneNo'
      object Label2: TLabel
        Left = 28
        Top = 72
        Width = 272
        Height = 16
        Caption = 'Please type your Telephone and Fax Numbers.'
        WordWrap = True
      end
      object RxLabel2: TRxLabel
        Left = 20
        Top = 15
        Width = 229
        Height = 23
        Caption = 'Company details (cont) ...'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -20
        Font.Name = 'Arial'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        ShadowColor = clWhite
        ShadowSize = 2
        ShadowPos = spRightBottom
      end
      object Label11: TLabel
        Left = 28
        Top = 116
        Width = 83
        Height = 16
        Caption = 'Telephone No.'
        FocusControl = DBETelephoneNo
      end
      object Label12: TLabel
        Left = 28
        Top = 148
        Width = 42
        Height = 16
        Caption = 'Fax No'
        FocusControl = DBEdit8
      end
      object Label13: TLabel
        Left = 28
        Top = 180
        Width = 33
        Height = 16
        Caption = 'Email'
        FocusControl = DBEdit9
      end
      object DBETelephoneNo: TwwDBEdit
        Left = 120
        Top = 112
        Width = 109
        Height = 24
        DataField = 'TELNO'
        DataSource = DM1.dsSetup
        TabOrder = 0
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object DBEdit8: TwwDBEdit
        Left = 120
        Top = 144
        Width = 109
        Height = 24
        DataField = 'FAXNO'
        DataSource = DM1.dsSetup
        TabOrder = 1
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object DBEdit9: TwwDBEdit
        Left = 120
        Top = 176
        Width = 309
        Height = 24
        DataField = 'EMAIL'
        DataSource = DM1.dsSetup
        TabOrder = 2
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'FinancialYear'
      object RxLabel3: TRxLabel
        Left = 20
        Top = 15
        Width = 193
        Height = 23
        Caption = 'Financial year start ...'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -20
        Font.Name = 'Arial'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        ShadowColor = clWhite
        ShadowSize = 2
        ShadowPos = spRightBottom
      end
      object Label3: TLabel
        Left = 40
        Top = 72
        Width = 234
        Height = 32
        Caption = 'Please set the start date of your current financial year.'
        WordWrap = True
      end
      object Label14: TLabel
        Left = 40
        Top = 120
        Width = 115
        Height = 16
        Caption = 'Financial Year Start'
      end
      object DBDFinancialYear: TDBDateEdit
        Left = 172
        Top = 116
        Width = 100
        Height = 24
        DataField = 'STARTFY'
        DataSource = DM1.dsSetup
        ClickKey = 16452
        NumGlyphs = 2
        CalendarStyle = csDialog
        TabOrder = 0
        YearDigits = dyFour
        OnExit = DBDFinancialYearExit
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'VATRegistration'
      object Label17: TLabel
        Left = 40
        Top = 72
        Width = 249
        Height = 16
        Caption = 'Please type your VAT Registration Number'
        WordWrap = True
      end
      object Label39: TLabel
        Left = 40
        Top = 120
        Width = 122
        Height = 16
        Caption = 'VAT Registration No.'
        FocusControl = DBEVATReg
      end
      object RxLabel4: TRxLabel
        Left = 20
        Top = 15
        Width = 239
        Height = 23
        Caption = 'VAT registration number ...'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -20
        Font.Name = 'Arial'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        ShadowColor = clWhite
        ShadowSize = 2
        ShadowPos = spRightBottom
      end
      object DBEVATReg: TwwDBEdit
        Left = 188
        Top = 116
        Width = 113
        Height = 24
        DataField = 'VATREGNO'
        DataSource = DM1.dsSetup
        TabOrder = 0
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'InvoiceNo'
      object Label4: TLabel
        Left = 40
        Top = 116
        Width = 63
        Height = 16
        Caption = 'Invoice No.'
      end
      object Label15: TLabel
        Left = 40
        Top = 147
        Width = 89
        Height = 16
        Caption = 'Credit Note No.'
      end
      object Label18: TLabel
        Left = 40
        Top = 178
        Width = 76
        Height = 16
        Caption = 'Proforma No.'
      end
      object Label19: TLabel
        Left = 40
        Top = 209
        Width = 80
        Height = 16
        Caption = 'Quotation No.'
      end
      object Label20: TLabel
        Left = 40
        Top = 240
        Width = 115
        Height = 16
        Caption = 'Purchase Order No.'
      end
      object RxLabel6: TRxLabel
        Left = 20
        Top = 15
        Width = 252
        Height = 23
        Caption = 'Start transaction numbers ...'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -20
        Font.Name = 'Arial'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        ShadowColor = clWhite
        ShadowSize = 2
        ShadowPos = spRightBottom
      end
      object Label21: TLabel
        Left = 40
        Top = 60
        Width = 349
        Height = 32
        Caption =
          'Please type the numbers you want your various transactions'#13#10'to s' +
          'tart from.'
      end
      object DBSEInvoiceNo: TwwDBSpinEdit
        Left = 176
        Top = 115
        Width = 95
        Height = 24
        Increment = 1.000000000000000000
        MaxValue = 9999999999.000000000000000000
        Value = 23.000000000000000000
        DataField = 'INVOICENO'
        DataSource = DM1.dsSetup
        TabOrder = 0
        UnboundDataType = wwDefault
      end
      object DBSECreditNo: TwwDBSpinEdit
        Left = 176
        Top = 145
        Width = 95
        Height = 24
        Increment = 1.000000000000000000
        MaxValue = 9999999999.000000000000000000
        Value = 8.000000000000000000
        DataField = 'CREDITNO'
        DataSource = DM1.dsSetup
        TabOrder = 1
        UnboundDataType = wwDefault
      end
      object DBSEProformaNo: TwwDBSpinEdit
        Left = 176
        Top = 175
        Width = 95
        Height = 24
        Increment = 1.000000000000000000
        MaxValue = 9999999999.000000000000000000
        Value = 20.000000000000000000
        DataField = 'PROFNO'
        DataSource = DM1.dsSetup
        TabOrder = 2
        UnboundDataType = wwDefault
      end
      object DBSEQuotationNo: TwwDBSpinEdit
        Left = 176
        Top = 205
        Width = 95
        Height = 24
        Increment = 1.000000000000000000
        MaxValue = 9999999999.000000000000000000
        Value = 21.000000000000000000
        DataField = 'QUONO'
        DataSource = DM1.dsSetup
        TabOrder = 3
        UnboundDataType = wwDefault
      end
      object DBSEPurcOrderNo: TwwDBSpinEdit
        Left = 176
        Top = 235
        Width = 95
        Height = 24
        Increment = 1.000000000000000000
        MaxValue = 9999999999.000000000000000000
        DataField = 'PORDNO'
        DataSource = DM1.dsSetup
        TabOrder = 4
        UnboundDataType = wwDefault
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'CopmanyPassword'
      object Label25: TLabel
        Left = 44
        Top = 60
        Width = 359
        Height = 96
        Caption =
          'You can protect this company from unauthorised access'#13#10'by assign' +
          'ing a password to it.  This means that any person '#13#10'trying to lo' +
          'g on to this company has to type the password '#13#10'before getting a' +
          'ccess to it.  This is optional and can be '#13#10'set at any time from' +
          ' within the program.  Leave blank if this is '#13#10'not required'
      end
      object RxLabel8: TRxLabel
        Left = 20
        Top = 15
        Width = 201
        Height = 23
        Caption = 'Company password ...'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -20
        Font.Name = 'Arial'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        ShadowColor = clWhite
        ShadowSize = 2
        ShadowPos = spRightBottom
      end
      object Label26: TLabel
        Left = 48
        Top = 220
        Width = 116
        Height = 16
        Caption = 'Company Password'
      end
      object edtCompany: TEdit
        Left = 192
        Top = 216
        Width = 121
        Height = 24
        CharCase = ecUpperCase
        MaxLength = 10
        PasswordChar = '*'
        TabOrder = 0
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'TheEnd'
      object RxLabel5: TRxLabel
        Left = 20
        Top = 15
        Width = 233
        Height = 23
        Caption = 'Well done, you'#39've made it!'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -20
        Font.Name = 'Arial'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        ShadowColor = clWhite
        ShadowSize = 2
        ShadowPos = spRightBottom
      end
      object Label22: TLabel
        Left = 40
        Top = 76
        Width = 370
        Height = 64
        Caption =
          'That'#39's all you need to do to setup a new company.  '#13#10'Now just cl' +
          'ick on < Start > if you want to go ahead with creating the new c' +
          'ompany, alternatively click on < Back > to change '#13#10'your selecti' +
          'ons.'
        WordWrap = True
      end
      object MessagePanel: TPanel
        Left = 40
        Top = 180
        Width = 377
        Height = 57
        BorderStyle = bsSingle
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsItalic]
        ParentFont = False
        TabOrder = 0
        Visible = False
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 288
    Width = 592
    Height = 65
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object Bevel1: TBevel
      Left = 16
      Top = 8
      Width = 573
      Height = 13
      Shape = bsTopLine
    end
    object BtnBack: TButton
      Left = 336
      Top = 24
      Width = 75
      Height = 30
      Hint = 'Back to previous screen'
      Caption = '<< &Back'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
    object BtnNext: TButton
      Left = 410
      Top = 24
      Width = 75
      Height = 30
      Hint = 'Go to next screen'
      Caption = '&Next >>'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object BtnStart: TButton
      Left = 504
      Top = 24
      Width = 75
      Height = 30
      Hint = 'Create the new company'
      Caption = '&Start'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = BtnStartClick
    end
    object BtnCancel: TButton
      Left = 240
      Top = 24
      Width = 75
      Height = 30
      Caption = '&Cancel'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = BtnCancelClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 152
    Height = 288
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object Panel3: TPanel
      Left = 20
      Top = 16
      Width = 115
      Height = 220
      BevelOuter = bvLowered
      BorderStyle = bsSingle
      TabOrder = 0
      object Image1: TImage
        Left = 1
        Top = 1
        Width = 109
        Height = 214
        Align = alClient
        AutoSize = True
        Picture.Data = {<image000.bmp>}
        Stretch = True
      end
    end
  end
  object PageManager1: TPageManager
    PageOwner = Notebook1
    NextBtn = BtnNext
    PriorBtn = BtnBack
    Left = 52
    Top = 240
    object WelcomePage: TPageProxy
      PageName = 'WelcomePage'
      OnEnter = WelcomePageEnter
      OnLeave = WelcomePageLeave
    end
    object MainDetails: TPageProxy
      PageName = 'MainDetails'
      OnShow = MainDetailsShow
    end
    object TelephoneNo: TPageProxy
      PageName = 'TelephoneNo'
      OnShow = TelephoneNoShow
    end
    object FinancialYear: TPageProxy
      PageName = 'FinancialYear'
      OnShow = FinancialYearShow
    end
    object VATRegistration: TPageProxy
      PageName = 'VATRegistration'
      OnShow = VATRegistrationShow
    end
    object InvoiceNo: TPageProxy
      PageName = 'InvoiceNo'
      OnShow = InvoiceNoShow
    end
    object CompanyPassword: TPageProxy
      PageName = 'CopmanyPassword'
      OnShow = CompanyPasswordShow
    end
    object TheEnd: TPageProxy
      PageName = 'TheEnd'
      OnEnter = TheEndEnter
      OnLeave = TheEndLeave
    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 = 112
    Top = 240
    ScreenWidth = (
      800)
    ScreenHeight = (
      600)
    OriginalFormWidth = (
      600)
    OriginalFormHeight = (
      380)
    OriginalFormLeft = (
      156)
    OriginalFormTop = (
      112)
    OriginalFormPPI = (
      120)
    OriginalClientWidth = (
      592)
    OriginalClientHeight = (
      353)
  end
  object TempTable: TwwTable
    DatabaseName = 'MainEB'
    TableName = 'Setup.DBF'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 88
    Top = 240
  end
end